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 ---[H[J[2J[HSD53771P 1763 printed Oct 16, 2024@18:46:07 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
