XU8P436.m

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

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

 +2       ;

 +3        DO MES^XPDUTL("Begin post install...")

 +4        NEW IEN

           SET IEN=0

 +5        FOR 

               SET IEN=$ORDER(^XUSEC("XUORES",IEN))

               IF 'IEN

                   QUIT 

               Begin DoDot:1

 +6                IF '$DATA(^VA(200,IEN,0))#2

                       QUIT 

 +7                NEW NAME

                   SET NAME=$PIECE(^VA(200,IEN,0),U)

 +8                SET ^VA(200,"AUSER",NAME,IEN)=""

 +9                QUIT 

               End DoDot:1

 +10       DO MES^XPDUTL("Finished post install.")

 +11       QUIT