The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_forum_message(
p_validate in boolean default false
,p_effective_date in date
,p_forum_id in number default hr_api.g_number
,p_forum_thread_id in number default hr_api.g_number
,p_business_group_id in number default hr_api.g_number
,p_message_scope in varchar2 default hr_api.g_varchar2
,p_message_body in varchar2 default hr_api.g_varchar2
,p_parent_message_id in number default hr_api.g_number
,p_person_id in number default hr_api.g_number
,p_contact_id in number default hr_api.g_number
,p_target_person_id in number default hr_api.g_number
,p_target_contact_id in number default hr_api.g_number
,p_forum_message_id in number
,p_object_version_number in out nocopy number) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72) := g_package||' Create_forum_message';
savepoint UPDATE_FORUM_MESSAGE;
ota_forum_message_bk2.update_forum_message_b
(p_effective_date => l_effective_date
,p_forum_id => p_forum_id
,p_forum_thread_id => p_forum_thread_id
,p_business_group_id => p_business_group_id
,p_message_scope => p_message_scope
,p_message_body => p_message_body
,p_parent_message_id => p_parent_message_id
,p_person_id => p_person_id
,p_contact_id => p_contact_id
,p_target_person_id => p_target_person_id
,p_target_contact_id => p_target_contact_id
,p_forum_message_id => p_forum_message_id
,p_object_version_number => l_object_version_number
);
(p_module_name => 'UPDATE_FORUM_MESSAGE'
,p_hook_type => 'BP'
);
ota_forum_message_bk2.update_forum_message_a
(p_effective_date => l_effective_date
,p_forum_id => p_forum_id
,p_forum_thread_id => p_forum_thread_id
,p_business_group_id => p_business_group_id
,p_message_scope => p_message_scope
,p_message_body => p_message_body
,p_parent_message_id => p_parent_message_id
,p_person_id => p_person_id
,p_contact_id => p_contact_id
,p_target_person_id => p_target_person_id
,p_target_contact_id => p_target_contact_id
,p_forum_message_id => p_forum_message_id
,p_object_version_number => l_object_version_number
);
(p_module_name => 'UPDATE_FORUM_MESSAGE'
,p_hook_type => 'AP'
);
rollback to UPDATE_FORUM_MESSAGE;
rollback to UPDATE_FORUM_MESSAGE;
end update_forum_message;
procedure delete_forum_message
(p_validate in boolean default false
,p_forum_message_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
CURSOR csr_child_message is
SELECT
forum_message_id,
object_version_number
FROM ota_forum_messages
connect by parent_message_id = prior forum_message_id
start with forum_message_id = p_forum_message_id;
l_proc varchar2(72) := g_package||' Delete_forum_message';
savepoint DELETE_FORUM_MESSAGE;
ota_forum_message_bk3.delete_forum_message_b
(p_forum_message_id =>p_forum_message_id
,p_object_version_number =>p_object_version_number
);
(p_module_name => 'DELETE_FORUM_MESSAGE'
,p_hook_type => 'BP'
);
/*--delete the given forum message
ota_fms_del.del
(p_forum_message_id => p_forum_message_id
,p_object_version_number => p_object_version_number
);*/
ota_forum_message_bk3.delete_forum_message_a
(p_forum_message_id =>p_forum_message_id
,p_object_version_number =>p_object_version_number
);
(p_module_name => 'DELETE_FORUM_MESSAGE'
,p_hook_type => 'AP'
);
rollback to DELETE_FORUM_MESSAGE;
rollback to DELETE_FORUM_MESSAGE;
end delete_forum_message;