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