cPE121 Q  ; RAADPLEGEN - WIJZIGEN - VERWIJDEREN PRODUKTEN ;OVERLAY VAN %PE120
 ;
T1 ;\LEVERANCIER
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
70 I %K=$E($P(MK,D,2),1) S IB="PM",V1="S1^cPE122",V2="S2^cPE122",V3="S3^cPE122",V4="S4^cPE122"
80 I %K="K" S IB="PH",V1="S2^cPE122",V2="S3^cPE122",V3="S4^cPE122",V4="S1^cPE122"
82 I %K="K",$D(%HG) S %L=1 D S2^cPE122,S3^cPE122,S4^cPE122,S1^cPE122 S %L=0,K=""
83 I %K="K",$D(%HG) G 160:$N(@("^"_Q_"PH(I1,I2,I3,I4,PR1_"" "")"))'=-1 D SA^cPE122 G 140:$N(@("^"_Q_"PH(I1,I2,I3,I4)"))'=-1 D SA^cPE122 G 120:$N(@("^"_Q_"PH(I1,I2,I3)"))'=-1 D SA^cPE122 G 100:$N(@("^"_Q_"PH(I1,I2)"))'=-1 D SA^cPE122 G 90
84 I %K="M",$D(%MK) S %L=1 D S1^cPE122,S2^cPE122,S3^cPE122,S4^cPE122 S %L=0,K=""
85 I %K="M",$D(%MK) G 160:$N(@("^"_Q_"PM(I1,I2,I3,I4,PR1_"" "")"))'=-1 D SA^cPE122 G 140:$N(@("^"_Q_"PM(I1,I2,I3,I4)"))'=-1 D SA^cPE122 G 120:$N(@("^"_Q_"PM(I1,I2,I3)"))'=-1 D SA^cPE122 G 100:$N(@("^"_Q_"PM(I1,I2)"))'=-1 D SA^cPE122 G 90
90 G 1^cPE120:'$D(@("^"_Q_IB)) S X=$D(@("^"_Q_IB_"(0)")) I K="-"&($N(^(" "))=-1) D S8^cPE122 S %K="" G 1^cPE120
95 D @V1 S:K="-" %K="" G 1^cPE120:K="-" S I1=K1 G 110
100 S X=$D(@("^"_Q_IB_"(I1)"))
110 S X=$D(^(I1,0)) I K="-"&($N(^(" "))=-1) D S8^cPE122 G 90
115 D @V2 G 90:K="-" S I2=K1 G 130
120 S X=$D(@("^"_Q_IB_"(I1,I2)"))
130 S X=$D(^(I2,0)) I K="-"&($N(^(" "))=-1) D S8^cPE122 G 100
135 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)) I K="-"&($N(^(" "))=-1) D S8^cPE122 G 120
155 D @V4 G 120:K="-" S I4=K1
160 S JP=1,%Q2="@(""^""_Q_IB_""(I1,I2,I3,I4,0)"")" D S6^cPE122 S PR1=K1 G 140:K="-" S (PR,I1)=$P(@("^"_Q_"PR1(K1)"),D,1) G YZ
 ;
170 G 1^cPE120:'$D(@("^"_Q_"PL")) I '$D(%LV) S KN=3,FP=$P(UD,D,2)+1*100+1 W @F,@F1 S R="K\"_($P(UD,D,2)+1*100)_$P($T(T1),U,2)_"\LE\L1" D R1^cPE122 S:K="-" %K="" G 1^cPE120:K="-" S SW8=1,(%LV,LV)=$P(@("^"_Q_"LE(K,0)"),D,2),(%LN,K)=$P(K," ",2)
172 I $D(%LV) S K=%LN
175 S X=$D(@("^"_Q_"PL(0)")),T=$P(LE,D,2),M=$P(LE,D,3) I '$D(^(K_" ")) X ^cTXT(0,"N",31) R K G 170
176 D S7^cPE122 I $D(%MK) S %L=1,FP=FP+101 W @F,@F2,%LV D S8^cPE122 S I1=%LN_" " G 179
177 D S0^cPE122,S8^cPE122 S I1=K1,SW8=0
179 I $D(%MK) D S1^cPE122,S5^cPE122 S %L=0,K="" B  G 220:$N(@("^"_Q_"PL(I1,I2,I3,PR1_"" "")"))'=-1 D SA^cPE122 G 200:$N(@("^"_Q_"PL(I1,I2,I3)"))'=-1 D SA^cPE122 G 180:$N(@("^"_Q_"PL(I1,I2)"))'=-1 K %LV,%LN,%MK,%LP G 170
180 S X=$D(@("^"_Q_"PL(I1)"))
190 S X=$D(^(I1,0)) D S1^cPE122 K:K="-" %LV,%LN G 170:K="-" S I2=$S(%L:%MK,1:K1),%L=0 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^cPE122 G 180:K="-" S I3=K1
220 S JP=1,%Q2="@(""^""_Q_""PL(I1,I2,I3,0)"")" D S6^cPE122 S PR1=K1 G 200:K="-" S (I1,PR)=$P(@("^"_Q_"PR1(K1)"),D,1)
 ;
YZ K A,B,I,I2,I3,I4,IB,JP,K1,K2,KN,LV,L1,M,%Q2,%Q3,R,SX,T,V1,V2,V3,V4,VN,VVE Q
 ;
Z X ^cZ Q
ZZ ; 24.04.86 - 11 u 57