50: -- Internal Row Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy ben_epe_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
61: -- Increment the object version
62: --
63: p_rec.object_version_number := p_rec.object_version_number + 1;
64: --
65: ben_epe_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the ben_elig_per_elctbl_chc Row
68: --
69: update ben_elig_per_elctbl_chc
170: program_update_date = p_rec.program_update_date,
171: object_version_number = p_rec.object_version_number
172: where elig_per_elctbl_chc_id = p_rec.elig_per_elctbl_chc_id;
173: --
174: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
175: --
176: hr_utility.set_location(' Leaving:'||l_proc, 10);
177: --
178: Exception
177: --
178: Exception
179: When hr_api.check_integrity_violated Then
180: -- A check constraint has been violated
181: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
182: ben_epe_shd.constraint_error
183: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
184: When hr_api.parent_integrity_violated Then
185: -- Parent integrity has been violated
178: Exception
179: When hr_api.check_integrity_violated Then
180: -- A check constraint has been violated
181: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
182: ben_epe_shd.constraint_error
183: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
184: When hr_api.parent_integrity_violated Then
185: -- Parent integrity has been violated
186: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
182: ben_epe_shd.constraint_error
183: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
184: When hr_api.parent_integrity_violated Then
185: -- Parent integrity has been violated
186: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
187: ben_epe_shd.constraint_error
188: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
189: When hr_api.unique_integrity_violated Then
190: -- Unique integrity has been violated
183: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
184: When hr_api.parent_integrity_violated Then
185: -- Parent integrity has been violated
186: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
187: ben_epe_shd.constraint_error
188: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
189: When hr_api.unique_integrity_violated Then
190: -- Unique integrity has been violated
191: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
187: ben_epe_shd.constraint_error
188: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
189: When hr_api.unique_integrity_violated Then
190: -- Unique integrity has been violated
191: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
192: ben_epe_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When Others Then
195: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
188: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
189: When hr_api.unique_integrity_violated Then
190: -- Unique integrity has been violated
191: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
192: ben_epe_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When Others Then
195: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
196: Raise;
191: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
192: ben_epe_shd.constraint_error
193: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
194: When Others Then
195: ben_epe_shd.g_api_dml := false; -- Unset the api dml status
196: Raise;
197: End update_dml;
198: --
199: -- ----------------------------------------------------------------------------
227: -- Internal Row Handler Use Only.
228: --
229: -- {End Of Comments}
230: -- ----------------------------------------------------------------------------
231: Procedure pre_update(p_rec in ben_epe_shd.g_rec_type) is
232: --
233: l_proc varchar2(72) := g_package||'pre_update';
234: --
235: Begin
269: -- Internal Row Handler Use Only.
270: --
271: -- {End Of Comments}
272: -- ----------------------------------------------------------------------------
273: Procedure post_update(p_rec in ben_epe_shd.g_rec_type) is
274: --
275: l_proc varchar2(72) := g_package||'post_update';
276: --
277: Begin
323: -- Internal Row Handler Use Only.
324: --
325: -- {End Of Comments}
326: -- ----------------------------------------------------------------------------
327: Procedure convert_defs(p_rec in out nocopy ben_epe_shd.g_rec_type) is
328: --
329: l_proc varchar2(72) := g_package||'convert_defs';
330: --
331: Begin
338: -- is being used then we must set to the 'current' argument value.
339: --
340: -- If (p_rec.enrt_typ_cycl_cd = hr_api.g_varchar2) then
341: -- p_rec.enrt_typ_cycl_cd :=
342: -- ben_epe_shd.g_old_rec.enrt_typ_cycl_cd;
343: -- End If;
344: If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
345: p_rec.enrt_cvg_strt_dt_cd :=
346: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_cd;
342: -- ben_epe_shd.g_old_rec.enrt_typ_cycl_cd;
343: -- End If;
344: If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
345: p_rec.enrt_cvg_strt_dt_cd :=
346: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_cd;
347: End If;
348: -- If (p_rec.enrt_perd_end_dt = hr_api.g_date) then
349: -- p_rec.enrt_perd_end_dt :=
350: -- ben_epe_shd.g_old_rec.enrt_perd_end_dt;
346: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_cd;
347: End If;
348: -- If (p_rec.enrt_perd_end_dt = hr_api.g_date) then
349: -- p_rec.enrt_perd_end_dt :=
350: -- ben_epe_shd.g_old_rec.enrt_perd_end_dt;
351: -- End If;
352: -- If (p_rec.enrt_perd_strt_dt = hr_api.g_date) then
353: -- p_rec.enrt_perd_strt_dt :=
354: -- ben_epe_shd.g_old_rec.enrt_perd_strt_dt;
350: -- ben_epe_shd.g_old_rec.enrt_perd_end_dt;
351: -- End If;
352: -- If (p_rec.enrt_perd_strt_dt = hr_api.g_date) then
353: -- p_rec.enrt_perd_strt_dt :=
354: -- ben_epe_shd.g_old_rec.enrt_perd_strt_dt;
355: -- End If;
356: If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_varchar2) then
357: p_rec.enrt_cvg_strt_dt_rl :=
358: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_rl;
354: -- ben_epe_shd.g_old_rec.enrt_perd_strt_dt;
355: -- End If;
356: If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_varchar2) then
357: p_rec.enrt_cvg_strt_dt_rl :=
358: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_rl;
359: End If;
360: -- If (p_rec.rt_strt_dt = hr_api.g_date) then
361: -- p_rec.rt_strt_dt :=
362: -- ben_epe_shd.g_old_rec.rt_strt_dt;
358: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt_rl;
359: End If;
360: -- If (p_rec.rt_strt_dt = hr_api.g_date) then
361: -- p_rec.rt_strt_dt :=
362: -- ben_epe_shd.g_old_rec.rt_strt_dt;
363: -- End If;
364: -- If (p_rec.rt_strt_dt_rl = hr_api.g_varchar2) then
365: -- p_rec.rt_strt_dt_rl :=
366: -- ben_epe_shd.g_old_rec.rt_strt_dt_rl;
362: -- ben_epe_shd.g_old_rec.rt_strt_dt;
363: -- End If;
364: -- If (p_rec.rt_strt_dt_rl = hr_api.g_varchar2) then
365: -- p_rec.rt_strt_dt_rl :=
366: -- ben_epe_shd.g_old_rec.rt_strt_dt_rl;
367: -- End If;
368: -- If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
369: -- p_rec.rt_strt_dt_cd :=
370: -- ben_epe_shd.g_old_rec.rt_strt_dt_cd;
366: -- ben_epe_shd.g_old_rec.rt_strt_dt_rl;
367: -- End If;
368: -- If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
369: -- p_rec.rt_strt_dt_cd :=
370: -- ben_epe_shd.g_old_rec.rt_strt_dt_cd;
371: -- End If;
372: If (p_rec.ctfn_rqd_flag = hr_api.g_varchar2) then
373: p_rec.ctfn_rqd_flag :=
374: ben_epe_shd.g_old_rec.ctfn_rqd_flag;
370: -- ben_epe_shd.g_old_rec.rt_strt_dt_cd;
371: -- End If;
372: If (p_rec.ctfn_rqd_flag = hr_api.g_varchar2) then
373: p_rec.ctfn_rqd_flag :=
374: ben_epe_shd.g_old_rec.ctfn_rqd_flag;
375: End If;
376: If (p_rec.pil_elctbl_chc_popl_id = hr_api.g_number) then
377: p_rec.pil_elctbl_chc_popl_id :=
378: ben_epe_shd.g_old_rec.pil_elctbl_chc_popl_id;
374: ben_epe_shd.g_old_rec.ctfn_rqd_flag;
375: End If;
376: If (p_rec.pil_elctbl_chc_popl_id = hr_api.g_number) then
377: p_rec.pil_elctbl_chc_popl_id :=
378: ben_epe_shd.g_old_rec.pil_elctbl_chc_popl_id;
379: End If;
380: If (p_rec.roll_crs_flag = hr_api.g_varchar2) then
381: p_rec.roll_crs_flag :=
382: ben_epe_shd.g_old_rec.roll_crs_flag;
378: ben_epe_shd.g_old_rec.pil_elctbl_chc_popl_id;
379: End If;
380: If (p_rec.roll_crs_flag = hr_api.g_varchar2) then
381: p_rec.roll_crs_flag :=
382: ben_epe_shd.g_old_rec.roll_crs_flag;
383: End If;
384: If (p_rec.crntly_enrd_flag = hr_api.g_varchar2) then
385: p_rec.crntly_enrd_flag :=
386: ben_epe_shd.g_old_rec.crntly_enrd_flag;
382: ben_epe_shd.g_old_rec.roll_crs_flag;
383: End If;
384: If (p_rec.crntly_enrd_flag = hr_api.g_varchar2) then
385: p_rec.crntly_enrd_flag :=
386: ben_epe_shd.g_old_rec.crntly_enrd_flag;
387: End If;
388: If (p_rec.dflt_flag = hr_api.g_varchar2) then
389: p_rec.dflt_flag :=
390: ben_epe_shd.g_old_rec.dflt_flag;
386: ben_epe_shd.g_old_rec.crntly_enrd_flag;
387: End If;
388: If (p_rec.dflt_flag = hr_api.g_varchar2) then
389: p_rec.dflt_flag :=
390: ben_epe_shd.g_old_rec.dflt_flag;
391: End If;
392: If (p_rec.elctbl_flag = hr_api.g_varchar2) then
393: p_rec.elctbl_flag :=
394: ben_epe_shd.g_old_rec.elctbl_flag;
390: ben_epe_shd.g_old_rec.dflt_flag;
391: End If;
392: If (p_rec.elctbl_flag = hr_api.g_varchar2) then
393: p_rec.elctbl_flag :=
394: ben_epe_shd.g_old_rec.elctbl_flag;
395: End If;
396: If (p_rec.mndtry_flag = hr_api.g_varchar2) then
397: p_rec.mndtry_flag :=
398: ben_epe_shd.g_old_rec.mndtry_flag;
394: ben_epe_shd.g_old_rec.elctbl_flag;
395: End If;
396: If (p_rec.mndtry_flag = hr_api.g_varchar2) then
397: p_rec.mndtry_flag :=
398: ben_epe_shd.g_old_rec.mndtry_flag;
399: End If;
400: If (p_rec.in_pndg_wkflow_flag = hr_api.g_varchar2) then
401: p_rec.in_pndg_wkflow_flag :=
402: ben_epe_shd.g_old_rec.in_pndg_wkflow_flag;
398: ben_epe_shd.g_old_rec.mndtry_flag;
399: End If;
400: If (p_rec.in_pndg_wkflow_flag = hr_api.g_varchar2) then
401: p_rec.in_pndg_wkflow_flag :=
402: ben_epe_shd.g_old_rec.in_pndg_wkflow_flag;
403: End If;
404: -- If (p_rec.dflt_enrt_dt = hr_api.g_date) then
405: -- p_rec.dflt_enrt_dt :=
406: -- ben_epe_shd.g_old_rec.dflt_enrt_dt;
402: ben_epe_shd.g_old_rec.in_pndg_wkflow_flag;
403: End If;
404: -- If (p_rec.dflt_enrt_dt = hr_api.g_date) then
405: -- p_rec.dflt_enrt_dt :=
406: -- ben_epe_shd.g_old_rec.dflt_enrt_dt;
407: -- End If;
408: If (p_rec.dpnt_cvg_strt_dt_cd = hr_api.g_varchar2) then
409: p_rec.dpnt_cvg_strt_dt_cd :=
410: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
406: -- ben_epe_shd.g_old_rec.dflt_enrt_dt;
407: -- End If;
408: If (p_rec.dpnt_cvg_strt_dt_cd = hr_api.g_varchar2) then
409: p_rec.dpnt_cvg_strt_dt_cd :=
410: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
411: End If;
412: If (p_rec.dpnt_cvg_strt_dt_rl = hr_api.g_varchar2) then
413: p_rec.dpnt_cvg_strt_dt_rl :=
414: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
410: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
411: End If;
412: If (p_rec.dpnt_cvg_strt_dt_rl = hr_api.g_varchar2) then
413: p_rec.dpnt_cvg_strt_dt_rl :=
414: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
415: End If;
416: If (p_rec.enrt_cvg_strt_dt = hr_api.g_date) then
417: p_rec.enrt_cvg_strt_dt :=
418: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt;
414: ben_epe_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
415: End If;
416: If (p_rec.enrt_cvg_strt_dt = hr_api.g_date) then
417: p_rec.enrt_cvg_strt_dt :=
418: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt;
419: End If;
420: If (p_rec.alws_dpnt_dsgn_flag = hr_api.g_varchar2) then
421: p_rec.alws_dpnt_dsgn_flag :=
422: ben_epe_shd.g_old_rec.alws_dpnt_dsgn_flag;
418: ben_epe_shd.g_old_rec.enrt_cvg_strt_dt;
419: End If;
420: If (p_rec.alws_dpnt_dsgn_flag = hr_api.g_varchar2) then
421: p_rec.alws_dpnt_dsgn_flag :=
422: ben_epe_shd.g_old_rec.alws_dpnt_dsgn_flag;
423: End If;
424: If (p_rec.dpnt_dsgn_cd = hr_api.g_varchar2) then
425: p_rec.dpnt_dsgn_cd :=
426: ben_epe_shd.g_old_rec.dpnt_dsgn_cd;
422: ben_epe_shd.g_old_rec.alws_dpnt_dsgn_flag;
423: End If;
424: If (p_rec.dpnt_dsgn_cd = hr_api.g_varchar2) then
425: p_rec.dpnt_dsgn_cd :=
426: ben_epe_shd.g_old_rec.dpnt_dsgn_cd;
427: End If;
428: If (p_rec.ler_chg_dpnt_cvg_cd = hr_api.g_varchar2) then
429: p_rec.ler_chg_dpnt_cvg_cd :=
430: ben_epe_shd.g_old_rec.ler_chg_dpnt_cvg_cd;
426: ben_epe_shd.g_old_rec.dpnt_dsgn_cd;
427: End If;
428: If (p_rec.ler_chg_dpnt_cvg_cd = hr_api.g_varchar2) then
429: p_rec.ler_chg_dpnt_cvg_cd :=
430: ben_epe_shd.g_old_rec.ler_chg_dpnt_cvg_cd;
431: End If;
432: If (p_rec.erlst_deenrt_dt = hr_api.g_date) then
433: p_rec.erlst_deenrt_dt :=
434: ben_epe_shd.g_old_rec.erlst_deenrt_dt;
430: ben_epe_shd.g_old_rec.ler_chg_dpnt_cvg_cd;
431: End If;
432: If (p_rec.erlst_deenrt_dt = hr_api.g_date) then
433: p_rec.erlst_deenrt_dt :=
434: ben_epe_shd.g_old_rec.erlst_deenrt_dt;
435: End If;
436: If (p_rec.procg_end_dt = hr_api.g_date) then
437: p_rec.procg_end_dt :=
438: ben_epe_shd.g_old_rec.procg_end_dt;
434: ben_epe_shd.g_old_rec.erlst_deenrt_dt;
435: End If;
436: If (p_rec.procg_end_dt = hr_api.g_date) then
437: p_rec.procg_end_dt :=
438: ben_epe_shd.g_old_rec.procg_end_dt;
439: End If;
440: If (p_rec.comp_lvl_cd = hr_api.g_varchar2) then
441: p_rec.comp_lvl_cd :=
442: ben_epe_shd.g_old_rec.comp_lvl_cd;
438: ben_epe_shd.g_old_rec.procg_end_dt;
439: End If;
440: If (p_rec.comp_lvl_cd = hr_api.g_varchar2) then
441: p_rec.comp_lvl_cd :=
442: ben_epe_shd.g_old_rec.comp_lvl_cd;
443: End If;
444: If (p_rec.pl_id = hr_api.g_number) then
445: p_rec.pl_id :=
446: ben_epe_shd.g_old_rec.pl_id;
442: ben_epe_shd.g_old_rec.comp_lvl_cd;
443: End If;
444: If (p_rec.pl_id = hr_api.g_number) then
445: p_rec.pl_id :=
446: ben_epe_shd.g_old_rec.pl_id;
447: End If;
448: If (p_rec.oipl_id = hr_api.g_number) then
449: p_rec.oipl_id :=
450: ben_epe_shd.g_old_rec.oipl_id;
446: ben_epe_shd.g_old_rec.pl_id;
447: End If;
448: If (p_rec.oipl_id = hr_api.g_number) then
449: p_rec.oipl_id :=
450: ben_epe_shd.g_old_rec.oipl_id;
451: End If;
452: If (p_rec.pgm_id = hr_api.g_number) then
453: p_rec.pgm_id :=
454: ben_epe_shd.g_old_rec.pgm_id;
450: ben_epe_shd.g_old_rec.oipl_id;
451: End If;
452: If (p_rec.pgm_id = hr_api.g_number) then
453: p_rec.pgm_id :=
454: ben_epe_shd.g_old_rec.pgm_id;
455: End If;
456: If (p_rec.plip_id = hr_api.g_number) then
457: p_rec.plip_id :=
458: ben_epe_shd.g_old_rec.plip_id;
454: ben_epe_shd.g_old_rec.pgm_id;
455: End If;
456: If (p_rec.plip_id = hr_api.g_number) then
457: p_rec.plip_id :=
458: ben_epe_shd.g_old_rec.plip_id;
459: End If;
460: If (p_rec.ptip_id = hr_api.g_number) then
461: p_rec.ptip_id :=
462: ben_epe_shd.g_old_rec.ptip_id;
458: ben_epe_shd.g_old_rec.plip_id;
459: End If;
460: If (p_rec.ptip_id = hr_api.g_number) then
461: p_rec.ptip_id :=
462: ben_epe_shd.g_old_rec.ptip_id;
463: End If;
464: If (p_rec.pl_typ_id = hr_api.g_number) then
465: p_rec.pl_typ_id :=
466: ben_epe_shd.g_old_rec.pl_typ_id;
462: ben_epe_shd.g_old_rec.ptip_id;
463: End If;
464: If (p_rec.pl_typ_id = hr_api.g_number) then
465: p_rec.pl_typ_id :=
466: ben_epe_shd.g_old_rec.pl_typ_id;
467: End If;
468: If (p_rec.oiplip_id = hr_api.g_number) then
469: p_rec.oiplip_id :=
470: ben_epe_shd.g_old_rec.oiplip_id;
466: ben_epe_shd.g_old_rec.pl_typ_id;
467: End If;
468: If (p_rec.oiplip_id = hr_api.g_number) then
469: p_rec.oiplip_id :=
470: ben_epe_shd.g_old_rec.oiplip_id;
471: End If;
472: If (p_rec.cmbn_ptip_id = hr_api.g_number) then
473: p_rec.cmbn_ptip_id :=
474: ben_epe_shd.g_old_rec.cmbn_ptip_id;
470: ben_epe_shd.g_old_rec.oiplip_id;
471: End If;
472: If (p_rec.cmbn_ptip_id = hr_api.g_number) then
473: p_rec.cmbn_ptip_id :=
474: ben_epe_shd.g_old_rec.cmbn_ptip_id;
475: End If;
476: If (p_rec.cmbn_plip_id = hr_api.g_number) then
477: p_rec.cmbn_plip_id :=
478: ben_epe_shd.g_old_rec.cmbn_plip_id;
474: ben_epe_shd.g_old_rec.cmbn_ptip_id;
475: End If;
476: If (p_rec.cmbn_plip_id = hr_api.g_number) then
477: p_rec.cmbn_plip_id :=
478: ben_epe_shd.g_old_rec.cmbn_plip_id;
479: End If;
480: If (p_rec.cmbn_ptip_opt_id = hr_api.g_number) then
481: p_rec.cmbn_ptip_opt_id :=
482: ben_epe_shd.g_old_rec.cmbn_ptip_opt_id;
478: ben_epe_shd.g_old_rec.cmbn_plip_id;
479: End If;
480: If (p_rec.cmbn_ptip_opt_id = hr_api.g_number) then
481: p_rec.cmbn_ptip_opt_id :=
482: ben_epe_shd.g_old_rec.cmbn_ptip_opt_id;
483: End If;
484: If (p_rec.assignment_id = hr_api.g_number) then
485: p_rec.assignment_id :=
486: ben_epe_shd.g_old_rec.assignment_id;
482: ben_epe_shd.g_old_rec.cmbn_ptip_opt_id;
483: End If;
484: If (p_rec.assignment_id = hr_api.g_number) then
485: p_rec.assignment_id :=
486: ben_epe_shd.g_old_rec.assignment_id;
487: End If;
488: If (p_rec.spcl_rt_pl_id = hr_api.g_number) then
489: p_rec.spcl_rt_pl_id :=
490: ben_epe_shd.g_old_rec.spcl_rt_pl_id;
486: ben_epe_shd.g_old_rec.assignment_id;
487: End If;
488: If (p_rec.spcl_rt_pl_id = hr_api.g_number) then
489: p_rec.spcl_rt_pl_id :=
490: ben_epe_shd.g_old_rec.spcl_rt_pl_id;
491: End If;
492: If (p_rec.spcl_rt_oipl_id = hr_api.g_number) then
493: p_rec.spcl_rt_oipl_id :=
494: ben_epe_shd.g_old_rec.spcl_rt_oipl_id;
490: ben_epe_shd.g_old_rec.spcl_rt_pl_id;
491: End If;
492: If (p_rec.spcl_rt_oipl_id = hr_api.g_number) then
493: p_rec.spcl_rt_oipl_id :=
494: ben_epe_shd.g_old_rec.spcl_rt_oipl_id;
495: End If;
496: If (p_rec.must_enrl_anthr_pl_id = hr_api.g_number) then
497: p_rec.must_enrl_anthr_pl_id :=
498: ben_epe_shd.g_old_rec.must_enrl_anthr_pl_id;
494: ben_epe_shd.g_old_rec.spcl_rt_oipl_id;
495: End If;
496: If (p_rec.must_enrl_anthr_pl_id = hr_api.g_number) then
497: p_rec.must_enrl_anthr_pl_id :=
498: ben_epe_shd.g_old_rec.must_enrl_anthr_pl_id;
499: End If;
500: If (p_rec.int_elig_per_elctbl_chc_id = hr_api.g_number) then
501: p_rec.int_elig_per_elctbl_chc_id :=
502: ben_epe_shd.g_old_rec.int_elig_per_elctbl_chc_id;
498: ben_epe_shd.g_old_rec.must_enrl_anthr_pl_id;
499: End If;
500: If (p_rec.int_elig_per_elctbl_chc_id = hr_api.g_number) then
501: p_rec.int_elig_per_elctbl_chc_id :=
502: ben_epe_shd.g_old_rec.int_elig_per_elctbl_chc_id;
503: End If;
504: If (p_rec.prtt_enrt_rslt_id = hr_api.g_number) then
505: p_rec.prtt_enrt_rslt_id :=
506: ben_epe_shd.g_old_rec.prtt_enrt_rslt_id;
502: ben_epe_shd.g_old_rec.int_elig_per_elctbl_chc_id;
503: End If;
504: If (p_rec.prtt_enrt_rslt_id = hr_api.g_number) then
505: p_rec.prtt_enrt_rslt_id :=
506: ben_epe_shd.g_old_rec.prtt_enrt_rslt_id;
507: End If;
508: If (p_rec.bnft_prvdr_pool_id = hr_api.g_number) then
509: p_rec.bnft_prvdr_pool_id :=
510: ben_epe_shd.g_old_rec.bnft_prvdr_pool_id;
506: ben_epe_shd.g_old_rec.prtt_enrt_rslt_id;
507: End If;
508: If (p_rec.bnft_prvdr_pool_id = hr_api.g_number) then
509: p_rec.bnft_prvdr_pool_id :=
510: ben_epe_shd.g_old_rec.bnft_prvdr_pool_id;
511: End If;
512: If (p_rec.per_in_ler_id = hr_api.g_number) then
513: p_rec.per_in_ler_id :=
514: ben_epe_shd.g_old_rec.per_in_ler_id;
510: ben_epe_shd.g_old_rec.bnft_prvdr_pool_id;
511: End If;
512: If (p_rec.per_in_ler_id = hr_api.g_number) then
513: p_rec.per_in_ler_id :=
514: ben_epe_shd.g_old_rec.per_in_ler_id;
515: End If;
516: If (p_rec.yr_perd_id = hr_api.g_number) then
517: p_rec.yr_perd_id :=
518: ben_epe_shd.g_old_rec.yr_perd_id;
514: ben_epe_shd.g_old_rec.per_in_ler_id;
515: End If;
516: If (p_rec.yr_perd_id = hr_api.g_number) then
517: p_rec.yr_perd_id :=
518: ben_epe_shd.g_old_rec.yr_perd_id;
519: End If;
520: If (p_rec.auto_enrt_flag = hr_api.g_varchar2) then
521: p_rec.auto_enrt_flag :=
522: ben_epe_shd.g_old_rec.auto_enrt_flag;
518: ben_epe_shd.g_old_rec.yr_perd_id;
519: End If;
520: If (p_rec.auto_enrt_flag = hr_api.g_varchar2) then
521: p_rec.auto_enrt_flag :=
522: ben_epe_shd.g_old_rec.auto_enrt_flag;
523: End If;
524: If (p_rec.business_group_id = hr_api.g_number) then
525: p_rec.business_group_id :=
526: ben_epe_shd.g_old_rec.business_group_id;
522: ben_epe_shd.g_old_rec.auto_enrt_flag;
523: End If;
524: If (p_rec.business_group_id = hr_api.g_number) then
525: p_rec.business_group_id :=
526: ben_epe_shd.g_old_rec.business_group_id;
527: End If;
528: If (p_rec.pl_ordr_num= hr_api.g_number) then
529: p_rec.pl_ordr_num:=
530: ben_epe_shd.g_old_rec.pl_ordr_num;
526: ben_epe_shd.g_old_rec.business_group_id;
527: End If;
528: If (p_rec.pl_ordr_num= hr_api.g_number) then
529: p_rec.pl_ordr_num:=
530: ben_epe_shd.g_old_rec.pl_ordr_num;
531: End If;
532: If (p_rec.plip_ordr_num= hr_api.g_number) then
533: p_rec.plip_ordr_num:=
534: ben_epe_shd.g_old_rec.plip_ordr_num;
530: ben_epe_shd.g_old_rec.pl_ordr_num;
531: End If;
532: If (p_rec.plip_ordr_num= hr_api.g_number) then
533: p_rec.plip_ordr_num:=
534: ben_epe_shd.g_old_rec.plip_ordr_num;
535: End If;
536: If (p_rec.ptip_ordr_num= hr_api.g_number) then
537: p_rec.ptip_ordr_num:=
538: ben_epe_shd.g_old_rec.ptip_ordr_num;
534: ben_epe_shd.g_old_rec.plip_ordr_num;
535: End If;
536: If (p_rec.ptip_ordr_num= hr_api.g_number) then
537: p_rec.ptip_ordr_num:=
538: ben_epe_shd.g_old_rec.ptip_ordr_num;
539: End If;
540: If (p_rec.oipl_ordr_num= hr_api.g_number) then
541: p_rec.oipl_ordr_num:=
542: ben_epe_shd.g_old_rec.oipl_ordr_num;
538: ben_epe_shd.g_old_rec.ptip_ordr_num;
539: End If;
540: If (p_rec.oipl_ordr_num= hr_api.g_number) then
541: p_rec.oipl_ordr_num:=
542: ben_epe_shd.g_old_rec.oipl_ordr_num;
543: End If;
544: -- cwb
545: If (p_rec.comments = hr_api.g_varchar2) then
546: p_rec.comments :=
543: End If;
544: -- cwb
545: If (p_rec.comments = hr_api.g_varchar2) then
546: p_rec.comments :=
547: ben_epe_shd.g_old_rec.comments;
548: End If;
549: If (p_rec.elig_flag = hr_api.g_varchar2) then
550: p_rec.elig_flag :=
551: ben_epe_shd.g_old_rec.elig_flag;
547: ben_epe_shd.g_old_rec.comments;
548: End If;
549: If (p_rec.elig_flag = hr_api.g_varchar2) then
550: p_rec.elig_flag :=
551: ben_epe_shd.g_old_rec.elig_flag;
552: End If;
553: If (p_rec.elig_ovrid_dt = hr_api.g_date) then
554: p_rec.elig_ovrid_dt :=
555: ben_epe_shd.g_old_rec.elig_ovrid_dt;
551: ben_epe_shd.g_old_rec.elig_flag;
552: End If;
553: If (p_rec.elig_ovrid_dt = hr_api.g_date) then
554: p_rec.elig_ovrid_dt :=
555: ben_epe_shd.g_old_rec.elig_ovrid_dt;
556: End If;
557: If (p_rec.elig_ovrid_person_id = hr_api.g_number) then
558: p_rec.elig_ovrid_person_id :=
559: ben_epe_shd.g_old_rec.elig_ovrid_person_id;
555: ben_epe_shd.g_old_rec.elig_ovrid_dt;
556: End If;
557: If (p_rec.elig_ovrid_person_id = hr_api.g_number) then
558: p_rec.elig_ovrid_person_id :=
559: ben_epe_shd.g_old_rec.elig_ovrid_person_id;
560: End If;
561: If (p_rec.inelig_rsn_cd = hr_api.g_varchar2) then
562: p_rec.inelig_rsn_cd :=
563: ben_epe_shd.g_old_rec.inelig_rsn_cd;
559: ben_epe_shd.g_old_rec.elig_ovrid_person_id;
560: End If;
561: If (p_rec.inelig_rsn_cd = hr_api.g_varchar2) then
562: p_rec.inelig_rsn_cd :=
563: ben_epe_shd.g_old_rec.inelig_rsn_cd;
564: End If;
565: If (p_rec.mgr_ovrid_dt = hr_api.g_date) then
566: p_rec.mgr_ovrid_dt :=
567: ben_epe_shd.g_old_rec.mgr_ovrid_dt;
563: ben_epe_shd.g_old_rec.inelig_rsn_cd;
564: End If;
565: If (p_rec.mgr_ovrid_dt = hr_api.g_date) then
566: p_rec.mgr_ovrid_dt :=
567: ben_epe_shd.g_old_rec.mgr_ovrid_dt;
568: End If;
569: If (p_rec.mgr_ovrid_person_id = hr_api.g_number) then
570: p_rec.mgr_ovrid_person_id :=
571: ben_epe_shd.g_old_rec.mgr_ovrid_person_id;
567: ben_epe_shd.g_old_rec.mgr_ovrid_dt;
568: End If;
569: If (p_rec.mgr_ovrid_person_id = hr_api.g_number) then
570: p_rec.mgr_ovrid_person_id :=
571: ben_epe_shd.g_old_rec.mgr_ovrid_person_id;
572: End If;
573: If (p_rec.ws_mgr_id = hr_api.g_number) then
574: p_rec.ws_mgr_id :=
575: ben_epe_shd.g_old_rec.ws_mgr_id;
571: ben_epe_shd.g_old_rec.mgr_ovrid_person_id;
572: End If;
573: If (p_rec.ws_mgr_id = hr_api.g_number) then
574: p_rec.ws_mgr_id :=
575: ben_epe_shd.g_old_rec.ws_mgr_id;
576: End If;
577: -- cwb
578: If (p_rec.epe_attribute_category = hr_api.g_varchar2) then
579: p_rec.epe_attribute_category :=
576: End If;
577: -- cwb
578: If (p_rec.epe_attribute_category = hr_api.g_varchar2) then
579: p_rec.epe_attribute_category :=
580: ben_epe_shd.g_old_rec.epe_attribute_category;
581: End If;
582: If (p_rec.epe_attribute1 = hr_api.g_varchar2) then
583: p_rec.epe_attribute1 :=
584: ben_epe_shd.g_old_rec.epe_attribute1;
580: ben_epe_shd.g_old_rec.epe_attribute_category;
581: End If;
582: If (p_rec.epe_attribute1 = hr_api.g_varchar2) then
583: p_rec.epe_attribute1 :=
584: ben_epe_shd.g_old_rec.epe_attribute1;
585: End If;
586: If (p_rec.epe_attribute2 = hr_api.g_varchar2) then
587: p_rec.epe_attribute2 :=
588: ben_epe_shd.g_old_rec.epe_attribute2;
584: ben_epe_shd.g_old_rec.epe_attribute1;
585: End If;
586: If (p_rec.epe_attribute2 = hr_api.g_varchar2) then
587: p_rec.epe_attribute2 :=
588: ben_epe_shd.g_old_rec.epe_attribute2;
589: End If;
590: If (p_rec.epe_attribute3 = hr_api.g_varchar2) then
591: p_rec.epe_attribute3 :=
592: ben_epe_shd.g_old_rec.epe_attribute3;
588: ben_epe_shd.g_old_rec.epe_attribute2;
589: End If;
590: If (p_rec.epe_attribute3 = hr_api.g_varchar2) then
591: p_rec.epe_attribute3 :=
592: ben_epe_shd.g_old_rec.epe_attribute3;
593: End If;
594: If (p_rec.epe_attribute4 = hr_api.g_varchar2) then
595: p_rec.epe_attribute4 :=
596: ben_epe_shd.g_old_rec.epe_attribute4;
592: ben_epe_shd.g_old_rec.epe_attribute3;
593: End If;
594: If (p_rec.epe_attribute4 = hr_api.g_varchar2) then
595: p_rec.epe_attribute4 :=
596: ben_epe_shd.g_old_rec.epe_attribute4;
597: End If;
598: If (p_rec.epe_attribute5 = hr_api.g_varchar2) then
599: p_rec.epe_attribute5 :=
600: ben_epe_shd.g_old_rec.epe_attribute5;
596: ben_epe_shd.g_old_rec.epe_attribute4;
597: End If;
598: If (p_rec.epe_attribute5 = hr_api.g_varchar2) then
599: p_rec.epe_attribute5 :=
600: ben_epe_shd.g_old_rec.epe_attribute5;
601: End If;
602: If (p_rec.epe_attribute6 = hr_api.g_varchar2) then
603: p_rec.epe_attribute6 :=
604: ben_epe_shd.g_old_rec.epe_attribute6;
600: ben_epe_shd.g_old_rec.epe_attribute5;
601: End If;
602: If (p_rec.epe_attribute6 = hr_api.g_varchar2) then
603: p_rec.epe_attribute6 :=
604: ben_epe_shd.g_old_rec.epe_attribute6;
605: End If;
606: If (p_rec.epe_attribute7 = hr_api.g_varchar2) then
607: p_rec.epe_attribute7 :=
608: ben_epe_shd.g_old_rec.epe_attribute7;
604: ben_epe_shd.g_old_rec.epe_attribute6;
605: End If;
606: If (p_rec.epe_attribute7 = hr_api.g_varchar2) then
607: p_rec.epe_attribute7 :=
608: ben_epe_shd.g_old_rec.epe_attribute7;
609: End If;
610: If (p_rec.epe_attribute8 = hr_api.g_varchar2) then
611: p_rec.epe_attribute8 :=
612: ben_epe_shd.g_old_rec.epe_attribute8;
608: ben_epe_shd.g_old_rec.epe_attribute7;
609: End If;
610: If (p_rec.epe_attribute8 = hr_api.g_varchar2) then
611: p_rec.epe_attribute8 :=
612: ben_epe_shd.g_old_rec.epe_attribute8;
613: End If;
614: If (p_rec.epe_attribute9 = hr_api.g_varchar2) then
615: p_rec.epe_attribute9 :=
616: ben_epe_shd.g_old_rec.epe_attribute9;
612: ben_epe_shd.g_old_rec.epe_attribute8;
613: End If;
614: If (p_rec.epe_attribute9 = hr_api.g_varchar2) then
615: p_rec.epe_attribute9 :=
616: ben_epe_shd.g_old_rec.epe_attribute9;
617: End If;
618: If (p_rec.epe_attribute10 = hr_api.g_varchar2) then
619: p_rec.epe_attribute10 :=
620: ben_epe_shd.g_old_rec.epe_attribute10;
616: ben_epe_shd.g_old_rec.epe_attribute9;
617: End If;
618: If (p_rec.epe_attribute10 = hr_api.g_varchar2) then
619: p_rec.epe_attribute10 :=
620: ben_epe_shd.g_old_rec.epe_attribute10;
621: End If;
622: If (p_rec.epe_attribute11 = hr_api.g_varchar2) then
623: p_rec.epe_attribute11 :=
624: ben_epe_shd.g_old_rec.epe_attribute11;
620: ben_epe_shd.g_old_rec.epe_attribute10;
621: End If;
622: If (p_rec.epe_attribute11 = hr_api.g_varchar2) then
623: p_rec.epe_attribute11 :=
624: ben_epe_shd.g_old_rec.epe_attribute11;
625: End If;
626: If (p_rec.epe_attribute12 = hr_api.g_varchar2) then
627: p_rec.epe_attribute12 :=
628: ben_epe_shd.g_old_rec.epe_attribute12;
624: ben_epe_shd.g_old_rec.epe_attribute11;
625: End If;
626: If (p_rec.epe_attribute12 = hr_api.g_varchar2) then
627: p_rec.epe_attribute12 :=
628: ben_epe_shd.g_old_rec.epe_attribute12;
629: End If;
630: If (p_rec.epe_attribute13 = hr_api.g_varchar2) then
631: p_rec.epe_attribute13 :=
632: ben_epe_shd.g_old_rec.epe_attribute13;
628: ben_epe_shd.g_old_rec.epe_attribute12;
629: End If;
630: If (p_rec.epe_attribute13 = hr_api.g_varchar2) then
631: p_rec.epe_attribute13 :=
632: ben_epe_shd.g_old_rec.epe_attribute13;
633: End If;
634: If (p_rec.epe_attribute14 = hr_api.g_varchar2) then
635: p_rec.epe_attribute14 :=
636: ben_epe_shd.g_old_rec.epe_attribute14;
632: ben_epe_shd.g_old_rec.epe_attribute13;
633: End If;
634: If (p_rec.epe_attribute14 = hr_api.g_varchar2) then
635: p_rec.epe_attribute14 :=
636: ben_epe_shd.g_old_rec.epe_attribute14;
637: End If;
638: If (p_rec.epe_attribute15 = hr_api.g_varchar2) then
639: p_rec.epe_attribute15 :=
640: ben_epe_shd.g_old_rec.epe_attribute15;
636: ben_epe_shd.g_old_rec.epe_attribute14;
637: End If;
638: If (p_rec.epe_attribute15 = hr_api.g_varchar2) then
639: p_rec.epe_attribute15 :=
640: ben_epe_shd.g_old_rec.epe_attribute15;
641: End If;
642: If (p_rec.epe_attribute16 = hr_api.g_varchar2) then
643: p_rec.epe_attribute16 :=
644: ben_epe_shd.g_old_rec.epe_attribute16;
640: ben_epe_shd.g_old_rec.epe_attribute15;
641: End If;
642: If (p_rec.epe_attribute16 = hr_api.g_varchar2) then
643: p_rec.epe_attribute16 :=
644: ben_epe_shd.g_old_rec.epe_attribute16;
645: End If;
646: If (p_rec.epe_attribute17 = hr_api.g_varchar2) then
647: p_rec.epe_attribute17 :=
648: ben_epe_shd.g_old_rec.epe_attribute17;
644: ben_epe_shd.g_old_rec.epe_attribute16;
645: End If;
646: If (p_rec.epe_attribute17 = hr_api.g_varchar2) then
647: p_rec.epe_attribute17 :=
648: ben_epe_shd.g_old_rec.epe_attribute17;
649: End If;
650: If (p_rec.epe_attribute18 = hr_api.g_varchar2) then
651: p_rec.epe_attribute18 :=
652: ben_epe_shd.g_old_rec.epe_attribute18;
648: ben_epe_shd.g_old_rec.epe_attribute17;
649: End If;
650: If (p_rec.epe_attribute18 = hr_api.g_varchar2) then
651: p_rec.epe_attribute18 :=
652: ben_epe_shd.g_old_rec.epe_attribute18;
653: End If;
654: If (p_rec.epe_attribute19 = hr_api.g_varchar2) then
655: p_rec.epe_attribute19 :=
656: ben_epe_shd.g_old_rec.epe_attribute19;
652: ben_epe_shd.g_old_rec.epe_attribute18;
653: End If;
654: If (p_rec.epe_attribute19 = hr_api.g_varchar2) then
655: p_rec.epe_attribute19 :=
656: ben_epe_shd.g_old_rec.epe_attribute19;
657: End If;
658: If (p_rec.epe_attribute20 = hr_api.g_varchar2) then
659: p_rec.epe_attribute20 :=
660: ben_epe_shd.g_old_rec.epe_attribute20;
656: ben_epe_shd.g_old_rec.epe_attribute19;
657: End If;
658: If (p_rec.epe_attribute20 = hr_api.g_varchar2) then
659: p_rec.epe_attribute20 :=
660: ben_epe_shd.g_old_rec.epe_attribute20;
661: End If;
662: If (p_rec.epe_attribute21 = hr_api.g_varchar2) then
663: p_rec.epe_attribute21 :=
664: ben_epe_shd.g_old_rec.epe_attribute21;
660: ben_epe_shd.g_old_rec.epe_attribute20;
661: End If;
662: If (p_rec.epe_attribute21 = hr_api.g_varchar2) then
663: p_rec.epe_attribute21 :=
664: ben_epe_shd.g_old_rec.epe_attribute21;
665: End If;
666: If (p_rec.epe_attribute22 = hr_api.g_varchar2) then
667: p_rec.epe_attribute22 :=
668: ben_epe_shd.g_old_rec.epe_attribute22;
664: ben_epe_shd.g_old_rec.epe_attribute21;
665: End If;
666: If (p_rec.epe_attribute22 = hr_api.g_varchar2) then
667: p_rec.epe_attribute22 :=
668: ben_epe_shd.g_old_rec.epe_attribute22;
669: End If;
670: If (p_rec.epe_attribute23 = hr_api.g_varchar2) then
671: p_rec.epe_attribute23 :=
672: ben_epe_shd.g_old_rec.epe_attribute23;
668: ben_epe_shd.g_old_rec.epe_attribute22;
669: End If;
670: If (p_rec.epe_attribute23 = hr_api.g_varchar2) then
671: p_rec.epe_attribute23 :=
672: ben_epe_shd.g_old_rec.epe_attribute23;
673: End If;
674: If (p_rec.epe_attribute24 = hr_api.g_varchar2) then
675: p_rec.epe_attribute24 :=
676: ben_epe_shd.g_old_rec.epe_attribute24;
672: ben_epe_shd.g_old_rec.epe_attribute23;
673: End If;
674: If (p_rec.epe_attribute24 = hr_api.g_varchar2) then
675: p_rec.epe_attribute24 :=
676: ben_epe_shd.g_old_rec.epe_attribute24;
677: End If;
678: If (p_rec.epe_attribute25 = hr_api.g_varchar2) then
679: p_rec.epe_attribute25 :=
680: ben_epe_shd.g_old_rec.epe_attribute25;
676: ben_epe_shd.g_old_rec.epe_attribute24;
677: End If;
678: If (p_rec.epe_attribute25 = hr_api.g_varchar2) then
679: p_rec.epe_attribute25 :=
680: ben_epe_shd.g_old_rec.epe_attribute25;
681: End If;
682: If (p_rec.epe_attribute26 = hr_api.g_varchar2) then
683: p_rec.epe_attribute26 :=
684: ben_epe_shd.g_old_rec.epe_attribute26;
680: ben_epe_shd.g_old_rec.epe_attribute25;
681: End If;
682: If (p_rec.epe_attribute26 = hr_api.g_varchar2) then
683: p_rec.epe_attribute26 :=
684: ben_epe_shd.g_old_rec.epe_attribute26;
685: End If;
686: If (p_rec.epe_attribute27 = hr_api.g_varchar2) then
687: p_rec.epe_attribute27 :=
688: ben_epe_shd.g_old_rec.epe_attribute27;
684: ben_epe_shd.g_old_rec.epe_attribute26;
685: End If;
686: If (p_rec.epe_attribute27 = hr_api.g_varchar2) then
687: p_rec.epe_attribute27 :=
688: ben_epe_shd.g_old_rec.epe_attribute27;
689: End If;
690: If (p_rec.epe_attribute28 = hr_api.g_varchar2) then
691: p_rec.epe_attribute28 :=
692: ben_epe_shd.g_old_rec.epe_attribute28;
688: ben_epe_shd.g_old_rec.epe_attribute27;
689: End If;
690: If (p_rec.epe_attribute28 = hr_api.g_varchar2) then
691: p_rec.epe_attribute28 :=
692: ben_epe_shd.g_old_rec.epe_attribute28;
693: End If;
694: If (p_rec.epe_attribute29 = hr_api.g_varchar2) then
695: p_rec.epe_attribute29 :=
696: ben_epe_shd.g_old_rec.epe_attribute29;
692: ben_epe_shd.g_old_rec.epe_attribute28;
693: End If;
694: If (p_rec.epe_attribute29 = hr_api.g_varchar2) then
695: p_rec.epe_attribute29 :=
696: ben_epe_shd.g_old_rec.epe_attribute29;
697: End If;
698: If (p_rec.epe_attribute30 = hr_api.g_varchar2) then
699: p_rec.epe_attribute30 :=
700: ben_epe_shd.g_old_rec.epe_attribute30;
696: ben_epe_shd.g_old_rec.epe_attribute29;
697: End If;
698: If (p_rec.epe_attribute30 = hr_api.g_varchar2) then
699: p_rec.epe_attribute30 :=
700: ben_epe_shd.g_old_rec.epe_attribute30;
701: End If;
702: If (p_rec.approval_status_cd = hr_api.g_varchar2) then
703: p_rec.approval_status_cd :=
704: ben_epe_shd.g_old_rec.approval_status_cd;
700: ben_epe_shd.g_old_rec.epe_attribute30;
701: End If;
702: If (p_rec.approval_status_cd = hr_api.g_varchar2) then
703: p_rec.approval_status_cd :=
704: ben_epe_shd.g_old_rec.approval_status_cd;
705: End If;
706: If (p_rec.fonm_cvg_strt_dt = hr_api.g_date) then
707: p_rec.fonm_cvg_strt_dt :=
708: ben_epe_shd.g_old_rec.fonm_cvg_strt_dt;
704: ben_epe_shd.g_old_rec.approval_status_cd;
705: End If;
706: If (p_rec.fonm_cvg_strt_dt = hr_api.g_date) then
707: p_rec.fonm_cvg_strt_dt :=
708: ben_epe_shd.g_old_rec.fonm_cvg_strt_dt;
709: End If;
710: If (p_rec.cryfwd_elig_dpnt_cd = hr_api.g_varchar2) then
711: p_rec.cryfwd_elig_dpnt_cd :=
712: ben_epe_shd.g_old_rec.cryfwd_elig_dpnt_cd;
708: ben_epe_shd.g_old_rec.fonm_cvg_strt_dt;
709: End If;
710: If (p_rec.cryfwd_elig_dpnt_cd = hr_api.g_varchar2) then
711: p_rec.cryfwd_elig_dpnt_cd :=
712: ben_epe_shd.g_old_rec.cryfwd_elig_dpnt_cd;
713: End If;
714: If (p_rec.request_id = hr_api.g_number) then
715: p_rec.request_id :=
716: ben_epe_shd.g_old_rec.request_id;
712: ben_epe_shd.g_old_rec.cryfwd_elig_dpnt_cd;
713: End If;
714: If (p_rec.request_id = hr_api.g_number) then
715: p_rec.request_id :=
716: ben_epe_shd.g_old_rec.request_id;
717: End If;
718: If (p_rec.program_application_id = hr_api.g_number) then
719: p_rec.program_application_id :=
720: ben_epe_shd.g_old_rec.program_application_id;
716: ben_epe_shd.g_old_rec.request_id;
717: End If;
718: If (p_rec.program_application_id = hr_api.g_number) then
719: p_rec.program_application_id :=
720: ben_epe_shd.g_old_rec.program_application_id;
721: End If;
722: If (p_rec.program_id = hr_api.g_number) then
723: p_rec.program_id :=
724: ben_epe_shd.g_old_rec.program_id;
720: ben_epe_shd.g_old_rec.program_application_id;
721: End If;
722: If (p_rec.program_id = hr_api.g_number) then
723: p_rec.program_id :=
724: ben_epe_shd.g_old_rec.program_id;
725: End If;
726: If (p_rec.program_update_date = hr_api.g_date) then
727: p_rec.program_update_date :=
728: ben_epe_shd.g_old_rec.program_update_date;
724: ben_epe_shd.g_old_rec.program_id;
725: End If;
726: If (p_rec.program_update_date = hr_api.g_date) then
727: p_rec.program_update_date :=
728: ben_epe_shd.g_old_rec.program_update_date;
729: End If;
730:
731: --
732: hr_utility.set_location(' Leaving:'||l_proc, 10);
738: -- ----------------------------------------------------------------------------
739: Procedure upd
740: (
741: p_effective_date in date,
742: p_rec in out nocopy ben_epe_shd.g_rec_type
743: ) is
744: --
745: l_proc varchar2(72) := g_package||'upd';
746: --
748: hr_utility.set_location('Entering:'||l_proc, 5);
749: --
750: -- We must lock the row which we need to update.
751: --
752: ben_epe_shd.lck
753: (
754: p_rec.elig_per_elctbl_chc_id,
755: p_rec.object_version_number
756: );
885: p_program_update_date in date default hr_api.g_date,
886: p_object_version_number in out nocopy number
887: ) is
888: --
889: l_rec ben_epe_shd.g_rec_type;
890: l_proc varchar2(72) := g_package||'upd';
891: --
892: Begin
893: hr_utility.set_location('Entering:'||l_proc, 5);
895: -- Call conversion function to turn arguments into the
896: -- l_rec structure.
897: --
898: l_rec :=
899: ben_epe_shd.convert_args
900: (
901: p_elig_per_elctbl_chc_id,
902: -- p_enrt_typ_cycl_cd,
903: p_enrt_cvg_strt_dt_cd,