The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 1
INTO l_dummy
FROM IMC_OBJECT_METADATA
WHERE OBJECT_TYPE = p_object_type
AND ROWNUM = 1;
PROCEDURE Update_Record (
p_object_type IN IMC_OBJECT_METADATA.object_type%TYPE,
p_description IN IMC_OBJECT_METADATA.description%TYPE,
p_function_name IN IMC_OBJECT_METADATA.function_name%TYPE,
p_parameter_name IN IMC_OBJECT_METADATA.parameter_name%TYPE,
p_enabled IN IMC_OBJECT_METADATA.enabled%TYPE,
p_application_id IN IMC_OBJECT_METADATA.application_id%TYPE,
p_additional_value1 IN IMC_OBJECT_METADATA.additional_value1%TYPE,
p_additional_value2 IN IMC_OBJECT_METADATA.additional_value2%TYPE,
p_additional_value3 IN IMC_OBJECT_METADATA.additional_value3%TYPE,
p_additional_value4 IN IMC_OBJECT_METADATA.additional_value4%TYPE,
p_additional_value5 IN IMC_OBJECT_METADATA.additional_value5%TYPE,
p_created_by IN IMC_OBJECT_METADATA.created_by%TYPE,
p_creation_date IN IMC_OBJECT_METADATA.creation_date%TYPE,
p_last_updated_by IN IMC_OBJECT_METADATA.last_updated_by%TYPE,
p_last_update_date IN IMC_OBJECT_METADATA.last_update_date%TYPE,
p_last_update_login IN IMC_OBJECT_METADATA.last_update_login%TYPE
) AS
BEGIN
UPDATE IMC_OBJECT_METADATA SET
DESCRIPTION = p_description,
FUNCTION_NAME = p_function_name,
PARAMETER_NAME = p_parameter_name,
ENABLED = p_enabled,
APPLICATION_ID = DECODE(p_application_id, FND_API.G_MISS_NUM, NULL, p_application_id),
ADDITIONAL_VALUE1 = DECODE(p_additional_value1, FND_API.G_MISS_CHAR, NULL, p_additional_value1),
ADDITIONAL_VALUE2 = DECODE(p_additional_value2, FND_API.G_MISS_CHAR, NULL, p_additional_value2),
ADDITIONAL_VALUE3 = DECODE(p_additional_value3, FND_API.G_MISS_CHAR, NULL, p_additional_value3),
ADDITIONAL_VALUE4 = DECODE(p_additional_value4, FND_API.G_MISS_CHAR, NULL, p_additional_value4),
ADDITIONAL_VALUE5 = DECODE(p_additional_value5, FND_API.G_MISS_CHAR, NULL, p_additional_value5),
CREATED_BY = p_created_by,
CREATION_DATE = p_creation_date,
LAST_UPDATED_BY = p_last_updated_by,
LAST_UPDATE_DATE = p_last_update_date,
LAST_UPDATE_LOGIN = p_last_update_login
WHERE OBJECT_TYPE = p_object_type;
END Update_Record;
PROCEDURE Insert_Record (
p_metadata_id IN IMC_OBJECT_METADATA.metadata_id%TYPE,
p_object_type IN IMC_OBJECT_METADATA.object_type%TYPE,
p_description IN IMC_OBJECT_METADATA.description%TYPE,
p_function_name IN IMC_OBJECT_METADATA.function_name%TYPE,
p_parameter_name IN IMC_OBJECT_METADATA.parameter_name%TYPE,
p_enabled IN IMC_OBJECT_METADATA.enabled%TYPE,
p_application_id IN IMC_OBJECT_METADATA.application_id%TYPE,
p_additional_value1 IN IMC_OBJECT_METADATA.additional_value1%TYPE,
p_additional_value2 IN IMC_OBJECT_METADATA.additional_value2%TYPE,
p_additional_value3 IN IMC_OBJECT_METADATA.additional_value3%TYPE,
p_additional_value4 IN IMC_OBJECT_METADATA.additional_value4%TYPE,
p_additional_value5 IN IMC_OBJECT_METADATA.additional_value5%TYPE,
p_created_by IN IMC_OBJECT_METADATA.created_by%TYPE,
p_creation_date IN IMC_OBJECT_METADATA.creation_date%TYPE,
p_last_updated_by IN IMC_OBJECT_METADATA.last_updated_by%TYPE,
p_last_update_date IN IMC_OBJECT_METADATA.last_update_date%TYPE,
p_last_update_login IN IMC_OBJECT_METADATA.last_update_login%TYPE
) AS
BEGIN
INSERT INTO IMC_OBJECT_METADATA (
METADATA_ID,
OBJECT_TYPE,
DESCRIPTION,
FUNCTION_NAME,
PARAMETER_NAME,
ENABLED,
APPLICATION_ID,
ADDITIONAL_VALUE1,
ADDITIONAL_VALUE2,
ADDITIONAL_VALUE3,
ADDITIONAL_VALUE4,
ADDITIONAL_VALUE5,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) VALUES (
p_metadata_id,
p_object_type,
p_description,
p_function_name,
p_parameter_name,
p_enabled,
DECODE(p_application_id, FND_API.G_MISS_NUM, NULL, p_application_id),
DECODE(p_additional_value1, FND_API.G_MISS_CHAR, NULL, p_additional_value1),
DECODE(p_additional_value2, FND_API.G_MISS_CHAR, NULL, p_additional_value2),
DECODE(p_additional_value3, FND_API.G_MISS_CHAR, NULL, p_additional_value3),
DECODE(p_additional_value4, FND_API.G_MISS_CHAR, NULL, p_additional_value4),
DECODE(p_additional_value5, FND_API.G_MISS_CHAR, NULL, p_additional_value5),
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login
);
END Insert_Record;
l_last_update_login IMC_OBJECT_METADATA.last_update_login%TYPE;
/* init last_update_login */
IF (FND_GLOBAL.conc_login_id = -1) OR (FND_GLOBAL.conc_login_id IS NULL) THEN
l_last_update_login := FND_GLOBAL.login_id;
l_last_update_login := FND_GLOBAL.conc_login_id;
Update_Record (
p_object_type,
p_description,
p_function_name,
p_parameter_name,
nvl(p_enabled, 'Y'),
p_application_id,
p_additional_value1,
p_additional_value2,
p_additional_value3,
p_additional_value4,
p_additional_value5,
nvl(FND_GLOBAL.user_id, -1), /* Created by */
SYSDATE, /* Creation date */
nvl(FND_GLOBAL.user_id, -1), /* Last updated by */
SYSDATE, /* Last update date */
l_last_update_login /* Last update login */
);
SELECT IMC_OBJECT_METADATA_S.NEXTVAL INTO l_metadata_id FROM DUAL;
Insert_Record (
l_metadata_id,
p_object_type,
p_description,
p_function_name,
p_parameter_name,
nvl(p_enabled, 'Y'),
p_application_id,
p_additional_value1,
p_additional_value2,
p_additional_value3,
p_additional_value4,
p_additional_value5,
nvl(FND_GLOBAL.user_id, -1), /* Created by */
SYSDATE, /* Creation date */
nvl(FND_GLOBAL.user_id, -1), /* Last updated by */
SYSDATE, /* Last update date */
l_last_update_login /* Last update login */
);
DELETE FROM IMC_OBJECT_METADATA
WHERE OBJECT_TYPE = p_object_type;
l_query := 'SELECT object_type, description, function_name, parameter_name, enabled, application_id, additional_value1, additional_value2, additional_value3, additional_value4, additional_value5 ';
SELECT function_name
INTO l_return_val
FROM IMC_OBJECT_METADATA
WHERE OBJECT_TYPE = p_object_type
AND ROWNUM = 1;
SELECT parameter_name
INTO l_return_val
FROM IMC_OBJECT_METADATA
WHERE OBJECT_TYPE = p_object_type
AND ROWNUM = 1;
l_query := 'SELECT ' || l_column_name || ' ' ||
'FROM IMC_OBJECT_METADATA ' ||
'WHERE OBJECT_TYPE = ''' || p_object_type || ''' ' ||
'AND ROWNUM = 1';
SELECT FUNCTION_NAME
INTO l_function_name
FROM IMC_OBJECT_METADATA
WHERE OBJECT_TYPE = p_object_type
AND ROWNUM = 1;
SELECT WEB_HTML_CALL
INTO l_return_val
FROM FND_FORM_FUNCTIONS
WHERE FUNCTION_NAME = l_function_name;