PSAENVIR.m

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 ---PSAENVIR   1603     printed  Apr 09, 2024@20:53:20                                                                                                                                                                                                    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