PSO581EN.m

PSO581EN ;ALB/BWF^PSO*7*581 ENV CHECK ; 10/25/2019 12:14pm

 ;;7.0;OUTPATIENT PHARMACY;**581**;DEC 1997;Build 126

 I '$D(^TMP("PSO581PO")) D  Q

 .D EN^DDIOL("The file PSO_7_581.GBL must be loaded before installation.")

 .S DIR(0)="E",DIR("A")="Press enter to continue" D ^DIR

 .S XPDABORT=1,XPDQUIT=1,XPDQUIT("PSO*7.0*581")=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO581EN   335     printed  Dec 13, 2024@02:23:18                                                                                                                                                                                                     Page 2

PSO581EN  ;ALB/BWF^PSO*7*581 ENV CHECK ; 10/25/2019 12:14pm

 +1       ;;7.0;OUTPATIENT PHARMACY;**581**;DEC 1997;Build 126

 +2        IF '$DATA(^TMP("PSO581PO"))

               Begin DoDot:1

 +3                DO EN^DDIOL("The file PSO_7_581.GBL must be loaded before installation.")

 +4                SET DIR(0)="E"

                   SET DIR("A")="Press enter to continue"

                   DO ^DIR

 +5                SET XPDABORT=1

                   SET XPDQUIT=1

                   SET XPDQUIT("PSO*7.0*581")=1

               End DoDot:1

               QUIT 

 +6        QUIT