25 lines
1.4 KiB
Mathematica
25 lines
1.4 KiB
Mathematica
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.MED.VA.GOV" D ^DIC K DIC
|
|
I +Y'>0 W !!,"Aborting Install!",!,"You will need to create a domain name of 'TPB-AUSTIN.MED.VA.GOV' 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
|
|
Q
|