[Home] [Help]
PACKAGE BODY: APPS.PQH_ASSIGN_ACCOMMODATIONS_SWI
Source
1 Package Body pqh_assign_accommodations_swi As
2 /* $Header: pqasaswi.pkb 115.2 2002/11/27 00:35:29 rpasapul noship $ */
3 --
4 -- Package variables
5 --
6 g_package varchar2(33) := 'pqh_assign_accommodations_swi.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |----------------------< create_assign_accommodation >---------------------|
10 -- ----------------------------------------------------------------------------
11 PROCEDURE create_assign_accommodation
12 (p_validate in number default hr_api.g_false_num
13 ,p_effective_date in date
14 ,p_business_group_id in number
15 ,p_assignment_id in number
16 ,p_accommodation_given in varchar2
17 ,p_temporary_assignment in varchar2 default null
18 ,p_accommodation_id in number default null
19 ,p_acceptance_date in date default null
20 ,p_moving_date in date default null
21 ,p_refusal_date in date default null
22 ,p_comments in varchar2 default null
23 ,p_indemnity_entitlement in varchar2 default null
24 ,p_indemnity_amount in number default null
25 ,p_type_of_payment in varchar2 default null
26 ,p_information_category in varchar2 default null
27 ,p_information1 in varchar2 default null
28 ,p_information2 in varchar2 default null
29 ,p_information3 in varchar2 default null
30 ,p_information4 in varchar2 default null
31 ,p_information5 in varchar2 default null
32 ,p_information6 in varchar2 default null
33 ,p_information7 in varchar2 default null
34 ,p_information8 in varchar2 default null
35 ,p_information9 in varchar2 default null
36 ,p_information10 in varchar2 default null
37 ,p_information11 in varchar2 default null
38 ,p_information12 in varchar2 default null
39 ,p_information13 in varchar2 default null
40 ,p_information14 in varchar2 default null
41 ,p_information15 in varchar2 default null
42 ,p_information16 in varchar2 default null
43 ,p_information17 in varchar2 default null
44 ,p_information18 in varchar2 default null
45 ,p_information19 in varchar2 default null
46 ,p_information20 in varchar2 default null
47 ,p_information21 in varchar2 default null
48 ,p_information22 in varchar2 default null
49 ,p_information23 in varchar2 default null
50 ,p_information24 in varchar2 default null
51 ,p_information25 in varchar2 default null
52 ,p_information26 in varchar2 default null
53 ,p_information27 in varchar2 default null
54 ,p_information28 in varchar2 default null
55 ,p_information29 in varchar2 default null
56 ,p_information30 in varchar2 default null
57 ,p_attribute_category in varchar2 default null
58 ,p_attribute1 in varchar2 default null
59 ,p_attribute2 in varchar2 default null
60 ,p_attribute3 in varchar2 default null
61 ,p_attribute4 in varchar2 default null
62 ,p_attribute5 in varchar2 default null
63 ,p_attribute6 in varchar2 default null
64 ,p_attribute7 in varchar2 default null
65 ,p_attribute8 in varchar2 default null
66 ,p_attribute9 in varchar2 default null
67 ,p_attribute10 in varchar2 default null
68 ,p_attribute11 in varchar2 default null
69 ,p_attribute12 in varchar2 default null
70 ,p_attribute13 in varchar2 default null
71 ,p_attribute14 in varchar2 default null
72 ,p_attribute15 in varchar2 default null
73 ,p_attribute16 in varchar2 default null
74 ,p_attribute17 in varchar2 default null
75 ,p_attribute18 in varchar2 default null
76 ,p_attribute19 in varchar2 default null
77 ,p_attribute20 in varchar2 default null
78 ,p_attribute21 in varchar2 default null
79 ,p_attribute22 in varchar2 default null
80 ,p_attribute23 in varchar2 default null
81 ,p_attribute24 in varchar2 default null
82 ,p_attribute25 in varchar2 default null
83 ,p_attribute26 in varchar2 default null
84 ,p_attribute27 in varchar2 default null
85 ,p_attribute28 in varchar2 default null
86 ,p_attribute29 in varchar2 default null
87 ,p_attribute30 in varchar2 default null
88 ,p_reason_for_no_acco in varchar2 default null
89 ,p_indemnity_currency in varchar2 default null
90 ,p_assignment_acco_id out nocopy number
91 ,p_object_version_number out nocopy number
92 ,p_effective_start_date out nocopy date
93 ,p_effective_end_date out nocopy date
94 ,p_return_status out nocopy varchar2
95 ) is
96 --
97 -- Variables for API Boolean parameters
98 l_validate boolean;
99 --
100 -- Variables for IN/OUT parameters
101 --
102 -- Other variables
103 l_proc varchar2(72) := g_package ||'create_assign_accommodation';
104 Begin
105 hr_utility.set_location(' Entering:' || l_proc,10);
106 --
107 -- Issue a savepoint
108 --
109 savepoint create_assign_accommodation;
110 --
111 -- Initialise Multiple Message Detection
112 --
113 hr_multi_message.enable_message_list;
114 --
115 -- Remember IN OUT parameter IN values
116 --
117 --
118 -- Convert constant values to their corresponding boolean value
119 --
120 l_validate :=
121 hr_api.constant_to_boolean
122 (p_constant_value => p_validate);
123 --
124 -- Register Surrogate ID or user key values
125 --
126 --
127 -- Call API
128 --
129 pqh_assign_accommodations_api.create_assign_accommodation
130 (p_validate => l_validate
131 ,p_effective_date => p_effective_date
132 ,p_business_group_id => p_business_group_id
133 ,p_assignment_id => p_assignment_id
134 ,p_accommodation_given => p_accommodation_given
135 ,p_temporary_assignment => p_temporary_assignment
136 ,p_accommodation_id => p_accommodation_id
137 ,p_acceptance_date => p_acceptance_date
138 ,p_moving_date => p_moving_date
139 ,p_refusal_date => p_refusal_date
140 ,p_comments => p_comments
141 ,p_indemnity_entitlement => p_indemnity_entitlement
142 ,p_indemnity_amount => p_indemnity_amount
143 ,p_type_of_payment => p_type_of_payment
144 ,p_information_category => p_information_category
145 ,p_information1 => p_information1
146 ,p_information2 => p_information2
147 ,p_information3 => p_information3
148 ,p_information4 => p_information4
149 ,p_information5 => p_information5
150 ,p_information6 => p_information6
151 ,p_information7 => p_information7
152 ,p_information8 => p_information8
153 ,p_information9 => p_information9
154 ,p_information10 => p_information10
155 ,p_information11 => p_information11
156 ,p_information12 => p_information12
157 ,p_information13 => p_information13
158 ,p_information14 => p_information14
159 ,p_information15 => p_information15
160 ,p_information16 => p_information16
161 ,p_information17 => p_information17
162 ,p_information18 => p_information18
163 ,p_information19 => p_information19
164 ,p_information20 => p_information20
165 ,p_information21 => p_information21
166 ,p_information22 => p_information22
167 ,p_information23 => p_information23
168 ,p_information24 => p_information24
169 ,p_information25 => p_information25
170 ,p_information26 => p_information26
171 ,p_information27 => p_information27
172 ,p_information28 => p_information28
173 ,p_information29 => p_information29
174 ,p_information30 => p_information30
175 ,p_attribute_category => p_attribute_category
176 ,p_attribute1 => p_attribute1
177 ,p_attribute2 => p_attribute2
178 ,p_attribute3 => p_attribute3
179 ,p_attribute4 => p_attribute4
180 ,p_attribute5 => p_attribute5
181 ,p_attribute6 => p_attribute6
182 ,p_attribute7 => p_attribute7
183 ,p_attribute8 => p_attribute8
184 ,p_attribute9 => p_attribute9
185 ,p_attribute10 => p_attribute10
186 ,p_attribute11 => p_attribute11
187 ,p_attribute12 => p_attribute12
188 ,p_attribute13 => p_attribute13
189 ,p_attribute14 => p_attribute14
190 ,p_attribute15 => p_attribute15
191 ,p_attribute16 => p_attribute16
192 ,p_attribute17 => p_attribute17
193 ,p_attribute18 => p_attribute18
194 ,p_attribute19 => p_attribute19
195 ,p_attribute20 => p_attribute20
196 ,p_attribute21 => p_attribute21
197 ,p_attribute22 => p_attribute22
198 ,p_attribute23 => p_attribute23
199 ,p_attribute24 => p_attribute24
200 ,p_attribute25 => p_attribute25
201 ,p_attribute26 => p_attribute26
202 ,p_attribute27 => p_attribute27
203 ,p_attribute28 => p_attribute28
204 ,p_attribute29 => p_attribute29
205 ,p_attribute30 => p_attribute30
206 ,p_reason_for_no_acco => p_reason_for_no_acco
207 ,p_indemnity_currency => p_indemnity_currency
208 ,p_assignment_acco_id => p_assignment_acco_id
209 ,p_object_version_number => p_object_version_number
210 ,p_effective_start_date => p_effective_start_date
211 ,p_effective_end_date => p_effective_end_date
212 );
213 --
214 -- Convert API warning boolean parameter values to specific
215 -- messages and add them to Multiple Message List
216 --
217 --
218 -- Convert API non-warning boolean parameter values
219 --
220 --
221 -- Derive the API return status value based on whether
222 -- messages of any type exist in the Multiple Message List.
223 -- Also disable Multiple Message Detection.
224 --
225 p_return_status := hr_multi_message.get_return_status_disable;
226 hr_utility.set_location(' Leaving:' || l_proc,20);
227 --
228 exception
229 when hr_multi_message.error_message_exist then
230 --
231 -- Catch the Multiple Message List exception which
232 -- indicates API processing has been aborted because
233 -- at least one message exists in the list.
234 --
235 rollback to create_assign_accommodation;
236 --
237 -- Reset IN OUT parameters and set OUT parameters
238 --
239 p_assignment_acco_id := null;
240 p_object_version_number := null;
241 p_effective_start_date := null;
242 p_effective_end_date := null;
243 p_return_status := hr_multi_message.get_return_status_disable;
244 hr_utility.set_location(' Leaving:' || l_proc, 30);
245 when others then
246 --
247 -- When Multiple Message Detection is enabled catch
248 -- any Application specific or other unexpected
249 -- exceptions. Adding appropriate details to the
250 -- Multiple Message List. Otherwise re-raise the
251 -- error.
252 --
253 rollback to create_assign_accommodation;
254 if hr_multi_message.unexpected_error_add(l_proc) then
255 hr_utility.set_location(' Leaving:' || l_proc,40);
256 raise;
257 end if;
258 --
259 -- Reset IN OUT and set OUT parameters
260 --
261 p_assignment_acco_id := null;
262 p_object_version_number := null;
263 p_effective_start_date := null;
264 p_effective_end_date := null;
265 p_return_status := hr_multi_message.get_return_status_disable;
266 hr_utility.set_location(' Leaving:' || l_proc,50);
267 end create_assign_accommodation;
268 -- ----------------------------------------------------------------------------
269 -- |----------------------< delete_assign_accommodation >---------------------|
270 -- ----------------------------------------------------------------------------
271 PROCEDURE delete_assign_accommodation
272 (p_validate in number default hr_api.g_false_num
273 ,p_effective_date in date
274 ,p_datetrack_mode in varchar2
275 ,p_assignment_acco_id in number
276 ,p_object_version_number in out nocopy number
277 ,p_effective_start_date out nocopy date
278 ,p_effective_end_date out nocopy date
279 ,p_return_status out nocopy varchar2
280 ) is
281 --
282 -- Variables for API Boolean parameters
283 l_validate boolean;
284 --
285 -- Variables for IN/OUT parameters
286 l_object_version_number number;
287 --
288 -- Other variables
289 l_proc varchar2(72) := g_package ||'delete_assign_accommodation';
290 Begin
291 hr_utility.set_location(' Entering:' || l_proc,10);
292 --
293 -- Issue a savepoint
294 --
295 savepoint delete_assign_accommodation;
296 --
297 -- Initialise Multiple Message Detection
298 --
299 hr_multi_message.enable_message_list;
300 --
301 -- Remember IN OUT parameter IN values
302 --
303 l_object_version_number := p_object_version_number;
304 --
305 -- Convert constant values to their corresponding boolean value
306 --
307 l_validate :=
308 hr_api.constant_to_boolean
309 (p_constant_value => p_validate);
310 --
311 -- Register Surrogate ID or user key values
312 --
313 --
314 -- Call API
315 --
316 pqh_assign_accommodations_api.delete_assign_accommodation
317 (p_validate => l_validate
318 ,p_effective_date => p_effective_date
319 ,p_datetrack_mode => p_datetrack_mode
320 ,p_assignment_acco_id => p_assignment_acco_id
321 ,p_object_version_number => p_object_version_number
322 ,p_effective_start_date => p_effective_start_date
323 ,p_effective_end_date => p_effective_end_date
324 );
325 --
326 -- Convert API warning boolean parameter values to specific
327 -- messages and add them to Multiple Message List
328 --
329 --
330 -- Convert API non-warning boolean parameter values
331 --
332 --
333 -- Derive the API return status value based on whether
334 -- messages of any type exist in the Multiple Message List.
335 -- Also disable Multiple Message Detection.
336 --
337 p_return_status := hr_multi_message.get_return_status_disable;
338 hr_utility.set_location(' Leaving:' || l_proc,20);
339 --
340 exception
341 when hr_multi_message.error_message_exist then
342 --
343 -- Catch the Multiple Message List exception which
344 -- indicates API processing has been aborted because
345 -- at least one message exists in the list.
346 --
347 rollback to delete_assign_accommodation;
348 --
349 -- Reset IN OUT parameters and set OUT parameters
350 --
351 p_object_version_number := l_object_version_number;
352 p_effective_start_date := null;
353 p_effective_end_date := null;
354 p_return_status := hr_multi_message.get_return_status_disable;
355 hr_utility.set_location(' Leaving:' || l_proc, 30);
356 when others then
357 --
358 -- When Multiple Message Detection is enabled catch
359 -- any Application specific or other unexpected
360 -- exceptions. Adding appropriate details to the
361 -- Multiple Message List. Otherwise re-raise the
362 -- error.
363 --
364 rollback to delete_assign_accommodation;
365 if hr_multi_message.unexpected_error_add(l_proc) then
366 hr_utility.set_location(' Leaving:' || l_proc,40);
367 raise;
368 end if;
369 --
370 -- Reset IN OUT and set OUT parameters
371 --
372 p_object_version_number := l_object_version_number;
373 p_effective_start_date := null;
374 p_effective_end_date := null;
375 p_return_status := hr_multi_message.get_return_status_disable;
376 hr_utility.set_location(' Leaving:' || l_proc,50);
377 end delete_assign_accommodation;
378 -- ----------------------------------------------------------------------------
379 -- |----------------------< update_assign_accommodation >---------------------|
380 -- ----------------------------------------------------------------------------
381 PROCEDURE update_assign_accommodation
382 (p_validate in number default hr_api.g_false_num
383 ,p_effective_date in date
384 ,p_datetrack_mode in varchar2
385 ,p_assignment_acco_id in number
386 ,p_object_version_number in out nocopy number
387 ,p_business_group_id in number default hr_api.g_number
388 ,p_assignment_id in number default hr_api.g_number
389 ,p_accommodation_given in varchar2 default hr_api.g_varchar2
390 ,p_temporary_assignment in varchar2 default hr_api.g_varchar2
391 ,p_accommodation_id in number default hr_api.g_number
392 ,p_acceptance_date in date default hr_api.g_date
393 ,p_moving_date in date default hr_api.g_date
394 ,p_refusal_date in date default hr_api.g_date
395 ,p_comments in varchar2 default hr_api.g_varchar2
396 ,p_indemnity_entitlement in varchar2 default hr_api.g_varchar2
397 ,p_indemnity_amount in number default hr_api.g_number
398 ,p_type_of_payment in varchar2 default hr_api.g_varchar2
399 ,p_information_category in varchar2 default hr_api.g_varchar2
400 ,p_information1 in varchar2 default hr_api.g_varchar2
401 ,p_information2 in varchar2 default hr_api.g_varchar2
402 ,p_information3 in varchar2 default hr_api.g_varchar2
403 ,p_information4 in varchar2 default hr_api.g_varchar2
404 ,p_information5 in varchar2 default hr_api.g_varchar2
405 ,p_information6 in varchar2 default hr_api.g_varchar2
406 ,p_information7 in varchar2 default hr_api.g_varchar2
407 ,p_information8 in varchar2 default hr_api.g_varchar2
408 ,p_information9 in varchar2 default hr_api.g_varchar2
409 ,p_information10 in varchar2 default hr_api.g_varchar2
410 ,p_information11 in varchar2 default hr_api.g_varchar2
411 ,p_information12 in varchar2 default hr_api.g_varchar2
412 ,p_information13 in varchar2 default hr_api.g_varchar2
413 ,p_information14 in varchar2 default hr_api.g_varchar2
414 ,p_information15 in varchar2 default hr_api.g_varchar2
415 ,p_information16 in varchar2 default hr_api.g_varchar2
416 ,p_information17 in varchar2 default hr_api.g_varchar2
417 ,p_information18 in varchar2 default hr_api.g_varchar2
418 ,p_information19 in varchar2 default hr_api.g_varchar2
419 ,p_information20 in varchar2 default hr_api.g_varchar2
420 ,p_information21 in varchar2 default hr_api.g_varchar2
421 ,p_information22 in varchar2 default hr_api.g_varchar2
422 ,p_information23 in varchar2 default hr_api.g_varchar2
423 ,p_information24 in varchar2 default hr_api.g_varchar2
424 ,p_information25 in varchar2 default hr_api.g_varchar2
425 ,p_information26 in varchar2 default hr_api.g_varchar2
426 ,p_information27 in varchar2 default hr_api.g_varchar2
427 ,p_information28 in varchar2 default hr_api.g_varchar2
428 ,p_information29 in varchar2 default hr_api.g_varchar2
429 ,p_information30 in varchar2 default hr_api.g_varchar2
430 ,p_attribute_category in varchar2 default hr_api.g_varchar2
431 ,p_attribute1 in varchar2 default hr_api.g_varchar2
432 ,p_attribute2 in varchar2 default hr_api.g_varchar2
433 ,p_attribute3 in varchar2 default hr_api.g_varchar2
434 ,p_attribute4 in varchar2 default hr_api.g_varchar2
435 ,p_attribute5 in varchar2 default hr_api.g_varchar2
436 ,p_attribute6 in varchar2 default hr_api.g_varchar2
437 ,p_attribute7 in varchar2 default hr_api.g_varchar2
438 ,p_attribute8 in varchar2 default hr_api.g_varchar2
439 ,p_attribute9 in varchar2 default hr_api.g_varchar2
440 ,p_attribute10 in varchar2 default hr_api.g_varchar2
441 ,p_attribute11 in varchar2 default hr_api.g_varchar2
442 ,p_attribute12 in varchar2 default hr_api.g_varchar2
443 ,p_attribute13 in varchar2 default hr_api.g_varchar2
444 ,p_attribute14 in varchar2 default hr_api.g_varchar2
445 ,p_attribute15 in varchar2 default hr_api.g_varchar2
446 ,p_attribute16 in varchar2 default hr_api.g_varchar2
447 ,p_attribute17 in varchar2 default hr_api.g_varchar2
448 ,p_attribute18 in varchar2 default hr_api.g_varchar2
449 ,p_attribute19 in varchar2 default hr_api.g_varchar2
450 ,p_attribute20 in varchar2 default hr_api.g_varchar2
451 ,p_attribute21 in varchar2 default hr_api.g_varchar2
452 ,p_attribute22 in varchar2 default hr_api.g_varchar2
453 ,p_attribute23 in varchar2 default hr_api.g_varchar2
454 ,p_attribute24 in varchar2 default hr_api.g_varchar2
455 ,p_attribute25 in varchar2 default hr_api.g_varchar2
456 ,p_attribute26 in varchar2 default hr_api.g_varchar2
457 ,p_attribute27 in varchar2 default hr_api.g_varchar2
458 ,p_attribute28 in varchar2 default hr_api.g_varchar2
459 ,p_attribute29 in varchar2 default hr_api.g_varchar2
460 ,p_attribute30 in varchar2 default hr_api.g_varchar2
461 ,p_reason_for_no_acco in varchar2 default hr_api.g_varchar2
462 ,p_indemnity_currency in varchar2 default hr_api.g_varchar2
463 ,p_effective_start_date out nocopy date
464 ,p_effective_end_date out nocopy date
465 ,p_return_status out nocopy varchar2
466 ) is
467 --
468 -- Variables for API Boolean parameters
469 l_validate boolean;
470 --
471 -- Variables for IN/OUT parameters
472 l_object_version_number number;
473 --
474 -- Other variables
475 l_proc varchar2(72) := g_package ||'update_assign_accommodation';
476 Begin
477 hr_utility.set_location(' Entering:' || l_proc,10);
478 --
479 -- Issue a savepoint
480 --
481 savepoint update_assign_accommodation;
482 --
483 -- Initialise Multiple Message Detection
484 --
485 hr_multi_message.enable_message_list;
486 --
487 -- Remember IN OUT parameter IN values
488 --
489 l_object_version_number := p_object_version_number;
490 --
491 -- Convert constant values to their corresponding boolean value
492 --
493 l_validate :=
494 hr_api.constant_to_boolean
495 (p_constant_value => p_validate);
496 --
497 -- Register Surrogate ID or user key values
498 --
499 --
500 -- Call API
501 --
502 pqh_assign_accommodations_api.update_assign_accommodation
503 (p_validate => l_validate
504 ,p_effective_date => p_effective_date
505 ,p_datetrack_mode => p_datetrack_mode
506 ,p_assignment_acco_id => p_assignment_acco_id
507 ,p_object_version_number => p_object_version_number
508 ,p_business_group_id => p_business_group_id
509 ,p_assignment_id => p_assignment_id
510 ,p_accommodation_given => p_accommodation_given
511 ,p_temporary_assignment => p_temporary_assignment
512 ,p_accommodation_id => p_accommodation_id
513 ,p_acceptance_date => p_acceptance_date
514 ,p_moving_date => p_moving_date
515 ,p_refusal_date => p_refusal_date
516 ,p_comments => p_comments
517 ,p_indemnity_entitlement => p_indemnity_entitlement
518 ,p_indemnity_amount => p_indemnity_amount
519 ,p_type_of_payment => p_type_of_payment
520 ,p_information_category => p_information_category
521 ,p_information1 => p_information1
522 ,p_information2 => p_information2
523 ,p_information3 => p_information3
524 ,p_information4 => p_information4
525 ,p_information5 => p_information5
526 ,p_information6 => p_information6
527 ,p_information7 => p_information7
528 ,p_information8 => p_information8
529 ,p_information9 => p_information9
530 ,p_information10 => p_information10
531 ,p_information11 => p_information11
532 ,p_information12 => p_information12
533 ,p_information13 => p_information13
534 ,p_information14 => p_information14
535 ,p_information15 => p_information15
536 ,p_information16 => p_information16
537 ,p_information17 => p_information17
538 ,p_information18 => p_information18
539 ,p_information19 => p_information19
540 ,p_information20 => p_information20
541 ,p_information21 => p_information21
542 ,p_information22 => p_information22
543 ,p_information23 => p_information23
544 ,p_information24 => p_information24
545 ,p_information25 => p_information25
546 ,p_information26 => p_information26
547 ,p_information27 => p_information27
548 ,p_information28 => p_information28
549 ,p_information29 => p_information29
550 ,p_information30 => p_information30
551 ,p_attribute_category => p_attribute_category
552 ,p_attribute1 => p_attribute1
553 ,p_attribute2 => p_attribute2
554 ,p_attribute3 => p_attribute3
555 ,p_attribute4 => p_attribute4
556 ,p_attribute5 => p_attribute5
557 ,p_attribute6 => p_attribute6
558 ,p_attribute7 => p_attribute7
559 ,p_attribute8 => p_attribute8
560 ,p_attribute9 => p_attribute9
561 ,p_attribute10 => p_attribute10
562 ,p_attribute11 => p_attribute11
563 ,p_attribute12 => p_attribute12
564 ,p_attribute13 => p_attribute13
565 ,p_attribute14 => p_attribute14
566 ,p_attribute15 => p_attribute15
567 ,p_attribute16 => p_attribute16
568 ,p_attribute17 => p_attribute17
569 ,p_attribute18 => p_attribute18
570 ,p_attribute19 => p_attribute19
571 ,p_attribute20 => p_attribute20
572 ,p_attribute21 => p_attribute21
573 ,p_attribute22 => p_attribute22
574 ,p_attribute23 => p_attribute23
575 ,p_attribute24 => p_attribute24
576 ,p_attribute25 => p_attribute25
577 ,p_attribute26 => p_attribute26
578 ,p_attribute27 => p_attribute27
579 ,p_attribute28 => p_attribute28
580 ,p_attribute29 => p_attribute29
581 ,p_attribute30 => p_attribute30
582 ,p_reason_for_no_acco => p_reason_for_no_acco
583 ,p_indemnity_currency => p_indemnity_currency
584 ,p_effective_start_date => p_effective_start_date
585 ,p_effective_end_date => p_effective_end_date
586 );
587 --
588 -- Convert API warning boolean parameter values to specific
589 -- messages and add them to Multiple Message List
590 --
591 --
592 -- Convert API non-warning boolean parameter values
593 --
594 --
595 -- Derive the API return status value based on whether
596 -- messages of any type exist in the Multiple Message List.
597 -- Also disable Multiple Message Detection.
598 --
599 p_return_status := hr_multi_message.get_return_status_disable;
600 hr_utility.set_location(' Leaving:' || l_proc,20);
601 --
602 exception
603 when hr_multi_message.error_message_exist then
604 --
605 -- Catch the Multiple Message List exception which
606 -- indicates API processing has been aborted because
607 -- at least one message exists in the list.
608 --
609 rollback to update_assign_accommodation;
610 --
611 -- Reset IN OUT parameters and set OUT parameters
612 --
613 p_object_version_number := l_object_version_number;
614 p_effective_start_date := null;
615 p_effective_end_date := null;
616 p_return_status := hr_multi_message.get_return_status_disable;
617 hr_utility.set_location(' Leaving:' || l_proc, 30);
618 when others then
619 --
620 -- When Multiple Message Detection is enabled catch
621 -- any Application specific or other unexpected
622 -- exceptions. Adding appropriate details to the
623 -- Multiple Message List. Otherwise re-raise the
624 -- error.
625 --
626 rollback to update_assign_accommodation;
627 if hr_multi_message.unexpected_error_add(l_proc) then
628 hr_utility.set_location(' Leaving:' || l_proc,40);
629 raise;
630 end if;
631 --
632 -- Reset IN OUT and set OUT parameters
633 --
634 p_object_version_number := l_object_version_number;
635 p_effective_start_date := null;
636 p_effective_end_date := null;
637 p_return_status := hr_multi_message.get_return_status_disable;
638 hr_utility.set_location(' Leaving:' || l_proc,50);
639 end update_assign_accommodation;
640 end pqh_assign_accommodations_swi;