|
Last change
on this file since 1397 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
514 bytes
|
| Line | |
|---|
| 1 | PSJIENV ;BIR/CML3-PREINIT FOR INPATIENT ; 15 May 98 / 9:28 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;**3**;16 DEC 97
|
|---|
| 3 | CHKENV ;
|
|---|
| 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.
