Routine: PSOTPENV

PSOTPENV ;BIR/RTR-Patch 146 Environment Check routine ;07/27/03

 ;;7.0;OUTPATIENT PHARMACY;**146**;DEC 1997

 ;External reference to 4.2 supported by DBIA 3779

 ;Check for Domain

 N DIR,DIC,DA,X,Y

 K DIC S DIC(0)="X",DIC=4.2,X="TPB-AUSTIN.DOMAIN.EXT" D ^DIC K DIC

 I +Y'>0 W !!,"Aborting Install!",!,"You will need to create a domain name of 'TPB-AUSTIN.DOMAIN.EXT' for the",!,"HL7 extracts of TPB Patient information. See patch 'XM*DBA*155' for details." D  S XPDABORT=2 Q

 .W ! K DIR S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR K DIR

K Y

 I $$PATCH^XPDUTL("PSO*7.0*146") G SUB

 N PSOTPLL,DIR

 S PSOTPLL="" F  S PSOTPLL=$O(^PS(53,"B",PSOTPLL)) Q:PSOTPLL=""!($G(XPDABORT)=2)  D

 .I $$UP^XLFSTR(PSOTPLL)="NON-VA" S XPDABORT=2 D

 ..W !!,"You already have an entry in the RX PATIENT STATUS File (#53) named 'NON-VA'.",!,"This patch exports an entry with that same name, so the current entry",!,"must be changed using VA FileMan, before this patch can be installed.",!

 ..K DIR S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR S XPDABORT=2 K DIR

 I $G(XPDABORT)=2 Q

SUB ;For multiple installs

 Q:'$G(XPDENV)

 W ! K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")="Queue the Post-Install to run at what Date@Time: "

 D ^%DT K %DT I $D(DTOUT)!(Y<0) W !!,"Cannot install the patch without queuing the post-install, install aborted!",! S XPDABORT=2 Q

 S @XPDGREF@("PSOQ146")=Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOTPENV   1419     printed  Feb 19, 2025@00:02:18                                                                                                                                                                                                    Page 2

PSOTPENV  ;BIR/RTR-Patch 146 Environment Check routine ;07/27/03

 +1       ;;7.0;OUTPATIENT PHARMACY;**146**;DEC 1997

 +2       ;External reference to 4.2 supported by DBIA 3779

 +3       ;

 +4       ;Check for Domain

 +5        NEW DIR,DIC,DA,X,Y

 +6        KILL DIC

           SET DIC(0)="X"

           SET DIC=4.2

           SET X="TPB-AUSTIN.DOMAIN.EXT"

           DO ^DIC

           KILL DIC

 +7        IF +Y'>0

               WRITE !!,"Aborting Install!",!,"You will need to create a domain name of 'TPB-AUSTIN.DOMAIN.EXT' for the",!,"HL7 extracts of TPB Patient information. See patch 'XM*DBA*155' for details."

               Begin DoDot:1

 +8                WRITE !

                   KILL DIR

                   SET DIR(0)="E"

                   SET DIR("A")="Press Return to Continue"

                   DO ^DIR

                   KILL DIR

               End DoDot:1

               SET XPDABORT=2

               QUIT

 +9        KILL Y

 +10      ;

 +11       IF $$PATCH^XPDUTL("PSO*7.0*146")

               GOTO SUB

 +12       NEW PSOTPLL,DIR

 +13       SET PSOTPLL=""

FOR

               SET PSOTPLL=$ORDER(^PS(53,"B",PSOTPLL))

               if PSOTPLL=""!($GET(XPDABORT)=2)

                   QUIT

               Begin DoDot:1

 +14               IF $$UP^XLFSTR(PSOTPLL)="NON-VA"

                       SET XPDABORT=2

                       Begin DoDot:2

 +15                       WRITE !!,"You already have an entry in the RX PATIENT STATUS File (#53) named 'NON-VA'.",!,"This patch exports an entry with that same name, so the current entry",!,"must be changed using VA FileMan, before this patch can be ins

talled.",!

 +16                       KILL DIR

                           SET DIR(0)="E"

                           SET DIR("A")="Press Return to Continue"

                           DO ^DIR

                           SET XPDABORT=2

                           KILL DIR

                       End DoDot:2

               End DoDot:1

 +17       IF $GET(XPDABORT)=2

               QUIT

SUB       ;For multiple installs

 +1        if '$GET(XPDENV)

               QUIT

 +2        WRITE !

           KILL %DT

           DO NOW^%DTC

           SET %DT="RAEX"

           SET %DT(0)=%

           SET %DT("A")="Queue the Post-Install to run at what Date@Time: "

 +3        DO ^%DT

           KILL %DT

           IF $DATA(DTOUT)!(Y<0)

               WRITE !!,"Cannot install the patch without queuing the post-install, install aborted!",!

               SET XPDABORT=2

               QUIT

 +4        SET @XPDGREF@("PSOQ146")=Y

 +5        QUIT

PSOTPENV.m