KOFKL12 ;MODULE VIA PRODUKTSELEKTIES;KOFKL9;Quit naar KOFKL11 [ 08/05/2002  11:22 AM ]
 ;
S10 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
S10A X ^cTXT(0,"N",15)
S10B R K G S10A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G S10Z:K="-" I K="" S R1=R4 G S10H:R0,S10D
S10C G S10D:K'?.N,S10K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")),$D(@("^"_Q_"PL(K_"" "")")) G S10M
S10D S R6=$$UPTRIMAN^vhRtn1(K)
S10E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G S10K:R2=-1 S R2=$N(^(R2))
S10F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6)&$D(@("^"_Q_"PL($P(R3,"" "",2)_"" "")")) G S10M
S10G S R2=R5
S10H S R2=$N(@(R8_"(R2)")) G S10K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G S10L:R2=-1,S10H:'$D(@("^"_Q_"PL($P(R2,"" "",2)_"" "")")) I $E(R2,1,$L(R6))'=R6 S R0=0 G S10A
S10I S FP=R1 W @F,$C(13),$J(+@(R8_"(R2,0)"),6),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
S10J S R1=R1+100 G S10H:R1<(2300+F60) S R0=1 G S10A
S10K X ^cTXT(0,"N",8) R K
S10L S (R2,R0)=0 G S10A
S10M S (@$P(R,D,1),K)=R3,R7=$D(@(R8_"(R3)"))
S10Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 23.05.85
 ;