KPDP1 G 1 ;LIJST DEELPRODUKTEN ;Go naar KPDP2, KPDP3, KPDP4 [ 03/26/2001  2:52 PM ]
 ;
S2 S ^("PRC")=PRC,^("PRCX")=PRCX
S2Z Q
 ;
S3 F I="HG","GR","SG","MK","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S3Z Q
 ;
S4 F I="LE","PRC" S ^(I)=@I,^(I_"X")=@(I_"X")
S4Z Q
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S DOC=$P($T(+1),";",2),LSTX="K"
13 S SELK=0 D PP^KPSEL G YZ:K="-"
15 D INIT^vhPRINTER(132) G 13:'$D(Print)
 ;
2 K DOC,LSTX,SELK G @("^KPDP"_$F("PKL",LST))
 ;
YZ Q
 ;