49: savepoint pqp_insert_mileage_claim;
50:
51: -- Initialise Multiple Message Detection
52: --
53: hr_multi_message.enable_message_list;
54:
55: pqp_gb_mileage_claim_pkg.insert_mileage_claim
56: ( p_effective_date =>p_effective_date,
57: p_web_adi_identifier =>p_web_adi_identifier ,
82: p_element_entry_date =>p_element_entry_date
83: );
84:
85:
86: p_return_status := hr_multi_message.get_return_status_disable;
87: exception
88: when hr_multi_message.error_message_exist then
89: --
90: -- Catch the Multiple Message List exception which
84:
85:
86: p_return_status := hr_multi_message.get_return_status_disable;
87: exception
88: when hr_multi_message.error_message_exist then
89: --
90: -- Catch the Multiple Message List exception which
91: -- indicates API processing has been aborted because
92: -- at least one message exists in the list.
97: --
98: p_mileage_claim_element :=null;
99: p_element_entry_id := null;
100: p_element_entry_date := null;
101: p_return_status := hr_multi_message.get_return_status_disable;
102:
103: hr_utility.set_location(' Leaving:' || l_proc,40);
104:
105: when others then
110: -- Multiple Message List. Otherwise re-raise the
111: -- error.
112: --
113: rollback to savepoint pqp_insert_mileage_claim;
114: if hr_multi_message.unexpected_error_add(l_proc) then
115: --raise;
116: p_return_status := hr_multi_message.get_return_status_disable;
117: end if;
118: -- Reset IN OUT parameters and set OUT parameters
112: --
113: rollback to savepoint pqp_insert_mileage_claim;
114: if hr_multi_message.unexpected_error_add(l_proc) then
115: --raise;
116: p_return_status := hr_multi_message.get_return_status_disable;
117: end if;
118: -- Reset IN OUT parameters and set OUT parameters
119: --
120: p_mileage_claim_element :=null;
119: --
120: p_mileage_claim_element :=null;
121: p_element_entry_id := null;
122: p_element_entry_date := null;
123: p_return_status := hr_multi_message.get_return_status_disable;
124: hr_utility.set_location(' Leaving:' || l_proc,50);
125: --raise;
126: END;
127:
177: savepoint update_mileage_claim;
178: --
179: -- Initialise Multiple Message Detection
180: --
181: hr_multi_message.enable_message_list;
182: --
183: -- Remember IN OUT parameter IN values
184: --
185:
218: -- Derive the API return status value based on whether
219: -- messages of any type exist in the Multiple Message List.
220: -- Also disable Multiple Message Detection.
221: --
222: p_return_status := hr_multi_message.get_return_status_disable;
223: hr_utility.set_location(' Leaving:' || l_proc,20);
224: --
225: exception
226: when hr_multi_message.error_message_exist then
222: p_return_status := hr_multi_message.get_return_status_disable;
223: hr_utility.set_location(' Leaving:' || l_proc,20);
224: --
225: exception
226: when hr_multi_message.error_message_exist then
227: --
228: -- Catch the Multiple Message List exception which
229: -- indicates API processing has been aborted because
230: -- at least one message exists in the list.
234: -- Reset IN OUT parameters and set OUT parameters
235: p_mileage_claim_element :=null;
236: p_element_entry_id := null;
237: p_element_entry_date := null;
238: p_return_status := hr_multi_message.get_return_status_disable;
239: hr_utility.set_location(' Leaving:' || l_proc, 30);
240: when others then
241: --
242: -- When Multiple Message Detection is enabled catch
245: -- Multiple Message List. Otherwise re-raise the
246: -- error.
247: --
248: rollback to update_mileage_claim;
249: if hr_multi_message.unexpected_error_add(l_proc) then
250: hr_utility.set_location(' Leaving:' || l_proc,40);
251: p_return_status := hr_multi_message.get_return_status_disable;
252: -- raise;
253: end if;
247: --
248: rollback to update_mileage_claim;
249: if hr_multi_message.unexpected_error_add(l_proc) then
250: hr_utility.set_location(' Leaving:' || l_proc,40);
251: p_return_status := hr_multi_message.get_return_status_disable;
252: -- raise;
253: end if;
254: --
255: -- Reset IN OUT and set OUT parameters
256: --
257: p_mileage_claim_element :=null;
258: p_element_entry_id := null;
259: p_element_entry_date := null;
260: p_return_status := hr_multi_message.get_return_status_disable;
261: hr_utility.set_location(' Leaving:' || l_proc,50);
262: --raise;
263:
264:
283: savepoint delete_mileage_claim;
284: --
285: -- Initialise Multiple Message Detection
286: --
287: hr_multi_message.enable_message_list;
288:
289:
290: pqp_gb_mileage_claim_pkg.delete_mileage_claim
291: ( p_effective_date => p_effective_date,
299: -- Derive the API return status value based on whether
300: -- messages of any type exist in the Multiple Message List.
301: -- Also disable Multiple Message Detection.
302: --
303: p_return_status := hr_multi_message.get_return_status_disable;
304: hr_utility.set_location(' Leaving:' || l_proc,20);
305: --
306: exception
307: when hr_multi_message.error_message_exist then
303: p_return_status := hr_multi_message.get_return_status_disable;
304: hr_utility.set_location(' Leaving:' || l_proc,20);
305: --
306: exception
307: when hr_multi_message.error_message_exist then
308: --
309: -- Catch the Multiple Message List exception which
310: -- indicates API processing has been aborted because
311: -- at least one message exists in the list.
316:
317: p_mileage_claim_element :=null;
318: p_element_entry_id := null;
319: p_element_entry_date := null;
320: p_return_status := hr_multi_message.get_return_status_disable;
321: hr_utility.set_location(' Leaving:' || l_proc, 30);
322: when others then
323: --
324: -- When Multiple Message Detection is enabled catch
327: -- Multiple Message List. Otherwise re-raise the
328: -- error.
329: --
330: rollback to delete_mileage_claim;
331: if hr_multi_message.unexpected_error_add(l_proc) then
332: p_return_status := hr_multi_message.get_return_status_disable;
333: hr_utility.set_location(' Leaving:' || l_proc,40);
334: -- raise;
335: end if;
328: -- error.
329: --
330: rollback to delete_mileage_claim;
331: if hr_multi_message.unexpected_error_add(l_proc) then
332: p_return_status := hr_multi_message.get_return_status_disable;
333: hr_utility.set_location(' Leaving:' || l_proc,40);
334: -- raise;
335: end if;
336: --
338:
339: p_mileage_claim_element :=null;
340: p_element_entry_id := null;
341: p_element_entry_date := null;
342: p_return_status := hr_multi_message.get_return_status_disable;
343: hr_utility.set_location(' Leaving:' || l_proc,50);
344: --raise;
345:
346: END;