The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_GLOBAL_USAGE_ID in NUMBER,
X_NAV_UNIT_ID in NUMBER,
X_GLOBAL_NAME in VARCHAR2,
X_IN_OR_OUT in VARCHAR2,
X_MANDATORY_FLAG in VARCHAR2
) is
cursor C is select ROWID from HR_NAV_UNIT_GLOBAL_USAGES
where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID
;
insert into HR_NAV_UNIT_GLOBAL_USAGES (
GLOBAL_USAGE_ID,
NAV_UNIT_ID,
GLOBAL_NAME,
IN_OR_OUT,
MANDATORY_FLAG
) values (
X_GLOBAL_USAGE_ID,
X_NAV_UNIT_ID,
X_GLOBAL_NAME,
X_IN_OR_OUT,
X_MANDATORY_FLAG);
end INSERT_ROW;
cursor c1 is select
NAV_UNIT_ID,
GLOBAL_NAME,
IN_OR_OUT,
MANDATORY_FLAG
from HR_NAV_UNIT_GLOBAL_USAGES
where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID
for update of GLOBAL_USAGE_ID nowait;
procedure UPDATE_ROW (
X_GLOBAL_USAGE_ID in NUMBER,
X_NAV_UNIT_ID in NUMBER,
X_GLOBAL_NAME in VARCHAR2,
X_IN_OR_OUT in VARCHAR2,
X_MANDATORY_FLAG in VARCHAR2
) is
begin
update HR_NAV_UNIT_GLOBAL_USAGES set
NAV_UNIT_ID = X_NAV_UNIT_ID,
GLOBAL_NAME = X_GLOBAL_NAME,
IN_OR_OUT = X_IN_OR_OUT,
MANDATORY_FLAG = X_MANDATORY_FLAG
where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_GLOBAL_USAGE_ID in NUMBER
) is
begin
delete from HR_NAV_UNIT_GLOBAL_USAGES
where GLOBAL_USAGE_ID = X_GLOBAL_USAGE_ID;
end DELETE_ROW;
select NAV_UNIT_ID
into X_NAV_UNIT_ID
from HR_NAVIGATION_UNITS
where FORM_NAME = X_FORM_NAME
and nvl(BLOCK_NAME,hr_api.g_varchar2) = nvl(X_BLOCK_NAME,hr_api.g_varchar2);
select GLOBAL_USAGE_ID, MANDATORY_FLAG
into X_GLOBAL_USAGE_ID, Y_MANDATORY_FLAG
from HR_NAV_UNIT_GLOBAL_USAGES
where GLOBAL_NAME = X_GLOBAL_NAME
and IN_OR_OUT = X_IN_OR_OUT
and NAV_UNIT_ID = X_NAV_UNIT_ID;
UPDATE_ROW(
X_GLOBAL_USAGE_ID,
X_NAV_UNIT_ID,
X_GLOBAL_NAME,
X_IN_OR_OUT,
X_MANDATORY_FLAG
);
select HR_NAV_UNIT_GLOBAL_USAGES_S.NEXTVAL
into X_GLOBAL_USAGE_ID
from DUAL;
INSERT_ROW(
X_ROWID,
X_GLOBAL_USAGE_ID,
X_NAV_UNIT_ID,
X_GLOBAL_NAME,
X_IN_OR_OUT,
X_MANDATORY_FLAG
);