- 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