cPE19 G 1 ;KONTROLELIJST PRODUKTEN ;OVERLAY VAN %P18 [ 11/08/2003  3:34 PM ]
 ;
T1 ;BLZ: 
 ;
ER K @("^HBPKP"_$I) 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
 ;
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 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
9 I $L(H) G 13
11 S H=$N(@("^"_Q_"PL(H)")) G 43:H=-1!($L(HH)&(H]HH)),15
13 I $L(G) G 17
15 S G=$N(@("^"_Q_"PL(H,G)")) G 19:'(G=-1!($L(GG)&(G]GG))),11
17 I $L(S) G 24
19 S S=$N(@("^"_Q_"PL(H,G,S)")) G 25:S=-1!($L(SS)&(S]SS)),24
24 S P=$N(@("^"_Q_"PL(H,G,S,P)")) G 19:P=-1 S P1=^(P),PC=$P(@("^"_Q_"PR(P1,0)"),D,1) D SC S @("^HBPKP"_$I_"(PCC)")=P1 G 24
25 S P=""
27 S P=$N(@("^HBPKP"_$I_"(P)")) I P=-1 K @("^HBPKP"_$I) G 15
29 K B S PR=^(P),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 27:$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
 ;