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