| 1 | LRLABEL ;SLC/TGA - PRINTS STANDARD LABELS 3.5X15/16 ;2/6/91 08:18
|
|---|
| 2 | ;;5.2;LAB SERVICE;**161**;Sep 27, 1994
|
|---|
| 3 | ;FOR 3.5 X 15/16 LABEL
|
|---|
| 4 | U IO
|
|---|
| 5 | S LRTXT=$$LRTXT^LRLABLD(.LRTS,54)
|
|---|
| 6 | I $G(LRBAR(+$G(LRAA)),0) D BAR Q ; Print barcode label
|
|---|
| 7 | W LRACC
|
|---|
| 8 | I $P(LRURGA,"^",2),$L(LRURGA,"^") W ?20,$P(LRURGA,"^")
|
|---|
| 9 | W:$L(LRINFW) ?27,LRINFW
|
|---|
| 10 | W !,$E(PNM,1,22),?24,$P(LRDAT," "),!,SSN," W:",LRLLOC,?20,$S(LRRB=0:"",1:" B:"_LRRB)
|
|---|
| 11 | W !
|
|---|
| 12 | I LRXL G SKIP:N-I<LRXL
|
|---|
| 13 | W LRPREF
|
|---|
| 14 | SKIP W LRTOP,?15," Order:",LRCE,!
|
|---|
| 15 | W LRTXT,!!
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | BAR ;Print Bar code label
|
|---|
| 19 | W LRACC
|
|---|
| 20 | I $P(LRURGA,"^",2),$L(LRURGA,"^") W ?15,$P(LRURGA,"^")
|
|---|
| 21 | W:$L(LRINFW) ?21,LRINFW
|
|---|
| 22 | W !,$E(PNM,1,20),?22,$P(SSN,"-",3),!
|
|---|
| 23 | W:'$L(LRBAR1)!('$L(LRBAR0)) !
|
|---|
| 24 | I $L(LRBAR1),$L(LRBAR0) W @LRBAR1,LRBARID,@LRBAR0
|
|---|
| 25 | W:$D(LRTXT) LRTXT
|
|---|
| 26 | W !!
|
|---|
| 27 | Q
|
|---|
