13 lines
376 B
Mathematica
13 lines
376 B
Mathematica
XU8P436 ;SFISC/SO- SET AUSER XREF FOR HOLDERS OF XUORES KEY ;6:56 AM 11 Oct 2006
|
|
;;8.0;KERNEL;**436**;Jul 10, 1995;Build 2
|
|
;
|
|
D MES^XPDUTL("Begin post install...")
|
|
N IEN S IEN=0
|
|
F S IEN=$O(^XUSEC("XUORES",IEN)) Q:'IEN D
|
|
. I '$D(^VA(200,IEN,0))#2 Q
|
|
. N NAME S NAME=$P(^VA(200,IEN,0),U)
|
|
. S ^VA(200,"AUSER",NAME,IEN)=""
|
|
. Q
|
|
D MES^XPDUTL("Finished post install.")
|
|
Q
|