32 lines
941 B
Mathematica
32 lines
941 B
Mathematica
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,!
|