[Home] [Help]
PACKAGE BODY: APPS.HR_PERSON_ABSENCE_CASE_API
Source
1 Package Body hr_person_absence_case_api as
2 /* $Header: peabcapi.pkb 120.1 2006/01/27 12:46:38 snukala noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(33) := ' hr_person_absence_case_api.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |----------------------< create_person_absence_case >-----------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_person_absence_case
13 (p_validate in boolean default false
14 ,p_person_id in number
15 ,p_name in varchar2
16 ,p_business_group_id in number
17 ,p_incident_id in number default null
18 ,p_absence_category in varchar2 default null
19 ,p_ac_attribute_category in varchar2 default null
20 ,p_attribute1 in varchar2 default null
21 ,p_attribute2 in varchar2 default null
22 ,p_attribute3 in varchar2 default null
23 ,p_attribute4 in varchar2 default null
24 ,p_attribute5 in varchar2 default null
25 ,p_attribute6 in varchar2 default null
26 ,p_attribute7 in varchar2 default null
27 ,p_attribute8 in varchar2 default null
28 ,p_attribute9 in varchar2 default null
29 ,p_attribute10 in varchar2 default null
30 ,p_attribute11 in varchar2 default null
31 ,p_attribute12 in varchar2 default null
32 ,p_attribute13 in varchar2 default null
33 ,p_attribute14 in varchar2 default null
34 ,p_attribute15 in varchar2 default null
35 ,p_attribute16 in varchar2 default null
36 ,p_attribute17 in varchar2 default null
37 ,p_attribute18 in varchar2 default null
38 ,p_attribute19 in varchar2 default null
39 ,p_attribute20 in varchar2 default null
40 ,p_attribute21 in varchar2 default null
41 ,p_attribute22 in varchar2 default null
42 ,p_attribute23 in varchar2 default null
43 ,p_attribute24 in varchar2 default null
44 ,p_attribute25 in varchar2 default null
45 ,p_attribute26 in varchar2 default null
46 ,p_attribute27 in varchar2 default null
47 ,p_attribute28 in varchar2 default null
48 ,p_attribute29 in varchar2 default null
49 ,p_attribute30 in varchar2 default null
50 ,p_ac_information_category in varchar2 default null
51 ,p_ac_information1 in varchar2 default null
52 ,p_ac_information2 in varchar2 default null
53 ,p_ac_information3 in varchar2 default null
54 ,p_ac_information4 in varchar2 default null
55 ,p_ac_information5 in varchar2 default null
56 ,p_ac_information6 in varchar2 default null
57 ,p_ac_information7 in varchar2 default null
58 ,p_ac_information8 in varchar2 default null
59 ,p_ac_information9 in varchar2 default null
60 ,p_ac_information10 in varchar2 default null
61 ,p_ac_information11 in varchar2 default null
62 ,p_ac_information12 in varchar2 default null
63 ,p_ac_information13 in varchar2 default null
64 ,p_ac_information14 in varchar2 default null
65 ,p_ac_information15 in varchar2 default null
66 ,p_ac_information16 in varchar2 default null
67 ,p_ac_information17 in varchar2 default null
68 ,p_ac_information18 in varchar2 default null
69 ,p_ac_information19 in varchar2 default null
70 ,p_ac_information20 in varchar2 default null
71 ,p_ac_information21 in varchar2 default null
72 ,p_ac_information22 in varchar2 default null
73 ,p_ac_information23 in varchar2 default null
74 ,p_ac_information24 in varchar2 default null
75 ,p_ac_information25 in varchar2 default null
76 ,p_ac_information26 in varchar2 default null
77 ,p_ac_information27 in varchar2 default null
78 ,p_ac_information28 in varchar2 default null
79 ,p_ac_information29 in varchar2 default null
80 ,p_ac_information30 in varchar2 default null
81 ,p_comments in varchar2 default null
82 ,p_absence_case_id out nocopy number
83 ,p_object_version_number out nocopy number
84 ) is
85
86 --
87 -- Declare cursors and local variables
88 --
89
90 l_proc varchar2(72) := g_package||'create_person_absence_case';
91 l_exists number;
92 l_occurrence number;
93 l_input_value_id number;
94 --
95 -- Declare out parameters
96 --
97 l_absence_case_id number;
98 l_object_version_number number;
99 --
100 begin
101 hr_utility.set_location('Entering:'|| l_proc, 10);
102 --
103 -- Create a savepoint.
104 --
105 savepoint create_person_absence_case;
106 --
107 -- Truncate the time portion from all IN date parameters
108 --
109 -- NO DATE IN PARAMS AT THIS TIME - REVIEW AND REMOVE LATER
110 --
111 -- Call Before Process User Hook
112 --
113 begin
114 hr_person_absence_case_bk1.create_person_absence_case_b
115 (p_person_id => p_person_id
116 ,p_name => p_name
117 ,p_business_group_id => p_business_group_id
118 ,p_incident_id => p_incident_id
119 ,p_absence_category => p_absence_category
120 ,p_ac_attribute_category => p_ac_attribute_category
121 ,p_attribute1 => p_attribute1
122 ,p_attribute2 => p_attribute2
123 ,p_attribute3 => p_attribute3
124 ,p_attribute4 => p_attribute4
125 ,p_attribute5 => p_attribute5
126 ,p_attribute6 => p_attribute6
127 ,p_attribute7 => p_attribute7
128 ,p_attribute8 => p_attribute8
129 ,p_attribute9 => p_attribute9
130 ,p_attribute10 => p_attribute10
131 ,p_attribute11 => p_attribute11
132 ,p_attribute12 => p_attribute12
133 ,p_attribute13 => p_attribute13
134 ,p_attribute14 => p_attribute14
135 ,p_attribute15 => p_attribute15
136 ,p_attribute16 => p_attribute16
137 ,p_attribute17 => p_attribute17
138 ,p_attribute18 => p_attribute18
139 ,p_attribute19 => p_attribute19
140 ,p_attribute20 => p_attribute20
141 ,p_attribute21 => p_attribute21
142 ,p_attribute22 => p_attribute22
143 ,p_attribute23 => p_attribute23
144 ,p_attribute24 => p_attribute24
145 ,p_attribute25 => p_attribute25
146 ,p_attribute26 => p_attribute26
147 ,p_attribute27 => p_attribute27
148 ,p_attribute28 => p_attribute28
149 ,p_attribute29 => p_attribute29
150 ,p_attribute30 => p_attribute30
151 ,p_ac_information_category => p_ac_information_category
152 ,p_ac_information1 => p_ac_information1
153 ,p_ac_information2 => p_ac_information2
154 ,p_ac_information3 => p_ac_information3
155 ,p_ac_information4 => p_ac_information4
156 ,p_ac_information5 => p_ac_information5
157 ,p_ac_information6 => p_ac_information6
158 ,p_ac_information7 => p_ac_information7
159 ,p_ac_information8 => p_ac_information8
160 ,p_ac_information9 => p_ac_information9
161 ,p_ac_information10 => p_ac_information10
162 ,p_ac_information11 => p_ac_information11
163 ,p_ac_information12 => p_ac_information12
164 ,p_ac_information13 => p_ac_information13
165 ,p_ac_information14 => p_ac_information14
166 ,p_ac_information15 => p_ac_information15
167 ,p_ac_information16 => p_ac_information16
168 ,p_ac_information17 => p_ac_information17
169 ,p_ac_information18 => p_ac_information18
170 ,p_ac_information19 => p_ac_information19
171 ,p_ac_information20 => p_ac_information20
172 ,p_ac_information21 => p_ac_information21
173 ,p_ac_information22 => p_ac_information22
174 ,p_ac_information23 => p_ac_information23
175 ,p_ac_information24 => p_ac_information24
176 ,p_ac_information25 => p_ac_information25
177 ,p_ac_information26 => p_ac_information26
178 ,p_ac_information27 => p_ac_information27
179 ,p_ac_information28 => p_ac_information28
180 ,p_ac_information29 => p_ac_information29
181 ,p_ac_information30 => p_ac_information30
182 ,p_comments => p_comments
183 );
184 exception
185 when hr_api.cannot_find_prog_unit then
186 hr_api.cannot_find_prog_unit_error
187 (p_module_name => 'CREATE_PERSON_ABSENCE_CASE'
188 ,p_hook_type => 'BP'
189 );
190 end;
191
192 hr_utility.set_location(l_proc, 30);
193 --
194 -- Insert Person Absence Case
195 per_abc_ins.ins
196 (p_name => p_name
197 ,p_person_id => p_person_id
198 ,p_business_group_id => p_business_group_id
199 ,p_incident_id => p_incident_id
200 ,p_absence_category => p_absence_category
201 ,p_ac_information_category => p_ac_information_category
202 ,p_ac_information1 => p_ac_information1
203 ,p_ac_information2 => p_ac_information2
204 ,p_ac_information3 => p_ac_information3
205 ,p_ac_information4 => p_ac_information4
206 ,p_ac_information5 => p_ac_information5
207 ,p_ac_information6 => p_ac_information6
208 ,p_ac_information7 => p_ac_information7
209 ,p_ac_information8 => p_ac_information8
210 ,p_ac_information9 => p_ac_information9
211 ,p_ac_information10 => p_ac_information10
212 ,p_ac_information11 => p_ac_information11
213 ,p_ac_information12 => p_ac_information12
214 ,p_ac_information13 => p_ac_information13
215 ,p_ac_information14 => p_ac_information14
216 ,p_ac_information15 => p_ac_information15
217 ,p_ac_information16 => p_ac_information16
218 ,p_ac_information17 => p_ac_information17
219 ,p_ac_information18 => p_ac_information18
220 ,p_ac_information19 => p_ac_information19
221 ,p_ac_information20 => p_ac_information20
222 ,p_ac_information21 => p_ac_information21
223 ,p_ac_information22 => p_ac_information22
224 ,p_ac_information23 => p_ac_information23
225 ,p_ac_information24 => p_ac_information24
226 ,p_ac_information25 => p_ac_information25
227 ,p_ac_information26 => p_ac_information26
228 ,p_ac_information27 => p_ac_information27
229 ,p_ac_information28 => p_ac_information28
230 ,p_ac_information29 => p_ac_information29
231 ,p_ac_information30 => p_ac_information30
232 ,p_ac_attribute_category => p_ac_attribute_category
233 ,p_attribute1 => p_attribute1
234 ,p_attribute2 => p_attribute2
235 ,p_attribute3 => p_attribute3
236 ,p_attribute4 => p_attribute4
237 ,p_attribute5 => p_attribute5
238 ,p_attribute6 => p_attribute6
239 ,p_attribute7 => p_attribute7
240 ,p_attribute8 => p_attribute8
241 ,p_attribute9 => p_attribute9
242 ,p_attribute10 => p_attribute10
243 ,p_attribute11 => p_attribute11
244 ,p_attribute12 => p_attribute12
245 ,p_attribute13 => p_attribute13
246 ,p_attribute14 => p_attribute14
247 ,p_attribute15 => p_attribute15
248 ,p_attribute16 => p_attribute16
249 ,p_attribute17 => p_attribute17
250 ,p_attribute18 => p_attribute18
251 ,p_attribute19 => p_attribute19
252 ,p_attribute20 => p_attribute20
253 ,p_attribute21 => p_attribute21
254 ,p_attribute22 => p_attribute22
255 ,p_attribute23 => p_attribute23
256 ,p_attribute24 => p_attribute24
257 ,p_attribute25 => p_attribute25
258 ,p_attribute26 => p_attribute26
259 ,p_attribute27 => p_attribute27
260 ,p_attribute28 => p_attribute28
261 ,p_attribute29 => p_attribute29
262 ,p_attribute30 => p_attribute30
263 ,p_comments => p_comments
264 ,p_absence_case_id => l_absence_case_id
265 ,p_object_version_number => l_object_version_number
266 );
267
268 --
269 -- Call After Process User Hook
270 --
271
272 begin
273 hr_person_absence_case_bk1.create_person_absence_case_a
274 (p_person_id => p_person_id
275 ,p_name => p_name
276 ,p_business_group_id => p_business_group_id
277 ,p_incident_id => p_incident_id
278 ,p_absence_category => p_absence_category
279 ,p_ac_attribute_category => p_ac_attribute_category
280 ,p_attribute1 => p_attribute1
281 ,p_attribute2 => p_attribute2
282 ,p_attribute3 => p_attribute3
283 ,p_attribute4 => p_attribute4
284 ,p_attribute5 => p_attribute5
285 ,p_attribute6 => p_attribute6
286 ,p_attribute7 => p_attribute7
287 ,p_attribute8 => p_attribute8
288 ,p_attribute9 => p_attribute9
289 ,p_attribute10 => p_attribute10
290 ,p_attribute11 => p_attribute11
291 ,p_attribute12 => p_attribute12
292 ,p_attribute13 => p_attribute13
293 ,p_attribute14 => p_attribute14
294 ,p_attribute15 => p_attribute15
295 ,p_attribute16 => p_attribute16
296 ,p_attribute17 => p_attribute17
297 ,p_attribute18 => p_attribute18
298 ,p_attribute19 => p_attribute19
299 ,p_attribute20 => p_attribute20
300 ,p_attribute21 => p_attribute21
301 ,p_attribute22 => p_attribute22
302 ,p_attribute23 => p_attribute23
303 ,p_attribute24 => p_attribute24
304 ,p_attribute25 => p_attribute25
305 ,p_attribute26 => p_attribute26
306 ,p_attribute27 => p_attribute27
307 ,p_attribute28 => p_attribute28
308 ,p_attribute29 => p_attribute29
309 ,p_attribute30 => p_attribute30
310 ,p_ac_information_category => p_ac_information_category
311 ,p_ac_information1 => p_ac_information1
312 ,p_ac_information2 => p_ac_information2
313 ,p_ac_information3 => p_ac_information3
314 ,p_ac_information4 => p_ac_information4
315 ,p_ac_information5 => p_ac_information5
316 ,p_ac_information6 => p_ac_information6
317 ,p_ac_information7 => p_ac_information7
318 ,p_ac_information8 => p_ac_information8
319 ,p_ac_information9 => p_ac_information9
320 ,p_ac_information10 => p_ac_information10
321 ,p_ac_information11 => p_ac_information11
322 ,p_ac_information12 => p_ac_information12
323 ,p_ac_information13 => p_ac_information13
324 ,p_ac_information14 => p_ac_information14
325 ,p_ac_information15 => p_ac_information15
326 ,p_ac_information16 => p_ac_information16
327 ,p_ac_information17 => p_ac_information17
328 ,p_ac_information18 => p_ac_information18
329 ,p_ac_information19 => p_ac_information19
330 ,p_ac_information20 => p_ac_information20
331 ,p_ac_information21 => p_ac_information21
332 ,p_ac_information22 => p_ac_information22
333 ,p_ac_information23 => p_ac_information23
334 ,p_ac_information24 => p_ac_information24
335 ,p_ac_information25 => p_ac_information25
336 ,p_ac_information26 => p_ac_information26
337 ,p_ac_information27 => p_ac_information27
338 ,p_ac_information28 => p_ac_information28
339 ,p_ac_information29 => p_ac_information29
340 ,p_ac_information30 => p_ac_information30
341 ,p_comments => p_comments
342 ,p_absence_case_id => l_absence_case_id
343 ,p_object_version_number => l_object_version_number
344 );
345 exception
346 when hr_api.cannot_find_prog_unit then
347 hr_api.cannot_find_prog_unit_error
348 (p_module_name => 'CREATE_PERSON_ABSENCE_CASE'
349 ,p_hook_type => 'AP'
350 );
351 end;
352 --
353 -- When in validation only mode raise the Validate_Enabled exception
354 --
355 if p_validate then
356 raise hr_api.validate_enabled;
357 end if;
358 --
359 -- Set all output arguments
360 --
361 p_absence_case_id := l_absence_case_id;
362 p_object_version_number := l_object_version_number;
363 --
364 hr_utility.set_location(' Leaving:'||l_proc, 70);
365
366 exception
367 when hr_api.validate_enabled then
368 --
369 -- As the Validate_Enabled exception has been raised
370 -- we must rollback to the savepoint
371 --
372 rollback to create_person_absence_case;
373 --
374 -- Only set output warning arguments
375 -- (Any key or derived arguments must be set to null
376 -- when validation only mode is being used.)
377 --
378 p_absence_case_id := null;
379 p_object_version_number := null;
380 hr_utility.set_location(l_proc, 80);
381 when others then
382 --
383 -- A validation or unexpected error has occured
384 --
385 p_absence_case_id := null;
386 p_object_version_number := null;
387
388 rollback to create_person_absence_case;
389 hr_utility.set_location(' Leaving:'||l_proc, 90);
390 raise;
391 end create_person_absence_case;
392 --
393 -- ----------------------------------------------------------------------------
394 -- |----------------------< update_person_absence_case >-----------------------|
395 -- ----------------------------------------------------------------------------
396 --
397 procedure update_person_absence_case
398 (p_validate in boolean default false
399 ,p_absence_case_id in number
400 ,p_name in varchar2 default hr_api.g_varchar2
401 ,p_incident_id in number default hr_api.g_number
402 ,p_absence_category in varchar2 default null
403 ,p_ac_attribute_category in varchar2 default hr_api.g_varchar2
404 ,p_attribute1 in varchar2 default hr_api.g_varchar2
405 ,p_attribute2 in varchar2 default hr_api.g_varchar2
406 ,p_attribute3 in varchar2 default hr_api.g_varchar2
407 ,p_attribute4 in varchar2 default hr_api.g_varchar2
408 ,p_attribute5 in varchar2 default hr_api.g_varchar2
409 ,p_attribute6 in varchar2 default hr_api.g_varchar2
410 ,p_attribute7 in varchar2 default hr_api.g_varchar2
411 ,p_attribute8 in varchar2 default hr_api.g_varchar2
412 ,p_attribute9 in varchar2 default hr_api.g_varchar2
413 ,p_attribute10 in varchar2 default hr_api.g_varchar2
414 ,p_attribute11 in varchar2 default hr_api.g_varchar2
415 ,p_attribute12 in varchar2 default hr_api.g_varchar2
416 ,p_attribute13 in varchar2 default hr_api.g_varchar2
417 ,p_attribute14 in varchar2 default hr_api.g_varchar2
418 ,p_attribute15 in varchar2 default hr_api.g_varchar2
419 ,p_attribute16 in varchar2 default hr_api.g_varchar2
420 ,p_attribute17 in varchar2 default hr_api.g_varchar2
421 ,p_attribute18 in varchar2 default hr_api.g_varchar2
422 ,p_attribute19 in varchar2 default hr_api.g_varchar2
423 ,p_attribute20 in varchar2 default hr_api.g_varchar2
424 ,p_attribute21 in varchar2 default hr_api.g_varchar2
425 ,p_attribute22 in varchar2 default hr_api.g_varchar2
426 ,p_attribute23 in varchar2 default hr_api.g_varchar2
427 ,p_attribute24 in varchar2 default hr_api.g_varchar2
428 ,p_attribute25 in varchar2 default hr_api.g_varchar2
429 ,p_attribute26 in varchar2 default hr_api.g_varchar2
430 ,p_attribute27 in varchar2 default hr_api.g_varchar2
431 ,p_attribute28 in varchar2 default hr_api.g_varchar2
432 ,p_attribute29 in varchar2 default hr_api.g_varchar2
433 ,p_attribute30 in varchar2 default hr_api.g_varchar2
434 ,p_ac_information_category in varchar2 default hr_api.g_varchar2
435 ,p_ac_information1 in varchar2 default hr_api.g_varchar2
436 ,p_ac_information2 in varchar2 default hr_api.g_varchar2
437 ,p_ac_information3 in varchar2 default hr_api.g_varchar2
438 ,p_ac_information4 in varchar2 default hr_api.g_varchar2
439 ,p_ac_information5 in varchar2 default hr_api.g_varchar2
440 ,p_ac_information6 in varchar2 default hr_api.g_varchar2
441 ,p_ac_information7 in varchar2 default hr_api.g_varchar2
442 ,p_ac_information8 in varchar2 default hr_api.g_varchar2
443 ,p_ac_information9 in varchar2 default hr_api.g_varchar2
444 ,p_ac_information10 in varchar2 default hr_api.g_varchar2
445 ,p_ac_information11 in varchar2 default hr_api.g_varchar2
446 ,p_ac_information12 in varchar2 default hr_api.g_varchar2
447 ,p_ac_information13 in varchar2 default hr_api.g_varchar2
448 ,p_ac_information14 in varchar2 default hr_api.g_varchar2
449 ,p_ac_information15 in varchar2 default hr_api.g_varchar2
450 ,p_ac_information16 in varchar2 default hr_api.g_varchar2
451 ,p_ac_information17 in varchar2 default hr_api.g_varchar2
452 ,p_ac_information18 in varchar2 default hr_api.g_varchar2
453 ,p_ac_information19 in varchar2 default hr_api.g_varchar2
454 ,p_ac_information20 in varchar2 default hr_api.g_varchar2
455 ,p_ac_information21 in varchar2 default hr_api.g_varchar2
456 ,p_ac_information22 in varchar2 default hr_api.g_varchar2
457 ,p_ac_information23 in varchar2 default hr_api.g_varchar2
458 ,p_ac_information24 in varchar2 default hr_api.g_varchar2
459 ,p_ac_information25 in varchar2 default hr_api.g_varchar2
460 ,p_ac_information26 in varchar2 default hr_api.g_varchar2
461 ,p_ac_information27 in varchar2 default hr_api.g_varchar2
462 ,p_ac_information28 in varchar2 default hr_api.g_varchar2
463 ,p_ac_information29 in varchar2 default hr_api.g_varchar2
464 ,p_ac_information30 in varchar2 default hr_api.g_varchar2
465 ,p_comments in varchar2 default hr_api.g_varchar2
466 ,p_object_version_number in out nocopy number
467 ) is
468 --
469 -- Declare cursors and local variables
470 --
471 l_proc varchar2(72) := g_package||'update_person_absence_case';
472 --
473 lv_object_version_number number;
474 -- Declare out parameters
475 --
476 l_object_version_number number;
477 --
478
479 begin
480
481 hr_utility.set_location('Entering:'|| l_proc, 10);
482 --
483 lv_object_version_number := p_object_version_number ;
484 -- Issue a savepoint
485 --
486 savepoint update_person_absence_case;
487
488 --
489 -- Truncate the time portion from all IN date parameters
490 --
491 -- AS OF NOW NO DATE TYPE PARAMS TO TRUNCATE - REMOVE THIS LINE LATER.
492 --
493 -- Call Before Process User Hook
494 --
495 begin
496 hr_person_absence_case_bk2.update_person_absence_case_b
497 (p_absence_case_id => p_absence_case_id
498 ,p_object_version_number => p_object_version_number
499 ,p_name => p_name
500 ,p_incident_id => p_incident_id
501 ,p_absence_category => p_absence_category
502 ,p_ac_attribute_category => p_ac_attribute_category
503 ,p_attribute1 => p_attribute1
504 ,p_attribute2 => p_attribute2
505 ,p_attribute3 => p_attribute3
506 ,p_attribute4 => p_attribute4
507 ,p_attribute5 => p_attribute5
508 ,p_attribute6 => p_attribute6
509 ,p_attribute7 => p_attribute7
510 ,p_attribute8 => p_attribute8
511 ,p_attribute9 => p_attribute9
512 ,p_attribute10 => p_attribute10
513 ,p_attribute11 => p_attribute11
514 ,p_attribute12 => p_attribute12
515 ,p_attribute13 => p_attribute13
516 ,p_attribute14 => p_attribute14
517 ,p_attribute15 => p_attribute15
518 ,p_attribute16 => p_attribute16
519 ,p_attribute17 => p_attribute17
520 ,p_attribute18 => p_attribute18
521 ,p_attribute19 => p_attribute19
522 ,p_attribute20 => p_attribute20
523 ,p_attribute21 => p_attribute21
524 ,p_attribute22 => p_attribute22
525 ,p_attribute23 => p_attribute23
526 ,p_attribute24 => p_attribute24
527 ,p_attribute25 => p_attribute25
528 ,p_attribute26 => p_attribute26
529 ,p_attribute27 => p_attribute27
530 ,p_attribute28 => p_attribute28
531 ,p_attribute29 => p_attribute29
532 ,p_attribute30 => p_attribute30
533 ,p_ac_information_category => p_ac_information_category
534 ,p_ac_information1 => p_ac_information1
535 ,p_ac_information2 => p_ac_information2
536 ,p_ac_information3 => p_ac_information3
537 ,p_ac_information4 => p_ac_information4
538 ,p_ac_information5 => p_ac_information5
539 ,p_ac_information6 => p_ac_information6
540 ,p_ac_information7 => p_ac_information7
541 ,p_ac_information8 => p_ac_information8
542 ,p_ac_information9 => p_ac_information9
543 ,p_ac_information10 => p_ac_information10
544 ,p_ac_information11 => p_ac_information11
545 ,p_ac_information12 => p_ac_information12
546 ,p_ac_information13 => p_ac_information13
547 ,p_ac_information14 => p_ac_information14
548 ,p_ac_information15 => p_ac_information15
549 ,p_ac_information16 => p_ac_information16
550 ,p_ac_information17 => p_ac_information17
551 ,p_ac_information18 => p_ac_information18
552 ,p_ac_information19 => p_ac_information19
553 ,p_ac_information20 => p_ac_information20
554 ,p_ac_information21 => p_ac_information21
555 ,p_ac_information22 => p_ac_information22
556 ,p_ac_information23 => p_ac_information23
557 ,p_ac_information24 => p_ac_information24
558 ,p_ac_information25 => p_ac_information25
559 ,p_ac_information26 => p_ac_information26
560 ,p_ac_information27 => p_ac_information27
561 ,p_ac_information28 => p_ac_information28
562 ,p_ac_information29 => p_ac_information29
563 ,p_ac_information30 => p_ac_information30
564 ,p_comments => p_comments
565 );
566 exception
567 when hr_api.cannot_find_prog_unit then
568 hr_api.cannot_find_prog_unit_error
569 (p_module_name => 'UPDATE_PERSON_ABSENCE'
570 ,p_hook_type => 'BP'
571 );
572 end;
573
574 --
575 hr_utility.set_location(l_proc, 30);
576 --
577 l_object_version_number := p_object_version_number;
578 --
579 -- Update Person Absence
580 per_abc_upd.upd
581 (p_absence_case_id => p_absence_case_id
582 ,p_object_version_number => l_object_version_number
583 ,p_name => p_name
584 ,p_incident_id => p_incident_id
585 ,p_absence_category => p_absence_category
586 ,p_ac_information_category => p_ac_information_category
587 ,p_ac_information1 => p_ac_information1
588 ,p_ac_information2 => p_ac_information2
589 ,p_ac_information3 => p_ac_information3
590 ,p_ac_information4 => p_ac_information4
591 ,p_ac_information5 => p_ac_information5
592 ,p_ac_information6 => p_ac_information6
593 ,p_ac_information7 => p_ac_information7
594 ,p_ac_information8 => p_ac_information8
595 ,p_ac_information9 => p_ac_information9
596 ,p_ac_information10 => p_ac_information10
597 ,p_ac_information11 => p_ac_information11
598 ,p_ac_information12 => p_ac_information12
599 ,p_ac_information13 => p_ac_information13
600 ,p_ac_information14 => p_ac_information14
601 ,p_ac_information15 => p_ac_information15
602 ,p_ac_information16 => p_ac_information16
603 ,p_ac_information17 => p_ac_information17
604 ,p_ac_information18 => p_ac_information18
605 ,p_ac_information19 => p_ac_information19
606 ,p_ac_information20 => p_ac_information20
607 ,p_ac_information21 => p_ac_information21
608 ,p_ac_information22 => p_ac_information22
609 ,p_ac_information23 => p_ac_information23
610 ,p_ac_information24 => p_ac_information24
611 ,p_ac_information25 => p_ac_information25
612 ,p_ac_information26 => p_ac_information26
613 ,p_ac_information27 => p_ac_information27
614 ,p_ac_information28 => p_ac_information28
615 ,p_ac_information29 => p_ac_information29
616 ,p_ac_information30 => p_ac_information30
617 ,p_ac_attribute_category => p_ac_attribute_category
618 ,p_attribute1 => p_attribute1
619 ,p_attribute2 => p_attribute2
620 ,p_attribute3 => p_attribute3
621 ,p_attribute4 => p_attribute4
622 ,p_attribute5 => p_attribute5
623 ,p_attribute6 => p_attribute6
624 ,p_attribute7 => p_attribute7
625 ,p_attribute8 => p_attribute8
626 ,p_attribute9 => p_attribute9
627 ,p_attribute10 => p_attribute10
628 ,p_attribute11 => p_attribute11
629 ,p_attribute12 => p_attribute12
630 ,p_attribute13 => p_attribute13
631 ,p_attribute14 => p_attribute14
632 ,p_attribute15 => p_attribute15
633 ,p_attribute16 => p_attribute16
634 ,p_attribute17 => p_attribute17
635 ,p_attribute18 => p_attribute18
636 ,p_attribute19 => p_attribute19
637 ,p_attribute20 => p_attribute20
638 ,p_attribute21 => p_attribute21
639 ,p_attribute22 => p_attribute22
640 ,p_attribute23 => p_attribute23
641 ,p_attribute24 => p_attribute24
642 ,p_attribute25 => p_attribute25
643 ,p_attribute26 => p_attribute26
644 ,p_attribute27 => p_attribute27
645 ,p_attribute28 => p_attribute28
646 ,p_attribute29 => p_attribute29
647 ,p_attribute30 => p_attribute30
648 ,p_comments => p_comments
649 );
650
651 --
652 -- Assign the out parameters.
653 --
654
655 p_object_version_number := l_object_version_number;
656
657 --
658 -- Call After Process User Hook
659 --
660 begin
661 hr_person_absence_case_bk2.update_person_absence_case_a
662 (p_absence_case_id => p_absence_case_id
663 ,p_object_version_number => l_object_version_number
664 ,p_name => p_name
665 ,p_incident_id => p_incident_id
666 ,p_absence_category => p_absence_category
667 ,p_ac_attribute_category => p_ac_attribute_category
668 ,p_attribute1 => p_attribute1
669 ,p_attribute2 => p_attribute2
670 ,p_attribute3 => p_attribute3
671 ,p_attribute4 => p_attribute4
672 ,p_attribute5 => p_attribute5
673 ,p_attribute6 => p_attribute6
674 ,p_attribute7 => p_attribute7
675 ,p_attribute8 => p_attribute8
676 ,p_attribute9 => p_attribute9
677 ,p_attribute10 => p_attribute10
678 ,p_attribute11 => p_attribute11
679 ,p_attribute12 => p_attribute12
680 ,p_attribute13 => p_attribute13
681 ,p_attribute14 => p_attribute14
682 ,p_attribute15 => p_attribute15
683 ,p_attribute16 => p_attribute16
684 ,p_attribute17 => p_attribute17
685 ,p_attribute18 => p_attribute18
686 ,p_attribute19 => p_attribute19
687 ,p_attribute20 => p_attribute20
688 ,p_attribute21 => p_attribute21
689 ,p_attribute22 => p_attribute22
690 ,p_attribute23 => p_attribute23
691 ,p_attribute24 => p_attribute24
692 ,p_attribute25 => p_attribute25
693 ,p_attribute26 => p_attribute26
694 ,p_attribute27 => p_attribute27
695 ,p_attribute28 => p_attribute28
696 ,p_attribute29 => p_attribute29
697 ,p_attribute30 => p_attribute30
698 ,p_ac_information_category => p_ac_information_category
699 ,p_ac_information1 => p_ac_information1
700 ,p_ac_information2 => p_ac_information2
701 ,p_ac_information3 => p_ac_information3
702 ,p_ac_information4 => p_ac_information4
703 ,p_ac_information5 => p_ac_information5
704 ,p_ac_information6 => p_ac_information6
705 ,p_ac_information7 => p_ac_information7
706 ,p_ac_information8 => p_ac_information8
707 ,p_ac_information9 => p_ac_information9
708 ,p_ac_information10 => p_ac_information10
709 ,p_ac_information11 => p_ac_information11
710 ,p_ac_information12 => p_ac_information12
711 ,p_ac_information13 => p_ac_information13
712 ,p_ac_information14 => p_ac_information14
713 ,p_ac_information15 => p_ac_information15
714 ,p_ac_information16 => p_ac_information16
715 ,p_ac_information17 => p_ac_information17
716 ,p_ac_information18 => p_ac_information18
717 ,p_ac_information19 => p_ac_information19
718 ,p_ac_information20 => p_ac_information20
719 ,p_ac_information21 => p_ac_information21
720 ,p_ac_information22 => p_ac_information22
721 ,p_ac_information23 => p_ac_information23
722 ,p_ac_information24 => p_ac_information24
723 ,p_ac_information25 => p_ac_information25
724 ,p_ac_information26 => p_ac_information26
725 ,p_ac_information27 => p_ac_information27
726 ,p_ac_information28 => p_ac_information28
727 ,p_ac_information29 => p_ac_information29
728 ,p_ac_information30 => p_ac_information30
729 ,p_comments => p_comments
730 );
731 exception
732 when hr_api.cannot_find_prog_unit then
733 hr_api.cannot_find_prog_unit_error
734 (p_module_name => 'UPDATE_PERSON_ABSENCE_CASE'
735 ,p_hook_type => 'AP'
736 );
737 end;
738
739 --
740 -- When in validation only mode raise the Validate_Enabled exception
741 --
742 if p_validate then
743 raise hr_api.validate_enabled;
744 end if;
745 --
746 hr_utility.set_location(' Leaving:'||l_proc, 90);
747 exception
748 when hr_api.validate_enabled then
749 --
750 -- As the Validate_Enabled exception has been raised
751 -- we must rollback to the savepoint
752 --
753 rollback to update_person_absence_case;
754 --
755 -- Only set output warning arguments
756 -- (Any key or derived arguments must be set to null
757 -- when validation only mode is being used.)
758 --
759 p_object_version_number := null;
760 hr_utility.set_location(' Leaving:'||l_proc, 100);
761 when others then
762 --
763 -- A validation or unexpected error has occured
764 --
765 p_object_version_number := lv_object_version_number ;
766
767 rollback to update_person_absence_case;
768 hr_utility.set_location(' Leaving:'||l_proc, 110);
769 raise;
770 end update_person_absence_case;
771 --
772 -- ----------------------------------------------------------------------------
773 -- |----------------------< delete_person_absence_case >-----------------------|
774 -- ----------------------------------------------------------------------------
775 --
776 procedure delete_person_absence_case
777 (p_validate in boolean default false
778 ,p_absence_case_id in number
779 ,p_object_version_number in number
780 ) is
781
782 l_proc varchar2(72) := g_package||'delete_person_absence_case';
783 l_exists number;
784
785 begin
786 hr_utility.set_location('Entering:'|| l_proc, 10);
787 --
788 -- Issue a savepoint
789 --
790 savepoint delete_person_absence_case;
791
792 --
793 -- Call Before Process User Hook
794 --
795 begin
796 hr_person_absence_case_bk3.delete_person_absence_case_b
797 (p_absence_case_id => p_absence_case_id
798 ,p_object_version_number => p_object_version_number
799 );
800 exception
801 when hr_api.cannot_find_prog_unit then
802 hr_api.cannot_find_prog_unit_error
803 (p_module_name => 'DELETE_PERSON_ABSENCE_CASE'
804 ,p_hook_type => 'BP'
805 );
806 end;
807
808 --
809 -- Delete Person Absence Case
810 --
811
812 per_abc_del.del
813 (p_absence_case_id => p_absence_case_id
814 ,p_object_version_number => p_object_version_number
815 );
816
817 --
818 -- Update Person Absence Attendances to remove link to Case record.
819 --
820 hr_utility.set_location(l_proc, 48);
821
822 update per_absence_attendances
823 set absence_case_id = null
824 where absence_case_id =p_absence_case_id;
825
826 hr_utility.set_location(l_proc, 50);
827
828 --
829 -- Call After Process User Hook
830 --
831
832 begin
833 hr_person_absence_case_bk3.delete_person_absence_case_a
834 (p_absence_case_id => p_absence_case_id
835 ,p_object_version_number => p_object_version_number
836 );
837 exception
838 when hr_api.cannot_find_prog_unit then
839 hr_api.cannot_find_prog_unit_error
840 (p_module_name => 'DELETE_PERSON_ABSENCE_CASE'
841 ,p_hook_type => 'AP'
842 );
843 end;
844 --
845 -- When in validation only mode raise the Validate_Enabled exception
846 --
847 if p_validate then
848 raise hr_api.validate_enabled;
849 end if;
850
851 --
852 hr_utility.set_location(' Leaving:'||l_proc, 70);
853 exception
854 when hr_api.validate_enabled then
855 --
856 -- As the Validate_Enabled exception has been raised
857 -- we must rollback to the savepoint
858 --
859 rollback to delete_person_absence_case;
860 --
861 -- Only set output warning arguments
862 -- (Any key or derived arguments must be set to null
863 -- when validation only mode is being used.)
864 --
865 hr_utility.set_location(' Leaving:'||l_proc, 80);
866 when others then
867 --
868 -- A validation or unexpected error has occured
869 --
870 rollback to delete_person_absence_case;
871 hr_utility.set_location(' Leaving:'||l_proc, 90);
872 raise;
873 --
874 end delete_person_absence_case;
875
876 --
877 end hr_person_absence_case_api;