PSO283EN.m

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 ---PSO283EN   823     printed  Apr 09, 2024@21:28:04                                                                                                                                                                                                     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