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