Last change
on this file since 1006 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
457 bytes
|
Line | |
---|
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.