|
Last change
on this file since 1015 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | PSO293EN ;BIR/MFR-EXPIRATION DATE CLEAN UP - Environment Check ;05/03/07
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**293**;DEC 1997;Build 22
|
|---|
| 3 | ;
|
|---|
| 4 | N TIME,DIR
|
|---|
| 5 | S DIR("A",1)="This patch reads the entire PRESCRIPTION file (#52) and performs"
|
|---|
| 6 | S DIR("A",2)="the 3 updates below (IF NECESSARY):"
|
|---|
| 7 | S DIR("A",3)=" "
|
|---|
| 8 | S DIR("A",4)=" 1. Set/Fix the Rx Expiration Date if not present or > 366 days"
|
|---|
| 9 | S DIR("A",5)=" 2. Synchronize the Rx Status with CPRS for expired Rx's"
|
|---|
| 10 | S DIR("A",6)=" 3. Synchronize the Rx Status with HDR for expired/deleted Rx's"
|
|---|
| 11 | S DIR("A",7)=" "
|
|---|
| 12 | S DIR("A",8)="*** Refer to the patch description for more detailed information ***"
|
|---|
| 13 | S DIR("A",9)=" "
|
|---|
| 14 | S TIME=$P(^PSRX(0),"^",4)/1000000+.5*1.4\1
|
|---|
| 15 | S DIR("A",10)="ESTIMATED DURATION: "_$S(TIME=0:"LESS THAN 1 HOUR",TIME=1:"1 HOUR",1:TIME_" HOURS")
|
|---|
| 16 | S DIR("A",11)=" "
|
|---|
| 17 | S DIR("A",12)="To STOP, RESUME or VIEW the current status of the clean up, run the"
|
|---|
| 18 | S DIR("A",13)="following command in programmer mode: >D ^PSO293PI"
|
|---|
| 19 | S DIR("A",14)=" "
|
|---|
| 20 | ;
|
|---|
| 21 | S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR
|
|---|
| 22 | ;
|
|---|
| 23 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
