SD53786P ;MNT/BJR - UUNSCHEDULE EWL BACKGROUND ; Apr 26, 2021@12:47
;;5.3;Scheduling;**786**;Aug 13, 1993;Build 3
;
Q
;References to RESCH^XUTMOPT supported by DBIA #1472
;References to OUT^XPDPROT supported by DBIA #5567
;References to BMES^XPDUTL supported by DBIA #10141
;
;Post-init routine to add new option to primary menu
;
;
EN ;Entry point for SD*5.3*786 Post Install routine
D DISOPT
D UNSCHOPT
Q
DISOPT ;Disable Options
N SDOM,SDMN,SDTEXT
F SDOM=1:1 S SDMN=$P($TEXT(OPTLST+SDOM),";;",2) Q:SDMN="$$END" D
.D OUT^XPDMENU(SDMN,"DO NOT USE!! EWL DECOM - SD*5.3*786")
.S SDTEXT="The "_SDMN_" menu option has been disabled." D BMES^XPDUTL(SDTEXT)
Q
UNSCHOPT ;Unschedule Option
N SDOM,SDMN,SDTEXT
F SDOM=1:1 S SDMN=$P($TEXT(OPTLST+SDOM),";;",2) Q:SDMN="$$END" D
.D RESCH^XUTMOPT(SDMN,"@",,"@")
.S SDTEXT="The "_SDMN_" menu option has been unscheduled." D BMES^XPDUTL(SDTEXT)
Q
OPTLST ;Options to Disable
;;SD EWL BACKGROUND JOB
;;$$END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD53786P 997 printed Oct 16, 2024@18:46:08 Page 2
SD53786P ;MNT/BJR - UUNSCHEDULE EWL BACKGROUND ; Apr 26, 2021@12:47
+1 ;;5.3;Scheduling;**786**;Aug 13, 1993;Build 3
+2 ;
+3 QUIT
+4 ;References to RESCH^XUTMOPT supported by DBIA #1472
+5 ;References to OUT^XPDPROT supported by DBIA #5567
+6 ;References to BMES^XPDUTL supported by DBIA #10141
+7 ;
+8 ;Post-init routine to add new option to primary menu
+9 ;
+10 ;
EN ;Entry point for SD*5.3*786 Post Install routine
+1 DO DISOPT
+2 DO UNSCHOPT
+3 QUIT
DISOPT ;Disable Options
+1 NEW SDOM,SDMN,SDTEXT
+2 FOR SDOM=1:1
SET SDMN=$PIECE($TEXT(OPTLST+SDOM),";;",2)
if SDMN="$$END"
QUIT
Begin DoDot:1
+3 DO OUT^XPDMENU(SDMN,"DO NOT USE!! EWL DECOM - SD*5.3*786")
+4 SET SDTEXT="The "_SDMN_" menu option has been disabled."
DO BMES^XPDUTL(SDTEXT)
End DoDot:1
+5 QUIT
UNSCHOPT ;Unschedule Option
+1 NEW SDOM,SDMN,SDTEXT
+2 FOR SDOM=1:1
SET SDMN=$PIECE($TEXT(OPTLST+SDOM),";;",2)
if SDMN="$$END"
QUIT
Begin DoDot:1
+3 DO RESCH^XUTMOPT(SDMN,"@",,"@")
+4 SET SDTEXT="The "_SDMN_" menu option has been unscheduled."
DO BMES^XPDUTL(SDTEXT)
End DoDot:1
+5 QUIT
OPTLST ;Options to Disable
+1 ;;SD EWL BACKGROUND JOB
+2 ;;$$END
