44: savepoint create_copy_entity_txn_swi;
45: --
46: -- Initialise Multiple Message Detection
47: --
48: hr_multi_message.enable_message_list;
49: --
50: -- Remember IN OUT parameter IN values
51: --
52: --
91: -- Derive the API return status value based on whether
92: -- messages of any type exist in the Multiple Message List.
93: -- Also disable Multiple Message Detection.
94: --
95: p_return_status := hr_multi_message.get_return_status_disable;
96: hr_utility.set_location(' Leaving:' || l_proc,20);
97: --
98: exception
99: when hr_multi_message.error_message_exist then
95: p_return_status := hr_multi_message.get_return_status_disable;
96: hr_utility.set_location(' Leaving:' || l_proc,20);
97: --
98: exception
99: when hr_multi_message.error_message_exist then
100: --
101: -- Catch the Multiple Message List exception which
102: -- indicates API processing has been aborted because
103: -- at least one message exists in the list.
107: -- Reset IN OUT parameters and set OUT parameters
108: --
109: p_copy_entity_txn_id := null;
110: p_object_version_number := null;
111: p_return_status := hr_multi_message.get_return_status_disable;
112: hr_utility.set_location(' Leaving:' || l_proc, 30);
113: when others then
114: --
115: -- When Multiple Message Detection is enabled catch
118: -- Multiple Message List. Otherwise re-raise the
119: -- error.
120: --
121: rollback to create_copy_entity_txn_swi;
122: if hr_multi_message.unexpected_error_add(l_proc) then
123: hr_utility.set_location(' Leaving:' || l_proc,40);
124: raise;
125: end if;
126: --
127: -- Reset IN OUT and set OUT parameters
128: --
129: p_copy_entity_txn_id := null;
130: p_object_version_number := null;
131: p_return_status := hr_multi_message.get_return_status_disable;
132: hr_utility.set_location(' Leaving:' || l_proc,50);
133: end create_copy_entity_txn;
134: -- ----------------------------------------------------------------------------
135: -- |------------------------< delete_copy_entity_txn >------------------------|
157: savepoint delete_copy_entity_txn_swi;
158: --
159: -- Initialise Multiple Message Detection
160: --
161: hr_multi_message.enable_message_list;
162: --
163: -- Remember IN OUT parameter IN values
164: --
165: --
191: -- Derive the API return status value based on whether
192: -- messages of any type exist in the Multiple Message List.
193: -- Also disable Multiple Message Detection.
194: --
195: p_return_status := hr_multi_message.get_return_status_disable;
196: hr_utility.set_location(' Leaving:' || l_proc,20);
197: --
198: exception
199: when hr_multi_message.error_message_exist then
195: p_return_status := hr_multi_message.get_return_status_disable;
196: hr_utility.set_location(' Leaving:' || l_proc,20);
197: --
198: exception
199: when hr_multi_message.error_message_exist then
200: --
201: -- Catch the Multiple Message List exception which
202: -- indicates API processing has been aborted because
203: -- at least one message exists in the list.
205: rollback to delete_copy_entity_txn_swi;
206: --
207: -- Reset IN OUT parameters and set OUT parameters
208: --
209: p_return_status := hr_multi_message.get_return_status_disable;
210: hr_utility.set_location(' Leaving:' || l_proc, 30);
211: when others then
212: --
213: -- When Multiple Message Detection is enabled catch
216: -- Multiple Message List. Otherwise re-raise the
217: -- error.
218: --
219: rollback to delete_copy_entity_txn_swi;
220: if hr_multi_message.unexpected_error_add(l_proc) then
221: hr_utility.set_location(' Leaving:' || l_proc,40);
222: raise;
223: end if;
224: --
223: end if;
224: --
225: -- Reset IN OUT and set OUT parameters
226: --
227: p_return_status := hr_multi_message.get_return_status_disable;
228: hr_utility.set_location(' Leaving:' || l_proc,50);
229: end delete_copy_entity_txn;
230: -- ----------------------------------------------------------------------------
231: -- |------------------------< update_copy_entity_txn >------------------------|
267: savepoint update_copy_entity_txn_swi;
268: --
269: -- Initialise Multiple Message Detection
270: --
271: hr_multi_message.enable_message_list;
272: --
273: -- Remember IN OUT parameter IN values
274: --
275: l_object_version_number := p_object_version_number;
315: -- Derive the API return status value based on whether
316: -- messages of any type exist in the Multiple Message List.
317: -- Also disable Multiple Message Detection.
318: --
319: p_return_status := hr_multi_message.get_return_status_disable;
320: hr_utility.set_location(' Leaving:' || l_proc,20);
321: --
322: exception
323: when hr_multi_message.error_message_exist then
319: p_return_status := hr_multi_message.get_return_status_disable;
320: hr_utility.set_location(' Leaving:' || l_proc,20);
321: --
322: exception
323: when hr_multi_message.error_message_exist then
324: --
325: -- Catch the Multiple Message List exception which
326: -- indicates API processing has been aborted because
327: -- at least one message exists in the list.
330: --
331: -- Reset IN OUT parameters and set OUT parameters
332: --
333: p_object_version_number := l_object_version_number;
334: p_return_status := hr_multi_message.get_return_status_disable;
335: hr_utility.set_location(' Leaving:' || l_proc, 30);
336: when others then
337: --
338: -- When Multiple Message Detection is enabled catch
341: -- Multiple Message List. Otherwise re-raise the
342: -- error.
343: --
344: rollback to update_copy_entity_txn_swi;
345: if hr_multi_message.unexpected_error_add(l_proc) then
346: hr_utility.set_location(' Leaving:' || l_proc,40);
347: raise;
348: end if;
349: --
349: --
350: -- Reset IN OUT and set OUT parameters
351: --
352: p_object_version_number := l_object_version_number;
353: p_return_status := hr_multi_message.get_return_status_disable;
354: hr_utility.set_location(' Leaving:' || l_proc,50);
355: end update_copy_entity_txn;
356: end pqh_copy_entity_txns_swi;