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
;
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
;
;;DGPT TOOLS MENU
;;$$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53P917 905 printed Dec 13, 2024@02:40:19 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 ;
+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 ;
+1 ;;DGPT TOOLS MENU
+2 ;;$$END
+3 ;
