source: FOIAVistA/tag/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P436.m@ 1540

Last change on this file since 1540 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 376 bytes
Line 
1XU8P436 ;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.