cPE42 G 70 ;LIJST DEELPRODUKTEN ;Go naar %P41 [ 11/08/2003  3:51 PM ]
 ;
T1 ;BLZ:
T2 ; DEELPRODUKT
T3 ; : AANTAL :
 ;
ER K @("^"_Q_"HBPDP($I)") W # X F71 G:$ZE["<INTERRUPT>" ^II G ^cER
 ;
SC S SI="",T=0 F SC=1:1:99 S SC1=$E(PC,SC) G SCZ:SC1="" I SC1'?1P S SI=SI_SC1
SCZ S PCC=SI_" " K SI,SC,SC1 Q
 ;
S1 W !,":" W:$L($P(HG,D,2)) $E(@INF,1,$P(HG,D,1)+2),":" W:$L($P(GR,D,2)) $E(@INF,1,$P(GR,D,1)+2),":"
S1A W:$L($P(SG,D,2)) $E(@INF,1,$P(SG,D,1)+2),":" W:$L($P(MK,D,2)) $E(@INF,1,$P(MK,D,1)+2),":"
S1B W $E(@INF,1,$P(PD,D,1)+2),":",$E(@INF,1,$L($P(PD,D,2))),$E(@INF,1,14),$E(@INF,1,$P(PD,D,1)-12-$L($P(PD,D,2))),":",$E(@INF,1,8),":"
S1Z Q
 ;
S2 S LN=LN+1 I LN>50 S INF="LIN" D S1 W # D H1 G S2Z:'$L(PXD)
S2A W !,": " W:$L($P(HG,D,2)) HX,$J("",$P(HG,D,1)-$L(HX)+1),": " W:$L($P(GR,D,2)) GX,$J("",$P(GR,D,1)-$L(GX)+1),": "
S2B W:$L($P(SG,D,2)) SX,$J("",$P(SG,D,1)-$L(SX)+1),": " W:$L($P(MK,D,2)) MX,$J("",$P(MK,D,1)-$L(MX)+1),": "
S2C W PX,$J("",$P(PD,D,1)-$L(PX)+1),": ",PXD,$J("",$P(PD,D,1)-$L(PXD)+1),$J("",0),": " W:'PDA $J("",6) W:PDA $J(PDA,6,0) W " :"
S2Z Q
 ;
70 X F70 W @F80 S VPL=0 F I="HG","GR","SG","MK","PD" I $L($P(@I,D,2)) S VPL=VPL+@I+3
72 S VPL=VPL+$L($P(PD,D,2))+12+$L($J("",$P(PD,D,1)-12-$L($P(PD,D,2))))+5 D H1
75 I $L(H) S HX=H G 85
80 S (H,HX)=$N(@("^"_Q_"PH(H)")) G 160:H=-1!($L(HH)&(H]HH)),90
85 I $L(G) S GX=G G 95
90 S (G,GX)=$N(@("^"_Q_"PH(H,G)")) G 100:'(G=-1!($L(GG)&(G]GG))) G 80:INF="LIN" S INF="LIN",LN=LN+1 D S1 G 80
95 I $L(S) S SX=S G 105
100 S (S,SX)=$N(@("^"_Q_"PH(H,G,S)")) G 90:S=-1!($L(SS)&(S]SS)),110
105 I $L(M) S MX=M G 114
110 S (M,MX)=$N(@("^"_Q_"PH(H,G,S,M)")) G 100:M=-1!($L(MM)&(M]MM)),114
114 S P=$N(@("^"_Q_"PH(H,G,S,M,P)")) S:P'=-1 P1=^(P) G 116:P=-1&$D(@("^"_Q_"HBPDP($I)")),110:P=-1,114:$E($N(@("^"_Q_"PR(P1,""D"")")),1)'="D" S PC=$P(^(0),D,1) D SC S @("^"_Q_"HBPDP($I,PCC,0)")=PC_D,PRD="D",PCCC=PCC
115 S PRD=$N(@("^"_Q_"PR(P1,PRD)")) G 114:$E(PRD,1)'="D" S PDA=+^(PRD),PRDD=$E(PRD,2,99),PC=$P(@("^"_Q_"PR(PRDD,0)"),D,1) D SC S @("^"_Q_"HBPDP($I,PCCC,PCC)")=PC_D_PDA_D G 115
116 S PCCC=""
120 S PCCC=$N(@("^"_Q_"HBPDP($I,PCCC)")) I PCCC=-1 K @("^"_Q_"HBPDP($I)") G 110
130 S PX=$P(^(PCCC,0),D,1),PCC=0
140 S PCC=$N(^(PCC)) I PCC=-1 S (PXD,PDA)="" D S2 G 120
150 S X=^(PCC),PXD=$P(X,D,1),PDA=$P(X,D,2) D S2 S (HX,GX,SX,MX,PX)="" G 140
160 S INF="LIN" D S1 W # X F71 G 20^cPE41
YZ B 0 Q
 ;
H1 S BLZ=BLZ+1,LN=0 W !,NM1,?VPL,$P($T(T1),U,2),$J(BLZ,4),!,NM2,?(VPL/2-12),@F82,$P($T(+1),U,2),@F83,$C(13),?VPL,DT
H1A W !,NM3,?(VPL+1),TD,!
H1B W !!,": " W:$L($P(HG,D,2)) $P(HG,D,2),$J("",$P(HG,D,1)-$L($P(HG,D,2)))," : "
H1C W:$L($P(GR,D,2)) $P(GR,D,2),$J("",$P(GR,D,1)-$L($P(GR,D,2)))," : "
H1D W:$L($P(SG,D,2)) $P(SG,D,2),$J("",$P(SG,D,1)-$L($P(SG,D,2)))," : "
H1E W:$L($P(MK,D,2)) $P(MK,D,2),$J("",$P(MK,D,1)-$L($P(MK,D,2)))," : "
H1F W $P(PD,D,2),$J("",$P(PD,D,1)-$L($P(PD,D,2)))," : "
H1G W $P(PD,D,2),$P($T(T2),U,2),$J("",$P(PD,D,1)-12-$L($P(PD,D,2))),$P($T(T3),U,2) S INF="LIN" D S1
H1Z Q
 ;
Z X ^cZ Q
ZZ ; 18.10.85 - 15 u 44