source: FOIAVistA/trunk/r/DRUG_ACCOUNTABILITY-PSA/PSAENVIR.m@ 1504

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

initial load of FOIAVistA 6/30/08 version
File size: 1.5 KB
Line 
1PSAENVIR ;BIR/JMB-Environment Check ;9/6/97
2 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
3 ;
41 ;CS not installed or not V. 3.0 or greater
5 S Y=$$VERSION^XPDUTL("PSD")
6 I Y<3 D
7 .W !!,"Controlled Substances V. 2.0 or greater must be installed before installing",!,"Drug Accountability. After you install the correct version and setup a",!,"master vault, you can install Drug Accountability." S XPDABORT=1
8 I '$$PATCH^XPDUTL("PSD*3.0*6") W !,"Patch PSD*3.0*6 must be installed before installing Drug Accountability.",! S XPDABORT=1
9 ;
102 ;PDM not installed or not V. 1.0
11 S Y=$$VERSION^XPDUTL("PSS")
12 I Y="" W !!,"Pharmacy Data Management V. 1.0 or greater must be installed before",!,"installing Drug Accountability." S XPDABORT=1
13 ;
143 ;Kernel not V. 8.0
15 S Y=+$$VERSION^XPDUTL("XU")
16 I Y<8 W !!,"Kernel V. 8.0 or greater must be installed before installing Drug",!,"Accountability." S XPDABORT=1
17 ;
184 ;Toolkit not installed or not V. 7.2
19 S Y=+$$VERSION^XPDUTL("XT")
20 I Y<7.2 W !!,"Toolkit V. 7.2 or greater must be installed before installing Drug",!,"Accountability." S XPDABORT=1
21 ;
225 ;PSN not installed or not V. 3.16
23 S Y=+$$VERSION^XPDUTL("PSN")
24 I Y<3.16 W !!,"National Drug File V. 3.16 or greater must be installed before installing",!,"Drug Accountability." S XPDABORT=1
25 ;
266 ;No master vault.
27 I '$O(^PSD(58.8,"ADISP","M",0)) D
28 .W !!,"A master vault must be set up in the Controlled Substances package before",!,"installing Drug Accountability. After you have set up a master vault, you",!,"can install Drug Accountability."
29 .S XPDABORT=1
30 K Y
31 Q
Note: See TracBrowser for help on using the repository browser.