LRLABEL2.m

LRLABEL2 ;SLC/TGA - PRINTS LABELS ORDER # FIRST ;2/6/91  08:17

 ;;5.2T9;LR;**1018**;Nov 17, 2004

 ;;5.2;LAB SERVICE;**161**;Sep 27, 1994

 ;FOR 3.5 X 15/16 TIME LABEL GSA #

 U IO

 Q:LRCE=""

 S LRTXT=$$LRTXT^LRLABLD(.LRTS,39)

 W "Order:",LRCE W ?20,$S($D(^LAB(62.05,+$G(LRURG0),0)):$P(^(0),U),$D(^LAB(62.05,+$G(LRURG),0)):$P(^(0),U),1:"???")

 W !,$E(PNM,1,28),!,SSN,"  W:",LRLLOC,?31,$S(LRRB=0:"",1:"B:"_LRRB)

 W !,LRACC

 I LRXL G SKIP:N-I<LRXL

 W ?15,LRPREF

SKIP W ?21,LRTOP,!

 W LRTXT,!!

 Q

LRLABEL2  ;SLC/TGA - PRINTS LABELS ORDER # FIRST ;2/6/91  08:17

 +1       ;;5.2T9;LR;**1018**;Nov 17, 2004

 +2       ;;5.2;LAB SERVICE;**161**;Sep 27, 1994

 +3       ;FOR 3.5 X 15/16 TIME LABEL GSA #

 +4        USE IO

 +5        IF LRCE=""

               QUIT 

 +6        SET LRTXT=$$LRTXT^LRLABLD(.LRTS,39)

 +7        WRITE "Order:",LRCE

           WRITE ?20,$SELECT($DATA(^LAB(62.05,+$GET(LRURG0),0)):$PIECE(^(0),U),$DATA(^LAB(62.05,+$GET(LRURG),0)):$PIECE(^(0),U),1:"???")

 +8        WRITE !,$EXTRACT(PNM,1,28),!,SSN,"  W:",LRLLOC,?31,$SELECT(LRRB=0:"",1:"B:"_LRRB)

 +9        WRITE !,LRACC

 +10       IF LRXL

               IF N-I<LRXL

                   GOTO SKIP

 +11       WRITE ?15,LRPREF

SKIP       WRITE ?21,LRTOP,!

 +1        WRITE LRTXT,!!

 +2        QUIT