542: savepoint create_pension_objects_swi;
543: --
544: -- Initialise Multiple Message Detection
545: --
546: hr_multi_message.enable_message_list;
547: --
548: -- Remember IN OUT parameter IN values
549: --
550: --
597: -- Derive the API return status value based on whether
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
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: --
607: -- Catch the Multiple Message List exception which
608: -- indicates API processing has been aborted because
609: -- at least one error message exists in the list.
612: --
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
623: -- Multiple Message List. Otherwise re-raise
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: --
631: --
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;
667: savepoint delete_pension_objects_swi;
668: --
669: -- Initialise Multiple Message Detection
670: --
671: hr_multi_message.enable_message_list;
672: --
673: -- Remember IN OUT parameter IN values
674: --
675: --
694: -- Derive the API return status value based on whether
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
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: --
704: -- Catch the Multiple Message List exception which
705: -- indicates API processing has been aborted because
706: -- at least one error message exists in the list.
708: rollback to delete_pension_objects_swi;
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
719: -- Multiple Message List. Otherwise re-raise
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: --
726: end if;
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: --