[Home] [Help]
PACKAGE BODY: APPS.BEN_EPE_INS
Source
1 Package Body ben_epe_ins as
2 /* $Header: beeperhi.pkb 120.0 2005/05/28 02:36:58 appldev noship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_epe_ins.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< insert_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
16 -- This procedure controls the actual dml insert logic. The processing of
13 -- {Start Of Comments}
14 --
15 -- Description:
17 -- this procedure are as follows:
18 -- 1) Initialise the object_version_number to 1 if the object_version_number
19 -- is defined as an attribute for this entity.
20 -- 2) To set and unset the g_api_dml status as required (as we are about to
21 -- perform dml).
22 -- 3) To insert the row into the schema.
23 -- 4) To trap any constraint violations that may have occurred.
24 -- 5) To raise any other errors.
25 --
26 -- Prerequisites:
27 -- This is an internal private procedure which must be called from the ins
28 -- procedure and must have all mandatory attributes set (except the
29 -- object_version_number which is initialised within this procedure).
30 --
31 -- In Parameters:
32 -- A Pl/Sql record structre.
33 --
34 -- Post Success:
35 -- The specified row will be inserted into the schema.
36 --
37 -- Post Failure:
38 -- On the insert dml failure it is important to note that we always reset the
39 -- g_api_dml status to false.
40 -- If a check, unique or parent integrity constraint violation is raised the
41 -- constraint_error procedure will be called.
42 -- If any other error is reported, the error will be raised after the
43 -- g_api_dml status is reset.
44 --
45 -- Developer Implementation Notes:
46 -- None.
47 --
48 -- Access Status:
49 -- Internal Row Handler Use Only.
50 --
51 -- {End Of Comments}
52 -- ----------------------------------------------------------------------------
53 Procedure insert_dml(p_rec in out nocopy ben_epe_shd.g_rec_type) is
54 --
55 l_proc varchar2(72) := g_package||'insert_dml';
56 --
57 Begin
58 hr_utility.set_location('Entering:'||l_proc, 5);
59 p_rec.object_version_number := 1; -- Initialise the object version
60 --
61 ben_epe_shd.g_api_dml := true; -- Set the api dml status
62 --
63 -- Insert the row into: ben_elig_per_elctbl_chc
64 --
65 insert into ben_elig_per_elctbl_chc
66 ( elig_per_elctbl_chc_id,
67 -- enrt_typ_cycl_cd,
68 enrt_cvg_strt_dt_cd,
69 -- enrt_perd_end_dt,
70 -- enrt_perd_strt_dt,
71 enrt_cvg_strt_dt_rl,
72 -- rt_strt_dt,
73 -- rt_strt_dt_rl,
74 -- rt_strt_dt_cd,
75 ctfn_rqd_flag,
76 pil_elctbl_chc_popl_id,
77 roll_crs_flag,
78 crntly_enrd_flag,
79 dflt_flag,
80 elctbl_flag,
81 mndtry_flag,
82 in_pndg_wkflow_flag,
83 -- dflt_enrt_dt,
84 dpnt_cvg_strt_dt_cd,
85 dpnt_cvg_strt_dt_rl,
86 enrt_cvg_strt_dt,
87 alws_dpnt_dsgn_flag,
88 dpnt_dsgn_cd,
89 ler_chg_dpnt_cvg_cd,
90 erlst_deenrt_dt,
91 procg_end_dt,
92 comp_lvl_cd,
93 pl_id,
94 oipl_id,
95 pgm_id,
96 plip_id,
97 ptip_id,
98 pl_typ_id,
99 oiplip_id,
100 cmbn_plip_id,
101 cmbn_ptip_id,
102 cmbn_ptip_opt_id,
103 assignment_id,
104 spcl_rt_pl_id,
105 spcl_rt_oipl_id,
106 must_enrl_anthr_pl_id,
107 interim_elig_per_elctbl_chc_id,
108 prtt_enrt_rslt_id,
109 bnft_prvdr_pool_id,
110 per_in_ler_id,
111 yr_perd_id,
112 auto_enrt_flag,
113 business_group_id,
114 pl_ordr_num,
115 plip_ordr_num,
116 ptip_ordr_num,
117 oipl_ordr_num,
118 -- cwb
119 comments,
120 elig_flag,
121 elig_ovrid_dt,
122 elig_ovrid_person_id,
123 inelig_rsn_cd,
124 mgr_ovrid_dt,
125 mgr_ovrid_person_id,
126 ws_mgr_id,
127 -- cwb
128 epe_attribute_category,
129 epe_attribute1,
130 epe_attribute2,
131 epe_attribute3,
132 epe_attribute4,
133 epe_attribute5,
134 epe_attribute6,
135 epe_attribute7,
136 epe_attribute8,
137 epe_attribute9,
138 epe_attribute10,
139 epe_attribute11,
140 epe_attribute12,
141 epe_attribute13,
142 epe_attribute14,
143 epe_attribute15,
144 epe_attribute16,
145 epe_attribute17,
146 epe_attribute18,
147 epe_attribute19,
148 epe_attribute20,
149 epe_attribute21,
150 epe_attribute22,
151 epe_attribute23,
152 epe_attribute24,
153 epe_attribute25,
154 epe_attribute26,
155 epe_attribute27,
156 epe_attribute28,
157 epe_attribute29,
158 epe_attribute30,
159 approval_status_cd,
160 fonm_cvg_strt_dt,
161 cryfwd_elig_dpnt_cd,
162 request_id,
163 program_application_id,
164 program_id,
165 program_update_date,
166 object_version_number
167 )
168 Values
169 ( p_rec.elig_per_elctbl_chc_id,
170 -- p_rec.enrt_typ_cycl_cd,
171 p_rec.enrt_cvg_strt_dt_cd,
172 -- p_rec.enrt_perd_end_dt,
173 -- p_rec.enrt_perd_strt_dt,
174 p_rec.enrt_cvg_strt_dt_rl,
175 -- p_rec.rt_strt_dt,
176 -- p_rec.rt_strt_dt_rl,
177 -- p_rec.rt_strt_dt_cd,
178 p_rec.ctfn_rqd_flag,
179 p_rec.pil_elctbl_chc_popl_id,
180 p_rec.roll_crs_flag,
181 p_rec.crntly_enrd_flag,
182 p_rec.dflt_flag,
183 p_rec.elctbl_flag,
184 p_rec.mndtry_flag,
185 p_rec.in_pndg_wkflow_flag,
186 -- p_rec.dflt_enrt_dt,
187 p_rec.dpnt_cvg_strt_dt_cd,
188 p_rec.dpnt_cvg_strt_dt_rl,
189 p_rec.enrt_cvg_strt_dt,
190 p_rec.alws_dpnt_dsgn_flag,
191 p_rec.dpnt_dsgn_cd,
192 p_rec.ler_chg_dpnt_cvg_cd,
196 p_rec.pl_id,
193 p_rec.erlst_deenrt_dt,
194 p_rec.procg_end_dt,
195 p_rec.comp_lvl_cd,
197 p_rec.oipl_id,
198 p_rec.pgm_id,
199 p_rec.plip_id,
200 p_rec.ptip_id,
201 p_rec.pl_typ_id,
202 p_rec.oiplip_id,
203 p_rec.cmbn_plip_id,
204 p_rec.cmbn_ptip_id,
205 p_rec.cmbn_ptip_opt_id,
206 p_rec.assignment_id,
207 p_rec.spcl_rt_pl_id,
208 p_rec.spcl_rt_oipl_id,
209 p_rec.must_enrl_anthr_pl_id,
210 p_rec.int_elig_per_elctbl_chc_id,
211 p_rec.prtt_enrt_rslt_id,
212 p_rec.bnft_prvdr_pool_id,
213 p_rec.per_in_ler_id,
214 p_rec.yr_perd_id,
215 p_rec.auto_enrt_flag,
216 p_rec.business_group_id,
217 p_rec.pl_ordr_num,
218 p_rec.plip_ordr_num,
219 p_rec.ptip_ordr_num,
220 p_rec.oipl_ordr_num,
221 -- cwb
222 p_rec.comments,
223 p_rec.elig_flag,
224 p_rec.elig_ovrid_dt,
225 p_rec.elig_ovrid_person_id,
226 p_rec.inelig_rsn_cd,
227 p_rec.mgr_ovrid_dt,
228 p_rec.mgr_ovrid_person_id,
229 p_rec.ws_mgr_id,
230 -- cwb
231 p_rec.epe_attribute_category,
232 p_rec.epe_attribute1,
233 p_rec.epe_attribute2,
234 p_rec.epe_attribute3,
235 p_rec.epe_attribute4,
236 p_rec.epe_attribute5,
237 p_rec.epe_attribute6,
238 p_rec.epe_attribute7,
239 p_rec.epe_attribute8,
240 p_rec.epe_attribute9,
241 p_rec.epe_attribute10,
242 p_rec.epe_attribute11,
243 p_rec.epe_attribute12,
244 p_rec.epe_attribute13,
245 p_rec.epe_attribute14,
246 p_rec.epe_attribute15,
247 p_rec.epe_attribute16,
248 p_rec.epe_attribute17,
249 p_rec.epe_attribute18,
250 p_rec.epe_attribute19,
251 p_rec.epe_attribute20,
252 p_rec.epe_attribute21,
253 p_rec.epe_attribute22,
254 p_rec.epe_attribute23,
255 p_rec.epe_attribute24,
256 p_rec.epe_attribute25,
257 p_rec.epe_attribute26,
258 p_rec.epe_attribute27,
259 p_rec.epe_attribute28,
260 p_rec.epe_attribute29,
261 p_rec.epe_attribute30,
262 p_rec.approval_status_cd,
263 p_rec.fonm_cvg_strt_dt,
264 p_rec.cryfwd_elig_dpnt_cd,
265 p_rec.request_id,
266 p_rec.program_application_id,
267 p_rec.program_id,
268 p_rec.program_update_date,
269 p_rec.object_version_number
270 );
271 --
272 ben_epe_shd.g_api_dml := false; -- Unset the api dml status
273 --
274 hr_utility.set_location(' Leaving:'||l_proc, 10);
275 Exception
276 When hr_api.check_integrity_violated Then
277 -- A check constraint has been violated
278 ben_epe_shd.g_api_dml := false; -- Unset the api dml status
279 ben_epe_shd.constraint_error
280 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
281 When hr_api.parent_integrity_violated Then
282 -- Parent integrity has been violated
283 ben_epe_shd.g_api_dml := false; -- Unset the api dml status
284 ben_epe_shd.constraint_error
285 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
286 When hr_api.unique_integrity_violated Then
287 -- Unique integrity has been violated
288 ben_epe_shd.g_api_dml := false; -- Unset the api dml status
289 ben_epe_shd.constraint_error
290 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
291 When Others Then
292 ben_epe_shd.g_api_dml := false; -- Unset the api dml status
293 Raise;
294 End insert_dml;
295 --
296 -- ----------------------------------------------------------------------------
297 -- |------------------------------< pre_insert >------------------------------|
298 -- ----------------------------------------------------------------------------
299 -- {Start Of Comments}
300 --
301 -- Description:
302 -- This private procedure contains any processing which is required before
303 -- the insert dml. Presently, if the entity has a corresponding primary
304 -- key which is maintained by an associating sequence, the primary key for
305 -- the entity will be populated with the next sequence value in
306 -- preparation for the insert dml.
307 --
308 -- Prerequisites:
309 -- This is an internal procedure which is called from the ins procedure.
310 --
311 -- In Parameters:
312 -- A Pl/Sql record structre.
313 --
314 -- Post Success:
315 -- Processing continues.
316 --
317 -- Post Failure:
318 -- If an error has occurred, an error message and exception will be raised
319 -- but not handled.
320 --
321 -- Developer Implementation Notes:
322 -- Any pre-processing required before the insert dml is issued should be
323 -- coded within this procedure. As stated above, a good example is the
324 -- generation of a primary key number via a corresponding sequence.
325 -- It is important to note that any 3rd party maintenance should be reviewed
326 -- before placing in this procedure.
327 --
328 -- Access Status:
329 -- Internal Row Handler Use Only.
330 --
331 -- {End Of Comments}
332 -- ----------------------------------------------------------------------------
333 Procedure pre_insert(p_rec in out nocopy ben_epe_shd.g_rec_type) is
334 --
335 l_proc varchar2(72) := g_package||'pre_insert';
336 --
337 --
338 Cursor C_Sel1 is select ben_elig_per_elctbl_chc_s.nextval from sys.dual;
339 --
340 Begin
341 hr_utility.set_location('Entering:'||l_proc, 5);
342 --
343 -- Select the next sequence number
344 --
345 Open C_Sel1;
346 Fetch C_Sel1 Into p_rec.elig_per_elctbl_chc_id;
347 Close C_Sel1;
348 --
349 hr_utility.set_location(' Leaving:'||l_proc, 10);
350 End pre_insert;
351 --
352 -- ----------------------------------------------------------------------------
356 --
353 -- |-----------------------------< post_insert >------------------------------|
354 -- ----------------------------------------------------------------------------
355 -- {Start Of Comments}
357 -- Description:
358 -- This private procedure contains any processing which is required after the
359 -- insert dml.
360 --
361 -- Prerequisites:
362 -- This is an internal procedure which is called from the ins procedure.
363 --
364 -- In Parameters:
365 -- A Pl/Sql record structre.
366 --
367 -- Post Success:
368 -- Processing continues.
369 --
370 -- Post Failure:
371 -- If an error has occurred, an error message and exception will be raised
372 -- but not handled.
373 --
374 -- Developer Implementation Notes:
375 -- Any post-processing required after the insert dml is issued should be
376 -- coded within this procedure. It is important to note that any 3rd party
377 -- maintenance should be reviewed before placing in this procedure.
378 --
379 -- Access Status:
380 -- Internal Row Handler Use Only.
381 --
382 -- {End Of Comments}
383 -- ----------------------------------------------------------------------------
384 Procedure post_insert(p_rec in ben_epe_shd.g_rec_type) is
385 --
386 l_proc varchar2(72) := g_package||'post_insert';
387 --
388 Begin
389 hr_utility.set_location('Entering:'||l_proc, 5);
390 --
391 hr_utility.set_location(' Leaving:'||l_proc, 10);
392 End post_insert;
393 --
394 -- ----------------------------------------------------------------------------
395 -- |---------------------------------< ins >----------------------------------|
396 -- ----------------------------------------------------------------------------
397 Procedure ins
398 (
399 p_effective_date in date,
400 p_rec in out nocopy ben_epe_shd.g_rec_type
401 ) is
402 --
403 l_proc varchar2(72) := g_package||'ins';
404 --
405 Begin
406 hr_utility.set_location('Entering:'||l_proc, 5);
407 --
408 -- Call the supporting insert validate operations
409 --
410 ben_epe_bus.insert_validate(p_rec,p_effective_date);
411 --
412 -- Call the supporting pre-insert operation
413 --
414 pre_insert(p_rec);
415 --
416 -- Insert the row
417 --
418 insert_dml(p_rec);
419 --
420 -- Call the supporting post-insert operation
421 --
422 post_insert(p_rec);
423 end ins;
424 --
425 -- ----------------------------------------------------------------------------
426 -- |---------------------------------< ins >----------------------------------|
427 -- ----------------------------------------------------------------------------
428 Procedure ins
429 (
430 p_effective_date in date,
431 p_elig_per_elctbl_chc_id out nocopy number,
432 -- p_enrt_typ_cycl_cd in varchar2 default null,
433 p_enrt_cvg_strt_dt_cd in varchar2 default null,
434 -- p_enrt_perd_end_dt in date default null,
435 -- p_enrt_perd_strt_dt in date default null,
436 p_enrt_cvg_strt_dt_rl in varchar2 default null,
437 -- p_rt_strt_dt in date default null,
438 -- p_rt_strt_dt_rl in varchar2 default null,
439 -- p_rt_strt_dt_cd in varchar2 default null,
440 p_ctfn_rqd_flag in varchar2,
441 p_pil_elctbl_chc_popl_id in number,
442 p_roll_crs_flag in varchar2 default null,
443 p_crntly_enrd_flag in varchar2,
444 p_dflt_flag in varchar2,
445 p_elctbl_flag in varchar2,
446 p_mndtry_flag in varchar2,
447 p_in_pndg_wkflow_flag in varchar2 default 'N',
448 -- p_dflt_enrt_dt in date default null,
449 p_dpnt_cvg_strt_dt_cd in varchar2 default null,
450 p_dpnt_cvg_strt_dt_rl in varchar2 default null,
451 p_enrt_cvg_strt_dt in date default null,
452 p_alws_dpnt_dsgn_flag in varchar2,
453 p_dpnt_dsgn_cd in varchar2 default null,
454 p_ler_chg_dpnt_cvg_cd in varchar2 default null,
455 p_erlst_deenrt_dt in date default null,
456 p_procg_end_dt in date default null,
457 p_comp_lvl_cd in varchar2 default null,
458 p_pl_id in number,
459 p_oipl_id in number default null,
460 p_pgm_id in number default null,
461 p_plip_id in number default null,
462 p_ptip_id in number default null,
463 p_pl_typ_id in number default null,
464 p_oiplip_id in number default null,
465 p_cmbn_plip_id in number default null,
466 p_cmbn_ptip_id in number default null,
467 p_cmbn_ptip_opt_id in number default null,
468 p_assignment_id in number default null,
469 p_spcl_rt_pl_id in number,
470 p_spcl_rt_oipl_id in number,
471 p_must_enrl_anthr_pl_id in number,
472 p_int_elig_per_elctbl_chc_id in number,
473 p_prtt_enrt_rslt_id in number default null,
474 p_bnft_prvdr_pool_id in number,
475 p_per_in_ler_id in number,
476 p_yr_perd_id in number default null,
477 p_auto_enrt_flag in varchar2 default null,
478 p_business_group_id in number,
479 p_pl_ordr_num in number default null,
483 -- cwb
480 p_plip_ordr_num in number default null,
481 p_ptip_ordr_num in number default null,
482 p_oipl_ordr_num in number default null,
484 p_comments in varchar2 default null,
485 p_elig_flag in varchar2 default null,
486 p_elig_ovrid_dt in date default null,
487 p_elig_ovrid_person_id in number default null,
488 p_inelig_rsn_cd in varchar2 default null,
489 p_mgr_ovrid_dt in date default null,
490 p_mgr_ovrid_person_id in number default null,
491 p_ws_mgr_id in number default null,
492 -- cwb
493 p_epe_attribute_category in varchar2 default null,
494 p_epe_attribute1 in varchar2 default null,
495 p_epe_attribute2 in varchar2 default null,
496 p_epe_attribute3 in varchar2 default null,
497 p_epe_attribute4 in varchar2 default null,
498 p_epe_attribute5 in varchar2 default null,
499 p_epe_attribute6 in varchar2 default null,
500 p_epe_attribute7 in varchar2 default null,
501 p_epe_attribute8 in varchar2 default null,
502 p_epe_attribute9 in varchar2 default null,
503 p_epe_attribute10 in varchar2 default null,
504 p_epe_attribute11 in varchar2 default null,
505 p_epe_attribute12 in varchar2 default null,
506 p_epe_attribute13 in varchar2 default null,
507 p_epe_attribute14 in varchar2 default null,
508 p_epe_attribute15 in varchar2 default null,
509 p_epe_attribute16 in varchar2 default null,
510 p_epe_attribute17 in varchar2 default null,
511 p_epe_attribute18 in varchar2 default null,
512 p_epe_attribute19 in varchar2 default null,
513 p_epe_attribute20 in varchar2 default null,
514 p_epe_attribute21 in varchar2 default null,
515 p_epe_attribute22 in varchar2 default null,
516 p_epe_attribute23 in varchar2 default null,
517 p_epe_attribute24 in varchar2 default null,
518 p_epe_attribute25 in varchar2 default null,
519 p_epe_attribute26 in varchar2 default null,
520 p_epe_attribute27 in varchar2 default null,
521 p_epe_attribute28 in varchar2 default null,
522 p_epe_attribute29 in varchar2 default null,
523 p_epe_attribute30 in varchar2 default null,
524 p_approval_status_cd in varchar2 default null,
525 p_fonm_cvg_strt_dt in date default null,
526 p_cryfwd_elig_dpnt_cd in varchar2 default null,
527 p_request_id in number default null,
528 p_program_application_id in number default null,
529 p_program_id in number default null,
530 p_program_update_date in date default null,
531 p_object_version_number out nocopy number
532 ) is
533 --
534 l_rec ben_epe_shd.g_rec_type;
535 l_proc varchar2(72) := g_package||'ins';
536 --
537 Begin
538 hr_utility.set_location('Entering:'||l_proc, 5);
539 --
540 -- Call conversion function to turn arguments into the
541 -- p_rec structure.
542 --
543 l_rec :=
544 ben_epe_shd.convert_args
545 (
546 null,
547 -- p_enrt_typ_cycl_cd,
548 p_enrt_cvg_strt_dt_cd,
549 -- p_enrt_perd_end_dt,
550 -- p_enrt_perd_strt_dt,
551 p_enrt_cvg_strt_dt_rl,
552 -- p_rt_strt_dt,
553 -- p_rt_strt_dt_rl,
554 -- p_rt_strt_dt_cd,
555 p_ctfn_rqd_flag,
556 p_pil_elctbl_chc_popl_id,
557 p_roll_crs_flag,
558 p_crntly_enrd_flag,
559 p_dflt_flag,
560 p_elctbl_flag,
561 p_mndtry_flag,
562 p_in_pndg_wkflow_flag,
563 -- p_dflt_enrt_dt,
564 p_dpnt_cvg_strt_dt_cd,
565 p_dpnt_cvg_strt_dt_rl,
566 p_enrt_cvg_strt_dt,
567 p_alws_dpnt_dsgn_flag,
568 p_dpnt_dsgn_cd,
569 p_ler_chg_dpnt_cvg_cd,
570 p_erlst_deenrt_dt,
571 p_procg_end_dt,
572 p_comp_lvl_cd,
573 p_pl_id,
574 p_oipl_id,
575 p_pgm_id,
576 p_plip_id,
577 p_ptip_id,
578 p_pl_typ_id,
579 p_oiplip_id,
580 p_cmbn_plip_id,
581 p_cmbn_ptip_id,
582 p_cmbn_ptip_opt_id,
583 p_assignment_id,
584 p_spcl_rt_pl_id,
585 p_spcl_rt_oipl_id,
586 p_must_enrl_anthr_pl_id,
587 p_int_elig_per_elctbl_chc_id,
588 p_prtt_enrt_rslt_id,
589 p_bnft_prvdr_pool_id,
590 p_per_in_ler_id,
591 p_yr_perd_id,
592 p_auto_enrt_flag,
593 p_business_group_id,
594 p_pl_ordr_num,
595 p_plip_ordr_num,
596 p_ptip_ordr_num,
597 p_oipl_ordr_num,
598 -- cwb
599 p_comments,
600 p_elig_flag,
601 p_elig_ovrid_dt,
602 p_elig_ovrid_person_id,
603 p_inelig_rsn_cd,
604 p_mgr_ovrid_dt,
605 p_mgr_ovrid_person_id,
606 p_ws_mgr_id,
607 -- cwb
608 p_epe_attribute_category,
609 p_epe_attribute1,
610 p_epe_attribute2,
611 p_epe_attribute3,
612 p_epe_attribute4,
613 p_epe_attribute5,
614 p_epe_attribute6,
615 p_epe_attribute7,
616 p_epe_attribute8,
617 p_epe_attribute9,
618 p_epe_attribute10,
619 p_epe_attribute11,
620 p_epe_attribute12,
621 p_epe_attribute13,
625 p_epe_attribute17,
622 p_epe_attribute14,
623 p_epe_attribute15,
624 p_epe_attribute16,
626 p_epe_attribute18,
627 p_epe_attribute19,
628 p_epe_attribute20,
629 p_epe_attribute21,
630 p_epe_attribute22,
631 p_epe_attribute23,
632 p_epe_attribute24,
633 p_epe_attribute25,
634 p_epe_attribute26,
635 p_epe_attribute27,
636 p_epe_attribute28,
637 p_epe_attribute29,
638 p_epe_attribute30,
639 p_approval_status_cd,
640 p_fonm_cvg_strt_dt,
641 p_cryfwd_elig_dpnt_cd,
642 p_request_id,
643 p_program_application_id,
644 p_program_id,
645 p_program_update_date,
646 null
647 );
648 --
649 -- Having converted the arguments into the ben_epe_rec
650 -- plsql record structure we call the corresponding record business process.
651 --
652 ins(p_effective_date,l_rec);
653 --
654 -- As the primary key argument(s)
655 -- are specified as an OUT's we must set these values.
656 --
657 p_elig_per_elctbl_chc_id := l_rec.elig_per_elctbl_chc_id;
658 p_object_version_number := l_rec.object_version_number;
659 --
660 hr_utility.set_location(' Leaving:'||l_proc, 10);
661 End ins;
662 --
663 end ben_epe_ins;