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