- 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 Apr 23, 2025@18:03:44 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
