Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
656 bytes
|
Rev | Line | |
---|
[613] | 1 | XLFNENV ;SFISC/MKO-ENVIRONMENT CHECK FOR XU*8.0*134 ;10:09 AM 29 Feb 2000
|
---|
| 2 | ;;8.0;KERNEL;**134**;Jul 10, 1995
|
---|
| 3 | ENV ;The Environment check
|
---|
| 4 | N XUNAM
|
---|
| 5 | Q:'$D(^DD(20))!($P($G(^DIC(20,0)),U)="NAME COMPONENTS")
|
---|
| 6 | S XPDQUIT=2
|
---|
| 7 | ;
|
---|
| 8 | S XUNAM=$P($G(^DIC(20,0)),U) S:XUNAM="" XUNAM=$O(^DD(20,0,"NM",XUNAM))
|
---|
| 9 | W !!,"This patch brings in a new NAME COMPONENTS file (#20),"
|
---|
| 10 | W !,"but file #20, "_XUNAM_", already exists on this system."
|
---|
| 11 | ;
|
---|
| 12 | I XUNAM="EMPLOYEE" D
|
---|
| 13 | . W !!,"Note that the Big Bang patch A4A7*1.01*11, released 17-Dec-1998,"
|
---|
| 14 | . W !,"deletes the DD for file #20, but step 5 of that patch, ""D K^A4A7KILL"","
|
---|
| 15 | . W !,"may not have been performed in this account."
|
---|
| 16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.