LRLABEL2.m

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

 ;;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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRLABEL2   471     printed  Oct 16, 2024@18:16:38                                                                                                                                                                                                     Page 2

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

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

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

 +3        USE IO

 +4        if LRCE=""

               QUIT 

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

 +6        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:"???")

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

 +8        WRITE !,LRACC

 +9        IF LRXL

               if N-I<LRXL

                   GOTO SKIP

 +10       WRITE ?15,LRPREF

SKIP       WRITE ?21,LRTOP,!

 +1        WRITE LRTXT,!!

 +2        QUIT