SD53748P.m

SD53748P ;MNT/BJR - Add Menu ; May 04, 2020@08:17:35

 ;;5.3;Scheduling;**748**;Aug 13, 1993;Build 10

 ;

 ;References to $$ADD^XPDMENU supported by DBIA #1157

 Q

 ;

 ;Post-init routine to add new option to primary menu

 ;

 ;

ADDMNU ;Add option to main menu

 N SDOM,SDMN,SDOPT,SDCHK

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

 .S SDCHK=$$ADD^XPDMENU(SDMN,SDOPT)

 I SDCHK D BMES^XPDUTL("The SCENI IEMM VISIT CORRECTION option has been added to the SCENI IEMM MAIN MENU.")

 I 'SDCHK D BMES^XPDUTL("The SCENI IEMM VISIT CORRECTION could not be added to the SCENI IEMM MAIN MENU.")

 I 'SDCHK D BMES^XPDUTL("Please open a Service Now ticket for assistance.")

 Q

 ;

OPTLIST ;Options list

 ;;SCENI IEMM VISIT CORRECTION

 ;;$$END

 ;

MENULST ;Menu List

 ;;SCENI IEMM MAIN MENU

 ;;$$END

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SD53748P   886     printed  Dec 13, 2024@02:45:28                                                                                                                                                                                                     Page 2

SD53748P  ;MNT/BJR - Add Menu ; May 04, 2020@08:17:35

 +1       ;;5.3;Scheduling;**748**;Aug 13, 1993;Build 10

 +2       ;

 +3       ;References to $$ADD^XPDMENU supported by DBIA #1157

 +4        QUIT 

 +5       ;

 +6       ;Post-init routine to add new option to primary menu

 +7       ;

 +8       ;

ADDMNU    ;Add option to main menu

 +1        NEW SDOM,SDMN,SDOPT,SDCHK

 +2        SET SDOM=""

           FOR SDOM=1:1

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

               SET SDOPT=$PIECE($TEXT(OPTLIST+SDOM),";;",2)

               if SDMN="$$END"!(SDOM="")

                   QUIT 

               Begin DoDot:1

 +3                SET SDCHK=$$ADD^XPDMENU(SDMN,SDOPT)

               End DoDot:1

 +4        IF SDCHK

               DO BMES^XPDUTL("The SCENI IEMM VISIT CORRECTION option has been added to the SCENI IEMM MAIN MENU.")

 +5        IF 'SDCHK

               DO BMES^XPDUTL("The SCENI IEMM VISIT CORRECTION could not be added to the SCENI IEMM MAIN MENU.")

 +6        IF 'SDCHK

               DO BMES^XPDUTL("Please open a Service Now ticket for assistance.")

 +7        QUIT 

 +8       ;

OPTLIST   ;Options list

 +1       ;;SCENI IEMM VISIT CORRECTION

 +2       ;;$$END

 +3       ;

MENULST   ;Menu List

 +1       ;;SCENI IEMM MAIN MENU

 +2       ;;$$END

 +3       ;