source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQOROP.m@ 1499

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

initial load of FOIAVistA 6/30/08 version

File size: 541 bytes
Line 
1XQOROP ; slc/dcm - Environment check for patch 48
2 ;;8.0;KERNEL;**48**;Oct 25, 1996
3 I '$L($T(PATCH^XPDUTL)) D MES^XPDUTL("Unable to continue, Patch XU*8.0*39 must be installed first.") S XPDQUIT=2 Q
4 I $T(OR4+1^OR4)'["46,47" D MES^XPDUTL("Unable to continue, Patch OR*2.5*47 must be installed") S XPDQUIT=2
5 I '$$PATCH^XPDUTL("LR*5.2*100") D MES^XPDUTL("Unable to continue, Patch LR*5.2*100 must be installed") S XPDQUIT=2
6 I '$$PATCH^XPDUTL("OR*2.5*46") D MES^XPDUTL("Unable to continue, Patch OR*2.5*46 must be installed") S XPDQUIT=2
7 Q
Note: See TracBrowser for help on using the repository browser.