[Home] [Help]
PACKAGE BODY: APPS.XLE_LEGAL_ADDRESS_SWI
Source
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
9 ,p_language_code in varchar2
10 ,p_location_code in varchar2
11 ,p_description in varchar2 default null
12 ,p_address_line_1 in varchar2 default null
13 ,p_address_line_2 in varchar2 default null
14 ,p_address_line_3 in varchar2 default null
15 ,p_country in varchar2 default null
16 ,p_inactive_date in date default null
17 ,p_postal_code in varchar2 default null
18 ,p_region_1 in varchar2 default null
19 ,p_region_2 in varchar2 default null
20 ,p_region_3 in varchar2 default null
21 ,p_style in varchar2 default null
22 ,p_town_or_city in varchar2 default null
23 ,p_attribute_category in varchar2 default null
24 ,p_attribute1 in varchar2 default null
25 ,p_attribute2 in varchar2 default null
26 ,p_attribute3 in varchar2 default null
27 ,p_attribute4 in varchar2 default null
28 ,p_attribute5 in varchar2 default null
29 ,p_attribute6 in varchar2 default null
30 ,p_attribute7 in varchar2 default null
31 ,p_attribute8 in varchar2 default null
32 ,p_attribute9 in varchar2 default null
33 ,p_attribute10 in varchar2 default null
34 ,p_attribute11 in varchar2 default null
35 ,p_attribute12 in varchar2 default null
36 ,p_attribute13 in varchar2 default null
37 ,p_attribute14 in varchar2 default null
38 ,p_attribute15 in varchar2 default null
39 ,p_attribute16 in varchar2 default null
40 ,p_attribute17 in varchar2 default null
41 ,p_attribute18 in varchar2 default null
42 ,p_attribute19 in varchar2 default null
43 ,p_attribute20 in varchar2 default null
44 ,p_business_group_id in number default null
45 ,p_location_id OUT NOCOPY number
46 ,p_object_version_number OUT NOCOPY number
47 ) is
48
49 -- Variables for API Boolean parameters
50 l_validate boolean;
51
52 -- Variables for IN/OUT parameters
53
54 l_location_id number;
55 l_object_version_number number;
56 p_return_status varchar(1);
57
58 l_proc CONSTANT VARCHAR2(72) := g_package ||'create_legal_address';
59 Begin
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;
69 --
70 -- Remember IN OUT parameter IN values
71 --
72 --
73 -- Convert constant values to their corresponding boolean value
74 --
75 l_validate :=
76 hr_api.constant_to_boolean
77 (p_constant_value => p_validate);
78 --
79 -- Register Surrogate ID or user key values
80 --
81 -- hr_loc_ins.set_base_key_value
82 -- (p_phone_id => p_phone_id
83 -- );
84
85
86 -- hr_lot_ins.set_base_key_value
87 -- (p_phone_id => p_phone_id
88 -- );
89
90 --
91 -- Call API
92 --
93 hr_location_api.create_location_legal_adr
94 (p_validate => l_validate
95 ,p_effective_date => p_effective_date
96 ,p_language_code => p_language_code
97 ,p_location_code => p_location_code
98 ,p_description => p_description
99 ,p_address_line_1 => p_address_line_1
100 ,p_address_line_2 => p_address_line_2
101 ,p_address_line_3 => p_address_line_3
102 ,p_country => p_country
103 ,p_inactive_date => p_inactive_date
104 ,p_postal_code => p_postal_code
105 ,p_region_1 => p_region_1
106 ,p_region_2 => p_region_2
107 ,p_region_3 => p_region_3
108 ,p_style => p_style
109 ,p_town_or_city => p_town_or_city
110 ,p_attribute_category => p_attribute_category
111 ,p_attribute1 => p_attribute1
112 ,p_attribute2 => p_attribute2
113 ,p_attribute3 => p_attribute3
114 ,p_attribute4 => p_attribute4
115 ,p_attribute5 => p_attribute5
116 ,p_attribute6 => p_attribute6
117 ,p_attribute7 => p_attribute7
118 ,p_attribute8 => p_attribute8
119 ,p_attribute9 => p_attribute9
120 ,p_attribute10 => p_attribute10
121 ,p_attribute11 => p_attribute11
122 ,p_attribute12 => p_attribute12
123 ,p_attribute13 => p_attribute13
124 ,p_attribute14 => p_attribute14
125 ,p_attribute15 => p_attribute15
126 ,p_attribute16 => p_attribute16
127 ,p_attribute17 => p_attribute17
128 ,p_attribute18 => p_attribute18
129 ,p_attribute19 => p_attribute19
130 ,p_attribute20 => p_attribute20
131 ,p_location_id => l_location_id
132 ,p_object_version_number => l_object_version_number
133 -- ,p_duplicate_warning => l_duplicate_warning
134 );
135 --
136 -- Convert API warning boolean parameter values to specific
137 -- messages and add them to Multiple Message List
138 --
139 -- if l_duplicate_warning then
140 -- fnd_message.set_name('EDIT_HERE: APP_CODE', 'EDIT_HERE: MESSAGE_NAME');
141 -- hr_multi_message.add
142 -- (p_message_type => hr_multi_message.g_warning_msg
143 -- );
144 -- end if;
145 --
146 -- Convert API non-warning boolean parameter values
147 --
148 --
149 -- Derive the API return status value based on whether
150 -- messages of any type exist in the Multiple Message List.
151 -- Also disable Multiple Message Detection.
152 --
153 p_location_id := l_location_id;
154 p_object_version_number := l_object_version_number;
155 p_return_status := hr_multi_message.get_return_status_disable;
156
157
158 hr_utility.set_location(' Leaving:' || l_proc,20);
159 --
160 exception
161 when hr_multi_message.error_message_exist then
162 --
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;
172 p_location_id := null;
173 p_return_status := hr_multi_message.get_return_status_disable;
174 hr_utility.set_location(' Leaving:' || l_proc, 30);
175 when others then
176 --
177 -- When Multiple Message Detection is enabled catch
178 -- any Application specific or other unexpected
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;
188 --
189 -- Reset IN OUT and set OUT parameters
190 --
191 p_object_version_number := null;
192 p_location_id := null;
193 p_return_status := hr_multi_message.get_return_status_disable;
194 hr_utility.set_location(' Leaving:' || l_proc,50);
195 end create_legal_address;
196
197 PROCEDURE update_legal_address
198 (p_validate in number
199 ,p_effective_date in date
200 ,p_location_id in number
201 ,p_description in varchar2
202 ,p_address_line_1 in varchar2
203 ,p_address_line_2 in varchar2
204 ,p_address_line_3 in varchar2
205 ,p_inactive_date in date
206 ,p_postal_code in varchar2
207 ,p_region_1 in varchar2
208 ,p_region_2 in varchar2
209 ,p_region_3 in varchar2
210 ,p_style in varchar2
211 ,p_town_or_city in varchar2
212 ,p_attribute_category in varchar2
213 ,p_attribute1 in varchar2
214 ,p_attribute2 in varchar2
215 ,p_attribute3 in varchar2
216 ,p_attribute4 in varchar2
217 ,p_attribute5 in varchar2
218 ,p_attribute6 in varchar2
219 ,p_attribute7 in varchar2
220 ,p_attribute8 in varchar2
221 ,p_attribute9 in varchar2
222 ,p_attribute10 in varchar2
223 ,p_attribute11 in varchar2
224 ,p_attribute12 in varchar2
225 ,p_attribute13 in varchar2
226 ,p_attribute14 in varchar2
227 ,p_attribute15 in varchar2
228 ,p_attribute16 in varchar2
229 ,p_attribute17 in varchar2
230 ,p_attribute18 in varchar2
231 ,p_attribute19 in varchar2
232 ,p_attribute20 in varchar2
233 ,p_object_version_number in out nocopy number
234 ) is
235 --
236 -- Variables for API Boolean parameters
237 l_validate boolean;
238 --l_duplicate_warning boolean;
239 --
240 -- Variables for IN/OUT parameters
241 --
242 -- Other variables
243 l_object_version_number number;
244 p_return_status varchar(1);
245 l_temp_ovn CONSTANT number(9) := p_object_version_number;
246 l_proc CONSTANT varchar2(72) := g_package ||'create_legal_address';
247 Begin
248 hr_utility.set_location(' Entering:' || l_proc,10);
249
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;
259 --
260 -- Remember IN OUT parameter IN values
261 --
262 --
263 -- Convert constant values to their corresponding boolean value
264 --
265 l_validate :=
266 hr_api.constant_to_boolean
267 (p_constant_value => p_validate);
268 --
269 -- Register Surrogate ID or user key values
270 --
271 -- hr_loc_ins.set_base_key_value
272 -- (p_phone_id => p_phone_id
273 -- );
274
275
276 -- hr_lot_ins.set_base_key_value
277 -- (p_phone_id => p_phone_id
278 -- );
279
280 --
281 -- Call API
282 --
283 hr_location_api.update_location_legal_adr
284 (p_validate => l_validate
285 ,p_effective_date => p_effective_date
286 ,p_location_id => p_location_id
287 ,p_description => p_description
288 ,p_address_line_1 => p_address_line_1
289 ,p_address_line_2 => p_address_line_2
290 ,p_address_line_3 => p_address_line_3
291 -- For Bug # 6329263
292 -- ,p_inactive_date => p_inactive_date
293 ,p_postal_code => p_postal_code
294 ,p_region_1 => p_region_1
295 ,p_region_2 => p_region_2
296 ,p_region_3 => p_region_3
297 ,p_style => p_style
298 ,p_town_or_city => p_town_or_city
299 ,p_attribute_category => p_attribute_category
300 ,p_attribute1 => p_attribute1
301 ,p_attribute2 => p_attribute2
302 ,p_attribute3 => p_attribute3
303 ,p_attribute4 => p_attribute4
304 ,p_attribute5 => p_attribute5
305 ,p_attribute6 => p_attribute6
306 ,p_attribute7 => p_attribute7
307 ,p_attribute8 => p_attribute8
308 ,p_attribute9 => p_attribute9
309 ,p_attribute10 => p_attribute10
310 ,p_attribute11 => p_attribute11
311 ,p_attribute12 => p_attribute12
312 ,p_attribute13 => p_attribute13
313 ,p_attribute14 => p_attribute14
314 ,p_attribute15 => p_attribute15
315 ,p_attribute16 => p_attribute16
316 ,p_attribute17 => p_attribute17
317 ,p_attribute18 => p_attribute18
318 ,p_attribute19 => p_attribute19
319 ,p_attribute20 => p_attribute20
320 ,p_object_version_number => l_object_version_number
321 -- ,p_duplicate_warning => l_duplicate_warning
322 );
323 --
324 -- Convert API warning boolean parameter values to specific
325 -- messages and add them to Multiple Message List
326 --
327 -- if l_duplicate_warning then
328 -- fnd_message.set_name('EDIT_HERE: APP_CODE', 'EDIT_HERE: MESSAGE_NAME');
329 -- hr_multi_message.add
330 -- (p_message_type => hr_multi_message.g_warning_msg
331 -- );
332 -- end if;
333 --
334 -- Convert API non-warning boolean parameter values
335 --
336 --
337 -- Derive the API return status value based on whether
338 -- messages of any type exist in the Multiple Message List.
339 -- Also disable Multiple Message Detection.
340 --
341 p_object_version_number := l_object_version_number;
342 p_return_status := hr_multi_message.get_return_status_disable;
343
344
345 hr_utility.set_location(' Leaving:' || l_proc,20);
346 --
347 exception
348 when hr_multi_message.error_message_exist then
349 --
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;
359 p_return_status := hr_multi_message.get_return_status_disable;
360 hr_utility.set_location(' Leaving:' || l_proc, 30);
361 --raise;
362 when others then
363 --
364 -- When Multiple Message Detection is enabled catch
365 -- any Application specific or other unexpected
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;
375 --
376 -- Reset IN OUT and set OUT parameters
377 --
378 p_object_version_number := l_temp_ovn;
379 p_return_status := hr_multi_message.get_return_status_disable;
380 hr_utility.set_location(' Leaving:' || l_proc,50);
381 --raise;
382 end update_legal_address;
383
384 -- Enter further code below as specified in the Package spec.
385 END;