API to Create FND Menu (FND_MENUS_PKG.INSERT_ROW)

DECLARE
   l_new_menu_id       NUMBER;
   l_exist_menu_flag   NUMBER;
   v_rowid             VARCHAR2 (20);
BEGIN
   SELECT   MAX (menu_id)
     INTO   l_new_menu_id
     FROM   apps.fnd_menus_vl
    WHERE   menu_name = 'XX_TEST_MENU';

   IF (l_new_menu_id IS NOT NULL)
   THEN
      l_exist_menu_flag := 1;                           -- menu already exists
      DBMS_OUTPUT.put_line ('Menu already FOUND, Duplicates not allowed');
   ELSE
      --create a new menu
      l_new_menu_id := apps.fnd_menus_s.NEXTVAL;
      DBMS_OUTPUT.put_line ('Before calling Standard API ');
      FND_MENUS_PKG.INSERT_ROW (
         x_rowid               => v_rowid,
         x_menu_id             => l_new_menu_id,
         x_menu_name           => 'XX_TEST_MENU',
         x_user_menu_name      => 'XX_TEST_MENU',
         x_menu_type           => 'Standard',
         x_description         => 'Menu Created from Backend',
         x_creation_date       => SYSDATE,
         x_created_by          => fnd_global.user_id,
         x_last_update_date    => SYSDATE,
         x_last_updated_by     => fnd_global.user_id,                 --userid
         x_last_update_login   => fnd_global.login_id
      );
      COMMIT;
   END IF;
END;
/