[Home] [Help]
86: calcuate_val (rt_typ_calc)
87: to genutils.
88: 9 Jul 99 mhoyes 115.34 Added trace messages.
89: 16 Jul 99 lmcdonal 115.35 limit_checks parms changed.
90: 20-JUL-99 Gperry 115.36 genutils -> benutils package
91: rename.
92: 22-JUL-99 mhoyes 115.37 - Added new trace messages.
93: - Replaced all + 0s.
94: 07-Sep-99 tguy 115.38 fixed calls to pay_mag_util
109: .write_ctfn to write level jumping
110: ctfns for the benefit records.
111: 15-Nov-99 mhoyes 115.45 - Added trace messages.
112: 19-Nov-99 pbodla 115.46 - p_elig_per_elctbl_chc_id parameter
113: passed to benutils.limit_checks
114: - p_elig_per_elctbl_chc_id parameter
115: added to chk_bnft_ctfn proc and all
116: it's calls.
117: - Passed p_elig_per_elctbl_chc_id to
114: - p_elig_per_elctbl_chc_id parameter
115: added to chk_bnft_ctfn proc and all
116: it's calls.
117: - Passed p_elig_per_elctbl_chc_id to
118: all benutils.formula calls.
119: 29-Nov-99 jcarpent 115.47 - Added call to det._dflt_enrt_cd
120: 07-Dec-99 jcarpent 115.48 - Assign defaults for flat fixed.
121: 06-Jan-00 maagrawa 115.49 Modified chk_bnft_ctfn to look for
122: mx_cvg_alwd_amt for ctfns.(1142060)
207: 02-Aug-01 ikasire 115.81 to add modification history for 115.80
208: 28-Aug-01 kmahendr 115.82 Bug#1936976-result_id is populated based on
209: benefit amount
210: 29-aug-01 tilak 115.83 bug:1949361 jurisdiction code is
211: derived inside benutils.formula.
212: 27-Sep-01 kmahendr 115.84 Bug#1981673-Added parameter ann_mn_elcn_val and
213: ann_mx_elcn_val to ben_determine_variable_rates
214: call
215: 02-nov-01 tjesumic 115.85 bug : 2083726 fixed , if variable rate define
415: --
416: if (p_rndg_cd is not null or
417: p_rndg_rl is not null) then
418: --
419: l_val := benutils.do_rounding
420: (p_rounding_cd => p_rndg_cd,
421: p_rounding_rl => p_rndg_rl,
422: p_value => p_val,
423: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
837: ---
838: ---validatiting ultmt lowr limit and ultimate upper limit
839: if p_ultmt_lwr_lmt is not null or p_ultmt_upr_lmt is not null
840: OR p_ultmt_lwr_lmt_calc_rl is not null or p_ultmt_upr_lmt_calc_rl is not null then
841: benutils.limit_checks
842: (p_lwr_lmt_val => p_ultmt_lwr_lmt,
843: p_lwr_lmt_calc_rl => p_ultmt_lwr_lmt_calc_rl,
844: p_upr_lmt_val => p_ultmt_upr_lmt,
845: p_upr_lmt_calc_rl => p_ultmt_upr_lmt_calc_rl,
1306: close fetch_person_id;
1307: --
1308: if p_mn_cvg_rl is not NULL then
1309: --
1310: l_mn_outputs := benutils.formula
1311: (p_formula_id => p_mn_cvg_rl,
1312: p_effective_date => p_effective_date,
1313: p_assignment_id => p_assignment_id,
1314: p_organization_id => p_organization_id,
1341: end if;
1342: --
1343: if p_mx_cvg_rl is not NULL then
1344: --
1345: l_mx_outputs := benutils.formula
1346: (p_formula_id => p_mx_cvg_rl,
1347: p_effective_date => p_effective_date,
1348: p_assignment_id => p_assignment_id,
1349: p_organization_id => p_organization_id,
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,
2939: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
3079: --
3080: --bug#4256191 least of ultmt_upr_lmt, max value passed
3081: if l_ultmt_upr_lmt_calc_rl is not null then
3082: --
3083: l_upr_outputs := benutils.formula
3084: (p_formula_id => l_ultmt_upr_lmt_calc_rl,
3085: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3086: p_assignment_id => l_asg.assignment_id,
3087: p_organization_id => l_asg.organization_id,
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,
3123: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3124: p_assignment_id => l_asg.assignment_id,
3125: p_organization_id => l_asg.organization_id,
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,
3491: p_calculated_val => l_calculated_val);
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,
3508: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
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
3727: (p_formula_id => l_cvg(0).lwr_lmt_calc_rl,
3728: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3729: p_assignment_id => l_asg.assignment_id,
3730: p_organization_id => l_asg.organization_id,
3747: end if;
3748:
3749: if l_cvg(0).upr_lmt_calc_rl is not NULL then
3750: --
3751: l_upr_outputs := benutils.formula
3752: (p_formula_id => l_cvg(0).upr_lmt_calc_rl,
3753: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3754: p_assignment_id => l_asg.assignment_id,
3755: p_organization_id => l_asg.organization_id,
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,
3816: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4104: l_order_number < nvl(l_crnt_ordr_num,0)) or
4105: (l_incr_r_decr_cd='EQDECR' and
4106: l_order_number <= nvl(l_crnt_ordr_num,0))) then
4107: --
4108: benutils.rt_typ_calc
4109: (p_val => i,
4110: p_val_2 => l_compensation_value,
4111: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4112: p_calculated_val => l_calculated_val);
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,
4128: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4379: --
4380: l_ctfn_rqd := 'N';
4381: l_write_rec := true;
4382: --
4383: benutils.rt_typ_calc
4384: (p_val => l_cvg(0).mn_val,
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);
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,
4412: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4413: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4632: l_order_number < nvl(l_crnt_ordr_num,0)) or
4633: (l_incr_r_decr_cd='EQDECR' and
4634: l_order_number <= nvl(l_crnt_ordr_num,0))) then
4635: --
4636: benutils.rt_typ_calc
4637: (p_val => i,
4638: p_val_2 => l_compensation_value,
4639: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4640: p_calculated_val => l_calculated_val);
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,
4660: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
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,
4835: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4836: p_calculated_val => l_calculated_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,
4855: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4883: (l_incr_r_decr_cd='EQDECR' and
4884: l_order_number <= nvl(l_crnt_ordr_num,0))) then
4885: --bug#2708285 - limit checked for the compensation plus flat amount
4886: l_tot_val := l_val + i;
4887: benutils.limit_checks
4888: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4889: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4890: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4891: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
5314: l_write_rec := true;
5315: --
5316: -- Call formula initialise routine
5317: --
5318: l_outputs := benutils.formula
5319: (p_formula_id => l_cvg(0).val_calc_rl,
5320: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
5321: p_business_group_id => l_epe.business_group_id,
5322: p_assignment_id => l_asg.assignment_id,
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,
5353: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,