PSO283EN ;BIR/MFR-EXPIRATION DATE CLEAN UP - Environment Check ;05/03/07
;;7.0;OUTPATIENT PHARMACY;**283**;DEC 1997;Build 28
;
N TIME,DIR
S DIR("A",1)="This patch reads the entire PRESCRIPTION file (#52) and counts"
S DIR("A",2)="prescriptions with expiration date problem."
S DIR("A",3)=" "
S DIR("A",4)="Please, refer to the patch description for more detailed information."
S DIR("A",5)=" "
S TIME=$P(^PSRX(0),"^",4)/1000000+.5*1.4\1
S DIR("A",6)="ESTIMATED DURATION: "_$S(TIME=0:"LESS THAN 1 HOUR",TIME=1:"1 HOUR",1:TIME_" HOURS")
S DIR("A",7)=" "
S DIR("A",8)="To STOP, RESUME or VIEW the current status of the post-install,"
S DIR("A",9)="run the following command in programmer mode: >D ^PSO283PI"
S DIR("A",10)=" "
;
S DIR(0)="E",DIR("A")="Press Return to continue" D ^DIR
;
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO283EN 823 printed Dec 13, 2024@02:22:46 Page 2
PSO283EN ;BIR/MFR-EXPIRATION DATE CLEAN UP - Environment Check ;05/03/07
+1 ;;7.0;OUTPATIENT PHARMACY;**283**;DEC 1997;Build 28
+2 ;
+3 NEW TIME,DIR
+4 SET DIR("A",1)="This patch reads the entire PRESCRIPTION file (#52) and counts"
+5 SET DIR("A",2)="prescriptions with expiration date problem."
+6 SET DIR("A",3)=" "
+7 SET DIR("A",4)="Please, refer to the patch description for more detailed information."
+8 SET DIR("A",5)=" "
+9 SET TIME=$PIECE(^PSRX(0),"^",4)/1000000+.5*1.4\1
+10 SET DIR("A",6)="ESTIMATED DURATION: "_$SELECT(TIME=0:"LESS THAN 1 HOUR",TIME=1:"1 HOUR",1:TIME_" HOURS")
+11 SET DIR("A",7)=" "
+12 SET DIR("A",8)="To STOP, RESUME or VIEW the current status of the post-install,"
+13 SET DIR("A",9)="run the following command in programmer mode: >D ^PSO283PI"
+14 SET DIR("A",10)=" "
+15 ;
+16 SET DIR(0)="E"
SET DIR("A")="Press Return to continue"
DO ^DIR
+17 ;
+18 QUIT
