[Home] [Help]
54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure dt_update_dml
58: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
59: p_effective_date in date,
60: p_datetrack_mode in varchar2,
61: p_validation_start_date in date,
62: p_validation_end_date in date) is
77: (p_base_table_name => 'ben_pgm_f',
78: p_base_key_column => 'pgm_id',
79: p_base_key_value => p_rec.pgm_id);
80: --
81: ben_pgm_shd.g_api_dml := true; -- Set the api dml status
82: --
83: -- Update the ben_pgm_f Row
84: --
85: update ben_pgm_f
196: where pgm_id = p_rec.pgm_id
197: and effective_start_date = p_validation_start_date
198: and effective_end_date = p_validation_end_date;
199: --
200: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
201: --
202: -- Set the effective start and end dates
203: --
204: p_rec.effective_start_date := p_validation_start_date;
208: hr_utility.set_location(' Leaving:'||l_proc, 15);
209: Exception
210: When hr_api.check_integrity_violated Then
211: -- A check constraint has been violated
212: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
213: ben_pgm_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When hr_api.unique_integrity_violated Then
216: -- Unique integrity has been violated
209: Exception
210: When hr_api.check_integrity_violated Then
211: -- A check constraint has been violated
212: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
213: ben_pgm_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When hr_api.unique_integrity_violated Then
216: -- Unique integrity has been violated
217: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
213: ben_pgm_shd.constraint_error
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When hr_api.unique_integrity_violated Then
216: -- Unique integrity has been violated
217: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
218: ben_pgm_shd.constraint_error
219: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
220: When Others Then
221: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
214: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
215: When hr_api.unique_integrity_violated Then
216: -- Unique integrity has been violated
217: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
218: ben_pgm_shd.constraint_error
219: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
220: When Others Then
221: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
222: Raise;
217: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
218: ben_pgm_shd.constraint_error
219: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
220: When Others Then
221: ben_pgm_shd.g_api_dml := false; -- Unset the api dml status
222: Raise;
223: End dt_update_dml;
224: --
225: -- ----------------------------------------------------------------------------
253: --
254: -- {End Of Comments}
255: -- ----------------------------------------------------------------------------
256: Procedure update_dml
257: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
258: p_effective_date in date,
259: p_datetrack_mode in varchar2,
260: p_validation_start_date in date,
261: p_validation_end_date in date) is
317: --
318: -- {End Of Comments}
319: -- ----------------------------------------------------------------------------
320: Procedure dt_pre_update
321: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
322: p_effective_date in date,
323: p_datetrack_mode in varchar2,
324: p_validation_start_date in date,
325: p_validation_end_date in date) is
333: hr_utility.set_location(l_proc, 10);
334: --
335: -- Update the current effective end date
336: --
337: ben_pgm_shd.upd_effective_end_date
338: (p_effective_date => p_effective_date,
339: p_base_key_value => p_rec.pgm_id,
340: p_new_effective_end_date => (p_validation_start_date - 1),
341: p_validation_start_date => p_validation_start_date,
402: --
403: -- {End Of Comments}
404: -- ----------------------------------------------------------------------------
405: Procedure pre_update
406: (p_rec in out nocopy ben_pgm_shd.g_rec_type,
407: p_effective_date in date,
408: p_datetrack_mode in varchar2,
409: p_validation_start_date in date,
410: p_validation_end_date in date) is
458: --
459: -- {End Of Comments}
460: -- ----------------------------------------------------------------------------
461: Procedure post_update
462: (p_rec in ben_pgm_shd.g_rec_type,
463: p_effective_date in date,
464: p_datetrack_mode in varchar2,
465: p_validation_start_date in date,
466: p_validation_end_date in date) is
531: -- Internal Row Handler Use Only.
532: --
533: -- {End Of Comments}
534: -- ----------------------------------------------------------------------------
535: Procedure convert_defs(p_rec in out nocopy ben_pgm_shd.g_rec_type) is
536: --
537: l_proc varchar2(72) := g_package||'convert_defs';
538: --
539: Begin
546: -- is being used then we must set to the 'current' argument value.
547: --
548: If (p_rec.name = hr_api.g_varchar2) then
549: p_rec.name :=
550: ben_pgm_shd.g_old_rec.name;
551: End If;
552: If (p_rec.dpnt_adrs_rqd_flag = hr_api.g_varchar2) then
553: p_rec.dpnt_adrs_rqd_flag :=
554: ben_pgm_shd.g_old_rec.dpnt_adrs_rqd_flag;
550: ben_pgm_shd.g_old_rec.name;
551: End If;
552: If (p_rec.dpnt_adrs_rqd_flag = hr_api.g_varchar2) then
553: p_rec.dpnt_adrs_rqd_flag :=
554: ben_pgm_shd.g_old_rec.dpnt_adrs_rqd_flag;
555: End If;
556: If (p_rec.pgm_prvds_no_auto_enrt_flag = hr_api.g_varchar2) then
557: p_rec.pgm_prvds_no_auto_enrt_flag :=
558: ben_pgm_shd.g_old_rec.pgm_prvds_no_auto_enrt_flag;
554: ben_pgm_shd.g_old_rec.dpnt_adrs_rqd_flag;
555: End If;
556: If (p_rec.pgm_prvds_no_auto_enrt_flag = hr_api.g_varchar2) then
557: p_rec.pgm_prvds_no_auto_enrt_flag :=
558: ben_pgm_shd.g_old_rec.pgm_prvds_no_auto_enrt_flag;
559: End If;
560: If (p_rec.dpnt_dob_rqd_flag = hr_api.g_varchar2) then
561: p_rec.dpnt_dob_rqd_flag :=
562: ben_pgm_shd.g_old_rec.dpnt_dob_rqd_flag;
558: ben_pgm_shd.g_old_rec.pgm_prvds_no_auto_enrt_flag;
559: End If;
560: If (p_rec.dpnt_dob_rqd_flag = hr_api.g_varchar2) then
561: p_rec.dpnt_dob_rqd_flag :=
562: ben_pgm_shd.g_old_rec.dpnt_dob_rqd_flag;
563: End If;
564: If (p_rec.pgm_prvds_no_dflt_enrt_flag = hr_api.g_varchar2) then
565: p_rec.pgm_prvds_no_dflt_enrt_flag :=
566: ben_pgm_shd.g_old_rec.pgm_prvds_no_dflt_enrt_flag;
562: ben_pgm_shd.g_old_rec.dpnt_dob_rqd_flag;
563: End If;
564: If (p_rec.pgm_prvds_no_dflt_enrt_flag = hr_api.g_varchar2) then
565: p_rec.pgm_prvds_no_dflt_enrt_flag :=
566: ben_pgm_shd.g_old_rec.pgm_prvds_no_dflt_enrt_flag;
567: End If;
568: If (p_rec.dpnt_legv_id_rqd_flag = hr_api.g_varchar2) then
569: p_rec.dpnt_legv_id_rqd_flag :=
570: ben_pgm_shd.g_old_rec.dpnt_legv_id_rqd_flag;
566: ben_pgm_shd.g_old_rec.pgm_prvds_no_dflt_enrt_flag;
567: End If;
568: If (p_rec.dpnt_legv_id_rqd_flag = hr_api.g_varchar2) then
569: p_rec.dpnt_legv_id_rqd_flag :=
570: ben_pgm_shd.g_old_rec.dpnt_legv_id_rqd_flag;
571: End If;
572: If (p_rec.dpnt_dsgn_lvl_cd = hr_api.g_varchar2) then
573: p_rec.dpnt_dsgn_lvl_cd :=
574: ben_pgm_shd.g_old_rec.dpnt_dsgn_lvl_cd;
570: ben_pgm_shd.g_old_rec.dpnt_legv_id_rqd_flag;
571: End If;
572: If (p_rec.dpnt_dsgn_lvl_cd = hr_api.g_varchar2) then
573: p_rec.dpnt_dsgn_lvl_cd :=
574: ben_pgm_shd.g_old_rec.dpnt_dsgn_lvl_cd;
575: End If;
576: If (p_rec.pgm_stat_cd = hr_api.g_varchar2) then
577: p_rec.pgm_stat_cd :=
578: ben_pgm_shd.g_old_rec.pgm_stat_cd;
574: ben_pgm_shd.g_old_rec.dpnt_dsgn_lvl_cd;
575: End If;
576: If (p_rec.pgm_stat_cd = hr_api.g_varchar2) then
577: p_rec.pgm_stat_cd :=
578: ben_pgm_shd.g_old_rec.pgm_stat_cd;
579: End If;
580: If (p_rec.ivr_ident = hr_api.g_varchar2) then
581: p_rec.ivr_ident :=
582: ben_pgm_shd.g_old_rec.ivr_ident;
578: ben_pgm_shd.g_old_rec.pgm_stat_cd;
579: End If;
580: If (p_rec.ivr_ident = hr_api.g_varchar2) then
581: p_rec.ivr_ident :=
582: ben_pgm_shd.g_old_rec.ivr_ident;
583: End If;
584: If (p_rec.pgm_typ_cd = hr_api.g_varchar2) then
585: p_rec.pgm_typ_cd :=
586: ben_pgm_shd.g_old_rec.pgm_typ_cd;
582: ben_pgm_shd.g_old_rec.ivr_ident;
583: End If;
584: If (p_rec.pgm_typ_cd = hr_api.g_varchar2) then
585: p_rec.pgm_typ_cd :=
586: ben_pgm_shd.g_old_rec.pgm_typ_cd;
587: End If;
588: If (p_rec.elig_apls_flag = hr_api.g_varchar2) then
589: p_rec.elig_apls_flag :=
590: ben_pgm_shd.g_old_rec.elig_apls_flag;
586: ben_pgm_shd.g_old_rec.pgm_typ_cd;
587: End If;
588: If (p_rec.elig_apls_flag = hr_api.g_varchar2) then
589: p_rec.elig_apls_flag :=
590: ben_pgm_shd.g_old_rec.elig_apls_flag;
591: End If;
592: If (p_rec.uses_all_asmts_for_rts_flag = hr_api.g_varchar2) then
593: p_rec.uses_all_asmts_for_rts_flag :=
594: ben_pgm_shd.g_old_rec.uses_all_asmts_for_rts_flag;
590: ben_pgm_shd.g_old_rec.elig_apls_flag;
591: End If;
592: If (p_rec.uses_all_asmts_for_rts_flag = hr_api.g_varchar2) then
593: p_rec.uses_all_asmts_for_rts_flag :=
594: ben_pgm_shd.g_old_rec.uses_all_asmts_for_rts_flag;
595: End If;
596: If (p_rec.url_ref_name = hr_api.g_varchar2) then
597: p_rec.url_ref_name :=
598: ben_pgm_shd.g_old_rec.url_ref_name;
594: ben_pgm_shd.g_old_rec.uses_all_asmts_for_rts_flag;
595: End If;
596: If (p_rec.url_ref_name = hr_api.g_varchar2) then
597: p_rec.url_ref_name :=
598: ben_pgm_shd.g_old_rec.url_ref_name;
599: End If;
600: If (p_rec.pgm_desc = hr_api.g_varchar2) then
601: p_rec.pgm_desc :=
602: ben_pgm_shd.g_old_rec.pgm_desc;
598: ben_pgm_shd.g_old_rec.url_ref_name;
599: End If;
600: If (p_rec.pgm_desc = hr_api.g_varchar2) then
601: p_rec.pgm_desc :=
602: ben_pgm_shd.g_old_rec.pgm_desc;
603: End If;
604: If (p_rec.prtn_elig_ovrid_alwd_flag = hr_api.g_varchar2) then
605: p_rec.prtn_elig_ovrid_alwd_flag :=
606: ben_pgm_shd.g_old_rec.prtn_elig_ovrid_alwd_flag;
602: ben_pgm_shd.g_old_rec.pgm_desc;
603: End If;
604: If (p_rec.prtn_elig_ovrid_alwd_flag = hr_api.g_varchar2) then
605: p_rec.prtn_elig_ovrid_alwd_flag :=
606: ben_pgm_shd.g_old_rec.prtn_elig_ovrid_alwd_flag;
607: End If;
608: If (p_rec.pgm_use_all_asnts_elig_flag = hr_api.g_varchar2) then
609: p_rec.pgm_use_all_asnts_elig_flag :=
610: ben_pgm_shd.g_old_rec.pgm_use_all_asnts_elig_flag;
606: ben_pgm_shd.g_old_rec.prtn_elig_ovrid_alwd_flag;
607: End If;
608: If (p_rec.pgm_use_all_asnts_elig_flag = hr_api.g_varchar2) then
609: p_rec.pgm_use_all_asnts_elig_flag :=
610: ben_pgm_shd.g_old_rec.pgm_use_all_asnts_elig_flag;
611: End If;
612: If (p_rec.dpnt_dsgn_cd = hr_api.g_varchar2) then
613: p_rec.dpnt_dsgn_cd :=
614: ben_pgm_shd.g_old_rec.dpnt_dsgn_cd;
610: ben_pgm_shd.g_old_rec.pgm_use_all_asnts_elig_flag;
611: End If;
612: If (p_rec.dpnt_dsgn_cd = hr_api.g_varchar2) then
613: p_rec.dpnt_dsgn_cd :=
614: ben_pgm_shd.g_old_rec.dpnt_dsgn_cd;
615: End If;
616: If (p_rec.mx_dpnt_pct_prtt_lf_amt = hr_api.g_number) then
617: p_rec.mx_dpnt_pct_prtt_lf_amt :=
618: ben_pgm_shd.g_old_rec.mx_dpnt_pct_prtt_lf_amt;
614: ben_pgm_shd.g_old_rec.dpnt_dsgn_cd;
615: End If;
616: If (p_rec.mx_dpnt_pct_prtt_lf_amt = hr_api.g_number) then
617: p_rec.mx_dpnt_pct_prtt_lf_amt :=
618: ben_pgm_shd.g_old_rec.mx_dpnt_pct_prtt_lf_amt;
619: End If;
620: If (p_rec.mx_sps_pct_prtt_lf_amt = hr_api.g_number) then
621: p_rec.mx_sps_pct_prtt_lf_amt :=
622: ben_pgm_shd.g_old_rec.mx_sps_pct_prtt_lf_amt;
618: ben_pgm_shd.g_old_rec.mx_dpnt_pct_prtt_lf_amt;
619: End If;
620: If (p_rec.mx_sps_pct_prtt_lf_amt = hr_api.g_number) then
621: p_rec.mx_sps_pct_prtt_lf_amt :=
622: ben_pgm_shd.g_old_rec.mx_sps_pct_prtt_lf_amt;
623: End If;
624: If (p_rec.acty_ref_perd_cd = hr_api.g_varchar2) then
625: p_rec.acty_ref_perd_cd :=
626: ben_pgm_shd.g_old_rec.acty_ref_perd_cd;
622: ben_pgm_shd.g_old_rec.mx_sps_pct_prtt_lf_amt;
623: End If;
624: If (p_rec.acty_ref_perd_cd = hr_api.g_varchar2) then
625: p_rec.acty_ref_perd_cd :=
626: ben_pgm_shd.g_old_rec.acty_ref_perd_cd;
627: End If;
628: If (p_rec.coord_cvg_for_all_pls_flg = hr_api.g_varchar2) then
629: p_rec.coord_cvg_for_all_pls_flg :=
630: ben_pgm_shd.g_old_rec.coord_cvg_for_all_pls_flg;
626: ben_pgm_shd.g_old_rec.acty_ref_perd_cd;
627: End If;
628: If (p_rec.coord_cvg_for_all_pls_flg = hr_api.g_varchar2) then
629: p_rec.coord_cvg_for_all_pls_flg :=
630: ben_pgm_shd.g_old_rec.coord_cvg_for_all_pls_flg;
631: End If;
632: If (p_rec.enrt_cvg_end_dt_cd = hr_api.g_varchar2) then
633: p_rec.enrt_cvg_end_dt_cd :=
634: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_cd;
630: ben_pgm_shd.g_old_rec.coord_cvg_for_all_pls_flg;
631: End If;
632: If (p_rec.enrt_cvg_end_dt_cd = hr_api.g_varchar2) then
633: p_rec.enrt_cvg_end_dt_cd :=
634: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_cd;
635: End If;
636: If (p_rec.enrt_cvg_end_dt_rl = hr_api.g_number) then
637: p_rec.enrt_cvg_end_dt_rl :=
638: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_rl;
634: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_cd;
635: End If;
636: If (p_rec.enrt_cvg_end_dt_rl = hr_api.g_number) then
637: p_rec.enrt_cvg_end_dt_rl :=
638: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_rl;
639: End If;
640: If (p_rec.dpnt_cvg_end_dt_cd = hr_api.g_varchar2) then
641: p_rec.dpnt_cvg_end_dt_cd :=
642: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_cd;
638: ben_pgm_shd.g_old_rec.enrt_cvg_end_dt_rl;
639: End If;
640: If (p_rec.dpnt_cvg_end_dt_cd = hr_api.g_varchar2) then
641: p_rec.dpnt_cvg_end_dt_cd :=
642: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_cd;
643: End If;
644: If (p_rec.dpnt_cvg_end_dt_rl = hr_api.g_number) then
645: p_rec.dpnt_cvg_end_dt_rl :=
646: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_rl;
642: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_cd;
643: End If;
644: If (p_rec.dpnt_cvg_end_dt_rl = hr_api.g_number) then
645: p_rec.dpnt_cvg_end_dt_rl :=
646: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_rl;
647: End If;
648: If (p_rec.dpnt_cvg_strt_dt_cd = hr_api.g_varchar2) then
649: p_rec.dpnt_cvg_strt_dt_cd :=
650: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
646: ben_pgm_shd.g_old_rec.dpnt_cvg_end_dt_rl;
647: End If;
648: If (p_rec.dpnt_cvg_strt_dt_cd = hr_api.g_varchar2) then
649: p_rec.dpnt_cvg_strt_dt_cd :=
650: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
651: End If;
652: If (p_rec.dpnt_cvg_strt_dt_rl = hr_api.g_number) then
653: p_rec.dpnt_cvg_strt_dt_rl :=
654: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
650: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_cd;
651: End If;
652: If (p_rec.dpnt_cvg_strt_dt_rl = hr_api.g_number) then
653: p_rec.dpnt_cvg_strt_dt_rl :=
654: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
655: End If;
656: If (p_rec.dpnt_dsgn_no_ctfn_rqd_flag = hr_api.g_varchar2) then
657: p_rec.dpnt_dsgn_no_ctfn_rqd_flag :=
658: ben_pgm_shd.g_old_rec.dpnt_dsgn_no_ctfn_rqd_flag;
654: ben_pgm_shd.g_old_rec.dpnt_cvg_strt_dt_rl;
655: End If;
656: If (p_rec.dpnt_dsgn_no_ctfn_rqd_flag = hr_api.g_varchar2) then
657: p_rec.dpnt_dsgn_no_ctfn_rqd_flag :=
658: ben_pgm_shd.g_old_rec.dpnt_dsgn_no_ctfn_rqd_flag;
659: End If;
660: If (p_rec.drvbl_fctr_dpnt_elig_flag = hr_api.g_varchar2) then
661: p_rec.drvbl_fctr_dpnt_elig_flag :=
662: ben_pgm_shd.g_old_rec.drvbl_fctr_dpnt_elig_flag;
658: ben_pgm_shd.g_old_rec.dpnt_dsgn_no_ctfn_rqd_flag;
659: End If;
660: If (p_rec.drvbl_fctr_dpnt_elig_flag = hr_api.g_varchar2) then
661: p_rec.drvbl_fctr_dpnt_elig_flag :=
662: ben_pgm_shd.g_old_rec.drvbl_fctr_dpnt_elig_flag;
663: End If;
664: If (p_rec.drvbl_fctr_prtn_elig_flag = hr_api.g_varchar2) then
665: p_rec.drvbl_fctr_prtn_elig_flag :=
666: ben_pgm_shd.g_old_rec.drvbl_fctr_prtn_elig_flag;
662: ben_pgm_shd.g_old_rec.drvbl_fctr_dpnt_elig_flag;
663: End If;
664: If (p_rec.drvbl_fctr_prtn_elig_flag = hr_api.g_varchar2) then
665: p_rec.drvbl_fctr_prtn_elig_flag :=
666: ben_pgm_shd.g_old_rec.drvbl_fctr_prtn_elig_flag;
667: End If;
668: If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
669: p_rec.enrt_cvg_strt_dt_cd :=
670: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_cd;
666: ben_pgm_shd.g_old_rec.drvbl_fctr_prtn_elig_flag;
667: End If;
668: If (p_rec.enrt_cvg_strt_dt_cd = hr_api.g_varchar2) then
669: p_rec.enrt_cvg_strt_dt_cd :=
670: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_cd;
671: End If;
672: If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_number) then
673: p_rec.enrt_cvg_strt_dt_rl :=
674: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_rl;
670: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_cd;
671: End If;
672: If (p_rec.enrt_cvg_strt_dt_rl = hr_api.g_number) then
673: p_rec.enrt_cvg_strt_dt_rl :=
674: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_rl;
675: End If;
676: If (p_rec.enrt_info_rt_freq_cd = hr_api.g_varchar2) then
677: p_rec.enrt_info_rt_freq_cd :=
678: ben_pgm_shd.g_old_rec.enrt_info_rt_freq_cd;
674: ben_pgm_shd.g_old_rec.enrt_cvg_strt_dt_rl;
675: End If;
676: If (p_rec.enrt_info_rt_freq_cd = hr_api.g_varchar2) then
677: p_rec.enrt_info_rt_freq_cd :=
678: ben_pgm_shd.g_old_rec.enrt_info_rt_freq_cd;
679: End If;
680: If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
681: p_rec.rt_strt_dt_cd :=
682: ben_pgm_shd.g_old_rec.rt_strt_dt_cd;
678: ben_pgm_shd.g_old_rec.enrt_info_rt_freq_cd;
679: End If;
680: If (p_rec.rt_strt_dt_cd = hr_api.g_varchar2) then
681: p_rec.rt_strt_dt_cd :=
682: ben_pgm_shd.g_old_rec.rt_strt_dt_cd;
683: End If;
684: If (p_rec.rt_strt_dt_rl = hr_api.g_number) then
685: p_rec.rt_strt_dt_rl :=
686: ben_pgm_shd.g_old_rec.rt_strt_dt_rl;
682: ben_pgm_shd.g_old_rec.rt_strt_dt_cd;
683: End If;
684: If (p_rec.rt_strt_dt_rl = hr_api.g_number) then
685: p_rec.rt_strt_dt_rl :=
686: ben_pgm_shd.g_old_rec.rt_strt_dt_rl;
687: End If;
688: If (p_rec.rt_end_dt_cd = hr_api.g_varchar2) then
689: p_rec.rt_end_dt_cd :=
690: ben_pgm_shd.g_old_rec.rt_end_dt_cd;
686: ben_pgm_shd.g_old_rec.rt_strt_dt_rl;
687: End If;
688: If (p_rec.rt_end_dt_cd = hr_api.g_varchar2) then
689: p_rec.rt_end_dt_cd :=
690: ben_pgm_shd.g_old_rec.rt_end_dt_cd;
691: End If;
692: If (p_rec.rt_end_dt_rl = hr_api.g_number) then
693: p_rec.rt_end_dt_rl :=
694: ben_pgm_shd.g_old_rec.rt_end_dt_rl;
690: ben_pgm_shd.g_old_rec.rt_end_dt_cd;
691: End If;
692: If (p_rec.rt_end_dt_rl = hr_api.g_number) then
693: p_rec.rt_end_dt_rl :=
694: ben_pgm_shd.g_old_rec.rt_end_dt_rl;
695: End If;
696: If (p_rec.pgm_grp_cd = hr_api.g_varchar2) then
697: p_rec.pgm_grp_cd :=
698: ben_pgm_shd.g_old_rec.pgm_grp_cd;
694: ben_pgm_shd.g_old_rec.rt_end_dt_rl;
695: End If;
696: If (p_rec.pgm_grp_cd = hr_api.g_varchar2) then
697: p_rec.pgm_grp_cd :=
698: ben_pgm_shd.g_old_rec.pgm_grp_cd;
699: End If;
700: If (p_rec.pgm_uom = hr_api.g_varchar2) then
701: p_rec.pgm_uom :=
702: ben_pgm_shd.g_old_rec.pgm_uom;
698: ben_pgm_shd.g_old_rec.pgm_grp_cd;
699: End If;
700: If (p_rec.pgm_uom = hr_api.g_varchar2) then
701: p_rec.pgm_uom :=
702: ben_pgm_shd.g_old_rec.pgm_uom;
703: End If;
704: If (p_rec.drvbl_fctr_apls_rts_flag = hr_api.g_varchar2) then
705: p_rec.drvbl_fctr_apls_rts_flag :=
706: ben_pgm_shd.g_old_rec.drvbl_fctr_apls_rts_flag;
702: ben_pgm_shd.g_old_rec.pgm_uom;
703: End If;
704: If (p_rec.drvbl_fctr_apls_rts_flag = hr_api.g_varchar2) then
705: p_rec.drvbl_fctr_apls_rts_flag :=
706: ben_pgm_shd.g_old_rec.drvbl_fctr_apls_rts_flag;
707: End If;
708: If (p_rec.alws_unrstrctd_enrt_flag = hr_api.g_varchar2) then
709: p_rec.alws_unrstrctd_enrt_flag :=
710: ben_pgm_shd.g_old_rec.alws_unrstrctd_enrt_flag;
706: ben_pgm_shd.g_old_rec.drvbl_fctr_apls_rts_flag;
707: End If;
708: If (p_rec.alws_unrstrctd_enrt_flag = hr_api.g_varchar2) then
709: p_rec.alws_unrstrctd_enrt_flag :=
710: ben_pgm_shd.g_old_rec.alws_unrstrctd_enrt_flag;
711: End If;
712: If (p_rec.enrt_cd = hr_api.g_varchar2) then
713: p_rec.enrt_cd :=
714: ben_pgm_shd.g_old_rec.enrt_cd;
710: ben_pgm_shd.g_old_rec.alws_unrstrctd_enrt_flag;
711: End If;
712: If (p_rec.enrt_cd = hr_api.g_varchar2) then
713: p_rec.enrt_cd :=
714: ben_pgm_shd.g_old_rec.enrt_cd;
715: End If;
716: If (p_rec.enrt_mthd_cd = hr_api.g_varchar2) then
717: p_rec.enrt_mthd_cd :=
718: ben_pgm_shd.g_old_rec.enrt_mthd_cd;
714: ben_pgm_shd.g_old_rec.enrt_cd;
715: End If;
716: If (p_rec.enrt_mthd_cd = hr_api.g_varchar2) then
717: p_rec.enrt_mthd_cd :=
718: ben_pgm_shd.g_old_rec.enrt_mthd_cd;
719: End If;
720: If (p_rec.poe_lvl_cd = hr_api.g_varchar2) then
721: p_rec.poe_lvl_cd :=
722: ben_pgm_shd.g_old_rec.poe_lvl_cd;
718: ben_pgm_shd.g_old_rec.enrt_mthd_cd;
719: End If;
720: If (p_rec.poe_lvl_cd = hr_api.g_varchar2) then
721: p_rec.poe_lvl_cd :=
722: ben_pgm_shd.g_old_rec.poe_lvl_cd;
723: End If;
724: If (p_rec.enrt_rl = hr_api.g_number) then
725: p_rec.enrt_rl :=
726: ben_pgm_shd.g_old_rec.enrt_rl;
722: ben_pgm_shd.g_old_rec.poe_lvl_cd;
723: End If;
724: If (p_rec.enrt_rl = hr_api.g_number) then
725: p_rec.enrt_rl :=
726: ben_pgm_shd.g_old_rec.enrt_rl;
727: End If;
728: If (p_rec.auto_enrt_mthd_rl = hr_api.g_number) then
729: p_rec.auto_enrt_mthd_rl :=
730: ben_pgm_shd.g_old_rec.auto_enrt_mthd_rl;
726: ben_pgm_shd.g_old_rec.enrt_rl;
727: End If;
728: If (p_rec.auto_enrt_mthd_rl = hr_api.g_number) then
729: p_rec.auto_enrt_mthd_rl :=
730: ben_pgm_shd.g_old_rec.auto_enrt_mthd_rl;
731: End If;
732: If (p_rec.trk_inelig_per_flag = hr_api.g_varchar2) then
733: p_rec.trk_inelig_per_flag :=
734: ben_pgm_shd.g_old_rec.trk_inelig_per_flag;
730: ben_pgm_shd.g_old_rec.auto_enrt_mthd_rl;
731: End If;
732: If (p_rec.trk_inelig_per_flag = hr_api.g_varchar2) then
733: p_rec.trk_inelig_per_flag :=
734: ben_pgm_shd.g_old_rec.trk_inelig_per_flag;
735: End If;
736: If (p_rec.business_group_id = hr_api.g_number) then
737: p_rec.business_group_id :=
738: ben_pgm_shd.g_old_rec.business_group_id;
734: ben_pgm_shd.g_old_rec.trk_inelig_per_flag;
735: End If;
736: If (p_rec.business_group_id = hr_api.g_number) then
737: p_rec.business_group_id :=
738: ben_pgm_shd.g_old_rec.business_group_id;
739: End If;
740:
741:
742: If (p_rec.per_cvrd_cd = hr_api.g_varchar2) then
740:
741:
742: If (p_rec.per_cvrd_cd = hr_api.g_varchar2) then
743: p_rec.per_cvrd_cd :=
744: ben_pgm_shd.g_old_rec.per_cvrd_cd;
745: End If;
746:
747: If (p_rec.vrfy_fmly_mmbr_rl = hr_api.g_number) then
748: p_rec.vrfy_fmly_mmbr_rl :=
745: End If;
746:
747: If (p_rec.vrfy_fmly_mmbr_rl = hr_api.g_number) then
748: p_rec.vrfy_fmly_mmbr_rl :=
749: ben_pgm_shd.g_old_rec.vrfy_fmly_mmbr_rl;
750: End If;
751:
752: If (p_rec.vrfy_fmly_mmbr_cd = hr_api.g_varchar2) then
753: p_rec.vrfy_fmly_mmbr_cd :=
750: End If;
751:
752: If (p_rec.vrfy_fmly_mmbr_cd = hr_api.g_varchar2) then
753: p_rec.vrfy_fmly_mmbr_cd :=
754: ben_pgm_shd.g_old_rec.vrfy_fmly_mmbr_cd;
755: End If;
756:
757: --FHR
758: If (p_rec.short_name = hr_api.g_varchar2) then
756:
757: --FHR
758: If (p_rec.short_name = hr_api.g_varchar2) then
759: p_rec.short_name :=
760: ben_pgm_shd.g_old_rec.short_name;
761: End If;
762:
763: If (p_rec.short_code = hr_api.g_varchar2) then
764: p_rec.short_code :=
761: End If;
762:
763: If (p_rec.short_code = hr_api.g_varchar2) then
764: p_rec.short_code :=
765: ben_pgm_shd.g_old_rec.short_code;
766: End If;
767:
768: If (p_rec.legislation_code = hr_api.g_varchar2) then
769: p_rec.legislation_code :=
766: End If;
767:
768: If (p_rec.legislation_code = hr_api.g_varchar2) then
769: p_rec.legislation_code :=
770: ben_pgm_shd.g_old_rec.legislation_code;
771: End If;
772: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
773: p_rec.legislation_subgroup :=
774: ben_pgm_shd.g_old_rec.legislation_subgroup;
770: ben_pgm_shd.g_old_rec.legislation_code;
771: End If;
772: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
773: p_rec.legislation_subgroup :=
774: ben_pgm_shd.g_old_rec.legislation_subgroup;
775: End If;
776:
777: --GSTP
778: If (p_rec.Dflt_pgm_flag = hr_api.g_varchar2) then
776:
777: --GSTP
778: If (p_rec.Dflt_pgm_flag = hr_api.g_varchar2) then
779: p_rec.Dflt_pgm_flag :=
780: ben_pgm_shd.g_old_rec.Dflt_pgm_flag;
781: End If;
782: If (p_rec.Use_prog_points_flag = hr_api.g_varchar2) then
783: p_rec.Use_prog_points_flag :=
784: ben_pgm_shd.g_old_rec.Use_prog_points_flag;
780: ben_pgm_shd.g_old_rec.Dflt_pgm_flag;
781: End If;
782: If (p_rec.Use_prog_points_flag = hr_api.g_varchar2) then
783: p_rec.Use_prog_points_flag :=
784: ben_pgm_shd.g_old_rec.Use_prog_points_flag;
785: End If;
786: If (p_rec.Dflt_step_cd = hr_api.g_varchar2) then
787: p_rec.Dflt_step_cd :=
788: ben_pgm_shd.g_old_rec.Dflt_step_cd;
784: ben_pgm_shd.g_old_rec.Use_prog_points_flag;
785: End If;
786: If (p_rec.Dflt_step_cd = hr_api.g_varchar2) then
787: p_rec.Dflt_step_cd :=
788: ben_pgm_shd.g_old_rec.Dflt_step_cd;
789: End If;
790: If (p_rec.Dflt_step_rl = hr_api.g_number) then
791: p_rec.Dflt_step_rl :=
792: ben_pgm_shd.g_old_rec.Dflt_step_rl;
788: ben_pgm_shd.g_old_rec.Dflt_step_cd;
789: End If;
790: If (p_rec.Dflt_step_rl = hr_api.g_number) then
791: p_rec.Dflt_step_rl :=
792: ben_pgm_shd.g_old_rec.Dflt_step_rl;
793: End If;
794: If (p_rec.Update_salary_cd = hr_api.g_varchar2) then
795: p_rec.Update_salary_cd :=
796: ben_pgm_shd.g_old_rec.Update_salary_cd;
792: ben_pgm_shd.g_old_rec.Dflt_step_rl;
793: End If;
794: If (p_rec.Update_salary_cd = hr_api.g_varchar2) then
795: p_rec.Update_salary_cd :=
796: ben_pgm_shd.g_old_rec.Update_salary_cd;
797: End If;
798: If (p_rec.Use_multi_pay_rates_flag = hr_api.g_varchar2) then
799: p_rec.Use_multi_pay_rates_flag :=
800: ben_pgm_shd.g_old_rec.Use_multi_pay_rates_flag;
796: ben_pgm_shd.g_old_rec.Update_salary_cd;
797: End If;
798: If (p_rec.Use_multi_pay_rates_flag = hr_api.g_varchar2) then
799: p_rec.Use_multi_pay_rates_flag :=
800: ben_pgm_shd.g_old_rec.Use_multi_pay_rates_flag;
801: End If;
802: If (p_rec.dflt_element_type_id = hr_api.g_number) then
803: p_rec.dflt_element_type_id :=
804: ben_pgm_shd.g_old_rec.dflt_element_type_id;
800: ben_pgm_shd.g_old_rec.Use_multi_pay_rates_flag;
801: End If;
802: If (p_rec.dflt_element_type_id = hr_api.g_number) then
803: p_rec.dflt_element_type_id :=
804: ben_pgm_shd.g_old_rec.dflt_element_type_id;
805: End If;
806: If (p_rec.Dflt_input_value_id = hr_api.g_number) then
807: p_rec.Dflt_input_value_id :=
808: ben_pgm_shd.g_old_rec.Dflt_input_value_id;
804: ben_pgm_shd.g_old_rec.dflt_element_type_id;
805: End If;
806: If (p_rec.Dflt_input_value_id = hr_api.g_number) then
807: p_rec.Dflt_input_value_id :=
808: ben_pgm_shd.g_old_rec.Dflt_input_value_id;
809: End If;
810: If (p_rec.Use_scores_cd = hr_api.g_varchar2) then
811: p_rec.Use_scores_cd :=
812: ben_pgm_shd.g_old_rec.Use_scores_cd;
808: ben_pgm_shd.g_old_rec.Dflt_input_value_id;
809: End If;
810: If (p_rec.Use_scores_cd = hr_api.g_varchar2) then
811: p_rec.Use_scores_cd :=
812: ben_pgm_shd.g_old_rec.Use_scores_cd;
813: End If;
814: If (p_rec.Scores_calc_mthd_cd = hr_api.g_varchar2) then
815: p_rec.Scores_calc_mthd_cd :=
816: ben_pgm_shd.g_old_rec.Scores_calc_mthd_cd;
812: ben_pgm_shd.g_old_rec.Use_scores_cd;
813: End If;
814: If (p_rec.Scores_calc_mthd_cd = hr_api.g_varchar2) then
815: p_rec.Scores_calc_mthd_cd :=
816: ben_pgm_shd.g_old_rec.Scores_calc_mthd_cd;
817: End If;
818: If (p_rec.Scores_calc_rl = hr_api.g_number) then
819: p_rec.Scores_calc_rl :=
820: ben_pgm_shd.g_old_rec.Scores_calc_rl;
816: ben_pgm_shd.g_old_rec.Scores_calc_mthd_cd;
817: End If;
818: If (p_rec.Scores_calc_rl = hr_api.g_number) then
819: p_rec.Scores_calc_rl :=
820: ben_pgm_shd.g_old_rec.Scores_calc_rl;
821: End If;
822: --GSTP
823:
824: If (p_rec.gsp_allow_override_flag = hr_api.g_varchar2) then
822: --GSTP
823:
824: If (p_rec.gsp_allow_override_flag = hr_api.g_varchar2) then
825: p_rec.gsp_allow_override_flag :=
826: ben_pgm_shd.g_old_rec.gsp_allow_override_flag;
827: End If;
828:
829: If (p_rec.use_variable_rates_flag = hr_api.g_varchar2) then
830: p_rec.use_variable_rates_flag :=
827: End If;
828:
829: If (p_rec.use_variable_rates_flag = hr_api.g_varchar2) then
830: p_rec.use_variable_rates_flag :=
831: ben_pgm_shd.g_old_rec.use_variable_rates_flag;
832: End If;
833:
834: If (p_rec.salary_calc_mthd_cd = hr_api.g_varchar2) then
835: p_rec.salary_calc_mthd_cd :=
832: End If;
833:
834: If (p_rec.salary_calc_mthd_cd = hr_api.g_varchar2) then
835: p_rec.salary_calc_mthd_cd :=
836: ben_pgm_shd.g_old_rec.salary_calc_mthd_cd;
837: End If;
838:
839:
840: If (p_rec.salary_calc_mthd_rl = hr_api.g_number) then
838:
839:
840: If (p_rec.salary_calc_mthd_rl = hr_api.g_number) then
841: p_rec.salary_calc_mthd_rl :=
842: ben_pgm_shd.g_old_rec.salary_calc_mthd_rl;
843: End If;
844:
845: If (p_rec.susp_if_dpnt_ssn_nt_prv_cd = hr_api.g_varchar2) then
846: p_rec.susp_if_dpnt_ssn_nt_prv_cd :=
843: End If;
844:
845: If (p_rec.susp_if_dpnt_ssn_nt_prv_cd = hr_api.g_varchar2) then
846: p_rec.susp_if_dpnt_ssn_nt_prv_cd :=
847: ben_pgm_shd.g_old_rec.susp_if_dpnt_ssn_nt_prv_cd;
848: End If;
849:
850: If (p_rec.susp_if_dpnt_dob_nt_prv_cd = hr_api.g_varchar2) then
851: p_rec.susp_if_dpnt_dob_nt_prv_cd :=
848: End If;
849:
850: If (p_rec.susp_if_dpnt_dob_nt_prv_cd = hr_api.g_varchar2) then
851: p_rec.susp_if_dpnt_dob_nt_prv_cd :=
852: ben_pgm_shd.g_old_rec.susp_if_dpnt_dob_nt_prv_cd;
853: End If;
854: If (p_rec.susp_if_dpnt_adr_nt_prv_cd = hr_api.g_varchar2) then
855: p_rec.susp_if_dpnt_adr_nt_prv_cd :=
856: ben_pgm_shd.g_old_rec.susp_if_dpnt_adr_nt_prv_cd;
852: ben_pgm_shd.g_old_rec.susp_if_dpnt_dob_nt_prv_cd;
853: End If;
854: If (p_rec.susp_if_dpnt_adr_nt_prv_cd = hr_api.g_varchar2) then
855: p_rec.susp_if_dpnt_adr_nt_prv_cd :=
856: ben_pgm_shd.g_old_rec.susp_if_dpnt_adr_nt_prv_cd;
857: End If;
858: If (p_rec.susp_if_ctfn_not_dpnt_flag = hr_api.g_varchar2) then
859: p_rec.susp_if_ctfn_not_dpnt_flag :=
860: ben_pgm_shd.g_old_rec.susp_if_ctfn_not_dpnt_flag;
856: ben_pgm_shd.g_old_rec.susp_if_dpnt_adr_nt_prv_cd;
857: End If;
858: If (p_rec.susp_if_ctfn_not_dpnt_flag = hr_api.g_varchar2) then
859: p_rec.susp_if_ctfn_not_dpnt_flag :=
860: ben_pgm_shd.g_old_rec.susp_if_ctfn_not_dpnt_flag;
861: End If;
862: If (p_rec.dpnt_ctfn_determine_cd = hr_api.g_varchar2) then
863: p_rec.dpnt_ctfn_determine_cd :=
864: ben_pgm_shd.g_old_rec.dpnt_ctfn_determine_cd;
860: ben_pgm_shd.g_old_rec.susp_if_ctfn_not_dpnt_flag;
861: End If;
862: If (p_rec.dpnt_ctfn_determine_cd = hr_api.g_varchar2) then
863: p_rec.dpnt_ctfn_determine_cd :=
864: ben_pgm_shd.g_old_rec.dpnt_ctfn_determine_cd;
865: End If;
866:
867: If (p_rec.pgm_attribute_category = hr_api.g_varchar2) then
868: p_rec.pgm_attribute_category :=
865: End If;
866:
867: If (p_rec.pgm_attribute_category = hr_api.g_varchar2) then
868: p_rec.pgm_attribute_category :=
869: ben_pgm_shd.g_old_rec.pgm_attribute_category;
870: End If;
871:
872: If (p_rec.pgm_attribute1 = hr_api.g_varchar2) then
873: p_rec.pgm_attribute1 :=
870: End If;
871:
872: If (p_rec.pgm_attribute1 = hr_api.g_varchar2) then
873: p_rec.pgm_attribute1 :=
874: ben_pgm_shd.g_old_rec.pgm_attribute1;
875: End If;
876:
877: If (p_rec.pgm_attribute2 = hr_api.g_varchar2) then
878: p_rec.pgm_attribute2 :=
875: End If;
876:
877: If (p_rec.pgm_attribute2 = hr_api.g_varchar2) then
878: p_rec.pgm_attribute2 :=
879: ben_pgm_shd.g_old_rec.pgm_attribute2;
880: End If;
881: If (p_rec.pgm_attribute3 = hr_api.g_varchar2) then
882: p_rec.pgm_attribute3 :=
883: ben_pgm_shd.g_old_rec.pgm_attribute3;
879: ben_pgm_shd.g_old_rec.pgm_attribute2;
880: End If;
881: If (p_rec.pgm_attribute3 = hr_api.g_varchar2) then
882: p_rec.pgm_attribute3 :=
883: ben_pgm_shd.g_old_rec.pgm_attribute3;
884: End If;
885: If (p_rec.pgm_attribute4 = hr_api.g_varchar2) then
886: p_rec.pgm_attribute4 :=
887: ben_pgm_shd.g_old_rec.pgm_attribute4;
883: ben_pgm_shd.g_old_rec.pgm_attribute3;
884: End If;
885: If (p_rec.pgm_attribute4 = hr_api.g_varchar2) then
886: p_rec.pgm_attribute4 :=
887: ben_pgm_shd.g_old_rec.pgm_attribute4;
888: End If;
889: If (p_rec.pgm_attribute5 = hr_api.g_varchar2) then
890: p_rec.pgm_attribute5 :=
891: ben_pgm_shd.g_old_rec.pgm_attribute5;
887: ben_pgm_shd.g_old_rec.pgm_attribute4;
888: End If;
889: If (p_rec.pgm_attribute5 = hr_api.g_varchar2) then
890: p_rec.pgm_attribute5 :=
891: ben_pgm_shd.g_old_rec.pgm_attribute5;
892: End If;
893: If (p_rec.pgm_attribute6 = hr_api.g_varchar2) then
894: p_rec.pgm_attribute6 :=
895: ben_pgm_shd.g_old_rec.pgm_attribute6;
891: ben_pgm_shd.g_old_rec.pgm_attribute5;
892: End If;
893: If (p_rec.pgm_attribute6 = hr_api.g_varchar2) then
894: p_rec.pgm_attribute6 :=
895: ben_pgm_shd.g_old_rec.pgm_attribute6;
896: End If;
897: If (p_rec.pgm_attribute7 = hr_api.g_varchar2) then
898: p_rec.pgm_attribute7 :=
899: ben_pgm_shd.g_old_rec.pgm_attribute7;
895: ben_pgm_shd.g_old_rec.pgm_attribute6;
896: End If;
897: If (p_rec.pgm_attribute7 = hr_api.g_varchar2) then
898: p_rec.pgm_attribute7 :=
899: ben_pgm_shd.g_old_rec.pgm_attribute7;
900: End If;
901: If (p_rec.pgm_attribute8 = hr_api.g_varchar2) then
902: p_rec.pgm_attribute8 :=
903: ben_pgm_shd.g_old_rec.pgm_attribute8;
899: ben_pgm_shd.g_old_rec.pgm_attribute7;
900: End If;
901: If (p_rec.pgm_attribute8 = hr_api.g_varchar2) then
902: p_rec.pgm_attribute8 :=
903: ben_pgm_shd.g_old_rec.pgm_attribute8;
904: End If;
905: If (p_rec.pgm_attribute9 = hr_api.g_varchar2) then
906: p_rec.pgm_attribute9 :=
907: ben_pgm_shd.g_old_rec.pgm_attribute9;
903: ben_pgm_shd.g_old_rec.pgm_attribute8;
904: End If;
905: If (p_rec.pgm_attribute9 = hr_api.g_varchar2) then
906: p_rec.pgm_attribute9 :=
907: ben_pgm_shd.g_old_rec.pgm_attribute9;
908: End If;
909: If (p_rec.pgm_attribute10 = hr_api.g_varchar2) then
910: p_rec.pgm_attribute10 :=
911: ben_pgm_shd.g_old_rec.pgm_attribute10;
907: ben_pgm_shd.g_old_rec.pgm_attribute9;
908: End If;
909: If (p_rec.pgm_attribute10 = hr_api.g_varchar2) then
910: p_rec.pgm_attribute10 :=
911: ben_pgm_shd.g_old_rec.pgm_attribute10;
912: End If;
913: If (p_rec.pgm_attribute11 = hr_api.g_varchar2) then
914: p_rec.pgm_attribute11 :=
915: ben_pgm_shd.g_old_rec.pgm_attribute11;
911: ben_pgm_shd.g_old_rec.pgm_attribute10;
912: End If;
913: If (p_rec.pgm_attribute11 = hr_api.g_varchar2) then
914: p_rec.pgm_attribute11 :=
915: ben_pgm_shd.g_old_rec.pgm_attribute11;
916: End If;
917: If (p_rec.pgm_attribute12 = hr_api.g_varchar2) then
918: p_rec.pgm_attribute12 :=
919: ben_pgm_shd.g_old_rec.pgm_attribute12;
915: ben_pgm_shd.g_old_rec.pgm_attribute11;
916: End If;
917: If (p_rec.pgm_attribute12 = hr_api.g_varchar2) then
918: p_rec.pgm_attribute12 :=
919: ben_pgm_shd.g_old_rec.pgm_attribute12;
920: End If;
921: If (p_rec.pgm_attribute13 = hr_api.g_varchar2) then
922: p_rec.pgm_attribute13 :=
923: ben_pgm_shd.g_old_rec.pgm_attribute13;
919: ben_pgm_shd.g_old_rec.pgm_attribute12;
920: End If;
921: If (p_rec.pgm_attribute13 = hr_api.g_varchar2) then
922: p_rec.pgm_attribute13 :=
923: ben_pgm_shd.g_old_rec.pgm_attribute13;
924: End If;
925: If (p_rec.pgm_attribute14 = hr_api.g_varchar2) then
926: p_rec.pgm_attribute14 :=
927: ben_pgm_shd.g_old_rec.pgm_attribute14;
923: ben_pgm_shd.g_old_rec.pgm_attribute13;
924: End If;
925: If (p_rec.pgm_attribute14 = hr_api.g_varchar2) then
926: p_rec.pgm_attribute14 :=
927: ben_pgm_shd.g_old_rec.pgm_attribute14;
928: End If;
929: If (p_rec.pgm_attribute15 = hr_api.g_varchar2) then
930: p_rec.pgm_attribute15 :=
931: ben_pgm_shd.g_old_rec.pgm_attribute15;
927: ben_pgm_shd.g_old_rec.pgm_attribute14;
928: End If;
929: If (p_rec.pgm_attribute15 = hr_api.g_varchar2) then
930: p_rec.pgm_attribute15 :=
931: ben_pgm_shd.g_old_rec.pgm_attribute15;
932: End If;
933: If (p_rec.pgm_attribute16 = hr_api.g_varchar2) then
934: p_rec.pgm_attribute16 :=
935: ben_pgm_shd.g_old_rec.pgm_attribute16;
931: ben_pgm_shd.g_old_rec.pgm_attribute15;
932: End If;
933: If (p_rec.pgm_attribute16 = hr_api.g_varchar2) then
934: p_rec.pgm_attribute16 :=
935: ben_pgm_shd.g_old_rec.pgm_attribute16;
936: End If;
937: If (p_rec.pgm_attribute17 = hr_api.g_varchar2) then
938: p_rec.pgm_attribute17 :=
939: ben_pgm_shd.g_old_rec.pgm_attribute17;
935: ben_pgm_shd.g_old_rec.pgm_attribute16;
936: End If;
937: If (p_rec.pgm_attribute17 = hr_api.g_varchar2) then
938: p_rec.pgm_attribute17 :=
939: ben_pgm_shd.g_old_rec.pgm_attribute17;
940: End If;
941: If (p_rec.pgm_attribute18 = hr_api.g_varchar2) then
942: p_rec.pgm_attribute18 :=
943: ben_pgm_shd.g_old_rec.pgm_attribute18;
939: ben_pgm_shd.g_old_rec.pgm_attribute17;
940: End If;
941: If (p_rec.pgm_attribute18 = hr_api.g_varchar2) then
942: p_rec.pgm_attribute18 :=
943: ben_pgm_shd.g_old_rec.pgm_attribute18;
944: End If;
945: If (p_rec.pgm_attribute19 = hr_api.g_varchar2) then
946: p_rec.pgm_attribute19 :=
947: ben_pgm_shd.g_old_rec.pgm_attribute19;
943: ben_pgm_shd.g_old_rec.pgm_attribute18;
944: End If;
945: If (p_rec.pgm_attribute19 = hr_api.g_varchar2) then
946: p_rec.pgm_attribute19 :=
947: ben_pgm_shd.g_old_rec.pgm_attribute19;
948: End If;
949: If (p_rec.pgm_attribute20 = hr_api.g_varchar2) then
950: p_rec.pgm_attribute20 :=
951: ben_pgm_shd.g_old_rec.pgm_attribute20;
947: ben_pgm_shd.g_old_rec.pgm_attribute19;
948: End If;
949: If (p_rec.pgm_attribute20 = hr_api.g_varchar2) then
950: p_rec.pgm_attribute20 :=
951: ben_pgm_shd.g_old_rec.pgm_attribute20;
952: End If;
953: If (p_rec.pgm_attribute21 = hr_api.g_varchar2) then
954: p_rec.pgm_attribute21 :=
955: ben_pgm_shd.g_old_rec.pgm_attribute21;
951: ben_pgm_shd.g_old_rec.pgm_attribute20;
952: End If;
953: If (p_rec.pgm_attribute21 = hr_api.g_varchar2) then
954: p_rec.pgm_attribute21 :=
955: ben_pgm_shd.g_old_rec.pgm_attribute21;
956: End If;
957: If (p_rec.pgm_attribute22 = hr_api.g_varchar2) then
958: p_rec.pgm_attribute22 :=
959: ben_pgm_shd.g_old_rec.pgm_attribute22;
955: ben_pgm_shd.g_old_rec.pgm_attribute21;
956: End If;
957: If (p_rec.pgm_attribute22 = hr_api.g_varchar2) then
958: p_rec.pgm_attribute22 :=
959: ben_pgm_shd.g_old_rec.pgm_attribute22;
960: End If;
961: If (p_rec.pgm_attribute23 = hr_api.g_varchar2) then
962: p_rec.pgm_attribute23 :=
963: ben_pgm_shd.g_old_rec.pgm_attribute23;
959: ben_pgm_shd.g_old_rec.pgm_attribute22;
960: End If;
961: If (p_rec.pgm_attribute23 = hr_api.g_varchar2) then
962: p_rec.pgm_attribute23 :=
963: ben_pgm_shd.g_old_rec.pgm_attribute23;
964: End If;
965: If (p_rec.pgm_attribute24 = hr_api.g_varchar2) then
966: p_rec.pgm_attribute24 :=
967: ben_pgm_shd.g_old_rec.pgm_attribute24;
963: ben_pgm_shd.g_old_rec.pgm_attribute23;
964: End If;
965: If (p_rec.pgm_attribute24 = hr_api.g_varchar2) then
966: p_rec.pgm_attribute24 :=
967: ben_pgm_shd.g_old_rec.pgm_attribute24;
968: End If;
969: If (p_rec.pgm_attribute25 = hr_api.g_varchar2) then
970: p_rec.pgm_attribute25 :=
971: ben_pgm_shd.g_old_rec.pgm_attribute25;
967: ben_pgm_shd.g_old_rec.pgm_attribute24;
968: End If;
969: If (p_rec.pgm_attribute25 = hr_api.g_varchar2) then
970: p_rec.pgm_attribute25 :=
971: ben_pgm_shd.g_old_rec.pgm_attribute25;
972: End If;
973: If (p_rec.pgm_attribute26 = hr_api.g_varchar2) then
974: p_rec.pgm_attribute26 :=
975: ben_pgm_shd.g_old_rec.pgm_attribute26;
971: ben_pgm_shd.g_old_rec.pgm_attribute25;
972: End If;
973: If (p_rec.pgm_attribute26 = hr_api.g_varchar2) then
974: p_rec.pgm_attribute26 :=
975: ben_pgm_shd.g_old_rec.pgm_attribute26;
976: End If;
977: If (p_rec.pgm_attribute27 = hr_api.g_varchar2) then
978: p_rec.pgm_attribute27 :=
979: ben_pgm_shd.g_old_rec.pgm_attribute27;
975: ben_pgm_shd.g_old_rec.pgm_attribute26;
976: End If;
977: If (p_rec.pgm_attribute27 = hr_api.g_varchar2) then
978: p_rec.pgm_attribute27 :=
979: ben_pgm_shd.g_old_rec.pgm_attribute27;
980: End If;
981: If (p_rec.pgm_attribute28 = hr_api.g_varchar2) then
982: p_rec.pgm_attribute28 :=
983: ben_pgm_shd.g_old_rec.pgm_attribute28;
979: ben_pgm_shd.g_old_rec.pgm_attribute27;
980: End If;
981: If (p_rec.pgm_attribute28 = hr_api.g_varchar2) then
982: p_rec.pgm_attribute28 :=
983: ben_pgm_shd.g_old_rec.pgm_attribute28;
984: End If;
985: If (p_rec.pgm_attribute29 = hr_api.g_varchar2) then
986: p_rec.pgm_attribute29 :=
987: ben_pgm_shd.g_old_rec.pgm_attribute29;
983: ben_pgm_shd.g_old_rec.pgm_attribute28;
984: End If;
985: If (p_rec.pgm_attribute29 = hr_api.g_varchar2) then
986: p_rec.pgm_attribute29 :=
987: ben_pgm_shd.g_old_rec.pgm_attribute29;
988: End If;
989: If (p_rec.pgm_attribute30 = hr_api.g_varchar2) then
990: p_rec.pgm_attribute30 :=
991: ben_pgm_shd.g_old_rec.pgm_attribute30;
987: ben_pgm_shd.g_old_rec.pgm_attribute29;
988: End If;
989: If (p_rec.pgm_attribute30 = hr_api.g_varchar2) then
990: p_rec.pgm_attribute30 :=
991: ben_pgm_shd.g_old_rec.pgm_attribute30;
992: End If;
993:
994: If (p_rec.all_inelig = hr_api.g_varchar2) then
995: p_rec.all_inelig :=
992: End If;
993:
994: If (p_rec.all_inelig = hr_api.g_varchar2) then
995: p_rec.all_inelig :=
996: ben_pgm_shd.g_old_rec.all_inelig;
997: End If;
998: --
999: hr_utility.set_location(' Leaving:'||l_proc, 10);
1000: --
1004: -- |---------------------------------< upd >----------------------------------|
1005: -- ----------------------------------------------------------------------------
1006: Procedure upd
1007: (
1008: p_rec in out nocopy ben_pgm_shd.g_rec_type,
1009: p_effective_date in date,
1010: p_datetrack_mode in varchar2
1011: ) is
1012: --
1022: dt_api.validate_dt_upd_mode(p_datetrack_mode => p_datetrack_mode);
1023: --
1024: -- We must lock the row which we need to update.
1025: --
1026: ben_pgm_shd.lck
1027: (p_effective_date => p_effective_date,
1028: p_datetrack_mode => p_datetrack_mode,
1029: p_pgm_id => p_rec.pgm_id,
1030: p_object_version_number => p_rec.object_version_number,
1192: p_effective_date in date,
1193: p_datetrack_mode in varchar2
1194: ) is
1195: --
1196: l_rec ben_pgm_shd.g_rec_type;
1197: l_proc varchar2(72) := g_package||'upd';
1198: --
1199: Begin
1200: hr_utility.set_location('Entering:'||l_proc, 5);
1202: -- Call conversion function to turn arguments into the
1203: -- l_rec structure.
1204: --
1205: l_rec :=
1206: ben_pgm_shd.convert_args
1207: (
1208: p_pgm_id,
1209: null,
1210: null,