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_Nav_Unit_Id IN OUT nocopy NUMBER,
X_Default_Workflow_Id NUMBER,
X_Application_Abbrev VARCHAR2,
X_Default_Label VARCHAR2,
X_Form_Name VARCHAR2,
X_Max_Number_Of_Nav_Buttons NUMBER,
X_Block_Name VARCHAR2,
X_LANGUAGE_CODE in varchar2 default hr_api.userenv_lang
) IS
CURSOR C IS SELECT rowid FROM HR_NAVIGATION_UNITS
WHERE nav_unit_id = X_Nav_Unit_Id;
CURSOR C2 IS SELECT hr_navigation_units_s.nextval FROM sys.dual;
INSERT INTO HR_NAVIGATION_UNITS(
nav_unit_id,
default_workflow_id,
application_abbrev,
default_label,
form_name,
max_number_of_nav_buttons,
block_name
) VALUES (
X_Nav_Unit_Id,
X_Default_Workflow_Id,
X_Application_Abbrev,
X_Default_Label,
X_Form_Name,
X_Max_Number_Of_Nav_Buttons,
X_Block_Name
);
INSERT INTO HR_NAVIGATION_UNITS_TL(
nav_unit_id,
default_label,
language,
source_lang)
select
X_Nav_Unit_Id,
x_default_label,
l.language_code,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from HR_NAVIGATION_UNITS_TL T
where T.NAV_UNIT_ID = X_NAV_UNIT_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
hr_utility.set_message_token('PROCEDURE','INSERT_ROW');
END Insert_Row;
SELECT *
FROM HR_NAVIGATION_UNITS
WHERE rowid = X_Rowid
FOR UPDATE of Nav_Unit_Id NOWAIT;
select DEFAULT_LABEL,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from HR_NAVIGATION_UNITS_TL TL
where nav_unit_id = x_nav_unit_id
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of nav_unit_id nowait;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Nav_Unit_Id NUMBER,
X_Default_Workflow_Id NUMBER,
X_Application_Abbrev VARCHAR2,
X_Default_Label VARCHAR2,
X_Form_Name VARCHAR2,
X_Max_Number_Of_Nav_Buttons NUMBER,
X_Block_Name VARCHAR2,
X_Language_Code varchar2 default hr_api.userenv_lang
)
IS
l_language_code varchar2(3);
UPDATE HR_NAVIGATION_UNITS
SET
nav_unit_id = X_Nav_Unit_Id,
default_workflow_id = X_Default_Workflow_Id,
application_abbrev = X_Application_Abbrev,
default_label = X_Default_Label,
form_name = X_Form_Name,
max_number_of_nav_buttons = X_Max_Number_Of_Nav_Buttons,
block_name = X_Block_Name
WHERE rowid = X_rowid;
hr_utility.set_message_token('PROCEDURE','UPDATE_ROW');
update HR_NAVIGATION_UNITS_TL
set
DEFAULT_LABEL = X_DEFAULT_LABEL,
SOURCE_LANG = userenv('LANG')
where NAV_UNIT_ID = X_NAV_UNIT_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
hr_utility.set_message_token('PROCEDURE','UPDATE_ROW');
END Update_Row;
Procedure UPDATE_ROW (X_NAV_UNIT_ID NUMBER,
X_DEFAULT_WORKFLOW_ID NUMBER,
X_APPLICATION_ABBREV VARCHAR2,
X_DEFAULT_LABEL VARCHAR2,
X_FORM_NAME VARCHAR2,
X_MAX_NUMBER_OF_NAV_BUTTONS NUMBER,
X_BLOCK_NAME VARCHAR2,
X_LANGUAGE_CODE in varchar2 default hr_api.userenv_lang
) is
l_language_code varchar2(3);
update HR_NAVIGATION_UNITS set
DEFAULT_WORKFLOW_ID = X_DEFAULT_WORKFLOW_ID,
APPLICATION_ABBREV = X_APPLICATION_ABBREV,
DEFAULT_LABEL = X_DEFAULT_LABEL,
FORM_NAME = X_FORM_NAME,
MAX_NUMBER_OF_NAV_BUTTONS = X_MAX_NUMBER_OF_NAV_BUTTONS,
BLOCK_NAME = X_BLOCK_NAME
where NAV_UNIT_ID = X_NAV_UNIT_ID;
update HR_NAVIGATION_UNITS_TL
set
DEFAULT_LABEL = X_DEFAULT_LABEL,
SOURCE_LANG = userenv('LANG')
where NAV_UNIT_ID = X_NAV_UNIT_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
PROCEDURE Delete_Row(x_nav_unit_id varchar2, X_Rowid VARCHAR2) IS
BEGIN
delete from HR_NAVIGATION_UNITS_TL
where NAV_UNIT_ID = X_NAV_UNIT_ID;
hr_utility.set_message_token('PROCEDURE','DELETE_ROW');
DELETE FROM HR_NAVIGATION_UNITS
WHERE rowid = X_Rowid;
hr_utility.set_message_token('PROCEDURE','DELETE_ROW');
END Delete_Row;
delete from HR_NAVIGATION_UNITS_TL T
where not exists
(select NULL
from HR_NAVIGATION_UNITS B
where B.NAV_UNIT_ID = T.NAV_UNIT_ID
);
update HR_NAVIGATION_UNITS_TL T set (
DEFAULT_LABEL
) = (select
B.DEFAULT_LABEL
from HR_NAVIGATION_UNITS_TL B
where B.NAV_UNIT_ID = T.NAV_UNIT_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.NAV_UNIT_ID,
T.LANGUAGE
) in (select
SUBT.NAV_UNIT_ID,
SUBT.LANGUAGE
from HR_NAVIGATION_UNITS_TL SUBB, HR_NAVIGATION_UNITS_TL SUBT
where SUBB.NAV_UNIT_ID = SUBT.NAV_UNIT_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.DEFAULT_LABEL <> SUBT.DEFAULT_LABEL
or (SUBB.DEFAULT_LABEL is null and SUBT.DEFAULT_LABEL is not null)
or (SUBB.DEFAULT_LABEL is not null and SUBT.DEFAULT_LABEL is null)
));
insert into HR_NAVIGATION_UNITS_TL (
NAV_UNIT_ID,
DEFAULT_LABEL,
LANGUAGE,
SOURCE_LANG
) select
B.NAV_UNIT_ID,
B.DEFAULT_LABEL,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from HR_NAVIGATION_UNITS_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from HR_NAVIGATION_UNITS_TL T
where T.NAV_UNIT_ID = B.NAV_UNIT_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
select workflow_id
into X_DEFAULT_WORKFLOW_ID
from hr_workflows
where workflow_name = X_WORKFLOW_NAME;
select NAV_UNIT_ID,DEFAULT_WORKFLOW_ID, APPLICATION_ABBREV, DEFAULT_LABEL,MAX_NUMBER_OF_NAV_BUTTONS
into X_NAV_UNIT_ID, Y_DEFAULT_WORKFLOW_ID, Y_APPLICATION_ABBREV,
Y_DEFAULT_LABEL,Y_MAX_NUMBER_OF_NAV_BUTTONS
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);
UPDATE_ROW(
X_NAV_UNIT_ID,
X_DEFAULT_WORKFLOW_ID,
X_APPLICATION_ABBREV,
X_DEFAULT_LABEL,
X_FORM_NAME,
X_MAX_NUMBER_OF_NAV_BUTTONS,
X_BLOCK_NAME
);
select HR_NAVIGATION_UNITS_S.NEXTVAL
into X_NAV_UNIT_ID
from dual;
INSERT_ROW(
X_ROWID,
X_NAV_UNIT_ID,
X_DEFAULT_WORKFLOW_ID,
X_APPLICATION_ABBREV,
X_DEFAULT_LABEL,
X_FORM_NAME,
X_MAX_NUMBER_OF_NAV_BUTTONS,
X_BLOCK_NAME
);
SELECT DEFAULT_LABEL, SOURCE_LANG
FROM HR_NAVIGATION_UNITS_TL
WHERE userenv('LANG') in (LANGUAGE,SOURCE_LANG)
AND nav_unit_id = p_nav_unit_id;
select nav_unit_id
into x_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));
update HR_NAVIGATION_UNITS_TL
set DEFAULT_LABEL = X_DEFAULT_LABEL,
SOURCE_LANG = userenv('LANG')
where userenv('LANG') in (LANGUAGE,SOURCE_LANG)
and nav_unit_id = x_nav_unit_id;