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

LRBARC.m

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