Last change
on this file since 794 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.