| 1 | DGPLBL1 ;ALB/RPM - PATIENT INFORMATION LABEL UTILITIES ; 04/08/04
|
|---|
| 2 | ;;5.3;Registration;**571**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine contains procedures that will define either a
|
|---|
| 5 | ; vertical or horizontal format form for printing patient labels
|
|---|
| 6 | ; on an Intermec label printer. The formatting is done using
|
|---|
| 7 | ; Intermec Programming Language (IPL). Use the appropriate entry
|
|---|
| 8 | ; point in the OPEN EXECUTE (#6) field of the TERMINAL TYPE (#3.2)
|
|---|
| 9 | ; file.
|
|---|
| 10 | ;
|
|---|
| 11 | ; Vertical format: VINTERM^DGPLBL1
|
|---|
| 12 | ; Horizontal format: HINTERM^DGPLBL1
|
|---|
| 13 | ;
|
|---|
| 14 | Q ;no direct entry
|
|---|
| 15 | ;
|
|---|
| 16 | VINTERM ;vertical label format loader for Intermec Label Printers
|
|---|
| 17 | ; This procedure programs the Patient Information label in vertical
|
|---|
| 18 | ; format for an Intermec label printer and stores it as format 2.
|
|---|
| 19 | ; This procedure must defined in the OPEN EXECUTE field of the
|
|---|
| 20 | ; TERMINAL TYPE (#3.2) file for the Intermec printer.
|
|---|
| 21 | ;
|
|---|
| 22 | ; Example: OPEN EXECUTE: D VINTERM^DGPLBL1
|
|---|
| 23 | ;
|
|---|
| 24 | U IO
|
|---|
| 25 | W "<STX><ESC>C<ETX>",! ;operate in "advanced" mode
|
|---|
| 26 | W "<STX><ESC>P<ETX>",! ;enter programming mode
|
|---|
| 27 | W "<STX>E2;F2;<ETX>",! ;erase format 2;create format 2
|
|---|
| 28 | W "<STX>H0;o10,70;d0,40;f0;c25;k10;<ETX>",! ;name field
|
|---|
| 29 | W "<STX>H1;o10,110;d0,40;f0;c25;k10;<ETX>",! ;SSN field
|
|---|
| 30 | W "<STX>H2;o10,150;d0,40;f0;c25;k10;<ETX>",! ;DOB field
|
|---|
| 31 | W "<STX>H3;o10,190;d0,40;f0;c25;k10;<ETX>",! ;inpatient location
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | HINTERM ;horizontal label format loader for Intermec Label Printers
|
|---|
| 35 | ; This procedure programs the Patient Information label in horizontal
|
|---|
| 36 | ; format for an Intermec label printer and stores it as format 2.
|
|---|
| 37 | ; This procedure must defined in the OPEN EXECUTE field of the
|
|---|
| 38 | ; TERMINAL TYPE (#3.2) file for the Intermec printer.
|
|---|
| 39 | ;
|
|---|
| 40 | ; Example: OPEN EXECUTE: D HINTERM^DGPLBL1
|
|---|
| 41 | ;
|
|---|
| 42 | U IO
|
|---|
| 43 | W "<STX><ESC>C<ETX>",! ;operate in "advanced" mode
|
|---|
| 44 | W "<STX><ESC>P<ETX>",! ;enter programming mode
|
|---|
| 45 | W "<STX>E2;F2;<ETX>",! ;erase format 2;create format 2
|
|---|
| 46 | W "<STX>H0;o210,51;d0,40;f3;c25;k10;<ETX>",! ;name field
|
|---|
| 47 | W "<STX>H1;o170,51;d0,40;f3;c25;k10;<ETX>",! ;SSN field
|
|---|
| 48 | W "<STX>H2;o130,51;d0,40;f3;c25;k10;<ETX>",! ;DOB field
|
|---|
| 49 | W "<STX>H3;o90,51;d0,40;f3;c25;k10;<ETX>",! ;inpatient location
|
|---|
| 50 | Q
|
|---|
