The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_questionnaire_fields
(
p_questionnaire_template_id in number
);
PROCEDURE update_questionnaire_recs(p_effective_date IN DATE
,p_quest_tbl IN OUT NOCOPY HR_QUEST_TABLE
,p_error_message OUT NOCOPY LONG
,p_status OUT NOCOPY VARCHAR2) IS
BEGIN
FOR I in 1 .. p_quest_tbl.count LOOP
IF (not p_quest_tbl(I).questionnaire_template_id = -1) THEN
BEGIN
hr_qsn_upd.upd(p_quest_tbl(I).questionnaire_template_id
,p_quest_tbl(I).available_flag
,p_quest_tbl(I).object_version_number
,p_effective_date);
END update_questionnaire_recs;
Procedure update_questionnaire
(p_questionnaire_template_id in number
,p_object_version_number in out nocopy number
,p_text in CLOB
,p_available_flag in varchar2 default hr_api.g_varchar2
,p_business_group_id in number default hr_api.g_number
,p_effective_date in date default hr_api.g_date
,p_validate in number default hr_api.g_false_num
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'update_questionnaire';
SELECT text, business_group_id
FROM HR_QUESTIONNAIRES
WHERE questionnaire_template_id = p_questionnaire_template_id;
savepoint update_questionnaire_swi;
hr_questionnaire_api.update_questionnaire
(p_questionnaire_template_id => p_questionnaire_template_id
,p_text => p_text
,p_available_flag => p_available_flag
,p_business_group_id => p_business_group_id
,p_object_version_number => p_object_version_number
,p_effective_date => p_effective_date
);
delete_questionnaire_fields (
p_questionnaire_template_id => p_questionnaire_template_id
);
rollback to update_questionnaire_swi;
rollback to update_questionnaire_swi;
rollback to update_questionnaire_swi;
end update_questionnaire;
Procedure delete_questionnaire
(p_questionnaire_template_id in number
,p_object_version_number in number
,p_validate in number default hr_api.g_false_num
,p_return_status out nocopy varchar2
) is
--
-- Variables for API Boolean parameters
l_validate boolean;
l_proc varchar2(72) := g_package ||'delete_questionnaire';
savepoint delete_questionnaire_swi;
hr_questionnaire_api.delete_questionnaire
(
p_questionnaire_template_id=>p_questionnaire_template_id
,p_object_version_number=>p_object_version_number
,p_validate=>l_validate
);
rollback to delete_questionnaire_swi;
rollback to delete_questionnaire_swi;
rollback to delete_questionnaire_swi;
end delete_questionnaire;
Procedure delete_questionnaire_fields
(
p_questionnaire_template_id in number
)
IS
Cursor C_Quest_Fields IS
select field_id, object_version_number
from hr_quest_fields
where questionnaire_template_id = p_questionnaire_template_id;
end delete_questionnaire_fields;