101: savepoint create_hierarchy_swi;
102: --
103: -- Initialise Multiple Message Detection
104: --
105: hr_multi_message.enable_message_list;
106: --
107: -- Remember IN OUT parameter IN values
108: --
109: l_object_version_number := p_object_version_number;
205: -- Derive the API return status value based on whether
206: -- messages of any type exist in the Multiple Message List.
207: -- Also disable Multiple Message Detection.
208: --
209: p_return_status := hr_multi_message.get_return_status_disable;
210: hr_utility.set_location(' Leaving:' || l_proc,20);
211: --
212: exception
213: when hr_multi_message.error_message_exist then
209: p_return_status := hr_multi_message.get_return_status_disable;
210: hr_utility.set_location(' Leaving:' || l_proc,20);
211: --
212: exception
213: when hr_multi_message.error_message_exist then
214: --
215: -- Catch the Multiple Message List exception which
216: -- indicates API processing has been aborted because
217: -- at least one message exists in the list.
221: -- Reset IN OUT parameters and set OUT parameters
222: --
223: p_hierarchy_id := null;
224: p_object_version_number := l_object_version_number;
225: p_return_status := hr_multi_message.get_return_status_disable;
226: hr_utility.set_location(' Leaving:' || l_proc, 30);
227: when others then
228: --
229: -- When Multiple Message Detection is enabled catch
232: -- Multiple Message List. Otherwise re-raise the
233: -- error.
234: --
235: rollback to create_hierarchy_swi;
236: if hr_multi_message.unexpected_error_add(l_proc) then
237: hr_utility.set_location(' Leaving:' || l_proc,40);
238: raise;
239: end if;
240: --
241: -- Reset IN OUT and set OUT parameters
242: --
243: p_hierarchy_id := null;
244: p_object_version_number := l_object_version_number;
245: p_return_status := hr_multi_message.get_return_status_disable;
246: hr_utility.set_location(' Leaving:' || l_proc,50);
247: end create_hierarchy;
248: -- ----------------------------------------------------------------------------
249: -- |---------------------------< delete_hierarchy >---------------------------|
271: savepoint delete_hierarchy_swi;
272: --
273: -- Initialise Multiple Message Detection
274: --
275: hr_multi_message.enable_message_list;
276: --
277: -- Remember IN OUT parameter IN values
278: --
279: l_object_version_number := p_object_version_number;
305: -- Derive the API return status value based on whether
306: -- messages of any type exist in the Multiple Message List.
307: -- Also disable Multiple Message Detection.
308: --
309: p_return_status := hr_multi_message.get_return_status_disable;
310: hr_utility.set_location(' Leaving:' || l_proc,20);
311: --
312: exception
313: when hr_multi_message.error_message_exist then
309: p_return_status := hr_multi_message.get_return_status_disable;
310: hr_utility.set_location(' Leaving:' || l_proc,20);
311: --
312: exception
313: when hr_multi_message.error_message_exist then
314: --
315: -- Catch the Multiple Message List exception which
316: -- indicates API processing has been aborted because
317: -- at least one message exists in the list.
320: --
321: -- Reset IN OUT parameters and set OUT parameters
322: --
323: p_object_version_number := l_object_version_number;
324: p_return_status := hr_multi_message.get_return_status_disable;
325: hr_utility.set_location(' Leaving:' || l_proc, 30);
326: when others then
327: --
328: -- When Multiple Message Detection is enabled catch
331: -- Multiple Message List. Otherwise re-raise the
332: -- error.
333: --
334: rollback to delete_hierarchy_swi;
335: if hr_multi_message.unexpected_error_add(l_proc) then
336: hr_utility.set_location(' Leaving:' || l_proc,40);
337: raise;
338: end if;
339: --
339: --
340: -- Reset IN OUT and set OUT parameters
341: --
342: p_object_version_number := l_object_version_number;
343: p_return_status := hr_multi_message.get_return_status_disable;
344: hr_utility.set_location(' Leaving:' || l_proc,50);
345: end delete_hierarchy;
346: -- ----------------------------------------------------------------------------
347: -- |----------------------------------< lck >---------------------------------|
366: savepoint lck_swi;
367: --
368: -- Initialise Multiple Message Detection
369: --
370: hr_multi_message.enable_message_list;
371: --
372: -- Remember IN OUT parameter IN values
373: --
374: --
395: -- Derive the API return status value based on whether
396: -- messages of any type exist in the Multiple Message List.
397: -- Also disable Multiple Message Detection.
398: --
399: p_return_status := hr_multi_message.get_return_status_disable;
400: hr_utility.set_location(' Leaving:' || l_proc,20);
401: --
402: exception
403: when hr_multi_message.error_message_exist then
399: p_return_status := hr_multi_message.get_return_status_disable;
400: hr_utility.set_location(' Leaving:' || l_proc,20);
401: --
402: exception
403: when hr_multi_message.error_message_exist then
404: --
405: -- Catch the Multiple Message List exception which
406: -- indicates API processing has been aborted because
407: -- at least one message exists in the list.
409: rollback to lck_swi;
410: --
411: -- Reset IN OUT parameters and set OUT parameters
412: --
413: p_return_status := hr_multi_message.get_return_status_disable;
414: hr_utility.set_location(' Leaving:' || l_proc, 30);
415: when others then
416: --
417: -- When Multiple Message Detection is enabled catch
420: -- Multiple Message List. Otherwise re-raise the
421: -- error.
422: --
423: rollback to lck_swi;
424: if hr_multi_message.unexpected_error_add(l_proc) then
425: hr_utility.set_location(' Leaving:' || l_proc,40);
426: raise;
427: end if;
428: --
427: end if;
428: --
429: -- Reset IN OUT and set OUT parameters
430: --
431: p_return_status := hr_multi_message.get_return_status_disable;
432: hr_utility.set_location(' Leaving:' || l_proc,50);
433: end lck;
434: -- ----------------------------------------------------------------------------
435: -- |---------------------------< update_hierarchy >---------------------------|
525: savepoint update_hierarchy_swi;
526: --
527: -- Initialise Multiple Message Detection
528: --
529: hr_multi_message.enable_message_list;
530: --
531: -- Remember IN OUT parameter IN values
532: --
533: l_object_version_number := p_object_version_number;
627: -- Derive the API return status value based on whether
628: -- messages of any type exist in the Multiple Message List.
629: -- Also disable Multiple Message Detection.
630: --
631: p_return_status := hr_multi_message.get_return_status_disable;
632: hr_utility.set_location(' Leaving:' || l_proc,20);
633: --
634: exception
635: when hr_multi_message.error_message_exist then
631: p_return_status := hr_multi_message.get_return_status_disable;
632: hr_utility.set_location(' Leaving:' || l_proc,20);
633: --
634: exception
635: when hr_multi_message.error_message_exist then
636: --
637: -- Catch the Multiple Message List exception which
638: -- indicates API processing has been aborted because
639: -- at least one message exists in the list.
642: --
643: -- Reset IN OUT parameters and set OUT parameters
644: --
645: p_object_version_number := l_object_version_number;
646: p_return_status := hr_multi_message.get_return_status_disable;
647: hr_utility.set_location(' Leaving:' || l_proc, 30);
648: when others then
649: --
650: -- When Multiple Message Detection is enabled catch
653: -- Multiple Message List. Otherwise re-raise the
654: -- error.
655: --
656: rollback to update_hierarchy_swi;
657: if hr_multi_message.unexpected_error_add(l_proc) then
658: hr_utility.set_location(' Leaving:' || l_proc,40);
659: raise;
660: end if;
661: --
661: --
662: -- Reset IN OUT and set OUT parameters
663: --
664: p_object_version_number := l_object_version_number;
665: p_return_status := hr_multi_message.get_return_status_disable;
666: hr_utility.set_location(' Leaving:' || l_proc,50);
667: end update_hierarchy;
668: end per_hierarchy_swi;