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_DATA_GROUP_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_FORM_TEMPLATE_ID in NUMBER,
X_FORM_DATA_GROUP_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_DATA_GROUPS
where TEMPLATE_DATA_GROUP_ID = X_TEMPLATE_DATA_GROUP_ID
;
insert into HR_TEMPLATE_DATA_GROUPS (
TEMPLATE_DATA_GROUP_ID,
OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID,
FORM_DATA_GROUP_ID,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE
) values(
X_TEMPLATE_DATA_GROUP_ID,
X_OBJECT_VERSION_NUMBER,
X_FORM_TEMPLATE_ID,
X_FORM_DATA_GROUP_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_CREATED_BY,
X_CREATION_DATE);
end INSERT_ROW;
cursor c1 is select
OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID,
FORM_DATA_GROUP_ID
from HR_TEMPLATE_DATA_GROUPS
where TEMPLATE_DATA_GROUP_ID = X_TEMPLATE_DATA_GROUP_ID
for update of TEMPLATE_DATA_GROUP_ID nowait;
procedure UPDATE_ROW (
X_TEMPLATE_DATA_GROUP_ID in NUMBER,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_FORM_TEMPLATE_ID in NUMBER,
X_FORM_DATA_GROUP_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_DATA_GROUPS set
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
FORM_TEMPLATE_ID = X_FORM_TEMPLATE_ID,
FORM_DATA_GROUP_ID = X_FORM_DATA_GROUP_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where TEMPLATE_DATA_GROUP_ID = X_TEMPLATE_DATA_GROUP_ID
;
end UPDATE_ROW;
procedure DELETE_ROW (
X_TEMPLATE_DATA_GROUP_ID in NUMBER
) is
begin
delete from HR_TEMPLATE_DATA_GROUPS
where TEMPLATE_DATA_GROUP_ID = X_TEMPLATE_DATA_GROUP_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_data_group_id
into x_form_data_group_id
from hr_form_data_groups_b
where data_group_name = x_data_group_name
and application_id = x_application_id
and form_id = x_form_id;
select form_template_id
into x_form_template_id
from hr_form_templates_b
where ( (legislation_code is null and x_territory_short_name is null)
or (legislation_code = x_territory_short_name) )
and template_name = x_template_name
and application_id = x_application_id
and form_id = x_form_id;
select template_data_group_id
into x_template_data_group_id
from hr_template_data_groups
where form_template_id = x_form_template_id
and form_data_group_id = x_form_data_group_id;
select hr_template_data_groups_s.nextval
into x_template_data_group_id
from dual;
UPDATE_ROW (
X_TEMPLATE_DATA_GROUP_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_FORM_TEMPLATE_ID,
X_FORM_DATA_GROUP_ID,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
INSERT_ROW (
X_ROWID,
X_TEMPLATE_DATA_GROUP_ID,
to_number(X_OBJECT_VERSION_NUMBER),
X_FORM_TEMPLATE_ID,
X_FORM_DATA_GROUP_ID,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN );