[Home] [Help]
179: 20-Jul-00 bbulusu 115.68 Bug Fix 5368. Was not checking
180: for enter at enrollment when
181: comparing enrolled benefit amount
182: to null computed value.
183: 25 Sep 00 mhoyes 115.69 - Commented out nocopy highly executed hr_utility
184: .set_locations.
185: 07 Nov 00 mhoyes 115.70 - Referenced electable choice performance
186: APIs.
187: - Referenced comp object loop electable
410: l_package varchar2(80) := g_package||'.round_val';
411: l_val number;
412: BEGIN
413: --
414: hr_utility.set_location ('Entering '||l_package,10);
415: --
416: if (p_rndg_cd is not null or
417: p_rndg_rl is not null) then
418: --
427: l_val := p_val;
428: --
429: end if;
430: return l_val;
431: hr_utility.set_location ('Leaving '||l_package,10);
432: --
433: END round_val;
434: --
435: ------------------------------------------------------------------------------
773:
774:
775: BEGIN
776: --
777: hr_utility.set_location ('Entering '||l_package,10);
778: --
779: -- FONM
780: if ben_manage_life_events.fonm = 'Y' then
781: --
789: --
790: fetch c_state into l_state;
791: --
792: close c_state;
793: hr_utility.set_location ('close c_state ',10);
794: --
795: open c_asg(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM
796: --
797: fetch c_asg into l_asg; -- doesn't matter if null
796: --
797: fetch c_asg into l_asg; -- doesn't matter if null
798: --
799: close c_asg;
800: hr_utility.set_location ('close c_asg ',10);
801: --
802: if p_elig_per_elctbl_chc_id is not null then
803: --
804: open c_epe;
805: --
806: fetch c_epe into l_epe;
807: --
808: close c_epe;
809: hr_utility.set_location ('close c_epe ',10);
810: --
811: end if;
812: --
813: if l_epe.oipl_id is not null then
816: --
817: fetch c_opt into l_opt;
818: --
819: close c_opt;
820: hr_utility.set_location ('close c_opt ',10);
821: --
822: end if;
823: --
824: -- check boundaries
822: end if;
823: --
824: -- check boundaries
825: --
826: hr_utility.set_location ('limit_checks ',10);
827: l_old_val:=l_val;
828: --- bug:1433393 when the vapro not exist then the benefir amount assigned to the
829: --- old_val,
830: --- whne there is no vapro the max limit of benefit is validated to decide
854: p_opt_id => l_opt.opt_id,
855: p_ler_id => l_epe.ler_id,
856: p_val => l_val,
857: p_state => l_state.region_2);
858: hr_utility.set_location ('Dn limit_checks ',10);
859: end if ;
860: --
861: -- If the value has been changed due to limits
862: -- and the value has been lowered then we have
864: -- written at this same level. If so make this electable
865: -- choice not electable. Do this only for the non Range
866: -- cvg_mlt_cd's.
867: --
868: hr_utility.set_location('old='||l_old_val||' new='||
869: l_val||' limit='|| p_ultmt_upr_lmt,31);
870: hr_utility.set_location('per in ler id '|| l_epe.per_in_ler_id,31);
871: hr_utility.set_location('mult code '|| p_cvg_mlt_cd,31);
872: hr_utility.set_location('pl '|| l_epe.pl_id,31);
866: -- cvg_mlt_cd's.
867: --
868: hr_utility.set_location('old='||l_old_val||' new='||
869: l_val||' limit='|| p_ultmt_upr_lmt,31);
870: hr_utility.set_location('per in ler id '|| l_epe.per_in_ler_id,31);
871: hr_utility.set_location('mult code '|| p_cvg_mlt_cd,31);
872: hr_utility.set_location('pl '|| l_epe.pl_id,31);
873: hr_utility.set_location('pgm '|| l_epe.pgm_id,31);
874:
867: --
868: hr_utility.set_location('old='||l_old_val||' new='||
869: l_val||' limit='|| p_ultmt_upr_lmt,31);
870: hr_utility.set_location('per in ler id '|| l_epe.per_in_ler_id,31);
871: hr_utility.set_location('mult code '|| p_cvg_mlt_cd,31);
872: hr_utility.set_location('pl '|| l_epe.pl_id,31);
873: hr_utility.set_location('pgm '|| l_epe.pgm_id,31);
874:
875: if l_val
868: hr_utility.set_location('old='||l_old_val||' new='||
869: l_val||' limit='|| p_ultmt_upr_lmt,31);
870: hr_utility.set_location('per in ler id '|| l_epe.per_in_ler_id,31);
871: hr_utility.set_location('mult code '|| p_cvg_mlt_cd,31);
872: hr_utility.set_location('pl '|| l_epe.pl_id,31);
873: hr_utility.set_location('pgm '|| l_epe.pgm_id,31);
874:
875: if l_val
869: l_val||' limit='|| p_ultmt_upr_lmt,31);
870: hr_utility.set_location('per in ler id '|| l_epe.per_in_ler_id,31);
871: hr_utility.set_location('mult code '|| p_cvg_mlt_cd,31);
872: hr_utility.set_location('pl '|| l_epe.pl_id,31);
873: hr_utility.set_location('pgm '|| l_epe.pgm_id,31);
874:
875: if l_val
877: l_epe.elctbl_flag='Y' then
900: -- more than one option in same Plan is reduced
901: -- due to Upper Limit, then only one of them is retained
902: -- as Electable.
903: --
904: hr_utility.set_location('other oipl ' ,90);
905: open c_other_oipl_cvg;
906: fetch c_other_oipl_cvg into l_other_cvg;
907: close c_other_oipl_cvg;
908: /* Bug#3585768 - Enrollment limitation will be enforced at the time of enrollment
944: fetch c_other_pl_cvg into l_other_cvg;
945: close c_other_pl_cvg;
946: */
947: end if;
948: hr_utility.set_location(' other cal ' || l_other_cvg,99);
949: if l_other_cvg=l_val then
950: --
951: open c_unrest(l_epe.ler_id);
952: fetch c_unrest into l_dummy;
984: p_effective_date => p_effective_date -- FONM : no need to pass cvg or rt dates.
985: );
986: --
987: l_epe.elctbl_flag:='N';
988: hr_utility.set_location('Electable choice was made not electable by bencvrge',29);
989: end if;
990: end if;
991: end if;
992: end if;
998: --
999: open c_cf_bnft_result(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) ;
1000: fetch c_cf_bnft_result into l_cf_bnft_result ;
1001: close c_cf_bnft_result ;
1002: hr_utility.set_location('l_cf_bnft_result.prtt_enrt_rslt_id '||l_cf_bnft_result.prtt_enrt_rslt_id,39);
1003: hr_utility.set_location('l_epe.prtt_enrt_rslt_id '||l_epe.prtt_enrt_rslt_id,39);
1004: --
1005: l_prtt_enrt_rslt_id := NVL(l_cf_bnft_result.prtt_enrt_rslt_id,l_epe.prtt_enrt_rslt_id);
1006: --
999: open c_cf_bnft_result(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) ;
1000: fetch c_cf_bnft_result into l_cf_bnft_result ;
1001: close c_cf_bnft_result ;
1002: hr_utility.set_location('l_cf_bnft_result.prtt_enrt_rslt_id '||l_cf_bnft_result.prtt_enrt_rslt_id,39);
1003: hr_utility.set_location('l_epe.prtt_enrt_rslt_id '||l_epe.prtt_enrt_rslt_id,39);
1004: --
1005: l_prtt_enrt_rslt_id := NVL(l_cf_bnft_result.prtt_enrt_rslt_id,l_epe.prtt_enrt_rslt_id);
1006: --
1007: if g_old_val <> nvl(l_val,-1) or
1049: l_prtt_enrt_rslt_id := null;
1050: --
1051: end if;
1052: --
1053: hr_utility.set_location('l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,39);
1054: hr_utility.set_location('l_crnt_enrld_flag'||l_crnt_enrld_flag,39);
1055: --
1056: if not p_calculate_only_mode then
1057: --
1050: --
1051: end if;
1052: --
1053: hr_utility.set_location('l_prtt_enrt_rslt_id '||l_prtt_enrt_rslt_id,39);
1054: hr_utility.set_location('l_crnt_enrld_flag'||l_crnt_enrld_flag,39);
1055: --
1056: if not p_calculate_only_mode then
1057: --
1058: open c_unrest(l_epe.ler_id);
1142: p_enb_valrow.mx_wout_ctfn_val := p_mx_wout_ctfn_val;
1143: p_enb_valrow.incrmt_val := p_incrmt_val;
1144: p_enb_valrow.dflt_val := p_dflt_val;
1145: --
1146: hr_utility.set_location ('Leaving '||l_package,10);
1147: --
1148: END write_coverage;
1149: --
1150: ------------------------------------------------------------------------
1157: l_package varchar2(80) := g_package||'.combine_with_variable_val';
1158: --
1159: BEGIN
1160: --
1161: hr_utility.set_location ('Entering '||l_package,10);
1162: --
1163: if p_vr_val is null then
1164: --
1165: p_combined_val := p_val;
1203: p_combined_val := p_vr_val;
1204: --
1205: end if;
1206: --
1207: hr_utility.set_location ('Leaving '||l_package,10);
1208: --
1209: END combine_with_variable_val;
1210: --
1211: ----------------------------------------------------------------------------
1273: l_person_id number;
1274:
1275: BEGIN
1276: --
1277: hr_utility.set_location ('Entering '||l_package,10);
1278: --
1279: l_max_possible_amt := p_mx_cvg_wcfn_amt;
1280: l_mn_amt := p_mn_cvg_rqd_amt;
1281: l_mx_amt := p_mx_cvg_alwd_amt;
1288: --Bug 3695079
1289: --l_max_possible_amt amount should be the min of p_mx_cvg_wcfn_amt and p_mx_cvg_incr_wcf_alwd_amt
1290: --p_mx_cvg_incr_wcf_alwd_amt is defined otherwise we need to take only p_mx_cvg_wcfn_amt
1291: --
1292: hr_utility.set_location ('l_max_possible_amt '||l_max_possible_amt,111);
1293: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt '||p_mx_cvg_incr_wcf_alwd_amt,111);
1294: if p_mx_cvg_incr_wcf_alwd_amt IS NOT NULL then
1295: --
1296: if l_max_possible_amt IS NULL OR
1289: --l_max_possible_amt amount should be the min of p_mx_cvg_wcfn_amt and p_mx_cvg_incr_wcf_alwd_amt
1290: --p_mx_cvg_incr_wcf_alwd_amt is defined otherwise we need to take only p_mx_cvg_wcfn_amt
1291: --
1292: hr_utility.set_location ('l_max_possible_amt '||l_max_possible_amt,111);
1293: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt '||p_mx_cvg_incr_wcf_alwd_amt,111);
1294: if p_mx_cvg_incr_wcf_alwd_amt IS NOT NULL then
1295: --
1296: if l_max_possible_amt IS NULL OR
1297: nvl(l_max_possible_amt,0) > (p_mx_cvg_incr_wcf_alwd_amt + nvl(p_crnt_bnft_amt,0)) then
1295: --
1296: if l_max_possible_amt IS NULL OR
1297: nvl(l_max_possible_amt,0) > (p_mx_cvg_incr_wcf_alwd_amt + nvl(p_crnt_bnft_amt,0)) then
1298: l_max_possible_amt := p_mx_cvg_incr_wcf_alwd_amt + nvl(p_crnt_bnft_amt,0);
1299: hr_utility.set_location ('l_max_possible_amt inside '||l_max_possible_amt,111);
1300: end if;
1301: --
1302: end if;
1303: --
1375: --
1376: end if;
1377: --
1378:
1379: hr_utility.set_location ('Plan PL_ID -> '||p_pl_id ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1376: end if;
1377: --
1378:
1379: hr_utility.set_location ('Plan PL_ID -> '||p_pl_id ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1377: --
1378:
1379: hr_utility.set_location ('Plan PL_ID -> '||p_pl_id ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1378:
1379: hr_utility.set_location ('Plan PL_ID -> '||p_pl_id ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1379: hr_utility.set_location ('Plan PL_ID -> '||p_pl_id ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1380: hr_utility.set_location ('p_mx_cvg_wcfn_amt -> '||p_mx_cvg_wcfn_amt ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1381: hr_utility.set_location ('p_mx_cvg_wcfn_mlt_num -> '||p_mx_cvg_wcfn_mlt_num ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1382: hr_utility.set_location ('p_mx_cvg_mlt_incr_num -> '||p_mx_cvg_mlt_incr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1383: hr_utility.set_location ('p_mx_cvg_mlt_incr_wcf_num -> '||p_mx_cvg_mlt_incr_wcf_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1384: hr_utility.set_location ('p_mx_cvg_incr_alwd_amt -> '||p_mx_cvg_incr_alwd_amt ,33);
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1392: --Bug No:4436573 Debugging purpose
1385: hr_utility.set_location ('p_mx_cvg_incr_wcf_alwd_amt -> '||p_mx_cvg_incr_wcf_alwd_amt,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1392: --Bug No:4436573 Debugging purpose
1393: hr_utility.set_location ('p_cvg_mlt_cd -> '||p_cvg_mlt_cd ,33);
1386: hr_utility.set_location ('p_mx_cvg_rl -> '||p_mx_cvg_rl ,33);
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1392: --Bug No:4436573 Debugging purpose
1393: hr_utility.set_location ('p_cvg_mlt_cd -> '||p_cvg_mlt_cd ,33);
1394: --End Bug No:4436573
1387: hr_utility.set_location ('p_mn_cvg_rl -> '||p_mn_cvg_rl ,33);
1388: hr_utility.set_location ('p_combined_val -> '||p_combined_val ,33);
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1392: --Bug No:4436573 Debugging purpose
1393: hr_utility.set_location ('p_cvg_mlt_cd -> '||p_cvg_mlt_cd ,33);
1394: --End Bug No:4436573
1395: --
1389: hr_utility.set_location ('p_crnt_bnft_amt -> '||p_crnt_bnft_amt ,33);
1390: hr_utility.set_location ('p_ordr_num -> '||p_ordr_num ,33);
1391: hr_utility.set_location ('p_crnt_ordr_num -> '||p_crnt_ordr_num ,33);
1392: --Bug No:4436573 Debugging purpose
1393: hr_utility.set_location ('p_cvg_mlt_cd -> '||p_cvg_mlt_cd ,33);
1394: --End Bug No:4436573
1395: --
1396: if p_combined_val is null then
1397: --
1443: --
1444: elsif (p_combined_val - nvl(p_crnt_bnft_amt,0))
1445: <= p_mx_cvg_incr_wcf_alwd_amt then
1446: --
1447: hr_utility.set_location(' IK1 p_combined_val - nvl(p_crnt_bnft_amt,0))'||(p_combined_val - nvl(p_crnt_bnft_amt,0)),99);
1448: hr_utility.set_location('IK1 p_mx_cvg_incr_wcf_alwd_amt'||p_mx_cvg_incr_wcf_alwd_amt,99);
1449: p_ctfn_rqd := 'Y';
1450: p_write_rec := true;
1451: --
1444: elsif (p_combined_val - nvl(p_crnt_bnft_amt,0))
1445: <= p_mx_cvg_incr_wcf_alwd_amt then
1446: --
1447: hr_utility.set_location(' IK1 p_combined_val - nvl(p_crnt_bnft_amt,0))'||(p_combined_val - nvl(p_crnt_bnft_amt,0)),99);
1448: hr_utility.set_location('IK1 p_mx_cvg_incr_wcf_alwd_amt'||p_mx_cvg_incr_wcf_alwd_amt,99);
1449: p_ctfn_rqd := 'Y';
1450: p_write_rec := true;
1451: --
1452: elsif (p_ordr_num - nvl(p_crnt_ordr_num,0))<= p_mx_cvg_mlt_incr_wcf_num then
1461: --
1462: end if;
1463: --
1464: if p_write_rec then
1465: hr_utility.set_location (' p_write_rec ',10);
1466: end if ;
1467:
1468: hr_utility.set_location (' p_no_mx_cvg_amt_apls_flag'|| p_no_mx_cvg_amt_apls_flag,10);
1469:
1464: if p_write_rec then
1465: hr_utility.set_location (' p_write_rec ',10);
1466: end if ;
1467:
1468: hr_utility.set_location (' p_no_mx_cvg_amt_apls_flag'|| p_no_mx_cvg_amt_apls_flag,10);
1469:
1470: -- This Certification condition is not based on increases,
1471: -- but based on a fixed amount. (Bug 1142060)
1472: -- no max flag is validated for # 2736519
1478: -- benefit amount of 75,000. Now we need certification only for the
1479: -- amount more than 75,000 even if there are no increases defined by
1480: -- the customer.
1481: --
1482: hr_utility.set_location ('IK l_mx_amt '||l_mx_amt,20);
1483: hr_utility.set_location ('IK p_crnt_bnft_amt '||p_crnt_bnft_amt,20);
1484: --
1485: if p_entr_val_at_enrt_flag = 'N' then
1486: --
1479: -- amount more than 75,000 even if there are no increases defined by
1480: -- the customer.
1481: --
1482: hr_utility.set_location ('IK l_mx_amt '||l_mx_amt,20);
1483: hr_utility.set_location ('IK p_crnt_bnft_amt '||p_crnt_bnft_amt,20);
1484: --
1485: if p_entr_val_at_enrt_flag = 'N' then
1486: --
1487: l_mx_amt := greatest(l_mx_amt,nvl(p_crnt_bnft_amt,0));
1490: --
1491: if p_write_rec and
1492: ( p_combined_val > l_mx_amt or p_no_mx_cvg_amt_apls_flag = 'Y') then
1493: --
1494: hr_utility.set_location ('IK I am Here'||p_combined_val,99);
1495: hr_utility.set_location ('IK l_mx_amt'||l_mx_amt ,99);
1496: p_check_received:=true;
1497: p_ctfn_rqd := 'Y';
1498: --
1491: if p_write_rec and
1492: ( p_combined_val > l_mx_amt or p_no_mx_cvg_amt_apls_flag = 'Y') then
1493: --
1494: hr_utility.set_location ('IK I am Here'||p_combined_val,99);
1495: hr_utility.set_location ('IK l_mx_amt'||l_mx_amt ,99);
1496: p_check_received:=true;
1497: p_ctfn_rqd := 'Y';
1498: --
1499: end if;
1497: p_ctfn_rqd := 'Y';
1498: --
1499: end if;
1500: --
1501: hr_utility.set_location ('p_ctfn_rqd '||p_ctfn_rqd,09);
1502: --
1503: if p_write_rec and p_entr_val_at_enrt_flag = 'Y' and
1504: (l_mx_amt < l_max_possible_amt
1505: or l_max_possible_amt is not null)
1503: if p_write_rec and p_entr_val_at_enrt_flag = 'Y' and
1504: (l_mx_amt < l_max_possible_amt
1505: or l_max_possible_amt is not null)
1506: then
1507: hr_utility.set_location ('IK ENTRVALENRT case',99);
1508: p_ctfn_rqd := 'Y';
1509: end if;
1510: --
1511: if p_cvg_mlt_cd = 'ERL' then
1521: END if;
1522: --
1523: END if;
1524: --
1525: hr_utility.set_location ('p_ctfn_rqd '||p_ctfn_rqd,10);
1526: hr_utility.set_location ('Leaving '||l_package,10);
1527: --
1528: END chk_bnft_ctfn;
1529: --
1522: --
1523: END if;
1524: --
1525: hr_utility.set_location ('p_ctfn_rqd '||p_ctfn_rqd,10);
1526: hr_utility.set_location ('Leaving '||l_package,10);
1527: --
1528: END chk_bnft_ctfn;
1529: --
1530: ------------------------------------------------------------------------------
2135: begin
2136: --
2137: -- ctfn's at the option level are written in benchctf.pkb
2138: -- don't write them at the bnft level too. Bug 1277371.
2139: hr_utility.set_location('Entering '||l_proc,10);
2140: --Bug 14137476
2141: if l_enrt_bnft_id is not null
2142: then
2143: open c;
2145: close c;
2146: end if;
2147: --Bug 14137476
2148: --
2149: hr_utility.set_location('IK l_combined_val '||l_combined_val,20);
2150: hr_utility.set_location('IK l_enrt_bnft_id '||l_enrt_bnft_id,20);
2151: hr_utility.set_location('IK p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,20);
2152: --
2153: if l_ler_bnft_rstrn_id is not null then
2146: end if;
2147: --Bug 14137476
2148: --
2149: hr_utility.set_location('IK l_combined_val '||l_combined_val,20);
2150: hr_utility.set_location('IK l_enrt_bnft_id '||l_enrt_bnft_id,20);
2151: hr_utility.set_location('IK p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,20);
2152: --
2153: if l_ler_bnft_rstrn_id is not null then
2154: for l_ctfn in c_ler_rstrn_ctfn(nvl(l_fonm_cvg_strt_dt,l_effective_date)) loop -- FONM
2147: --Bug 14137476
2148: --
2149: hr_utility.set_location('IK l_combined_val '||l_combined_val,20);
2150: hr_utility.set_location('IK l_enrt_bnft_id '||l_enrt_bnft_id,20);
2151: hr_utility.set_location('IK p_elig_per_elctbl_chc_id '||p_elig_per_elctbl_chc_id,20);
2152: --
2153: if l_ler_bnft_rstrn_id is not null then
2154: for l_ctfn in c_ler_rstrn_ctfn(nvl(l_fonm_cvg_strt_dt,l_effective_date)) loop -- FONM
2155: l_ctfn_received:='N';
2193: end if;
2194: end loop;
2195: --
2196: else
2197: hr_utility.set_location('IK Else Write CTFN',99);
2198: --
2199: for l_ctfn in c_pl_rstrn_ctfn ( nvl(l_fonm_cvg_strt_dt, l_effective_date)) loop -- FONM
2200: l_ctfn_received:='N';
2201: if l_check_received then
2198: --
2199: for l_ctfn in c_pl_rstrn_ctfn ( nvl(l_fonm_cvg_strt_dt, l_effective_date)) loop -- FONM
2200: l_ctfn_received:='N';
2201: if l_check_received then
2202: hr_utility.set_location('IK Check ctfn TRUE',89);
2203: open c_ctfn_received(
2204: p_pgm_id =>l_epe.pgm_id,
2205: p_pl_id =>l_epe.pl_id,
2206: p_enrt_ctfn_typ_cd =>l_ctfn.enrt_ctfn_typ_cd,
2211: close c_ctfn_received;
2212: end if;
2213: if l_ctfn_received='N' then
2214: --
2215: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2216: --
2217: ben_determine_chc_ctfn.write_ctfn
2218: (p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id,
2219: p_enrt_bnft_id => l_enrt_bnft_id,
2240: ---Check if there is any electable choice certification created for the current epe
2241: open c_chk_bnft_cert(l_epe.business_group_id);
2242: fetch c_chk_bnft_cert into l_chk_bnft_cert;
2243: if c_chk_bnft_cert%notfound then
2244: hr_utility.set_location('bnft cert not found',99) ;
2245: hr_utility.set_location('get the previous LE cert',99) ;
2246: for l_prev_le_cert in c_prev_le_cert( l_get_cvg_rstr.business_group_id,
2247: l_get_cvg_rstr.elig_per_elctbl_chc_id,l_combined_val) loop --Bug 8767376
2248: hr_utility.set_location('l_get_cvg_rstr.elig_per_elctbl_chc_id : '||l_get_cvg_rstr.elig_per_elctbl_chc_id,99) ;
2241: open c_chk_bnft_cert(l_epe.business_group_id);
2242: fetch c_chk_bnft_cert into l_chk_bnft_cert;
2243: if c_chk_bnft_cert%notfound then
2244: hr_utility.set_location('bnft cert not found',99) ;
2245: hr_utility.set_location('get the previous LE cert',99) ;
2246: for l_prev_le_cert in c_prev_le_cert( l_get_cvg_rstr.business_group_id,
2247: l_get_cvg_rstr.elig_per_elctbl_chc_id,l_combined_val) loop --Bug 8767376
2248: hr_utility.set_location('l_get_cvg_rstr.elig_per_elctbl_chc_id : '||l_get_cvg_rstr.elig_per_elctbl_chc_id,99) ;
2249:
2244: hr_utility.set_location('bnft cert not found',99) ;
2245: hr_utility.set_location('get the previous LE cert',99) ;
2246: for l_prev_le_cert in c_prev_le_cert( l_get_cvg_rstr.business_group_id,
2247: l_get_cvg_rstr.elig_per_elctbl_chc_id,l_combined_val) loop --Bug 8767376
2248: hr_utility.set_location('l_get_cvg_rstr.elig_per_elctbl_chc_id : '||l_get_cvg_rstr.elig_per_elctbl_chc_id,99) ;
2249:
2250: l_ctfn_received:='N';
2251: open c_ctfn_received(
2252: p_pgm_id =>l_epe.pgm_id,
2256: cv_effective_date =>nvl(l_fonm_cvg_strt_dt, l_effective_date) -- FONM
2257: );
2258: fetch c_ctfn_received into l_ctfn_received;
2259: close c_ctfn_received;
2260: hr_utility.set_location('l_ctfn_received : '||l_ctfn_received,99) ;
2261: if l_ctfn_received='N' then
2262:
2263: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2264: --
2259: close c_ctfn_received;
2260: hr_utility.set_location('l_ctfn_received : '||l_ctfn_received,99) ;
2261: if l_ctfn_received='N' then
2262:
2263: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2264: --
2265: hr_utility.set_location('p_elig_per_elctbl_chc_id : '||p_elig_per_elctbl_chc_id,99) ;
2266: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2267: hr_utility.set_location('l_enrt_bnft_id : '||l_enrt_bnft_id,99) ;
2261: if l_ctfn_received='N' then
2262:
2263: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2264: --
2265: hr_utility.set_location('p_elig_per_elctbl_chc_id : '||p_elig_per_elctbl_chc_id,99) ;
2266: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2267: hr_utility.set_location('l_enrt_bnft_id : '||l_enrt_bnft_id,99) ;
2268: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2269: ben_determine_chc_ctfn.write_ctfn
2262:
2263: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2264: --
2265: hr_utility.set_location('p_elig_per_elctbl_chc_id : '||p_elig_per_elctbl_chc_id,99) ;
2266: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2267: hr_utility.set_location('l_enrt_bnft_id : '||l_enrt_bnft_id,99) ;
2268: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2269: ben_determine_chc_ctfn.write_ctfn
2270: (p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id,
2263: hr_utility.set_location('IK l_ctfn_received=N',99) ;
2264: --
2265: hr_utility.set_location('p_elig_per_elctbl_chc_id : '||p_elig_per_elctbl_chc_id,99) ;
2266: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2267: hr_utility.set_location('l_enrt_bnft_id : '||l_enrt_bnft_id,99) ;
2268: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2269: ben_determine_chc_ctfn.write_ctfn
2270: (p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id,
2271: p_enrt_bnft_id => l_enrt_bnft_id,
2264: --
2265: hr_utility.set_location('p_elig_per_elctbl_chc_id : '||p_elig_per_elctbl_chc_id,99) ;
2266: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2267: hr_utility.set_location('l_enrt_bnft_id : '||l_enrt_bnft_id,99) ;
2268: hr_utility.set_location('l_prev_le_cert.enrt_ctfn_typ_cd : '||l_prev_le_cert.enrt_ctfn_typ_cd,99) ;
2269: ben_determine_chc_ctfn.write_ctfn
2270: (p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id,
2271: p_enrt_bnft_id => l_enrt_bnft_id,
2272: p_enrt_ctfn_typ_cd => l_prev_le_cert.enrt_ctfn_typ_cd,
2293: end write_ctfn;
2294: --
2295: BEGIN
2296: --
2297: hr_utility.set_location ('Entering '||l_package,10);
2298: --
2299: --
2300: -- Bug 1895846
2301: open c_epe_in_pndg ;
2302: --
2303: fetch c_epe_in_pndg into l_dummy ;
2304: if c_epe_in_pndg%found then
2305: --
2306: hr_utility.set_location ('Suspended or Pending work flow records exist ' , 10);
2307: hr_utility.set_location ('Leaving '||l_package,10);
2308: close c_epe_in_pndg ;
2309: return ;
2310: --
2303: fetch c_epe_in_pndg into l_dummy ;
2304: if c_epe_in_pndg%found then
2305: --
2306: hr_utility.set_location ('Suspended or Pending work flow records exist ' , 10);
2307: hr_utility.set_location ('Leaving '||l_package,10);
2308: close c_epe_in_pndg ;
2309: return ;
2310: --
2311: end if;
2371: --
2372: -- Walk the comp object tree for the electable choice and get
2373: -- the appropriate coverage details
2374: --
2375: hr_utility.set_location ('pl_id '||ben_epe_cache.g_currcobjepe_row.pl_id,10);
2376: hr_utility.set_location ('elig choice id'||p_elig_per_elctbl_chc_id,11);
2377: ben_cvg_cache.epecobjtree_getcvgdets
2378: (p_epe_id => p_elig_per_elctbl_chc_id
2379: ,p_epe_pl_id => ben_epe_cache.g_currcobjepe_row.pl_id
2372: -- Walk the comp object tree for the electable choice and get
2373: -- the appropriate coverage details
2374: --
2375: hr_utility.set_location ('pl_id '||ben_epe_cache.g_currcobjepe_row.pl_id,10);
2376: hr_utility.set_location ('elig choice id'||p_elig_per_elctbl_chc_id,11);
2377: ben_cvg_cache.epecobjtree_getcvgdets
2378: (p_epe_id => p_elig_per_elctbl_chc_id
2379: ,p_epe_pl_id => ben_epe_cache.g_currcobjepe_row.pl_id
2380: ,p_epe_plip_id => ben_epe_cache.g_currcobjepe_row.plip_id
2390: --
2391: end if;
2392: */
2393: --
2394: hr_utility.set_location ('open c_epe ',10);
2395: open c_epe;
2396: --
2397: fetch c_epe into l_epe;
2398: --
2407: --
2408: end if;
2409: --
2410: close c_epe;
2411: hr_utility.set_location ('close c_epe ',10);
2412: hr_utility.set_location ('pl_id'||l_epe.pl_id,10);
2413: if p_calculate_only_mode then
2414: ben_cvg_cache.epecobjtree_getcvgdets
2415: (p_epe_id => p_elig_per_elctbl_chc_id
2408: end if;
2409: --
2410: close c_epe;
2411: hr_utility.set_location ('close c_epe ',10);
2412: hr_utility.set_location ('pl_id'||l_epe.pl_id,10);
2413: if p_calculate_only_mode then
2414: ben_cvg_cache.epecobjtree_getcvgdets
2415: (p_epe_id => p_elig_per_elctbl_chc_id
2416: ,p_epe_pl_id => l_epe.pl_id
2435: --
2436: if l_dummy = 'Y'
2437: then
2438: --
2439: hr_utility.set_location('No Coverage For EPE_ID = ' || p_elig_per_elctbl_chc_id, 8787);
2440: l_enrt_bnft_id := ben_manage_unres_life_events.enb_exists(p_elig_per_elctbl_chc_id,1);
2441: hr_utility.set_location('l_enrt_bnft_id = ' || l_enrt_bnft_id, 8787);
2442: --
2443: IF l_enrt_bnft_id is not null
2437: then
2438: --
2439: hr_utility.set_location('No Coverage For EPE_ID = ' || p_elig_per_elctbl_chc_id, 8787);
2440: l_enrt_bnft_id := ben_manage_unres_life_events.enb_exists(p_elig_per_elctbl_chc_id,1);
2441: hr_utility.set_location('l_enrt_bnft_id = ' || l_enrt_bnft_id, 8787);
2442: --
2443: IF l_enrt_bnft_id is not null
2444: THEN
2445: --
2587: end if;
2588: --
2589: end if;
2590: --
2591: hr_utility.set_location (' BDVR_MN ',10);
2592:
2593: ben_determine_variable_rates.main -- FONM procedure have to take care of it
2594: (p_person_id => l_epe.person_id,
2595: p_elig_per_elctbl_chc_id => p_elig_per_elctbl_chc_id,
2610: p_ultmt_upr_lmt => l_ultmt_upr_lmt,
2611: p_ultmt_lwr_lmt => l_ultmt_lwr_lmt,
2612: p_ultmt_upr_lmt_calc_rl => l_ultmt_upr_lmt_calc_rl,
2613: p_ultmt_lwr_lmt_calc_rl => l_ultmt_lwr_lmt_calc_rl ); -- output
2614: hr_utility.set_location (' Dn BDVR_MN ',10);
2615: -- this variabl intialisation used to chek whether the benefit crossed the max limit
2616: -- in benefit write. if the vapro defined then then ultimate level is used
2617: -- if there is no vapro then benefit level used for the validation bug:1433393
2618:
2615: -- this variabl intialisation used to chek whether the benefit crossed the max limit
2616: -- in benefit write. if the vapro defined then then ultimate level is used
2617: -- if there is no vapro then benefit level used for the validation bug:1433393
2618:
2619: hr_utility.set_location(' treatment code ' || l_vr_trtmt_cd ||' ' || l_vr_val , 999);
2620:
2621: l_entr_val_at_enrt_flag := CASE l_entr_val_at_enrt_flag WHEN 'Y' then 'Y' else l_cvg(0).entr_val_at_enrt_flag END;--Bug #8501248
2622:
2623: if l_vr_val is not null or l_vr_trtmt_cd is not null then
2667:
2668: ---
2669: end if ;
2670:
2671: hr_utility.set_location('min max ' || l_mn_elcn_val ||' ' || l_mx_elcn_val|| ' '|| l_vapro_exist , 999);
2672: --
2673: l_ccm_max_val := l_mx_elcn_val; /* Bug 3828288 */
2674: --
2675: --Bug 6054310 -- This condition should only be there for NSVU
2689: -- pay_mag_utils.lookup_jurisdiction_code
2690: -- (p_state => l_state.region_2);
2691: -- end if;
2692:
2693: hr_utility.set_location ('l_ler_id '||l_ler_id,55);
2694: hr_utility.set_location ('l_pl_id '||l_pl_id,55);
2695: hr_utility.set_location ('l_oipl_id '||l_oipl_id,55);
2696: hr_utility.set_location ('l_business_group_id '||l_business_group_id,55);
2697: hr_utility.set_location ('l_cvg(0).bnft_or_option_rstrctn_cd '||
2690: -- (p_state => l_state.region_2);
2691: -- end if;
2692:
2693: hr_utility.set_location ('l_ler_id '||l_ler_id,55);
2694: hr_utility.set_location ('l_pl_id '||l_pl_id,55);
2695: hr_utility.set_location ('l_oipl_id '||l_oipl_id,55);
2696: hr_utility.set_location ('l_business_group_id '||l_business_group_id,55);
2697: hr_utility.set_location ('l_cvg(0).bnft_or_option_rstrctn_cd '||
2698: l_cvg(0).bnft_or_option_rstrctn_cd,33);
2691: -- end if;
2692:
2693: hr_utility.set_location ('l_ler_id '||l_ler_id,55);
2694: hr_utility.set_location ('l_pl_id '||l_pl_id,55);
2695: hr_utility.set_location ('l_oipl_id '||l_oipl_id,55);
2696: hr_utility.set_location ('l_business_group_id '||l_business_group_id,55);
2697: hr_utility.set_location ('l_cvg(0).bnft_or_option_rstrctn_cd '||
2698: l_cvg(0).bnft_or_option_rstrctn_cd,33);
2699:
2692:
2693: hr_utility.set_location ('l_ler_id '||l_ler_id,55);
2694: hr_utility.set_location ('l_pl_id '||l_pl_id,55);
2695: hr_utility.set_location ('l_oipl_id '||l_oipl_id,55);
2696: hr_utility.set_location ('l_business_group_id '||l_business_group_id,55);
2697: hr_utility.set_location ('l_cvg(0).bnft_or_option_rstrctn_cd '||
2698: l_cvg(0).bnft_or_option_rstrctn_cd,33);
2699:
2700: l_pl_id := l_epe.pl_id;
2693: hr_utility.set_location ('l_ler_id '||l_ler_id,55);
2694: hr_utility.set_location ('l_pl_id '||l_pl_id,55);
2695: hr_utility.set_location ('l_oipl_id '||l_oipl_id,55);
2696: hr_utility.set_location ('l_business_group_id '||l_business_group_id,55);
2697: hr_utility.set_location ('l_cvg(0).bnft_or_option_rstrctn_cd '||
2698: l_cvg(0).bnft_or_option_rstrctn_cd,33);
2699:
2700: l_pl_id := l_epe.pl_id;
2701: l_ler_id := l_epe.ler_id;
2708: --
2709: open c_ler_rstrn( nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM
2710: fetch c_ler_rstrn into l_rstrn;
2711: if c_ler_rstrn%notfound then
2712: hr_utility.set_location ('c_ler_rstrn not found ',33);
2713: close c_ler_rstrn;
2714:
2715: open c_pl_rstrn( nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM;
2716: fetch c_pl_rstrn into l_rstrn;
2715: open c_pl_rstrn( nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM;
2716: fetch c_pl_rstrn into l_rstrn;
2717:
2718: if c_pl_rstrn%notfound then
2719: hr_utility.set_location ('c_pl_rstrn not found ',33);
2720: l_rstrn_found := false;
2721: else
2722: hr_utility.set_location ('c_pl_rstrn found ',33);
2723: hr_utility.set_location ('l_rstrn.ler_bnft_rstrn_id '||l_rstrn.ler_bnft_rstrn_id,33);
2718: if c_pl_rstrn%notfound then
2719: hr_utility.set_location ('c_pl_rstrn not found ',33);
2720: l_rstrn_found := false;
2721: else
2722: hr_utility.set_location ('c_pl_rstrn found ',33);
2723: hr_utility.set_location ('l_rstrn.ler_bnft_rstrn_id '||l_rstrn.ler_bnft_rstrn_id,33);
2724: l_rstrn_found := true;
2725: end if;
2726: close c_pl_rstrn;
2719: hr_utility.set_location ('c_pl_rstrn not found ',33);
2720: l_rstrn_found := false;
2721: else
2722: hr_utility.set_location ('c_pl_rstrn found ',33);
2723: hr_utility.set_location ('l_rstrn.ler_bnft_rstrn_id '||l_rstrn.ler_bnft_rstrn_id,33);
2724: l_rstrn_found := true;
2725: end if;
2726: close c_pl_rstrn;
2727: else
2724: l_rstrn_found := true;
2725: end if;
2726: close c_pl_rstrn;
2727: else
2728: hr_utility.set_location ('c_ler_rstrn found ',33);
2729: hr_utility.set_location ('l_rstrn.ler_bnft_rstrn_id '||l_rstrn.ler_bnft_rstrn_id,33);
2730: l_ler_bnft_rstrn_id := l_rstrn.ler_bnft_rstrn_id;
2731: l_rstrn_found := true;
2732: close c_ler_rstrn;
2725: end if;
2726: close c_pl_rstrn;
2727: else
2728: hr_utility.set_location ('c_ler_rstrn found ',33);
2729: hr_utility.set_location ('l_rstrn.ler_bnft_rstrn_id '||l_rstrn.ler_bnft_rstrn_id,33);
2730: l_ler_bnft_rstrn_id := l_rstrn.ler_bnft_rstrn_id;
2731: l_rstrn_found := true;
2732: close c_ler_rstrn;
2733: end if;
2735: -----------------Enhancement 8716693
2736: ----Get the profile value
2737: l_carry_fwd_cert := 'N';
2738: l_carry_fwd_cert := fnd_profile.value('BEN_CARRY_FWD_CERT');
2739: hr_utility.set_location ('l_carry_fwd_cert,enh : '||l_carry_fwd_cert,5345324);
2740: if nvl(l_carry_fwd_cert,'N') = 'Y' then
2741: l_force_rstr := false;
2742: hr_utility.set_location ('enh',5345324);
2743: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_rstrn.mx_cvg_wcfn_amt,5345324);
2738: l_carry_fwd_cert := fnd_profile.value('BEN_CARRY_FWD_CERT');
2739: hr_utility.set_location ('l_carry_fwd_cert,enh : '||l_carry_fwd_cert,5345324);
2740: if nvl(l_carry_fwd_cert,'N') = 'Y' then
2741: l_force_rstr := false;
2742: hr_utility.set_location ('enh',5345324);
2743: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_rstrn.mx_cvg_wcfn_amt,5345324);
2744: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_rstrn.mx_cvg_alwd_amt,5345324);
2745: -------check if the current LE has electability or not
2746: open c_get_pil_elctbl;
2739: hr_utility.set_location ('l_carry_fwd_cert,enh : '||l_carry_fwd_cert,5345324);
2740: if nvl(l_carry_fwd_cert,'N') = 'Y' then
2741: l_force_rstr := false;
2742: hr_utility.set_location ('enh',5345324);
2743: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_rstrn.mx_cvg_wcfn_amt,5345324);
2744: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_rstrn.mx_cvg_alwd_amt,5345324);
2745: -------check if the current LE has electability or not
2746: open c_get_pil_elctbl;
2747: fetch c_get_pil_elctbl into l_get_pil_elctbl;
2740: if nvl(l_carry_fwd_cert,'N') = 'Y' then
2741: l_force_rstr := false;
2742: hr_utility.set_location ('enh',5345324);
2743: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_rstrn.mx_cvg_wcfn_amt,5345324);
2744: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_rstrn.mx_cvg_alwd_amt,5345324);
2745: -------check if the current LE has electability or not
2746: open c_get_pil_elctbl;
2747: fetch c_get_pil_elctbl into l_get_pil_elctbl;
2748: if c_get_pil_elctbl%found then ---Fetch the electable choice info.
2750:
2751: open c_get_prev_pil(l_person_id);
2752: fetch c_get_prev_pil into l_get_prev_pil;
2753: if c_get_prev_pil%found then
2754: hr_utility.set_location ('prev pil found',53453245);
2755: hr_utility.set_location ('l_get_prev_pil.per_in_ler_id : '||l_get_prev_pil.per_in_ler_id,5345324);
2756: ---Check if the election is suspended in the Prev LE or not.
2757: open c_chk_prev_sus_enr(l_get_prev_pil.per_in_ler_id,l_get_pil_elctbl.pgm_id,l_get_pil_elctbl.pl_id,l_get_pil_elctbl.oipl_id);
2758: fetch c_chk_prev_sus_enr into l_chk_prev_sus_enr;
2751: open c_get_prev_pil(l_person_id);
2752: fetch c_get_prev_pil into l_get_prev_pil;
2753: if c_get_prev_pil%found then
2754: hr_utility.set_location ('prev pil found',53453245);
2755: hr_utility.set_location ('l_get_prev_pil.per_in_ler_id : '||l_get_prev_pil.per_in_ler_id,5345324);
2756: ---Check if the election is suspended in the Prev LE or not.
2757: open c_chk_prev_sus_enr(l_get_prev_pil.per_in_ler_id,l_get_pil_elctbl.pgm_id,l_get_pil_elctbl.pl_id,l_get_pil_elctbl.oipl_id);
2758: fetch c_chk_prev_sus_enr into l_chk_prev_sus_enr;
2759: if c_chk_prev_sus_enr%found then
2756: ---Check if the election is suspended in the Prev LE or not.
2757: open c_chk_prev_sus_enr(l_get_prev_pil.per_in_ler_id,l_get_pil_elctbl.pgm_id,l_get_pil_elctbl.pl_id,l_get_pil_elctbl.oipl_id);
2758: fetch c_chk_prev_sus_enr into l_chk_prev_sus_enr;
2759: if c_chk_prev_sus_enr%found then
2760: hr_utility.set_location ('prev election suspended',5345324);
2761: ---If suspended,then get the previous LE cvg restrictions.
2762: open c_get_cvg_rstr(l_get_prev_pil.per_in_ler_id);
2763: fetch c_get_cvg_rstr into l_get_cvg_rstr;
2764: ---get the LE which has cvg set-up
2761: ---If suspended,then get the previous LE cvg restrictions.
2762: open c_get_cvg_rstr(l_get_prev_pil.per_in_ler_id);
2763: fetch c_get_cvg_rstr into l_get_cvg_rstr;
2764: ---get the LE which has cvg set-up
2765: hr_utility.set_location ('cvg rstr found',53453245);
2766: l_rstrn_found := true;
2767: l_force_rstr := true;
2768: l_rstrn.mx_cvg_wcfn_amt := l_get_cvg_rstr.MX_VAL;
2769: l_rstrn.mx_cvg_alwd_amt := l_get_cvg_rstr.MX_WOUT_CTFN_VAL;
2766: l_rstrn_found := true;
2767: l_force_rstr := true;
2768: l_rstrn.mx_cvg_wcfn_amt := l_get_cvg_rstr.MX_VAL;
2769: l_rstrn.mx_cvg_alwd_amt := l_get_cvg_rstr.MX_WOUT_CTFN_VAL;
2770: hr_utility.set_location ('l_rstrn.dflt_to_asn_pndg_ctfn_cd : '||l_rstrn.dflt_to_asn_pndg_ctfn_cd,53453245);
2771: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_get_cvg_rstr.MX_VAL,53453245);
2772: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_get_cvg_rstr.MX_WOUT_CTFN_VAL,53453245);
2773: close c_get_cvg_rstr;
2774: -- close c_ler_rstrn;
2767: l_force_rstr := true;
2768: l_rstrn.mx_cvg_wcfn_amt := l_get_cvg_rstr.MX_VAL;
2769: l_rstrn.mx_cvg_alwd_amt := l_get_cvg_rstr.MX_WOUT_CTFN_VAL;
2770: hr_utility.set_location ('l_rstrn.dflt_to_asn_pndg_ctfn_cd : '||l_rstrn.dflt_to_asn_pndg_ctfn_cd,53453245);
2771: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_get_cvg_rstr.MX_VAL,53453245);
2772: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_get_cvg_rstr.MX_WOUT_CTFN_VAL,53453245);
2773: close c_get_cvg_rstr;
2774: -- close c_ler_rstrn;
2775: end if;
2768: l_rstrn.mx_cvg_wcfn_amt := l_get_cvg_rstr.MX_VAL;
2769: l_rstrn.mx_cvg_alwd_amt := l_get_cvg_rstr.MX_WOUT_CTFN_VAL;
2770: hr_utility.set_location ('l_rstrn.dflt_to_asn_pndg_ctfn_cd : '||l_rstrn.dflt_to_asn_pndg_ctfn_cd,53453245);
2771: hr_utility.set_location ('l_rstrn.mx_cvg_wcfn_amt : '||l_get_cvg_rstr.MX_VAL,53453245);
2772: hr_utility.set_location ('l_rstrn.mx_cvg_alwd_amt : '||l_get_cvg_rstr.MX_WOUT_CTFN_VAL,53453245);
2773: close c_get_cvg_rstr;
2774: -- close c_ler_rstrn;
2775: end if;
2776: close c_chk_prev_sus_enr;
2825: ,p_interim_epe_id => l_interim_elctbl_chc_id
2826: ,p_interim_bnft_amt => l_interim_bnft_amt
2827: );
2828:
2829: hr_utility.set_location(' l_dflt_to_asn_pndg_ctfn_cd ' || l_dflt_to_asn_pndg_ctfn_cd,99095);
2830:
2831: IF l_interim_elctbl_chc_id IS NOT NULL THEN
2832: --
2833: l_dflt_to_asn_pndg_ctfn_cd := null;
2830:
2831: IF l_interim_elctbl_chc_id IS NOT NULL THEN
2832: --
2833: l_dflt_to_asn_pndg_ctfn_cd := null;
2834: hr_utility.set_location(' l_dflt_to_asn_pndg_ctfn_cd ' || l_dflt_to_asn_pndg_ctfn_cd,99096);
2835: --
2836: END IF;
2837: --
2838: l_rstrn.dflt_to_asn_pndg_ctfn_cd := l_DFLT_TO_ASN_PNDG_CTFN_CD ;
2836: END IF;
2837: --
2838: l_rstrn.dflt_to_asn_pndg_ctfn_cd := l_DFLT_TO_ASN_PNDG_CTFN_CD ;
2839:
2840: hr_utility.set_location('SSARAKR l_dflt_to_asn_pndg_ctfn_cd ' || l_rstrn.dflt_to_asn_pndg_ctfn_cd,99097);
2841:
2842: End if;
2843:
2844: /* Supriya Ends bug 5529258 */
2848: else
2849: l_incr_r_decr_cd := l_cvg(0).cvg_incr_r_decr_only_cd;
2850: end if;
2851:
2852: hr_utility.set_location ('l_incr_r_decr_cd '||l_incr_r_decr_cd,33);
2853: --
2854: -- We check increases only if the restriction code is 'BNFT', so make
2855: -- the "increases" values nulll.
2856: --
2864: l_rstrn.mx_cvg_incr_wcf_alwd_amt := null;
2865: --
2866: end if;
2867: --
2868: hr_utility.set_location (' open c_current_enrt ',10);
2869: open c_current_enrt(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM;
2870: fetch c_current_enrt into l_crnt_ordr_num,
2871: l_bnft_amt,
2872: l_current_enrt_present;
2898: --- then use the value for l_dflt_elcn_val
2899: if l_dflt_enrt_cd = 'RL' and ben_enrolment_requirements.g_dflt_elcn_val is not null then
2900: l_dflt_elcn_val:=ben_enrolment_requirements.g_dflt_elcn_val;
2901: --- once the value used nullify the value
2902: hr_utility.set_location ('formula default='||ben_enrolment_requirements.g_dflt_elcn_val,744);
2903: ben_enrolment_requirements.g_dflt_elcn_val := null ;
2904: end if ;
2905: --
2906: -- if this choice is a default and dflt_enrt_cd says
2909: --
2910: if (l_dflt_enrt_cd in ('NSDCS','NNCS') and
2911: l_epe.dflt_flag='Y' and
2912: l_bnft_amt is not null) then
2913: hr_utility.set_location ('dflt_val='||l_bnft_amt,10);
2914: l_dflt_elcn_val:= l_bnft_amt;
2915: end if;
2916: --
2917: l_cvg_amount := l_bnft_amt;
2914: l_dflt_elcn_val:= l_bnft_amt;
2915: end if;
2916: --
2917: l_cvg_amount := l_bnft_amt;
2918: hr_utility.set_location (' Dn EPE ELSIFs ',10);
2919: if l_cvg(0).cvg_mlt_cd = 'FLFX' then
2920: --
2921: l_ctfn_rqd := 'N';
2922: l_write_rec := true;
2930: );
2931: l_cvg_amount := l_val ;
2932: --
2933: ---bug validate the limit for benefir amount
2934: hr_utility.set_location ('limit_checks ' ,10);
2935: benutils.limit_checks
2936: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
2937: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
2938: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
2949: p_ler_id => l_epe.ler_id,
2950: p_val => l_val,
2951: p_state => l_state.region_2);
2952:
2953: hr_utility.set_location (' CMC FLFX ',10);
2954: --
2955: ben_determine_coverage.combine_with_variable_val
2956: (p_vr_val => l_vr_val,
2957: p_val => l_val,
2959: p_combined_val => l_combined_val);
2960: --
2961: --rtagarra
2962: --
2963: hr_utility.set_location ('l_dflt_enrt_cd'||l_dflt_enrt_cd,353235);
2964: hr_utility.set_location ('FLAG' || l_cvg(0).entr_val_at_enrt_flag,23542345);
2965: hr_utility.set_location ('l_bnft_amt ' ||l_bnft_amt,34534);
2966: hr_utility.set_location ('l_combined_val ' || l_combined_val,345345);
2967: --
2960: --
2961: --rtagarra
2962: --
2963: hr_utility.set_location ('l_dflt_enrt_cd'||l_dflt_enrt_cd,353235);
2964: hr_utility.set_location ('FLAG' || l_cvg(0).entr_val_at_enrt_flag,23542345);
2965: hr_utility.set_location ('l_bnft_amt ' ||l_bnft_amt,34534);
2966: hr_utility.set_location ('l_combined_val ' || l_combined_val,345345);
2967: --
2968: if l_dflt_enrt_cd in ('NSDCS','NNCS','NDCSEDR','NNCSEDR') and l_cvg(0).entr_val_at_enrt_flag = 'Y' then
2961: --rtagarra
2962: --
2963: hr_utility.set_location ('l_dflt_enrt_cd'||l_dflt_enrt_cd,353235);
2964: hr_utility.set_location ('FLAG' || l_cvg(0).entr_val_at_enrt_flag,23542345);
2965: hr_utility.set_location ('l_bnft_amt ' ||l_bnft_amt,34534);
2966: hr_utility.set_location ('l_combined_val ' || l_combined_val,345345);
2967: --
2968: if l_dflt_enrt_cd in ('NSDCS','NNCS','NDCSEDR','NNCSEDR') and l_cvg(0).entr_val_at_enrt_flag = 'Y' then
2969: --
2962: --
2963: hr_utility.set_location ('l_dflt_enrt_cd'||l_dflt_enrt_cd,353235);
2964: hr_utility.set_location ('FLAG' || l_cvg(0).entr_val_at_enrt_flag,23542345);
2965: hr_utility.set_location ('l_bnft_amt ' ||l_bnft_amt,34534);
2966: hr_utility.set_location ('l_combined_val ' || l_combined_val,345345);
2967: --
2968: if l_dflt_enrt_cd in ('NSDCS','NNCS','NDCSEDR','NNCSEDR') and l_cvg(0).entr_val_at_enrt_flag = 'Y' then
2969: --
2970: hr_utility.set_location ('INSIDE 1 IF',53453245);
2966: hr_utility.set_location ('l_combined_val ' || l_combined_val,345345);
2967: --
2968: if l_dflt_enrt_cd in ('NSDCS','NNCS','NDCSEDR','NNCSEDR') and l_cvg(0).entr_val_at_enrt_flag = 'Y' then
2969: --
2970: hr_utility.set_location ('INSIDE 1 IF',53453245);
2971: --
2972: if l_bnft_amt is not null then
2973: --
2974: hr_utility.set_location ('INSIDE 2 IF',53453245);
2970: hr_utility.set_location ('INSIDE 1 IF',53453245);
2971: --
2972: if l_bnft_amt is not null then
2973: --
2974: hr_utility.set_location ('INSIDE 2 IF',53453245);
2975: if l_bnft_amt between l_cvg(0).mn_val and l_cvg(0).mx_val then
2976: --
2977: hr_utility.set_location ('INSIDE 3 IF',53453245);
2978: l_combined_val := l_bnft_amt ;
2973: --
2974: hr_utility.set_location ('INSIDE 2 IF',53453245);
2975: if l_bnft_amt between l_cvg(0).mn_val and l_cvg(0).mx_val then
2976: --
2977: hr_utility.set_location ('INSIDE 3 IF',53453245);
2978: l_combined_val := l_bnft_amt ;
2979: --
2980: end if;
2981: --
3028: end if;
3029: --
3030: --BUG 4627840 -- We are ignoring the rule here.
3031: --
3032: hr_utility.set_location(' l_rstrn.mx_cvg_alwd_amt '||l_rstrn.mx_cvg_alwd_amt,189);
3033: hr_utility.set_location(' l_mx_cvg_wout_ctfn_val '||l_mx_cvg_wout_ctfn_val,189);
3034: hr_utility.set_location(' l_rstrn.mx_cvg_wcfn_amt '||l_rstrn.mx_cvg_wcfn_amt,189);
3035: --
3036: l_cvg_rstn_max_wout_cert := nvl(l_rstrn.mx_cvg_alwd_amt,l_mx_cvg_wout_ctfn_val);
3029: --
3030: --BUG 4627840 -- We are ignoring the rule here.
3031: --
3032: hr_utility.set_location(' l_rstrn.mx_cvg_alwd_amt '||l_rstrn.mx_cvg_alwd_amt,189);
3033: hr_utility.set_location(' l_mx_cvg_wout_ctfn_val '||l_mx_cvg_wout_ctfn_val,189);
3034: hr_utility.set_location(' l_rstrn.mx_cvg_wcfn_amt '||l_rstrn.mx_cvg_wcfn_amt,189);
3035: --
3036: l_cvg_rstn_max_wout_cert := nvl(l_rstrn.mx_cvg_alwd_amt,l_mx_cvg_wout_ctfn_val);
3037: l_cvg_rstn_max_with_cert := l_rstrn.mx_cvg_wcfn_amt;
3030: --BUG 4627840 -- We are ignoring the rule here.
3031: --
3032: hr_utility.set_location(' l_rstrn.mx_cvg_alwd_amt '||l_rstrn.mx_cvg_alwd_amt,189);
3033: hr_utility.set_location(' l_mx_cvg_wout_ctfn_val '||l_mx_cvg_wout_ctfn_val,189);
3034: hr_utility.set_location(' l_rstrn.mx_cvg_wcfn_amt '||l_rstrn.mx_cvg_wcfn_amt,189);
3035: --
3036: l_cvg_rstn_max_wout_cert := nvl(l_rstrn.mx_cvg_alwd_amt,l_mx_cvg_wout_ctfn_val);
3037: l_cvg_rstn_max_with_cert := l_rstrn.mx_cvg_wcfn_amt;
3038: --
3044: --Bug 5236985 Added the l_cvg_rstn_max_with_cert not null condition
3045: --This necessary if the l_rstrn.mx_cvg_wcfn_amt is made null in the subsequent life events
3046: if l_cvg(0).entr_val_at_enrt_flag = 'Y' and l_bnft_amt > l_cvg_rstn_max_wout_cert and l_cvg_rstn_max_with_cert is not null then
3047: l_cvg_rstn_max_wout_cert := l_bnft_amt ;
3048: hr_utility.set_location('l_bnft_amt '||l_bnft_amt,188);
3049: hr_utility.set_location('l_cvg_rstn_max_wout_cert '||l_cvg_rstn_max_wout_cert,188);
3050: end if;
3051: --
3052: if l_rstrn.mx_cvg_incr_alwd_amt is not null then
3045: --This necessary if the l_rstrn.mx_cvg_wcfn_amt is made null in the subsequent life events
3046: if l_cvg(0).entr_val_at_enrt_flag = 'Y' and l_bnft_amt > l_cvg_rstn_max_wout_cert and l_cvg_rstn_max_with_cert is not null then
3047: l_cvg_rstn_max_wout_cert := l_bnft_amt ;
3048: hr_utility.set_location('l_bnft_amt '||l_bnft_amt,188);
3049: hr_utility.set_location('l_cvg_rstn_max_wout_cert '||l_cvg_rstn_max_wout_cert,188);
3050: end if;
3051: --
3052: if l_rstrn.mx_cvg_incr_alwd_amt is not null then
3053: l_cvg_rstn_max_wout_cert := l_bnft_amt + l_rstrn.mx_cvg_incr_alwd_amt;
3059: l_cvg_rstn_max_incr_with_cert := l_bnft_amt + l_rstrn.mx_cvg_incr_wcf_alwd_amt ; /* Bug 3828288 */
3060: end if;
3061: end if;
3062: end if;
3063: hr_utility.set_location('crtfn ' || l_rstrn.mx_cvg_wcfn_amt,199);
3064: hr_utility.set_location('min val ' || l_mn_elcn_val,199);
3065: hr_utility.set_location('max val ' || l_mx_elcn_val,199);
3066: --
3067: if l_write_rec then
3060: end if;
3061: end if;
3062: end if;
3063: hr_utility.set_location('crtfn ' || l_rstrn.mx_cvg_wcfn_amt,199);
3064: hr_utility.set_location('min val ' || l_mn_elcn_val,199);
3065: hr_utility.set_location('max val ' || l_mx_elcn_val,199);
3066: --
3067: if l_write_rec then
3068: --
3061: end if;
3062: end if;
3063: hr_utility.set_location('crtfn ' || l_rstrn.mx_cvg_wcfn_amt,199);
3064: hr_utility.set_location('min val ' || l_mn_elcn_val,199);
3065: hr_utility.set_location('max val ' || l_mx_elcn_val,199);
3066: --
3067: if l_write_rec then
3068: --
3069: -- Bug 3828288
3114: p_cvg_rstn_max_wout_cert => l_cvg_rstn_max_wout_cert,
3115: p_mx_val_wcfn => l_mx_val_wcfn,
3116: p_mx_val_wo_cfn => l_mx_val_wo_cfn
3117: );
3118: hr_utility.set_location('l_ultmt_lwr_lmt_calc_rl = ' || l_ultmt_lwr_lmt_calc_rl, 9999);
3119: if l_ultmt_lwr_lmt_calc_rl is not null then
3120: --
3121: l_ult_lwr_outputs := benutils.formula
3122: (p_formula_id => l_ultmt_lwr_lmt_calc_rl,
3152: -- if (l_rstrn_mn_cvg_rqd_amt > l_mn_elcn_val) then
3153: -- l_mn_elcn_val := l_rstrn_mn_cvg_rqd_amt;
3154: -- end if;
3155: --End Bug 4644489
3156: hr_utility.set_location('l_mn_elcn_val = ' || l_mn_elcn_val, 9999);
3157: hr_utility.set_location('l_ultmt_lwr_lmt = ' || l_ultmt_lwr_lmt, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3153: -- l_mn_elcn_val := l_rstrn_mn_cvg_rqd_amt;
3154: -- end if;
3155: --End Bug 4644489
3156: hr_utility.set_location('l_mn_elcn_val = ' || l_mn_elcn_val, 9999);
3157: hr_utility.set_location('l_ultmt_lwr_lmt = ' || l_ultmt_lwr_lmt, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3154: -- end if;
3155: --End Bug 4644489
3156: hr_utility.set_location('l_mn_elcn_val = ' || l_mn_elcn_val, 9999);
3157: hr_utility.set_location('l_ultmt_lwr_lmt = ' || l_ultmt_lwr_lmt, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3155: --End Bug 4644489
3156: hr_utility.set_location('l_mn_elcn_val = ' || l_mn_elcn_val, 9999);
3157: hr_utility.set_location('l_ultmt_lwr_lmt = ' || l_ultmt_lwr_lmt, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3163: hr_utility.set_location('l_cvg_amount = ' || l_cvg_amount, 9999);
3156: hr_utility.set_location('l_mn_elcn_val = ' || l_mn_elcn_val, 9999);
3157: hr_utility.set_location('l_ultmt_lwr_lmt = ' || l_ultmt_lwr_lmt, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3163: hr_utility.set_location('l_cvg_amount = ' || l_cvg_amount, 9999);
3164: hr_utility.set_location('l_dflt_elcn_val = ' || l_dflt_elcn_val, 9999);
3158: hr_utility.set_location('l_rstrn_mn_cvg_rqd_amt = ' || l_rstrn_mn_cvg_rqd_amt, 9999);
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3163: hr_utility.set_location('l_cvg_amount = ' || l_cvg_amount, 9999);
3164: hr_utility.set_location('l_dflt_elcn_val = ' || l_dflt_elcn_val, 9999);
3165: --
3166: ben_determine_coverage.write_coverage
3159: hr_utility.set_location('l_mx_val_wcfn = ' || l_mx_val_wcfn, 9999);
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3163: hr_utility.set_location('l_cvg_amount = ' || l_cvg_amount, 9999);
3164: hr_utility.set_location('l_dflt_elcn_val = ' || l_dflt_elcn_val, 9999);
3165: --
3166: ben_determine_coverage.write_coverage
3167: (p_calculate_only_mode => p_calculate_only_mode,
3160: hr_utility.set_location('l_mx_val_wo_cfn = ' || l_mx_val_wo_cfn, 9999);
3161: -- Bug 3828288
3162: hr_utility.set_location('l_combined_val = ' || l_combined_val, 9999);
3163: hr_utility.set_location('l_cvg_amount = ' || l_cvg_amount, 9999);
3164: hr_utility.set_location('l_dflt_elcn_val = ' || l_dflt_elcn_val, 9999);
3165: --
3166: ben_determine_coverage.write_coverage
3167: (p_calculate_only_mode => p_calculate_only_mode,
3168: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
3221: --
3222: end if;
3223:
3224:
3225: hr_utility.set_location('benefit row'||l_cvg(0).bnft_or_option_rstrctn_cd,111);
3226: hr_utility.set_location('oipl id '||l_epe.oipl_id,111);
3227:
3228: if l_rstrn_found and l_cvg(0).bnft_or_option_rstrctn_cd = 'BNFT' and
3229: l_cvg(0).entr_val_at_enrt_flag = 'Y' then
3222: end if;
3223:
3224:
3225: hr_utility.set_location('benefit row'||l_cvg(0).bnft_or_option_rstrctn_cd,111);
3226: hr_utility.set_location('oipl id '||l_epe.oipl_id,111);
3227:
3228: if l_rstrn_found and l_cvg(0).bnft_or_option_rstrctn_cd = 'BNFT' and
3229: l_cvg(0).entr_val_at_enrt_flag = 'Y' then
3230: -- if l_epe.oipl_id is null then /*ENH*/
3269: close c_current_enrt_in_oipl;
3270: end if;
3271: end if;
3272: ---------------
3273: hr_utility.set_location (' open c_current_enrt ',10);
3274: --open c_current_enrt_in_pln(l_epe.pl_id) ;
3275: -- fetch c_current_enrt_in_pln into l_current_plan_id,l_current_oipl_id ;
3276: --
3277: -- if c_current_enrt_in_pln%found then
3293: l_interim_bnft_val := null ; -- l_dflt_elcn_val ;
3294: end if ;
3295: --close c_current_enrt_in_pln;
3296: --
3297: hr_utility.set_location('interim row',111);
3298: --CF Changes
3299: --
3300: if l_current_plan_id = l_epe.pl_id and
3301: nvl(l_current_oipl_id,-1) = nvl(l_epe.oipl_id,-1) then
3427: );
3428: --
3429: end if;
3430: l_epe.elctbl_flag:='N';
3431: hr_utility.set_location('Electable choice was made not electable by bencvrge',29);
3432: end if;
3433: ben_determine_coverage.write_coverage
3434: (p_calculate_only_mode => p_calculate_only_mode,
3435: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
3482: --
3483: l_ctfn_rqd := 'N';
3484: l_write_rec := true;
3485: --
3486: hr_utility.set_location (' CMC CL ',10);
3487: benutils.rt_typ_calc
3488: (p_val => l_cvg(0).val,
3489: p_val_2 => l_compensation_value,
3490: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
3499: );
3500: --
3501: l_cvg_amount := l_val ;
3502: ---bug validate the limit for benefir amount
3503: hr_utility.set_location ('limit_checks ',10);
3504: benutils.limit_checks
3505: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3506: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3507: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3519: p_val => l_val,
3520: p_state => l_state.region_2);
3521:
3522: ---
3523: hr_utility.set_location (' rndg is'||l_val,10);
3524: ben_determine_coverage.combine_with_variable_val
3525: (p_vr_val => l_vr_val,
3526: p_val => l_val,
3527: p_vr_trtmt_cd => l_vr_trtmt_cd,
3526: p_val => l_val,
3527: p_vr_trtmt_cd => l_vr_trtmt_cd,
3528: p_combined_val => l_combined_val);
3529: --
3530: hr_utility.set_location (' varb is'||l_combined_val,10);
3531: --
3532: if l_rstrn_found then
3533: --
3534: ben_determine_coverage.chk_bnft_ctfn
3663: --
3664: end if;
3665: --
3666: l_epe.elctbl_flag:='N';
3667: hr_utility.set_location('Electable choice was made not electable by bencvrge',29);
3668: end if;
3669: ben_determine_coverage.write_coverage
3670: (p_calculate_only_mode => p_calculate_only_mode,
3671: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
3715: end if;
3716: --
3717: elsif l_cvg(0).cvg_mlt_cd = 'FLRNG' then
3718: --
3719: hr_utility.set_location (' CMC FLRNG ',10);
3720: --
3721: hr_utility.set_location ('l_cvg-0.mx_val '||l_cvg(0).mx_val,33);
3722: hr_utility.set_location ('l_cvg-0.mn_val '||l_cvg(0).mn_val,33);
3723: --
3717: elsif l_cvg(0).cvg_mlt_cd = 'FLRNG' then
3718: --
3719: hr_utility.set_location (' CMC FLRNG ',10);
3720: --
3721: hr_utility.set_location ('l_cvg-0.mx_val '||l_cvg(0).mx_val,33);
3722: hr_utility.set_location ('l_cvg-0.mn_val '||l_cvg(0).mn_val,33);
3723: --
3724: if l_cvg(0).lwr_lmt_calc_rl is not NULL then
3725: --
3718: --
3719: hr_utility.set_location (' CMC FLRNG ',10);
3720: --
3721: hr_utility.set_location ('l_cvg-0.mx_val '||l_cvg(0).mx_val,33);
3722: hr_utility.set_location ('l_cvg-0.mn_val '||l_cvg(0).mn_val,33);
3723: --
3724: if l_cvg(0).lwr_lmt_calc_rl is not NULL then
3725: --
3726: l_lwr_outputs := benutils.formula
3772: end if;
3773:
3774: i := nvl(l_lwr_val,l_cvg(0).mn_val);
3775:
3776: hr_utility.set_location ('l_lwr_val :'||l_lwr_val,32);
3777: hr_utility.set_location ('l_upr_val :'||l_upr_val,32);
3778:
3779: while i <= nvl(l_upr_val,l_cvg(0).mx_val) loop
3780: --
3773:
3774: i := nvl(l_lwr_val,l_cvg(0).mn_val);
3775:
3776: hr_utility.set_location ('l_lwr_val :'||l_lwr_val,32);
3777: hr_utility.set_location ('l_upr_val :'||l_upr_val,32);
3778:
3779: while i <= nvl(l_upr_val,l_cvg(0).mx_val) loop
3780: --
3781: hr_utility.set_location ('i = '||i,33);
3777: hr_utility.set_location ('l_upr_val :'||l_upr_val,32);
3778:
3779: while i <= nvl(l_upr_val,l_cvg(0).mx_val) loop
3780: --
3781: hr_utility.set_location ('i = '||i,33);
3782: --
3783: l_ctfn_rqd := 'N';
3784: l_write_rec := true;
3785: --
3807: p_rndg_rl => l_cvg(0).rndg_rl
3808: );
3809: l_cvg_amount := l_val ;
3810: --validate the limit for benefir amount
3811: hr_utility.set_location ('limit_checks ',10);
3812: benutils.limit_checks
3813: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3814: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3815: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3920: end if;
3921: --
3922: if l_write_rec then
3923: --
3924: hr_utility.set_location('Writing coverage ',35);
3925: --
3926: ben_determine_coverage.write_coverage
3927: (p_calculate_only_mode => p_calculate_only_mode,
3928: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
4004: -- if l_dummy = 'Y' then
4005: l_dup_enr_count := 0;
4006: for l_check in c_check_dup_enb_enr(p_elig_per_elctbl_chc_id) loop
4007: l_dup_enr_count := l_dup_enr_count + 1;
4008: hr_utility.set_location ('count : '||l_dup_enr_count,10);
4009: if l_dup_enr_count > 1 then
4010: exit;
4011: end if;
4012: end loop;
4086: -- end if; Bug 9308931
4087:
4088: elsif l_cvg(0).cvg_mlt_cd = 'CLRNG' then
4089: --
4090: hr_utility.set_location (' CMC CLRNG ',10);
4091: i := l_cvg(0).mn_val;
4092: --
4093: while i <= l_cvg(0).mx_val loop
4094: --
4119: p_rndg_rl => l_cvg(0).rndg_rl
4120: );
4121: l_cvg_amount := l_val ;
4122: --validate the limit for benefir amount
4123: hr_utility.set_location ('limit_checks ',10);
4124: benutils.limit_checks
4125: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4126: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4127: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4296:
4297: l_dup_enr_count := 0;
4298: for l_check in c_check_dup_enb_enr(p_elig_per_elctbl_chc_id) loop
4299: l_dup_enr_count := l_dup_enr_count + 1;
4300: hr_utility.set_location ('count : '||l_dup_enr_count,10);
4301: if l_dup_enr_count > 1 then
4302: exit;
4303: end if;
4304: end loop;
4374: end loop;
4375: end if;
4376: --9434155
4377: elsif l_cvg(0).cvg_mlt_cd = 'FLFXPCL' then
4378: hr_utility.set_location (' CMC FLFXPCL ',10);
4379: --
4380: l_ctfn_rqd := 'N';
4381: l_write_rec := true;
4382: --
4385: p_val_2 => l_compensation_value,
4386: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4387: p_calculated_val => l_calculated_val);
4388: --
4389: hr_utility.set_location (' l_calculated_val ' || l_calculated_val,10);
4390: hr_utility.set_location (' l_cvg(0).val '|| l_cvg(0).val,10);
4391: --
4392: l_calculated_val := l_calculated_val + l_cvg(0).val;
4393: --
4386: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4387: p_calculated_val => l_calculated_val);
4388: --
4389: hr_utility.set_location (' l_calculated_val ' || l_calculated_val,10);
4390: hr_utility.set_location (' l_cvg(0).val '|| l_cvg(0).val,10);
4391: --
4392: l_calculated_val := l_calculated_val + l_cvg(0).val;
4393: --
4394: l_val := round_val(
4399: p_rndg_rl => l_cvg(0).rndg_rl
4400: );
4401: l_cvg_amount := l_val ;
4402: --validate the limit for benefir amount
4403: hr_utility.set_location ('limit_checks ',10);
4404:
4405: l_tot_val := l_val ;
4406: --
4407: hr_utility.set_location (' l_tot_val ' || l_tot_val,10);
4403: hr_utility.set_location ('limit_checks ',10);
4404:
4405: l_tot_val := l_val ;
4406: --
4407: hr_utility.set_location (' l_tot_val ' || l_tot_val,10);
4408: --
4409: benutils.limit_checks
4410: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4411: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4562: );
4563: --
4564: end if;
4565: l_epe.elctbl_flag:='N';
4566: hr_utility.set_location('Electable choice was made not electable by bencvrge',29);
4567: end if;
4568: ben_determine_coverage.write_coverage
4569: (p_calculate_only_mode => p_calculate_only_mode,
4570: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
4613: --
4614: end if;
4615: --
4616: elsif l_cvg(0).cvg_mlt_cd = 'FLPCLRNG' then
4617: hr_utility.set_location (' CMC FLPCLRNG ',10);
4618: --
4619: i := l_cvg(0).mn_val;
4620: --
4621: while i <= l_cvg(0).mx_val loop
4651:
4652: l_tot_val := l_val+l_cvg(0).val; -- 3095224
4653:
4654:
4655: hr_utility.set_location ('limit_checks ',10);
4656: benutils.limit_checks
4657: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4658: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4659: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4826: --
4827: end loop;
4828: --
4829: elsif l_cvg(0).cvg_mlt_cd = 'CLPFLRNG' then
4830: hr_utility.set_location (' CMC CLPFLRNG ',10);
4831: --
4832: benutils.rt_typ_calc
4833: (p_val => l_cvg(0).val,
4834: p_val_2 => l_compensation_value,
4846: l_cvg_amount := l_val ;
4847:
4848: /* moved the limit check to inside the loop to enforce the limit on compensation + range
4849: --validate the limit for benefir amount
4850: hr_utility.set_location ('limit_checks ',10);
4851: benutils.limit_checks
4852: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4853: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4854: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
5046:
5047: end loop;
5048:
5049: elsif l_cvg(0).cvg_mlt_cd = 'SAAEAR' then
5050: hr_utility.set_location (' CMC SAAEAR ',10);
5051: l_ctfn_rqd := 'N';
5052: l_write_rec := true;
5053:
5054: ben_determine_coverage.write_coverage
5098: );
5099: --
5100: elsif l_cvg(0).cvg_mlt_cd = 'NSVU' then
5101: --
5102: hr_utility.set_location (' CMC NSVU ',10);
5103: --
5104: l_ctfn_rqd := 'N';
5105: l_write_rec := true;
5106: --
5253: --
5254: end if;
5255: --
5256: l_epe.elctbl_flag:='N';
5257: hr_utility.set_location('Electable choice was made not electable by bencvrge',29);
5258: end if;
5259: ben_determine_coverage.write_coverage
5260: (p_calculate_only_mode => p_calculate_only_mode,
5261: p_bndry_perd_cd => l_cvg(0).bndry_perd_cd,
5300: --
5301: --End Bug 5933576
5302: --
5303: elsif l_cvg(0).cvg_mlt_cd in ('RL','ERL') then
5304: hr_utility.set_location (' CMC RL ',10);
5305: --
5306: if l_epe.oipl_id is not null and l_opt.opt_id is null
5307: then
5308: open c_opt(l_epe.oipl_id, nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))); -- FONM
5344: p_rndg_rl => l_cvg(0).rndg_rl
5345: );
5346: l_cvg_amount := l_val ;
5347: --validate the limit for benefir amount
5348: hr_utility.set_location ('limit_checks ',10);
5349: benutils.limit_checks
5350: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
5351: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
5352: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
5500: -- This following routine need to create an additional benefit row, if
5501: -- tne interim enrollment code is 'Same'
5502: -- this row will be used for assigning the interim coverage
5503: --
5504: hr_utility.set_location (' Current Same Calculations ',10);
5505:
5506: l_interim_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,4,2) ;
5507: l_current_level_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,2,2);
5508: --
5505:
5506: l_interim_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,4,2) ;
5507: l_current_level_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,2,2);
5508: --
5509: hr_utility.set_location (' l_interim_cd '||l_interim_cd,22);
5510: hr_utility.set_location (' l_current_level_cd '||l_current_level_cd,22);
5511: --
5512: l_current_plan_id := null ;
5513: l_current_oipl_id := null ;
5506: l_interim_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,4,2) ;
5507: l_current_level_cd := substr(l_rstrn.dflt_to_asn_pndg_ctfn_cd,2,2);
5508: --
5509: hr_utility.set_location (' l_interim_cd '||l_interim_cd,22);
5510: hr_utility.set_location (' l_current_level_cd '||l_current_level_cd,22);
5511: --
5512: l_current_plan_id := null ;
5513: l_current_oipl_id := null ;
5514: --
5519: open c_current_enrt_in_pl_typ(l_epe.pl_typ_id,
5520: nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date))) ; -- FONM
5521: fetch c_current_enrt_in_pl_typ into l_current_plan_id,l_current_oipl_id ;
5522: if c_current_enrt_in_pl_typ%found then
5523: hr_utility.set_location(' l_create_current_enb := true PLTYP',222);
5524: l_create_current_enb := true ;
5525: end if;
5526: close c_current_enrt_in_pl_typ;
5527: --
5546: close c_current_enrt_in_oipl;
5547: end if;
5548: end if;
5549: --
5550: hr_utility.set_location (' l_current_plan_id '||l_current_plan_id,222);
5551: hr_utility.set_location (' l_epe.pl_id '||l_epe.pl_id,222);
5552: hr_utility.set_location (' l_current_oipl_id '||l_current_oipl_id,222);
5553: hr_utility.set_location (' l_epe.oipl_id '||l_epe.oipl_id,222);
5554: hr_utility.set_location (' Date '||nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date)),222);
5547: end if;
5548: end if;
5549: --
5550: hr_utility.set_location (' l_current_plan_id '||l_current_plan_id,222);
5551: hr_utility.set_location (' l_epe.pl_id '||l_epe.pl_id,222);
5552: hr_utility.set_location (' l_current_oipl_id '||l_current_oipl_id,222);
5553: hr_utility.set_location (' l_epe.oipl_id '||l_epe.oipl_id,222);
5554: hr_utility.set_location (' Date '||nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date)),222);
5555: --
5548: end if;
5549: --
5550: hr_utility.set_location (' l_current_plan_id '||l_current_plan_id,222);
5551: hr_utility.set_location (' l_epe.pl_id '||l_epe.pl_id,222);
5552: hr_utility.set_location (' l_current_oipl_id '||l_current_oipl_id,222);
5553: hr_utility.set_location (' l_epe.oipl_id '||l_epe.oipl_id,222);
5554: hr_utility.set_location (' Date '||nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date)),222);
5555: --
5556: if l_create_current_enb and l_current_plan_id = l_epe.pl_id
5549: --
5550: hr_utility.set_location (' l_current_plan_id '||l_current_plan_id,222);
5551: hr_utility.set_location (' l_epe.pl_id '||l_epe.pl_id,222);
5552: hr_utility.set_location (' l_current_oipl_id '||l_current_oipl_id,222);
5553: hr_utility.set_location (' l_epe.oipl_id '||l_epe.oipl_id,222);
5554: hr_utility.set_location (' Date '||nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date)),222);
5555: --
5556: if l_create_current_enb and l_current_plan_id = l_epe.pl_id
5557: and nvl(l_current_oipl_id,-1) = nvl(l_epe.oipl_id,-1) then
5550: hr_utility.set_location (' l_current_plan_id '||l_current_plan_id,222);
5551: hr_utility.set_location (' l_epe.pl_id '||l_epe.pl_id,222);
5552: hr_utility.set_location (' l_current_oipl_id '||l_current_oipl_id,222);
5553: hr_utility.set_location (' l_epe.oipl_id '||l_epe.oipl_id,222);
5554: hr_utility.set_location (' Date '||nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date)),222);
5555: --
5556: if l_create_current_enb and l_current_plan_id = l_epe.pl_id
5557: and nvl(l_current_oipl_id,-1) = nvl(l_epe.oipl_id,-1) then
5558: --
5555: --
5556: if l_create_current_enb and l_current_plan_id = l_epe.pl_id
5557: and nvl(l_current_oipl_id,-1) = nvl(l_epe.oipl_id,-1) then
5558: --
5559: hr_utility.set_location ('l_person_id '||l_person_id,222);
5560: --
5561: open c_current_enb(l_epe.pl_id,l_epe.oipl_id,
5562: nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date))) ; -- FONM
5563: fetch c_current_enb into l_current_enb ;
5561: open c_current_enb(l_epe.pl_id,l_epe.oipl_id,
5562: nvl(l_fonm_cvg_strt_dt,nvl(p_lf_evt_ocrd_dt,p_effective_date))) ; -- FONM
5563: fetch c_current_enb into l_current_enb ;
5564: if c_current_enb%found and not p_calculate_only_mode then
5565: hr_utility.set_location('SAME interim row',111);
5566: ben_enrt_bnft_api.create_enrt_bnft
5567: (p_validate => false,
5568: p_dflt_flag => 'N',
5569: p_val_has_bn_prortd_flag => 'N', -- change when prorating
5599: close c_current_enb ;
5600: end if;
5601: --
5602: end if;
5603: hr_utility.set_location ('Leaving '||l_package,10);
5604: --
5605: end main;
5606: --
5607: end ben_determine_coverage;