[Home] [Help]
PACKAGE BODY: APPS.PER_CHECKLISTS_API
Source
4 -- Package Variables
1 Package Body PER_CHECKLISTS_API as
2 /* $Header: pecklapi.pkb 120.0 2005/09/28 20:56:00 tpapired noship $ */
3 --
5 --
6 g_package varchar2(33) := ' PER_CHECKLISTS_API.';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |---------------------------< CREATE_CHECKLIST >---------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_checklist
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_name in varchar2
16 ,p_description in varchar2 default null
17 ,p_business_group_id in number default null
18 ,p_life_event_reason_id in number default null
19 ,p_checklist_category in varchar2 default null
20 ,p_attribute_category in varchar2 default null
21 ,p_attribute1 in varchar2 default null
22 ,p_attribute2 in varchar2 default null
23 ,p_attribute3 in varchar2 default null
24 ,p_attribute4 in varchar2 default null
25 ,p_attribute5 in varchar2 default null
26 ,p_attribute6 in varchar2 default null
27 ,p_attribute7 in varchar2 default null
28 ,p_attribute8 in varchar2 default null
29 ,p_attribute9 in varchar2 default null
30 ,p_attribute10 in varchar2 default null
31 ,p_attribute11 in varchar2 default null
32 ,p_attribute12 in varchar2 default null
33 ,p_attribute13 in varchar2 default null
34 ,p_attribute14 in varchar2 default null
35 ,p_attribute15 in varchar2 default null
36 ,p_attribute16 in varchar2 default null
37 ,p_attribute17 in varchar2 default null
38 ,p_attribute18 in varchar2 default null
39 ,p_attribute19 in varchar2 default null
40 ,p_attribute20 in varchar2 default null
41 ,p_information_category in varchar2 default null
42 ,p_information1 in varchar2 default null
43 ,p_information2 in varchar2 default null
44 ,p_information3 in varchar2 default null
45 ,p_information4 in varchar2 default null
46 ,p_information5 in varchar2 default null
47 ,p_information6 in varchar2 default null
48 ,p_information7 in varchar2 default null
49 ,p_information8 in varchar2 default null
50 ,p_information9 in varchar2 default null
51 ,p_information10 in varchar2 default null
52 ,p_information11 in varchar2 default null
53 ,p_information12 in varchar2 default null
54 ,p_information13 in varchar2 default null
55 ,p_information14 in varchar2 default null
56 ,p_information15 in varchar2 default null
57 ,p_information16 in varchar2 default null
58 ,p_information17 in varchar2 default null
59 ,p_information18 in varchar2 default null
60 ,p_information19 in varchar2 default null
64 ) is
61 ,p_information20 in varchar2 default null
62 ,p_checklist_id out nocopy number
63 ,p_object_version_number out nocopy number
65 --
66 -- Declare cursors and local variables
67 --
68 l_in_out_parameter number;
69 l_effective_date date;
70 l_object_version_number number(9);
71 l_checklist_id number(9);
72 l_proc varchar2(72) := g_package||'Create Checklist';
73
74 begin
75 hr_utility.set_location('Entering:'|| l_proc, 10);
76 --
77 -- Issue a savepoint
78 --
79 savepoint CREATE_CHECKLIST;
80 --
81 -- Remember IN OUT parameter IN values
82 --
83 --l_in_out_parameter := p_in_out_parameter;
84
85 --
86 -- Truncate the time portion from all IN date parameters
87 --
88 l_effective_date := trunc(p_effective_date);
89
90 --
91 -- Call Before Process User Hook
92 --
93
94
95 begin
96 PER_CHECKLISTS_BK1.create_checklist_b
97 (p_effective_date => l_effective_date
98 ,p_name => p_name
99 ,p_description => p_description
100 ,p_business_group_id => p_business_group_id
101 ,p_life_event_reason_id => p_life_event_reason_id
102 ,p_checklist_category => p_checklist_category
103 ,p_attribute_category => p_attribute_category
104 ,p_attribute1 => p_attribute1
105 ,p_attribute2 => p_attribute2
106 ,p_attribute3 => p_attribute3
107 ,p_attribute4 => p_attribute4
108 ,p_attribute5 => p_attribute5
109 ,p_attribute6 => p_attribute6
110 ,p_attribute7 => p_attribute7
111 ,p_attribute8 => p_attribute8
112 ,p_attribute9 => p_attribute9
113 ,p_attribute10 => p_attribute10
114 ,p_attribute11 => p_attribute11
115 ,p_attribute12 => p_attribute12
116 ,p_attribute13 => p_attribute13
117 ,p_attribute14 => p_attribute14
118 ,p_attribute15 => p_attribute15
119 ,p_attribute16 => p_attribute16
120 ,p_attribute17 => p_attribute17
121 ,p_attribute18 => p_attribute18
122 ,p_attribute19 => p_attribute19
123 ,p_attribute20 => p_attribute20
124 ,p_information_category => p_information_category
125 ,p_information1 => p_information1
126 ,p_information2 => p_information2
127 ,p_information3 => p_information3
128 ,p_information4 => p_information4
129 ,p_information5 => p_information5
130 ,p_information6 => p_information6
131 ,p_information7 => p_information7
132 ,p_information8 => p_information8
133 ,p_information9 => p_information9
134 ,p_information10 => p_information10
135 ,p_information11 => p_information11
136 ,p_information12 => p_information12
137 ,p_information13 => p_information13
138 ,p_information14 => p_information14
139 ,p_information15 => p_information15
140 ,p_information16 => p_information16
141 ,p_information17 => p_information17
142 ,p_information18 => p_information18
143 ,p_information19 => p_information19
144 ,p_information20 => p_information20
145 );
146
147 /*
148 (p_effective_date => l_effective_date
149 ,p_business_group_id => p_business_group_id
150 ,p_in_out_parameter => p_in_out_parameter
151 ,p_non_mandatory_arg => p_non_mandatory_arg
152 );
153 */
154 exception
155 when hr_api.cannot_find_prog_unit then
156 hr_api.cannot_find_prog_unit_error
157 (p_module_name => 'CREATE_CHECKLIST'
158 ,p_hook_type => 'BP'
159 );
160 end;
161 --
162 -- Validation in addition to Row Handlers
163 --
164
165
166
167 --
168 -- Process Logic
169 --
170
171 per_ckl_ins.ins
172 (p_effective_date => l_effective_date
173 ,p_name => p_name
174 ,p_description => p_description
175 ,p_event_reason_id => p_life_event_reason_id
176 ,p_business_group_id => p_business_group_id
177 ,p_checklist_category => p_checklist_category
178 ,p_attribute_category => p_attribute_category
179 ,p_attribute1 => p_attribute1
180 ,p_attribute2 => p_attribute2
181 ,p_attribute3 => p_attribute3
182 ,p_attribute4 => p_attribute4
183 ,p_attribute5 => p_attribute5
184 ,p_attribute6 => p_attribute6
185 ,p_attribute7 => p_attribute7
186 ,p_attribute8 => p_attribute8
187 ,p_attribute9 => p_attribute9
188 ,p_attribute10 => p_attribute10
192 ,p_attribute14 => p_attribute14
189 ,p_attribute11 => p_attribute11
190 ,p_attribute12 => p_attribute12
191 ,p_attribute13 => p_attribute13
193 ,p_attribute15 => p_attribute15
194 ,p_attribute16 => p_attribute16
195 ,p_attribute17 => p_attribute17
196 ,p_attribute18 => p_attribute18
197 ,p_attribute19 => p_attribute19
198 ,p_attribute20 => p_attribute20
199 ,p_information_category => p_information_category
200 ,p_information1 => p_information1
201 ,p_information2 => p_information2
202 ,p_information3 => p_information3
203 ,p_information4 => p_information4
204 ,p_information5 => p_information5
205 ,p_information6 => p_information6
206 ,p_information7 => p_information7
207 ,p_information8 => p_information8
208 ,p_information9 => p_information9
209 ,p_information10 => p_information10
210 ,p_information11 => p_information11
211 ,p_information12 => p_information12
212 ,p_information13 => p_information13
213 ,p_information14 => p_information14
214 ,p_information15 => p_information15
215 ,p_information16 => p_information16
216 ,p_information17 => p_information17
217 ,p_information18 => p_information18
218 ,p_information19 => p_information19
219 ,p_information20 => p_information20
220 ,p_checklist_id => l_checklist_id
221 ,p_object_version_number => l_object_version_number
222 );
223
224
225 --
226 -- Call After Process User Hook
227 --
228 begin
229 PER_CHECKLISTS_BK1.create_checklist_a
230 (p_effective_date => l_effective_date
231 ,p_checklist_id => p_checklist_id
232 ,p_name => p_name
233 ,p_description => p_description
234 ,p_business_group_id => p_business_group_id
235 ,p_life_event_reason_id => p_life_event_reason_id
236 ,p_checklist_category => p_checklist_category
237 ,p_attribute_category => p_attribute_category
238 ,p_attribute1 => p_attribute1
239 ,p_attribute2 => p_attribute2
240 ,p_attribute3 => p_attribute3
241 ,p_attribute4 => p_attribute4
242 ,p_attribute5 => p_attribute5
243 ,p_attribute6 => p_attribute6
244 ,p_attribute7 => p_attribute7
245 ,p_attribute8 => p_attribute8
246 ,p_attribute9 => p_attribute9
247 ,p_attribute10 => p_attribute10
248 ,p_attribute11 => p_attribute11
249 ,p_attribute12 => p_attribute12
250 ,p_attribute13 => p_attribute13
251 ,p_attribute14 => p_attribute14
252 ,p_attribute15 => p_attribute15
253 ,p_attribute16 => p_attribute16
254 ,p_attribute17 => p_attribute17
255 ,p_attribute18 => p_attribute18
256 ,p_attribute19 => p_attribute19
257 ,p_attribute20 => p_attribute20
258 ,p_information_category => p_information_category
259 ,p_information1 => p_information1
260 ,p_information2 => p_information2
261 ,p_information3 => p_information3
262 ,p_information4 => p_information4
263 ,p_information5 => p_information5
264 ,p_information6 => p_information6
265 ,p_information7 => p_information7
266 ,p_information8 => p_information8
267 ,p_information9 => p_information9
268 ,p_information10 => p_information10
269 ,p_information11 => p_information11
270 ,p_information12 => p_information12
271 ,p_information13 => p_information13
272 ,p_information14 => p_information14
273 ,p_information15 => p_information15
274 ,p_information16 => p_information16
275 ,p_information17 => p_information17
276 ,p_information18 => p_information18
277 ,p_information19 => p_information19
278 ,p_information20 => p_information20
279 ,p_object_version_number => l_object_version_number
280 );
281
282
283 /*
284 =======
285 (p_effective_date => l_effective_date
286 ,p_business_group_id => p_business_group_id
287 ,p_in_out_parameter => <local_var_set_in_process_logic>
288 ,p_non_mandatory_arg => p_non_mandatory_arg
289 ,p_id => <local_var_set_in_process_logic>
290 ,p_object_version_number => <local_var_set_in_process_logic>
291 ,p_some_warning => <local_var_set_in_process_logic>
292 );
293 */
294 exception
298 ,p_hook_type => 'AP'
295 when hr_api.cannot_find_prog_unit then
296 hr_api.cannot_find_prog_unit_error
297 (p_module_name => 'CREATE_CHECKLIST'
299 );
300 end;
301 --
302 -- When in validation only mode raise the Validate_Enabled exception
303 --
304 if p_validate then
305 raise hr_api.validate_enabled;
306 end if;
307 --
308 -- Set all IN OUT and OUT parameters with out values
309 --
310 p_checklist_id := l_checklist_id;
311 --p_in_out_parameter := <local_var_set_in_process_logic>
312 p_object_version_number := l_object_version_number;
313 --p_some_warning := <local_var_set_in_process_logic>
314 --
315 hr_utility.set_location(' Leaving:'||l_proc, 70);
316 exception
317 when hr_api.validate_enabled then
318 --
319 -- As the Validate_Enabled exception has been raised
320 -- we must rollback to the savepoint
321 --
322 rollback to CREATE_CHECKLIST;
323 --
324 -- Reset IN OUT parameters and set OUT parameters
325 -- (Any key or derived arguments must be set to null
326 -- when validation only mode is being used.)
327 --
328 --p_in_out_parameter := l_in_out_parameter;
329 p_checklist_id := null;
330 p_object_version_number := null;
331 --p_some_warning := <local_var_set_in_process_logic>
332 hr_utility.set_location(' Leaving:'||l_proc, 80);
333 when others then
334 --
335 -- A validation or unexpected error has occured
336 --
337 rollback to CREATE_CHECKLIST;
338 --
339 -- Reset IN OUT parameters and set all
340 -- OUT parameters, including warnings, to null
341 --
342 --p_in_out_parameter := l_in_out_parameter;
343 p_checklist_id := null;
344 p_object_version_number := null;
345 --p_some_warning := null;
346 hr_utility.set_location(' Leaving:'||l_proc, 90);
347 raise;
348 end CREATE_CHECKLIST;
349 --
350 -- ----------------------------------------------------------------------------
351 -- |----------------------------< UPDATE_CHECKLIST >--------------------------|
352 -- ----------------------------------------------------------------------------
353 --
354 procedure UPDATE_CHECKLIST
355 (p_validate in boolean default false
356 ,p_effective_date in date
357 ,p_checklist_id in number
358 ,p_name in varchar2
359 ,p_description in varchar2 default null
360 ,p_business_group_id in number default null
361 ,p_life_event_reason_id in number default null
362 ,p_checklist_category in varchar2 default null
363 ,p_attribute_category in varchar2 default null
364 ,p_attribute1 in varchar2 default null
365 ,p_attribute2 in varchar2 default null
366 ,p_attribute3 in varchar2 default null
367 ,p_attribute4 in varchar2 default null
368 ,p_attribute5 in varchar2 default null
369 ,p_attribute6 in varchar2 default null
370 ,p_attribute7 in varchar2 default null
371 ,p_attribute8 in varchar2 default null
372 ,p_attribute9 in varchar2 default null
373 ,p_attribute10 in varchar2 default null
374 ,p_attribute11 in varchar2 default null
375 ,p_attribute12 in varchar2 default null
376 ,p_attribute13 in varchar2 default null
377 ,p_attribute14 in varchar2 default null
378 ,p_attribute15 in varchar2 default null
379 ,p_attribute16 in varchar2 default null
380 ,p_attribute17 in varchar2 default null
381 ,p_attribute18 in varchar2 default null
382 ,p_attribute19 in varchar2 default null
383 ,p_attribute20 in varchar2 default null
384 ,p_information_category in varchar2 default null
385 ,p_information1 in varchar2 default null
386 ,p_information2 in varchar2 default null
387 ,p_information3 in varchar2 default null
388 ,p_information4 in varchar2 default null
389 ,p_information5 in varchar2 default null
390 ,p_information6 in varchar2 default null
391 ,p_information7 in varchar2 default null
392 ,p_information8 in varchar2 default null
393 ,p_information9 in varchar2 default null
394 ,p_information10 in varchar2 default null
395 ,p_information11 in varchar2 default null
396 ,p_information12 in varchar2 default null
397 ,p_information13 in varchar2 default null
398 ,p_information14 in varchar2 default null
399 ,p_information15 in varchar2 default null
400 ,p_information16 in varchar2 default null
401 ,p_information17 in varchar2 default null
402 ,p_information18 in varchar2 default null
403 ,p_information19 in varchar2 default null
404 ,p_information20 in varchar2 default null
405 ,p_object_version_number in out nocopy number
406 ) is
410 --
407
408 --
409 -- Declare cursors and local variables
411 l_proc varchar2(72) := g_package||'update_checklist';
412 l_effective_date date;
413 l_object_version_number number;
414 l_temp_ovn number;
415
416 begin
417 hr_utility.set_location('Entering:'|| l_proc, 10);
418 --
419 -- Issue a savepoint
420 --
421 savepoint UPDATE_CHECKLIST;
422 --
423 -- Truncate the time portion from all IN date parameters
424 --
425 l_effective_date := TRUNC(p_effective_date);
426 l_object_version_number := p_object_version_number;
427 l_temp_ovn := p_object_version_number;
428 /* This needs to be removed, after confirming this is not needed TP
429 --
430 --
431 -- Validate the language parameter. l_language_code should be passed
432 -- instead of p_language_code from now on, to allow an IN OUT parameter to
433 -- be passed through.
434 --
435 l_language_code := p_language_code;
436 hr_api.validate_language_code(p_language_code => l_language_code);
437 */
438 --
439 -- Call Before Process User Hook
440 --
441 begin
442 PER_CHECKLISTS_BK2.UPDATE_CHECKLIST_B
443 (p_effective_date => l_effective_date
444 ,p_checklist_id => p_checklist_id
445 ,p_name => p_name
446 ,p_description => p_description
447 ,p_business_group_id => p_business_group_id
448 ,p_life_event_reason_id => p_life_event_reason_id
449 ,p_checklist_category => p_checklist_category
450 ,p_attribute_category => p_attribute_category
451 ,p_attribute1 => p_attribute1
452 ,p_attribute2 => p_attribute2
453 ,p_attribute3 => p_attribute3
454 ,p_attribute4 => p_attribute4
455 ,p_attribute5 => p_attribute5
456 ,p_attribute6 => p_attribute6
457 ,p_attribute7 => p_attribute7
458 ,p_attribute8 => p_attribute8
459 ,p_attribute9 => p_attribute9
460 ,p_attribute10 => p_attribute10
461 ,p_attribute11 => p_attribute11
462 ,p_attribute12 => p_attribute12
463 ,p_attribute13 => p_attribute13
464 ,p_attribute14 => p_attribute14
465 ,p_attribute15 => p_attribute15
466 ,p_attribute16 => p_attribute16
467 ,p_attribute17 => p_attribute17
468 ,p_attribute18 => p_attribute18
469 ,p_attribute19 => p_attribute19
470 ,p_attribute20 => p_attribute20
471 ,p_information_category => p_information_category
472 ,p_information1 => p_information1
473 ,p_information2 => p_information2
474 ,p_information3 => p_information3
475 ,p_information4 => p_information4
476 ,p_information5 => p_information5
477 ,p_information6 => p_information6
478 ,p_information7 => p_information7
479 ,p_information8 => p_information8
480 ,p_information9 => p_information9
481 ,p_information10 => p_information10
482 ,p_information11 => p_information11
483 ,p_information12 => p_information12
484 ,p_information13 => p_information13
485 ,p_information14 => p_information14
486 ,p_information15 => p_information15
487 ,p_information16 => p_information16
488 ,p_information17 => p_information17
489 ,p_information18 => p_information18
490 ,p_information19 => p_information19
491 ,p_information20 => p_information20
492 ,p_object_version_number => l_object_version_number
493 );
494 --
495 exception
496 when hr_Api.cannot_find_prog_unit then
497 hr_Api.cannot_find_prog_unit_error
498 (p_module_name => 'UPDATE_CHECKLIST'
499 ,p_hook_type => 'BP'
500 );
501 end;
502
503 --
504 -- Process Logic
505 --
506
507
508 per_ckl_upd.upd
509 (p_effective_date => l_effective_date
510 ,p_object_version_number => l_object_version_number
511 ,p_checklist_id => p_checklist_id
512 ,p_name => p_name
513 ,p_description => p_description
514 ,p_event_reason_id => p_life_event_reason_id
515 ,p_checklist_category => p_checklist_category
516 ,p_attribute_category => p_attribute_category
517 ,p_attribute1 => p_attribute1
518 ,p_attribute2 => p_attribute2
519 ,p_attribute3 => p_attribute3
520 ,p_attribute4 => p_attribute4
521 ,p_attribute5 => p_attribute5
522 ,p_attribute6 => p_attribute6
523 ,p_attribute7 => p_attribute7
524 ,p_attribute8 => p_attribute8
525 ,p_attribute9 => p_attribute9
526 ,p_attribute10 => p_attribute10
527 ,p_attribute11 => p_attribute11
528 ,p_attribute12 => p_attribute12
529 ,p_attribute13 => p_attribute13
533 ,p_attribute17 => p_attribute17
530 ,p_attribute14 => p_attribute14
531 ,p_attribute15 => p_attribute15
532 ,p_attribute16 => p_attribute16
534 ,p_attribute18 => p_attribute18
535 ,p_attribute19 => p_attribute19
536 ,p_attribute20 => p_attribute20
537 ,p_information_category => p_information_category
538 ,p_information1 => p_information1
539 ,p_information2 => p_information2
540 ,p_information3 => p_information3
541 ,p_information4 => p_information4
542 ,p_information5 => p_information5
543 ,p_information6 => p_information6
544 ,p_information7 => p_information7
545 ,p_information8 => p_information8
546 ,p_information9 => p_information9
547 ,p_information10 => p_information10
548 ,p_information11 => p_information11
549 ,p_information12 => p_information12
550 ,p_information13 => p_information13
551 ,p_information14 => p_information14
552 ,p_information15 => p_information15
553 ,p_information16 => p_information16
554 ,p_information17 => p_information17
555 ,p_information18 => p_information18
556 ,p_information19 => p_information19
557 ,p_information20 => p_information20
558 );
559
560 --
561 -- Call After Process User Hook
562 --
563 begin
564 PER_CHECKLISTS_BK2.UPDATE_CHECKLIST_A
565 (p_effective_date => l_effective_date
566 ,p_checklist_id => p_checklist_id
567 ,p_name => p_name
568 ,p_description => p_description
569 ,p_business_group_id => p_business_group_id
570 ,p_life_event_reason_id => p_life_event_reason_id
571 ,p_checklist_category => p_checklist_category
572 ,p_attribute_category => p_attribute_category
573 ,p_attribute1 => p_attribute1
574 ,p_attribute2 => p_attribute2
575 ,p_attribute3 => p_attribute3
576 ,p_attribute4 => p_attribute4
577 ,p_attribute5 => p_attribute5
578 ,p_attribute6 => p_attribute6
579 ,p_attribute7 => p_attribute7
580 ,p_attribute8 => p_attribute8
581 ,p_attribute9 => p_attribute9
582 ,p_attribute10 => p_attribute10
583 ,p_attribute11 => p_attribute11
584 ,p_attribute12 => p_attribute12
585 ,p_attribute13 => p_attribute13
586 ,p_attribute14 => p_attribute14
587 ,p_attribute15 => p_attribute15
588 ,p_attribute16 => p_attribute16
589 ,p_attribute17 => p_attribute17
590 ,p_attribute18 => p_attribute18
591 ,p_attribute19 => p_attribute19
592 ,p_attribute20 => p_attribute20
593 ,p_information_category => p_information_category
594 ,p_information1 => p_information1
595 ,p_information2 => p_information2
596 ,p_information3 => p_information3
597 ,p_information4 => p_information4
598 ,p_information5 => p_information5
599 ,p_information6 => p_information6
600 ,p_information7 => p_information7
601 ,p_information8 => p_information8
602 ,p_information9 => p_information9
603 ,p_information10 => p_information10
604 ,p_information11 => p_information11
605 ,p_information12 => p_information12
606 ,p_information13 => p_information13
607 ,p_information14 => p_information14
608 ,p_information15 => p_information15
609 ,p_information16 => p_information16
610 ,p_information17 => p_information17
611 ,p_information18 => p_information18
612 ,p_information19 => p_information19
613 ,p_information20 => p_information20
614 ,p_object_version_number => l_object_version_number);
615 exception
616 when hr_Api.cannot_find_prog_unit then
617 hr_Api.cannot_find_prog_unit_error
618 (p_module_name => 'UPDATE_CHECKLIST'
619 ,p_hook_type => 'AP'
620 );
621 end;
622 --
623 -- When in validation only mode raise the Validate_Enabled exception
624 --
625 if p_validate then
626 raise hr_Api.validate_enabled;
627 end if;
628 --
629 -- Set all output arguements
630 --
631 p_object_version_number := l_object_version_number;
632 hr_utility.set_location(' Leaving:'||l_proc, 70);
633 exception
634 when hr_Api.validate_enabled then
635 --
636 -- As the Validate_Enabled exception has been raised
637 -- we must rollback to the savepoint
638 --
639 rollback to UPDATE_CHECKLIST;
640 --
641 -- Only set output warning arguments
642 -- (Any key or derived arguments must be set to null
643 -- when validation only mode is being used.)
644 --
645 hr_utility.set_location(' Leaving:'||l_proc, 80);
646 when others then
647 --
648 -- A validation or unexpected error has occured
649 --
650 p_object_version_number := l_temp_ovn;
651 rollback to UPDATE_CHECKLIST;
655 end UPDATE_CHECKLIST;
652 hr_utility.set_location(' Leaving:'||l_proc, 90);
653 raise;
654
656 --
657 -- ----------------------------------------------------------------------------
658 -- |-----------------------------<DELETE_CHECKLIST>---------------------------|
659 -- ----------------------------------------------------------------------------
660 --
661 procedure DELETE_CHECKLIST
662 (p_validate in boolean default false
663 ,p_checklist_id in number
664 ,p_object_version_number in number
665 ) is
666 --
667 -- Declare cursors and local variables
668 --
669 l_proc varchar2(72) := g_package||'delete_checklist';
670 l_object_version_number number(9) := p_object_version_number;
671
672 begin
673 hr_utility.set_location('Entering:'|| l_proc, 10);
674 --
675 -- Issue a savepoint
676 --
677 savepoint DELETE_CHECKLIST;
678 --
679 -- Call Before Process User Hook
680 --
681 begin
682 PER_CHECKLISTS_BK3.DELETE_CHECKLIST_B
683 (p_checklist_id => p_checklist_id
684 ,p_object_version_number => p_object_version_number
685 );
686 exception
687 when hr_Api.cannot_find_prog_unit then
688 hr_Api.cannot_find_prog_unit_error
689 (p_module_name => 'DELETE_CHECKLIST'
690 ,p_hook_type => 'BP'
691 );
692 end;
693
694 --
695 -- Process Logic
696 --
697 per_ckl_del.del
698 (p_checklist_id => p_checklist_id
699 ,p_object_version_number => p_object_version_number
700 );
701
702 --
703 -- Call After Process User Hook
704 --
705 begin
706 PER_CHECKLISTS_BK3.DELETE_CHECKLIST_A
707 (p_checklist_id => p_checklist_id
708 ,p_object_version_number => p_object_version_number
709 );
710 exception
711 when hr_api.cannot_find_prog_unit then
712 hr_Api.cannot_find_prog_unit_error
713 (p_module_name => 'DELETE_CHECKLIST'
714 ,p_hook_type => 'AP'
715 );
716 end;
717 --
718 -- When in validation only mode raise the Validate_Enabled exception
719 --
720 if p_validate then
721 raise hr_Api.validate_enabled;
722 end if;
723 --
724 hr_utility.set_location(' Leaving:'||l_proc, 70);
725 exception
726 when hr_Api.validate_enabled then
727 --
728 -- As the Validate_Enabled exception has been raised
729 -- we must rollback to the savepoint
730 --
731 rollback to DELETE_CHECKLIST;
732 --
733 hr_utility.set_location(' Leaving:'||l_proc, 80);
734 when others then
735 --
736 -- A validation or unexpected error has occured
737 --
738 rollback to DELETE_CHECKLIST;
739 hr_utility.set_location(' Leaving:'||l_proc, 90);
740 raise;
741 end DELETE_CHECKLIST;
742 --
743 end PER_CHECKLISTS_API;