cPE47 ; BEPALEN PRODUKT REGISTRATIE ORDER-UITLEV.; Quit naar %PE46 [ 11/08/2003  3:52 PM ]
 ;
T1 ;VOLGNUMMER OF 
T2 ;   [] = VERVOLG
T3 ;ZONDER
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
R7 S R4=$P(R,D,2)+1+F60,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R7A S FP=2403+F60 W @F,@F1 W:$D(RT) $P($T(T1),";",2) W RA W:R0 $P($T(T2),";",2) W " : ",@F0
R7B R K G R7A:K?.E1C.E S:$L(K) R0=0 S FP=R4,R10=0 W @F,@F1 G R7Z:K="-",R7D:K=""&('R0) I K="" K RT S R1=R4 G R7H
R7C G R7D:'$D(RT(K)) S R3=RT(K) G R7M
R7D K RT S R6="" F R7=1:1:99 I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R7E S R5=$E(R6,1,28) S:R6="" R5=" " S R1=R4,(R2,R3)=R5 G R7M:$D(@(R9_"(R2_"" "")")) S:R5?.N R5=R5_" " S (R2,R3)=$N(@(R9_"(R5)")) G R7K:R2=-1 S R2=$N(^(R2))
R7F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(@(R8_"("""_R3_""")")) G R7M
R7G S R2=R5
R7H S R2=$N(@(R9_"(R2)")) G R7K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R7L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R7A
R7I S FP=R1,R10=R10+1,RT(R10)=R2 W @F,$C(13),?2,R10,". ",?6,$P(^(R2),D,2),?37,$E($P(@(R8_"($P(@(R9_""(R2)""),D,1),0)"),D,2),1,30)
R7J S R1=R1+100 G R7H:R1<(2300+F60) S R0=1 G R7A
R7K X ^cTXT(0,"N",8) R K
R7L S (R2,R0)=0 G R7A
R7M S:$E(R3,$L(R3))'=" " R3=R3_" " S (@$P(R,D,1),K)=R3
R7Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,RA,RT Q
 ;
S0 S (SX,VVE)=0 S:'SW8&(K'="-") K="" G S0B:K'="-"
S0A S SX=1,FP=2403+F60 W @F,@F1 W:'SW9&($D(N)) $P($T(T1),";",2) W T," " W:VVE $P($T(T2),";",2) W " : ",@F0 R K G S0A:K?.E1C.E,S0B:"-"[K,S0B:'SW9&('$D(N(K))),S0A:'$D(N(K)) S K1=N(K) G S0H
S0B S:$L(K) VVE=0 S FP=$P(UD,D,2)+2*100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F1 G S0Z:K="-" I K=""&VVE S L1=$P(UD,D,2)+2,VN=1 K N S:$L(Q16) @Q16 G S0D1
S0B1 S:$L(Q16) @Q16
S0C S I=K S:K="" I=-1,K1=I S:K'="" K1=I,K1=K1_" " G S0H:$D(^(K1)) S K1=$N(^(K1)),L1=$P(UD,D,2)+2,VN=1 K N G S0G:K1=-1 S K2=$N(^(K1)) G S0H:K2=-1
S0D G S0H:$E(K2,1,$L(I))'=I&'VVE&($E(K1,1,$L(I))=I) S K1=I S:K'="" K1=I_" " G S0E
S0D1 S:$L(Q16) @Q16
S0E S K1=$N(^(K1)) G S0G:K1=-1 I $E(K1,1,$L(I))'=I&(I'=-1) S VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0F G S0A:'SX&('SW9) S FP=L1*100+KN+F60-1 S:SW9 FP=FP-KN+3 W @F,@F2,VN,". " W:K1=" " $P($T(T3),";",2) W:'$L(Q17) K1 W:$L(Q17) @Q17 S N(VN)=K1
S0F1 S L1=L1+1,VN=VN+1 G S0D1:L1<24 S VVE=1 G S0A
S0G S K1=0,VVE=0 G S0A:'SW8 S SW8=0 G S0Z
S0H I 'JP S FP=$P(UD,D,2)+2*100+KN-1+F60 W:'SW8 @F,@F1," ",K1 W:K1=" "&$L(T) @F,$P($T(T1),";",2) W:SW8&(K1'=" ") @F,LV
S0Z K N Q
 ;