88: savepoint create_alloc_task_swi;
89: --
90: -- Initialise Multiple Message Detection
91: --
92: hr_multi_message.enable_message_list;
93: --
94: -- Remember IN OUT parameter IN values
95: --
96: --
181: -- Derive the API return status value based on whether
182: -- messages of any type exist in the Multiple Message List.
183: -- Also disable Multiple Message Detection.
184: --
185: p_return_status := hr_multi_message.get_return_status_disable;
186: hr_utility.set_location(' Leaving:' || l_proc,20);
187: --
188: exception
189: when hr_multi_message.error_message_exist then
185: p_return_status := hr_multi_message.get_return_status_disable;
186: hr_utility.set_location(' Leaving:' || l_proc,20);
187: --
188: exception
189: when hr_multi_message.error_message_exist then
190: --
191: -- Catch the Multiple Message List exception which
192: -- indicates API processing has been aborted because
193: -- at least one message exists in the list.
196: --
197: -- Reset IN OUT parameters and set OUT parameters
198: --
199: p_object_version_number := null;
200: p_return_status := hr_multi_message.get_return_status_disable;
201: hr_utility.set_location(' Leaving:' || l_proc, 30);
202: when others then
203: --
204: -- When Multiple Message Detection is enabled catch
207: -- Multiple Message List. Otherwise re-raise the
208: -- error.
209: --
210: rollback to create_alloc_task_swi;
211: if hr_multi_message.unexpected_error_add(l_proc) then
212: hr_utility.set_location(' Leaving:' || l_proc,40);
213: raise;
214: end if;
215: --
215: --
216: -- Reset IN OUT 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,50);
221: end create_alloc_task;
222: -- ----------------------------------------------------------------------------
223: -- |---------------------------< delete_alloc_task >--------------------------|
244: savepoint delete_alloc_task_swi;
245: --
246: -- Initialise Multiple Message Detection
247: --
248: hr_multi_message.enable_message_list;
249: --
250: -- Remember IN OUT parameter IN values
251: --
252: --
277: -- Derive the API return status value based on whether
278: -- messages of any type exist in the Multiple Message List.
279: -- Also disable Multiple Message Detection.
280: --
281: p_return_status := hr_multi_message.get_return_status_disable;
282: hr_utility.set_location(' Leaving:' || l_proc,20);
283: --
284: exception
285: when hr_multi_message.error_message_exist then
281: p_return_status := hr_multi_message.get_return_status_disable;
282: hr_utility.set_location(' Leaving:' || l_proc,20);
283: --
284: exception
285: when hr_multi_message.error_message_exist then
286: --
287: -- Catch the Multiple Message List exception which
288: -- indicates API processing has been aborted because
289: -- at least one message exists in the list.
291: rollback to delete_alloc_task_swi;
292: --
293: -- Reset IN OUT parameters and set OUT parameters
294: --
295: p_return_status := hr_multi_message.get_return_status_disable;
296: hr_utility.set_location(' Leaving:' || l_proc, 30);
297: when others then
298: --
299: -- When Multiple Message Detection is enabled catch
302: -- Multiple Message List. Otherwise re-raise the
303: -- error.
304: --
305: rollback to delete_alloc_task_swi;
306: if hr_multi_message.unexpected_error_add(l_proc) then
307: hr_utility.set_location(' Leaving:' || l_proc,40);
308: raise;
309: end if;
310: --
309: end if;
310: --
311: -- Reset IN OUT and set OUT parameters
312: --
313: p_return_status := hr_multi_message.get_return_status_disable;
314: hr_utility.set_location(' Leaving:' || l_proc,50);
315: end delete_alloc_task;
316: -- ----------------------------------------------------------------------------
317: -- |---------------------------< update_alloc_task >--------------------------|
396: savepoint update_alloc_task_swi;
397: --
398: -- Initialise Multiple Message Detection
399: --
400: hr_multi_message.enable_message_list;
401: --
402: -- Remember IN OUT parameter IN values
403: --
404: l_object_version_number := p_object_version_number;
487: -- Derive the API return status value based on whether
488: -- messages of any type exist in the Multiple Message List.
489: -- Also disable Multiple Message Detection.
490: --
491: p_return_status := hr_multi_message.get_return_status_disable;
492: hr_utility.set_location(' Leaving:' || l_proc,20);
493: --
494: exception
495: when hr_multi_message.error_message_exist then
491: p_return_status := hr_multi_message.get_return_status_disable;
492: hr_utility.set_location(' Leaving:' || l_proc,20);
493: --
494: exception
495: when hr_multi_message.error_message_exist then
496: --
497: -- Catch the Multiple Message List exception which
498: -- indicates API processing has been aborted because
499: -- at least one message exists in the list.
502: --
503: -- Reset IN OUT parameters and set OUT parameters
504: --
505: p_object_version_number := l_object_version_number;
506: p_return_status := hr_multi_message.get_return_status_disable;
507: hr_utility.set_location(' Leaving:' || l_proc, 30);
508: when others then
509: --
510: -- When Multiple Message Detection is enabled catch
513: -- Multiple Message List. Otherwise re-raise the
514: -- error.
515: --
516: rollback to update_alloc_task_swi;
517: if hr_multi_message.unexpected_error_add(l_proc) then
518: hr_utility.set_location(' Leaving:' || l_proc,40);
519: raise;
520: end if;
521: --
521: --
522: -- Reset IN OUT and set OUT parameters
523: --
524: p_object_version_number := l_object_version_number;
525: p_return_status := hr_multi_message.get_return_status_disable;
526: hr_utility.set_location(' Leaving:' || l_proc,50);
527: end update_alloc_task;
528: end per_allocated_task_swi;