62: savepoint create_succession_plan_swi;
63: --
64: -- Initialise Multiple Message Detection
65: --
66: hr_multi_message.enable_message_list;
67: --
68: -- Remember IN OUT parameter IN values
69: --
70: --
129: -- Derive the API return status value based on whether
130: -- messages of any type exist in the Multiple Message List.
131: -- Also disable Multiple Message Detection.
132: --
133: p_return_status := hr_multi_message.get_return_status_disable;
134: hr_utility.set_location(' Leaving:' || l_proc,20);
135: --
136: exception
137: when hr_multi_message.error_message_exist then
133: p_return_status := hr_multi_message.get_return_status_disable;
134: hr_utility.set_location(' Leaving:' || l_proc,20);
135: --
136: exception
137: when hr_multi_message.error_message_exist then
138: --
139: -- Catch the Multiple Message List exception which
140: -- indicates API processing has been aborted because
141: -- at least one message exists in the list.
145: -- Reset IN OUT parameters and set OUT parameters
146: --
147: p_succession_plan_id := null;
148: p_object_version_number := null;
149: p_return_status := hr_multi_message.get_return_status_disable;
150: hr_utility.set_location(' Leaving:' || l_proc, 30);
151: when others then
152: --
153: -- When Multiple Message Detection is enabled catch
156: -- Multiple Message List. Otherwise re-raise the
157: -- error.
158: --
159: rollback to create_succession_plan_swi;
160: if hr_multi_message.unexpected_error_add(l_proc) then
161: hr_utility.set_location(' Leaving:' || l_proc,40);
162: raise;
163: end if;
164: --
165: -- Reset IN OUT and set OUT parameters
166: --
167: p_succession_plan_id := null;
168: p_object_version_number := null;
169: p_return_status := hr_multi_message.get_return_status_disable;
170: hr_utility.set_location(' Leaving:' || l_proc,50);
171: end create_succession_plan;
172: -- ----------------------------------------------------------------------------
173: -- |------------------------< delete_succession_plan >------------------------|
194: savepoint delete_succession_plan_swi;
195: --
196: -- Initialise Multiple Message Detection
197: --
198: hr_multi_message.enable_message_list;
199: --
200: -- Remember IN OUT parameter IN values
201: --
202: --
227: -- Derive the API return status value based on whether
228: -- messages of any type exist in the Multiple Message List.
229: -- Also disable Multiple Message Detection.
230: --
231: p_return_status := hr_multi_message.get_return_status_disable;
232: hr_utility.set_location(' Leaving:' || l_proc,20);
233: --
234: exception
235: when hr_multi_message.error_message_exist then
231: p_return_status := hr_multi_message.get_return_status_disable;
232: hr_utility.set_location(' Leaving:' || l_proc,20);
233: --
234: exception
235: when hr_multi_message.error_message_exist then
236: --
237: -- Catch the Multiple Message List exception which
238: -- indicates API processing has been aborted because
239: -- at least one message exists in the list.
241: rollback to delete_succession_plan_swi;
242: --
243: -- Reset IN OUT parameters and set OUT parameters
244: --
245: p_return_status := hr_multi_message.get_return_status_disable;
246: hr_utility.set_location(' Leaving:' || l_proc, 30);
247: when others then
248: --
249: -- When Multiple Message Detection is enabled catch
252: -- Multiple Message List. Otherwise re-raise the
253: -- error.
254: --
255: rollback to delete_succession_plan_swi;
256: if hr_multi_message.unexpected_error_add(l_proc) then
257: hr_utility.set_location(' Leaving:' || l_proc,40);
258: raise;
259: end if;
260: --
259: end if;
260: --
261: -- Reset IN OUT and set OUT parameters
262: --
263: p_return_status := hr_multi_message.get_return_status_disable;
264: hr_utility.set_location(' Leaving:' || l_proc,50);
265: end delete_succession_plan;
266: -- ----------------------------------------------------------------------------
267: -- |------------------------< update_succession_plan >------------------------|
321: savepoint update_succession_plan_swi;
322: --
323: -- Initialise Multiple Message Detection
324: --
325: hr_multi_message.enable_message_list;
326: --
327: -- Remember IN OUT parameter IN values
328: --
329: l_object_version_number := p_object_version_number;
387: -- Derive the API return status value based on whether
388: -- messages of any type exist in the Multiple Message List.
389: -- Also disable Multiple Message Detection.
390: --
391: p_return_status := hr_multi_message.get_return_status_disable;
392: hr_utility.set_location(' Leaving:' || l_proc,20);
393: --
394: exception
395: when hr_multi_message.error_message_exist then
391: p_return_status := hr_multi_message.get_return_status_disable;
392: hr_utility.set_location(' Leaving:' || l_proc,20);
393: --
394: exception
395: when hr_multi_message.error_message_exist then
396: --
397: -- Catch the Multiple Message List exception which
398: -- indicates API processing has been aborted because
399: -- at least one message exists in the list.
402: --
403: -- Reset IN OUT parameters and set OUT parameters
404: --
405: p_object_version_number := l_object_version_number;
406: p_return_status := hr_multi_message.get_return_status_disable;
407: hr_utility.set_location(' Leaving:' || l_proc, 30);
408: when others then
409: --
410: -- When Multiple Message Detection is enabled catch
413: -- Multiple Message List. Otherwise re-raise the
414: -- error.
415: --
416: rollback to update_succession_plan_swi;
417: if hr_multi_message.unexpected_error_add(l_proc) then
418: hr_utility.set_location(' Leaving:' || l_proc,40);
419: raise;
420: end if;
421: --
421: --
422: -- Reset IN OUT and set OUT parameters
423: --
424: p_object_version_number := l_object_version_number;
425: p_return_status := hr_multi_message.get_return_status_disable;
426: hr_utility.set_location(' Leaving:' || l_proc,50);
427: end update_succession_plan;
428: end per_succession_plan_swi;