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

DGPLBL1.m

Go to the documentation of this file. 
  1. DGPLBL1 ;ALB/RPM - PATIENT INFORMATION LABEL UTILITIES ; 04/08/04
  1.  ;;5.3;Registration;**571,1015**;Aug 13, 1993;Build 21
  1.  ;
  1.  ; This routine contains procedures that will define either a
  1.  ; vertical or horizontal format form for printing patient labels
  1.  ; on an Intermec label printer.  The formatting is done using
  1.  ; Intermec Programming Language (IPL).  Use the appropriate entry
  1.  ; point in the OPEN EXECUTE (#6) field of the TERMINAL TYPE (#3.2)
  1.  ; file.
  1.  ;
  1.  ;     Vertical format: VINTERM^DGPLBL1
  1.  ;   Horizontal format: HINTERM^DGPLBL1
  1.  ;
  1.  Q  ;no direct entry
  1.  ;
  1. VINTERM ;vertical label format loader for Intermec Label Printers
  1.  ; This procedure programs the Patient Information label in vertical
  1.  ; format for an Intermec label printer and stores it as format 2.
  1.  ; This procedure must defined in the OPEN EXECUTE field of the
  1.  ; TERMINAL TYPE (#3.2) file for the Intermec printer. 
  1.  ;
  1.  ;        Example:  OPEN EXECUTE: D VINTERM^DGPLBL1
  1.  ; 
  1.  U IO
  1.  W "<STX><ESC>C<ETX>",!  ;operate in "advanced" mode
  1.  W "<STX><ESC>P<ETX>",!  ;enter programming mode
  1.  W "<STX>E2;F2;<ETX>",!  ;erase format 2;create format 2
  1.  W "<STX>H0;o10,70;d0,40;f0;c25;k10;<ETX>",!  ;name field
  1.  W "<STX>H1;o10,110;d0,40;f0;c25;k10;<ETX>",!  ;SSN field
  1.  W "<STX>H2;o10,150;d0,40;f0;c25;k10;<ETX>",!  ;DOB field
  1.  W "<STX>H3;o10,190;d0,40;f0;c25;k10;<ETX>",!  ;inpatient location
  1.  Q
  1.  ;
  1. HINTERM ;horizontal label format loader for Intermec Label Printers
  1.  ; This procedure programs the Patient Information label in horizontal
  1.  ; format for an Intermec label printer and stores it as format 2.
  1.  ; This procedure must defined in the OPEN EXECUTE field of the
  1.  ; TERMINAL TYPE (#3.2) file for the Intermec printer. 
  1.  ;
  1.  ;        Example:  OPEN EXECUTE: D HINTERM^DGPLBL1
  1.  ; 
  1.  U IO
  1.  W "<STX><ESC>C<ETX>",!  ;operate in "advanced" mode
  1.  W "<STX><ESC>P<ETX>",!  ;enter programming mode
  1.  W "<STX>E2;F2;<ETX>",!  ;erase format 2;create format 2
  1.  W "<STX>H0;o210,51;d0,40;f3;c25;k10;<ETX>",!  ;name field
  1.  W "<STX>H1;o170,51;d0,40;f3;c25;k10;<ETX>",!  ;SSN field
  1.  W "<STX>H2;o130,51;d0,40;f3;c25;k10;<ETX>",!  ;DOB field
  1.  W "<STX>H3;o90,51;d0,40;f3;c25;k10;<ETX>",!  ;inpatient location
  1.  Q