SD53786P.m

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 ---SD53786P   997     printed  Feb 19, 2025@00:11:59                                                                                                                                                                                                     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