source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRLABEL2.m@ 1549

Last change on this file since 1549 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 457 bytes
Line 
1LRLABEL2 ;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
12SKIP W ?21,LRTOP,!
13 W LRTXT,!!
14 Q
Note: See TracBrowser for help on using the repository browser.