Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
376 bytes
|
Rev | Line | |
---|
[613] | 1 | XU8P436 ;SFISC/SO- SET AUSER XREF FOR HOLDERS OF XUORES KEY ;6:56 AM 11 Oct 2006
|
---|
| 2 | ;;8.0;KERNEL;**436**;Jul 10, 1995;Build 2
|
---|
| 3 | ;
|
---|
| 4 | D MES^XPDUTL("Begin post install...")
|
---|
| 5 | N IEN S IEN=0
|
---|
| 6 | F S IEN=$O(^XUSEC("XUORES",IEN)) Q:'IEN D
|
---|
| 7 | . I '$D(^VA(200,IEN,0))#2 Q
|
---|
| 8 | . N NAME S NAME=$P(^VA(200,IEN,0),U)
|
---|
| 9 | . S ^VA(200,"AUSER",NAME,IEN)=""
|
---|
| 10 | . Q
|
---|
| 11 | D MES^XPDUTL("Finished post install.")
|
---|
| 12 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.