KP19 G 1 ;KONTROLELIJST PRODUKTEN ;OVERLAY VAN KP18 - NAAR KP19A [ 11/07/2001  9:11 AM ]
 ;
1 S X=$N(@("^"_Q_"PR(0,0)")),(X,Y)=100,TST="X>300",TA1="A",TA2="P",TA3="I",TA4="J",TY="TS1" D S1 S Y=500
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",TA1="AAA",TA2="PPP",TA3="III",TA4="JJJ",TY="TS3" D S1 S MAX=MAX+1
7 D ^KP19A
 ;
YZ 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
 ;