KPLBR1 G 1 ;LIJST BESTELREFERENTIES PER LEVERANCIER ;Go naar KPLBR2, KPLBR3, KPLBR4 [ 03/27/2001  8:45 AM ]
 ;
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="L"
13 S SELK=1 D PP^KPSEL G YZ:K="-"
15 D INIT^vhPRINTER(80) G 13:'$D(Print)
 ;
2 K DOC,LSTX,SELK G @("^KPLBR"_$F("PKLBU",LST))
 ;
YZ Q
 ;