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