Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XU8P436

XU8P436.m

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