151: that costed values get assigned using the
152: Costing Hierarchy.
153: 115.46 27-Sep-2004 tjesumic new param p_cvrd_today added in chk_enrld_or_cvrd # 3843549
154: coerage validation changes as per the param
155: 115.47 04-jan-2005 ssarkar Bug# 3630753 : commented fnd_message.set_token('PROC',l_proc).
156: 115.48 08-Sep-2005 stee If eligibility period end date is 01/01/0001, then
157: set the quald_bnf_flag = 'N' and leave the eligibility
158: period end date as is. Bug 4486609.
159: 115.49 28-dec-2005 stee Only terminate cobra eligibility in chk_cobra_eligibility
651: --
652: -- Problem with eligibility setup. The person has to be
653: -- previously enrolled to be eligible for the COBRA program.
654: --
655: fnd_message.set_name('BEN','BEN_92426_CVG_THRU_DT_NOT_FND');
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
652: -- Problem with eligibility setup. The person has to be
653: -- previously enrolled to be eligible for the COBRA program.
654: --
655: fnd_message.set_name('BEN','BEN_92426_CVG_THRU_DT_NOT_FND');
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
653: -- previously enrolled to be eligible for the COBRA program.
654: --
655: fnd_message.set_name('BEN','BEN_92426_CVG_THRU_DT_NOT_FND');
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
661: fnd_message.raise_error;
654: --
655: fnd_message.set_name('BEN','BEN_92426_CVG_THRU_DT_NOT_FND');
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
661: fnd_message.raise_error;
662: else
655: fnd_message.set_name('BEN','BEN_92426_CVG_THRU_DT_NOT_FND');
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
661: fnd_message.raise_error;
662: else
663: close c_get_enrt_cvg_strt_dt;
656: fnd_message.set_token('PROC',l_proc);
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
661: fnd_message.raise_error;
662: else
663: close c_get_enrt_cvg_strt_dt;
664: p_cbr_elig_perd_strt_dt := l_enrt_cvg_strt_dt;
657: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
658: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
659: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
660: fnd_message.set_token('BG_ID',to_char(p_business_group_id));
661: fnd_message.raise_error;
662: else
663: close c_get_enrt_cvg_strt_dt;
664: p_cbr_elig_perd_strt_dt := l_enrt_cvg_strt_dt;
665: hr_utility.set_location('l_enrt_cvg_strt_dt prtn:'|| l_enrt_cvg_strt_dt, 10);
971: --
972: -- Person was not disabled at the time of the qualifying
973: -- event so the end of disabity event is not valid.
974: --
975: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
976: fnd_message.set_token('PROC',l_proc);
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
972: -- Person was not disabled at the time of the qualifying
973: -- event so the end of disabity event is not valid.
974: --
975: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
976: fnd_message.set_token('PROC',l_proc);
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
980: if fnd_global.conc_request_id <> -1 then
973: -- event so the end of disabity event is not valid.
974: --
975: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
976: fnd_message.set_token('PROC',l_proc);
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
980: if fnd_global.conc_request_id <> -1 then
981: benutils.write(fnd_message.get);
974: --
975: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
976: fnd_message.set_token('PROC',l_proc);
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
980: if fnd_global.conc_request_id <> -1 then
981: benutils.write(fnd_message.get);
982: end if;
975: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
976: fnd_message.set_token('PROC',l_proc);
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
980: if fnd_global.conc_request_id <> -1 then
981: benutils.write(fnd_message.get);
982: end if;
983: end if;
977: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
978: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
979: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
980: if fnd_global.conc_request_id <> -1 then
981: benutils.write(fnd_message.get);
982: end if;
983: end if;
984: --
985: else
988: p_old_cbr_elig_perd_end_dt := null;
989: p_cbr_quald_bnf_id := null;
990: p_cqb_object_version_number := null;
991: p_cvrd_emp_person_id := null;
992: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
993: fnd_message.set_token('PROC',l_proc);
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
989: p_cbr_quald_bnf_id := null;
990: p_cqb_object_version_number := null;
991: p_cvrd_emp_person_id := null;
992: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
993: fnd_message.set_token('PROC',l_proc);
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
997: if fnd_global.conc_request_id <> -1 then
990: p_cqb_object_version_number := null;
991: p_cvrd_emp_person_id := null;
992: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
993: fnd_message.set_token('PROC',l_proc);
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
997: if fnd_global.conc_request_id <> -1 then
998: benutils.write(fnd_message.get);
991: p_cvrd_emp_person_id := null;
992: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
993: fnd_message.set_token('PROC',l_proc);
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
997: if fnd_global.conc_request_id <> -1 then
998: benutils.write(fnd_message.get);
999: end if;
992: fnd_message.set_name('BEN','BEN_92970_CBR_PER_NOT_DSBLD');
993: fnd_message.set_token('PROC',l_proc);
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
997: if fnd_global.conc_request_id <> -1 then
998: benutils.write(fnd_message.get);
999: end if;
1000: end if;
994: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
995: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
996: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
997: if fnd_global.conc_request_id <> -1 then
998: benutils.write(fnd_message.get);
999: end if;
1000: end if;
1001: close c_get_init_ler;
1002: --
1528: ,p_validate => p_validate
1529: );
1530: else
1531: --
1532: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1533: fnd_message.set_token('PROC',l_proc);
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1529: );
1530: else
1531: --
1532: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1533: fnd_message.set_token('PROC',l_proc);
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1537: if fnd_global.conc_request_id <> -1 then
1530: else
1531: --
1532: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1533: fnd_message.set_token('PROC',l_proc);
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1537: if fnd_global.conc_request_id <> -1 then
1538: benutils.write(fnd_message.get);
1531: --
1532: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1533: fnd_message.set_token('PROC',l_proc);
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1537: if fnd_global.conc_request_id <> -1 then
1538: benutils.write(fnd_message.get);
1539: end if;
1532: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1533: fnd_message.set_token('PROC',l_proc);
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1537: if fnd_global.conc_request_id <> -1 then
1538: benutils.write(fnd_message.get);
1539: end if;
1540: --
1534: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1535: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1536: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1537: if fnd_global.conc_request_id <> -1 then
1538: benutils.write(fnd_message.get);
1539: end if;
1540: --
1541: end if;
1542: l_pgm_id := l_epe_rec.pgm_id;
1600: );
1601: --
1602: else
1603: --
1604: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1605: fnd_message.set_token('PROC',l_proc);
1606: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1601: --
1602: else
1603: --
1604: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1605: fnd_message.set_token('PROC',l_proc);
1606: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1609: --
1602: else
1603: --
1604: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1605: fnd_message.set_token('PROC',l_proc);
1606: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1609: --
1610: if fnd_global.conc_request_id <> -1 then
1603: --
1604: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1605: fnd_message.set_token('PROC',l_proc);
1606: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1609: --
1610: if fnd_global.conc_request_id <> -1 then
1611: benutils.write(fnd_message.get);
1604: fnd_message.set_name('BEN','BEN_92428_CBR_DATES_NOT_FOUND');
1605: fnd_message.set_token('PROC',l_proc);
1606: fnd_message.set_token('PERSON_ID',to_char(p_person_id));
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1609: --
1610: if fnd_global.conc_request_id <> -1 then
1611: benutils.write(fnd_message.get);
1612: end if;
1607: fnd_message.set_token('PER_IN_LER_ID',to_char(p_per_in_ler_id));
1608: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
1609: --
1610: if fnd_global.conc_request_id <> -1 then
1611: benutils.write(fnd_message.get);
1612: end if;
1613: end if;
1614: --
1615: l_ptip_id := l_epe_rec.ptip_id;
2001: if c_get_cvrd_emp_person_id%notfound then
2002: --
2003: close c_get_cvrd_emp_person_id;
2004: --
2005: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2006: --fnd_message.set_token('PROC',l_proc);
2007: fnd_message.raise_error;
2008: else
2009: close c_get_cvrd_emp_person_id;
2002: --
2003: close c_get_cvrd_emp_person_id;
2004: --
2005: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2006: --fnd_message.set_token('PROC',l_proc);
2007: fnd_message.raise_error;
2008: else
2009: close c_get_cvrd_emp_person_id;
2010: end if;
2003: close c_get_cvrd_emp_person_id;
2004: --
2005: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2006: --fnd_message.set_token('PROC',l_proc);
2007: fnd_message.raise_error;
2008: else
2009: close c_get_cvrd_emp_person_id;
2010: end if;
2011: --
2229: if c_get_cvrd_emp_person_id%notfound then
2230: --
2231: close c_get_cvrd_emp_person_id;
2232: --
2233: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2234: --fnd_message.set_token('PROC',l_proc);
2235: fnd_message.raise_error;
2236: else
2237: close c_get_cvrd_emp_person_id;
2230: --
2231: close c_get_cvrd_emp_person_id;
2232: --
2233: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2234: --fnd_message.set_token('PROC',l_proc);
2235: fnd_message.raise_error;
2236: else
2237: close c_get_cvrd_emp_person_id;
2238: end if;
2231: close c_get_cvrd_emp_person_id;
2232: --
2233: fnd_message.set_name('BEN','BEN_92429_CVRD_EMP_NOT_FOUND');
2234: --fnd_message.set_token('PROC',l_proc);
2235: fnd_message.raise_error;
2236: else
2237: close c_get_cvrd_emp_person_id;
2238: end if;
2239: --