98: savepoint delete_document_swi;
99: --
100: -- Initialise Multiple Message Detection
101: --
102: hr_multi_message.enable_message_list;
103: --
104: -- Remember IN OUT parameter IN values
105: --
106: l_object_version_number := p_object_version_number;
250: -- Derive the API return status value based on whether
251: -- messages of any type exist in the Multiple Message List.
252: -- Also disable Multiple Message Detection.
253: --
254: p_return_status := hr_multi_message.get_return_status_disable;
255: hr_utility.set_location(' Leaving:' || l_proc,20);
256: --
257: exception
258: when hr_multi_message.error_message_exist then
254: p_return_status := hr_multi_message.get_return_status_disable;
255: hr_utility.set_location(' Leaving:' || l_proc,20);
256: --
257: exception
258: when hr_multi_message.error_message_exist then
259: --
260: -- Catch the Multiple Message List exception which
261: -- indicates API processing has been aborted because
262: -- at least one message exists in the list.
267: --
268: p_object_version_number := l_object_version_number;
269: p_effective_start_date := null;
270: p_effective_end_date := null;
271: p_return_status := hr_multi_message.get_return_status_disable;
272: hr_utility.set_location(' Leaving:' || l_proc, 30);
273: when others then
274: --
275: -- When Multiple Message Detection is enabled catch
278: -- Multiple Message List. Otherwise re-raise the
279: -- error.
280: --
281: rollback to delete_document_swi;
282: if hr_multi_message.unexpected_error_add(l_proc) then
283: hr_utility.set_location(' Leaving:' || l_proc,40);
284: raise;
285: end if;
286: --
288: --
289: p_object_version_number := l_object_version_number;
290: p_effective_start_date := null;
291: p_effective_end_date := null;
292: p_return_status := hr_multi_message.get_return_status_disable;
293: hr_utility.set_location(' Leaving:' || l_proc,50);
294: end delete_document;
295: --
296: end pqh_documents_wrapper;