[Home] [Help]
PACKAGE BODY: APPS.BEN_PEL_INS
Source
1 Package Body ben_pel_ins as
2 /* $Header: bepelrhi.pkb 120.6.12020000.2 2012/07/03 13:08:03 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Private Global Definitions |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package varchar2(33) := ' ben_pel_ins.'; -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |------------------------------< insert_dml >------------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 -- This procedure controls the actual dml insert logic. The processing of
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:
52 -- ----------------------------------------------------------------------------
49 -- Internal Row Handler Use Only.
50 --
51 -- {End Of Comments}
53 Procedure insert_dml(p_rec in out nocopy ben_pel_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_pel_shd.g_api_dml := true; -- Set the api dml status
62 --
63 -- Insert the row into: ben_pil_elctbl_chc_popl
64 --
65 insert into ben_pil_elctbl_chc_popl
66 ( pil_elctbl_chc_popl_id,
67 dflt_enrt_dt,
68 dflt_asnd_dt,
69 elcns_made_dt,
70 cls_enrt_dt_to_use_cd,
71 enrt_typ_cycl_cd,
72 enrt_perd_end_dt,
73 enrt_perd_strt_dt,
74 procg_end_dt,
75 pil_elctbl_popl_stat_cd,
76 acty_ref_perd_cd,
77 uom,
78 comments,
79 mgr_ovrid_dt,
80 ws_mgr_id,
81 mgr_ovrid_person_id,
82 assignment_id,
83 --cwb
84 bdgt_acc_cd,
85 pop_cd,
86 bdgt_due_dt,
87 bdgt_export_flag,
88 bdgt_iss_dt,
89 bdgt_stat_cd,
90 ws_acc_cd,
91 ws_due_dt,
92 ws_export_flag,
93 ws_iss_dt,
94 ws_stat_cd,
95 --cwb
96 reinstate_cd,
97 reinstate_ovrdn_cd,
98 reopen_le_on_reprocess,
99 auto_asnd_dt,
100 cbr_elig_perd_strt_dt,
101 cbr_elig_perd_end_dt,
102 lee_rsn_id,
103 enrt_perd_id,
104 per_in_ler_id,
105 pgm_id,
106 pl_id,
107 business_group_id,
108 pel_attribute_category,
109 pel_attribute1,
110 pel_attribute2,
111 pel_attribute3,
112 pel_attribute4,
113 pel_attribute5,
114 pel_attribute6,
115 pel_attribute7,
116 pel_attribute8,
117 pel_attribute9,
118 pel_attribute10,
119 pel_attribute11,
120 pel_attribute12,
121 pel_attribute13,
122 pel_attribute14,
123 pel_attribute15,
124 pel_attribute16,
125 pel_attribute17,
126 pel_attribute18,
127 pel_attribute19,
128 pel_attribute20,
129 pel_attribute21,
130 pel_attribute22,
131 pel_attribute23,
132 pel_attribute24,
133 pel_attribute25,
134 pel_attribute26,
135 pel_attribute27,
136 pel_attribute28,
137 pel_attribute29,
138 pel_attribute30,
139 request_id,
140 program_application_id,
141 program_id,
142 program_update_date,
143 object_version_number,
144 defer_deenrol_flag,
145 deenrol_made_dt
146 )
147 Values
148 ( p_rec.pil_elctbl_chc_popl_id,
149 p_rec.dflt_enrt_dt,
150 p_rec.dflt_asnd_dt,
151 p_rec.elcns_made_dt,
152 p_rec.cls_enrt_dt_to_use_cd,
153 p_rec.enrt_typ_cycl_cd,
154 p_rec.enrt_perd_end_dt,
155 p_rec.enrt_perd_strt_dt,
156 p_rec.procg_end_dt,
157 p_rec.pil_elctbl_popl_stat_cd,
158 p_rec.acty_ref_perd_cd,
159 p_rec.uom,
160 p_rec.comments,
161 p_rec.mgr_ovrid_dt,
162 p_rec.ws_mgr_id,
163 p_rec.mgr_ovrid_person_id,
164 p_rec.assignment_id,
165 --cwb
166 p_rec.bdgt_acc_cd,
167 p_rec.pop_cd,
168 p_rec.bdgt_due_dt,
169 p_rec.bdgt_export_flag,
170 p_rec.bdgt_iss_dt,
171 p_rec.bdgt_stat_cd,
172 p_rec.ws_acc_cd,
173 p_rec.ws_due_dt,
174 p_rec.ws_export_flag,
175 p_rec.ws_iss_dt,
176 p_rec.ws_stat_cd,
177 --cwb
178 p_rec.reinstate_cd,
179 p_rec.reinstate_ovrdn_cd,
180 p_rec.reopen_le_on_reprocess,
181 p_rec.auto_asnd_dt,
182 p_rec.cbr_elig_perd_strt_dt,
183 p_rec.cbr_elig_perd_end_dt,
184 p_rec.lee_rsn_id,
185 p_rec.enrt_perd_id,
186 p_rec.per_in_ler_id,
187 p_rec.pgm_id,
188 p_rec.pl_id,
189 p_rec.business_group_id,
190 p_rec.pel_attribute_category,
191 p_rec.pel_attribute1,
192 p_rec.pel_attribute2,
193 p_rec.pel_attribute3,
194 p_rec.pel_attribute4,
195 p_rec.pel_attribute5,
196 p_rec.pel_attribute6,
197 p_rec.pel_attribute7,
198 p_rec.pel_attribute8,
199 p_rec.pel_attribute9,
200 p_rec.pel_attribute10,
201 p_rec.pel_attribute11,
202 p_rec.pel_attribute12,
203 p_rec.pel_attribute13,
204 p_rec.pel_attribute14,
205 p_rec.pel_attribute15,
206 p_rec.pel_attribute16,
207 p_rec.pel_attribute17,
208 p_rec.pel_attribute18,
209 p_rec.pel_attribute19,
210 p_rec.pel_attribute20,
211 p_rec.pel_attribute21,
212 p_rec.pel_attribute22,
213 p_rec.pel_attribute23,
214 p_rec.pel_attribute24,
215 p_rec.pel_attribute25,
216 p_rec.pel_attribute26,
217 p_rec.pel_attribute27,
218 p_rec.pel_attribute28,
219 p_rec.pel_attribute29,
220 p_rec.pel_attribute30,
221 p_rec.request_id,
222 p_rec.program_application_id,
223 p_rec.program_id,
224 p_rec.program_update_date,
225 p_rec.object_version_number,
226 p_rec.defer_deenrol_flag,
227 p_rec.deenrol_made_dt
228 );
229 --
230 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
231 --
232 hr_utility.set_location(' Leaving:'||l_proc, 10);
233 Exception
234 When hr_api.check_integrity_violated Then
238 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
235 -- A check constraint has been violated
236 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
237 ben_pel_shd.constraint_error
239 When hr_api.parent_integrity_violated Then
240 -- Parent integrity has been violated
241 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
242 ben_pel_shd.constraint_error
243 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
244 When hr_api.unique_integrity_violated Then
245 -- Unique integrity has been violated
246 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
247 ben_pel_shd.constraint_error
248 (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
249 When Others Then
250 ben_pel_shd.g_api_dml := false; -- Unset the api dml status
251 Raise;
252 End insert_dml;
253 --
254 -- ----------------------------------------------------------------------------
255 -- |------------------------------< pre_insert >------------------------------|
256 -- ----------------------------------------------------------------------------
257 -- {Start Of Comments}
258 --
259 -- Description:
260 -- This private procedure contains any processing which is required before
261 -- the insert dml. Presently, if the entity has a corresponding primary
262 -- key which is maintained by an associating sequence, the primary key for
263 -- the entity will be populated with the next sequence value in
264 -- preparation for the insert dml.
265 --
266 -- Prerequisites:
267 -- This is an internal procedure which is called from the ins procedure.
268 --
269 -- In Parameters:
270 -- A Pl/Sql record structre.
271 --
272 -- Post Success:
273 -- Processing continues.
274 --
275 -- Post Failure:
276 -- If an error has occurred, an error message and exception will be raised
277 -- but not handled.
278 --
279 -- Developer Implementation Notes:
280 -- Any pre-processing required before the insert dml is issued should be
281 -- coded within this procedure. As stated above, a good example is the
282 -- generation of a primary key number via a corresponding sequence.
283 -- It is important to note that any 3rd party maintenance should be reviewed
284 -- before placing in this procedure.
285 --
286 -- Access Status:
287 -- Internal Row Handler Use Only.
288 --
289 -- {End Of Comments}
290 -- ----------------------------------------------------------------------------
291 Procedure pre_insert(p_rec in out nocopy ben_pel_shd.g_rec_type) is
292 --
293 l_proc varchar2(72) := g_package||'pre_insert';
294 --
295 Cursor C_Sel1 is select ben_pil_elctbl_chc_popl_s.nextval from sys.dual;
296 --
297 Begin
298 hr_utility.set_location('Entering:'||l_proc, 5);
299 --
300 --
301 -- Select the next sequence number
302 --
303 Open C_Sel1;
304 Fetch C_Sel1 Into p_rec.pil_elctbl_chc_popl_id;
305 Close C_Sel1;
306 --
307 hr_utility.set_location(' Leaving:'||l_proc, 10);
308 End pre_insert;
309 --
310 -- ----------------------------------------------------------------------------
311 -- |-----------------------------< post_insert >------------------------------|
312 -- ----------------------------------------------------------------------------
313 -- {Start Of Comments}
314 --
315 -- Description:
316 -- This private procedure contains any processing which is required after the
317 -- insert dml.
318 --
319 -- Prerequisites:
320 -- This is an internal procedure which is called from the ins procedure.
321 --
322 -- In Parameters:
323 -- A Pl/Sql record structre.
324 --
325 -- Post Success:
326 -- Processing continues.
327 --
328 -- Post Failure:
329 -- If an error has occurred, an error message and exception will be raised
330 -- but not handled.
331 --
332 -- Developer Implementation Notes:
333 -- Any post-processing required after the insert dml is issued should be
334 -- coded within this procedure. It is important to note that any 3rd party
335 -- maintenance should be reviewed before placing in this procedure.
336 --
337 -- Access Status:
338 -- Internal Row Handler Use Only.
339 --
340 -- {End Of Comments}
341 -- ----------------------------------------------------------------------------
342 Procedure post_insert(
343 p_effective_date in date,p_rec in ben_pel_shd.g_rec_type) is
344 --
345 l_proc varchar2(72) := g_package||'post_insert';
346 --
347 Begin
348 hr_utility.set_location('Entering:'||l_proc, 5);
349 --
350 --
351 -- Start of API User Hook for post_insert.
352 --
353 begin
354 --
355 ben_pel_rki.after_insert
356 (
357 p_pil_elctbl_chc_popl_id =>p_rec.pil_elctbl_chc_popl_id
358 ,p_dflt_enrt_dt =>p_rec.dflt_enrt_dt
359 ,p_dflt_asnd_dt =>p_rec.dflt_asnd_dt
360 ,p_elcns_made_dt =>p_rec.elcns_made_dt
361 ,p_cls_enrt_dt_to_use_cd =>p_rec.cls_enrt_dt_to_use_cd
362 ,p_enrt_typ_cycl_cd =>p_rec.enrt_typ_cycl_cd
363 ,p_enrt_perd_end_dt =>p_rec.enrt_perd_end_dt
364 ,p_enrt_perd_strt_dt =>p_rec.enrt_perd_strt_dt
365 ,p_procg_end_dt =>p_rec.procg_end_dt
366 ,p_pil_elctbl_popl_stat_cd =>p_rec.pil_elctbl_popl_stat_cd
367 ,p_acty_ref_perd_cd =>p_rec.acty_ref_perd_cd
368 ,p_uom =>p_rec.uom
369 ,p_comments =>p_rec.comments
370 ,p_mgr_ovrid_dt =>p_rec.mgr_ovrid_dt
374 --cwb
371 ,p_ws_mgr_id =>p_rec.ws_mgr_id
372 ,p_mgr_ovrid_person_id =>p_rec.mgr_ovrid_person_id
373 ,p_assignment_id =>p_rec.assignment_id
375 ,p_bdgt_acc_cd => p_rec.bdgt_acc_cd
376 ,p_pop_cd => p_rec.pop_cd
377 ,p_bdgt_due_dt => p_rec.bdgt_due_dt
378 ,p_bdgt_export_flag => p_rec.bdgt_export_flag
379 ,p_bdgt_iss_dt => p_rec.bdgt_iss_dt
380 ,p_bdgt_stat_cd => p_rec.bdgt_stat_cd
381 ,p_ws_acc_cd => p_rec.ws_acc_cd
382 ,p_ws_due_dt => p_rec.ws_due_dt
383 ,p_ws_export_flag => p_rec.ws_export_flag
384 ,p_ws_iss_dt => p_rec.ws_iss_dt
385 ,p_ws_stat_cd => p_rec.ws_stat_cd
386 --cwb
387 ,p_reinstate_cd =>p_rec.reinstate_cd
388 ,p_reinstate_ovrdn_cd =>p_rec.reinstate_ovrdn_cd
389 ,p_reopen_le_on_reprocess =>p_rec.reopen_le_on_reprocess
390 ,p_auto_asnd_dt =>p_rec.auto_asnd_dt
391 ,p_cbr_elig_perd_strt_dt =>p_rec.cbr_elig_perd_strt_dt
392 ,p_cbr_elig_perd_end_dt =>p_rec.cbr_elig_perd_end_dt
393 ,p_lee_rsn_id =>p_rec.lee_rsn_id
394 ,p_enrt_perd_id =>p_rec.enrt_perd_id
395 ,p_per_in_ler_id =>p_rec.per_in_ler_id
396 ,p_pgm_id =>p_rec.pgm_id
397 ,p_pl_id =>p_rec.pl_id
398 ,p_business_group_id =>p_rec.business_group_id
399 ,p_pel_attribute_category =>p_rec.pel_attribute_category
400 ,p_pel_attribute1 =>p_rec.pel_attribute1
401 ,p_pel_attribute2 =>p_rec.pel_attribute2
402 ,p_pel_attribute3 =>p_rec.pel_attribute3
403 ,p_pel_attribute4 =>p_rec.pel_attribute4
404 ,p_pel_attribute5 =>p_rec.pel_attribute5
405 ,p_pel_attribute6 =>p_rec.pel_attribute6
406 ,p_pel_attribute7 =>p_rec.pel_attribute7
407 ,p_pel_attribute8 =>p_rec.pel_attribute8
408 ,p_pel_attribute9 =>p_rec.pel_attribute9
409 ,p_pel_attribute10 =>p_rec.pel_attribute10
410 ,p_pel_attribute11 =>p_rec.pel_attribute11
411 ,p_pel_attribute12 =>p_rec.pel_attribute12
412 ,p_pel_attribute13 =>p_rec.pel_attribute13
413 ,p_pel_attribute14 =>p_rec.pel_attribute14
414 ,p_pel_attribute15 =>p_rec.pel_attribute15
415 ,p_pel_attribute16 =>p_rec.pel_attribute16
416 ,p_pel_attribute17 =>p_rec.pel_attribute17
417 ,p_pel_attribute18 =>p_rec.pel_attribute18
418 ,p_pel_attribute19 =>p_rec.pel_attribute19
419 ,p_pel_attribute20 =>p_rec.pel_attribute20
420 ,p_pel_attribute21 =>p_rec.pel_attribute21
421 ,p_pel_attribute22 =>p_rec.pel_attribute22
422 ,p_pel_attribute23 =>p_rec.pel_attribute23
423 ,p_pel_attribute24 =>p_rec.pel_attribute24
424 ,p_pel_attribute25 =>p_rec.pel_attribute25
425 ,p_pel_attribute26 =>p_rec.pel_attribute26
426 ,p_pel_attribute27 =>p_rec.pel_attribute27
427 ,p_pel_attribute28 =>p_rec.pel_attribute28
428 ,p_pel_attribute29 =>p_rec.pel_attribute29
429 ,p_pel_attribute30 =>p_rec.pel_attribute30
430 ,p_request_id =>p_rec.request_id
431 ,p_program_application_id =>p_rec.program_application_id
432 ,p_program_id =>p_rec.program_id
433 ,p_program_update_date =>p_rec.program_update_date
434 ,p_object_version_number =>p_rec.object_version_number
435 ,p_effective_date =>p_effective_date
436 ,p_defer_deenrol_flag =>p_rec.defer_deenrol_flag
437 ,p_deenrol_made_dt =>p_rec.deenrol_made_dt
438 );
439 --
440 exception
441 --
442 when hr_api.cannot_find_prog_unit then
443 --
444 hr_api.cannot_find_prog_unit_error
445 (p_module_name => 'ben_pil_elctbl_chc_popl'
446 ,p_hook_type => 'AI');
447 --
448 end;
449 --
450 -- End of API User Hook for post_insert.
451 --
452 --
453 hr_utility.set_location(' Leaving:'||l_proc, 10);
454 End post_insert;
455 --
456 -- ----------------------------------------------------------------------------
457 -- |---------------------------------< ins >----------------------------------|
458 -- ----------------------------------------------------------------------------
459 Procedure ins
460 (
461 p_effective_date in date,
462 p_rec in out nocopy ben_pel_shd.g_rec_type
463 ) is
464 --
465 l_proc varchar2(72) := g_package||'ins';
466 --
467 Begin
468 hr_utility.set_location('Entering:'||l_proc, 5);
469 --
470 -- Call the supporting insert validate operations
471 --
472 ben_pel_bus.insert_validate(p_rec
473 ,p_effective_date);
474 --
475 -- Call the supporting pre-insert operation
476 --
477 pre_insert(p_rec);
478 --
479 -- Insert the row
480 --
481 insert_dml(p_rec);
482 --
483 -- Call the supporting post-insert operation
484 --
485 post_insert(p_effective_date,p_rec);
486 --
487 -- added for dbi
488 --
489 -- DBI - Added DBI Event Logging Hooks
490 /* Commented. Need to uncomment when DBI goes into mainline
491 5554590 : Enabled DBI logging into mainline. */
492 -- Bug 12939188
493 /* if HRI_BPL_BEN_UTIL.enable_ben_col_evt_que then
494 HRI_OPL_BEN_ELCTN_EVNTS_EQ.insert_event (p_rec => p_rec ,
495 p_pil_rec => null,
496 p_called_from => 'PEL' ,
500 end if;*/
497 p_effective_date => p_effective_date,
498 p_datetrack_mode => 'INSERT' );
499
501 --
502 end ins;
503 --
504 -- ----------------------------------------------------------------------------
505 -- |---------------------------------< ins >----------------------------------|
506 -- ----------------------------------------------------------------------------
507 Procedure ins
508 (
509 p_effective_date in date,
510 p_pil_elctbl_chc_popl_id out nocopy number,
511 p_dflt_enrt_dt in date default null,
512 p_dflt_asnd_dt in date default null,
513 p_elcns_made_dt in date default null,
514 p_cls_enrt_dt_to_use_cd in varchar2 default null,
515 p_enrt_typ_cycl_cd in varchar2 default null,
519 p_pil_elctbl_popl_stat_cd in varchar2 default null,
516 p_enrt_perd_end_dt in date default null,
517 p_enrt_perd_strt_dt in date default null,
518 p_procg_end_dt in date default null,
520 p_acty_ref_perd_cd in varchar2 default null,
521 p_uom in varchar2 default null,
522 p_comments in varchar2 default null,
523 p_mgr_ovrid_dt in date default null,
524 p_ws_mgr_id in number default null,
525 p_mgr_ovrid_person_id in number default null,
526 p_assignment_id in number default null,
527 --cwb
528 p_bdgt_acc_cd in varchar2 default null,
529 p_pop_cd in varchar2 default null,
530 p_bdgt_due_dt in date default null,
531 p_bdgt_export_flag in varchar2 default null,
532 p_bdgt_iss_dt in date default null,
533 p_bdgt_stat_cd in varchar2 default null,
534 p_ws_acc_cd in varchar2 default null,
535 p_ws_due_dt in date default null,
536 p_ws_export_flag in varchar2 default null,
537 p_ws_iss_dt in date default null,
538 p_ws_stat_cd in varchar2 default null,
539 --cwb
540 p_reinstate_cd in varchar2 default null,
541 p_reinstate_ovrdn_cd in varchar2 default null,
542 p_reopen_le_on_reprocess in varchar2 default null,
543 p_auto_asnd_dt in date default null,
544 p_cbr_elig_perd_strt_dt in date default null,
545 p_cbr_elig_perd_end_dt in date default null,
546 p_lee_rsn_id in number default null,
547 p_enrt_perd_id in number default null,
548 p_per_in_ler_id in number,
549 p_pgm_id in number default null,
550 p_pl_id in number default null,
551 p_business_group_id in number default null,
552 p_pel_attribute_category in varchar2 default null,
553 p_pel_attribute1 in varchar2 default null,
554 p_pel_attribute2 in varchar2 default null,
555 p_pel_attribute3 in varchar2 default null,
556 p_pel_attribute4 in varchar2 default null,
557 p_pel_attribute5 in varchar2 default null,
558 p_pel_attribute6 in varchar2 default null,
559 p_pel_attribute7 in varchar2 default null,
560 p_pel_attribute8 in varchar2 default null,
561 p_pel_attribute9 in varchar2 default null,
562 p_pel_attribute10 in varchar2 default null,
563 p_pel_attribute11 in varchar2 default null,
564 p_pel_attribute12 in varchar2 default null,
565 p_pel_attribute13 in varchar2 default null,
566 p_pel_attribute14 in varchar2 default null,
567 p_pel_attribute15 in varchar2 default null,
568 p_pel_attribute16 in varchar2 default null,
569 p_pel_attribute17 in varchar2 default null,
570 p_pel_attribute18 in varchar2 default null,
571 p_pel_attribute19 in varchar2 default null,
572 p_pel_attribute20 in varchar2 default null,
573 p_pel_attribute21 in varchar2 default null,
574 p_pel_attribute22 in varchar2 default null,
575 p_pel_attribute23 in varchar2 default null,
576 p_pel_attribute24 in varchar2 default null,
580 p_pel_attribute28 in varchar2 default null,
577 p_pel_attribute25 in varchar2 default null,
578 p_pel_attribute26 in varchar2 default null,
579 p_pel_attribute27 in varchar2 default null,
581 p_pel_attribute29 in varchar2 default null,
582 p_pel_attribute30 in varchar2 default null,
583 p_request_id in number default null,
584 p_program_application_id in number default null,
585 p_program_id in number default null,
586 p_program_update_date in date default null,
587 p_object_version_number out nocopy number,
588 p_defer_deenrol_flag in varchar2 default 'N',
589 p_deenrol_made_dt in date default null
590 ) is
591 --
592 l_rec ben_pel_shd.g_rec_type;
593 l_proc varchar2(72) := g_package||'ins';
594 --
595 Begin
596 hr_utility.set_location('Entering:'||l_proc, 5);
597 --
598 -- Call conversion function to turn arguments into the
599 -- p_rec structure.
600 --
601 l_rec :=
602 ben_pel_shd.convert_args
603 (
604 null,
605 p_dflt_enrt_dt,
606 p_dflt_asnd_dt,
607 p_elcns_made_dt,
608 p_cls_enrt_dt_to_use_cd,
609 p_enrt_typ_cycl_cd,
610 p_enrt_perd_end_dt,
611 p_enrt_perd_strt_dt,
612 p_procg_end_dt,
613 p_pil_elctbl_popl_stat_cd,
614 p_acty_ref_perd_cd,
615 p_uom,
616 p_comments,
617 p_mgr_ovrid_dt,
618 p_ws_mgr_id,
619 p_mgr_ovrid_person_id,
620 p_assignment_id,
621 --cwb
622 p_bdgt_acc_cd,
623 p_pop_cd,
624 p_bdgt_due_dt,
625 p_bdgt_export_flag,
626 p_bdgt_iss_dt,
627 p_bdgt_stat_cd,
628 p_ws_acc_cd,
629 p_ws_due_dt,
630 p_ws_export_flag,
631 p_ws_iss_dt,
632 p_ws_stat_cd,
633 --cwb
634 p_reinstate_cd,
635 p_reinstate_ovrdn_cd,
636 p_reopen_le_on_reprocess,
637 p_auto_asnd_dt,
638 p_cbr_elig_perd_strt_dt,
639 p_cbr_elig_perd_end_dt,
640 p_lee_rsn_id,
641 p_enrt_perd_id,
642 p_per_in_ler_id,
643 p_pgm_id,
644 p_pl_id,
645 p_business_group_id,
646 p_pel_attribute_category,
647 p_pel_attribute1,
648 p_pel_attribute2,
649 p_pel_attribute3,
650 p_pel_attribute4,
651 p_pel_attribute5,
652 p_pel_attribute6,
653 p_pel_attribute7,
654 p_pel_attribute8,
655 p_pel_attribute9,
656 p_pel_attribute10,
657 p_pel_attribute11,
658 p_pel_attribute12,
659 p_pel_attribute13,
660 p_pel_attribute14,
661 p_pel_attribute15,
662 p_pel_attribute16,
666 p_pel_attribute20,
663 p_pel_attribute17,
664 p_pel_attribute18,
665 p_pel_attribute19,
667 p_pel_attribute21,
668 p_pel_attribute22,
669 p_pel_attribute23,
670 p_pel_attribute24,
671 p_pel_attribute25,
672 p_pel_attribute26,
673 p_pel_attribute27,
674 p_pel_attribute28,
675 p_pel_attribute29,
676 p_pel_attribute30,
677 p_request_id,
678 p_program_application_id,
679 p_program_id,
680 p_program_update_date,
681 null,
682 p_defer_deenrol_flag,
683 p_deenrol_made_dt
684 );
685 --
686 -- Having converted the arguments into the ben_pel_rec
687 -- plsql record structure we call the corresponding record business process.
688 --
689 ins(
690 p_effective_date,l_rec);
691 --
692 -- As the primary key argument(s)
693 -- are specified as an OUT's we must set these values.
694 --
695 p_pil_elctbl_chc_popl_id := l_rec.pil_elctbl_chc_popl_id;
696 p_object_version_number := l_rec.object_version_number;
697 --
698 hr_utility.set_location(' Leaving:'||l_proc, 10);
699 End ins;
700 --
701 end ben_pel_ins;