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_TEMPLATE_ITEM_ID in NUMBER,
X_FORM_ITEM_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_FORM_TEMPLATE_ID 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 HR_TEMPLATE_ITEMS_B
where TEMPLATE_ITEM_ID = X_TEMPLATE_ITEM_ID
;
insert into HR_TEMPLATE_ITEMS_B (
LAST_UPDATED_BY,
FORM_ITEM_ID,
LAST_UPDATE_DATE,
TEMPLATE_ITEM_ID,
OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE
) values(
X_LAST_UPDATED_BY,
X_FORM_ITEM_ID,
X_LAST_UPDATE_DATE,
X_TEMPLATE_ITEM_ID,
X_OBJECT_VERSION_NUMBER,
X_FORM_TEMPLATE_ID,
X_LAST_UPDATE_LOGIN,
X_CREATED_BY,
X_CREATION_DATE);
end INSERT_ROW;
cursor c1 is select
FORM_ITEM_ID,
OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID
from HR_TEMPLATE_ITEMS_B
where TEMPLATE_ITEM_ID = X_TEMPLATE_ITEM_ID
for update of TEMPLATE_ITEM_ID nowait;
procedure UPDATE_ROW (
X_TEMPLATE_ITEM_ID in NUMBER,
X_FORM_ITEM_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_FORM_TEMPLATE_ID in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update HR_TEMPLATE_ITEMS_B set
FORM_ITEM_ID = X_FORM_ITEM_ID,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where TEMPLATE_ITEM_ID = X_TEMPLATE_ITEM_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_TEMPLATE_ITEM_ID in NUMBER
) is
begin
delete from HR_TEMPLATE_ITEMS_B
where TEMPLATE_ITEM_ID = X_TEMPLATE_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 form_item_id
into x_form_item_id
from hr_form_items_b
where full_item_name = x_full_item_name
and application_id = x_application_id
and form_id = x_form_id
and ( radio_button_name = x_radio_button_name
or (radio_button_name is null and x_radio_button_name is null) );
select form_template_id
into x_form_template_id
from hr_form_templates_b
where template_name = x_template_name
and ( (legislation_code is null and x_territory_short_name is null)
or (legislation_code = x_territory_short_name) )
and application_id = x_application_id
and form_id = x_form_id;
select template_item_id
into x_template_item_id
from hr_template_items_b
where form_template_id = x_form_template_id
and form_item_id = x_form_item_id;
select hr_template_items_b_s.nextval
into x_template_item_id
from dual;
UPDATE_ROW (
X_TEMPLATE_ITEM_ID,
X_FORM_ITEM_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_FORM_TEMPLATE_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
INSERT_ROW (
X_ROWID,
X_TEMPLATE_ITEM_ID,
X_FORM_ITEM_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_FORM_TEMPLATE_ID,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN);