SD53771P.m

SD53771P ;MNT/BJR - MARK EWL OPT/PROT OOO ;NOV 06, 2020@12:02

 ;;5.3;Scheduling;**771**;Aug 13, 1993;Build 2

 ;

 Q

 ;References to DEL^XPDPROT supported by DBIA #5567

 ;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*769 Post Install routine

 D DELPROT

 D DISPROT

 D DISOPT

 Q

DELPROT ;Delete Protocol from List Protocol

 N SDOM,SDMN,SDPROT,SDCHK,SDOP,SDTEXT

 F SDOM=1:1 S SDMN=$P($TEXT(MENLST+SDOM),";;",2) Q:SDMN="$$END"  D

 .F SDOP=1:1 S SDPROT=$P($TEXT(PROLST+SDOP),";;",2) Q:SDPROT="$$END"  D

 ..S SDCHK=$$DELETE^XPDPROT(SDMN,SDPROT)

 ..I SDCHK S SDTEXT="The "_SDPROT_" protocol has been deleted from the "_SDMN_" protocol menu." D BMES^XPDUTL(SDTEXT)

 ..I 'SDCHK S SDTEXT="The "_SDPROT_" protocol could not be deleted from the "_SDMN_" protocol menu. It may have already been removed." D BMES^XPDUTL(SDTEXT)

 Q

 ;

DISPROT ;Disable Protocols

 N SDPRTL,SDPR,SDTEXT

 F SDPR=1:1 S SDPRTL=$P($TEXT(DISLST+SDPR),";;",2) Q:SDPRTL="$$END"  D

 .D OUT^XPDPROT(SDPRTL,"DO NOT USE!! - EWL DECOM - SD*5.3*771")

 .S SDTEXT="The "_SDPRTL_" protocol has been disabled." D BMES^XPDUTL(SDTEXT)

 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*771")

 .S SDTEXT="The "_SDMN_" menu option has been disabled." D BMES^XPDUTL(SDTEXT)

 Q

MENLST ;Options list

 ;;SDAM MENU

 ;;$$END

 ;

PROLST ;Protocol List

 ;;SD WAIT LIST ENTRY

 ;;$$END

 ;

DISLST ;Protocols to Disable

 ;;SD WAIT LIST ENTRY

 ;;$$END

 ;

OPTLST ;Options to Disable

 ;;SD WAIT LIST ENTER/EDIT

 ;;$$END

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53771P   1763     printed  Apr 09, 2024@22:04:22                                                                                                                                                                                                    Page 2

SD53771P  ;MNT/BJR - MARK EWL OPT/PROT OOO ;NOV 06, 2020@12:02

 +1       ;;5.3;Scheduling;**771**;Aug 13, 1993;Build 2

 +2       ;

 +3        QUIT 

 +4       ;References to DEL^XPDPROT supported by DBIA #5567

 +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*769 Post Install routine

 +1        DO DELPROT

 +2        DO DISPROT

 +3        DO DISOPT

 +4        QUIT 

DELPROT   ;Delete Protocol from List Protocol

 +1        NEW SDOM,SDMN,SDPROT,SDCHK,SDOP,SDTEXT

 +2        FOR SDOM=1:1

               SET SDMN=$PIECE($TEXT(MENLST+SDOM),";;",2)

               if SDMN="$$END"

                   QUIT 

               Begin DoDot:1

 +3                FOR SDOP=1:1

                       SET SDPROT=$PIECE($TEXT(PROLST+SDOP),";;",2)

                       if SDPROT="$$END"

                           QUIT 

                       Begin DoDot:2

 +4                        SET SDCHK=$$DELETE^XPDPROT(SDMN,SDPROT)

 +5                        IF SDCHK

                               SET SDTEXT="The "_SDPROT_" protocol has been deleted from the "_SDMN_" protocol menu."

                               DO BMES^XPDUTL(SDTEXT)

 +6                        IF 'SDCHK

                               SET SDTEXT="The "_SDPROT_" protocol could not be deleted from the "_SDMN_" protocol menu. It may have already been removed."

                               DO BMES^XPDUTL(SDTEXT)

                       End DoDot:2

               End DoDot:1

 +7        QUIT 

 +8       ;

DISPROT   ;Disable Protocols

 +1        NEW SDPRTL,SDPR,SDTEXT

 +2        FOR SDPR=1:1

               SET SDPRTL=$PIECE($TEXT(DISLST+SDPR),";;",2)

               if SDPRTL="$$END"

                   QUIT 

               Begin DoDot:1

 +3                DO OUT^XPDPROT(SDPRTL,"DO NOT USE!! - EWL DECOM - SD*5.3*771")

 +4                SET SDTEXT="The "_SDPRTL_" protocol has been disabled."

                   DO BMES^XPDUTL(SDTEXT)

               End DoDot:1

 +5        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*771")

 +4                SET SDTEXT="The "_SDMN_" menu option has been disabled."

                   DO BMES^XPDUTL(SDTEXT)

               End DoDot:1

 +5        QUIT 

MENLST    ;Options list

 +1       ;;SDAM MENU

 +2       ;;$$END

 +3       ;

PROLST    ;Protocol List

 +1       ;;SD WAIT LIST ENTRY

 +2       ;;$$END

 +3       ;

DISLST    ;Protocols to Disable

 +1       ;;SD WAIT LIST ENTRY

 +2       ;;$$END

 +3       ;

OPTLST    ;Options to Disable

 +1       ;;SD WAIT LIST ENTER/EDIT

 +2       ;;$$END