source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSJIENV.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 514 bytes
RevLine 
[613]1PSJIENV ;BIR/CML3-PREINIT FOR INPATIENT ; 15 May 98 / 9:28 AM
2 ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97
3CHKENV ;
4 S:XPDENV=1 XPDDIQ("XPZ1")=0 ; keeps KIDS from prompting about options
5 ; Quit and don't set PSGINITF if not a virgin install
6 ;Q:$D(^DIC(9.4,"B","UNIT DOSE MEDICATIONS"))!($D(^DIC(9.4,"B","IV MEDICATIONS")))!($D(^DIC(9.4,"B","INPATIENT MEDICATIONS")))
7 I $$VERSION^XPDUTL("UNIT DOSE MEDICATIONS")!$$VERSION^XPDUTL("IV MEDICATIONS")!$$VERSION^XPDUTL("INPATIENT MEDICATIONS") Q
8 S PSGINITF=1
9 Q
Note: See TracBrowser for help on using the repository browser.