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