127: savepoint create_pension_type_swi;
128: --
129: -- Initialise Multiple Message Detection
130: --
131: hr_multi_message.enable_message_list;
132: --
133: -- Remember IN OUT parameter IN values
134: --
135: --
257: -- Derive the API return status value based on whether
258: -- messages of any type exist in the Multiple Message List.
259: -- Also disable Multiple Message Detection.
260: --
261: p_return_status := hr_multi_message.get_return_status_disable;
262:
263: hr_utility.set_location(' Leaving:' || l_proc,20);
264: --
265: exception
262:
263: hr_utility.set_location(' Leaving:' || l_proc,20);
264: --
265: exception
266: when hr_multi_message.error_message_exist then
267: --
268: -- Catch the Multiple Message List exception which
269: -- indicates API processing has been aborted because
270: -- at least one message exists in the list.
275: --
276: p_object_version_number := null;
277: p_effective_start_date := null;
278: p_effective_end_date := null;
279: p_return_status := hr_multi_message.get_return_status_disable;
280: hr_utility.set_location(' Leaving:' || l_proc, 30);
281: when others then
282: --
283: -- When Multiple Message Detection is enabled catch
286: -- Multiple Message List. Otherwise re-raise the
287: -- error.
288: --
289: rollback to create_pension_type_swi;
290: if hr_multi_message.unexpected_error_add(l_proc) then
291: hr_utility.set_location(' Leaving:' || l_proc,40);
292: raise;
293: end if;
294: --
296: --
297: p_object_version_number := null;
298: p_effective_start_date := null;
299: p_effective_end_date := null;
300: p_return_status := hr_multi_message.get_return_status_disable;
301:
302: hr_utility.set_location(' Leaving:' || l_proc,50);
303:
304: End Create_Pension_Type;
333: savepoint delete_pension_type_swi;
334: --
335: -- Initialise Multiple Message Detection
336: --
337: hr_multi_message.enable_message_list;
338: --
339: -- Remember IN OUT parameter IN values
340: --
341: l_object_version_number := p_object_version_number;
372: -- Derive the API return status value based on whether
373: -- messages of any type exist in the Multiple Message List.
374: -- Also disable Multiple Message Detection.
375: --
376: p_return_status := hr_multi_message.get_return_status_disable;
377: hr_utility.set_location(' Leaving:' || l_proc,20);
378: --
379: exception
380: when hr_multi_message.error_message_exist then
376: p_return_status := hr_multi_message.get_return_status_disable;
377: hr_utility.set_location(' Leaving:' || l_proc,20);
378: --
379: exception
380: when hr_multi_message.error_message_exist then
381: --
382: -- Catch the Multiple Message List exception which
383: -- indicates API processing has been aborted because
384: -- at least one message exists in the list.
389: --
390: p_object_version_number := l_object_version_number;
391: p_effective_start_date := null;
392: p_effective_end_date := null;
393: p_return_status := hr_multi_message.get_return_status_disable;
394: hr_utility.set_location(' Leaving:' || l_proc, 30);
395: when others then
396: --
397: -- When Multiple Message Detection is enabled catch
400: -- Multiple Message List. Otherwise re-raise the
401: -- error.
402: --
403: rollback to delete_pension_type_swi;
404: if hr_multi_message.unexpected_error_add(l_proc) then
405: hr_utility.set_location(' Leaving:' || l_proc,40);
406: raise;
407: end if;
408: --
410: --
411: p_object_version_number := l_object_version_number;
412: p_effective_start_date := null;
413: p_effective_end_date := null;
414: p_return_status := hr_multi_message.get_return_status_disable;
415: hr_utility.set_location(' Leaving:' || l_proc,50);
416: End Delete_Pension_Type;
417: -- ----------------------------------------------------------------------------
418: -- |--------------------------< Update_Pension_Type >-------------------------|
535: savepoint update_pension_type_swi;
536: --
537: -- Initialise Multiple Message Detection
538: --
539: hr_multi_message.enable_message_list;
540: --
541: -- Remember IN OUT parameter IN values
542: --
543: l_object_version_number := p_object_version_number;
664: -- Derive the API return status value based on whether
665: -- messages of any type exist in the Multiple Message List.
666: -- Also disable Multiple Message Detection.
667: --
668: p_return_status := hr_multi_message.get_return_status_disable;
669: hr_utility.set_location(' Leaving:' || l_proc,20);
670: --
671: Exception
672: when hr_multi_message.error_message_exist then
668: p_return_status := hr_multi_message.get_return_status_disable;
669: hr_utility.set_location(' Leaving:' || l_proc,20);
670: --
671: Exception
672: when hr_multi_message.error_message_exist then
673: --
674: -- Catch the Multiple Message List exception which
675: -- indicates API processing has been aborted because
676: -- at least one message exists in the list.
681: --
682: p_object_version_number := l_object_version_number;
683: p_effective_start_date := null;
684: p_effective_end_date := null;
685: p_return_status := hr_multi_message.get_return_status_disable;
686: hr_utility.set_location(' Leaving:' || l_proc, 30);
687: when others then
688: --
689: -- When Multiple Message Detection is enabled catch
692: -- Multiple Message List. Otherwise re-raise the
693: -- error.
694: --
695: rollback to update_pension_type_swi;
696: if hr_multi_message.unexpected_error_add(l_proc) then
697: hr_utility.set_location(' Leaving:' || l_proc,40);
698: raise;
699: end if;
700: --
702: --
703: p_object_version_number := l_object_version_number;
704: p_effective_start_date := null;
705: p_effective_end_date := null;
706: p_return_status := hr_multi_message.get_return_status_disable;
707: hr_utility.set_location(' Leaving:' || l_proc,50);
708:
709: End Update_Pension_Type;
710: