69: SAVEPOINT create_succession_plan_swi;
70: --
71: -- Initialise Multiple Message Detection
72: --
73: hr_multi_message.enable_message_list;
74: --
75: -- Remember IN OUT parameter IN values
76: --
77: --
137: -- Derive the API return status value based on whether
138: -- messages of any type exist in the Multiple Message List.
139: -- Also disable Multiple Message Detection.
140: --
141: p_return_status := hr_multi_message.get_return_status_disable;
142: hr_utility.set_location (' Leaving:' || l_proc, 20);
143: --
144: EXCEPTION
145: WHEN hr_multi_message.error_message_exist
141: p_return_status := hr_multi_message.get_return_status_disable;
142: hr_utility.set_location (' Leaving:' || l_proc, 20);
143: --
144: EXCEPTION
145: WHEN hr_multi_message.error_message_exist
146: THEN
147: --
148: -- Catch the Multiple Message List exception which
149: -- indicates API processing has been aborted because
154: -- Reset IN OUT parameters and set OUT parameters
155: --
156: -- p_succession_plan_id := null;
157: p_object_version_number := NULL;
158: p_return_status := hr_multi_message.get_return_status_disable;
159: hr_utility.set_location (' Leaving:' || l_proc, 30);
160: WHEN OTHERS
161: THEN
162: --
167: -- error.
168: --
169: ROLLBACK TO create_succession_plan_swi;
170:
171: IF hr_multi_message.unexpected_error_add (l_proc)
172: THEN
173: hr_utility.set_location (' Leaving:' || l_proc, 40);
174: RAISE;
175: END IF;
178: -- Reset IN OUT and set OUT parameters
179: --
180: -- p_succession_plan_id := null;
181: p_object_version_number := NULL;
182: p_return_status := hr_multi_message.get_return_status_disable;
183: hr_utility.set_location (' Leaving:' || l_proc, 50);
184: END create_succession_plan;
185:
186: -- ----------------------------------------------------------------------------
209: SAVEPOINT delete_succession_plan_swi;
210: --
211: -- Initialise Multiple Message Detection
212: --
213: hr_multi_message.enable_message_list;
214: --
215: -- Remember IN OUT parameter IN values
216: --
217: --
240: -- Derive the API return status value based on whether
241: -- messages of any type exist in the Multiple Message List.
242: -- Also disable Multiple Message Detection.
243: --
244: p_return_status := hr_multi_message.get_return_status_disable;
245: hr_utility.set_location (' Leaving:' || l_proc, 20);
246: --
247: EXCEPTION
248: WHEN hr_multi_message.error_message_exist
244: p_return_status := hr_multi_message.get_return_status_disable;
245: hr_utility.set_location (' Leaving:' || l_proc, 20);
246: --
247: EXCEPTION
248: WHEN hr_multi_message.error_message_exist
249: THEN
250: --
251: -- Catch the Multiple Message List exception which
252: -- indicates API processing has been aborted because
255: ROLLBACK TO delete_succession_plan_swi;
256: --
257: -- Reset IN OUT parameters and set OUT parameters
258: --
259: p_return_status := hr_multi_message.get_return_status_disable;
260: hr_utility.set_location (' Leaving:' || l_proc, 30);
261: WHEN OTHERS
262: THEN
263: --
268: -- error.
269: --
270: ROLLBACK TO delete_succession_plan_swi;
271:
272: IF hr_multi_message.unexpected_error_add (l_proc)
273: THEN
274: hr_utility.set_location (' Leaving:' || l_proc, 40);
275: RAISE;
276: END IF;
277:
278: --
279: -- Reset IN OUT and set OUT parameters
280: --
281: p_return_status := hr_multi_message.get_return_status_disable;
282: hr_utility.set_location (' Leaving:' || l_proc, 50);
283: END delete_succession_plan;
284:
285: -- ----------------------------------------------------------------------------
345: SAVEPOINT update_succession_plan_swi;
346: --
347: -- Initialise Multiple Message Detection
348: --
349: hr_multi_message.enable_message_list;
350: --
351: -- Remember IN OUT parameter IN values
352: --
353: l_object_version_number := p_object_version_number;
413: -- Derive the API return status value based on whether
414: -- messages of any type exist in the Multiple Message List.
415: -- Also disable Multiple Message Detection.
416: --
417: p_return_status := hr_multi_message.get_return_status_disable;
418: hr_utility.set_location (' Leaving:' || l_proc, 20);
419: --
420: EXCEPTION
421: WHEN hr_multi_message.error_message_exist
417: p_return_status := hr_multi_message.get_return_status_disable;
418: hr_utility.set_location (' Leaving:' || l_proc, 20);
419: --
420: EXCEPTION
421: WHEN hr_multi_message.error_message_exist
422: THEN
423: --
424: -- Catch the Multiple Message List exception which
425: -- indicates API processing has been aborted because
429: --
430: -- Reset IN OUT parameters and set OUT parameters
431: --
432: p_object_version_number := l_object_version_number;
433: p_return_status := hr_multi_message.get_return_status_disable;
434: hr_utility.set_location (' Leaving:' || l_proc, 30);
435: WHEN OTHERS
436: THEN
437: --
442: -- error.
443: --
444: ROLLBACK TO update_succession_plan_swi;
445:
446: IF hr_multi_message.unexpected_error_add (l_proc)
447: THEN
448: hr_utility.set_location (' Leaving:' || l_proc, 40);
449: RAISE;
450: END IF;
452: --
453: -- Reset IN OUT and set OUT parameters
454: --
455: p_object_version_number := l_object_version_number;
456: p_return_status := hr_multi_message.get_return_status_disable;
457: hr_utility.set_location (' Leaving:' || l_proc, 50);
458: END update_succession_plan;
459: END per_succession_plan_swi;