source:
WorldVistAEHR/trunk/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
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.