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