107: savepoint per_ctr_swi_ins;
108: --
109: -- Initialise Multiple Message Detection
110: --
111: hr_multi_message.enable_message_list;
112: --
113: -- Remember IN OUT parameter IN values
114: --
115: --
216: If l_validate = TRUE Then
217: rollback to per_ctr_swi_ins;
218: End If;
219: --
220: p_return_status := hr_multi_message.get_return_status_disable;
221: hr_utility.set_location(' Leaving:' || l_proc,20);
222: --
223: exception
224: when hr_multi_message.error_message_exist then
220: p_return_status := hr_multi_message.get_return_status_disable;
221: hr_utility.set_location(' Leaving:' || l_proc,20);
222: --
223: exception
224: when hr_multi_message.error_message_exist then
225: --
226: -- Catch the Multiple Message List exception which
227: -- indicates API processing has been aborted because
228: -- at least one message exists in the list.
231: --
232: -- Reset IN OUT parameters and set OUT parameters
233: --
234: p_object_version_number := null;
235: p_return_status := hr_multi_message.get_return_status_disable;
236: hr_utility.set_location(' Leaving:' || l_proc, 30);
237: when others then
238: --
239: -- When Multiple Message Detection is enabled catch
242: -- Multiple Message List. Otherwise re-raise the
243: -- error.
244: --
245: rollback to per_ctr_swi_ins;
246: if hr_multi_message.unexpected_error_add(l_proc) then
247: hr_utility.set_location(' Leaving:' || l_proc,40);
248: raise;
249: end if;
250: --
250: --
251: -- Reset IN OUT and set OUT parameters
252: --
253: p_object_version_number := null;
254: p_return_status := hr_multi_message.get_return_status_disable;
255: hr_utility.set_location(' Leaving:' || l_proc,50);
256:
257: end ins;
258:
344: savepoint per_ctr_swi_upd;
345: --
346: -- Initialise Multiple Message Detection
347: --
348: hr_multi_message.enable_message_list;
349: --
350: -- Remember IN OUT parameter IN values
351: --
352: l_object_version_number := p_object_version_number;
422: If l_validate = TRUE Then
423: rollback to per_ctr_swi_upd;
424: End If;
425: --
426: p_return_status := hr_multi_message.get_return_status_disable;
427: hr_utility.set_location(' Leaving:' || l_proc,20);
428: --
429: exception
430: when hr_multi_message.error_message_exist then
426: p_return_status := hr_multi_message.get_return_status_disable;
427: hr_utility.set_location(' Leaving:' || l_proc,20);
428: --
429: exception
430: when hr_multi_message.error_message_exist then
431: --
432: rollback to per_ctr_swi_upd;
433: --
434: --
432: rollback to per_ctr_swi_upd;
433: --
434: --
435: p_object_version_number := l_object_version_number;
436: p_return_status := hr_multi_message.get_return_status_disable;
437: hr_utility.set_location(' Leaving:' || l_proc, 30);
438:
439: when others then
440: --
439: when others then
440: --
441: rollback to per_ctr_swi_upd;
442:
443: if hr_multi_message.unexpected_error_add(l_proc) then
444: hr_utility.set_location(' Leaving:' || l_proc,40);
445: raise;
446: end if;
447: --
445: raise;
446: end if;
447: --
448: p_object_version_number := l_object_version_number;
449: p_return_status := hr_multi_message.get_return_status_disable;
450: hr_utility.set_location(' Leaving:' || l_proc,50);
451:
452: end upd;
453:
476: hr_utility.set_location(' Entering:' || l_proc,10);
477: -- Issue a savepoint
478: savepoint per_ctr_swi_del;
479: -- Initialise Multiple Message Detection
480: hr_multi_message.enable_message_list;
481: -- Convert constant values to their corresponding boolean value
482: l_validate := hr_api.constant_to_boolean (p_constant_value => p_validate);
483: --
484: -- Call API
491: If l_validate = TRUE Then
492: rollback to delete_questionnaire_swi;
493: End If;
494:
495: p_return_status := hr_multi_message.get_return_status_disable;
496: hr_utility.set_location(' Leaving:' || l_proc,20);
497:
498: exception
499: when hr_multi_message.error_message_exist then
495: p_return_status := hr_multi_message.get_return_status_disable;
496: hr_utility.set_location(' Leaving:' || l_proc,20);
497:
498: exception
499: when hr_multi_message.error_message_exist then
500: --
501: -- Catch the Multiple Message List exception which
502: -- indicates API processing has been aborted because
503: -- at least one message exists in the list.
505: rollback to per_ctr_swi_del;
506: --
507: -- Reset IN OUT parameters and set OUT parameters
508: --
509: p_return_status := hr_multi_message.get_return_status_disable;
510: hr_utility.set_location(' Leaving:' || l_proc, 30);
511: when others then
512: --
513: -- When Multiple Message Detection is enabled catch
516: -- Multiple Message List. Otherwise re-raise the
517: -- error.
518: --
519: rollback to per_ctr_swi_del;
520: if hr_multi_message.unexpected_error_add(l_proc) then
521: hr_utility.set_location(' Leaving:' || l_proc,40);
522: raise;
523: end if;
524: --
523: end if;
524: --
525: -- Reset IN OUT and set OUT parameters
526: --
527: p_return_status := hr_multi_message.get_return_status_disable;
528: hr_utility.set_location(' Leaving:' || l_proc,50);
529: end del;
530:
531: END per_contact_relationship_swi;