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