28: savepoint delete_validation_event_swi;
29: --
30: -- Initialise Multiple Message Detection
31: --
32: hr_multi_message.enable_message_list;
33: --
34: -- Remember IN OUT parameter IN values
35: --
36: --
57: -- Derive the API return status value based on whether
58: -- messages of any type exist in the Multiple Message List.
59: -- Also disable Multiple Message Detection.
60: --
61: p_return_status := hr_multi_message.get_return_status_disable;
62: hr_utility.set_location(' Leaving:' || l_proc,20);
63: --
64: exception
65: when hr_multi_message.error_message_exist then
61: p_return_status := hr_multi_message.get_return_status_disable;
62: hr_utility.set_location(' Leaving:' || l_proc,20);
63: --
64: exception
65: when hr_multi_message.error_message_exist then
66: --
67: -- Catch the Multiple Message List exception which
68: -- indicates API processing has been aborted because
69: -- at least one message exists in the list.
71: rollback to delete_validation_event_swi;
72: --
73: -- Reset IN OUT parameters and set OUT parameters
74: --
75: p_return_status := hr_multi_message.get_return_status_disable;
76: hr_utility.set_location(' Leaving:' || l_proc, 30);
77: when others then
78: --
79: -- When Multiple Message Detection is enabled catch
82: -- Multiple Message List. Otherwise re-raise the
83: -- error.
84: --
85: rollback to delete_validation_event_swi;
86: if hr_multi_message.unexpected_error_add(l_proc) then
87: hr_utility.set_location(' Leaving:' || l_proc,40);
88: raise;
89: end if;
90: --
89: end if;
90: --
91: -- Reset IN OUT and set OUT parameters
92: --
93: p_return_status := hr_multi_message.get_return_status_disable;
94: hr_utility.set_location(' Leaving:' || l_proc,50);
95: end delete_validation_event;
96: -- ----------------------------------------------------------------------------
97: -- |------------------------< insert_validation_event >-----------------------|
123: savepoint insert_validation_event_swi;
124: --
125: -- Initialise Multiple Message Detection
126: --
127: hr_multi_message.enable_message_list;
128: --
129: -- Remember IN OUT parameter IN values
130: --
131: --
162: -- Derive the API return status value based on whether
163: -- messages of any type exist in the Multiple Message List.
164: -- Also disable Multiple Message Detection.
165: --
166: p_return_status := hr_multi_message.get_return_status_disable;
167: hr_utility.set_location(' Leaving:' || l_proc,20);
168: --
169: exception
170: when hr_multi_message.error_message_exist then
166: p_return_status := hr_multi_message.get_return_status_disable;
167: hr_utility.set_location(' Leaving:' || l_proc,20);
168: --
169: exception
170: when hr_multi_message.error_message_exist then
171: --
172: -- Catch the Multiple Message List exception which
173: -- indicates API processing has been aborted because
174: -- at least one message exists in the list.
178: -- Reset IN OUT parameters and set OUT parameters
179: --
180: p_validation_event_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, 30);
184: when others then
185: --
186: -- When Multiple Message Detection is enabled catch
189: -- Multiple Message List. Otherwise re-raise the
190: -- error.
191: --
192: rollback to insert_validation_event_swi;
193: if hr_multi_message.unexpected_error_add(l_proc) then
194: hr_utility.set_location(' Leaving:' || l_proc,40);
195: raise;
196: end if;
197: --
198: -- Reset IN OUT and set OUT parameters
199: --
200: p_validation_event_id := null;
201: p_object_version_number := null;
202: p_return_status := hr_multi_message.get_return_status_disable;
203: hr_utility.set_location(' Leaving:' || l_proc,50);
204: end insert_validation_event;
205: -- ----------------------------------------------------------------------------
206: -- |------------------------< update_validation_event >-----------------------|
233: savepoint update_validation_event_swi;
234: --
235: -- Initialise Multiple Message Detection
236: --
237: hr_multi_message.enable_message_list;
238: --
239: -- Remember IN OUT parameter IN values
240: --
241: l_object_version_number := p_object_version_number;
270: -- Derive the API return status value based on whether
271: -- messages of any type exist in the Multiple Message List.
272: -- Also disable Multiple Message Detection.
273: --
274: p_return_status := hr_multi_message.get_return_status_disable;
275: hr_utility.set_location(' Leaving:' || l_proc,20);
276: --
277: exception
278: when hr_multi_message.error_message_exist then
274: p_return_status := hr_multi_message.get_return_status_disable;
275: hr_utility.set_location(' Leaving:' || l_proc,20);
276: --
277: exception
278: when hr_multi_message.error_message_exist then
279: --
280: -- Catch the Multiple Message List exception which
281: -- indicates API processing has been aborted because
282: -- at least one message exists in the list.
285: --
286: -- Reset IN OUT parameters and set OUT parameters
287: --
288: p_object_version_number := l_object_version_number;
289: p_return_status := hr_multi_message.get_return_status_disable;
290: hr_utility.set_location(' Leaving:' || l_proc, 30);
291: when others then
292: --
293: -- When Multiple Message Detection is enabled catch
296: -- Multiple Message List. Otherwise re-raise the
297: -- error.
298: --
299: rollback to update_validation_event_swi;
300: if hr_multi_message.unexpected_error_add(l_proc) then
301: hr_utility.set_location(' Leaving:' || l_proc,40);
302: raise;
303: end if;
304: --
304: --
305: -- Reset IN OUT and set OUT parameters
306: --
307: p_object_version_number := l_object_version_number;
308: p_return_status := hr_multi_message.get_return_status_disable;
309: hr_utility.set_location(' Leaving:' || l_proc,50);
310: end update_validation_event;
311: end pqh_fr_validation_events_swi;