cPE8 G 1 ;KONTROLELIJST PRODUKTEN ;OVERLAY NAAR %PE123,%PE124 [ 11/08/2003  3:56 PM ]
 ;
T1 ;BLZ: 
 ;
ER X F71 G ^II:$ZE["<INTERRUPT>",^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
 ;
S5 W ! S LN=LN+1 S R0=$P(B(@(TA3_"("_J_")")),D,@(TA4_"("_J_")")),R1=$P(B(@(TA3_"("_J_"+@TY)")),D,@(TA4_"("_J_"+@TY)")) I $L(@(TA2_"("_J_")")) S K=R0,U3=K X "S U3="_@(TA2_"("_J_")") S R0=U3
S5A I $L(@(TA2_"("_J_"+@TY)")) S K=R1,U3=K X "S U3="_@(TA2_"("_J_"+@TY)") S R1=U3
S5B W @(TA1_"("_J_")"),?MAX,":",HX,$E(R0,1,61-MAX),?65,@(TA1_"("_J_"+@TY)"),?65+MAX,": ",$E(R1,1,61-MAX)
S5Z S HX=" " Q
 ;
S2 S SW=SW+1 D S3 F I=1:1:13 W LIN
S2A F J=1:1:@TY D S5
S2Z Q
 ;
S3 W ! S LN=LN+1 I 58-@TY<LN W # D S4 G S3
S3Z Q
 ;
S4 S BLZ=BLZ+1,LN=0 W !,QN,?122,$P($T(T1),U,2),$J(BLZ,3),!,NM1,?39,@F82,$P($T(+1),U,2),@F83,$C(13),?122,DT
S4A W !,NM2,?123,TD,!
S4Z Q
 ;
1 S FP=228+$L(QN),BLZ=0 W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),QN," ",@F5
10 S NM1=@("^"_Q_"BA(99,2)"),NM2=^(3),I1=0,BLZ=0,U=";",I1X=" ",I2X="",LN=0,MAX=0,SW=0
11 F I="HG","GR","SG","MK","L","LE","LP" I $D(@("^"_Q_"PR(0,I)")) S @I=^(I)
12 S X=$N(@("^"_Q_"BA(18,-1)")) F X=0:1:9 S:$D(^(X)) PBTW(X)=$P(^(X),D,1) S:$D(^(X+10)) PTXT(X)=$P(^(X+10),D,1)
2 D ^cPE123 G YZ:K="-" S HX=" ",X=$N(@("^"_Q_"PR(0,0)")),(X,Y)=100,TST="(X-Y)>100",TA1="A",TA2="P",TA3="I",TA4="J",TY="TS1" D S1
3 S X=Y,Y=$N(^(Y)),TST="(X-Y)>50",TA1="AA",TA2="PP",TA3="II",TA4="JJ",TY="TS2" D S1
5 S X=Y,Y=$N(^(Y)),TST="(X-Y)>50!(X'?.N)",TA1="AAA",TA2="PPP",TA3="III",TA4="JJJ",TY="TS3" D S1 S MAX=MAX+1
7 X F70 W @F80 D S4
24 D ^cPE124 G YZ:PR=-1
29 K B S B(1)=@("^"_Q_"PR(PR,0)") F I=1:1:6 I $D(^(I)) S B(I+1)=^(I)
31 S TA1="A",TA2="P",TA3="I",TA4="J",TY="TS1",LIN="==========" D S2 S I2="J",LIN=".........."
33 K B S I2=$N(@("^"_Q_"PR(PR,I2)")),HX=" " G 37:$E(I2,1,1)'="J" S B(1)=^(I2) S:$P(B(1),D,35)="*" HX="*"
35 S TA1="AAA",TA2="PPP",TA3="III",TA4="JJJ",TY="TS3" D S2 G 33
37 S I2="I"
39 K B S I2=$N(@("^"_Q_"PR(PR,I2)")),HX=" " G 24:$E(I2,1,1)'="I" S B(1)=^(I2) S:$P(B(1),D,35)="*" HX="*"
41 S TA1="AA",TA2="PP",TA3="II",TA4="JJ",TY="TS2" D S2 G 39
43 W # X F71
 ;
YZ K A,AA,AAA,I,II,III,J,JJ,JJJ,P,PP,PPP Q
 ;
S1 S K=0
S1A S X=$N(^(X)) G S1D:X=-1 I @TST G S1D
 S Y=X,K=K+1,@(TA1_"("_K_")")=$P(^(X),U,1),@(TA2_"("_K_")")=$P(^(X),U,8)
S1C S R=$L(@(TA1_"("_K_")")) S:R>MAX MAX=R S @(TA3_"("_K_")")=$P(^(X),U,16),@(TA4_"("_K_")")=@(TA3_"("_K_")")#100,@(TA3_"("_K_")")=@(TA3_"("_K_")")\100 G S1A
S1D S:K#2 K=K+1,(@(TA1_"("_K_")"),@(TA2_"("_K_")"))="",@(TA3_"("_K_")")=1,@(TA4_"("_K_")")=99 S @TY=K\2
S1Z Q
 ;