source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOTPENV.m@ 794

Last change on this file since 794 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.4 KB
Line 
1PSOTPENV ;BIR/RTR-Patch 146 Environment Check routine ;07/27/03
2 ;;7.0;OUTPATIENT PHARMACY;**146**;DEC 1997
3 ;External reference to 4.2 supported by DBIA 3779
4 ;
5 ;Check for Domain
6 N DIR,DIC,DA,X,Y
7 K DIC S DIC(0)="X",DIC=4.2,X="TPB-AUSTIN.MED.VA.GOV" D ^DIC K DIC
8 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
9 .W ! K DIR S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR K DIR
10 K Y
11 ;
12 I $$PATCH^XPDUTL("PSO*7.0*146") G SUB
13 N PSOTPLL,DIR
14 S PSOTPLL="" F S PSOTPLL=$O(^PS(53,"B",PSOTPLL)) Q:PSOTPLL=""!($G(XPDABORT)=2) D
15 .I $$UP^XLFSTR(PSOTPLL)="NON-VA" S XPDABORT=2 D
16 ..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.",!
17 ..K DIR S DIR(0)="E",DIR("A")="Press Return to Continue" D ^DIR S XPDABORT=2 K DIR
18 I $G(XPDABORT)=2 Q
19SUB ;For multiple installs
20 Q:'$G(XPDENV)
21 W ! K %DT D NOW^%DTC S %DT="RAEX",%DT(0)=%,%DT("A")="Queue the Post-Install to run at what Date@Time: "
22 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
23 S @XPDGREF@("PSOQ146")=Y
24 Q
Note: See TracBrowser for help on using the repository browser.