[Home] [Help]
PACKAGE BODY: APPS.BEN_CPI_DEL
Source
1 Package Body ben_cpi_del as
2 /* $Header: becpirhi.pkb 120.0 2005/05/28 01:13 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_cpi_del.'; -- Global package name
9 g_debug boolean := hr_utility.debug_enabled;
10 --
11 -- ----------------------------------------------------------------------------
12 -- ----------------------< delete_app_ownerships >----------------------------|
13 -- ----------------------------------------------------------------------------
14 --
15 -- Description:
16 -- Deletes row(s) from hr_application_ownerships depending on the mode that
17 -- the row handler has been called in.
18 --
19 -- ----------------------------------------------------------------------------
20 PROCEDURE delete_app_ownerships(p_pk_column IN varchar2
21 ,p_pk_value IN varchar2) IS
22 --
23 BEGIN
24 --
25 IF (hr_startup_data_api_support.return_startup_mode
26 IN ('STARTUP','GENERIC')) THEN
27 --
28 DELETE FROM hr_application_ownerships
29 WHERE key_name = p_pk_column
30 AND key_value = p_pk_value;
31 --
32 END IF;
33 END delete_app_ownerships;
34 --
35 -- ----------------------------------------------------------------------------
36 -- ----------------------< delete_app_ownerships >----------------------------|
37 -- ----------------------------------------------------------------------------
38 PROCEDURE delete_app_ownerships(p_pk_column IN varchar2
39 ,p_pk_value IN number) IS
40 --
41 BEGIN
42 delete_app_ownerships(p_pk_column, to_char(p_pk_value));
43 END delete_app_ownerships;
44 --
45 -- ----------------------------------------------------------------------------
46 -- |------------------------------< delete_dml >------------------------------|
47 -- ----------------------------------------------------------------------------
48 -- {Start Of Comments}
49 --
50 -- Description:
51 -- This procedure controls the actual dml delete logic. The functions of
52 -- this procedure are as follows:
53 -- 1) To set and unset the g_api_dml status as required (as we are about to
54 -- perform dml).
55 -- 2) To delete the specified row from the schema using the primary key in
56 -- the predicates.
57 -- 3) To trap any constraint violations that may have occurred.
58 -- 4) To raise any other errors.
59 --
60 -- Prerequisites:
61 -- This is an internal private procedure which must be called from the del
62 -- procedure.
63 --
64 -- In Parameters:
65 -- A Pl/Sql record structre.
66 --
67 -- Post Success:
68 -- The specified row will be delete from the schema.
69 --
70 -- Post Failure:
71 -- On the delete dml failure it is important to note that we always reset the
72 -- g_api_dml status to false.
73 -- If a child integrity constraint violation is raised the
74 -- constraint_error procedure will be called.
75 -- If any other error is reported, the error will be raised after the
76 -- g_api_dml status is reset.
77 --
78 -- Developer Implementation Notes:
79 -- None.
80 --
81 -- Access Status:
82 -- Internal Row Handler Use Only.
83 --
84 -- {End Of Comments}
85 -- ----------------------------------------------------------------------------
86 Procedure delete_dml
87 (p_rec in ben_cpi_shd.g_rec_type
88 ) is
89 --
90 l_proc varchar2(72) := g_package||'delete_dml';
91 --
92 Begin
93 if g_debug then
94 hr_utility.set_location('Entering:'||l_proc, 5);
95 end if;
96 --
97 ben_cpi_shd.g_api_dml := true; -- Set the api dml status
98 --
99 -- Delete the ben_cwb_person_info row.
100 --
101 delete from ben_cwb_person_info
102 where group_per_in_ler_id = p_rec.group_per_in_ler_id;
103 --
104 ben_cpi_shd.g_api_dml := false; -- Unset the api dml status
105 --
106 if g_debug then
107 hr_utility.set_location(' Leaving:'||l_proc, 10);
108 end if;
109 --
110 Exception
111 When hr_api.child_integrity_violated then
112 -- Child integrity has been violated
113 ben_cpi_shd.g_api_dml := false; -- Unset the api dml status
114 ben_cpi_shd.constraint_error
115 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116 When Others Then
117 ben_cpi_shd.g_api_dml := false; -- Unset the api dml status
118 Raise;
119 End delete_dml;
120 --
121 -- ----------------------------------------------------------------------------
122 -- |------------------------------< pre_delete >------------------------------|
123 -- ----------------------------------------------------------------------------
124 -- {Start Of Comments}
125 --
126 -- Description:
127 -- This private procedure contains any processing which is required before
128 -- the delete dml.
129 --
130 -- Prerequisites:
131 -- This is an internal procedure which is called from the del procedure.
132 --
133 -- In Parameters:
134 -- A Pl/Sql record structre.
135 --
136 -- Post Success:
137 -- Processing continues.
138 --
139 -- Post Failure:
140 -- If an error has occurred, an error message and exception will be raised
141 -- but not handled.
142 --
143 -- Developer Implementation Notes:
144 -- Any pre-processing required before the delete dml is issued should be
145 -- coded within this procedure. It is important to note that any 3rd party
146 -- maintenance should be reviewed before placing in this procedure.
147 --
148 -- Access Status:
149 -- Internal Row Handler Use Only.
150 --
151 -- {End Of Comments}
152 -- ----------------------------------------------------------------------------
153 Procedure pre_delete(p_rec in ben_cpi_shd.g_rec_type) is
154 --
155 l_proc varchar2(72) := g_package||'pre_delete';
156 --
157 Begin
158 if g_debug then
159 hr_utility.set_location('Entering:'||l_proc, 5);
160 end if;
161 --
162 if g_debug then
163 hr_utility.set_location(' Leaving:'||l_proc, 10);
164 end if;
165 End pre_delete;
166 --
167 -- ----------------------------------------------------------------------------
168 -- |-----------------------------< post_delete >------------------------------|
169 -- ----------------------------------------------------------------------------
170 -- {Start Of Comments}
171 --
172 -- Description:
173 -- This private procedure contains any processing which is required after
174 -- the delete dml.
175 --
176 -- Prerequistes:
177 -- This is an internal procedure which is called from the del procedure.
178 --
179 -- In Parameters:
180 -- A Pl/Sql record structure.
181 --
182 -- Post Success:
183 -- Processing continues.
184 --
185 -- Post Failure:
186 -- If an error has occurred, an error message and exception will be raised
187 -- but not handled.
188 --
189 -- Developer Implementation Notes:
190 -- Any post-processing required after the delete dml is issued should be
191 -- coded within this procedure. It is important to note that any 3rd party
192 -- maintenance should be reviewed before placing in this procedure.
193 --
194 -- Access Status:
195 -- Internal Row Handler Use Only.
196 --
197 -- {End Of Comments}
198 -- -----------------------------------------------------------------------------
199 Procedure post_delete(p_rec in ben_cpi_shd.g_rec_type) is
200 --
201 l_proc varchar2(72) := g_package||'post_delete';
202 --
203 Begin
204 if g_debug then
205 hr_utility.set_location('Entering:'||l_proc, 5);
206 end if;
207 begin
208 --
209 -- Delete ownerships if applicable
210 delete_app_ownerships
211 ('GROUP_PER_IN_LER_ID', p_rec.group_per_in_ler_id
212 );
213 --
214 ben_cpi_rkd.after_delete
215 (p_group_per_in_ler_id
216 => p_rec.group_per_in_ler_id
217 ,p_assignment_id_o
218 => ben_cpi_shd.g_old_rec.assignment_id
219 ,p_person_id_o
220 => ben_cpi_shd.g_old_rec.person_id
221 ,p_supervisor_id_o
222 => ben_cpi_shd.g_old_rec.supervisor_id
223 ,p_effective_date_o
224 => ben_cpi_shd.g_old_rec.effective_date
225 ,p_full_name_o
226 => ben_cpi_shd.g_old_rec.full_name
227 ,p_brief_name_o
228 => ben_cpi_shd.g_old_rec.brief_name
229 ,p_custom_name_o
230 => ben_cpi_shd.g_old_rec.custom_name
231 ,p_supervisor_full_name_o
232 => ben_cpi_shd.g_old_rec.supervisor_full_name
233 ,p_supervisor_brief_name_o
234 => ben_cpi_shd.g_old_rec.supervisor_brief_name
235 ,p_supervisor_custom_name_o
236 => ben_cpi_shd.g_old_rec.supervisor_custom_name
237 ,p_legislation_code_o
238 => ben_cpi_shd.g_old_rec.legislation_code
239 ,p_years_employed_o
240 => ben_cpi_shd.g_old_rec.years_employed
241 ,p_years_in_job_o
242 => ben_cpi_shd.g_old_rec.years_in_job
243 ,p_years_in_position_o
244 => ben_cpi_shd.g_old_rec.years_in_position
245 ,p_years_in_grade_o
246 => ben_cpi_shd.g_old_rec.years_in_grade
247 ,p_employee_number_o
248 => ben_cpi_shd.g_old_rec.employee_number
249 ,p_start_date_o
250 => ben_cpi_shd.g_old_rec.start_date
251 ,p_original_start_date_o
252 => ben_cpi_shd.g_old_rec.original_start_date
253 ,p_adjusted_svc_date_o
254 => ben_cpi_shd.g_old_rec.adjusted_svc_date
255 ,p_base_salary_o
256 => ben_cpi_shd.g_old_rec.base_salary
257 ,p_base_salary_change_date_o
258 => ben_cpi_shd.g_old_rec.base_salary_change_date
259 ,p_payroll_name_o
260 => ben_cpi_shd.g_old_rec.payroll_name
261 ,p_performance_rating_o
262 => ben_cpi_shd.g_old_rec.performance_rating
263 ,p_performance_rating_type_o
264 => ben_cpi_shd.g_old_rec.performance_rating_type
265 ,p_performance_rating_date_o
266 => ben_cpi_shd.g_old_rec.performance_rating_date
267 ,p_business_group_id_o
268 => ben_cpi_shd.g_old_rec.business_group_id
269 ,p_organization_id_o
270 => ben_cpi_shd.g_old_rec.organization_id
271 ,p_job_id_o
272 => ben_cpi_shd.g_old_rec.job_id
273 ,p_grade_id_o
274 => ben_cpi_shd.g_old_rec.grade_id
275 ,p_position_id_o
276 => ben_cpi_shd.g_old_rec.position_id
277 ,p_people_group_id_o
278 => ben_cpi_shd.g_old_rec.people_group_id
279 ,p_soft_coding_keyflex_id_o
280 => ben_cpi_shd.g_old_rec.soft_coding_keyflex_id
281 ,p_location_id_o
282 => ben_cpi_shd.g_old_rec.location_id
283 ,p_pay_rate_id_o
284 => ben_cpi_shd.g_old_rec.pay_rate_id
285 ,p_assignment_status_type_id_o
286 => ben_cpi_shd.g_old_rec.assignment_status_type_id
287 ,p_frequency_o
288 => ben_cpi_shd.g_old_rec.frequency
289 ,p_grade_annulization_factor_o
290 => ben_cpi_shd.g_old_rec.grade_annulization_factor
291 ,p_pay_annulization_factor_o
292 => ben_cpi_shd.g_old_rec.pay_annulization_factor
293 ,p_grd_min_val_o
294 => ben_cpi_shd.g_old_rec.grd_min_val
295 ,p_grd_max_val_o
296 => ben_cpi_shd.g_old_rec.grd_max_val
297 ,p_grd_mid_point_o
298 => ben_cpi_shd.g_old_rec.grd_mid_point
299 ,p_grd_quartile_o
300 => ben_cpi_shd.g_old_rec.grd_quartile
301 ,p_grd_comparatio_o
302 => ben_cpi_shd.g_old_rec.grd_comparatio
303 ,p_emp_category_o
304 => ben_cpi_shd.g_old_rec.emp_category
305 ,p_change_reason_o
306 => ben_cpi_shd.g_old_rec.change_reason
307 ,p_normal_hours_o
308 => ben_cpi_shd.g_old_rec.normal_hours
309 ,p_email_address_o
310 => ben_cpi_shd.g_old_rec.email_address
311 ,p_base_salary_frequency_o
312 => ben_cpi_shd.g_old_rec.base_salary_frequency
313 ,p_new_assgn_ovn_o
314 => ben_cpi_shd.g_old_rec.new_assgn_ovn
315 ,p_new_perf_event_id_o
316 => ben_cpi_shd.g_old_rec.new_perf_event_id
317 ,p_new_perf_review_id_o
318 => ben_cpi_shd.g_old_rec.new_perf_review_id
319 ,p_post_process_stat_cd_o
320 => ben_cpi_shd.g_old_rec.post_process_stat_cd
321 ,p_feedback_rating_o
322 => ben_cpi_shd.g_old_rec.feedback_rating
323 ,p_feedback_comments_o
324 => ben_cpi_shd.g_old_rec.feedback_comments
325 ,p_object_version_number_o
326 => ben_cpi_shd.g_old_rec.object_version_number
327 ,p_custom_segment1_o
328 => ben_cpi_shd.g_old_rec.custom_segment1
329 ,p_custom_segment2_o
330 => ben_cpi_shd.g_old_rec.custom_segment2
331 ,p_custom_segment3_o
332 => ben_cpi_shd.g_old_rec.custom_segment3
333 ,p_custom_segment4_o
334 => ben_cpi_shd.g_old_rec.custom_segment4
335 ,p_custom_segment5_o
336 => ben_cpi_shd.g_old_rec.custom_segment5
337 ,p_custom_segment6_o
338 => ben_cpi_shd.g_old_rec.custom_segment6
342 => ben_cpi_shd.g_old_rec.custom_segment8
339 ,p_custom_segment7_o
340 => ben_cpi_shd.g_old_rec.custom_segment7
341 ,p_custom_segment8_o
343 ,p_custom_segment9_o
344 => ben_cpi_shd.g_old_rec.custom_segment9
345 ,p_custom_segment10_o
346 => ben_cpi_shd.g_old_rec.custom_segment10
347 ,p_custom_segment11_o
348 => ben_cpi_shd.g_old_rec.custom_segment11
349 ,p_custom_segment12_o
350 => ben_cpi_shd.g_old_rec.custom_segment12
351 ,p_custom_segment13_o
352 => ben_cpi_shd.g_old_rec.custom_segment13
353 ,p_custom_segment14_o
354 => ben_cpi_shd.g_old_rec.custom_segment14
355 ,p_custom_segment15_o
356 => ben_cpi_shd.g_old_rec.custom_segment15
357 ,p_custom_segment16_o
358 => ben_cpi_shd.g_old_rec.custom_segment16
359 ,p_custom_segment17_o
360 => ben_cpi_shd.g_old_rec.custom_segment17
361 ,p_custom_segment18_o
362 => ben_cpi_shd.g_old_rec.custom_segment18
363 ,p_custom_segment19_o
364 => ben_cpi_shd.g_old_rec.custom_segment19
365 ,p_custom_segment20_o
366 => ben_cpi_shd.g_old_rec.custom_segment20
367 ,p_people_group_name_o
368 => ben_cpi_shd.g_old_rec.people_group_name
369 ,p_people_group_segment1_o
370 => ben_cpi_shd.g_old_rec.people_group_segment1
371 ,p_people_group_segment2_o
372 => ben_cpi_shd.g_old_rec.people_group_segment2
373 ,p_people_group_segment3_o
374 => ben_cpi_shd.g_old_rec.people_group_segment3
375 ,p_people_group_segment4_o
376 => ben_cpi_shd.g_old_rec.people_group_segment4
377 ,p_people_group_segment5_o
378 => ben_cpi_shd.g_old_rec.people_group_segment5
379 ,p_people_group_segment6_o
380 => ben_cpi_shd.g_old_rec.people_group_segment6
381 ,p_people_group_segment7_o
382 => ben_cpi_shd.g_old_rec.people_group_segment7
383 ,p_people_group_segment8_o
384 => ben_cpi_shd.g_old_rec.people_group_segment8
385 ,p_people_group_segment9_o
386 => ben_cpi_shd.g_old_rec.people_group_segment9
387 ,p_people_group_segment10_o
388 => ben_cpi_shd.g_old_rec.people_group_segment10
389 ,p_people_group_segment11_o
390 => ben_cpi_shd.g_old_rec.people_group_segment11
391 ,p_ass_attribute_category_o
392 => ben_cpi_shd.g_old_rec.ass_attribute_category
393 ,p_ass_attribute1_o
394 => ben_cpi_shd.g_old_rec.ass_attribute1
395 ,p_ass_attribute2_o
396 => ben_cpi_shd.g_old_rec.ass_attribute2
397 ,p_ass_attribute3_o
398 => ben_cpi_shd.g_old_rec.ass_attribute3
399 ,p_ass_attribute4_o
400 => ben_cpi_shd.g_old_rec.ass_attribute4
401 ,p_ass_attribute5_o
402 => ben_cpi_shd.g_old_rec.ass_attribute5
403 ,p_ass_attribute6_o
404 => ben_cpi_shd.g_old_rec.ass_attribute6
405 ,p_ass_attribute7_o
406 => ben_cpi_shd.g_old_rec.ass_attribute7
407 ,p_ass_attribute8_o
408 => ben_cpi_shd.g_old_rec.ass_attribute8
409 ,p_ass_attribute9_o
410 => ben_cpi_shd.g_old_rec.ass_attribute9
411 ,p_ass_attribute10_o
412 => ben_cpi_shd.g_old_rec.ass_attribute10
413 ,p_ass_attribute11_o
414 => ben_cpi_shd.g_old_rec.ass_attribute11
415 ,p_ass_attribute12_o
416 => ben_cpi_shd.g_old_rec.ass_attribute12
417 ,p_ass_attribute13_o
418 => ben_cpi_shd.g_old_rec.ass_attribute13
419 ,p_ass_attribute14_o
420 => ben_cpi_shd.g_old_rec.ass_attribute14
421 ,p_ass_attribute15_o
422 => ben_cpi_shd.g_old_rec.ass_attribute15
423 ,p_ass_attribute16_o
424 => ben_cpi_shd.g_old_rec.ass_attribute16
425 ,p_ass_attribute17_o
426 => ben_cpi_shd.g_old_rec.ass_attribute17
427 ,p_ass_attribute18_o
428 => ben_cpi_shd.g_old_rec.ass_attribute18
429 ,p_ass_attribute19_o
430 => ben_cpi_shd.g_old_rec.ass_attribute19
431 ,p_ass_attribute20_o
432 => ben_cpi_shd.g_old_rec.ass_attribute20
433 ,p_ass_attribute21_o
434 => ben_cpi_shd.g_old_rec.ass_attribute21
435 ,p_ass_attribute22_o
436 => ben_cpi_shd.g_old_rec.ass_attribute22
437 ,p_ass_attribute23_o
438 => ben_cpi_shd.g_old_rec.ass_attribute23
439 ,p_ass_attribute24_o
440 => ben_cpi_shd.g_old_rec.ass_attribute24
441 ,p_ass_attribute25_o
442 => ben_cpi_shd.g_old_rec.ass_attribute25
443 ,p_ass_attribute26_o
444 => ben_cpi_shd.g_old_rec.ass_attribute26
445 ,p_ass_attribute27_o
446 => ben_cpi_shd.g_old_rec.ass_attribute27
447 ,p_ass_attribute28_o
448 => ben_cpi_shd.g_old_rec.ass_attribute28
449 ,p_ass_attribute29_o
450 => ben_cpi_shd.g_old_rec.ass_attribute29
451 ,p_ass_attribute30_o
452 => ben_cpi_shd.g_old_rec.ass_attribute30
453 ,p_ws_comments_o
454 => ben_cpi_shd.g_old_rec.ws_comments
455 ,p_cpi_attribute_category_o
456 => ben_cpi_shd.g_old_rec.cpi_attribute_category
457 ,p_cpi_attribute1_o
458 => ben_cpi_shd.g_old_rec.cpi_attribute1
459 ,p_cpi_attribute2_o
460 => ben_cpi_shd.g_old_rec.cpi_attribute2
461 ,p_cpi_attribute3_o
462 => ben_cpi_shd.g_old_rec.cpi_attribute3
463 ,p_cpi_attribute4_o
464 => ben_cpi_shd.g_old_rec.cpi_attribute4
465 ,p_cpi_attribute5_o
466 => ben_cpi_shd.g_old_rec.cpi_attribute5
467 ,p_cpi_attribute6_o
468 => ben_cpi_shd.g_old_rec.cpi_attribute6
469 ,p_cpi_attribute7_o
470 => ben_cpi_shd.g_old_rec.cpi_attribute7
471 ,p_cpi_attribute8_o
472 => ben_cpi_shd.g_old_rec.cpi_attribute8
473 ,p_cpi_attribute9_o
474 => ben_cpi_shd.g_old_rec.cpi_attribute9
475 ,p_cpi_attribute10_o
476 => ben_cpi_shd.g_old_rec.cpi_attribute10
477 ,p_cpi_attribute11_o
478 => ben_cpi_shd.g_old_rec.cpi_attribute11
479 ,p_cpi_attribute12_o
480 => ben_cpi_shd.g_old_rec.cpi_attribute12
481 ,p_cpi_attribute13_o
482 => ben_cpi_shd.g_old_rec.cpi_attribute13
483 ,p_cpi_attribute14_o
484 => ben_cpi_shd.g_old_rec.cpi_attribute14
485 ,p_cpi_attribute15_o
486 => ben_cpi_shd.g_old_rec.cpi_attribute15
487 ,p_cpi_attribute16_o
488 => ben_cpi_shd.g_old_rec.cpi_attribute16
489 ,p_cpi_attribute17_o
490 => ben_cpi_shd.g_old_rec.cpi_attribute17
491 ,p_cpi_attribute18_o
492 => ben_cpi_shd.g_old_rec.cpi_attribute18
493 ,p_cpi_attribute19_o
494 => ben_cpi_shd.g_old_rec.cpi_attribute19
495 ,p_cpi_attribute20_o
496 => ben_cpi_shd.g_old_rec.cpi_attribute20
497 ,p_cpi_attribute21_o
498 => ben_cpi_shd.g_old_rec.cpi_attribute21
499 ,p_cpi_attribute22_o
500 => ben_cpi_shd.g_old_rec.cpi_attribute22
501 ,p_cpi_attribute23_o
502 => ben_cpi_shd.g_old_rec.cpi_attribute23
503 ,p_cpi_attribute24_o
504 => ben_cpi_shd.g_old_rec.cpi_attribute24
505 ,p_cpi_attribute25_o
506 => ben_cpi_shd.g_old_rec.cpi_attribute25
507 ,p_cpi_attribute26_o
508 => ben_cpi_shd.g_old_rec.cpi_attribute26
509 ,p_cpi_attribute27_o
510 => ben_cpi_shd.g_old_rec.cpi_attribute27
511 ,p_cpi_attribute28_o
512 => ben_cpi_shd.g_old_rec.cpi_attribute28
513 ,p_cpi_attribute29_o
514 => ben_cpi_shd.g_old_rec.cpi_attribute29
515 ,p_cpi_attribute30_o
516 => ben_cpi_shd.g_old_rec.cpi_attribute30
517 ,p_feedback_date_o
518 => ben_cpi_shd.g_old_rec.feedback_date
519 );
520 --
521 exception
522 --
523 when hr_api.cannot_find_prog_unit then
524 --
525 hr_api.cannot_find_prog_unit_error
526 (p_module_name => 'BEN_CWB_PERSON_INFO'
527 ,p_hook_type => 'AD');
528 --
529 end;
530 --
531 if g_debug then
532 hr_utility.set_location(' Leaving:'||l_proc, 10);
533 end if;
534 End post_delete;
535 --
536 -- ----------------------------------------------------------------------------
537 -- |---------------------------------< del >----------------------------------|
538 -- ----------------------------------------------------------------------------
539 Procedure del
540 (p_rec in ben_cpi_shd.g_rec_type
541 ) is
542 --
543 l_proc varchar2(72) := g_package||'del';
544 --
545 Begin
546 if g_debug then
547 hr_utility.set_location('Entering:'||l_proc, 5);
548 end if;
549 --
550 -- We must lock the row which we need to delete.
551 --
552 ben_cpi_shd.lck
553 (p_rec.group_per_in_ler_id
554 ,p_rec.object_version_number
555 );
556 --
557 -- Call the supporting delete validate operation
558 --
559 ben_cpi_bus.delete_validate(p_rec);
560 --
561 -- Call to raise any errors on multi-message list
562 hr_multi_message.end_validation_set;
563 --
564 -- Call the supporting pre-delete operation
565 --
566 ben_cpi_del.pre_delete(p_rec);
567 --
568 -- Delete the row.
569 --
570 ben_cpi_del.delete_dml(p_rec);
571 --
572 -- Call the supporting post-delete operation
573 --
574 ben_cpi_del.post_delete(p_rec);
575 --
576 -- Call to raise any errors on multi-message list
577 hr_multi_message.end_validation_set;
578 --
579 End del;
580 --
581 -- ----------------------------------------------------------------------------
582 -- |---------------------------------< del >----------------------------------|
583 -- ----------------------------------------------------------------------------
584 Procedure del
585 (p_group_per_in_ler_id in number
586 ,p_object_version_number in number
587 ) is
588 --
589 l_rec ben_cpi_shd.g_rec_type;
590 l_proc varchar2(72) := g_package||'del';
591 --
592 Begin
593 if g_debug then
594 hr_utility.set_location('Entering:'||l_proc, 5);
595 end if;
596 --
597 -- As the delete procedure accepts a plsql record structure we do need to
598 -- convert the arguments into the record structure.
599 -- We don't need to call the supplied conversion argument routine as we
600 -- only need a few attributes.
601 --
602 l_rec.group_per_in_ler_id := p_group_per_in_ler_id;
603 l_rec.object_version_number := p_object_version_number;
604 --
605 -- Having converted the arguments into the ben_cpi_rec
606 -- plsql record structure we must call the corresponding entity
607 -- business process
608 --
609 ben_cpi_del.del(l_rec);
610 --
611 if g_debug then
612 hr_utility.set_location(' Leaving:'||l_proc, 10);
613 end if;
614 End del;
615 --
616 end ben_cpi_del;