source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSO283EN.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 804 bytes
Line 
1PSO283EN ;BIR/MFR-EXPIRATION DATE CLEAN UP - Environment Check ;05/03/07
2 ;;7.0;OUTPATIENT PHARMACY;**283**;DEC 1997;Build 28
3 ;
4 N TIME,DIR
5 S DIR("A",1)="This patch reads the entire PRESCRIPTION file (#52) and counts"
6 S DIR("A",2)="prescriptions with expiration date problem."
7 S DIR("A",3)=" "
8 S DIR("A",4)="Please, refer to the patch description for more detailed information."
9 S DIR("A",5)=" "
10 S TIME=$P(^PSRX(0),"^",4)/1000000+.5*1.4\1
11 S DIR("A",6)="ESTIMATED DURATION: "_$S(TIME=0:"LESS THAN 1 HOUR",TIME=1:"1 HOUR",1:TIME_" HOURS")
12 S DIR("A",7)=" "
13 S DIR("A",8)="To STOP, RESUME or VIEW the current status of the post-install,"
14 S DIR("A",9)="run the following command in programmer mode: >D ^PSO283PI"
15 S DIR("A",10)=" "
16 ;
17 S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR
18 ;
19 Q
Note: See TracBrowser for help on using the repository browser.