DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_EPO_DEL

Source


1 Package Body ben_epo_del as
2 /* $Header: beeporhi.pkb 120.0 2005/05/28 02:42:27 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)    := '  ben_epo_del.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |----------------------------< dt_delete_dml >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 --   This procedure controls the actual dml delete logic for the datetrack
17 --   delete modes: ZAP, DELETE, FUTURE_CHANGE and DELETE_NEXT_CHANGE. The
18 --   execution is as follows:
19 --   1) To set and unset the g_api_dml status as required (as we are about to
20 --      perform dml).
21 --   2) If the delete mode is DELETE_NEXT_CHANGE then delete where the
22 --      effective start date is equal to the validation start date.
23 --   3) If the delete mode is not DELETE_NEXT_CHANGE then delete
24 --      all rows for the entity where the effective start date is greater
25 --      than or equal to the validation start date.
26 --   4) To raise any errors.
27 --
28 -- Prerequisites:
29 --   This is an internal private procedure which must be called from the
30 --   delete_dml procedure.
31 --
32 -- In Parameters:
33 --   A Pl/Sql record structre.
34 --
35 -- Post Success:
36 --   The specified row will be delete from the schema.
37 --
38 -- Post Failure:
39 --   On the delete dml failure it is important to note that we always reset the
40 --   g_api_dml status to false.
41 --   If any other error is reported, the error will be raised after the
42 --   g_api_dml status is reset.
43 --
44 -- Developer Implementation Notes:
45 --   This is an internal private procedure which must be called from the
46 --   delete_dml procedure.
47 --
48 -- Access Status:
49 --   Internal Row Handler Use Only.
50 --
51 -- {End Of Comments}
52 -- ----------------------------------------------------------------------------
53 Procedure dt_delete_dml
54     (p_rec              in out nocopy ben_epo_shd.g_rec_type,
55      p_effective_date     in    date,
56      p_datetrack_mode     in    varchar2,
57      p_validation_start_date in    date,
58      p_validation_end_date     in    date) is
59 --
60   l_proc    varchar2(72) := g_package||'dt_delete_dml';
61 --
62 Begin
63   hr_utility.set_location('Entering:'||l_proc, 5);
64   If (p_datetrack_mode = 'DELETE_NEXT_CHANGE') then
65     hr_utility.set_location(l_proc, 10);
66     ben_epo_shd.g_api_dml := true;  -- Set the api dml status
67     --
68     -- Delete the where the effective start date is equal
69     -- to the validation end date.
70     --
71     delete from ben_elig_per_opt_f
72     where       elig_per_opt_id = p_rec.elig_per_opt_id
73     and      effective_start_date = p_validation_start_date;
74     --
75     ben_epo_shd.g_api_dml := false;   -- Unset the api dml status
76   Else
77     hr_utility.set_location(l_proc, 15);
78     ben_epo_shd.g_api_dml := true;  -- Set the api dml status
79     --
80     -- Delete the row(s) where the effective start date is greater than
81     -- or equal to the validation start date.
82     --
83     delete from ben_elig_per_opt_f
84     where        elig_per_opt_id = p_rec.elig_per_opt_id
85     and      effective_start_date >= p_validation_start_date;
86     --
87     ben_epo_shd.g_api_dml := false;   -- Unset the api dml status
88   End If;
89   --
90   hr_utility.set_location(' Leaving:'||l_proc, 20);
91 --
92 Exception
93   When Others Then
94     ben_epo_shd.g_api_dml := false;   -- Unset the api dml status
95     Raise;
96 End dt_delete_dml;
97 --
98 -- ----------------------------------------------------------------------------
99 -- |------------------------------< delete_dml >------------------------------|
100 -- ----------------------------------------------------------------------------
101 Procedure delete_dml
102     (p_rec              in out nocopy ben_epo_shd.g_rec_type,
103      p_effective_date     in    date,
104      p_datetrack_mode     in    varchar2,
105      p_validation_start_date in    date,
106      p_validation_end_date     in    date) is
107 --
108   l_proc    varchar2(72) := g_package||'delete_dml';
109 --
110 Begin
111   hr_utility.set_location('Entering:'||l_proc, 5);
112   --
113   dt_delete_dml(p_rec            => p_rec,
114         p_effective_date    => p_effective_date,
115         p_datetrack_mode    => p_datetrack_mode,
116                p_validation_start_date    => p_validation_start_date,
117         p_validation_end_date    => p_validation_end_date);
118   --
119   hr_utility.set_location(' Leaving:'||l_proc, 10);
120 End delete_dml;
121 --
122 -- ----------------------------------------------------------------------------
123 -- |----------------------------< dt_pre_delete >-----------------------------|
124 -- ----------------------------------------------------------------------------
125 -- {Start Of Comments}
126 --
127 -- Description:
128 --   The dt_pre_delete process controls the execution of dml
129 --   for the datetrack modes: DELETE, FUTURE_CHANGE
130 --   and DELETE_NEXT_CHANGE only.
131 --
132 -- Prerequisites:
133 --   This is an internal procedure which is called from the pre_delete
134 --   procedure.
135 --
136 -- In Parameters:
137 --   A Pl/Sql record structre.
138 --
139 -- Post Success:
140 --   Processing continues.
141 --
142 -- Post Failure:
143 --   If an error has occurred, an error message and exception will be raised
144 --   but not handled.
145 --
146 -- Developer Implementation Notes:
147 --   This is an internal procedure which is required by Datetrack. Don't
148 --   remove or modify.
149 --
150 -- Access Status:
151 --   Internal Row Handler Use Only.
152 --
153 -- {End Of Comments}
154 -- ----------------------------------------------------------------------------
155 Procedure dt_pre_delete
156     (p_rec              in out nocopy ben_epo_shd.g_rec_type,
157      p_effective_date     in    date,
158      p_datetrack_mode     in    varchar2,
159      p_validation_start_date in    date,
160      p_validation_end_date     in    date) is
161 --
162   l_proc    varchar2(72) := g_package||'dt_pre_delete';
163 --
164 Begin
165   hr_utility.set_location('Entering:'||l_proc, 5);
166   --
167   If (p_datetrack_mode <> 'ZAP') then
168     --
169     p_rec.effective_start_date := ben_epo_shd.g_old_rec.effective_start_date;
170     --
171     If (p_datetrack_mode = 'DELETE') then
172       p_rec.effective_end_date := p_validation_start_date - 1;
173     Else
174       p_rec.effective_end_date := p_validation_end_date;
175     End If;
176     --
177     -- Update the current effective end date record
178     --
179     ben_epo_shd.upd_effective_end_date
180       (p_effective_date            => p_effective_date,
181        p_base_key_value            => p_rec.elig_per_opt_id,
182        p_new_effective_end_date => p_rec.effective_end_date,
183        p_validation_start_date  => p_validation_start_date,
184        p_validation_end_date    => p_validation_end_date,
185        p_object_version_number  => p_rec.object_version_number);
186   Else
187     p_rec.effective_start_date := null;
188     p_rec.effective_end_date   := null;
189   End If;
190   hr_utility.set_location(' Leaving:'||l_proc, 10);
191 End dt_pre_delete;
192 --
193 -- ----------------------------------------------------------------------------
194 -- |------------------------------< pre_delete >------------------------------|
195 -- ----------------------------------------------------------------------------
196 -- {Start Of Comments}
197 --
198 -- Description:
199 --   This private procedure contains any processing which is required before
200 --   the delete dml.
201 --
202 -- Prerequisites:
203 --   This is an internal procedure which is called from the del procedure.
204 --
205 -- In Parameters:
206 --   A Pl/Sql record structre.
207 --
208 -- Post Success:
209 --   Processing continues.
210 --
211 -- Post Failure:
212 --   If an error has occurred, an error message and exception will be raised
213 --   but not handled.
214 --
215 -- Developer Implementation Notes:
216 --   Any pre-processing required before the delete dml is issued should be
217 --   coded within this procedure. It is important to note that any 3rd party
218 --   maintenance should be reviewed before placing in this procedure. The call
219 --   to the dt_delete_dml procedure should NOT be removed.
220 --
221 -- Access Status:
222 --   Internal Row Handler Use Only.
223 --
224 -- {End Of Comments}
225 -- ----------------------------------------------------------------------------
226 Procedure pre_delete
227     (p_rec              in out nocopy ben_epo_shd.g_rec_type,
228      p_effective_date     in    date,
229      p_datetrack_mode     in    varchar2,
230      p_validation_start_date in    date,
231      p_validation_end_date     in    date) is
232 --
233   l_proc    varchar2(72) := g_package||'pre_delete';
234 --
235   --
236 --
237 Begin
238   hr_utility.set_location('Entering:'||l_proc, 5);
239   --
240   --
241   --
242   dt_pre_delete
243     (p_rec              => p_rec,
244      p_effective_date         => p_effective_date,
245      p_datetrack_mode         => p_datetrack_mode,
246      p_validation_start_date => p_validation_start_date,
247      p_validation_end_date   => p_validation_end_date);
248   --
249   hr_utility.set_location(' Leaving:'||l_proc, 10);
250 End pre_delete;
251 --
252 -- ----------------------------------------------------------------------------
253 -- |-----------------------------< post_delete >------------------------------|
254 -- ----------------------------------------------------------------------------
255 -- {Start Of Comments}
256 --
257 -- Description:
258 --   This private procedure contains any processing which is required after the
259 --   delete dml.
260 --
261 -- Prerequisites:
262 --   This is an internal procedure which is called from the del procedure.
263 --
264 -- In Parameters:
265 --   A Pl/Sql record structre.
266 --
267 -- Post Success:
268 --   Processing continues.
269 --
270 -- Post Failure:
271 --   If an error has occurred, an error message and exception will be raised
272 --   but not handled.
273 --
274 -- Developer Implementation Notes:
275 --   Any post-processing required after the delete dml is issued should be
276 --   coded within this procedure. It is important to note that any 3rd party
277 --   maintenance should be reviewed before placing in this procedure.
278 --
279 -- Access Status:
280 --   Internal Row Handler Use Only.
281 --
282 -- {End Of Comments}
283 -- ----------------------------------------------------------------------------
284 Procedure post_delete
285     (p_rec              in ben_epo_shd.g_rec_type,
286      p_effective_date     in date,
287      p_datetrack_mode     in varchar2,
288      p_validation_start_date in date,
289      p_validation_end_date     in date) is
290 --
291   l_proc    varchar2(72) := g_package||'post_delete';
292 --
293 Begin
294   hr_utility.set_location('Entering:'||l_proc, 5);
295 --
296   --
297   -- Start of API User Hook for post_delete.
298   --
299   begin
300     --
301     ben_epo_rkd.after_delete
302       (
303   p_elig_per_opt_id               =>p_rec.elig_per_opt_id
304  ,p_datetrack_mode                =>p_datetrack_mode
305  ,p_validation_start_date         =>p_validation_start_date
306  ,p_validation_end_date           =>p_validation_end_date
307  ,p_effective_start_date          =>p_rec.effective_start_date
308  ,p_effective_end_date            =>p_rec.effective_end_date
309  ,p_elig_per_id_o                 =>ben_epo_shd.g_old_rec.elig_per_id
310  ,p_effective_start_date_o        =>ben_epo_shd.g_old_rec.effective_start_date
311  ,p_effective_end_date_o          =>ben_epo_shd.g_old_rec.effective_end_date
312  ,p_prtn_ovridn_flag_o            =>ben_epo_shd.g_old_rec.prtn_ovridn_flag
313  ,p_prtn_ovridn_thru_dt_o         =>ben_epo_shd.g_old_rec.prtn_ovridn_thru_dt
314  ,p_no_mx_prtn_ovrid_thru_flag_o  =>ben_epo_shd.g_old_rec.no_mx_prtn_ovrid_thru_flag
315  ,p_elig_flag_o                   =>ben_epo_shd.g_old_rec.elig_flag
316  ,p_prtn_strt_dt_o                =>ben_epo_shd.g_old_rec.prtn_strt_dt
317  ,p_prtn_end_dt_o                 =>ben_epo_shd.g_old_rec.prtn_end_dt
318  ,p_wait_perd_cmpltn_date_o         =>ben_epo_shd.g_old_rec.wait_perd_cmpltn_date
319  ,p_wait_perd_strt_dt_o           =>ben_epo_shd.g_old_rec.wait_perd_strt_dt
320  ,p_prtn_ovridn_rsn_cd_o          =>ben_epo_shd.g_old_rec.prtn_ovridn_rsn_cd
321  ,p_pct_fl_tm_val_o               =>ben_epo_shd.g_old_rec.pct_fl_tm_val
322  ,p_opt_id_o                      =>ben_epo_shd.g_old_rec.opt_id
323  ,p_per_in_ler_id_o               =>ben_epo_shd.g_old_rec.per_in_ler_id
324  ,p_rt_comp_ref_amt_o             =>ben_epo_shd.g_old_rec.rt_comp_ref_amt
325  ,p_rt_cmbn_age_n_los_val_o       =>ben_epo_shd.g_old_rec.rt_cmbn_age_n_los_val
326  ,p_rt_comp_ref_uom_o             =>ben_epo_shd.g_old_rec.rt_comp_ref_uom
327  ,p_rt_age_val_o                  =>ben_epo_shd.g_old_rec.rt_age_val
328  ,p_rt_los_val_o                  =>ben_epo_shd.g_old_rec.rt_los_val
329  ,p_rt_hrs_wkd_val_o              =>ben_epo_shd.g_old_rec.rt_hrs_wkd_val
330  ,p_rt_hrs_wkd_bndry_perd_cd_o    =>ben_epo_shd.g_old_rec.rt_hrs_wkd_bndry_perd_cd
331  ,p_rt_age_uom_o                  =>ben_epo_shd.g_old_rec.rt_age_uom
332  ,p_rt_los_uom_o                  =>ben_epo_shd.g_old_rec.rt_los_uom
333  ,p_rt_pct_fl_tm_val_o            =>ben_epo_shd.g_old_rec.rt_pct_fl_tm_val
334  ,p_rt_frz_los_flag_o             =>ben_epo_shd.g_old_rec.rt_frz_los_flag
335  ,p_rt_frz_age_flag_o             =>ben_epo_shd.g_old_rec.rt_frz_age_flag
336  ,p_rt_frz_cmp_lvl_flag_o         =>ben_epo_shd.g_old_rec.rt_frz_cmp_lvl_flag
337  ,p_rt_frz_pct_fl_tm_flag_o       =>ben_epo_shd.g_old_rec.rt_frz_pct_fl_tm_flag
338  ,p_rt_frz_hrs_wkd_flag_o         =>ben_epo_shd.g_old_rec.rt_frz_hrs_wkd_flag
339  ,p_rt_frz_comb_age_and_los_fl_o  =>ben_epo_shd.g_old_rec.rt_frz_comb_age_and_los_flag
340  ,p_comp_ref_amt_o                =>ben_epo_shd.g_old_rec.comp_ref_amt
341  ,p_cmbn_age_n_los_val_o          =>ben_epo_shd.g_old_rec.cmbn_age_n_los_val
342  ,p_comp_ref_uom_o                =>ben_epo_shd.g_old_rec.comp_ref_uom
343  ,p_age_val_o                     =>ben_epo_shd.g_old_rec.age_val
344  ,p_los_val_o                     =>ben_epo_shd.g_old_rec.los_val
345  ,p_hrs_wkd_val_o                 =>ben_epo_shd.g_old_rec.hrs_wkd_val
346  ,p_hrs_wkd_bndry_perd_cd_o       =>ben_epo_shd.g_old_rec.hrs_wkd_bndry_perd_cd
347  ,p_age_uom_o                     =>ben_epo_shd.g_old_rec.age_uom
348  ,p_los_uom_o                     =>ben_epo_shd.g_old_rec.los_uom
349  ,p_frz_los_flag_o                =>ben_epo_shd.g_old_rec.frz_los_flag
350  ,p_frz_age_flag_o                =>ben_epo_shd.g_old_rec.frz_age_flag
351  ,p_frz_cmp_lvl_flag_o            =>ben_epo_shd.g_old_rec.frz_cmp_lvl_flag
352  ,p_frz_pct_fl_tm_flag_o          =>ben_epo_shd.g_old_rec.frz_pct_fl_tm_flag
353  ,p_frz_hrs_wkd_flag_o            =>ben_epo_shd.g_old_rec.frz_hrs_wkd_flag
354  ,p_frz_comb_age_and_los_flag_o   =>ben_epo_shd.g_old_rec.frz_comb_age_and_los_flag
355  ,p_ovrid_svc_dt_o                =>ben_epo_shd.g_old_rec.ovrid_svc_dt
356  ,p_inelg_rsn_cd_o                =>ben_epo_shd.g_old_rec.inelg_rsn_cd
357  ,p_once_r_cntug_cd_o             =>ben_epo_shd.g_old_rec.once_r_cntug_cd
358  ,p_oipl_ordr_num_o               =>ben_epo_shd.g_old_rec.oipl_ordr_num
359  ,p_business_group_id_o           =>ben_epo_shd.g_old_rec.business_group_id
360  ,p_epo_attribute_category_o      =>ben_epo_shd.g_old_rec.epo_attribute_category
361  ,p_epo_attribute1_o              =>ben_epo_shd.g_old_rec.epo_attribute1
362  ,p_epo_attribute2_o              =>ben_epo_shd.g_old_rec.epo_attribute2
363  ,p_epo_attribute3_o              =>ben_epo_shd.g_old_rec.epo_attribute3
364  ,p_epo_attribute4_o              =>ben_epo_shd.g_old_rec.epo_attribute4
365  ,p_epo_attribute5_o              =>ben_epo_shd.g_old_rec.epo_attribute5
366  ,p_epo_attribute6_o              =>ben_epo_shd.g_old_rec.epo_attribute6
367  ,p_epo_attribute7_o              =>ben_epo_shd.g_old_rec.epo_attribute7
368  ,p_epo_attribute8_o              =>ben_epo_shd.g_old_rec.epo_attribute8
369  ,p_epo_attribute9_o              =>ben_epo_shd.g_old_rec.epo_attribute9
370  ,p_epo_attribute10_o             =>ben_epo_shd.g_old_rec.epo_attribute10
371  ,p_epo_attribute11_o             =>ben_epo_shd.g_old_rec.epo_attribute11
372  ,p_epo_attribute12_o             =>ben_epo_shd.g_old_rec.epo_attribute12
373  ,p_epo_attribute13_o             =>ben_epo_shd.g_old_rec.epo_attribute13
374  ,p_epo_attribute14_o             =>ben_epo_shd.g_old_rec.epo_attribute14
375  ,p_epo_attribute15_o             =>ben_epo_shd.g_old_rec.epo_attribute15
376  ,p_epo_attribute16_o             =>ben_epo_shd.g_old_rec.epo_attribute16
377  ,p_epo_attribute17_o             =>ben_epo_shd.g_old_rec.epo_attribute17
378  ,p_epo_attribute18_o             =>ben_epo_shd.g_old_rec.epo_attribute18
379  ,p_epo_attribute19_o             =>ben_epo_shd.g_old_rec.epo_attribute19
380  ,p_epo_attribute20_o             =>ben_epo_shd.g_old_rec.epo_attribute20
381  ,p_epo_attribute21_o             =>ben_epo_shd.g_old_rec.epo_attribute21
382  ,p_epo_attribute22_o             =>ben_epo_shd.g_old_rec.epo_attribute22
383  ,p_epo_attribute23_o             =>ben_epo_shd.g_old_rec.epo_attribute23
384  ,p_epo_attribute24_o             =>ben_epo_shd.g_old_rec.epo_attribute24
385  ,p_epo_attribute25_o             =>ben_epo_shd.g_old_rec.epo_attribute25
386  ,p_epo_attribute26_o             =>ben_epo_shd.g_old_rec.epo_attribute26
387  ,p_epo_attribute27_o             =>ben_epo_shd.g_old_rec.epo_attribute27
388  ,p_epo_attribute28_o             =>ben_epo_shd.g_old_rec.epo_attribute28
389  ,p_epo_attribute29_o             =>ben_epo_shd.g_old_rec.epo_attribute29
390  ,p_epo_attribute30_o             =>ben_epo_shd.g_old_rec.epo_attribute30
391  ,p_request_id_o                  =>ben_epo_shd.g_old_rec.request_id
392  ,p_program_application_id_o      =>ben_epo_shd.g_old_rec.program_application_id
393  ,p_program_id_o                  =>ben_epo_shd.g_old_rec.program_id
394  ,p_program_update_date_o         =>ben_epo_shd.g_old_rec.program_update_date
395  ,p_object_version_number_o       =>ben_epo_shd.g_old_rec.object_version_number
396       );
397     --
398   exception
399     --
400     when hr_api.cannot_find_prog_unit then
401       --
402       hr_api.cannot_find_prog_unit_error
403         (p_module_name => 'ben_elig_per_opt_f'
404         ,p_hook_type   => 'AD');
405       --
406   end;
407   --
408   -- End of API User Hook for post_delete.
409   --
410   --
411   hr_utility.set_location(' Leaving:'||l_proc, 10);
412 End post_delete;
413 --
414 -- ----------------------------------------------------------------------------
415 -- |---------------------------------< del >----------------------------------|
416 -- ----------------------------------------------------------------------------
417 Procedure del
418   (
419   p_rec            in out nocopy     ben_epo_shd.g_rec_type,
420   p_effective_date    in     date,
421   p_datetrack_mode    in     varchar2
422   ) is
423 --
424   l_proc            varchar2(72) := g_package||'del';
425   l_validation_start_date    date;
426   l_validation_end_date        date;
427 --
428 Begin
429   hr_utility.set_location('Entering:'||l_proc, 5);
430   --
431   -- Ensure that the DateTrack delete mode is valid
432   --
433   dt_api.validate_dt_del_mode(p_datetrack_mode => p_datetrack_mode);
434   --
435   -- We must lock the row which we need to delete.
436   --
437   ben_epo_shd.lck
438     (p_effective_date     => p_effective_date,
439            p_datetrack_mode     => p_datetrack_mode,
440            p_elig_per_opt_id     => p_rec.elig_per_opt_id,
441            p_object_version_number => p_rec.object_version_number,
442            p_validation_start_date => l_validation_start_date,
443            p_validation_end_date     => l_validation_end_date);
444   --
445   -- Call the supporting delete validate operation
446   --
447   ben_epo_bus.delete_validate
448     (p_rec             => p_rec,
449      p_effective_date     => p_effective_date,
450      p_datetrack_mode     => p_datetrack_mode,
451      p_validation_start_date => l_validation_start_date,
452      p_validation_end_date     => l_validation_end_date);
453   --
454   -- Call the supporting pre-delete operation
455   --
456   pre_delete
457     (p_rec             => p_rec,
458      p_effective_date     => p_effective_date,
459      p_datetrack_mode     => p_datetrack_mode,
460      p_validation_start_date => l_validation_start_date,
461      p_validation_end_date     => l_validation_end_date);
462   --
463   -- Delete the row.
464   --
465   delete_dml
466     (p_rec             => p_rec,
467      p_effective_date     => p_effective_date,
468      p_datetrack_mode     => p_datetrack_mode,
469      p_validation_start_date => l_validation_start_date,
470      p_validation_end_date     => l_validation_end_date);
471   --
472   -- Call the supporting post-delete operation
473   --
474   post_delete
475     (p_rec             => p_rec,
476      p_effective_date     => p_effective_date,
477      p_datetrack_mode     => p_datetrack_mode,
478      p_validation_start_date => l_validation_start_date,
479      p_validation_end_date     => l_validation_end_date);
480 End del;
481 --
482 -- ----------------------------------------------------------------------------
483 -- |---------------------------------< del >----------------------------------|
484 -- ----------------------------------------------------------------------------
485 Procedure del
486   (
487   p_elig_per_opt_id      in      number,
488   p_effective_start_date     out nocopy date,
489   p_effective_end_date         out nocopy date,
490   p_object_version_number in out nocopy number,
491   p_effective_date      in     date,
492   p_datetrack_mode        in     varchar2
493   ) is
494 --
495   l_rec        ben_epo_shd.g_rec_type;
496   l_proc    varchar2(72) := g_package||'del';
497 --
498 Begin
499   hr_utility.set_location('Entering:'||l_proc, 5);
500   --
501   -- As the delete procedure accepts a plsql record structure we do need to
502   -- convert the  arguments into the record structure.
503   -- We don't need to call the supplied conversion argument routine as we
504   -- only need a few attributes.
505   --
506   l_rec.elig_per_opt_id        := p_elig_per_opt_id;
507   l_rec.object_version_number     := p_object_version_number;
508   --
509   -- Having converted the arguments into the ben_epo_rec
510   -- plsql record structure we must call the corresponding entity
511   -- business process
512   --
513   del(l_rec, p_effective_date, p_datetrack_mode);
514   --
515   -- Set the out arguments
516   --
517   p_object_version_number := l_rec.object_version_number;
518   p_effective_start_date  := l_rec.effective_start_date;
519   p_effective_end_date    := l_rec.effective_end_date;
520   --
521   hr_utility.set_location(' Leaving:'||l_proc, 10);
522 End del;
523 --
524 end ben_epo_del;