cPE122 Q  ; RAADPLEGEN - WIJZIGEN - VERWIJDEREN PRODUKTEN ;OVERLAY VAN %PE121 [ 11/08/2003  3:29 PM ]
 ;
T1 ;NAAM OF NUMMER VAN 
T2 ;   [] = vervolg
T3 ;VOLGNUMMER OF 
T4 ;\[] = vervolg
T5 ;" " = ZONDER
T6 ;ZONDER
T7 ;VOLGNUMMER VAN DE PRODUKTKODE
 ;
R1 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R1A S FP=2403+F60 W @F,@F1,$P($T(T1),U,2),RA W:R0 $P($T(T2),U,2) W " : ",@F0
R1B R K G R1A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G R1Z:K="-" I K="" S R1=R4 G R1H:R0,R1D
R1C G R1D:K'?.N,R1K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R1M
R1D S R6="" F R7=1:1:$L(K) I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R1E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G R1K:R2=-1 S R2=$N(^(R2))
R1F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G R1M
R1G S R2=R5
R1H S R2=$N(@(R8_"(R2)")) G R1K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R1L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R1A
R1I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R1J S R1=R1+100 G R1H:R1<(2300+F60) S R0=1 G R1A
R1K X ^cTXT(0,"N",8) R K
R1L S (R2,R0)=0 G R1A
R1M S (@$P(R,D,1),K)=R3
R1Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V2.3 13.02.85
 ;
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(T3),U,2) W T," ",$P($P($T(T4),U,2),D,VVE+1)," : ",@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(%Q2) @%Q2 G S0D1
S0B1 S:$L(%Q2) @%Q2
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(%Q2) @%Q2
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 S:SW9 FP=FP-KN+2 W @F,@F2,VN,". " W:K1="  " $P($T(T5),U,2) W:'$L(%Q3) K1 W:$L(%Q3) @%Q3 S N(VN)=K1
S0F1 S L1=L1+1,VN=VN+1 G S0D1:L1<23 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+F60 W:'SW8 @F,@F1,K1 W:K1="  "&$L(T) @F,$P($T(T6),U,2) W:SW8&(K1'="  ") @F,LV
S0Z K N Q
 ;
S1 S T=$P(MK,D,2),M=$P(MK,D,3),%M=1 D:'%L S7,S0,S8 D:%L S7,S9 S:'%L&(K'="-") %MK=K1 K:K="-" %MK Q
S2 S T=$P(HG,D,2),M=$P(HG,D,3),%M=2 D:'%L S7,S0,S8 D:%L S7,S9 S:'%L&(K'="-") %HG=K1 K:K="-" %HG Q
S3 S T=$P(GR,D,2),M=$P(GR,D,3),%M=3 D:'%L S7,S0,S8 D:%L S7,S9 S:'%L&(K'="-") %GR=K1 K:K="-" %GR Q
S4 S T=$P(SG,D,2),M=$P(SG,D,3),%M=4 D:'%L S7,S0,S8 D:%L S7,S9 S:'%L&(K'="-") %SG=K1 K:K="-" %SG Q
S5 S T=$P(LP,D,2),M=$P(LP,D,3),%M=5 D:'%L S7,S0,S8 D:%L S7,S9 S:'%L&(K'="-") %LP=K1 K:K="-" %LP Q
S6 S SW9=1,T=$P($T(T7),U,2),%Q3="$P(@(""^""_Q_""PR(^(K1),0)""),D,1),$J("""",33-$L($P(^(0),D,1))),$P(^(0),D,2)",%Q2="X=$D("_%Q2_")" G S0
 ;
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,(%Q2,%Q3)="" Q
 ;
S8 S:K'="-" KN=KN+M+5,B(A)=M,A=A+1 S:K="-"&(A>0) A=A-1,KN=KN-B(A)-5
S8Z Q
 ;
S9 S FP=FP+101,K=$S(%M=1:%MK,%M=2:%HG,%M=3:%GR,%M=4:%SG,%M=5:%LP) S:%K="M" @("I"_%M)=K W @F,@F2,K
S9A I %K="K" S @("I"_$S(%M-1<1:4,1:%M-1))=K
S9B I %K="L" S @("I"_$S(%M=1:2,1:3))=K
S9Z D S8 Q
 ;
SA S K="-" D S8 S K="" Q
 ;
ER G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
Z X ^cZ Q
ZZ ; 24.04.86 - 11 u 57