| [613] | 1 | LRLABELG ;DALOI/JMC - 1x3 label for Zebra Stripe printer; 6/4/98
|
|---|
| 2 | ;;5.2;LAB SERVICE;**218**;Sep 27, 1994
|
|---|
| 3 | ; Print Lab labels 25mm X 76mm (1X3) labels.
|
|---|
| 4 | ; Label length = 200 dots.
|
|---|
| 5 | ;
|
|---|
| 6 | N LRFONT,LRZ,ETX,STX
|
|---|
| 7 | ;
|
|---|
| 8 | D LH
|
|---|
| 9 | W STX
|
|---|
| 10 | ;
|
|---|
| 11 | ; Print urgency
|
|---|
| 12 | I $P(LRURGA,"^",2) D
|
|---|
| 13 | . I $P(LRURGA,"^",2)=2 D
|
|---|
| 14 | . . ; Set up graphic box.
|
|---|
| 15 | . . D GB^LRLABELD(340,0,15+($L($P(LRURGA,"^"))*12)_",20,20")
|
|---|
| 16 | . . ; Set field reverse.
|
|---|
| 17 | . . S LRFONT=LRFONT_"^FR"
|
|---|
| 18 | . D PL^LRLABELD(350,3,$P(LRURGA,"^"),LRFONT)
|
|---|
| 19 | . D FONT
|
|---|
| 20 | ;
|
|---|
| 21 | ; Print infection warning if present.
|
|---|
| 22 | I $L($G(LRINFW)) D
|
|---|
| 23 | . ; Make 'big' box else make 'little' box.
|
|---|
| 24 | . I $L(LRINFW)>10 S LRZ=130_",40,40"
|
|---|
| 25 | . E S LRZ=10+($L(LRINFW)*12)_",25,25"
|
|---|
| 26 | . D GB^LRLABELD(442,0,LRZ)
|
|---|
| 27 | . S LRFONT=LRFONT_"^FR"
|
|---|
| 28 | . ; Print infection warning.
|
|---|
| 29 | . D PL^LRLABELD(447,3,$E(LRINFW,1,10),LRFONT)
|
|---|
| 30 | . ; Print remainder of infection warning.
|
|---|
| 31 | . I $L(LRINFW)>10 D PL^LRLABELD(447,21,$E(LRINFW,11,20),LRFONT)
|
|---|
| 32 | . D FONT
|
|---|
| 33 | ;
|
|---|
| 34 | ; Print patient name.
|
|---|
| 35 | S LRFONT="^ADN,36,10"
|
|---|
| 36 | D PL^LRLABELD(0,0,$E(PNM,1,25),LRFONT)
|
|---|
| 37 | D FONT
|
|---|
| 38 | ;
|
|---|
| 39 | ; Print patient identifier.
|
|---|
| 40 | S LRFONT="^ADN,36,10"
|
|---|
| 41 | D PL^LRLABELD(0,40,SSN,LRFONT)
|
|---|
| 42 | D FONT
|
|---|
| 43 | ;
|
|---|
| 44 | ; Print patient location.
|
|---|
| 45 | D PL^LRLABELD(200,40,"Ward: "_LRLLOC,LRFONT)
|
|---|
| 46 | ;
|
|---|
| 47 | ; Print room-bed number.
|
|---|
| 48 | I $L(LRRB) D PL^LRLABELD(200,60," Bed: "_LRRB,LRFONT)
|
|---|
| 49 | ;
|
|---|
| 50 | ; Print accession.
|
|---|
| 51 | D PL^LRLABELD(0,80,LRACC,LRFONT)
|
|---|
| 52 | ;
|
|---|
| 53 | ; Print order number.
|
|---|
| 54 | D PL^LRLABELD(188,80,"Order #"_LRCE,LRFONT)
|
|---|
| 55 | ;
|
|---|
| 56 | ; Print Identifier.
|
|---|
| 57 | D PL^LRLABELD(0,100,LRUID,LRFONT)
|
|---|
| 58 | ;
|
|---|
| 59 | ; Print accession date.
|
|---|
| 60 | D PL^LRLABELD(188,100,LRDAT,LRFONT)
|
|---|
| 61 | ;
|
|---|
| 62 | ; Print collection sample.
|
|---|
| 63 | I LRXL,N-I<LRXL S X=LRTOP
|
|---|
| 64 | E S X=LRPREF_LRTOP
|
|---|
| 65 | D PL^LRLABELD(0,120,$E(X,1,55),LRFONT)
|
|---|
| 66 | ;
|
|---|
| 67 | ; Print list of tests
|
|---|
| 68 | S LRTXT=$$LRTXT^LRLABLD(.LRTS,55)
|
|---|
| 69 | D PL^LRLABELD(0,140,LRTXT,LRFONT)
|
|---|
| 70 | ;
|
|---|
| 71 | W ETX
|
|---|
| 72 | ;
|
|---|
| 73 | Q
|
|---|
| 74 | ;
|
|---|
| 75 | ;
|
|---|
| 76 | LH ; Set Label Home ("LH") parameters.
|
|---|
| 77 | ;
|
|---|
| 78 | S STX=$C(2),ETX=$C(3)
|
|---|
| 79 | ;
|
|---|
| 80 | ; Set Print Orientation ("PO") to Inverted, and Label Home ("LH") parameters.
|
|---|
| 81 | W STX,"^POI^LH240,5",ETX
|
|---|
| 82 | ;
|
|---|
| 83 | FONT ;
|
|---|
| 84 | ; Default font.
|
|---|
| 85 | S LRFONT="^ADN"
|
|---|
| 86 | Q
|
|---|
