51 lines
2.1 KiB
Mathematica
51 lines
2.1 KiB
Mathematica
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
|