DGPLBL1 ;ALB/RPM - PATIENT INFORMATION LABEL UTILITIES ; 04/08/04
;;5.3;Registration;**571**;Aug 13, 1993
;
; This routine contains procedures that will define either a
; vertical or horizontal format form for printing patient labels
; on an Intermec label printer. The formatting is done using
; Intermec Programming Language (IPL). Use the appropriate entry
; point in the OPEN EXECUTE (#6) field of the TERMINAL TYPE (#3.2)
; file.
;
; Vertical format: VINTERM^DGPLBL1
; Horizontal format: HINTERM^DGPLBL1
;
Q ;no direct entry
;
VINTERM ;vertical label format loader for Intermec Label Printers
; This procedure programs the Patient Information label in vertical
; format for an Intermec label printer and stores it as format 2.
; This procedure must defined in the OPEN EXECUTE field of the
; TERMINAL TYPE (#3.2) file for the Intermec printer.
;
; Example: OPEN EXECUTE: D VINTERM^DGPLBL1
;
U IO
W "<STX><ESC>C<ETX>",! ;operate in "advanced" mode
W "<STX><ESC>P<ETX>",! ;enter programming mode
W "<STX>E2;F2;<ETX>",! ;erase format 2;create format 2
W "<STX>H0;o10,70;d0,40;f0;c25;k10;<ETX>",! ;name field
W "<STX>H1;o10,110;d0,40;f0;c25;k10;<ETX>",! ;SSN field
W "<STX>H2;o10,150;d0,40;f0;c25;k10;<ETX>",! ;DOB field
W "<STX>H3;o10,190;d0,40;f0;c25;k10;<ETX>",! ;inpatient location
Q
;
HINTERM ;horizontal label format loader for Intermec Label Printers
; This procedure programs the Patient Information label in horizontal
; format for an Intermec label printer and stores it as format 2.
; This procedure must defined in the OPEN EXECUTE field of the
; TERMINAL TYPE (#3.2) file for the Intermec printer.
;
; Example: OPEN EXECUTE: D HINTERM^DGPLBL1
;
U IO
W "<STX><ESC>C<ETX>",! ;operate in "advanced" mode
W "<STX><ESC>P<ETX>",! ;enter programming mode
W "<STX>E2;F2;<ETX>",! ;erase format 2;create format 2
W "<STX>H0;o210,51;d0,40;f3;c25;k10;<ETX>",! ;name field
W "<STX>H1;o170,51;d0,40;f3;c25;k10;<ETX>",! ;SSN field
W "<STX>H2;o130,51;d0,40;f3;c25;k10;<ETX>",! ;DOB field
W "<STX>H3;o90,51;d0,40;f3;c25;k10;<ETX>",! ;inpatient location
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGPLBL1 2192 printed Dec 13, 2024@02:49:04 Page 2
DGPLBL1 ;ALB/RPM - PATIENT INFORMATION LABEL UTILITIES ; 04/08/04
+1 ;;5.3;Registration;**571**;Aug 13, 1993
+2 ;
+3 ; This routine contains procedures that will define either a
+4 ; vertical or horizontal format form for printing patient labels
+5 ; on an Intermec label printer. The formatting is done using
+6 ; Intermec Programming Language (IPL). Use the appropriate entry
+7 ; point in the OPEN EXECUTE (#6) field of the TERMINAL TYPE (#3.2)
+8 ; file.
+9 ;
+10 ; Vertical format: VINTERM^DGPLBL1
+11 ; Horizontal format: HINTERM^DGPLBL1
+12 ;
+13 ;no direct entry
QUIT
+14 ;
VINTERM ;vertical label format loader for Intermec Label Printers
+1 ; This procedure programs the Patient Information label in vertical
+2 ; format for an Intermec label printer and stores it as format 2.
+3 ; This procedure must defined in the OPEN EXECUTE field of the
+4 ; TERMINAL TYPE (#3.2) file for the Intermec printer.
+5 ;
+6 ; Example: OPEN EXECUTE: D VINTERM^DGPLBL1
+7 ;
+8 USE IO
+9 ;operate in "advanced" mode
WRITE "<STX><ESC>C<ETX>",!
+10 ;enter programming mode
WRITE "<STX><ESC>P<ETX>",!
+11 ;erase format 2;create format 2
WRITE "<STX>E2;F2;<ETX>",!
+12 ;name field
WRITE "<STX>H0;o10,70;d0,40;f0;c25;k10;<ETX>",!
+13 ;SSN field
WRITE "<STX>H1;o10,110;d0,40;f0;c25;k10;<ETX>",!
+14 ;DOB field
WRITE "<STX>H2;o10,150;d0,40;f0;c25;k10;<ETX>",!
+15 ;inpatient location
WRITE "<STX>H3;o10,190;d0,40;f0;c25;k10;<ETX>",!
+16 QUIT
+17 ;
HINTERM ;horizontal label format loader for Intermec Label Printers
+1 ; This procedure programs the Patient Information label in horizontal
+2 ; format for an Intermec label printer and stores it as format 2.
+3 ; This procedure must defined in the OPEN EXECUTE field of the
+4 ; TERMINAL TYPE (#3.2) file for the Intermec printer.
+5 ;
+6 ; Example: OPEN EXECUTE: D HINTERM^DGPLBL1
+7 ;
+8 USE IO
+9 ;operate in "advanced" mode
WRITE "<STX><ESC>C<ETX>",!
+10 ;enter programming mode
WRITE "<STX><ESC>P<ETX>",!
+11 ;erase format 2;create format 2
WRITE "<STX>E2;F2;<ETX>",!
+12 ;name field
WRITE "<STX>H0;o210,51;d0,40;f3;c25;k10;<ETX>",!
+13 ;SSN field
WRITE "<STX>H1;o170,51;d0,40;f3;c25;k10;<ETX>",!
+14 ;DOB field
WRITE "<STX>H2;o130,51;d0,40;f3;c25;k10;<ETX>",!
+15 ;inpatient location
WRITE "<STX>H3;o90,51;d0,40;f3;c25;k10;<ETX>",!
+16 QUIT
