cPE120 G 1 ; RAADPLEGEN - WIJZIGEN - VERWIJDEREN PRODUKTEN ;GO NAAR %PE121 [ 11/08/2003  3:28 PM ]
 ;
T1 ;VOLGNUMMER OF 
T2 ;  [] = vervolg
T3 ;PRODUKT VIA : .
T4 ;K[] = klassif   L[] = leveranc   P[] = produktk   -[] = einde
T5 ;\PRODUKTKODE
 ;
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),U,2) W RA W:R0 $P($T(T2),U,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:$L(K) 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
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
1 F I="L","HG","GR","SG","LE","LP","MK" S @I=@("^"_Q_"PR(0,I)")
5 Q:$D(KE)  S KN=3,K="",%L=0,SW2=1,(A,SW8,SW9,SW10)=0 G 230:$D(%PR) I $D(%K) G 70^cPE121:"MK"[%K&$L(%K),170^cPE121:%K="L"
10 K %LN,%LV,%MK,%HG,%GR,%SG,%LP S FP=UL*100+1 W @F,@F1 S FP=2303+F60 W @F,$P($T(T3),U,2),!,?2 W:$L($P(MK,D,2)) $E($P(MK,D,2),1),"[] = ",$E($P(MK,D,4),1,4),"   " W $P($T(T4),U,2)
20 S FP=2317+F60 W @F,@F0 R %K S (K,K1)=%K G 10:%K?.E1C.E,240:K1="-",10:%K="",70^cPE121:%K="K"!(%K=$E($P(MK,D,2),1)),170^cPE121:%K="L",230:%K="P",10
 ;
230 S R="R\"_($P(UD,D,2)+1*100)_$P($T(T5),U,2)_"\PR\PR1" D R7 K:K="-" %PR G 10:K="-" S (PR1,K1)=$P(@("^"_Q_"PR1(R)"),D,1)
240 S (%PR,I1,PR)=K1,FP=$P(UD,D,2)+1*100 W @F,@F1 I %PR="-" K %PR
 ;
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