The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_FROM_NAV_UNIT_ID in NUMBER,
X_TO_NAV_UNIT_ID in NUMBER
) is
cursor C is select ROWID from HR_INCOMPATIBILITY_RULES
where FROM_NAV_UNIT_ID = X_FROM_NAV_UNIT_ID
and TO_NAV_UNIT_ID = X_TO_NAV_UNIT_ID
;
insert into HR_INCOMPATIBILITY_RULES (
FROM_NAV_UNIT_ID,
TO_NAV_UNIT_ID
) values (
X_FROM_NAV_UNIT_ID,
X_TO_NAV_UNIT_ID);
end INSERT_ROW;
cursor c1 is select
TO_NAV_UNIT_ID
from HR_INCOMPATIBILITY_RULES
where FROM_NAV_UNIT_ID = X_FROM_NAV_UNIT_ID
and TO_NAV_UNIT_ID = X_TO_NAV_UNIT_ID
for update of FROM_NAV_UNIT_ID nowait;
procedure UPDATE_ROW (
X_FROM_NAV_UNIT_ID in NUMBER,
X_TO_NAV_UNIT_ID in NUMBER
) is
begin
update HR_INCOMPATIBILITY_RULES set
TO_NAV_UNIT_ID = X_TO_NAV_UNIT_ID
where FROM_NAV_UNIT_ID = X_FROM_NAV_UNIT_ID
and TO_NAV_UNIT_ID = X_TO_NAV_UNIT_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_FROM_NAV_UNIT_ID in NUMBER,
X_TO_NAV_UNIT_ID in NUMBER
) is
begin
delete from HR_INCOMPATIBILITY_RULES
where FROM_NAV_UNIT_ID = X_FROM_NAV_UNIT_ID
and TO_NAV_UNIT_ID = X_TO_NAV_UNIT_ID;
end DELETE_ROW;
select NAV_UNIT_ID
into X_FROM_NAV_UNIT_ID
from HR_NAVIGATION_UNITS
where FORM_NAME = X_FROM_FORM_NAME
and nvl(BLOCK_NAME,hr_api.g_varchar2) = nvl(X_FROM_BLOCK_NAME,hr_api.g_varchar2);
select NAV_UNIT_ID
into X_TO_NAV_UNIT_ID
from HR_NAVIGATION_UNITS
where FORM_NAME = X_TO_FORM_NAME
and nvl(BLOCK_NAME,hr_api.g_varchar2) = nvl(X_TO_BLOCK_NAME,hr_api.g_varchar2);
UPDATE_ROW(
X_FROM_NAV_UNIT_ID,
X_TO_NAV_UNIT_ID
);
INSERT_ROW(
X_ROWID,
X_FROM_NAV_UNIT_ID,
X_TO_NAV_UNIT_ID
);