DG53P917.m

DG53P917 ;ALB/BG - Menu Option Restore; 6/7/04 7:13pm ; 8/13/15 10:42am

 ;;5.3;Registration;**917**;Aug 13,1993;Build 10

 ;

 ;References to ^XPDMENU supported by DBIA #1157

 Q

 ;

 ;Post-init routine to restore menu option from "out of order"

 ;

 ;

OPTOUT ;Remove option from out-of-order

 N DGMCN,DGOPT,DGTXT

 S DGTXT=""

 F DGMCN=1:1 S DGOPT=$P($TEXT(OPTLIST+DGMCN),";;",2) Q:DGOPT="$$END"!(DGOPT="")  D

 . D OUT^XPDMENU(DGOPT,DGTXT) ;remove out of order

 D BMES^XPDUTL("Option Updated.")

 D ADDMENU

 Q

 ;

ADDMENU ;Add option to main menu

 N DGOM,DGMN,DGORD

 S DGOM="" F DGOM=1:1 S DGMN=$P($TEXT(MENULST+DGOM),";;",2),DGOPT=$P($TEXT(OPTLIST+DGOM),";;",2) Q:DGOM="$$END"!(DGMN="")  D

 . D ADD^XPDMENU(DGMN,DGOPT)

 D BMES^XPDUTL("Option added to Menu")

 Q

 ;

OPTLIST ;Options list

 ;;DG PTF SUFFIX EFF DATE EDIT

 ;;$$END

 ;

MENULST ;Menu List

 ;;DGPT TOOLS MENU

 ;;$$END

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P917   905     printed  Apr 09, 2024@21:57:33                                                                                                                                                                                                     Page 2

DG53P917  ;ALB/BG - Menu Option Restore; 6/7/04 7:13pm ; 8/13/15 10:42am

 +1       ;;5.3;Registration;**917**;Aug 13,1993;Build 10

 +2       ;

 +3       ;References to ^XPDMENU supported by DBIA #1157

 +4        QUIT 

 +5       ;

 +6       ;Post-init routine to restore menu option from "out of order"

 +7       ;

 +8       ;

OPTOUT    ;Remove option from out-of-order

 +1        NEW DGMCN,DGOPT,DGTXT

 +2        SET DGTXT=""

 +3        FOR DGMCN=1:1

               SET DGOPT=$PIECE($TEXT(OPTLIST+DGMCN),";;",2)

               if DGOPT="$$END"!(DGOPT="")

                   QUIT 

               Begin DoDot:1

 +4       ;remove out of order

                   DO OUT^XPDMENU(DGOPT,DGTXT)

               End DoDot:1

 +5        DO BMES^XPDUTL("Option Updated.")

 +6        DO ADDMENU

 +7        QUIT 

 +8       ;

ADDMENU   ;Add option to main menu

 +1        NEW DGOM,DGMN,DGORD

 +2        SET DGOM=""

           FOR DGOM=1:1

               SET DGMN=$PIECE($TEXT(MENULST+DGOM),";;",2)

               SET DGOPT=$PIECE($TEXT(OPTLIST+DGOM),";;",2)

               if DGOM="$$END"!(DGMN="")

                   QUIT 

               Begin DoDot:1

 +3                DO ADD^XPDMENU(DGMN,DGOPT)

               End DoDot:1

 +4        DO BMES^XPDUTL("Option added to Menu")

 +5        QUIT 

 +6       ;

OPTLIST   ;Options list

 +1       ;;DG PTF SUFFIX EFF DATE EDIT

 +2       ;;$$END

 +3       ;

MENULST   ;Menu List

 +1       ;;DGPT TOOLS MENU

 +2       ;;$$END

 +3       ;