LRLABEL1 ;SLC/TGA - PRINTS LABELS 2X5 UNEVEN ;2/6/91  08:18
 ;;5.2;LAB SERVICE;**161**;Sep 27, 1994
 ;For the 10 part SLC label at 16.5 CPI, With 1 label per 4 tests.
1 U IO
 S LRDAT=$P(LRDAT," ")
 S LRTXT=$$LRTXT^LRLABLD(.LRTS,45)
 S A=0,T=1
 F C=1:1:T D T,T1
 Q
 ;
T W !,$E(PNM,1,$S($L(LRINFW):18,1:28)),@$S($L(LRINFW):"?19",1:"?28"),LRINFW
 W ?30,LRACC
 F J=1:1:4 W ?(J*22+27),LRACC
 W !,SSN,"  W:",$E(LRLLOC,1,17),?33,LRDAT F J=1:1:4 W ?(J*22+27),LRDAT
 W ! I LRXL G SKIP:N-I<LRXL
 W LRPREF
SKIP W LRTOP,?15," Order:",LRCE
 S LRLPNM=$P(PNM,",",1),LRLPNM=LRLPNM_$S($L(LRLPNM)<17:","_$E($P(PNM,",",2),1),1:"")
 F J=1:1:4 W ?(J*22+27),$E(LRLPNM,1,17)
 K LRLPNM
 W !,LRTXT
 F J=1:1:4 W ?(J*22+27),$E(LRTOP,1,17)
 Q
 ;
T1 W:'$L($G(LRBAR1)) !
 W !,$E(PNM,1,28) W ?30,LRACC
 F J=1:1:4 W ?(J*22+27),LRACC
 W !,SSN,"  W:",$E(LRLLOC,1,17),?33,LRDAT
 F J=1:1:4 W ?(J*22+27),LRDAT
 W:'$L($G(LRBAR1)) !!
 W:$L($G(LRBAR1)) !,@LRBAR1,LRBARID,@LRBAR0,!