Query to fetch Menu's sub menus and function names

Select fmv.menu_id, 
                  Lpad (Level, Level) || Decode (fffv.function_name, Null, ' >') "Level  ", 
                  fmev.entry_sequence seq, 
                  fmv.menu_name, 
                  fmv.user_menu_name, 
                  Nvl (fmev.prompt, '##### NOT DISPLAYED #####') prompt, 
                  Nvl (fffv.function_name, '***** SUB-MENU *****') function_name, 
                  Nvl (fffv.user_function_name, '***** SUB-MENU *****') user_function_name, 
                  fffv.parameters 
             From fnd_menu_entries_vl fmev, fnd_menus_vl fmv, fnd_form_functions_vl fffv 
            Where fmv.menu_id = fmev.menu_id And fffv.function_id(+) = fmev.function_id And Nvl (fmev.grant_flag, 'N') = 'Y' 
       Start With fmv.menu_name =  :start_menu_name 
       Connect By Prior fmev.sub_menu_id = fmev.menu_id 
Order Siblings By fmev.entry_sequence