source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPLBL1.m@ 1311

Last change on this file since 1311 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1DGPLBL1 ;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 ;
16VINTERM ;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 ;
34HINTERM ;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
Note: See TracBrowser for help on using the repository browser.