|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
1.2 KB
|
| Line | |
|---|
| 1 | EASXDRUT ;ALB/AEG - Duplicate Patient Relations Utilities ;7-12-02
|
|---|
| 2 | ;;1.0;ENROLLMENT APPLICATION SYSTEM;**10**;Mar 15, 2002
|
|---|
| 3 | ;
|
|---|
| 4 | TEXT ; 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 | ;
|
|---|
| 11 | DESC ; 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 | ;
|
|---|
| 25 | SETUP ; 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 | ;
|
|---|
| 37 | PAUSE ;
|
|---|
| 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.
