cPE21 G 170 ;RAADPLEGEN PRODUKTEN ;OVERLAY VAN %P20
 ;
T1 ;RAADPLEGEN : 
T2 ;x[] = scherm 1
T3 ;E[] = eindprodukt      
T4 ;D[] = deelprodukten 
T5 ;K[] = klassifikaties   
T6 ;L[] = leveranciers     
T7 ;.[] = detail     -[] = einde
T8 ;EINDPRODUKTEN 
T9 ;DEELPRODUKTEN
T10 ;DEELPRODUKTEN   [] = vervolg   -[] = selektie : 
T11 ;KLASSIFIKATIES 
T12 ;LEVERANCIERS 
T13 ;$P("KLASSIFIKATIE\LEVERANCIER",D,SW+1)
T14 ;$P("\   [] = vervolg",D,VVE+1)
T15 ;   -[] = einde : 
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
170 K A S U4=0 G 265:SW10 S I1=HI1,(SW1,SW5,SW7)=1,FP=2203+F60 W @F,@F1,$P($T(T1),U,2)
175 W !?2,$P($T(T2),U,2) W:SW4>1 "-",SW4 W:SW4=1 "  " W $J("",7) W:$D(@("^"_Q_"PR(HI1,""E"")")) $P($T(T3),U,2) W:$D(@("^"_Q_"PR(HI1,""D"")")) $P($T(T4),U,2)
180 W !?2 W:$D(@("^"_Q_"PR(HI1,""I"")")) $P($T(T5),U,2) W:$D(@("^"_Q_"PR(HI1,""J"")")) $P($T(T6),U,2) W $P($T(T7),U,2),@F0
190 S FP=2216+F60 W @F,@F2,@F0 R U5 G 190:U5?.E1C.E,190:$L(U5)>1,90^cPE20:U5="-",1^cPE210:U5=".",190:U5="",210:"EDKL"[U5,190:U5<1!(U5>SW4),200:U5?1N,190
200 S SW2=U5,X=SW2*100,U4=2,FP=455 W @F,@F2 S:SW2=1 X=X+2 G 95^cPE20
 ;
210 K A,B,T S (SW2,SW10)=0,FP=255 W @F,@F2 S FP=455 W @F,@F2 S FP=601 W @F,@F1 S FP=471 W @F,@F5 G 250:"KL"[U5,170:'$D(@("^"_Q_"PR(HI1,U5)")) S (Y,I2)=U5,VN=0
215 S FP=455 W @F,@F4 W:U5="E" $P($T(T8),U,2) W:U5="D" $P($T(T9),U,2) W @F5
220 G 230:SW10=0 S FP=2303+F60 W @F,$P($T(T10),U,2),@F0 R U5 G 220:U5?.E1C.E,220:"-"'[U5 I U5="-" S SW10=0 G 170
230 S FP=602 W @F,@F1
235 S FP=FP+100 G 240:(FP\100)=17 S VN=VN+1,Y=$N(@("^"_Q_"PR(HI1,Y)")) G 240:$E(Y,1)'=I2 S K=$P(^(Y),D,1),X=$P(@("^"_Q_"PR($E(Y,2,99),0)"),D,1) W @F,$J(VN,2),". ",X W $J("",28-$L(X)+4-$L(K)),"x",K,"   ",$E($P(^(0),D,2),1,30) G 235
240 I $E(Y,1)'=I2 S SW10=0 G 170
245 S SW10=1 G 220
 ;
250 S U4=2,I2="I",(SW,Y)=0 S:U5="L" I2="J",SW=1,Y=100 G 170:'$D(@("^"_Q_"PR(HI1,I2)")) S HI2=I2,SW10=1
253 S FP=455 W @F,@F4 W:'SW $P($T(T11),U,2) W:SW $P($T(T12),U,2) W @F5
254 S X=I2,X=$N(@("^"_Q_"PR(HI1,X)")) G 170:$E(X,1)'=I2 S T(1)=X,X=$N(^(X)) G 255:$E(X,1)=I2
255 S FP=$P(L,D,2)*100+3 I 'SW F I="HG","GR","SG" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="HG" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
257 I SW F I="LE","MK","LP" S (X,FP)=FP+$P(@I,D,3)+3 S:I'="LE" (X,FP)=FP+2 W @F,@F5 S FP=FP-$P(@I,D,3)-3 W @F,@F4,$P(@I,D,2),$J("",($P(@I,D,3)-$L($P(@I,D,2))+1)),@F5 S FP=X
258 K T S LN=$P(L,D,2)+1,VN=0,VVE=1,FP=LN*100+2 W @F,@F1
259 S LN=LN+1 G 264:LN=22 S VN=VN+1,I2=$N(@("^"_Q_"PR(HI1,I2)")) G 264:$E(I2,1)'=HI2 S U7=^(I2),T(VN)=I2,X=4 S FP=LN*100+1 W @F,VN
260 I 'SW W:$P(U7,D,35)="*" " *" F I=1:1:3 S FP=LN*100+X W @F,$P(U7,D,I) S X=X+$P(@($P("HG\GR\SG",D,I)),D,3)+5
262 I SW W:$P(U7,D,35)="*" " *" F I=1:1:3 S FP=LN*100+X W @F W:I'=1 $P(U7,D,I) W:I=1 $P(@("^"_Q_"LE(@(""^""_Q_""L1($P(U7,D,I))""),0)"),D,2) S X=X+$P(@($P("LE\MK\LP",D,I)),D,3)+5
263 G 259
264 I $D(T(1))&('$D(T(2))) S U5=1 G 270
265 S:$E(I2,1)'=HI2 VVE=0 S FP=2303+F60 W @F,@F1,"x[] = ",@$P($T(T13),U,2),@$P($T(T14),U,2),$P($T(T15),U,2),@F0 R U5 G 265:U5=""
267 G 265:U5?.E1C.E,258:VVE&(U5=""),280:U5="-",265:'$D(T(U5))
270 S B(1)=@("^"_Q_"PR(HI1,T(U5))"),X=$D(@("^"_Q_"PR(0,0)")),X=SW4*100+100,(X,Z)=$N(^(X))+Y-1,K=100 G 110^cPE20
280 S (SW10,Z)=0,SW5=1 G 170
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 17.07.85 - 15 u 02