1: PACKAGE BODY XLE_LEGAL_ADDRESS_SWI AS
2: /* $Header: xleaddrb.pls 120.4.12000000.2 2007/10/22 12:30:24 makansal ship $ */
3:
4: g_package CONSTANT VARCHAR2(33) := 'xle_legal_address_swi.';
5:
1: PACKAGE BODY XLE_LEGAL_ADDRESS_SWI AS
2: /* $Header: xleaddrb.pls 120.4.12000000.2 2007/10/22 12:30:24 makansal ship $ */
3:
4: g_package CONSTANT VARCHAR2(33) := 'xle_legal_address_swi.';
5:
6: PROCEDURE create_legal_address
7: (p_validate in number
8: ,p_effective_date in date
60: hr_utility.set_location(' Entering:' || l_proc,10);
61: --
62: -- Issue a savepoint
63: --
64: savepoint xle_legal_address_swi;
65: --
66: -- Initialise Multiple Message Detection
67: --
68: hr_multi_message.enable_message_list;
163: -- Catch the Multiple Message List exception which
164: -- indicates API processing has been aborted because
165: -- at least one message exists in the list.
166: --
167: rollback to xle_legal_address_swi;
168: --
169: -- Reset IN OUT parameters and set OUT parameters
170: --
171: p_object_version_number := null;
179: -- exceptions. Adding appropriate details to the
180: -- Multiple Message List. Otherwise re-raise the
181: -- error.
182: --
183: rollback to xle_legal_address_swi;
184: if hr_multi_message.unexpected_error_add(l_proc) then
185: hr_utility.set_location(' Leaving:' || l_proc,40);
186: raise;
187: end if;
250: l_object_version_number := p_object_version_number;
251: --
252: -- Issue a savepoint
253: --
254: savepoint xle_legal_address_swi;
255: --
256: -- Initialise Multiple Message Detection
257: --
258: hr_multi_message.enable_message_list;
350: -- Catch the Multiple Message List exception which
351: -- indicates API processing has been aborted because
352: -- at least one message exists in the list.
353: --
354: rollback to xle_legal_address_swi;
355: --
356: -- Reset IN OUT parameters and set OUT parameters
357: --
358: p_object_version_number := l_temp_ovn;
366: -- exceptions. Adding appropriate details to the
367: -- Multiple Message List. Otherwise re-raise the
368: -- error.
369: --
370: rollback to xle_legal_address_swi;
371: if hr_multi_message.unexpected_error_add(l_proc) then
372: hr_utility.set_location(' Leaving:' || l_proc,40);
373: raise;
374: end if;