KPS7B ;SYNONIEMEN PRODUKTEN (EVENTUEEL MET PRAKTISCHE STOCK) ;KPS7C; [ 08/05/2002   4:50 PM ]
 ;
S7 S S4=$P(R,D,2)+1+F60,R0=0,SA=$P(R,D,3),S8="^"_Q_$P(R,D,4),S9="^"_Q_$P(R,D,5),S11=$P(R,D,6),FP=S4 W @F,@F1
S7A S FP=2403+F60 W @F,@F1 W:$D(ST) "VOLGNUMMER OF " W SA W:R0 "  [] = VERVOLG" W " : ",@F0
S7B R K G S7A:K?.E1C.E S:$L(K) R0=0 S FP=S4,S10=0 W @F,@F1 G S7Z:K="-",S7D:K=""&('R0) I K="" K ST S S1=S4 G S7H
S7C G S7D:'$D(ST(K)) S S3=ST(K) G S7M
S7D K ST S S6=$$UPTRIMAN^vhRtn1(K)
S7E S S5=$E(S6,1,28) S:S6="" S5=" " S S1=S4,(S2,S3)=S5 G S7M:$D(@(S9_"(S2_"" "")")) S:S5?.N S5=S5_" " S (S2,S3)=$N(@(S9_"(S5)")) G S7K:S2=-1 S S2=$N(^(S2))
S7F I $E(S2,1,$L(S6))'=S6&'R0&($E(S3,1,$L(S6))=S6) S S7=$D(@(S8_"(S3)")) G S7M
S7G S S2=S5
S7H S S2=$N(@(S9_"(S2)")) G S7K:($E(S2,1,$L(S6))]S6)&'R0&(S1=S4) G S7L:S2=-1 I $E(S2,1,$L(S6))'=S6 S R0=0 G S7A
S7I S FP=S1,S10=S10+1,ST(S10)=S2 W @F,$C(13),?2,S10,". ",?6,$P(^(S2),D,2)
S7II W ?34-($E(S9,$L(S9))-1*14) I S11 S SXX=$P(@(S8_"($P(@(S9_""(""""""_S2_"""""")""),D,1),0)"),D,14)-$P($P(^(2),D,9),"#",2) W $J(SXX,7)," ",$P("N\S",D,$P(^(1),D,20)+1) S SXX=$S(SXX'=$P(^(0),D,14):$P(^(0),D,14),1:"") W $J(SXX,8),"   "
S7III W $E($P(@(S8_"($P(@(S9_""(""""""_S2_"""""")""),D,1),0)"),D,2),1,26-S11)
S7J S S1=S1+100 G S7H:S1<(2300+F60) S R0=1 G S7A
S7K S FP=2403+F60 W @F,@F2,@F4,SA," ONBEKEND [] = ok ",@F5,@F0 R K
S7L S (S2,R0)=0 G S7A
S7M S:$E(S3,$L(S3))'=" " S3=S3_" " S (@$P(R,D,1),K)=S3
S7Z K R0,S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,SA,ST,SXX Q
 ;
 Q
Z X ^cZ Q
ZZ ; 16.03.87 - 12 u 25