LRBARC.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRBARC   2227     printed  Sep 23, 2025@19:45:33                                                                                                                                                                                                      Page 2

LRBARC    ;DALISC/JMC - INTERMEC 4100 1x3 LABEL FORMAT ;8/29/94  12:36

 +1       ;;5.2;LAB SERVICE;**161**;Sep 27, 1994

 +2       ;Designed for a Intermec 4100 printer.

 +3       ;

 +4        QUIT 

 +5       ; Called by LRBARCF

 +6       ;

FMT       ;

 +1        USE IO

 +2        DO INIT^LRBARA

 +3        IF LRFMT=7

               DO NOBAR

 +4        IF LRFMT=8

               DO BAR

 +5        IF LRFMT=9

               DO BAR1

 +6        DO TERM^LRBARA

 +7        QUIT 

 +8       ;

NOBAR     ; Regular labels no bar code (old style)

 +1       ; Patient name/SSN

           WRITE STX,"F",LRFMT,";H0;o0,570;f1;c2;d0,50;h2;w1;",ETX

 +2       ; Infection warning/order #

           WRITE STX,"F",LRFMT,";H1;o35,570;f1;c2;d0,50;h2;w1;",ETX

 +3       ; Test

           WRITE STX,"F",LRFMT,";H2;o70,570;f1;c2;d0,50;h2;w1;",ETX

 +4       ; Accession/urgency/location

           WRITE STX,"F",LRFMT,";H3;o105,570;f1;c2;d0,50;h2;w1;",ETX

 +5       ; Tube volume

           WRITE STX,"F",LRFMT,";H4;o140,570;f1;c2;d0,50;h2;w1;",ETX

 +6        QUIT 

 +7       ;

BAR       ; Bar code 39 (old style)

 +1       ; Patient/SSN

           WRITE STX,"F",LRFMT,";H0;o0,570;f1;c0;d0,50;h2;w1;",ETX

 +2       ; Infection warning

           WRITE STX,"F",LRFMT,";H1;o30,570;f1;c0;d0,50;h2;w1;",ETX

 +3       ;Test

           WRITE STX,"F",LRFMT,";H2;o60,570;f1;c0;d0,50;h2;w1;",ETX

 +4       ; Accession/urgency/location

           WRITE STX,"F",LRFMT,";H3;o90,570;f1;c0;d0,50;h2;w1;",ETX

 +5       ;Accession

           WRITE STX,"F",LRFMT,";H4;o60,160;f2;c2;d0,50;h1;w2;",ETX

 +6       ; Barcode

           WRITE STX,"F",LRFMT,";B5;o120,570;f1;c0,1;h40;w1;i0;d0,20;p@",ETX

 +7        QUIT 

 +8       ;

BAR1      ; Bar code labels (multiple symbologies)

 +1       ; Patient name

           WRITE STX,"F",LRFMT,";H0;o0,570;f1;c2;h2;w1;d0,25;",ETX

 +2       ; SSN

           WRITE STX,"F",LRFMT,";H1;o31,570;f1;c2;h1;w1;d0,12;",ETX

 +3       ; Location

           WRITE STX,"F",LRFMT,";H2;o31,400;f1;c2;h1;w1;d0,15;",ETX

 +4       ; Human-readable ID

           WRITE STX,"F",LRFMT,";H3;o114,555;f1;c2;h1;w1;d0,15;",ETX

 +5       ; Date

           WRITE STX,"F",LRFMT,";H4;o133,570;f1;c2;h1;w1;d0,8;",ETX

 +6       ; Accession

           WRITE STX,"F",LRFMT,";H5;o133,450;f1;c2;h1;w1;d0,20;",ETX

 +7       ; Order #

           WRITE STX,"F",LRFMT,";H6;o31,190;f1;c2;h1;w1;d0,14;",ETX

 +8       ; Top/specimen

           WRITE STX,"F",LRFMT,";H7;o133,210;f1;c2;h1;w1;d0,15;",ETX

 +9       ; Test

           WRITE STX,"F",LRFMT,";H8;o154,570;f1;c2;h1;w1;d0,35;",ETX

 +10      ; Urgency

           WRITE STX,"F",LRFMT,";H9;o0,135;f1;c0;h3;w3;b0;d0,5;",ETX

 +11      ; Urgency (reverse field)

           WRITE STX,"F",LRFMT,";H10;o0,135;f1;c0;h3;w3;b1;d0,5;",ETX

 +12      ; Code 39

           WRITE STX,"F",LRFMT,";B11;o50,550;f1;c0,3;h60;i0;r2;w2;d0,10;",ETX

 +13      ; Code 39/check

           WRITE STX,"F",LRFMT,";B12;o50,550;f1;c0,4;h60;i0;r2;w2;d0,10;",ETX

 +14      ; Code 128

           WRITE STX,"F",LRFMT,";B13;o50,550;f1;c6,0,0;h60;i0;r2;w2;d0,15;",ETX

 +15       QUIT