[Home] [Help]
78: 16 Jul 99 lmcdonal 115.21 Don't call rules unless the rule
79: is found in c_ava.
80: 115.22 load l_state.region_2 with null, change
81: limit_check parms.
82: 20-JUL-99 Gperry 115.23 genutils -> benutils package
83: rename.
84: 07-SEP-99 TGuy 115.24 fixed call to pay_mag_util
85: 15-Nov-99 mhoyes 115.25 - Added trace messages.
86: 17-Nov-99 pbodla 115.26 - Added acty_base_rt_id context to
87: formula, limit_checks calls.
88: This is only applicable for acty rates
89: calculation.
90: 19-Nov-99 pbodla 115.27 - Added elig_per_elctbl_chc_id param
91: context to benutils.formula
92: 02-DEC-99 pbodla 115.28 - If the rates are being calculated
93: for dummy imputed income plan then
94: do not raise error even if the
95: enrollment benefit row is not created
111: 21-mar-01 tilak 115-34 param ultmt_upt_lmt,ultmt_lwr_lmt added
112: 01-apr-01 tilak 115-35 param ultmt_upt_lmt_calc_rl,ultmt_lwr_lmt_calc_rl added
113: 17-jul-01 tilak 115-36 cursor c_imp_inc_plan corrected for spouse code
114: 29-Aug-01 pbodla 115-37 bug:1949361 jurisdiction code is
115: derived inside benutils.formula
116: 27-Sep-01 kmahendr 115.38 Added ann_mn_elcn_val, ann_mx_elcn_val param
117: 26-Mar-02 kmahendr 115.39 Bug#1833008 - Added parameter p_cal_for to the call
118: determine_compensation to handle multi-assignment.
119: 26-Mar-02 pbodla 115.40 Bug#2260440 - While calling limit
147: 10-Mar-06 swjain 115.54 In cursor c_asg (procedure main), added condition to
148: fetch active assignments only
149: 10-Apr-06 swjain 115.55 Updated cursor c_asg (procedure main)
150: 09-Aug-06 maagrawa 115.56 5371364.Copied fix from benactbr
151: 16-Jul-07 swjain 115.57 6219465 Updated the effective_date in benutils.formula call
152: so that rule effective the latest coverage date should get
153: picked up for imputed income calculations
154: 14-Sep-07 rtagarra 115.58 Bug 6399423 removed the outer join in the cursor c_asg
155: 12-May-08 dwkrishn 115.59 Bug 7003453 Recalculated the premium if the coverage is
1059: --
1060: p_val := l_vpf.val;
1061: --
1062: elsif l_vpf.mlt_cd = 'CL' then
1063: benutils.rt_typ_calc
1064: (p_rt_typ_cd => l_vpf.rt_typ_cd
1065: ,p_val => l_vpf.val
1066: ,p_val_2 => l_compensation_value
1067: ,p_calculated_val => p_val);
1066: ,p_val_2 => l_compensation_value
1067: ,p_calculated_val => p_val);
1068:
1069: elsif l_vpf.mlt_cd = 'CVG' then
1070: benutils.rt_typ_calc
1071: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1072: ,p_val => l_vpf.val
1073: ,p_val_2 => l_coverage_value
1074: ,p_calculated_val => p_val);
1073: ,p_val_2 => l_coverage_value
1074: ,p_calculated_val => p_val);
1075:
1076: elsif l_vpf.mlt_cd = 'AP' then
1077: benutils.rt_typ_calc
1078: (p_rt_typ_cd => l_vpf.rt_typ_cd
1079: ,p_val => l_vpf.val
1080: ,p_val_2 => l_actl_prem_value
1081: ,p_calculated_val => p_val);
1081: ,p_calculated_val => p_val);
1082:
1083:
1084: elsif l_vpf.mlt_cd = 'FLFXPCL' then
1085: benutils.rt_typ_calc
1086: (p_rt_typ_cd => l_vpf.rt_typ_cd
1087: ,p_val => l_vpf.val
1088: ,p_val_2 => l_compensation_value
1089: ,p_calculated_val => p_val);
1088: ,p_val_2 => l_compensation_value
1089: ,p_calculated_val => p_val);
1090:
1091: elsif l_vpf.mlt_cd = 'CLANDCVG' then
1092: benutils.rt_typ_calc
1093: (p_rt_typ_cd => l_vpf.rt_typ_cd
1094: ,p_val => l_vpf.val
1095: ,p_val_2 => l_compensation_value
1096: ,p_calculated_val => l_value);
1097:
1098: --
1099: -- now take l_value and apply it against the coverage
1100: --
1101: benutils.rt_typ_calc
1102: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1103: ,p_val => l_value
1104: ,p_val_2 => l_coverage_value
1105: ,p_calculated_val => p_val);
1104: ,p_val_2 => l_coverage_value
1105: ,p_calculated_val => p_val);
1106:
1107: elsif l_vpf.mlt_cd = 'APANDCVG' then
1108: benutils.rt_typ_calc
1109: (p_rt_typ_cd => l_vpf.rt_typ_cd
1110: ,p_val => l_vpf.val
1111: ,p_val_2 => l_actl_prem_value
1112: ,p_calculated_val => l_value);
1113:
1114: --
1115: -- now take l_value and apply it against the coverage
1116: --
1117: benutils.rt_typ_calc
1118: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1119: ,p_val => l_value
1120: ,p_val_2 => l_coverage_value
1121: ,p_calculated_val => p_val);
1120: ,p_val_2 => l_coverage_value
1121: ,p_calculated_val => p_val);
1122:
1123: elsif l_vpf.mlt_cd = 'PRNTANDCVG' then
1124: benutils.rt_typ_calc
1125: (p_rt_typ_cd => l_vpf.rt_typ_cd
1126: ,p_val => l_vpf.val
1127: ,p_val_2 => l_prnt_rt_value
1128: ,p_calculated_val => l_value);
1129:
1130: --
1131: -- now take l_value and apply it against the coverage
1132: --
1133: benutils.rt_typ_calc
1134: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1135: ,p_val => l_value
1136: ,p_val_2 => l_coverage_value
1137: ,p_calculated_val => p_val);
1165: end if;
1166: */
1167: -- Call formula initialise routine
1168: --greatest
1169: l_outputs := benutils.formula
1170: (p_formula_id => l_vpf.val_calc_rl,
1171: p_effective_date => nvl(l_fonm_cvg_strt_dt,greatest(nvl(p_lf_evt_ocrd_dt,p_effective_date),p_effective_date)), -- Bug 6219465
1172: p_business_group_id => l_epe.business_group_id,
1173: p_assignment_id => l_asg.assignment_id,
1262: for l_vrr in c_vrr(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) loop
1263: --
1264: -- Call formula initialise routine
1265: --
1266: l_outputs := benutils.formula
1267: (p_formula_id => l_vrr.formula_id,
1268: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1269: p_business_group_id => l_epe.business_group_id,
1270: p_assignment_id => l_asg.assignment_id,
1298: open c_ava(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date)));
1299: fetch c_ava into l_ava;
1300: if l_ava.vrbl_rt_add_on_calc_rl is not null then
1301:
1302: l_outputs := benutils.formula
1303: (p_formula_id => l_ava.vrbl_rt_add_on_calc_rl,
1304: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1305: p_business_group_id => l_epe.business_group_id,
1306: p_assignment_id => l_asg.assignment_id,
1328: for l_avrl in c_avrl(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date)))
1329: loop
1330: if l_avrl.formula_id is not null then
1331:
1332: l_outputs := benutils.formula
1333: (p_formula_id => l_avrl.formula_id,
1334: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1335: p_business_group_id => l_epe.business_group_id,
1336: p_assignment_id => l_asg.assignment_id,
1361: for l_brr in c_brr(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) loop
1362: --
1363: -- Call formula initialise routine
1364: --
1365: l_outputs := benutils.formula
1366: (p_formula_id => l_brr.formula_id,
1367: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1368: p_business_group_id => l_epe.business_group_id,
1369: p_assignment_id => l_asg.assignment_id,
1401: l_vpf.acty_typ_cd like 'CWB%' and
1402: l_compensation_value is not null and
1403: l_vpf.vrbl_rt_trtmt_cd = 'RPLC'
1404: then
1405: benutils.rt_typ_calc
1406: (p_rt_typ_cd => l_vpf.rt_typ_cd
1407: ,p_val => p_mn_elcn_val
1408: ,p_val_2 => l_compensation_value
1409: ,p_calculated_val => l_cwb_mn_elcn_val);
1409: ,p_calculated_val => l_cwb_mn_elcn_val);
1410: --
1411: hr_utility.set_location('l_cwb_mn_elcn_val is '||l_cwb_mn_elcn_val,951);
1412: --
1413: benutils.rt_typ_calc
1414: (p_rt_typ_cd => l_vpf.rt_typ_cd
1415: ,p_val => p_mx_elcn_val
1416: ,p_val_2 => l_compensation_value
1417: ,p_calculated_val => l_cwb_mx_elcn_val);
1420: --
1421: -- 5371364 : Do not Operate (i.e multiply/divide..) the Increment Value.
1422: l_cwb_incrmt_elcn_val := p_incrmnt_elcn_val;
1423: /*
1424: benutils.rt_typ_calc
1425: (p_rt_typ_cd => l_vpf.rt_typ_cd
1426: ,p_val => p_incrmnt_elcn_val
1427: ,p_val_2 => l_compensation_value
1428: ,p_calculated_val => l_cwb_incrmt_elcn_val);
1429: */
1430: --
1431: hr_utility.set_location('l_cwb_incrmt_elcn_val is '|| l_cwb_incrmt_elcn_val,951);
1432: --
1433: benutils.rt_typ_calc
1434: (p_rt_typ_cd => l_vpf.rt_typ_cd
1435: ,p_val => p_dflt_elcn_val
1436: ,p_val_2 => l_compensation_value
1437: ,p_calculated_val => l_cwb_dflt_val);
1441: if (l_vpf.rndg_cd is not null or
1442: l_vpf.rndg_rl is not null) then
1443:
1444: if l_cwb_mn_elcn_val is not null then
1445: l_rounded_value := benutils.do_rounding
1446: (p_rounding_cd => l_vpf.rndg_cd,
1447: p_rounding_rl => l_vpf.rndg_rl,
1448: p_value => l_cwb_mn_elcn_val,
1449: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1450: l_cwb_mn_elcn_val := l_rounded_value;
1451: end if;
1452: --
1453: if l_cwb_mx_elcn_val is not null then
1454: l_rounded_value := benutils.do_rounding
1455: (p_rounding_cd => l_vpf.rndg_cd,
1456: p_rounding_rl => l_vpf.rndg_rl,
1457: p_value => l_cwb_mx_elcn_val,
1458: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1459: l_cwb_mx_elcn_val := l_rounded_value;
1460: end if;
1461: --
1462: if l_cwb_dflt_val is not null then
1463: l_rounded_value := benutils.do_rounding
1464: (p_rounding_cd => l_vpf.rndg_cd,
1465: p_rounding_rl => l_vpf.rndg_rl,
1466: p_value => l_cwb_dflt_val,
1467: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1484: if (l_vpf.rndg_cd is not null or
1485: l_vpf.rndg_rl is not null)
1486: and p_val is not null then
1487: --
1488: l_rounded_value := benutils.do_rounding
1489: (p_rounding_cd => l_vpf.rndg_cd,
1490: p_rounding_rl => l_vpf.rndg_rl,
1491: p_value => p_val,
1492: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1508: close c_asg;
1509: end if;
1510: --
1511: hr_utility.set_location('Floor/Ceiling Rule Checking'||l_package,30);
1512: benutils.limit_checks
1513: (p_upr_lmt_val => l_vpf.upr_lmt_val,
1514: p_lwr_lmt_val => l_vpf.lwr_lmt_val,
1515: p_upr_lmt_calc_rl => l_vpf.upr_lmt_calc_rl,
1516: p_lwr_lmt_calc_rl => l_vpf.lwr_lmt_calc_rl,