The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_COMPONENT_PARAMETER_ID in NUMBER,
X_COMPONENT_ID in NUMBER,
X_PARAMETER_ID in NUMBER,
X_PARAMETER_VALUE in VARCHAR2,
X_CUSTOMIZATION_LEVEL in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
cursor C is select ROWID from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID
;
insert into FND_SVC_COMP_PARAM_VALS (
COMPONENT_PARAMETER_ID,
COMPONENT_ID,
PARAMETER_ID,
PARAMETER_VALUE,
CUSTOMIZATION_LEVEL,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
OBJECT_VERSION_NUMBER
) values
(
X_COMPONENT_PARAMETER_ID,
X_COMPONENT_ID,
X_PARAMETER_ID,
X_PARAMETER_VALUE,
X_CUSTOMIZATION_LEVEL,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_OBJECT_VERSION_NUMBER
);
wf_core.context('FND_SVC_COMP_PARAM_VALS_PKG', 'Insert_Row', X_COMPONENT_PARAMETER_ID);
end INSERT_ROW;
cursor c is select
COMPONENT_ID,
PARAMETER_ID,
PARAMETER_VALUE,
CUSTOMIZATION_LEVEL,
OBJECT_VERSION_NUMBER
from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID
for update of COMPONENT_PARAMETER_ID nowait;
wf_core.raise('WF_RECORD_DELETED');
procedure UPDATE_ROW (
X_COMPONENT_PARAMETER_ID in NUMBER,
X_COMPONENT_ID in NUMBER,
X_PARAMETER_ID in NUMBER,
X_PARAMETER_VALUE in VARCHAR2,
X_CUSTOMIZATION_LEVEL in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
l_object_version_number NUMBER;
select OBJECT_VERSION_NUMBER
into l_object_version_number
from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
select OBJECT_VERSION_NUMBER
into l_object_version_number
from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID
for update;
wf_core.translate('SVC_RECORD_ALREADY_UPDATED'));
update FND_SVC_COMP_PARAM_VALS set
COMPONENT_ID = X_COMPONENT_ID,
PARAMETER_ID = X_PARAMETER_ID,
PARAMETER_VALUE = X_PARAMETER_VALUE,
CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
OBJECT_VERSION_NUMBER = l_object_version_number,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
update FND_SVC_COMP_PARAM_VALS set
COMPONENT_ID = X_COMPONENT_ID,
PARAMETER_ID = X_PARAMETER_ID,
-- PARAMETER_VALUE = X_PARAMETER_VALUE, // limit column
CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
OBJECT_VERSION_NUMBER = l_object_version_number,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
update FND_SVC_COMP_PARAM_VALS set
PARAMETER_VALUE = X_PARAMETER_VALUE,
OBJECT_VERSION_NUMBER = l_object_version_number,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
update FND_SVC_COMP_PARAM_VALS set
COMPONENT_ID = X_COMPONENT_ID,
PARAMETER_ID = X_PARAMETER_ID,
PARAMETER_VALUE = X_PARAMETER_VALUE,
CUSTOMIZATION_LEVEL = X_CUSTOMIZATION_LEVEL,
OBJECT_VERSION_NUMBER = l_object_version_number,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
wf_core.context('FND_SVC_COMP_PARAM_VALS_PKG', 'Update_Row', X_COMPONENT_PARAMETER_ID);
end UPDATE_ROW;
procedure DELETE_ROW (
X_COMPONENT_PARAMETER_ID in NUMBER
) is
l_customization_level varchar2(1);
select CUSTOMIZATION_LEVEL
into l_customization_level
from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
delete from FND_SVC_COMP_PARAM_VALS
where COMPONENT_PARAMETER_ID = X_COMPONENT_PARAMETER_ID;
wf_core.context('FND_SVC_COMP_PARAM_VALS_PKG', 'Delete_Row', X_COMPONENT_PARAMETER_ID);
end DELETE_ROW;
SELECT component_id, component_type
INTO l_component_id, l_component_type
FROM fnd_svc_components
WHERE component_name = X_COMPONENT_NAME;
SELECT parameter_id
INTO l_parameter_id
FROM fnd_svc_comp_params_b
WHERE parameter_name = X_PARAMETER_NAME
AND component_type = l_component_type;
SELECT component_parameter_id
INTO l_component_parameter_id
FROM fnd_svc_comp_param_vals
WHERE component_id = l_component_id
AND parameter_id = l_parameter_id;
FND_SVC_COMP_PARAM_VALS_PKG.UPDATE_ROW (
X_COMPONENT_PARAMETER_ID => l_component_parameter_id,
X_COMPONENT_ID => l_component_id,
X_PARAMETER_ID => l_parameter_id,
X_PARAMETER_VALUE => X_PARAMETER_VALUE,
X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => user_id,
X_LAST_UPDATE_LOGIN => 0);
SELECT fnd_svc_comp_param_vals_s.nextval
INTO l_component_parameter_id
FROM dual;
FND_SVC_COMP_PARAM_VALS_PKG.INSERT_ROW (
X_ROWID => row_id,
X_COMPONENT_PARAMETER_ID => l_component_parameter_id,
X_COMPONENT_ID => l_component_id,
X_PARAMETER_ID => l_parameter_id,
X_PARAMETER_VALUE => X_PARAMETER_VALUE,
X_CUSTOMIZATION_LEVEL => X_CUSTOMIZATION_LEVEL,
X_CREATION_DATE => sysdate,
X_CREATED_BY => user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => user_id,
X_LAST_UPDATE_LOGIN => 0);