PSAENVIR ;BIR/JMB-Environment Check ;9/6/97
;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
;
1 ;CS not installed or not V. 3.0 or greater
S Y=$$VERSION^XPDUTL("PSD")
I Y<3 D
.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
I '$$PATCH^XPDUTL("PSD*3.0*6") W !,"Patch PSD*3.0*6 must be installed before installing Drug Accountability.",! S XPDABORT=1
;
2 ;PDM not installed or not V. 1.0
S Y=$$VERSION^XPDUTL("PSS")
I Y="" W !!,"Pharmacy Data Management V. 1.0 or greater must be installed before",!,"installing Drug Accountability." S XPDABORT=1
;
3 ;Kernel not V. 8.0
S Y=+$$VERSION^XPDUTL("XU")
I Y<8 W !!,"Kernel V. 8.0 or greater must be installed before installing Drug",!,"Accountability." S XPDABORT=1
;
4 ;Toolkit not installed or not V. 7.2
S Y=+$$VERSION^XPDUTL("XT")
I Y<7.2 W !!,"Toolkit V. 7.2 or greater must be installed before installing Drug",!,"Accountability." S XPDABORT=1
;
5 ;PSN not installed or not V. 3.16
S Y=+$$VERSION^XPDUTL("PSN")
I Y<3.16 W !!,"National Drug File V. 3.16 or greater must be installed before installing",!,"Drug Accountability." S XPDABORT=1
;
6 ;No master vault.
I '$O(^PSD(58.8,"ADISP","M",0)) D
.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."
.S XPDABORT=1
K Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSAENVIR 1603 printed Dec 13, 2024@01:49:17 Page 2
PSAENVIR ;BIR/JMB-Environment Check ;9/6/97
+1 ;;3.0; DRUG ACCOUNTABILITY/INVENTORY INTERFACE;; 10/24/97
+2 ;
1 ;CS not installed or not V. 3.0 or greater
+1 SET Y=$$VERSION^XPDUTL("PSD")
+2 IF Y<3
Begin DoDot:1
+3 WRITE !!,"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."
SET XPDABORT=1
End DoDot:1
+4 IF '$$PATCH^XPDUTL("PSD*3.0*6")
WRITE !,"Patch PSD*3.0*6 must be installed before installing Drug Accountability.",!
SET XPDABORT=1
+5 ;
2 ;PDM not installed or not V. 1.0
+1 SET Y=$$VERSION^XPDUTL("PSS")
+2 IF Y=""
WRITE !!,"Pharmacy Data Management V. 1.0 or greater must be installed before",!,"installing Drug Accountability."
SET XPDABORT=1
+3 ;
3 ;Kernel not V. 8.0
+1 SET Y=+$$VERSION^XPDUTL("XU")
+2 IF Y<8
WRITE !!,"Kernel V. 8.0 or greater must be installed before installing Drug",!,"Accountability."
SET XPDABORT=1
+3 ;
4 ;Toolkit not installed or not V. 7.2
+1 SET Y=+$$VERSION^XPDUTL("XT")
+2 IF Y<7.2
WRITE !!,"Toolkit V. 7.2 or greater must be installed before installing Drug",!,"Accountability."
SET XPDABORT=1
+3 ;
5 ;PSN not installed or not V. 3.16
+1 SET Y=+$$VERSION^XPDUTL("PSN")
+2 IF Y<3.16
WRITE !!,"National Drug File V. 3.16 or greater must be installed before installing",!,"Drug Accountability."
SET XPDABORT=1
+3 ;
6 ;No master vault.
+1 IF '$ORDER(^PSD(58.8,"ADISP","M",0))
Begin DoDot:1
+2 WRITE !!,"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."
+3 SET XPDABORT=1
End DoDot:1
+4 KILL Y
+5 QUIT
