DECLARE
l_menu_enttry_seq NUMBER;
l_row_id VARCHAR2 (20);
l_function_id NUMBER;
l_seq NUMBER;
BEGIN
SELECT NVL (MAX (entry_sequence), 1)
INTO l_seq
FROM apps.fnd_menu_entries
WHERE menu_id = 1026906;
SELECT function_id
INTO l_function_id
FROM apps.fnd_form_functions
WHERE function_name = 'XXEMP';
BEGIN
FND_MENU_ENTRIES_PKG.UPDATE_ROW (
x_menu_id => 1026906,
-- Menu ID
x_entry_sequence => l_seq,
-- Sequence Number
x_sub_menu_id => NULL,
-- Sub menu ID
x_function_id => l_function_id,
-- Function ID
x_grant_flag => 'Y', -- Grant Flag
x_prompt => 'Function for Testing', -- Prompt
x_description => 'Function 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_row_id VARCHAR2 (20);
l_function_id NUMBER;
l_seq NUMBER;
BEGIN
SELECT NVL (MAX (entry_sequence), 1)
INTO l_seq
FROM apps.fnd_menu_entries
WHERE menu_id = 1026906;
SELECT function_id
INTO l_function_id
FROM apps.fnd_form_functions
WHERE function_name = 'XXEMP';
BEGIN
FND_MENU_ENTRIES_PKG.UPDATE_ROW (
x_menu_id => 1026906,
-- Menu ID
x_entry_sequence => l_seq,
-- Sequence Number
x_sub_menu_id => NULL,
-- Sub menu ID
x_function_id => l_function_id,
-- Function ID
x_grant_flag => 'Y', -- Grant Flag
x_prompt => 'Function for Testing', -- Prompt
x_description => 'Function 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