76: savepoint create_emp_stat_situation_swi;
77: --
78: -- Initialise Multiple Message Detection
79: --
80: hr_multi_message.enable_message_list;
81: --
82: -- Remember IN OUT parameter IN values
83: --
84: --
156: -- Derive the API return status value based on whether
157: -- messages of any type exist in the Multiple Message List.
158: -- Also disable Multiple Message Detection.
159: --
160: p_return_status := hr_multi_message.get_return_status_disable;
161: hr_utility.set_location(' Leaving:' || l_proc,20);
162: --
163: exception
164: when hr_multi_message.error_message_exist then
160: p_return_status := hr_multi_message.get_return_status_disable;
161: hr_utility.set_location(' Leaving:' || l_proc,20);
162: --
163: exception
164: when hr_multi_message.error_message_exist then
165: --
166: -- Catch the Multiple Message List exception which
167: -- indicates API processing has been aborted because
168: -- at least one message exists in the list.
172: -- Reset IN OUT parameters and set OUT parameters
173: --
174: p_emp_stat_situation_id := null;
175: p_object_version_number := null;
176: p_return_status := hr_multi_message.get_return_status_disable;
177: hr_utility.set_location(' Leaving:' || l_proc, 30);
178: when others then
179: --
180: -- When Multiple Message Detection is enabled catch
183: -- Multiple Message List. Otherwise re-raise the
184: -- error.
185: --
186: rollback to create_emp_stat_situation_swi;
187: if hr_multi_message.unexpected_error_add(l_proc) then
188: hr_utility.set_location(' Leaving:' || l_proc,40);
189: raise;
190: end if;
191: --
192: -- Reset IN OUT and set OUT parameters
193: --
194: p_emp_stat_situation_id := null;
195: p_object_version_number := null;
196: p_return_status := hr_multi_message.get_return_status_disable;
197: hr_utility.set_location(' Leaving:' || l_proc,50);
198: end create_emp_stat_situation;
199: -- ----------------------------------------------------------------------------
200: -- |-----------------------< update_emp_stat_situation >----------------------|
268: savepoint update_emp_stat_situation_swi;
269: --
270: -- Initialise Multiple Message Detection
271: --
272: hr_multi_message.enable_message_list;
273: --
274: -- Remember IN OUT parameter IN values
275: --
276: l_object_version_number := p_object_version_number;
348: -- Derive the API return status value based on whether
349: -- messages of any type exist in the Multiple Message List.
350: -- Also disable Multiple Message Detection.
351: --
352: p_return_status := hr_multi_message.get_return_status_disable;
353: hr_utility.set_location(' Leaving:' || l_proc,20);
354: --
355: exception
356: when hr_multi_message.error_message_exist then
352: p_return_status := hr_multi_message.get_return_status_disable;
353: hr_utility.set_location(' Leaving:' || l_proc,20);
354: --
355: exception
356: when hr_multi_message.error_message_exist then
357: --
358: -- Catch the Multiple Message List exception which
359: -- indicates API processing has been aborted because
360: -- at least one message exists in the list.
363: --
364: -- Reset IN OUT parameters and set OUT parameters
365: --
366: p_object_version_number := l_object_version_number;
367: p_return_status := hr_multi_message.get_return_status_disable;
368: hr_utility.set_location(' Leaving:' || l_proc, 30);
369: when others then
370: --
371: -- When Multiple Message Detection is enabled catch
374: -- Multiple Message List. Otherwise re-raise the
375: -- error.
376: --
377: rollback to update_emp_stat_situation_swi;
378: if hr_multi_message.unexpected_error_add(l_proc) then
379: hr_utility.set_location(' Leaving:' || l_proc,40);
380: raise;
381: end if;
382: --
382: --
383: -- Reset IN OUT and set OUT parameters
384: --
385: p_object_version_number := l_object_version_number;
386: p_return_status := hr_multi_message.get_return_status_disable;
387: hr_utility.set_location(' Leaving:' || l_proc,50);
388: end update_emp_stat_situation;
389: -- ----------------------------------------------------------------------------
390: -- |-----------------------< delete_emp_stat_situation >----------------------|
411: savepoint delete_emp_stat_situation_swi;
412: --
413: -- Initialise Multiple Message Detection
414: --
415: hr_multi_message.enable_message_list;
416: --
417: -- Remember IN OUT parameter IN values
418: --
419: --
444: -- Derive the API return status value based on whether
445: -- messages of any type exist in the Multiple Message List.
446: -- Also disable Multiple Message Detection.
447: --
448: p_return_status := hr_multi_message.get_return_status_disable;
449: hr_utility.set_location(' Leaving:' || l_proc,20);
450: --
451: exception
452: when hr_multi_message.error_message_exist then
448: p_return_status := hr_multi_message.get_return_status_disable;
449: hr_utility.set_location(' Leaving:' || l_proc,20);
450: --
451: exception
452: when hr_multi_message.error_message_exist then
453: --
454: -- Catch the Multiple Message List exception which
455: -- indicates API processing has been aborted because
456: -- at least one message exists in the list.
458: rollback to delete_emp_stat_situation_swi;
459: --
460: -- Reset IN OUT parameters and set OUT parameters
461: --
462: p_return_status := hr_multi_message.get_return_status_disable;
463: hr_utility.set_location(' Leaving:' || l_proc, 30);
464: when others then
465: --
466: -- When Multiple Message Detection is enabled catch
469: -- Multiple Message List. Otherwise re-raise the
470: -- error.
471: --
472: rollback to delete_emp_stat_situation_swi;
473: if hr_multi_message.unexpected_error_add(l_proc) then
474: hr_utility.set_location(' Leaving:' || l_proc,40);
475: raise;
476: end if;
477: --
476: end if;
477: --
478: -- Reset IN OUT and set OUT parameters
479: --
480: p_return_status := hr_multi_message.get_return_status_disable;
481: hr_utility.set_location(' Leaving:' || l_proc,50);
482: end delete_emp_stat_situation;
483: -- ----------------------------------------------------------------------------
484: -- |-----------------------< renew_emp_stat_situation >-----------------------|
512: savepoint renew_emp_stat_situation_swi;
513: --
514: -- Initialise Multiple Message Detection
515: --
516: hr_multi_message.enable_message_list;
517: --
518: -- Remember IN OUT parameter IN values
519: --
520: l_emp_stat_situation_id := p_emp_stat_situation_id;
552: -- Derive the API return status value based on whether
553: -- messages of any type exist in the Multiple Message List.
554: -- Also disable Multiple Message Detection.
555: --
556: p_return_status := hr_multi_message.get_return_status_disable;
557: hr_utility.set_location(' Leaving:' || l_proc,20);
558: --
559: exception
560: when hr_multi_message.error_message_exist then
556: p_return_status := hr_multi_message.get_return_status_disable;
557: hr_utility.set_location(' Leaving:' || l_proc,20);
558: --
559: exception
560: when hr_multi_message.error_message_exist then
561: --
562: -- Catch the Multiple Message List exception which
563: -- indicates API processing has been aborted because
564: -- at least one message exists in the list.
568: -- Reset IN OUT parameters and set OUT parameters
569: --
570: p_emp_stat_situation_id := l_emp_stat_situation_id;
571: p_object_version_number := l_object_version_number;
572: p_return_status := hr_multi_message.get_return_status_disable;
573: hr_utility.set_location(' Leaving:' || l_proc, 30);
574: when others then
575: --
576: -- When Multiple Message Detection is enabled catch
579: -- Multiple Message List. Otherwise re-raise the
580: -- error.
581: --
582: rollback to renew_emp_stat_situation_swi;
583: if hr_multi_message.unexpected_error_add(l_proc) then
584: hr_utility.set_location(' Leaving:' || l_proc,40);
585: raise;
586: end if;
587: --
588: -- Reset IN OUT and set OUT parameters
589: --
590: p_emp_stat_situation_id := l_emp_stat_situation_id;
591: p_object_version_number := l_object_version_number;
592: p_return_status := hr_multi_message.get_return_status_disable;
593: hr_utility.set_location(' Leaving:' || l_proc,50);
594: end renew_emp_stat_situation;
595: -- ----------------------------------------------------------------------------
596: -- |---------------------< reinstate_emp_stat_situation >---------------------|
620: savepoint reinstate_emp_stat_situation;
621: --
622: -- Initialise Multiple Message Detection
623: --
624: hr_multi_message.enable_message_list;
625: --
626: -- Remember IN OUT parameter IN values
627: --
628: --
656: -- Derive the API return status value based on whether
657: -- messages of any type exist in the Multiple Message List.
658: -- Also disable Multiple Message Detection.
659: --
660: p_return_status := hr_multi_message.get_return_status_disable;
661: hr_utility.set_location(' Leaving:' || l_proc,20);
662: --
663: exception
664: when hr_multi_message.error_message_exist then
660: p_return_status := hr_multi_message.get_return_status_disable;
661: hr_utility.set_location(' Leaving:' || l_proc,20);
662: --
663: exception
664: when hr_multi_message.error_message_exist then
665: --
666: -- Catch the Multiple Message List exception which
667: -- indicates API processing has been aborted because
668: -- at least one message exists in the list.
671: --
672: -- Reset IN OUT parameters and set OUT parameters
673: --
674: p_new_emp_stat_situation_id := null;
675: p_return_status := hr_multi_message.get_return_status_disable;
676: hr_utility.set_location(' Leaving:' || l_proc, 30);
677: when others then
678: --
679: -- When Multiple Message Detection is enabled catch
682: -- Multiple Message List. Otherwise re-raise the
683: -- error.
684: --
685: rollback to reinstate_emp_stat_situation;
686: if hr_multi_message.unexpected_error_add(l_proc) then
687: hr_utility.set_location(' Leaving:' || l_proc,40);
688: raise;
689: end if;
690: --
690: --
691: -- Reset IN OUT and set OUT parameters
692: --
693: p_new_emp_stat_situation_id := null;
694: p_return_status := hr_multi_message.get_return_status_disable;
695: hr_utility.set_location(' Leaving:' || l_proc,50);
696: end reinstate_emp_stat_situation;
697: end pqh_fr_emp_stat_situation_swi;