The following lines contain the word 'select', 'insert', 'update' or 'delete':
X_LAST_UPDATE_DATE out nocopy DATE,
X_LAST_UPDATED_BY out nocopy NUMBER,
X_LAST_UPDATE_LOGIN out nocopy NUMBER
) is
begin
if X_OWNER = 'SEED' then
X_CREATED_BY := 1;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATED_BY := 0;
X_LAST_UPDATE_DATE := sysdate;
X_LAST_UPDATE_LOGIN := 0;
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_FORM_DATA_GROUP_ITEM_ID in NUMBER,
X_FORM_DATA_GROUP_ID in NUMBER,
X_FORM_ITEM_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_CREATED_BY in NUMBER,
X_CREATION_DATE in DATE,
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 HR_FORM_DATA_GROUP_ITEMS
where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID
;
insert into HR_FORM_DATA_GROUP_ITEMS (
FORM_DATA_GROUP_ID,
FORM_ITEM_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
FORM_DATA_GROUP_ITEM_ID,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE
) values(
X_FORM_DATA_GROUP_ID,
X_FORM_ITEM_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_FORM_DATA_GROUP_ITEM_ID,
X_OBJECT_VERSION_NUMBER,
X_CREATED_BY,
X_CREATION_DATE);
end INSERT_ROW;
cursor c1 is select
FORM_DATA_GROUP_ID,
FORM_ITEM_ID,
OBJECT_VERSION_NUMBER
from HR_FORM_DATA_GROUP_ITEMS
where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID
for update of FORM_DATA_GROUP_ITEM_ID nowait;
procedure UPDATE_ROW (
X_FORM_DATA_GROUP_ITEM_ID in NUMBER,
X_FORM_DATA_GROUP_ID in NUMBER,
X_FORM_ITEM_ID in NUMBER,
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
begin
update HR_FORM_DATA_GROUP_ITEMS set
FORM_DATA_GROUP_ID = X_FORM_DATA_GROUP_ID,
FORM_ITEM_ID = X_FORM_ITEM_ID,
OBJECT_VERSION_NUMBER = X_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 FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_FORM_DATA_GROUP_ITEM_ID in NUMBER
) is
begin
delete from HR_FORM_DATA_GROUP_ITEMS
where FORM_DATA_GROUP_ITEM_ID = X_FORM_DATA_GROUP_ITEM_ID;
end DELETE_ROW;
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
select application_id
into x_application_id
from fnd_application
where application_short_name = x_application_short_name;
select form_id
into x_form_id
from fnd_form
where form_name = x_form_name
and application_id = x_application_id;
select hfi.form_item_id
into x_form_item_id
from hr_form_items_b hfi
where hfi.application_id = x_application_id
and hfi.form_id = x_form_id
and hfi.full_item_name = x_full_item_name
and ( (hfi.radio_button_name = x_radio_button_name)
or (hfi.radio_button_name is null and x_radio_button_name is null) );
select form_data_group_id
into x_form_data_group_id
from hr_form_data_groups_b fdg
where fdg.data_group_name = x_data_group_name
and fdg.application_id = x_application_id
and fdg.form_id = x_form_id;
select fgi.form_data_group_item_id
into x_form_data_group_item_id
from hr_form_data_group_items fgi
where fgi.form_data_group_id = x_form_data_group_id
and fgi.form_item_id = x_form_item_id;
select hr_form_data_group_items_s.nextval
into x_form_data_group_item_id
from dual;
UPDATE_ROW (
X_FORM_DATA_GROUP_ITEM_ID,
X_FORM_DATA_GROUP_ID,
X_FORM_ITEM_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
INSERT_ROW (
X_ROWID,
X_FORM_DATA_GROUP_ITEM_ID,
X_FORM_DATA_GROUP_ID,
X_FORM_ITEM_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN);