Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
541 bytes
|
Rev | Line | |
---|
[628] | 1 | XQOROP ; 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.