PSJIENV.m

PSJIENV ;BIR/CML3-PREINIT FOR INPATIENT ; 15 May 98 / 9:28 AM

 ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97

CHKENV ;

 S:XPDENV=1 XPDDIQ("XPZ1")=0  ; keeps KIDS from prompting about options

 ;  Quit and don't set PSGINITF if not a virgin install

 ;Q:$D(^DIC(9.4,"B","UNIT DOSE MEDICATIONS"))!($D(^DIC(9.4,"B","IV MEDICATIONS")))!($D(^DIC(9.4,"B","INPATIENT MEDICATIONS")))

 I $$VERSION^XPDUTL("UNIT DOSE MEDICATIONS")!$$VERSION^XPDUTL("IV MEDICATIONS")!$$VERSION^XPDUTL("INPATIENT MEDICATIONS") Q

 S PSGINITF=1

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJIENV   523     printed  Apr 09, 2024@21:09:16                                                                                                                                                                                                      Page 2

PSJIENV   ;BIR/CML3-PREINIT FOR INPATIENT ; 15 May 98 / 9:28 AM

 +1       ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97

CHKENV    ;

 +1       ; keeps KIDS from prompting about options

           if XPDENV=1

               SET XPDDIQ("XPZ1")=0

 +2       ;  Quit and don't set PSGINITF if not a virgin install

 +3       ;Q:$D(^DIC(9.4,"B","UNIT DOSE MEDICATIONS"))!($D(^DIC(9.4,"B","IV MEDICATIONS")))!($D(^DIC(9.4,"B","INPATIENT MEDICATIONS")))

 +4        IF $$VERSION^XPDUTL("UNIT DOSE MEDICATIONS")!$$VERSION^XPDUTL("IV MEDICATIONS")!$$VERSION^XPDUTL("INPATIENT MEDICATIONS")

               QUIT 

 +5        SET PSGINITF=1

 +6        QUIT