source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRLABEL.m@ 1590

Last change on this file since 1590 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 761 bytes
Line 
1LRLABEL ;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
14SKIP W LRTOP,?15," Order:",LRCE,!
15 W LRTXT,!!
16 Q
17 ;
18BAR ;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
Note: See TracBrowser for help on using the repository browser.