[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
1100: p_val := l_vpf.val;
1101: end if;
1102: --
1103: elsif l_vpf.mlt_cd = 'CL' then
1104: benutils.rt_typ_calc
1105: (p_rt_typ_cd => l_vpf.rt_typ_cd
1106: ,p_val => l_vpf.val
1107: ,p_val_2 => l_compensation_value
1108: ,p_calculated_val => p_val);
1107: ,p_val_2 => l_compensation_value
1108: ,p_calculated_val => p_val);
1109:
1110: elsif l_vpf.mlt_cd = 'CVG' then
1111: benutils.rt_typ_calc
1112: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1113: ,p_val => l_vpf.val
1114: ,p_val_2 => l_coverage_value
1115: ,p_calculated_val => p_val);
1114: ,p_val_2 => l_coverage_value
1115: ,p_calculated_val => p_val);
1116:
1117: elsif l_vpf.mlt_cd = 'AP' then
1118: benutils.rt_typ_calc
1119: (p_rt_typ_cd => l_vpf.rt_typ_cd
1120: ,p_val => l_vpf.val
1121: ,p_val_2 => l_actl_prem_value
1122: ,p_calculated_val => p_val);
1122: ,p_calculated_val => p_val);
1123:
1124:
1125: elsif l_vpf.mlt_cd = 'FLFXPCL' then
1126: benutils.rt_typ_calc
1127: (p_rt_typ_cd => l_vpf.rt_typ_cd
1128: ,p_val => l_vpf.mn_elcn_val --12395523
1129: ,p_val_2 => l_compensation_value
1130: ,p_calculated_val => p_val);
1131:
1132: p_val := p_val + l_vpf.val; --12395523
1133:
1134: elsif l_vpf.mlt_cd = 'CLANDCVG' then
1135: benutils.rt_typ_calc
1136: (p_rt_typ_cd => l_vpf.rt_typ_cd
1137: ,p_val => l_vpf.val
1138: ,p_val_2 => l_compensation_value
1139: ,p_calculated_val => l_value);
1140:
1141: --
1142: -- now take l_value and apply it against the coverage
1143: --
1144: benutils.rt_typ_calc
1145: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1146: ,p_val => l_value
1147: ,p_val_2 => l_coverage_value
1148: ,p_calculated_val => p_val);
1147: ,p_val_2 => l_coverage_value
1148: ,p_calculated_val => p_val);
1149:
1150: elsif l_vpf.mlt_cd = 'APANDCVG' then
1151: benutils.rt_typ_calc
1152: (p_rt_typ_cd => l_vpf.rt_typ_cd
1153: ,p_val => l_vpf.val
1154: ,p_val_2 => l_actl_prem_value
1155: ,p_calculated_val => l_value);
1156:
1157: --
1158: -- now take l_value and apply it against the coverage
1159: --
1160: benutils.rt_typ_calc
1161: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1162: ,p_val => l_value
1163: ,p_val_2 => l_coverage_value
1164: ,p_calculated_val => p_val);
1163: ,p_val_2 => l_coverage_value
1164: ,p_calculated_val => p_val);
1165:
1166: elsif l_vpf.mlt_cd = 'PRNTANDCVG' then
1167: benutils.rt_typ_calc
1168: (p_rt_typ_cd => l_vpf.rt_typ_cd
1169: ,p_val => l_vpf.val
1170: ,p_val_2 => l_prnt_rt_value
1171: ,p_calculated_val => l_value);
1172:
1173: --
1174: -- now take l_value and apply it against the coverage
1175: --
1176: benutils.rt_typ_calc
1177: (p_rt_typ_cd => l_vpf.bnft_rt_typ_cd
1178: ,p_val => l_value
1179: ,p_val_2 => l_coverage_value
1180: ,p_calculated_val => p_val);
1208: end if;
1209: */
1210: -- Call formula initialise routine
1211: --greatest
1212: l_outputs := benutils.formula
1213: (p_formula_id => l_vpf.val_calc_rl,
1214: p_effective_date => nvl(l_fonm_cvg_strt_dt,greatest(nvl(p_lf_evt_ocrd_dt,p_effective_date),p_effective_date)), -- Bug 6219465
1215: p_business_group_id => l_epe.business_group_id,
1216: p_assignment_id => l_asg.assignment_id,
1304: for l_vrr in c_vrr(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) loop
1305: --
1306: -- Call formula initialise routine
1307: --
1308: l_outputs := benutils.formula
1309: (p_formula_id => l_vrr.formula_id,
1310: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1311: p_business_group_id => l_epe.business_group_id,
1312: p_assignment_id => l_asg.assignment_id,
1340: open c_ava(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date)));
1341: fetch c_ava into l_ava;
1342: if l_ava.vrbl_rt_add_on_calc_rl is not null then
1343:
1344: l_outputs := benutils.formula
1345: (p_formula_id => l_ava.vrbl_rt_add_on_calc_rl,
1346: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1347: p_business_group_id => l_epe.business_group_id,
1348: p_assignment_id => l_asg.assignment_id,
1370: for l_avrl in c_avrl(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date)))
1371: loop
1372: if l_avrl.formula_id is not null then
1373:
1374: l_outputs := benutils.formula
1375: (p_formula_id => l_avrl.formula_id,
1376: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1377: p_business_group_id => l_epe.business_group_id,
1378: p_assignment_id => l_asg.assignment_id,
1403: for l_brr in c_brr(nvl(l_fonm_cvg_strt_dt, nvl(p_lf_evt_ocrd_dt,p_effective_date))) loop
1404: --
1405: -- Call formula initialise routine
1406: --
1407: l_outputs := benutils.formula
1408: (p_formula_id => l_brr.formula_id,
1409: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
1410: p_business_group_id => l_epe.business_group_id,
1411: p_assignment_id => l_asg.assignment_id,
1443: l_vpf.acty_typ_cd like 'CWB%' and
1444: l_compensation_value is not null and
1445: l_vpf.vrbl_rt_trtmt_cd = 'RPLC'
1446: then
1447: benutils.rt_typ_calc
1448: (p_rt_typ_cd => l_vpf.rt_typ_cd
1449: ,p_val => p_mn_elcn_val
1450: ,p_val_2 => l_compensation_value
1451: ,p_calculated_val => l_cwb_mn_elcn_val);
1451: ,p_calculated_val => l_cwb_mn_elcn_val);
1452: --
1453: hr_utility.set_location('l_cwb_mn_elcn_val is '||l_cwb_mn_elcn_val,951);
1454: --
1455: benutils.rt_typ_calc
1456: (p_rt_typ_cd => l_vpf.rt_typ_cd
1457: ,p_val => p_mx_elcn_val
1458: ,p_val_2 => l_compensation_value
1459: ,p_calculated_val => l_cwb_mx_elcn_val);
1462: --
1463: -- 5371364 : Do not Operate (i.e multiply/divide..) the Increment Value.
1464: l_cwb_incrmt_elcn_val := p_incrmnt_elcn_val;
1465: /*
1466: benutils.rt_typ_calc
1467: (p_rt_typ_cd => l_vpf.rt_typ_cd
1468: ,p_val => p_incrmnt_elcn_val
1469: ,p_val_2 => l_compensation_value
1470: ,p_calculated_val => l_cwb_incrmt_elcn_val);
1471: */
1472: --
1473: hr_utility.set_location('l_cwb_incrmt_elcn_val is '|| l_cwb_incrmt_elcn_val,951);
1474: --
1475: benutils.rt_typ_calc
1476: (p_rt_typ_cd => l_vpf.rt_typ_cd
1477: ,p_val => p_dflt_elcn_val
1478: ,p_val_2 => l_compensation_value
1479: ,p_calculated_val => l_cwb_dflt_val);
1483: if (l_vpf.rndg_cd is not null or
1484: l_vpf.rndg_rl is not null) then
1485:
1486: if l_cwb_mn_elcn_val is not null then
1487: l_rounded_value := benutils.do_rounding
1488: (p_rounding_cd => l_vpf.rndg_cd,
1489: p_rounding_rl => l_vpf.rndg_rl,
1490: p_value => l_cwb_mn_elcn_val,
1491: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1492: l_cwb_mn_elcn_val := l_rounded_value;
1493: end if;
1494: --
1495: if l_cwb_mx_elcn_val is not null then
1496: l_rounded_value := benutils.do_rounding
1497: (p_rounding_cd => l_vpf.rndg_cd,
1498: p_rounding_rl => l_vpf.rndg_rl,
1499: p_value => l_cwb_mx_elcn_val,
1500: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1501: l_cwb_mx_elcn_val := l_rounded_value;
1502: end if;
1503: --
1504: if l_cwb_dflt_val is not null then
1505: l_rounded_value := benutils.do_rounding
1506: (p_rounding_cd => l_vpf.rndg_cd,
1507: p_rounding_rl => l_vpf.rndg_rl,
1508: p_value => l_cwb_dflt_val,
1509: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1526: if (l_vpf.rndg_cd is not null or
1527: l_vpf.rndg_rl is not null)
1528: and p_val is not null then
1529: --
1530: l_rounded_value := benutils.do_rounding
1531: (p_rounding_cd => l_vpf.rndg_cd,
1532: p_rounding_rl => l_vpf.rndg_rl,
1533: p_value => p_val,
1534: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
1550: close c_asg;
1551: end if;
1552: --
1553: hr_utility.set_location('Floor/Ceiling Rule Checking'||l_package,30);
1554: benutils.limit_checks
1555: (p_upr_lmt_val => l_vpf.upr_lmt_val,
1556: p_lwr_lmt_val => l_vpf.lwr_lmt_val,
1557: p_upr_lmt_calc_rl => l_vpf.upr_lmt_calc_rl,
1558: p_lwr_lmt_calc_rl => l_vpf.lwr_lmt_calc_rl,