[Home] [Help]
PACKAGE BODY: APPS.HR_RETAINED_RIGHTS_API
Source
1 Package Body HR_RETAINED_RIGHTS_API as
2 /* $Header: peretapi.pkb 115.1 2002/12/10 14:29:13 eumenyio noship $ */
3 --
4 -- Package Variables
5 --
6 g_package varchar2(25) := 'hr_retained_rights_api';
7 --
8 -- ----------------------------------------------------------------------------
9 -- |------------------------< create_retained_right >--------------------------|
10 -- ----------------------------------------------------------------------------
11 --
12 procedure create_retained_right
13 (p_validate in boolean default false
14 ,p_effective_date in date
15 ,p_cagr_entitlement_result_id in number
16 ,p_start_date in date
17 ,p_end_date in date default hr_api.g_date
18 ,p_freeze_flag in varchar2 default hr_api.g_varchar2
19 ,p_cagr_retained_right_id out nocopy number
20 ,p_object_version_number out nocopy number) is
21 --
22 -- Declare cursors and local variables
23 --
24
25 -- check if result already has a retained right
26 CURSOR csr_ret_rights IS
27 SELECT null
28 FROM PER_CAGR_RETAINED_RIGHTS crr
29 WHERE crr.cagr_entitlement_result_id = p_cagr_entitlement_result_id;
30
31 -- fetch result data to create the retained right
32 CURSOR csr_results IS
33 SELECT *
34 FROM PER_CAGR_ENTITLEMENT_RESULTS er
35 WHERE er.cagr_entitlement_result_id = p_cagr_entitlement_result_id;
36
37 l_proc varchar2(72) := g_package||'create_retained_right';
38 l_result csr_results%ROWTYPE;
39 l_dummy varchar2(1);
40 l_cagr_retained_right_id per_cagr_retained_rights.cagr_retained_right_id%TYPE;
41 l_object_version_number per_cagr_retained_rights.object_version_number%TYPE;
42 l_effective_date date;
43 l_start_date per_cagr_retained_rights.start_date%TYPE;
44 l_end_date per_cagr_retained_rights.end_date%TYPE;
45 --
46 begin
47 hr_utility.set_location('Entering:'|| l_proc, 10);
48 --
49 -- Issue a savepoint
50 --
51 savepoint create_retained_right;
52 --
53 -- Truncate the time portion from all IN date parameters
54 --
55 l_effective_date := trunc(p_effective_date);
56 l_start_date := trunc(p_start_date);
57 l_end_date := trunc(p_end_date);
58
59 --
60 -- First test if it is valid to create the rr for the result
61 --
62 open csr_ret_rights;
63 fetch csr_ret_rights into l_dummy;
64 if csr_ret_rights%found then
65 close csr_ret_rights;
66 fnd_message.set_name(800, 'PER_XXXXX_INV_CAGR_RES_EXISTS');
67 fnd_message.set_token('CAGR_ENTITLEMENT_RESULT_ID', p_cagr_entitlement_result_id);
68 fnd_message.raise_error;
69 end if;
70 close csr_ret_rights;
71
72 -- Next get the result data as identified by cagr_entitlement_result_id
73 -- param, so that the retained right record can be populated
74 -- (We do this even if the the retained right is not frozen)
75 --
76 open csr_results;
77 fetch csr_results into l_result;
78 if csr_results%notfound then
79 close csr_results;
80 fnd_message.set_name(800, 'PER_XXXXX_INV_CAGR_RESULT_ID');
81 fnd_message.set_token('CAGR_ENTITLEMENT_RESULT_ID', p_cagr_entitlement_result_id);
82 fnd_message.raise_error;
83 end if;
84 close csr_results;
85
86
87 /* comment hooks for now
88 --
89 -- Call Before Process User Hook
90 --
91 begin
92 per_work_incident_bk1.create_work_incident_b
93 (p_effective_date => l_effective_date
94 ,p_person_id => p_person_id
95 ,p_incident_reference => p_incident_reference
96 ,p_incident_type => p_incident_type
97 ,p_at_work_flag => p_at_work_flag
98 ,p_incident_date => l_incident_date
99 ,p_incident_time => p_incident_time
100 ,p_org_notified_date => l_org_notified_date
101 ,p_assignment_id => p_assignment_id
102 ,p_location => p_location
103 ,p_report_date => p_report_date
104 ,p_report_time => p_report_time
105 ,p_report_method => p_report_method
106 ,p_person_reported_by => p_person_reported_by
107 ,p_person_reported_to => p_person_reported_to
108 ,p_witness_details => p_witness_details
109 ,p_description => p_description
110 ,p_injury_type => p_injury_type
111 ,p_disease_type => p_disease_type
112 ,p_hazard_type => p_hazard_type
113 ,p_body_part => p_body_part
114 ,p_treatment_received_flag => p_treatment_received_flag
115 ,p_hospital_details => p_hospital_details
116 ,p_doctor_name => p_doctor_name
117 ,p_compensation_date => p_compensation_date
118 ,p_compensation_currency => p_compensation_currency
119 ,p_compensation_amount => p_compensation_amount
120 ,p_remedial_hs_action => p_remedial_hs_action
121 ,p_notified_hsrep_id => p_notified_hsrep_id
122 ,p_notified_hsrep_date => p_notified_hsrep_date
123 ,p_notified_rep_id => p_notified_rep_id
124 ,p_notified_rep_date => p_notified_rep_date
125 ,p_notified_rep_org_id => p_notified_rep_org_id
126 ,p_related_incident_id => p_related_incident_id
127 ,p_over_time_flag => p_over_time_flag
128 ,p_absence_exists_flag => p_absence_exists_flag
129 ,p_attribute_category => p_attribute_category
130 ,p_attribute1 => p_attribute1
131 ,p_attribute2 => p_attribute2
132 ,p_attribute3 => p_attribute3
133 ,p_attribute4 => p_attribute4
134 ,p_attribute5 => p_attribute5
135 ,p_attribute6 => p_attribute6
136 ,p_attribute7 => p_attribute7
137 ,p_attribute8 => p_attribute8
138 ,p_attribute9 => p_attribute9
139 ,p_attribute10 => p_attribute10
140 ,p_attribute11 => p_attribute11
141 ,p_attribute12 => p_attribute12
142 ,p_attribute13 => p_attribute13
143 ,p_attribute14 => p_attribute14
144 ,p_attribute15 => p_attribute15
145 ,p_attribute16 => p_attribute16
146 ,p_attribute17 => p_attribute17
147 ,p_attribute18 => p_attribute18
148 ,p_attribute19 => p_attribute19
149 ,p_attribute20 => p_attribute20
150 ,p_attribute21 => p_attribute21
151 ,p_attribute22 => p_attribute22
152 ,p_attribute23 => p_attribute23
153 ,p_attribute24 => p_attribute24
154 ,p_attribute25 => p_attribute25
155 ,p_attribute26 => p_attribute26
156 ,p_attribute27 => p_attribute27
157 ,p_attribute28 => p_attribute28
158 ,p_attribute29 => p_attribute29
159 ,p_attribute30 => p_attribute30
160 ,p_inc_information_category => p_inc_information_category
161 ,p_inc_information1 => p_inc_information1
162 ,p_inc_information2 => p_inc_information2
163 ,p_inc_information3 => p_inc_information3
164 ,p_inc_information4 => p_inc_information4
165 ,p_inc_information5 => p_inc_information5
166 ,p_inc_information6 => p_inc_information6
167 ,p_inc_information7 => p_inc_information7
168 ,p_inc_information8 => p_inc_information8
169 ,p_inc_information9 => p_inc_information9
170 ,p_inc_information10 => p_inc_information10
171 ,p_inc_information11 => p_inc_information11
172 ,p_inc_information12 => p_inc_information12
173 ,p_inc_information13 => p_inc_information13
174 ,p_inc_information14 => p_inc_information14
175 ,p_inc_information15 => p_inc_information15
176 ,p_inc_information16 => p_inc_information16
177 ,p_inc_information17 => p_inc_information17
178 ,p_inc_information18 => p_inc_information18
179 ,p_inc_information19 => p_inc_information19
180 ,p_inc_information20 => p_inc_information20
181 ,p_inc_information21 => p_inc_information21
182 ,p_inc_information22 => p_inc_information22
183 ,p_inc_information23 => p_inc_information23
184 ,p_inc_information24 => p_inc_information24
185 ,p_inc_information25 => p_inc_information25
186 ,p_inc_information26 => p_inc_information26
187 ,p_inc_information27 => p_inc_information27
188 ,p_inc_information28 => p_inc_information28
189 ,p_inc_information29 => p_inc_information29
190 ,p_inc_information30 => p_inc_information30
191 );
192 exception
193 when hr_api.cannot_find_prog_unit then
194 hr_api.cannot_find_prog_unit_error
195 (p_module_name => 'create_work_incident_b'
196 ,p_hook_type => 'BP'
197 );
198 end;
199
200 */
201 --
202 -- Validation in addition to Row Handlers
203 --
204 --
205 -- Process Logic
206 --
207 per_ret_ins.ins
208 (p_effective_date => l_effective_date
209 ,p_assignment_id => l_result.assignment_id
210 ,p_cagr_entitlement_item_id => l_result.cagr_entitlement_item_id
211 ,p_collective_agreement_id => l_result.collective_agreement_id
212 ,p_cagr_entitlement_id => l_result.cagr_entitlement_id
213 ,p_category_name => l_result.category_name
214 ,p_element_type_id => l_result.element_type_id
215 ,p_input_value_id => l_result.input_value_id
216 ,p_cagr_api_id => l_result.cagr_api_id
217 ,p_cagr_api_param_id => l_result.cagr_api_param_id
218 ,p_cagr_entitlement_line_id => l_result.cagr_entitlement_line_id
219 ,p_freeze_flag => p_freeze_flag
220 ,p_value => l_result.value
221 ,p_units_of_measure => l_result.units_of_measure
222 ,p_start_date => l_start_date
223 ,p_end_date => l_end_date
224 ,p_parent_spine_id => l_result.parent_spine_id
225 ,p_formula_id => l_result.formula_id
226 ,p_oipl_id => l_result.oipl_id
227 ,p_step_id => l_result.step_id
228 ,p_grade_spine_id => l_result.grade_spine_id
229 ,p_column_type => l_result.column_type
230 ,p_column_size => l_result.column_size
231 ,p_eligy_prfl_id => l_result.eligy_prfl_id
232 ,p_cagr_entitlement_result_id => l_result.cagr_entitlement_result_id
233 ,p_business_group_id => l_result.business_group_id
234 ,p_flex_value_set_id => l_result.flex_value_set_id
235 ,p_cagr_retained_right_id => l_cagr_retained_right_id
236 ,p_object_version_number => l_object_version_number);
237
238 /* comment hooks for now
239 --
240 -- Call After Process User Hook
241 --
242 begin
243 per_work_incident_bk1.create_work_incident_a
244 (p_effective_date => l_effective_date
245 ,p_person_id => p_person_id
246 ,p_incident_reference => p_incident_reference
247 ,p_incident_type => p_incident_type
248 ,p_at_work_flag => p_at_work_flag
249 ,p_incident_date => l_incident_date
250 ,p_incident_time => p_incident_time
251 ,p_org_notified_date => l_org_notified_date
252 ,p_assignment_id => p_assignment_id
253 ,p_location => p_location
254 ,p_report_date => p_report_date
255 ,p_report_time => p_report_time
256 ,p_report_method => p_report_method
257 ,p_person_reported_by => p_person_reported_by
258 ,p_person_reported_to => p_person_reported_to
259 ,p_witness_details => p_witness_details
260 ,p_description => p_description
261 ,p_injury_type => p_injury_type
262 ,p_disease_type => p_disease_type
263 ,p_hazard_type => p_hazard_type
264 ,p_body_part => p_body_part
265 ,p_treatment_received_flag => p_treatment_received_flag
266 ,p_hospital_details => p_hospital_details
267 ,p_doctor_name => p_doctor_name
268 ,p_compensation_date => p_compensation_date
269 ,p_compensation_currency => p_compensation_currency
270 ,p_compensation_amount => p_compensation_amount
271 ,p_remedial_hs_action => p_remedial_hs_action
272 ,p_notified_hsrep_id => p_notified_hsrep_id
273 ,p_notified_hsrep_date => p_notified_hsrep_date
274 ,p_notified_rep_id => p_notified_rep_id
275 ,p_notified_rep_date => p_notified_rep_date
276 ,p_notified_rep_org_id => p_notified_rep_org_id
277 ,p_related_incident_id => p_related_incident_id
278 ,p_over_time_flag => p_over_time_flag
279 ,p_absence_exists_flag => p_absence_exists_flag
280 ,p_attribute_category => p_attribute_category
281 ,p_attribute1 => p_attribute1
282 ,p_attribute2 => p_attribute2
283 ,p_attribute3 => p_attribute3
284 ,p_attribute4 => p_attribute4
285 ,p_attribute5 => p_attribute5
286 ,p_attribute6 => p_attribute6
287 ,p_attribute7 => p_attribute7
288 ,p_attribute8 => p_attribute8
289 ,p_attribute9 => p_attribute9
290 ,p_attribute10 => p_attribute10
291 ,p_attribute11 => p_attribute11
292 ,p_attribute12 => p_attribute12
293 ,p_attribute13 => p_attribute13
294 ,p_attribute14 => p_attribute14
295 ,p_attribute15 => p_attribute15
296 ,p_attribute16 => p_attribute16
297 ,p_attribute17 => p_attribute17
298 ,p_attribute18 => p_attribute18
299 ,p_attribute19 => p_attribute19
300 ,p_attribute20 => p_attribute20
301 ,p_attribute21 => p_attribute21
302 ,p_attribute22 => p_attribute22
303 ,p_attribute23 => p_attribute23
304 ,p_attribute24 => p_attribute24
305 ,p_attribute25 => p_attribute25
306 ,p_attribute26 => p_attribute26
307 ,p_attribute27 => p_attribute27
308 ,p_attribute28 => p_attribute28
309 ,p_attribute29 => p_attribute29
310 ,p_attribute30 => p_attribute30
311 ,p_inc_information_category => p_inc_information_category
312 ,p_inc_information1 => p_inc_information1
313 ,p_inc_information2 => p_inc_information2
314 ,p_inc_information3 => p_inc_information3
315 ,p_inc_information4 => p_inc_information4
316 ,p_inc_information5 => p_inc_information5
317 ,p_inc_information6 => p_inc_information6
318 ,p_inc_information7 => p_inc_information7
319 ,p_inc_information8 => p_inc_information8
320 ,p_inc_information9 => p_inc_information9
321 ,p_inc_information10 => p_inc_information10
322 ,p_inc_information11 => p_inc_information11
323 ,p_inc_information12 => p_inc_information12
324 ,p_inc_information13 => p_inc_information13
325 ,p_inc_information14 => p_inc_information14
326 ,p_inc_information15 => p_inc_information15
327 ,p_inc_information16 => p_inc_information16
328 ,p_inc_information17 => p_inc_information17
329 ,p_inc_information18 => p_inc_information18
330 ,p_inc_information19 => p_inc_information19
331 ,p_inc_information20 => p_inc_information20
332 ,p_inc_information21 => p_inc_information21
333 ,p_inc_information22 => p_inc_information22
334 ,p_inc_information23 => p_inc_information23
335 ,p_inc_information24 => p_inc_information24
336 ,p_inc_information25 => p_inc_information25
337 ,p_inc_information26 => p_inc_information26
338 ,p_inc_information27 => p_inc_information27
339 ,p_inc_information28 => p_inc_information28
340 ,p_inc_information29 => p_inc_information29
341 ,p_inc_information30 => p_inc_information30
342 ,p_incident_id => l_incident_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_work_incident_a'
349 ,p_hook_type => 'AP'
350 );
351 end;
352 */
353 --
354 -- When in validation only mode raise the Validate_Enabled exception
355 --
356 if p_validate then
357 raise hr_api.validate_enabled;
358 end if;
359 --
360 -- Set all output arguments
361 --
362 p_cagr_retained_right_id := l_cagr_retained_right_id;
363 p_object_version_number := l_object_version_number;
364 --
365 hr_utility.set_location(' Leaving:'||l_proc, 70);
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_retained_right;
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_cagr_retained_right_id := null;
379 p_object_version_number := null;
380 hr_utility.set_location(' Leaving:'||l_proc, 80);
381 when others then
382 --
383 -- A validation or unexpected error has occured
384 --
385 rollback to create_retained_right;
386 hr_utility.set_location(' Leaving:'||l_proc, 90);
387 raise;
388 end create_retained_right;
389 --
390 -- ----------------------------------------------------------------------------
391 -- |-------------------------< update_retained_right >-------------------------|
392 -- ----------------------------------------------------------------------------
393 --
394 procedure update_retained_right
395 (p_validate in boolean default false
396 ,p_effective_date in date
397 ,p_cagr_retained_right_id in number
398 ,p_end_date in date default hr_api.g_date
399 ,p_object_version_number in out nocopy number
400 ) is
401 --
402 -- Declare cursors and local variables
403 --
404 l_proc varchar2(72) := g_package||'update_retained_right';
405 l_cagr_retained_right_id per_cagr_retained_rights.cagr_retained_right_id%TYPE;
406 l_object_version_number per_cagr_retained_rights.object_version_number%TYPE;
407 l_effective_date date;
408 l_end_date per_cagr_retained_rights.end_date%TYPE;
409 --
410 begin
411 hr_utility.set_location('Entering:'|| l_proc, 10);
412 --
413 -- Issue a savepoint
414 --
415 savepoint update_retained_right;
416 --
417 -- Store initial values for IN OUT parameters
418 --
419 l_object_version_number := p_object_version_number;
420 --
421 -- Truncate the time portion from all IN date parameters
422 --
423 l_effective_date := trunc(p_effective_date);
424 l_end_date := trunc(p_end_date);
425 /*
426 --
427 -- Call Before Process User Hook
428 --
429 begin
430 per_work_incident_bk2.update_work_incident_b
431 (p_effective_date => l_effective_date
432 ,p_incident_id => p_incident_id
433 ,p_object_version_number => p_object_version_number
434 ,p_incident_reference => p_incident_reference
435 ,p_incident_type => p_incident_type
436 ,p_at_work_flag => p_at_work_flag
437 ,p_incident_date => l_incident_date
438 ,p_incident_time => p_incident_time
439 ,p_org_notified_date => l_org_notified_date
440 ,p_assignment_id => p_assignment_id
441 ,p_location => p_location
442 ,p_report_date => p_report_date
443 ,p_report_time => p_report_time
444 ,p_report_method => p_report_method
445 ,p_person_reported_by => p_person_reported_by
446 ,p_person_reported_to => p_person_reported_to
447 ,p_witness_details => p_witness_details
448 ,p_description => p_description
449 ,p_injury_type => p_injury_type
450 ,p_disease_type => p_disease_type
451 ,p_hazard_type => p_hazard_type
452 ,p_body_part => p_body_part
453 ,p_treatment_received_flag => p_treatment_received_flag
454 ,p_hospital_details => p_hospital_details
455 ,p_doctor_name => p_doctor_name
456 ,p_compensation_date => p_compensation_date
457 ,p_compensation_currency => p_compensation_currency
458 ,p_compensation_amount => p_compensation_amount
459 ,p_remedial_hs_action => p_remedial_hs_action
460 ,p_notified_hsrep_id => p_notified_hsrep_id
461 ,p_notified_hsrep_date => p_notified_hsrep_date
462 ,p_notified_rep_id => p_notified_rep_id
463 ,p_notified_rep_date => p_notified_rep_date
464 ,p_notified_rep_org_id => p_notified_rep_org_id
465 ,p_related_incident_id => p_related_incident_id
466 ,p_over_time_flag => p_over_time_flag
467 ,p_absence_exists_flag => p_absence_exists_flag
468 ,p_attribute_category => p_attribute_category
469 ,p_attribute1 => p_attribute1
470 ,p_attribute2 => p_attribute2
471 ,p_attribute3 => p_attribute3
472 ,p_attribute4 => p_attribute4
473 ,p_attribute5 => p_attribute5
474 ,p_attribute6 => p_attribute6
475 ,p_attribute7 => p_attribute7
476 ,p_attribute8 => p_attribute8
477 ,p_attribute9 => p_attribute9
478 ,p_attribute10 => p_attribute10
479 ,p_attribute11 => p_attribute11
480 ,p_attribute12 => p_attribute12
481 ,p_attribute13 => p_attribute13
482 ,p_attribute14 => p_attribute14
483 ,p_attribute15 => p_attribute15
484 ,p_attribute16 => p_attribute16
485 ,p_attribute17 => p_attribute17
486 ,p_attribute18 => p_attribute18
487 ,p_attribute19 => p_attribute19
488 ,p_attribute20 => p_attribute20
489 ,p_attribute21 => p_attribute21
490 ,p_attribute22 => p_attribute22
491 ,p_attribute23 => p_attribute23
492 ,p_attribute24 => p_attribute24
493 ,p_attribute25 => p_attribute25
494 ,p_attribute26 => p_attribute26
495 ,p_attribute27 => p_attribute27
496 ,p_attribute28 => p_attribute28
497 ,p_attribute29 => p_attribute29
498 ,p_attribute30 => p_attribute30
499 ,p_inc_information_category => p_inc_information_category
500 ,p_inc_information1 => p_inc_information1
501 ,p_inc_information2 => p_inc_information2
502 ,p_inc_information3 => p_inc_information3
503 ,p_inc_information4 => p_inc_information4
504 ,p_inc_information5 => p_inc_information5
505 ,p_inc_information6 => p_inc_information6
506 ,p_inc_information7 => p_inc_information7
507 ,p_inc_information8 => p_inc_information8
508 ,p_inc_information9 => p_inc_information9
509 ,p_inc_information10 => p_inc_information10
510 ,p_inc_information11 => p_inc_information11
511 ,p_inc_information12 => p_inc_information12
512 ,p_inc_information13 => p_inc_information13
513 ,p_inc_information14 => p_inc_information14
514 ,p_inc_information15 => p_inc_information15
515 ,p_inc_information16 => p_inc_information16
516 ,p_inc_information17 => p_inc_information17
517 ,p_inc_information18 => p_inc_information18
518 ,p_inc_information19 => p_inc_information19
519 ,p_inc_information20 => p_inc_information20
520 ,p_inc_information21 => p_inc_information21
521 ,p_inc_information22 => p_inc_information22
522 ,p_inc_information23 => p_inc_information23
523 ,p_inc_information24 => p_inc_information24
524 ,p_inc_information25 => p_inc_information25
525 ,p_inc_information26 => p_inc_information26
526 ,p_inc_information27 => p_inc_information27
527 ,p_inc_information28 => p_inc_information28
528 ,p_inc_information29 => p_inc_information29
529 ,p_inc_information30 => p_inc_information30
530 );
531 exception
532 when hr_api.cannot_find_prog_unit then
533 hr_api.cannot_find_prog_unit_error
534 (p_module_name => 'update_work_incident_b'
535 ,p_hook_type => 'BP'
536 );
537 end;
538 */
539 --
540 -- Validation in addition to Row Handlers
541 --
542 --
543 -- Process Logic
544 --
545 per_ret_upd.upd
546 (p_effective_date => l_effective_date
547 ,p_cagr_retained_right_id => p_cagr_retained_right_id
548 ,p_object_version_number => l_object_version_number
549 ,p_end_date => l_end_date
550 );
551
552 /*
553 --
554 -- Call After Process User Hook
555 --
556 begin
557 per_work_incident_bk2.update_work_incident_a
558 (p_effective_date => l_effective_date
559 ,p_incident_id => p_incident_id
560 ,p_object_version_number => l_object_version_number
561 ,p_incident_reference => p_incident_reference
562 ,p_incident_type => p_incident_type
563 ,p_at_work_flag => p_at_work_flag
564 ,p_incident_date => l_incident_date
565 ,p_incident_time => p_incident_time
566 ,p_org_notified_date => l_org_notified_date
567 ,p_assignment_id => p_assignment_id
568 ,p_location => p_location
569 ,p_report_date => p_report_date
570 ,p_report_time => p_report_time
571 ,p_report_method => p_report_method
572 ,p_person_reported_by => p_person_reported_by
573 ,p_person_reported_to => p_person_reported_to
574 ,p_witness_details => p_witness_details
575 ,p_description => p_description
576 ,p_injury_type => p_injury_type
577 ,p_disease_type => p_disease_type
578 ,p_hazard_type => p_hazard_type
579 ,p_body_part => p_body_part
580 ,p_treatment_received_flag => p_treatment_received_flag
581 ,p_hospital_details => p_hospital_details
582 ,p_doctor_name => p_doctor_name
583 ,p_compensation_date => p_compensation_date
584 ,p_compensation_currency => p_compensation_currency
585 ,p_compensation_amount => p_compensation_amount
586 ,p_remedial_hs_action => p_remedial_hs_action
587 ,p_notified_hsrep_id => p_notified_hsrep_id
588 ,p_notified_hsrep_date => p_notified_hsrep_date
589 ,p_notified_rep_id => p_notified_rep_id
590 ,p_notified_rep_date => p_notified_rep_date
591 ,p_notified_rep_org_id => p_notified_rep_org_id
592 ,p_related_incident_id => p_related_incident_id
593 ,p_over_time_flag => p_over_time_flag
594 ,p_absence_exists_flag => p_absence_exists_flag
595 ,p_attribute_category => p_attribute_category
596 ,p_attribute1 => p_attribute1
597 ,p_attribute2 => p_attribute2
598 ,p_attribute3 => p_attribute3
599 ,p_attribute4 => p_attribute4
600 ,p_attribute5 => p_attribute5
601 ,p_attribute6 => p_attribute6
602 ,p_attribute7 => p_attribute7
603 ,p_attribute8 => p_attribute8
604 ,p_attribute9 => p_attribute9
605 ,p_attribute10 => p_attribute10
606 ,p_attribute11 => p_attribute11
607 ,p_attribute12 => p_attribute12
608 ,p_attribute13 => p_attribute13
609 ,p_attribute14 => p_attribute14
610 ,p_attribute15 => p_attribute15
611 ,p_attribute16 => p_attribute16
612 ,p_attribute17 => p_attribute17
613 ,p_attribute18 => p_attribute18
614 ,p_attribute19 => p_attribute19
615 ,p_attribute20 => p_attribute20
616 ,p_attribute21 => p_attribute21
617 ,p_attribute22 => p_attribute22
618 ,p_attribute23 => p_attribute23
619 ,p_attribute24 => p_attribute24
620 ,p_attribute25 => p_attribute25
621 ,p_attribute26 => p_attribute26
622 ,p_attribute27 => p_attribute27
623 ,p_attribute28 => p_attribute28
624 ,p_attribute29 => p_attribute29
625 ,p_attribute30 => p_attribute30
626 ,p_inc_information_category => p_inc_information_category
627 ,p_inc_information1 => p_inc_information1
628 ,p_inc_information2 => p_inc_information2
629 ,p_inc_information3 => p_inc_information3
630 ,p_inc_information4 => p_inc_information4
631 ,p_inc_information5 => p_inc_information5
632 ,p_inc_information6 => p_inc_information6
633 ,p_inc_information7 => p_inc_information7
634 ,p_inc_information8 => p_inc_information8
635 ,p_inc_information9 => p_inc_information9
636 ,p_inc_information10 => p_inc_information10
637 ,p_inc_information11 => p_inc_information11
638 ,p_inc_information12 => p_inc_information12
639 ,p_inc_information13 => p_inc_information13
640 ,p_inc_information14 => p_inc_information14
641 ,p_inc_information15 => p_inc_information15
642 ,p_inc_information16 => p_inc_information16
643 ,p_inc_information17 => p_inc_information17
644 ,p_inc_information18 => p_inc_information18
645 ,p_inc_information19 => p_inc_information19
646 ,p_inc_information20 => p_inc_information20
647 ,p_inc_information21 => p_inc_information21
648 ,p_inc_information22 => p_inc_information22
649 ,p_inc_information23 => p_inc_information23
650 ,p_inc_information24 => p_inc_information24
651 ,p_inc_information25 => p_inc_information25
652 ,p_inc_information26 => p_inc_information26
653 ,p_inc_information27 => p_inc_information27
654 ,p_inc_information28 => p_inc_information28
655 ,p_inc_information29 => p_inc_information29
656 ,p_inc_information30 => p_inc_information30
657 );
658 exception
659 when hr_api.cannot_find_prog_unit then
660 hr_api.cannot_find_prog_unit_error
661 (p_module_name => 'update_work_incident_a'
662 ,p_hook_type => 'AP'
663 );
664 end;
665 */
666 --
667 -- When in validation only mode raise the Validate_Enabled exception
668 --
669 if p_validate then
670 raise hr_api.validate_enabled;
671 end if;
672 --
673 -- Set all output arguments
674 --
675 p_object_version_number := l_object_version_number;
676 --
677 hr_utility.set_location(' Leaving:'||l_proc, 70);
678 exception
679 when hr_api.validate_enabled then
680 --
681 -- As the Validate_Enabled exception has been raised
682 -- we must rollback to the savepoint
683 --
684 rollback to update_retained_right;
685 --
686 -- Only set output warning arguments
687 -- (Any key or derived arguments must be set to null
688 -- when validation only mode is being used.)
689 --
690 hr_utility.set_location(' Leaving:'||l_proc, 80);
691 when others then
692 --
693 -- A validation or unexpected error has occured
694 --
695 rollback to update_retained_right;
696 hr_utility.set_location(' Leaving:'||l_proc, 90);
697 raise;
698 end update_retained_right;
699 --
700 --
701 -- ----------------------------------------------------------------------------
702 -- |-------------------------< delete_retained_right >-------------------------|
703 -- ----------------------------------------------------------------------------
704 --
705 procedure delete_retained_right
706 (p_validate in boolean default false
707 ,p_cagr_retained_right_id in number
708 ,p_object_version_number in number
709 ) is
710 --
711 -- Declare cursors and local variables
712 --
713 l_proc varchar2(72) := g_package||'delete_retained_right';
714 --
715 begin
716 hr_utility.set_location('Entering:'|| l_proc, 5);
717 --
718 -- Issue a savepoint if operating in validation only mode.
719 --
720 savepoint delete_retained_right;
721
722 /*
723 --
724 -- Call Before Process User Hook
725 --
726 begin
727 per_work_incident_bk3.delete_work_incident_b
728 (p_incident_id => p_incident_id,
729 p_object_version_number => p_object_version_number
730 );
731 exception
732 when hr_api.cannot_find_prog_unit then
733 hr_api.cannot_find_prog_unit_error
734 (p_module_name => 'delete_work_incident_b',
735 p_hook_type => 'BP'
736 );
737 end;
738 --
739 --
740 */
741 hr_utility.set_location(l_proc, 7);
742 --
743 -- Process Logic
744 --
745 per_ret_del.del
746 (p_cagr_retained_right_id => p_cagr_retained_right_id
747 ,p_object_version_number => p_object_version_number
748 );
749 --
750 hr_utility.set_location(l_proc, 8);
751 --
752 /*
753 --
754 -- Call After Process User Hook
755 begin
756 per_work_incident_bk3.delete_work_incident_a
757 (p_incident_id => p_incident_id,
758 p_object_version_number => p_object_version_number
759 );
760 exception
761 when hr_api.cannot_find_prog_unit then
762 hr_api.cannot_find_prog_unit_error
763 (p_module_name => 'delete_work_incident_a',
764 p_hook_type => 'AP'
765 );
766
767 */
768 -- When in validation only mode raise the Validate_Enabled exception
769 --
770 if p_validate then
771 raise hr_api.validate_enabled;
772 end if;
773 --
774 hr_utility.set_location(' Leaving:'||l_proc, 11);
775 exception
776 when hr_api.validate_enabled then
777 --
778 -- As the Validate_Enabled exception has been raised
779 -- we must rollback to the savepoint
780 --
781 ROLLBACK TO delete_retained_right;
782 --
783 hr_utility.set_location(' Leaving:'||l_proc, 12);
784 --
785 when others then
786 --
787 --
788 ROLLBACK TO delete_retained_right;
789 --
790 raise;
791 --
792 end delete_retained_right;
793 --
794 end HR_RETAINED_RIGHTS_API;