XU8P825.m

XU8P825 ;VISS/CEP - Multi-UCI User Status Report ;10/07/25  08:37

 ;;8.0;KERNEL;**825**;Jul 10, 1995;Build 13

 ;; XU*8.0*825 Post Install

 ;

PX ;Post Install to add menu items.

    N OPT,TOADD,SYN,ISGOOD,XUGOOD,GOODCT,MSG

    D BMES^XPDUTL("Starting Post Install")

    D BMES^XPDUTL("Adding options to relevant menus")

    S GOODCT=0

    F OPT="XUOPTUSER","XUSER SEC OFCR" D

    .  S TOADD="XU MULTI UCI USER STATUS"

    .  S XUGOOD=$$ADD^XPDMENU(OPT,TOADD,"MUCI")

    .  S ISGOOD=$S($G(XUGOOD)=1:"SUCCESS",1:"FAILED")

    .  S GOODCT=+$G(GOODCT)+$G(XUGOOD)

    .  S MSG="Adding "_TOADD_" to menu: "_OPT_" --> "

    .  D BMES^XPDUTL(MSG)

    D BMES^XPDUTL("Post Install completed - added XU MULTI UCI USER STATUS to "_GOODCT_" menus.")

    Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P825   760     printed  Jul 11, 2026@02:05:32                                                                                                                                                                                                      Page 2

XU8P825   ;VISS/CEP - Multi-UCI User Status Report ;10/07/25  08:37

 +1       ;;8.0;KERNEL;**825**;Jul 10, 1995;Build 13

 +2       ;; XU*8.0*825 Post Install

 +3       ;

PX        ;Post Install to add menu items.

 +1        NEW OPT,TOADD,SYN,ISGOOD,XUGOOD,GOODCT,MSG

 +2        DO BMES^XPDUTL("Starting Post Install")

 +3        DO BMES^XPDUTL("Adding options to relevant menus")

 +4        SET GOODCT=0

 +5        FOR OPT="XUOPTUSER","XUSER SEC OFCR"

               Begin DoDot:1

 +6                SET TOADD="XU MULTI UCI USER STATUS"

 +7                SET XUGOOD=$$ADD^XPDMENU(OPT,TOADD,"MUCI")

 +8                SET ISGOOD=$SELECT($GET(XUGOOD)=1:"SUCCESS",1:"FAILED")

 +9                SET GOODCT=+$GET(GOODCT)+$GET(XUGOOD)

 +10               SET MSG="Adding "_TOADD_" to menu: "_OPT_" --> "

 +11               DO BMES^XPDUTL(MSG)

               End DoDot:1

 +12       DO BMES^XPDUTL("Post Install completed - added XU MULTI UCI USER STATUS to "_GOODCT_" menus.")

 +13       QUIT