The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_NAV_UNIT_ID in out NUMBER,
X_FORM_NAME in VARCHAR2,
X_BLOCK_NAME in VARCHAR2,
X_DEFAULT_WORKFLOW_ID in NUMBER,
X_APPLICATION_ABBREV in VARCHAR2,
X_MAX_NUMBER_OF_NAV_BUTTONS in NUMBER,
X_DEFAULT_LABEL in VARCHAR2
) is
cursor CSR_SEQUENCE is
select HR_NAVIGATION_UNITS_S.nextval
from dual;
insert into HR_NAVIGATION_UNITS (
NAV_UNIT_ID,
FORM_NAME,
BLOCK_NAME,
DEFAULT_WORKFLOW_ID,
APPLICATION_ABBREV,
MAX_NUMBER_OF_NAV_BUTTONS,
DEFAULT_LABEL
) values (
X_NAV_UNIT_ID,
X_FORM_NAME,
X_BLOCK_NAME,
X_DEFAULT_WORKFLOW_ID,
X_APPLICATION_ABBREV,
X_MAX_NUMBER_OF_NAV_BUTTONS,
X_DEFAULT_LABEL
);
end INSERT_ROW;
select FORM_NAME,
BLOCK_NAME,
DEFAULT_WORKFLOW_ID,
APPLICATION_ABBREV,
MAX_NUMBER_OF_NAV_BUTTONS
from HR_NAVIGATION_UNITS
where NAV_UNIT_ID = X_NAV_UNIT_ID
for update of NAV_UNIT_ID nowait;
fnd_message.set_name('FND','FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_NAV_UNIT_ID in NUMBER,
X_FORM_NAME in VARCHAR2,
X_BLOCK_NAME in VARCHAR2,
X_DEFAULT_WORKFLOW_ID in NUMBER,
X_APPLICATION_ABBREV in VARCHAR2,
X_MAX_NUMBER_OF_NAV_BUTTONS in NUMBER,
X_DEFAULT_LABEL in VARCHAR2
) is
begin
update HR_NAVIGATION_UNITS set
FORM_NAME = X_FORM_NAME,
BLOCK_NAME = X_BLOCK_NAME,
DEFAULT_WORKFLOW_ID = X_DEFAULT_WORKFLOW_ID,
APPLICATION_ABBREV = X_APPLICATION_ABBREV,
MAX_NUMBER_OF_NAV_BUTTONS = X_MAX_NUMBER_OF_NAV_BUTTONS,
DEFAULT_LABEL = X_DEFAULT_LABEL
where NAV_UNIT_ID = X_NAV_UNIT_ID;
end UPDATE_ROW;
procedure DELETE_ROW (
X_NAV_UNIT_ID in NUMBER
) is
begin
delete from HR_NAVIGATION_UNITS
where NAV_UNIT_ID = X_NAV_UNIT_ID;
end DELETE_ROW;
select NAV_UNIT_ID
from HR_NAVIGATION_UNITS
where FORM_NAME = X_FORM_NAME
and ( (BLOCK_NAME = X_BLOCK_NAME)
or (BLOCK_NAME is null and X_BLOCK_NAME is null));
select WORKFLOW_ID
from HR_WORKFLOWS
where WORKFLOW_NAME = X_WORKFLOW_NAME;
UPDATE_ROW (
X_NAV_UNIT_ID,
X_FORM_NAME,
X_BLOCK_NAME,
X_DEFAULT_WORKFLOW_ID,
X_APPLICATION_ABBREV,
X_MAX_NUMBER_OF_NAV_BUTTONS,
X_DEFAULT_LABEL
);
INSERT_ROW (
X_NAV_UNIT_ID,
X_FORM_NAME,
X_BLOCK_NAME,
X_DEFAULT_WORKFLOW_ID,
X_APPLICATION_ABBREV,
X_MAX_NUMBER_OF_NAV_BUTTONS,
X_DEFAULT_LABEL
);
update HR_NAVIGATION_UNITS set
DEFAULT_LABEL = X_DEFAULT_LABEL
where FORM_NAME = X_FORM_NAME
and ( (BLOCK_NAME = X_BLOCK_NAME)
or (BLOCK_NAME is null and X_BLOCK_NAME is null))
and userenv('LANG') = (select LANGUAGE_CODE
from FND_LANGUAGES
where INSTALLED_FLAG = 'B');