DGPLBL1.m

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 ---DGPLBL1   2192     printed  Apr 09, 2024@21:58:59                                                                                                                                                                                                     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