| 1 | LRBARC ;DALISC/JMC - INTERMEC 4100 1x3 LABEL FORMAT ;8/29/94 12:36
|
|---|
| 2 | ;;5.2;LAB SERVICE;**161**;Sep 27, 1994
|
|---|
| 3 | ;Designed for a Intermec 4100 printer.
|
|---|
| 4 | ;
|
|---|
| 5 | Q
|
|---|
| 6 | ; Called by LRBARCF
|
|---|
| 7 | ;
|
|---|
| 8 | FMT ;
|
|---|
| 9 | U IO
|
|---|
| 10 | D INIT^LRBARA
|
|---|
| 11 | I LRFMT=7 D NOBAR
|
|---|
| 12 | I LRFMT=8 D BAR
|
|---|
| 13 | I LRFMT=9 D BAR1
|
|---|
| 14 | D TERM^LRBARA
|
|---|
| 15 | Q
|
|---|
| 16 | ;
|
|---|
| 17 | NOBAR ; Regular labels no bar code (old style)
|
|---|
| 18 | W STX,"F",LRFMT,";H0;o0,570;f1;c2;d0,50;h2;w1;",ETX ; Patient name/SSN
|
|---|
| 19 | W STX,"F",LRFMT,";H1;o35,570;f1;c2;d0,50;h2;w1;",ETX ; Infection warning/order #
|
|---|
| 20 | W STX,"F",LRFMT,";H2;o70,570;f1;c2;d0,50;h2;w1;",ETX ; Test
|
|---|
| 21 | W STX,"F",LRFMT,";H3;o105,570;f1;c2;d0,50;h2;w1;",ETX ; Accession/urgency/location
|
|---|
| 22 | W STX,"F",LRFMT,";H4;o140,570;f1;c2;d0,50;h2;w1;",ETX ; Tube volume
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | BAR ; Bar code 39 (old style)
|
|---|
| 26 | W STX,"F",LRFMT,";H0;o0,570;f1;c0;d0,50;h2;w1;",ETX ; Patient/SSN
|
|---|
| 27 | W STX,"F",LRFMT,";H1;o30,570;f1;c0;d0,50;h2;w1;",ETX ; Infection warning
|
|---|
| 28 | W STX,"F",LRFMT,";H2;o60,570;f1;c0;d0,50;h2;w1;",ETX ;Test
|
|---|
| 29 | W STX,"F",LRFMT,";H3;o90,570;f1;c0;d0,50;h2;w1;",ETX ; Accession/urgency/location
|
|---|
| 30 | W STX,"F",LRFMT,";H4;o60,160;f2;c2;d0,50;h1;w2;",ETX ;Accession
|
|---|
| 31 | W STX,"F",LRFMT,";B5;o120,570;f1;c0,1;h40;w1;i0;d0,20;p@",ETX ; Barcode
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | BAR1 ; Bar code labels (multiple symbologies)
|
|---|
| 35 | W STX,"F",LRFMT,";H0;o0,570;f1;c2;h2;w1;d0,25;",ETX ; Patient name
|
|---|
| 36 | W STX,"F",LRFMT,";H1;o31,570;f1;c2;h1;w1;d0,12;",ETX ; SSN
|
|---|
| 37 | W STX,"F",LRFMT,";H2;o31,400;f1;c2;h1;w1;d0,15;",ETX ; Location
|
|---|
| 38 | W STX,"F",LRFMT,";H3;o114,555;f1;c2;h1;w1;d0,15;",ETX ; Human-readable ID
|
|---|
| 39 | W STX,"F",LRFMT,";H4;o133,570;f1;c2;h1;w1;d0,8;",ETX ; Date
|
|---|
| 40 | W STX,"F",LRFMT,";H5;o133,450;f1;c2;h1;w1;d0,20;",ETX ; Accession
|
|---|
| 41 | W STX,"F",LRFMT,";H6;o31,190;f1;c2;h1;w1;d0,14;",ETX ; Order #
|
|---|
| 42 | W STX,"F",LRFMT,";H7;o133,210;f1;c2;h1;w1;d0,15;",ETX ; Top/specimen
|
|---|
| 43 | W STX,"F",LRFMT,";H8;o154,570;f1;c2;h1;w1;d0,35;",ETX ; Test
|
|---|
| 44 | W STX,"F",LRFMT,";H9;o0,135;f1;c0;h3;w3;b0;d0,5;",ETX ; Urgency
|
|---|
| 45 | W STX,"F",LRFMT,";H10;o0,135;f1;c0;h3;w3;b1;d0,5;",ETX ; Urgency (reverse field)
|
|---|
| 46 | W STX,"F",LRFMT,";B11;o50,550;f1;c0,3;h60;i0;r2;w2;d0,10;",ETX ; Code 39
|
|---|
| 47 | W STX,"F",LRFMT,";B12;o50,550;f1;c0,4;h60;i0;r2;w2;d0,10;",ETX ; Code 39/check
|
|---|
| 48 | W STX,"F",LRFMT,";B13;o50,550;f1;c6,0,0;h60;i0;r2;w2;d0,15;",ETX ; Code 128
|
|---|
| 49 | Q
|
|---|
