43: savepoint create_setup_sub_task_swi;
44: --
45: -- Initialise Multiple Message Detection
46: --
47: hr_multi_message.enable_message_list;
48: --
49: -- Remember IN OUT parameter IN values
50: --
51: --
89: -- Derive the API return status value based on whether
90: -- messages of any type exist in the Multiple Message List.
91: -- Also disable Multiple Message Detection.
92: --
93: p_return_status := hr_multi_message.get_return_status_disable;
94: hr_utility.set_location(' Leaving:' || l_proc,20);
95: --
96: exception
97: when hr_multi_message.error_message_exist then
93: p_return_status := hr_multi_message.get_return_status_disable;
94: hr_utility.set_location(' Leaving:' || l_proc,20);
95: --
96: exception
97: when hr_multi_message.error_message_exist then
98: --
99: -- Catch the Multiple Message List exception which
100: -- indicates API processing has been aborted because
101: -- at least one message exists in the list.
104: --
105: -- Reset IN OUT parameters and set OUT parameters
106: --
107: p_object_version_number := null;
108: p_return_status := hr_multi_message.get_return_status_disable;
109: hr_utility.set_location(' Leaving:' || l_proc, 30);
110: when others then
111: --
112: -- When Multiple Message Detection is enabled catch
115: -- Multiple Message List. Otherwise re-raise the
116: -- error.
117: --
118: rollback to create_setup_sub_task_swi;
119: if hr_multi_message.unexpected_error_add(l_proc) then
120: hr_utility.set_location(' Leaving:' || l_proc,40);
121: raise;
122: end if;
123: --
123: --
124: -- Reset IN OUT and set OUT parameters
125: --
126: p_object_version_number := null;
127: p_return_status := hr_multi_message.get_return_status_disable;
128: hr_utility.set_location(' Leaving:' || l_proc,50);
129: end create_setup_sub_task;
130: -- ----------------------------------------------------------------------------
131: -- |-------------------------< delete_setup_sub_task >------------------------|
152: savepoint delete_setup_sub_task_swi;
153: --
154: -- Initialise Multiple Message Detection
155: --
156: hr_multi_message.enable_message_list;
157: --
158: -- Remember IN OUT parameter IN values
159: --
160: --
185: -- Derive the API return status value based on whether
186: -- messages of any type exist in the Multiple Message List.
187: -- Also disable Multiple Message Detection.
188: --
189: p_return_status := hr_multi_message.get_return_status_disable;
190: hr_utility.set_location(' Leaving:' || l_proc,20);
191: --
192: exception
193: when hr_multi_message.error_message_exist then
189: p_return_status := hr_multi_message.get_return_status_disable;
190: hr_utility.set_location(' Leaving:' || l_proc,20);
191: --
192: exception
193: when hr_multi_message.error_message_exist then
194: --
195: -- Catch the Multiple Message List exception which
196: -- indicates API processing has been aborted because
197: -- at least one message exists in the list.
199: rollback to delete_setup_sub_task_swi;
200: --
201: -- Reset IN OUT parameters and set OUT parameters
202: --
203: p_return_status := hr_multi_message.get_return_status_disable;
204: hr_utility.set_location(' Leaving:' || l_proc, 30);
205: when others then
206: --
207: -- When Multiple Message Detection is enabled catch
210: -- Multiple Message List. Otherwise re-raise the
211: -- error.
212: --
213: rollback to delete_setup_sub_task_swi;
214: if hr_multi_message.unexpected_error_add(l_proc) then
215: hr_utility.set_location(' Leaving:' || l_proc,40);
216: raise;
217: end if;
218: --
217: end if;
218: --
219: -- Reset IN OUT and set OUT parameters
220: --
221: p_return_status := hr_multi_message.get_return_status_disable;
222: hr_utility.set_location(' Leaving:' || l_proc,50);
223: end delete_setup_sub_task;
224: -- ----------------------------------------------------------------------------
225: -- |-------------------------< update_setup_sub_task >------------------------|
260: savepoint update_setup_sub_task_swi;
261: --
262: -- Initialise Multiple Message Detection
263: --
264: hr_multi_message.enable_message_list;
265: --
266: -- Remember IN OUT parameter IN values
267: --
268: l_object_version_number := p_object_version_number;
307: -- Derive the API return status value based on whether
308: -- messages of any type exist in the Multiple Message List.
309: -- Also disable Multiple Message Detection.
310: --
311: p_return_status := hr_multi_message.get_return_status_disable;
312: hr_utility.set_location(' Leaving:' || l_proc,20);
313: --
314: exception
315: when hr_multi_message.error_message_exist then
311: p_return_status := hr_multi_message.get_return_status_disable;
312: hr_utility.set_location(' Leaving:' || l_proc,20);
313: --
314: exception
315: when hr_multi_message.error_message_exist then
316: --
317: -- Catch the Multiple Message List exception which
318: -- indicates API processing has been aborted because
319: -- at least one message exists in the list.
322: --
323: -- Reset IN OUT parameters and set OUT parameters
324: --
325: p_object_version_number := l_object_version_number;
326: p_return_status := hr_multi_message.get_return_status_disable;
327: hr_utility.set_location(' Leaving:' || l_proc, 30);
328: when others then
329: --
330: -- When Multiple Message Detection is enabled catch
333: -- Multiple Message List. Otherwise re-raise the
334: -- error.
335: --
336: rollback to update_setup_sub_task_swi;
337: if hr_multi_message.unexpected_error_add(l_proc) then
338: hr_utility.set_location(' Leaving:' || l_proc,40);
339: raise;
340: end if;
341: --
341: --
342: -- Reset IN OUT and set OUT parameters
343: --
344: p_object_version_number := l_object_version_number;
345: p_return_status := hr_multi_message.get_return_status_disable;
346: hr_utility.set_location(' Leaving:' || l_proc,50);
347: end update_setup_sub_task;
348: end per_ri_setup_sub_task_swi;