DECLARE
l_menu_enttry_seq NUMBER;
l_seq NUMBER;
BEGIN
SELECT NVL (MAX (entry_sequence), 1)
INTO l_seq
FROM apps.fnd_menu_entries
WHERE menu_id = 1026906;
BEGIN
FND_MENU_ENTRIES_PKG.UPDATE_ROW (
x_menu_id => 1026906,
-- Menu ID
x_entry_sequence => l_seq,
-- Sequence Number
x_sub_menu_id => 12345,
-- Sub menu ID
x_function_id => NULL,
-- Function ID
x_grant_flag => 'Y', -- Grant Flag
x_prompt => 'Sub Menu for Testing', -- Prompt
x_description => 'Sub Menu for Testing',
-- Description x_creation_date => SYSDATE,
-- Creation Date
x_created_by => fnd_global.user_id,
-- Created by
x_last_update_date => SYSDATE,
x_last_updated_by => fnd_global.user_id,
-- Last Updated by
x_last_update_login => fnd_global.login_id
-- Last update login
);
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM || ' Is the error');
END;
END;
/
l_menu_enttry_seq NUMBER;
l_seq NUMBER;
BEGIN
SELECT NVL (MAX (entry_sequence), 1)
INTO l_seq
FROM apps.fnd_menu_entries
WHERE menu_id = 1026906;
BEGIN
FND_MENU_ENTRIES_PKG.UPDATE_ROW (
x_menu_id => 1026906,
-- Menu ID
x_entry_sequence => l_seq,
-- Sequence Number
x_sub_menu_id => 12345,
-- Sub menu ID
x_function_id => NULL,
-- Function ID
x_grant_flag => 'Y', -- Grant Flag
x_prompt => 'Sub Menu for Testing', -- Prompt
x_description => 'Sub Menu for Testing',
-- Description x_creation_date => SYSDATE,
-- Creation Date
x_created_by => fnd_global.user_id,
-- Created by
x_last_update_date => SYSDATE,
x_last_updated_by => fnd_global.user_id,
-- Last Updated by
x_last_update_login => fnd_global.login_id
-- Last update login
);
EXCEPTION
WHEN OTHERS
THEN
DBMS_OUTPUT.put_line (SQLERRM || ' Is the error');
END;
END;
/
No comments:
Post a Comment