cPE46 G 5 ; BEPALEN PRODUKT REGISTRATIE ORDER-UITLEV.; Quit naar %F30
 ;
T1 ;VOLGNUMMER OF 
T2 ;   [] = VERVOLG
T3 ;" " = ZONDER
T4 ;ZONDER
T5 ;VOLGNUMMER VAN DE PRODUKTKODE
T6 ;PRODUKT VIA : .
T7 ;K[] = klassif   L[] = leveranc   P[] = produktk
T8 ;LEVERANCIER
T9 ;PRODUKTKODE
 ;
S1 S T=$P(MK,D,2),M=$P(MK,D,3) D S7 Q
S2 S T=$P(HG,D,2),M=$P(HG,D,3) D S7 Q
S3 S T=$P(GR,D,2),M=$P(GR,D,3) D S7 Q
S4 S T=$P(SG,D,2),M=$P(SG,D,3) D S7 Q
S5 S T=$P(LP,D,2),M=$P(LP,D,3) D S7 Q
S6 S SW9=1,T=$P($T(T5),";",2),Q17="$P(@(""^""_Q_""PR(^(K1),0)""),D,1)",Q16="X=$D("_Q16_")" G S0^cPE47
 ;
S7 S FP=$P(UD,D,2)+2*100+KN+F60 W @F,@F1 S FP=$P(UD,D,2)+1*100+KN+M+2+F60 W @F,@F5,@F2 S FP=$P(UD,D,2)+1*100+KN-1+F60 W @F,@F4,T,$J("",M-$L(T)+1),@F5
S7Z S JP=0,(Q16,Q17)="" D S0^cPE47 S:K'="-" KN=KN+M+5,B(A)=M,A=A+1 S:K="-"&(A>0) A=A-1,KN=KN-B(A)-5 Q
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
5 F I="HG","GR","SG","LE","LP","MK" S @I=@("^"_Q_"PR(0,I)")
10 S KN=3,(A,SW8,SW9)=0,FP=UL*100+1 W @F,@F1 S FP=2303+F60 W @F,$P($T(T6),";",2),!,?2 W:$L($P(MK,D,2)) $E($P(MK,D,2),1),"[] = ",$E($P(MK,D,4),1,4),"   " W $P($T(T7),";",2)
60 S FP=2317+F60 W @F,@F0 R K S K1=K G 10:K?.E1C.E!(K=""),240:K1="-",70:K="K"!(K=$E($P(MK,D,2),1)),170:K="L",230:K="P",10
 ;
70 I K=$E($P(MK,D,2),1) S IB="PM",V1="S1",V2="S2",V3="S3",V4="S4"
80 I K="K" S IB="PH",V1="S2",V2="S3",V3="S4",V4="S1"
90 G 10:'$D(@("^"_Q_IB)) S X=$D(@("^"_Q_IB_"(0)")) D @V1 G 10:K="-" S I1=K1 G 110
100 S X=$D(@("^"_Q_IB_"(I1)"))
110 S X=$D(^(I1,0)) D @V2 G 90:K="-" S I2=K1 G 130
120 S X=$D(@("^"_Q_IB_"(I1,I2)"))
130 S X=$D(^(I2,0)) D @V3 G 100:K="-" S I3=K1 G 150
140 K N S SW9=0,X=$D(@("^"_Q_IB_"(I1,I2,I3)")) S:K="-" A=A-1,KN=KN-B(A)-5
150 S X=$D(^(I3,0)) D @V4 G 120:K="-" S I4=K1
160 S JP=1,Q16="@(""^""_Q_IB_""(I1,I2,I3,I4,0)"")" D S6 G 140:K="-" S PR=$P(@("^"_Q_"PR1(K1)"),D,1) G YZ
 ;
170 G 10:'$D(@("^"_Q_"PL")) S KN=3,FP=$P(UD,D,2)+1*100+1 W @F,@F1 S R="K\"_($P(UD,D,2)+1*100)_D_$P($T(T8),";",2)_"\LE\L1" D ^cF18 G 10:K="-" S SW8=1,LV=$P(@("^"_Q_"LE(K,0)"),D,2),K=$P(K," ",2)
175 S X=$D(@("^"_Q_"PL(0)")),T=$P(LE,D,2),M=$P(LE,D,3) D S7 G 170:'SW8 S I1=K1,SW8=0
180 S X=$D(@("^"_Q_"PL(I1)"))
190 S X=$D(^(I1,0)) D S1 G 170:K="-" S I2=K1 G 210
200 K N S SW9=0,X=$D(@("^"_Q_"PL(I1,I2)")) S:K="-" A=A-1,KN=KN-B(A)-5
210 S X=$D(^(I2,0)) D S5 G 180:K="-" S I3=K1
220 S JP=1,Q16="@(""^""_Q_""PL(I1,I2,I3,0)"")" D S6 G 200:K="-" S PR=$P(@("^"_Q_"PR1(K1)"),D,1) G YZ
 ;
230 S R="K\"_($P(UD,D,2)+1*100)_D_$P($T(T9),";",2)_"\PR\PR1" D R7^cPE47 G 10:K="-" S K1=$P(@("^"_Q_"PR1(K)"),D,1)
240 S PR=K1,FP=$P(UD,D,2)+1*100 W @F,@F1
 ;
YZ K A,B,I,I1,I2,I3,I4,IB,JP,K1,K2,KN,LV,L1,M,Q16,Q17,R,SX,T,V1,V2,V3,V4,VN,VVE,HG,GR,SG,LE,LP,MK Q
 ;
Z X ^cZ Q
ZZ ; 02.05.86 - 17 u 05