source: FOIAVistA/trunk/r/ENROLLMENT_APPLICATION_SYSTEM-EAS/EASXDRUT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1EASXDRUT ;ALB/AEG - Duplicate Patient Relations Utilities ;7-12-02
2 ;;1.0;ENROLLMENT APPLICATION SYSTEM;**10**;Mar 15, 2002
3 ;
4TEXT ; Print Screen Text upon Entry into the option.
5 N TEX,I F I=1:1 S TEX=$P($T(DESC+I),";;",2) Q:TEX="QUIT" D
6 .I I'>2 W !,?17,TEX
7 .E W !,?3,TEX
8 K I,X
9 Q
10 ;
11DESC ; Text to be printed upon entry into the option.
12 ;;*** DUPLICATE PATIENT RELATIONS REPORT ***
13 ;;
14 ;;This report will search the PATIENT RELATION file (#408.12) to identify
15 ;;those entries where potential duplicates exist.
16 ;;
17 ;;This report is designed for an 80 column print device or a terminal
18 ;;using the HOME device. The report may take a long time to generate,
19 ;;accordingly, it is recommended that it be queued to an 80 column
20 ;;print device. The P-MESSAGE device is NOT recommended for use, nor
21 ;;should the output format be specified at the device prompt in order to
22 ;;do a screen capture.
23 ;;QUIT
24 ;
25SETUP ; Setup output variables based on terminal type.
26 S COL1=0
27 S COL2=11
28 S COL3=38
29 S COL4=48
30 S COL5=58
31 S COL6=63
32 S COL7=74
33 S $P(EQL,"=",IOM)=""
34 S $P(DAL,"-",IOM)=""
35 Q
36 ;
37PAUSE ;
38 N IY,ZZ
39 S ZZ=$Y
40 I $E(IOST,1,2)="C-" D
41 .F IY=ZZ:1:(IOSL-4) W !
42 .K DIR,DIRUT
43 .S DIR(0)="E"
44 .D ^DIR
45 .;W @IOF
46 Q
Note: See TracBrowser for help on using the repository browser.