KP19A G 1 ;KONTROLELIJST PRODUKTEN ;OVERLAY VAN KP19 [ 08/05/2002  11:42 AM ]
 ;
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 X "S U3="_@(TA2_"("_J_")") S R0=U3
S5A I $L(@(TA2_"("_J_"+@TY)")) S K=R1 X "S U3="_@(TA2_"("_J_"+@TY)") S R1=U3
S5B W @(TA1_"("_J_")"),?MAX,": ",$E(R0,1,61-MAX),?65,@(TA1_"("_J_"+@TY)"),?65+MAX,": ",$E(R1,1,61-MAX)
S5Z 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,"BLZ: ",$J(BLZ,3),!,NM1,?39,@F82,$P($T(+1),U,2),@F83,$C(13),?122,DT
S4A W !,NM2,?123,TD,!
S4Z Q
 ;
1 D S4
9 I $L(H) S HX=H G 13
11 S (H,HX)=$N(@("^"_Q_"PL(H)")) G 43:H=-1!($L(HH)&(H]HH)),15
13 I $L(G) S GX=G G 17
15 S (G,GX)=$N(@("^"_Q_"PL(H,G)")) G 19:'(G=-1!($L(GG)&(G]GG))) S LN=58 G 11
17 I $L(S) S SX=S G 24
19 S (S,SX)=$N(@("^"_Q_"PL(H,G,S)")) G 15:S=-1!($L(SS)&(S]SS)),24
24 S P=$N(@("^"_Q_"PL(H,G,S,P)")) G 19:P=-1
29 K B S PR=+^(P),B(1)=@("^"_Q_"PR(PR,0)") F I=1:1:3 I $D(^(I)) S B(I+1)=^(I)
31 S TA1="A",TA2="P",TA3="I",TA4="J",TY="TS1",LIN="==========" W:LN'=0 !!!! D S2 S I2="J",LIN=".........."
33 K B S I2=$N(@("^"_Q_"PR(PR,I2)")) G 37:$E(I2,1,1)'="J" S B(1)=^(I2)
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)")) G 24:$E(I2,1,1)'="I" S B(1)=^(I2)
41 S TA1="AA",TA2="PP",TA3="II",TA4="JJ",TY="TS2" D S2 G 39
43 W #
 D CLOSE^vhPRINTER
 ;
YZ K A,AA,AAA,I,II,III,J,JJ,JJJ,P,PP,PPP Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32