Creating Menus in Oracle Apps Using API

DECLARE
l_new_menu_id     NUMBER; 
l_last_menu_id    NUMBER; 
l_row_id          VARCHAR2(100); 
l_descr           VARCHAR2(400); 
l_flag_exist_menu NUMBER := 0;
lc_status         VARCHAR2(1);
v_menu_id         NUMBER;
v_function_id     NUMBER;
v_sub_menu_id     NUMBER;
CURSOR C1
IS
SELECT A.*
FROM   XX_FND_MENU_ENTRIES A,
       FND_MENUS B
WHERE  A.MENU_NAME=B.MENU_NAME
       AND  (MENU_ID,ENTRY_SEQUENCE) NOT IN (SELECT MENU_ID,ENTRY_SEQUENCE FROM FND_MENU_ENTRIES_VL);
 BEGIN
 
  FOR CREC IN C1
  LOOP     
     lc_status := 'Y';
   
        -- get the menu_id
        --
       
            BEGIN
            select menu_id
            into v_menu_id
            from fnd_menus
            where menu_name = CREC.MENU_NAME;
            Exception       
                When others then
                dbms_output.put_line('Invalid Menu' ||CREC.MENU_NAME);
                lc_status := 'E';             
            END;
           
        -- get the menu_id
        --
           IF CREC.function_name IS NOT NULL
           THEN
       
            BEGIN
            select function_id
            into   v_function_id
            from   fnd_form_functions
            where  function_name = CREC.function_name;
            Exception       
                When others then
                dbms_output.put_line('Invalid function_name' || CREC.function_name);
                lc_status := 'E';             
            END;  
           
           END IF;
                     
            -- get the Sub menu_id
        --
              
        IF CREC.SUB_MENU_NAME IS NOT NULL  
         THEN  
         BEGIN
           select menu_id
            into v_sub_menu_id
            from fnd_menus
           where menu_name =CREC.SUB_MENU_NAME;
            Exception       
            When others then
           dbms_output.put_line('Invalid Sub Menu' || CREC.SUB_MENU_NAME);
           lc_status := 'E';             
            END;
           END IF;
          
     
      IF lc_status <> 'E' THEN      
      
     
         select nvl(max(1),0) into l_flag_exist_menu    
             from fnd_menu_entries t    
             where t.menu_id = v_menu_id       
             and ( (v_function_id is null and t.sub_menu_id is null)
             or  t.sub_menu_id = v_sub_menu_id)          
             and ( (v_function_id is null and t.function_id is null)
             or t.function_id = v_function_id)          
             and 1=1;
        dbms_output.put_line('l_flag_exist_menu   '||l_flag_exist_menu);  
        
             if (l_flag_exist_menu = 0) then
        
              FND_MENU_ENTRIES_PKG.INSERT_ROW
              (X_ROWID             => l_row_id,       
               X_MENU_ID           => v_menu_id,      
               X_ENTRY_SEQUENCE    => crec.entry_sequence,
               X_SUB_MENU_ID       => v_sub_menu_id,      
               X_FUNCTION_ID       => v_function_id,      
               X_GRANT_FLAG        => crec.grant_flag,       
               X_PROMPT            => crec.prompt,       
               X_DESCRIPTION       => crec.description,       
               X_CREATION_DATE     => sysdate,       
               X_CREATED_BY        => fnd_global.user_id,       
               X_LAST_UPDATE_DATE  => sysdate,       
               X_LAST_UPDATED_BY   => fnd_global.user_id,       
               X_LAST_UPDATE_LOGIN => fnd_global.login_id);          
       
                dbms_output.put_line('Prompt '||CREC.prompt);
             END IF;         
      
         END IF;
      
   END LOOP;
  
   commit;       
       
 end;