Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LRBARB

LRBARB.m

Go to the documentation of this file. 
  1. LRBARB ;DALOI/JMC - INTERMEC 4000 Series 10 part label format ;8/29/94 12:36
  1.  ;;5.2T9;LR;**161,218,1018**;Nov 17, 2004
  1.  ; This routine will program the Intermec 4000 series for a 10 part 2.5X4.0 in
  1.  ; label which can be used with LRLABELB routine to print a 10 part
  1.  ; accession label which includes barcoded accession labels.
  1.  ;
  1. FMT ;
  1.  U IO
  1.  ;
  1.  D INIT^LRBARA
  1.  ;
  1.  I LRFMT=12 D BAR
  1.  I LRFMT=13 D BAR1
  1.  ;
  1.  D TERM^LRBARA
  1.  Q
  1.  ;
  1. BAR ; Programs format for 10-part old style.
  1.  ;
  1.  ; Accession number
  1.  W STX,"F",LRFMT,";H0;o0,176;f1;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; Collection date
  1.  W STX,"F",LRFMT,";H1;o35,183;f1;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; collection sample - tube
  1.  W STX,"F",LRFMT,";H2;o89,140;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; Patient name
  1.  W STX,"F",LRFMT,";H3;o89,1;f0;c2;h2;w1;d0,21;",ETX
  1.  ;
  1.  ; Patient identifier - SSN
  1.  W STX,"F",LRFMT,";H4;o89,37;f0;c2;h1;w1;d0,11;",ETX
  1.  ;
  1.  ; Patient location
  1.  W STX,"F",LRFMT,";H5;o260,37;f0;c2;h1;w1;d0,9;",ETX
  1.  ;
  1.  ; Barcoded specimen identifier
  1.  W STX,"F",LRFMT,";B6;o93,59;f0;c0,1;h60;w2;d0,5;",ETX
  1.  ;
  1.  ; order#
  1.  W STX,"F",LRFMT,";H7;o89,125;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; List of tests
  1.  W STX,"F",LRFMT,";H8;o89,157;f0;c2;h2;w1;d0,22;",ETX
  1.  ;
  1.  ; Urgency - STAT
  1.  W STX,"F",LRFMT,";H9;o278,133;f0;c0;h2;w3;b1;d0,4;",ETX
  1.  ;
  1.  ; 1-small label/acc#
  1.  W STX,"F",LRFMT,";H10;o6,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-small label/top
  1.  W STX,"F",LRFMT,";H11;o6,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-ll label/acc#
  1.  W STX,"F",LRFMT,";H12;o6,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-ll label/name
  1.  W STX,"F",LRFMT,";H13;o6,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-ll label/ssn
  1.  W STX,"F",LRFMT,";H14;o6,380;f0;c2;h1;w1;d0,11;",ETX
  1.  ;
  1.  ; 1-ll label/date
  1.  W STX,"F",LRFMT,";H15;o6,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-ll label/test
  1.  W STX,"F",LRFMT,";H16;o6,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ml/acc#
  1.  W STX,"F",LRFMT,";H17;o202,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ml/top
  1.  W STX,"F",LRFMT,";H18;o202,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ll label acc#
  1.  W STX,"F",LRFMT,";H19;o202,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ll label/name 
  1.  W STX,"F",LRFMT,";H20;o202,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ll label/ssn
  1.  W STX,"F",LRFMT,";H21;o202,380;f0;c2;h1;w1;d0,11;",ETX
  1.  ;
  1.  ; 2-ll label/date
  1.  W STX,"F",LRFMT,";H22;o202,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ll label/test
  1.  W STX,"F",LRFMT,";H23;o202,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-tr label/acc#
  1.  W STX,"F",LRFMT,";H24;o400,1;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-tr label/date
  1.  W STX,"F",LRFMT,";H25;o400,35;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-tr label/tube
  1.  W STX,"F",LRFMT,";H26;o400,55;f0;c2;h1;w1;d0,30;",ETX
  1.  ;
  1.  ; 2-tr label/name
  1.  W STX,"F",LRFMT,";H27;o475,79;f0;c2;h2;w1;d0,21;",ETX
  1.  ;
  1.  ; 2-tr label/ssn
  1.  W STX,"F",LRFMT,";H28;o475,110;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 2-tr label/location
  1.  W STX,"F",LRFMT,";H29;o655,133;f0;c2;h1;w1;d0,9;",ETX
  1.  ;
  1.  ; 2-tr label/order#
  1.  W STX,"F",LRFMT,";H30;o400,133;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-tr label/test
  1.  W STX,"F",LRFMT,";H31;o400,157;f0;c2;h2;w1;d0,22;",ETX
  1.  ;
  1.  ; 2-tr label/stat
  1.  W STX,"F",LRFMT,";H32;o668,35;f0;c0;h3;w3;b1;d0,4;",ETX
  1.  ;
  1.  ; 3-mr label/acc#
  1.  W STX,"F",LRFMT,";H33;o405,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-mr label/top
  1.  W STX,"F",LRFMT,";H34;o405,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/acc#
  1.  W STX,"F",LRFMT,";H35;o405,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/name
  1.  W STX,"F",LRFMT,";H36;o405,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/ssn
  1.  W STX,"F",LRFMT,";H37;o405,380;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 3-br label/date
  1.  W STX,"F",LRFMT,";H38;o405,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/test
  1.  W STX,"F",LRFMT,";H39;o405,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-mr label/acc#
  1.  W STX,"F",LRFMT,";H40;o605,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-mr label/top
  1.  W STX,"F",LRFMT,";H41;o605,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/acc#
  1.  W STX,"F",LRFMT,";H42;o605,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/name
  1.  W STX,"F",LRFMT,";H43;o605,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/ssn
  1.  W STX,"F",LRFMT,";H44;o605,380;f0;c2;h1;w1;d0,11;",ETX
  1.  ;
  1.  ; 3-br label/date
  1.  W STX,"F",LRFMT,";H45;o605,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-br label/test
  1.  W STX,"F",LRFMT,";H46;o605,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  Q
  1.  ;
  1. BAR1 ; Program format for 10-part label using multiple barocde symbologies/specimen UID.
  1.  ;
  1.  ;
  1.  ; Acc#
  1.  W STX,"F",LRFMT,";H0;o108,140;f0;c2;h1;w1;d0,22;",ETX
  1.  ;
  1.  ; Date
  1.  W STX,"F",LRFMT,";H1;o3,140;f0;c2;h1;w1;d0,8;",ETX
  1.  ;
  1.  ; Tube
  1.  W STX,"F",LRFMT,";H2;o178,158;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; Name
  1.  W STX,"F",LRFMT,";H3;o6,1;f0;c2;h2;w1;d0,21;",ETX
  1.  ;
  1.  ; SSN
  1.  W STX,"F",LRFMT,";H4;o6,35;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; Location
  1.  W STX,"F",LRFMT,";H5;o170,35;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; Human-readable ID
  1.  W STX,"F",LRFMT,";H6;o3,120;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; Patient info (infection warning)
  1.  W STX,"F",LRFMT,";H7;o145,120;f0;c2;h1;w1;b1;d0,20;",ETX
  1.  ;
  1.  ; Order#
  1.  W STX,"F",LRFMT,";H8;o3,158;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; Tests
  1.  W STX,"F",LRFMT,";H9;o3,175;f0;c2;h1;w1;d0,32;",ETX
  1.  ;
  1.  ; Urgency
  1.  W STX,"F",LRFMT,";H10;o278,1;f0;c0;h3;w3;b0;d0,4;",ETX
  1.  ;
  1.  ; Urgency (reverse field)
  1.  W STX,"F",LRFMT,";H11;o278,1;f0;c0;h3;w3;b1;d0,4;",ETX
  1.  ;
  1.  ; 1-ML Label/Acc#
  1.  W STX,"F",LRFMT,";H12;o6,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-ML Label/Date
  1.  W STX,"F",LRFMT,";H13;o6,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-LL Label/Acc#
  1.  W STX,"F",LRFMT,";H14;o6,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-LL Label/Name
  1.  W STX,"F",LRFMT,";H15;o6,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-LL Label/SSN
  1.  W STX,"F",LRFMT,";H16;o6,380;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 1-LL Label/Date
  1.  W STX,"F",LRFMT,";H17;o6,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 1-LL Label/Test
  1.  W STX,"F",LRFMT,";H18;o6,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ML/Acc#
  1.  W STX,"F",LRFMT,";H19;o202,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-ML/Date
  1.  W STX,"F",LRFMT,";H20;o202,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-LL Label/Acc#
  1.  W STX,"F",LRFMT,";H21;o202,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-LL Label/Name
  1.  W STX,"F",LRFMT,";H22;o202,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-LL Label/SSN
  1.  W STX,"F",LRFMT,";H23;o202,380;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 2-LL Label/Date
  1.  W STX,"F",LRFMT,";H24;o202,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-LL Label/Test
  1.  W STX,"F",LRFMT,";H25;o202,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-TR Label/Name
  1.  W STX,"F",LRFMT,";H26;o405,1;f0;c2;h2;w1;d0,21;",ETX
  1.  ;
  1.  ; 2-TR Label/SSN
  1.  W STX,"F",LRFMT,";H27;o405,35;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 2-TR Label/Location
  1.  W STX,"F",LRFMT,";H28;o570,35;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; 2-TR Label/Human-readable ID
  1.  W STX,"F",LRFMT,";H29;o405,120;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; 2-TR Label/Patient info (infection warning)
  1.  W STX,"F",LRFMT,";H30;o545,120;f0;c2;h1;w1;b1;d0,20;",ETX
  1.  ;
  1.  ; 2-TR Label/Tube
  1.  W STX,"F",LRFMT,";H31;o580,158;f0;c2;h1;w1;d0,15;",ETX
  1.  ;
  1.  ; 2-TR Label/Acc#
  1.  W STX,"F",LRFMT,";H32;o515,140;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-TR Label/Date
  1.  W STX,"F",LRFMT,";H33;o405,140;f0;c2;h1;w1;d0,9;",ETX
  1.  ;
  1.  ; 2-TR Label/Order#
  1.  W STX,"F",LRFMT,";H34;o405,158;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 2-TR Label/Test
  1.  W STX,"F",LRFMT,";H35;o405,175;f0;c2;h1;w1;d0,32;",ETX
  1.  ;
  1.  ; 2-TR Label/Urgency
  1.  W STX,"F",LRFMT,";H36;o675,1;f0;c0;h3;w3;b0;d0,4;",ETX
  1.  ;
  1.  ; 2-TR Label/Urgency (reverse field)
  1.  W STX,"F",LRFMT,";H37;o675,1;f0;c0;h3;w3;b1;d0,4;",ETX
  1.  ;
  1.  ; 3-MR Label/Acc#
  1.  W STX,"F",LRFMT,";H38;o405,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-MR Label/Date
  1.  W STX,"F",LRFMT,";H39;o405,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-BR Label/Acc#
  1.  W STX,"F",LRFMT,";H40;o405,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-BR Label/Name
  1.  W STX,"F",LRFMT,";H41;o405,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-BR Label/SSN
  1.  W STX,"F",LRFMT,";H42;o405,380;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 3-BR Label/Date
  1.  W STX,"F",LRFMT,";H43;o405,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 3-BR Label/Test
  1.  W STX,"F",LRFMT,";H44;o405,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-MR Label/Acc#
  1.  W STX,"F",LRFMT,";H45;o605,219;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-MR Label/Date
  1.  W STX,"F",LRFMT,";H46;o605,267;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-BR Label/Acc#
  1.  W STX,"F",LRFMT,";H47;o605,311;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-BR Label/Name
  1.  W STX,"F",LRFMT,";H48;o605,345;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-BR Label/SSN
  1.  W STX,"F",LRFMT,";H49;o605,380;f0;c2;h1;w1;d0,12;",ETX
  1.  ;
  1.  ; 4-BR Label/Date
  1.  W STX,"F",LRFMT,";H50;o605,406;f0;c2;h1;w1;d0,14;",ETX
  1.  ;
  1.  ; 4-BR Label/Test
  1.  W STX,"F",LRFMT,";H51;o605,438;f0;c2;h2;w1;d0,14;",ETX
  1.  ;
  1.  ; Code 39 (first 1x2 label)
  1.  W STX,"F",LRFMT,";B52;o15,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
  1.  ;
  1.  ; Code 39 (second 1x2 label)
  1.  W STX,"F",LRFMT,";B53;o417,55;f0;c0,3;h60;i0;r2;w1;d0,10;",ETX
  1.  ;
  1.  ; Code 39/check digit (first 1x2 label)
  1.  W STX,"F",LRFMT,";B54;o15,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
  1.  ;
  1.  ; Code 39/check digit (second 1x2 label)
  1.  W STX,"F",LRFMT,";B55;o417,55;f0;c0,4;h60;i0;r2;w1;d0,10;",ETX
  1.  ;
  1.  ; Code 128 (first 1x2 label)
  1.  W STX,"F",LRFMT,";B56;o15,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
  1.  ;
  1.  ; Code 128 (second 1x2 label)
  1.  W STX,"F",LRFMT,";B57;o417,55;f0;c6,0,0;h60;i0;r2;w1;d0,15;",ETX
  1.  ;
  1.  Q