Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
457 bytes
|
Rev | Line | |
---|
[613] | 1 | LRLABEL2 ;SLC/TGA - PRINTS LABELS ORDER # FIRST ;2/6/91 08:17
|
---|
| 2 | ;;5.2;LAB SERVICE;**161**;Sep 27, 1994
|
---|
| 3 | ;FOR 3.5 X 15/16 TIME LABEL GSA #
|
---|
| 4 | U IO
|
---|
| 5 | Q:LRCE=""
|
---|
| 6 | S LRTXT=$$LRTXT^LRLABLD(.LRTS,39)
|
---|
| 7 | 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:"???")
|
---|
| 8 | W !,$E(PNM,1,28),!,SSN," W:",LRLLOC,?31,$S(LRRB=0:"",1:"B:"_LRRB)
|
---|
| 9 | W !,LRACC
|
---|
| 10 | I LRXL G SKIP:N-I<LRXL
|
---|
| 11 | W ?15,LRPREF
|
---|
| 12 | SKIP W ?21,LRTOP,!
|
---|
| 13 | W LRTXT,!!
|
---|
| 14 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.