534: -- Other variables
535: l_proc VARCHAR2(72) := g_package ||'create_pension_objects_swi';
536: --
537: BEGIN
538: hr_utility.set_location(' Entering:' || l_proc,10);
539: --
540: -- Issue a savepoint
541: --
542: savepoint create_pension_objects_swi;
598: -- messages of any type exist in the Multiple Message List.
599: -- Also disable Multiple Message Detection.
600: --
601: p_return_status := hr_multi_message.get_return_status_disable;
602: hr_utility.set_location(' Leaving:' || l_proc,20);
603: --
604: EXCEPTION
605: WHEN hr_multi_message.error_message_exist THEN
606: --
613: -- Reset IN OUT paramters and set OUT parameters
614: --
615: p_element_type_id := null;
616: p_return_status := hr_multi_message.get_return_status_disable;
617: hr_utility.set_location(' Leaving:' || l_proc,30);
618: WHEN OTHERS THEN
619: --
620: -- When Multiple Message Detection is enabled catch
621: -- any Application specific or other unexpected
624: -- the error.
625: --
626: ROLLBACK TO create_pension_objects_swi;
627: IF hr_multi_message.unexpected_error_add(l_proc) THEN
628: hr_utility.set_location(' Leaving:' || l_proc, 40);
629: RAISE;
630: END IF;
631: --
632: -- Reset IN OUT parameters and set OUT parameters
632: -- Reset IN OUT parameters and set OUT parameters
633: --
634: p_element_type_id := null;
635: p_return_status := hr_multi_message.get_return_status_disable;
636: hr_utility.set_location(' Leaving: ' || l_proc, 50);
637: --
638:
639: END create_pension_objects_swi;
640:
659: l_proc varchar2(72) := g_package ||'delete_pension_objects_swi';
660: --
661: BEGIN
662: --
663: hr_utility.set_location(' Entering:' || l_proc,10);
664: --
665: -- Issue a savepoint
666: --
667: savepoint delete_pension_objects_swi;
695: -- messages of any type exist in the Multiple Message List.
696: -- Also disable Multiple Message Detection.
697: --
698: p_return_status := hr_multi_message.get_return_status_disable;
699: hr_utility.set_location(' Leaving:' || l_proc,20);
700: --
701: exception
702: when hr_multi_message.error_message_exist then
703: --
709: --
710: -- Reset IN OUT paramters and set OUT parameters
711: --
712: p_return_status := hr_multi_message.get_return_status_disable;
713: hr_utility.set_location(' Leaving:' || l_proc,30);
714: when others then
715: --
716: -- When Multiple Message Detection is enabled catch
717: -- any Application specific or other unexpected
720: -- the error.
721: --
722: rollback to delete_pension_objects_swi;
723: if hr_multi_message.unexpected_error_add(l_proc) then
724: hr_utility.set_location(' Leaving:' || l_proc, 40);
725: raise;
726: end if;
727: --
728: -- Reset IN OUT parameters and set OUT parameters
727: --
728: -- Reset IN OUT parameters and set OUT parameters
729: --
730: p_return_status := hr_multi_message.get_return_status_disable;
731: hr_utility.set_location(' Leaving: ' || l_proc, 50);
732:
733: END delete_pension_objects_swi;
734: --
735: -------------------------------------------------------------------------------