The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT FND_FORM_FUNCTIONS_S.nextval
INTO x_fid
FROM sys.dual;
FND_FORM_FUNCTIONS_PKG.INSERT_ROW
( X_ROWID => x_rowid
,X_FUNCTION_ID => x_fid
,X_WEB_HOST_NAME => ''
,X_WEB_AGENT_NAME => ''
,X_WEB_HTML_CALL => p_web_portlet
,X_WEB_ENCRYPT_PARAMETERS => 'N'
,X_WEB_SECURED => 'N'
,X_WEB_ICON => ''
,X_OBJECT_ID => NULL
,X_REGION_APPLICATION_ID => NULL
,X_REGION_CODE => ''
,X_FUNCTION_NAME => p_function_name
,X_APPLICATION_ID => NULL
,X_FORM_ID => NULL
,X_PARAMETERS => p_param
,X_TYPE => 'WEBPORTLET'
,X_USER_FUNCTION_NAME => p_portlet_name
,X_DESCRIPTION => p_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.user_id
,X_MAINTENANCE_MODE_SUPPORT => 'NONE'
,X_CONTEXT_DEPENDENCE => 'RESP'
);
PROCEDURE UPDATE_FUNCTION
( p_function_id IN VARCHAR2
, p_function_name IN VARCHAR2
, p_parameters IN VARCHAR2
, p_user_function_name IN VARCHAR2
, p_description IN VARCHAR2 := NULL
)
IS
params VARCHAR2(300);
UPDATE fnd_form_functions
SET function_name = p_function_name,
parameters = p_parameters
WHERE function_id = p_function_id;
UPDATE fnd_form_functions_tl
SET user_function_name = p_user_function_name,
description = p_description
WHERE function_id = p_function_id;
END UPDATE_FUNCTION;
PROCEDURE UPDATE_FUNCTION_PARAMETERS
( p_function_short_name IN VARCHAR2
, p_parameters IN VARCHAR2
, p_user_function_name IN VARCHAR2
)
IS
fid NUMBER;
UPDATE fnd_form_functions_vl
SET parameters = p_parameters,
user_function_name = p_user_function_name
WHERE function_name = p_function_short_name;
SELECT function_id INTO fid
FROM fnd_form_functions_vl
WHERE function_name = p_function_short_name;
UPDATE fnd_form_functions_tl
SET user_function_name = p_user_function_name
WHERE function_id = fid;
END UPDATE_FUNCTION_PARAMETERS;
PROCEDURE DELETE_FUNCTION
( p_function_name IN VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
)
IS
l_function_id fnd_form_functions.function_id%TYPE;
SELECT function_id, created_by
FROM fnd_form_functions
WHERE function_name = p_function_name;
SELECT menu_id, entry_sequence
FROM fnd_menu_entries
WHERE function_id = p_function_id;
DELETE FROM fnd_form_functions where function_name = p_function_name;
DELETE FROM fnd_form_functions_tl where function_id = l_function_id;
/* Also delete the menu entries corresponding to this function */
OPEN menu_crsr(l_function_id);
DELETE FROM fnd_menu_entries WHERE function_id = l_function_id;
DELETE FROM fnd_menu_entries_tl WHERE menu_id = l_menu_id AND entry_sequence = l_entry_sequence;
END DELETE_FUNCTION;