LRBARB ;DALOI/JMC - INTERMEC 4000 Series 10 part label format ;8/29/94 12:36
;;5.2;LAB SERVICE;**161,218**;Sep 27, 1994
; This routine will program the Intermec 4000 series for a 10 part 2.5X4.0 in
; label which can be used with LRLABELB routine to print a 10 part
; accession label which includes barcoded accession labels.
;
FMT ;
U IO
;
D INIT^LRBARA
;
I LRFMT=12 D BAR
I LRFMT=13 D BAR1
;
D TERM^LRBARA
Q
;
BAR ; Programs format for 10-part old style.
;
; Accession number
W STX,"F",LRFMT,";H0;o0,176;f1;c2;h2;w1;d0,14;",ETX
;
; Collection date
W STX,"F",LRFMT,";H1;o35,183;f1;c2;h1;w1;d0,14;",ETX
;
; collection sample - tube
W STX,"F",LRFMT,";H2;o89,140;f0;c2;h1;w1;d0,14;",ETX
;
; Patient name
W STX,"F",LRFMT,";H3;o89,1;f0;c2;h2;w1;d0,21;",ETX
;
; Patient identifier - SSN
W STX,"F",LRFMT,";H4;o89,37;f0;c2;h1;w1;d0,11;",ETX
;
; Patient location
W STX,"F",LRFMT,";H5;o260,37;f0;c2;h1;w1;d0,9;",ETX
;
; Barcoded specimen identifier
W STX,"F",LRFMT,";B6;o93,59;f0;c0,1;h60;w2;d0,5;",ETX
;
; order#
W STX,"F",LRFMT,";H7;o89,125;f0;c2;h1;w1;d0,14;",ETX
;
; List of tests
W STX,"F",LRFMT,";H8;o89,157;f0;c2;h2;w1;d0,22;",ETX
;
; Urgency - STAT
W STX,"F",LRFMT,";H9;o278,133;f0;c0;h2;w3;b1;d0,4;",ETX
;
; 1-small label/acc#
W STX,"F",LRFMT,";H10;o6,219;f0;c2;h2;w1;d0,14;",ETX
;
; 1-small label/top
W STX,"F",LRFMT,";H11;o6,267;f0;c2;h1;w1;d0,14;",ETX
;
; 1-ll label/acc#
W STX,"F",LRFMT,";H12;o6,311;f0;c2;h2;w1;d0,14;",ETX
;
; 1-ll label/name
W STX,"F",LRFMT,";H13;o6,345;f0;c2;h2;w1;d0,14;",ETX
;
; 1-ll label/ssn
W STX,"F",LRFMT,";H14;o6,380;f0;c2;h1;w1;d0,11;",ETX
;
; 1-ll label/date
W STX,"F",LRFMT,";H15;o6,406;f0;c2;h1;w1;d0,14;",ETX
;
; 1-ll label/test
W STX,"F",LRFMT,";H16;o6,438;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ml/acc#
W STX,"F",LRFMT,";H17;o202,219;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ml/top
W STX,"F",LRFMT,";H18;o202,267;f0;c2;h1;w1;d0,14;",ETX
;
; 2-ll label acc#
W STX,"F",LRFMT,";H19;o202,311;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ll label/name
W STX,"F",LRFMT,";H20;o202,345;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ll label/ssn
W STX,"F",LRFMT,";H21;o202,380;f0;c2;h1;w1;d0,11;",ETX
;
; 2-ll label/date
W STX,"F",LRFMT,";H22;o202,406;f0;c2;h1;w1;d0,14;",ETX
;
; 2-ll label/test
W STX,"F",LRFMT,";H23;o202,438;f0;c2;h2;w1;d0,14;",ETX
;
; 2-tr label/acc#
W STX,"F",LRFMT,";H24;o400,1;f0;c2;h2;w1;d0,14;",ETX
;
; 2-tr label/date
W STX,"F",LRFMT,";H25;o400,35;f0;c2;h1;w1;d0,14;",ETX
;
; 2-tr label/tube
W STX,"F",LRFMT,";H26;o400,55;f0;c2;h1;w1;d0,30;",ETX
;
; 2-tr label/name
W STX,"F",LRFMT,";H27;o475,79;f0;c2;h2;w1;d0,21;",ETX
;
; 2-tr label/ssn
W STX,"F",LRFMT,";H28;o475,110;f0;c2;h1;w1;d0,12;",ETX
;
; 2-tr label/location
W STX,"F",LRFMT,";H29;o655,133;f0;c2;h1;w1;d0,9;",ETX
;
; 2-tr label/order#
W STX,"F",LRFMT,";H30;o400,133;f0;c2;h1;w1;d0,14;",ETX
;
; 2-tr label/test
W STX,"F",LRFMT,";H31;o400,157;f0;c2;h2;w1;d0,22;",ETX
;
; 2-tr label/stat
W STX,"F",LRFMT,";H32;o668,35;f0;c0;h3;w3;b1;d0,4;",ETX
;
; 3-mr label/acc#
W STX,"F",LRFMT,";H33;o405,219;f0;c2;h2;w1;d0,14;",ETX
;
; 3-mr label/top
W STX,"F",LRFMT,";H34;o405,267;f0;c2;h1;w1;d0,14;",ETX
;
; 3-br label/acc#
W STX,"F",LRFMT,";H35;o405,311;f0;c2;h2;w1;d0,14;",ETX
;
; 3-br label/name
W STX,"F",LRFMT,";H36;o405,345;f0;c2;h2;w1;d0,14;",ETX
;
; 3-br label/ssn
W STX,"F",LRFMT,";H37;o405,380;f0;c2;h1;w1;d0,12;",ETX
;
; 3-br label/date
W STX,"F",LRFMT,";H38;o405,406;f0;c2;h1;w1;d0,14;",ETX
;
; 3-br label/test
W STX,"F",LRFMT,";H39;o405,438;f0;c2;h2;w1;d0,14;",ETX
;
; 4-mr label/acc#
W STX,"F",LRFMT,";H40;o605,219;f0;c2;h2;w1;d0,14;",ETX
;
; 4-mr label/top
W STX,"F",LRFMT,";H41;o605,267;f0;c2;h1;w1;d0,14;",ETX
;
; 3-br label/acc#
W STX,"F",LRFMT,";H42;o605,311;f0;c2;h2;w1;d0,14;",ETX
;
; 3-br label/name
W STX,"F",LRFMT,";H43;o605,345;f0;c2;h2;w1;d0,14;",ETX
;
; 3-br label/ssn
W STX,"F",LRFMT,";H44;o605,380;f0;c2;h1;w1;d0,11;",ETX
;
; 3-br label/date
W STX,"F",LRFMT,";H45;o605,406;f0;c2;h1;w1;d0,14;",ETX
;
; 3-br label/test
W STX,"F",LRFMT,";H46;o605,438;f0;c2;h2;w1;d0,14;",ETX
;
Q
;
BAR1 ; Program format for 10-part label using multiple barocde symbologies/specimen UID.
;
;
; Acc#
W STX,"F",LRFMT,";H0;o108,140;f0;c2;h1;w1;d0,22;",ETX
;
; Date
W STX,"F",LRFMT,";H1;o3,140;f0;c2;h1;w1;d0,8;",ETX
;
; Tube
W STX,"F",LRFMT,";H2;o178,158;f0;c2;h1;w1;d0,15;",ETX
;
; Name
W STX,"F",LRFMT,";H3;o6,1;f0;c2;h2;w1;d0,21;",ETX
;
; SSN
W STX,"F",LRFMT,";H4;o6,35;f0;c2;h1;w1;d0,12;",ETX
;
; Location
W STX,"F",LRFMT,";H5;o170,35;f0;c2;h1;w1;d0,15;",ETX
;
; Human-readable ID
W STX,"F",LRFMT,";H6;o3,120;f0;c2;h1;w1;d0,15;",ETX
;
; Patient info (infection warning)
W STX,"F",LRFMT,";H7;o145,120;f0;c2;h1;w1;b1;d0,20;",ETX
;
; Order#
W STX,"F",LRFMT,";H8;o3,158;f0;c2;h1;w1;d0,14;",ETX
;
; Tests
W STX,"F",LRFMT,";H9;o3,175;f0;c2;h1;w1;d0,32;",ETX
;
; Urgency
W STX,"F",LRFMT,";H10;o278,1;f0;c0;h3;w3;b0;d0,4;",ETX
;
; Urgency (reverse field)
W STX,"F",LRFMT,";H11;o278,1;f0;c0;h3;w3;b1;d0,4;",ETX
;
; 1-ML Label/Acc#
W STX,"F",LRFMT,";H12;o6,219;f0;c2;h2;w1;d0,14;",ETX
;
; 1-ML Label/Date
W STX,"F",LRFMT,";H13;o6,267;f0;c2;h1;w1;d0,14;",ETX
;
; 1-LL Label/Acc#
W STX,"F",LRFMT,";H14;o6,311;f0;c2;h2;w1;d0,14;",ETX
;
; 1-LL Label/Name
W STX,"F",LRFMT,";H15;o6,345;f0;c2;h2;w1;d0,14;",ETX
;
; 1-LL Label/SSN
W STX,"F",LRFMT,";H16;o6,380;f0;c2;h1;w1;d0,12;",ETX
;
; 1-LL Label/Date
W STX,"F",LRFMT,";H17;o6,406;f0;c2;h1;w1;d0,14;",ETX
;
; 1-LL Label/Test
W STX,"F",LRFMT,";H18;o6,438;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ML/Acc#
W STX,"F",LRFMT,";H19;o202,219;f0;c2;h2;w1;d0,14;",ETX
;
; 2-ML/Date
W STX,"F",LRFMT,";H20;o202,267;f0;c2;h1;w1;d0,14;",ETX
;
; 2-LL Label/Acc#
W STX,"F",LRFMT,";H21;o202,311;f0;c2;h2;w1;d0,14;",ETX
;
; 2-LL Label/Name
W STX,"F",LRFMT,";H22;o202,345;f0;c2;h2;w1;d0,14;",ETX
;
; 2-LL Label/SSN
W STX,"F",LRFMT,";H23;o202,380;f0;c2;h1;w1;d0,12;",ETX
;
; 2-LL Label/Date
W STX,"F",LRFMT,";H24;o202,406;f0;c2;h1;w1;d0,14;",ETX
;
; 2-LL Label/Test
W STX,"F",LRFMT,";H25;o202,438;f0;c2;h2;w1;d0,14;",ETX
;
; 2-TR Label/Name
W STX,"F",LRFMT,";H26;o405,1;f0;c2;h2;w1;d0,21;",ETX
;
; 2-TR Label/SSN
W STX,"F",LRFMT,";H27;o405,35;f0;c2;h1;w1;d0,12;",ETX
;
; 2-TR Label/Location
W STX,"F",LRFMT,";H28;o570,35;f0;c2;h1;w1;d0,15;",ETX
;
; 2-TR Label/Human-readable ID
W STX,"F",LRFMT,";H29;o405,120;f0;c2;h1;w1;d0,15;",ETX
;
; 2-TR Label/Patient info (infection warning)
W STX,"F",LRFMT,";H30;o545,120;f0;c2;h1;w1;b1;d0,20;",ETX
;
; 2-TR Label/Tube
W STX,"F",LRFMT,";H31;o580,158;f0;c2;h1;w1;d0,15;",ETX
;
; 2-TR Label/Acc#
W STX,"F",LRFMT,";H32;o515,140;f0;c2;h1;w1;d0,14;",ETX
;
; 2-TR Label/Date
W STX,"F",LRFMT,";H33;o405,140;f0;c2;h1;w1;d0,9;",ETX
;
; 2-TR Label/Order#
W STX,"F",LRFMT,";H34;o405,158;f0;c2;h1;w1;d0,14;",ETX
;
; 2-TR Label/Test
W STX,"F",LRFMT,";H35;o405,175;f0;c2;h1;w1;d0,32;",ETX
;
; 2-TR Label/Urgency
W STX,"F",LRFMT,";H36;o675,1;f0;c0;h3;w3;b0;d0,4;",ETX
;
; 2-TR Label/Urgency (reverse field)
W STX,"F",LRFMT,";H37;o675,1;f0;c0;h3;w3;b1;d0,4;",ETX
;
; 3-MR Label/Acc#
W STX,"F",LRFMT,";H38;o405,219;f0;c2;h2;w1;d0,14;",ETX
;
; 3-MR Label/Date
W STX,"F",LRFMT,";H39;o405,267;f0;c2;h1;w1;d0,14;",ETX
;
; 3-BR Label/Acc#
W STX,"F",LRFMT,";H40;o405,311;f0;c2;h2;w1;d0,14;",ETX
;
; 3-BR Label/Name
W STX,"F",LRFMT,";H41;o405,345;f0;c2;h2;w1;d0,14;",ETX
;
; 3-BR Label/SSN
W STX,"F",LRFMT,";H42;o405,380;f0;c2;h1;w1;d0,12;",ETX
;
; 3-BR Label/Date
W STX,"F",LRFMT,";H43;o405,406;f0;c2;h1;w1;d0,14;",ETX
;
; 3-BR Label/Test
W STX,"F",LRFMT,";H44;o405,438;f0;c2;h2;w1;d0,14;",ETX
;
; 4-MR Label/Acc#
W STX,"F",LRFMT,";H45;o605,219;f0;c2;h2;w1;d0,14;",ETX
;
; 4-MR Label/Date
W STX,"F",LRFMT,";H46;o605,267;f0;c2;h1;w1;d0,14;",ETX
;
; 4-BR Label/Acc#
W STX,"F",LRFMT,";H47;o605,311;f0;c2;h2;w1;d0,14;",ETX
;
; 4-BR Label/Name
W STX,"F",LRFMT,";H48;o605,345;f0;c2;h2;w1;d0,14;",ETX
;
; 4-BR Label/SSN
W STX,"F",LRFMT,";H49;o605,380;f0;c2;h1;w1;d0,12;",ETX
;
; 4-BR Label/Date
W STX,"F",LRFMT,";H50;o605,406;f0;c2;h1;w1;d0,14;",ETX
;
; 4-BR Label/Test
W STX,"F",LRFMT,";H51;o605,438;f0;c2;h2;w1;d0,14;",ETX
;
; Code 39 (first 1x2 label)
W STX,"F",LRFMT,";B52;o15,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
;
; Code 39 (second 1x2 label)
W STX,"F",LRFMT,";B53;o417,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
;
; Code 39/check digit (first 1x2 label)
W STX,"F",LRFMT,";B54;o15,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
;
; Code 39/check digit (second 1x2 label)
W STX,"F",LRFMT,";B55;o417,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
;
; Code 128 (first 1x2 label)
W STX,"F",LRFMT,";B56;o15,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
;
; Code 128 (second 1x2 label)
W STX,"F",LRFMT,";B57;o417,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRBARB 9165 printed Nov 22, 2024@17:19:56 Page 2
LRBARB ;DALOI/JMC - INTERMEC 4000 Series 10 part label format ;8/29/94 12:36
+1 ;;5.2;LAB SERVICE;**161,218**;Sep 27, 1994
+2 ; This routine will program the Intermec 4000 series for a 10 part 2.5X4.0 in
+3 ; label which can be used with LRLABELB routine to print a 10 part
+4 ; accession label which includes barcoded accession labels.
+5 ;
FMT ;
+1 USE IO
+2 ;
+3 DO INIT^LRBARA
+4 ;
+5 IF LRFMT=12
DO BAR
+6 IF LRFMT=13
DO BAR1
+7 ;
+8 DO TERM^LRBARA
+9 QUIT
+10 ;
BAR ; Programs format for 10-part old style.
+1 ;
+2 ; Accession number
+3 WRITE STX,"F",LRFMT,";H0;o0,176;f1;c2;h2;w1;d0,14;",ETX
+4 ;
+5 ; Collection date
+6 WRITE STX,"F",LRFMT,";H1;o35,183;f1;c2;h1;w1;d0,14;",ETX
+7 ;
+8 ; collection sample - tube
+9 WRITE STX,"F",LRFMT,";H2;o89,140;f0;c2;h1;w1;d0,14;",ETX
+10 ;
+11 ; Patient name
+12 WRITE STX,"F",LRFMT,";H3;o89,1;f0;c2;h2;w1;d0,21;",ETX
+13 ;
+14 ; Patient identifier - SSN
+15 WRITE STX,"F",LRFMT,";H4;o89,37;f0;c2;h1;w1;d0,11;",ETX
+16 ;
+17 ; Patient location
+18 WRITE STX,"F",LRFMT,";H5;o260,37;f0;c2;h1;w1;d0,9;",ETX
+19 ;
+20 ; Barcoded specimen identifier
+21 WRITE STX,"F",LRFMT,";B6;o93,59;f0;c0,1;h60;w2;d0,5;",ETX
+22 ;
+23 ; order#
+24 WRITE STX,"F",LRFMT,";H7;o89,125;f0;c2;h1;w1;d0,14;",ETX
+25 ;
+26 ; List of tests
+27 WRITE STX,"F",LRFMT,";H8;o89,157;f0;c2;h2;w1;d0,22;",ETX
+28 ;
+29 ; Urgency - STAT
+30 WRITE STX,"F",LRFMT,";H9;o278,133;f0;c0;h2;w3;b1;d0,4;",ETX
+31 ;
+32 ; 1-small label/acc#
+33 WRITE STX,"F",LRFMT,";H10;o6,219;f0;c2;h2;w1;d0,14;",ETX
+34 ;
+35 ; 1-small label/top
+36 WRITE STX,"F",LRFMT,";H11;o6,267;f0;c2;h1;w1;d0,14;",ETX
+37 ;
+38 ; 1-ll label/acc#
+39 WRITE STX,"F",LRFMT,";H12;o6,311;f0;c2;h2;w1;d0,14;",ETX
+40 ;
+41 ; 1-ll label/name
+42 WRITE STX,"F",LRFMT,";H13;o6,345;f0;c2;h2;w1;d0,14;",ETX
+43 ;
+44 ; 1-ll label/ssn
+45 WRITE STX,"F",LRFMT,";H14;o6,380;f0;c2;h1;w1;d0,11;",ETX
+46 ;
+47 ; 1-ll label/date
+48 WRITE STX,"F",LRFMT,";H15;o6,406;f0;c2;h1;w1;d0,14;",ETX
+49 ;
+50 ; 1-ll label/test
+51 WRITE STX,"F",LRFMT,";H16;o6,438;f0;c2;h2;w1;d0,14;",ETX
+52 ;
+53 ; 2-ml/acc#
+54 WRITE STX,"F",LRFMT,";H17;o202,219;f0;c2;h2;w1;d0,14;",ETX
+55 ;
+56 ; 2-ml/top
+57 WRITE STX,"F",LRFMT,";H18;o202,267;f0;c2;h1;w1;d0,14;",ETX
+58 ;
+59 ; 2-ll label acc#
+60 WRITE STX,"F",LRFMT,";H19;o202,311;f0;c2;h2;w1;d0,14;",ETX
+61 ;
+62 ; 2-ll label/name
+63 WRITE STX,"F",LRFMT,";H20;o202,345;f0;c2;h2;w1;d0,14;",ETX
+64 ;
+65 ; 2-ll label/ssn
+66 WRITE STX,"F",LRFMT,";H21;o202,380;f0;c2;h1;w1;d0,11;",ETX
+67 ;
+68 ; 2-ll label/date
+69 WRITE STX,"F",LRFMT,";H22;o202,406;f0;c2;h1;w1;d0,14;",ETX
+70 ;
+71 ; 2-ll label/test
+72 WRITE STX,"F",LRFMT,";H23;o202,438;f0;c2;h2;w1;d0,14;",ETX
+73 ;
+74 ; 2-tr label/acc#
+75 WRITE STX,"F",LRFMT,";H24;o400,1;f0;c2;h2;w1;d0,14;",ETX
+76 ;
+77 ; 2-tr label/date
+78 WRITE STX,"F",LRFMT,";H25;o400,35;f0;c2;h1;w1;d0,14;",ETX
+79 ;
+80 ; 2-tr label/tube
+81 WRITE STX,"F",LRFMT,";H26;o400,55;f0;c2;h1;w1;d0,30;",ETX
+82 ;
+83 ; 2-tr label/name
+84 WRITE STX,"F",LRFMT,";H27;o475,79;f0;c2;h2;w1;d0,21;",ETX
+85 ;
+86 ; 2-tr label/ssn
+87 WRITE STX,"F",LRFMT,";H28;o475,110;f0;c2;h1;w1;d0,12;",ETX
+88 ;
+89 ; 2-tr label/location
+90 WRITE STX,"F",LRFMT,";H29;o655,133;f0;c2;h1;w1;d0,9;",ETX
+91 ;
+92 ; 2-tr label/order#
+93 WRITE STX,"F",LRFMT,";H30;o400,133;f0;c2;h1;w1;d0,14;",ETX
+94 ;
+95 ; 2-tr label/test
+96 WRITE STX,"F",LRFMT,";H31;o400,157;f0;c2;h2;w1;d0,22;",ETX
+97 ;
+98 ; 2-tr label/stat
+99 WRITE STX,"F",LRFMT,";H32;o668,35;f0;c0;h3;w3;b1;d0,4;",ETX
+100 ;
+101 ; 3-mr label/acc#
+102 WRITE STX,"F",LRFMT,";H33;o405,219;f0;c2;h2;w1;d0,14;",ETX
+103 ;
+104 ; 3-mr label/top
+105 WRITE STX,"F",LRFMT,";H34;o405,267;f0;c2;h1;w1;d0,14;",ETX
+106 ;
+107 ; 3-br label/acc#
+108 WRITE STX,"F",LRFMT,";H35;o405,311;f0;c2;h2;w1;d0,14;",ETX
+109 ;
+110 ; 3-br label/name
+111 WRITE STX,"F",LRFMT,";H36;o405,345;f0;c2;h2;w1;d0,14;",ETX
+112 ;
+113 ; 3-br label/ssn
+114 WRITE STX,"F",LRFMT,";H37;o405,380;f0;c2;h1;w1;d0,12;",ETX
+115 ;
+116 ; 3-br label/date
+117 WRITE STX,"F",LRFMT,";H38;o405,406;f0;c2;h1;w1;d0,14;",ETX
+118 ;
+119 ; 3-br label/test
+120 WRITE STX,"F",LRFMT,";H39;o405,438;f0;c2;h2;w1;d0,14;",ETX
+121 ;
+122 ; 4-mr label/acc#
+123 WRITE STX,"F",LRFMT,";H40;o605,219;f0;c2;h2;w1;d0,14;",ETX
+124 ;
+125 ; 4-mr label/top
+126 WRITE STX,"F",LRFMT,";H41;o605,267;f0;c2;h1;w1;d0,14;",ETX
+127 ;
+128 ; 3-br label/acc#
+129 WRITE STX,"F",LRFMT,";H42;o605,311;f0;c2;h2;w1;d0,14;",ETX
+130 ;
+131 ; 3-br label/name
+132 WRITE STX,"F",LRFMT,";H43;o605,345;f0;c2;h2;w1;d0,14;",ETX
+133 ;
+134 ; 3-br label/ssn
+135 WRITE STX,"F",LRFMT,";H44;o605,380;f0;c2;h1;w1;d0,11;",ETX
+136 ;
+137 ; 3-br label/date
+138 WRITE STX,"F",LRFMT,";H45;o605,406;f0;c2;h1;w1;d0,14;",ETX
+139 ;
+140 ; 3-br label/test
+141 WRITE STX,"F",LRFMT,";H46;o605,438;f0;c2;h2;w1;d0,14;",ETX
+142 ;
+143 QUIT
+144 ;
BAR1 ; Program format for 10-part label using multiple barocde symbologies/specimen UID.
+1 ;
+2 ;
+3 ; Acc#
+4 WRITE STX,"F",LRFMT,";H0;o108,140;f0;c2;h1;w1;d0,22;",ETX
+5 ;
+6 ; Date
+7 WRITE STX,"F",LRFMT,";H1;o3,140;f0;c2;h1;w1;d0,8;",ETX
+8 ;
+9 ; Tube
+10 WRITE STX,"F",LRFMT,";H2;o178,158;f0;c2;h1;w1;d0,15;",ETX
+11 ;
+12 ; Name
+13 WRITE STX,"F",LRFMT,";H3;o6,1;f0;c2;h2;w1;d0,21;",ETX
+14 ;
+15 ; SSN
+16 WRITE STX,"F",LRFMT,";H4;o6,35;f0;c2;h1;w1;d0,12;",ETX
+17 ;
+18 ; Location
+19 WRITE STX,"F",LRFMT,";H5;o170,35;f0;c2;h1;w1;d0,15;",ETX
+20 ;
+21 ; Human-readable ID
+22 WRITE STX,"F",LRFMT,";H6;o3,120;f0;c2;h1;w1;d0,15;",ETX
+23 ;
+24 ; Patient info (infection warning)
+25 WRITE STX,"F",LRFMT,";H7;o145,120;f0;c2;h1;w1;b1;d0,20;",ETX
+26 ;
+27 ; Order#
+28 WRITE STX,"F",LRFMT,";H8;o3,158;f0;c2;h1;w1;d0,14;",ETX
+29 ;
+30 ; Tests
+31 WRITE STX,"F",LRFMT,";H9;o3,175;f0;c2;h1;w1;d0,32;",ETX
+32 ;
+33 ; Urgency
+34 WRITE STX,"F",LRFMT,";H10;o278,1;f0;c0;h3;w3;b0;d0,4;",ETX
+35 ;
+36 ; Urgency (reverse field)
+37 WRITE STX,"F",LRFMT,";H11;o278,1;f0;c0;h3;w3;b1;d0,4;",ETX
+38 ;
+39 ; 1-ML Label/Acc#
+40 WRITE STX,"F",LRFMT,";H12;o6,219;f0;c2;h2;w1;d0,14;",ETX
+41 ;
+42 ; 1-ML Label/Date
+43 WRITE STX,"F",LRFMT,";H13;o6,267;f0;c2;h1;w1;d0,14;",ETX
+44 ;
+45 ; 1-LL Label/Acc#
+46 WRITE STX,"F",LRFMT,";H14;o6,311;f0;c2;h2;w1;d0,14;",ETX
+47 ;
+48 ; 1-LL Label/Name
+49 WRITE STX,"F",LRFMT,";H15;o6,345;f0;c2;h2;w1;d0,14;",ETX
+50 ;
+51 ; 1-LL Label/SSN
+52 WRITE STX,"F",LRFMT,";H16;o6,380;f0;c2;h1;w1;d0,12;",ETX
+53 ;
+54 ; 1-LL Label/Date
+55 WRITE STX,"F",LRFMT,";H17;o6,406;f0;c2;h1;w1;d0,14;",ETX
+56 ;
+57 ; 1-LL Label/Test
+58 WRITE STX,"F",LRFMT,";H18;o6,438;f0;c2;h2;w1;d0,14;",ETX
+59 ;
+60 ; 2-ML/Acc#
+61 WRITE STX,"F",LRFMT,";H19;o202,219;f0;c2;h2;w1;d0,14;",ETX
+62 ;
+63 ; 2-ML/Date
+64 WRITE STX,"F",LRFMT,";H20;o202,267;f0;c2;h1;w1;d0,14;",ETX
+65 ;
+66 ; 2-LL Label/Acc#
+67 WRITE STX,"F",LRFMT,";H21;o202,311;f0;c2;h2;w1;d0,14;",ETX
+68 ;
+69 ; 2-LL Label/Name
+70 WRITE STX,"F",LRFMT,";H22;o202,345;f0;c2;h2;w1;d0,14;",ETX
+71 ;
+72 ; 2-LL Label/SSN
+73 WRITE STX,"F",LRFMT,";H23;o202,380;f0;c2;h1;w1;d0,12;",ETX
+74 ;
+75 ; 2-LL Label/Date
+76 WRITE STX,"F",LRFMT,";H24;o202,406;f0;c2;h1;w1;d0,14;",ETX
+77 ;
+78 ; 2-LL Label/Test
+79 WRITE STX,"F",LRFMT,";H25;o202,438;f0;c2;h2;w1;d0,14;",ETX
+80 ;
+81 ; 2-TR Label/Name
+82 WRITE STX,"F",LRFMT,";H26;o405,1;f0;c2;h2;w1;d0,21;",ETX
+83 ;
+84 ; 2-TR Label/SSN
+85 WRITE STX,"F",LRFMT,";H27;o405,35;f0;c2;h1;w1;d0,12;",ETX
+86 ;
+87 ; 2-TR Label/Location
+88 WRITE STX,"F",LRFMT,";H28;o570,35;f0;c2;h1;w1;d0,15;",ETX
+89 ;
+90 ; 2-TR Label/Human-readable ID
+91 WRITE STX,"F",LRFMT,";H29;o405,120;f0;c2;h1;w1;d0,15;",ETX
+92 ;
+93 ; 2-TR Label/Patient info (infection warning)
+94 WRITE STX,"F",LRFMT,";H30;o545,120;f0;c2;h1;w1;b1;d0,20;",ETX
+95 ;
+96 ; 2-TR Label/Tube
+97 WRITE STX,"F",LRFMT,";H31;o580,158;f0;c2;h1;w1;d0,15;",ETX
+98 ;
+99 ; 2-TR Label/Acc#
+100 WRITE STX,"F",LRFMT,";H32;o515,140;f0;c2;h1;w1;d0,14;",ETX
+101 ;
+102 ; 2-TR Label/Date
+103 WRITE STX,"F",LRFMT,";H33;o405,140;f0;c2;h1;w1;d0,9;",ETX
+104 ;
+105 ; 2-TR Label/Order#
+106 WRITE STX,"F",LRFMT,";H34;o405,158;f0;c2;h1;w1;d0,14;",ETX
+107 ;
+108 ; 2-TR Label/Test
+109 WRITE STX,"F",LRFMT,";H35;o405,175;f0;c2;h1;w1;d0,32;",ETX
+110 ;
+111 ; 2-TR Label/Urgency
+112 WRITE STX,"F",LRFMT,";H36;o675,1;f0;c0;h3;w3;b0;d0,4;",ETX
+113 ;
+114 ; 2-TR Label/Urgency (reverse field)
+115 WRITE STX,"F",LRFMT,";H37;o675,1;f0;c0;h3;w3;b1;d0,4;",ETX
+116 ;
+117 ; 3-MR Label/Acc#
+118 WRITE STX,"F",LRFMT,";H38;o405,219;f0;c2;h2;w1;d0,14;",ETX
+119 ;
+120 ; 3-MR Label/Date
+121 WRITE STX,"F",LRFMT,";H39;o405,267;f0;c2;h1;w1;d0,14;",ETX
+122 ;
+123 ; 3-BR Label/Acc#
+124 WRITE STX,"F",LRFMT,";H40;o405,311;f0;c2;h2;w1;d0,14;",ETX
+125 ;
+126 ; 3-BR Label/Name
+127 WRITE STX,"F",LRFMT,";H41;o405,345;f0;c2;h2;w1;d0,14;",ETX
+128 ;
+129 ; 3-BR Label/SSN
+130 WRITE STX,"F",LRFMT,";H42;o405,380;f0;c2;h1;w1;d0,12;",ETX
+131 ;
+132 ; 3-BR Label/Date
+133 WRITE STX,"F",LRFMT,";H43;o405,406;f0;c2;h1;w1;d0,14;",ETX
+134 ;
+135 ; 3-BR Label/Test
+136 WRITE STX,"F",LRFMT,";H44;o405,438;f0;c2;h2;w1;d0,14;",ETX
+137 ;
+138 ; 4-MR Label/Acc#
+139 WRITE STX,"F",LRFMT,";H45;o605,219;f0;c2;h2;w1;d0,14;",ETX
+140 ;
+141 ; 4-MR Label/Date
+142 WRITE STX,"F",LRFMT,";H46;o605,267;f0;c2;h1;w1;d0,14;",ETX
+143 ;
+144 ; 4-BR Label/Acc#
+145 WRITE STX,"F",LRFMT,";H47;o605,311;f0;c2;h2;w1;d0,14;",ETX
+146 ;
+147 ; 4-BR Label/Name
+148 WRITE STX,"F",LRFMT,";H48;o605,345;f0;c2;h2;w1;d0,14;",ETX
+149 ;
+150 ; 4-BR Label/SSN
+151 WRITE STX,"F",LRFMT,";H49;o605,380;f0;c2;h1;w1;d0,12;",ETX
+152 ;
+153 ; 4-BR Label/Date
+154 WRITE STX,"F",LRFMT,";H50;o605,406;f0;c2;h1;w1;d0,14;",ETX
+155 ;
+156 ; 4-BR Label/Test
+157 WRITE STX,"F",LRFMT,";H51;o605,438;f0;c2;h2;w1;d0,14;",ETX
+158 ;
+159 ; Code 39 (first 1x2 label)
+160 WRITE STX,"F",LRFMT,";B52;o15,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
+161 ;
+162 ; Code 39 (second 1x2 label)
+163 WRITE STX,"F",LRFMT,";B53;o417,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
+164 ;
+165 ; Code 39/check digit (first 1x2 label)
+166 WRITE STX,"F",LRFMT,";B54;o15,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
+167 ;
+168 ; Code 39/check digit (second 1x2 label)
+169 WRITE STX,"F",LRFMT,";B55;o417,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
+170 ;
+171 ; Code 128 (first 1x2 label)
+172 WRITE STX,"F",LRFMT,";B56;o15,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
+173 ;
+174 ; Code 128 (second 1x2 label)
+175 WRITE STX,"F",LRFMT,";B57;o417,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
+176 ;
+177 QUIT
