|
Last change
on this file since 613 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.
