PPRL6 G 1 ;VERKOOPPRIJZEN ;(VOLGENS UTILIDATA);KPRL1;Go van KPRL1 - Do naar KPSELS [ 04/09/2001   2:35 PM ]
 ;
1 S:'$D(MAC) MAC=0 S BLZ=0
 If 'MAC D INIT^vhPRINTER(132) G YZ:'$D(Print) S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 S (PLN,PLX,PLNX)="",I=100 G 19:$N(B(I))=-1 I 'MAC D HD^PPRLP($P($T(+1),U,3)),^KPSELS
19 S Q1=Q0,Q0="^"_Q_"PR(PR,0)"
23 D HD^PPRLP($P($T(+1),U,3))
25 S UTN=$N(@Q1) I UTN=-1 G 160:MAC W !,$P($T(T3^PPRLP),U,2) W:KPK $P($T(T3^PPRLP),U,3) W $P($T(T3^PPRLP),U,4),# G 160
100 S PR=^(UTN) D ^KPCHKPR G 25:'OK
 D PRINT^PPRLP($P($T(+1),U,3))
140 G 25
160 D:'MAC CLOSE^vhPRINTER
YZ Q
 ;