97: savepoint create_appraisal_swi;
98: --
99: -- Initialise Multiple Message Detection
100: --
101: hr_multi_message.enable_message_list;
102: --
103: -- Remember IN OUT parameter IN values
104: --
105: --
200: -- Derive the API return status value based on whether
201: -- messages of any type exist in the Multiple Message List.
202: -- Also disable Multiple Message Detection.
203: --
204: p_return_status := hr_multi_message.get_return_status_disable;
205: hr_utility.set_location(' Leaving:' || l_proc,20);
206: --
207: exception
208: when hr_multi_message.error_message_exist then
204: p_return_status := hr_multi_message.get_return_status_disable;
205: hr_utility.set_location(' Leaving:' || l_proc,20);
206: --
207: exception
208: when hr_multi_message.error_message_exist then
209: --
210: -- Catch the Multiple Message List exception which
211: -- indicates API processing has been aborted because
212: -- at least one message exists in the list.
215: --
216: -- Reset IN OUT parameters and set OUT parameters
217: --
218: p_object_version_number := null;
219: p_return_status := hr_multi_message.get_return_status_disable;
220: hr_utility.set_location(' Leaving:' || l_proc, 30);
221: when others then
222: --
223: -- When Multiple Message Detection is enabled catch
226: -- Multiple Message List. Otherwise re-raise the
227: -- error.
228: --
229: rollback to create_appraisal_swi;
230: if hr_multi_message.unexpected_error_add(l_proc) then
231: hr_utility.set_location(' Leaving:' || l_proc,40);
232: raise;
233: end if;
234: --
234: --
235: -- Reset IN OUT and set OUT parameters
236: --
237: p_object_version_number := null;
238: p_return_status := hr_multi_message.get_return_status_disable;
239: hr_utility.set_location(' Leaving:' || l_proc,50);
240: end create_appraisal;
241: -- ----------------------------------------------------------------------------
242: -- |---------------------------< delete_appraisal >---------------------------|
276: savepoint delete_appraisal_swi;
277: --
278: -- Initialise Multiple Message Detection
279: --
280: hr_multi_message.enable_message_list;
281: --
282: -- Remember IN OUT parameter IN values
283: --
284: --
336: -- Derive the API return status value based on whether
337: -- messages of any type exist in the Multiple Message List.
338: -- Also disable Multiple Message Detection.
339: --
340: p_return_status := hr_multi_message.get_return_status_disable;
341:
342: ELSE
343:
344: -- To update appraisal record with appraisal_system_status=DELETED
361:
362: hr_utility.set_location(' Leaving:' || l_proc,20);
363: --
364: exception
365: when hr_multi_message.error_message_exist then
366: --
367: -- Catch the Multiple Message List exception which
368: -- indicates API processing has been aborted because
369: -- at least one message exists in the list.
371: rollback to delete_appraisal_swi;
372: --
373: -- Reset IN OUT parameters and set OUT parameters
374: --
375: p_return_status := hr_multi_message.get_return_status_disable;
376: hr_utility.set_location(' Leaving:' || l_proc, 30);
377: when others then
378: --
379: -- When Multiple Message Detection is enabled catch
382: -- Multiple Message List. Otherwise re-raise the
383: -- error.
384: --
385: rollback to delete_appraisal_swi;
386: if hr_multi_message.unexpected_error_add(l_proc) then
387: hr_utility.set_location(' Leaving:' || l_proc,40);
388: raise;
389: end if;
390: --
389: end if;
390: --
391: -- Reset IN OUT and set OUT parameters
392: --
393: p_return_status := hr_multi_message.get_return_status_disable;
394: hr_utility.set_location(' Leaving:' || l_proc,50);
395: end delete_appraisal;
396: -- ----------------------------------------------------------------------------
397: -- |---------------------------< update_appraisal >---------------------------|
480: savepoint update_appraisal_swi;
481: --
482: -- Initialise Multiple Message Detection
483: --
484: hr_multi_message.enable_message_list;
485: --
486: -- Remember IN OUT parameter IN values
487: --
488: l_object_version_number := p_object_version_number;
576: -- Derive the API return status value based on whether
577: -- messages of any type exist in the Multiple Message List.
578: -- Also disable Multiple Message Detection.
579: --
580: p_return_status := hr_multi_message.get_return_status_disable;
581: hr_utility.set_location(' Leaving:' || l_proc,20);
582: --
583: exception
584: when hr_multi_message.error_message_exist then
580: p_return_status := hr_multi_message.get_return_status_disable;
581: hr_utility.set_location(' Leaving:' || l_proc,20);
582: --
583: exception
584: when hr_multi_message.error_message_exist then
585: --
586: -- Catch the Multiple Message List exception which
587: -- indicates API processing has been aborted because
588: -- at least one message exists in the list.
591: --
592: -- Reset IN OUT parameters and set OUT parameters
593: --
594: p_object_version_number := l_object_version_number;
595: p_return_status := hr_multi_message.get_return_status_disable;
596: hr_utility.set_location(' Leaving:' || l_proc, 30);
597: when others then
598: --
599: -- When Multiple Message Detection is enabled catch
602: -- Multiple Message List. Otherwise re-raise the
603: -- error.
604: --
605: rollback to update_appraisal_swi;
606: if hr_multi_message.unexpected_error_add(l_proc) then
607: hr_utility.set_location(' Leaving:' || l_proc,40);
608: raise;
609: end if;
610: --
610: --
611: -- Reset IN OUT and set OUT parameters
612: --
613: p_object_version_number := l_object_version_number;
614: p_return_status := hr_multi_message.get_return_status_disable;
615: hr_utility.set_location(' Leaving:' || l_proc,50);
616: end update_appraisal;
617:
618: -- ----------------------------------------------------------------------------