[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
391: --
392: if (p_rndg_cd is not null or
393: p_rndg_rl is not null) then
394: --
395: l_val := benutils.do_rounding
396: (p_rounding_cd => p_rndg_cd,
397: p_rounding_rl => p_rndg_rl,
398: p_value => p_val,
399: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date));
798: ---
799: ---validatiting ultmt lowr limit and ultimate upper limit
800: if p_ultmt_lwr_lmt is not null or p_ultmt_upr_lmt is not null
801: OR p_ultmt_lwr_lmt_calc_rl is not null or p_ultmt_upr_lmt_calc_rl is not null then
802: benutils.limit_checks
803: (p_lwr_lmt_val => p_ultmt_lwr_lmt,
804: p_lwr_lmt_calc_rl => p_ultmt_lwr_lmt_calc_rl,
805: p_upr_lmt_val => p_ultmt_upr_lmt,
806: p_upr_lmt_calc_rl => p_ultmt_upr_lmt_calc_rl,
1267: close fetch_person_id;
1268: --
1269: if p_mn_cvg_rl is not NULL then
1270: --
1271: l_mn_outputs := benutils.formula
1272: (p_formula_id => p_mn_cvg_rl,
1273: p_effective_date => p_effective_date,
1274: p_assignment_id => p_assignment_id,
1275: p_organization_id => p_organization_id,
1302: end if;
1303: --
1304: if p_mx_cvg_rl is not NULL then
1305: --
1306: l_mx_outputs := benutils.formula
1307: (p_formula_id => p_mx_cvg_rl,
1308: p_effective_date => p_effective_date,
1309: p_assignment_id => p_assignment_id,
1310: p_organization_id => p_organization_id,
2612: l_cvg_amount := l_val ;
2613: --
2614: ---bug validate the limit for benefir amount
2615: hr_utility.set_location ('limit_checks ' ,10);
2616: benutils.limit_checks
2617: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
2618: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
2619: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
2620: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
2759: --
2760: --bug#4256191 least of ultmt_upr_lmt, max value passed
2761: if l_ultmt_upr_lmt_calc_rl is not null then
2762: --
2763: l_upr_outputs := benutils.formula
2764: (p_formula_id => l_ultmt_upr_lmt_calc_rl,
2765: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
2766: p_assignment_id => l_asg.assignment_id,
2767: p_organization_id => l_asg.organization_id,
2797: );
2798: hr_utility.set_location('l_ultmt_lwr_lmt_calc_rl = ' || l_ultmt_lwr_lmt_calc_rl, 9999);
2799: if l_ultmt_lwr_lmt_calc_rl is not null then
2800: --
2801: l_ult_lwr_outputs := benutils.formula
2802: (p_formula_id => l_ultmt_lwr_lmt_calc_rl,
2803: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
2804: p_assignment_id => l_asg.assignment_id,
2805: p_organization_id => l_asg.organization_id,
3163: l_ctfn_rqd := 'N';
3164: l_write_rec := true;
3165: --
3166: hr_utility.set_location (' CMC CL ',10);
3167: benutils.rt_typ_calc
3168: (p_val => l_cvg(0).val,
3169: p_val_2 => l_compensation_value,
3170: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
3171: p_calculated_val => l_calculated_val);
3180: --
3181: l_cvg_amount := l_val ;
3182: ---bug validate the limit for benefir amount
3183: hr_utility.set_location ('limit_checks ',10);
3184: benutils.limit_checks
3185: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3186: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3187: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3188: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
3402: hr_utility.set_location ('l_cvg-0.mn_val '||l_cvg(0).mn_val,33);
3403: --
3404: if l_cvg(0).lwr_lmt_calc_rl is not NULL then
3405: --
3406: l_lwr_outputs := benutils.formula
3407: (p_formula_id => l_cvg(0).lwr_lmt_calc_rl,
3408: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3409: p_assignment_id => l_asg.assignment_id,
3410: p_organization_id => l_asg.organization_id,
3427: end if;
3428:
3429: if l_cvg(0).upr_lmt_calc_rl is not NULL then
3430: --
3431: l_upr_outputs := benutils.formula
3432: (p_formula_id => l_cvg(0).upr_lmt_calc_rl,
3433: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
3434: p_assignment_id => l_asg.assignment_id,
3435: p_organization_id => l_asg.organization_id,
3488: );
3489: l_cvg_amount := l_val ;
3490: --validate the limit for benefir amount
3491: hr_utility.set_location ('limit_checks ',10);
3492: benutils.limit_checks
3493: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3494: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3495: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3496: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
3694: l_order_number < nvl(l_crnt_ordr_num,0)) or
3695: (l_incr_r_decr_cd='EQDECR' and
3696: l_order_number <= nvl(l_crnt_ordr_num,0))) then
3697: --
3698: benutils.rt_typ_calc
3699: (p_val => i,
3700: p_val_2 => l_compensation_value,
3701: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
3702: p_calculated_val => l_calculated_val);
3710: );
3711: l_cvg_amount := l_val ;
3712: --validate the limit for benefir amount
3713: hr_utility.set_location ('limit_checks ',10);
3714: benutils.limit_checks
3715: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3716: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3717: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3718: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
3886: --
3887: l_ctfn_rqd := 'N';
3888: l_write_rec := true;
3889: --
3890: benutils.rt_typ_calc
3891: (p_val => l_cvg(0).mn_val,
3892: p_val_2 => l_compensation_value,
3893: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
3894: p_calculated_val => l_calculated_val);
3912: l_tot_val := l_val ;
3913: --
3914: hr_utility.set_location (' l_tot_val ' || l_tot_val,10);
3915: --
3916: benutils.limit_checks
3917: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
3918: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
3919: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
3920: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4139: l_order_number < nvl(l_crnt_ordr_num,0)) or
4140: (l_incr_r_decr_cd='EQDECR' and
4141: l_order_number <= nvl(l_crnt_ordr_num,0))) then
4142: --
4143: benutils.rt_typ_calc
4144: (p_val => i,
4145: p_val_2 => l_compensation_value,
4146: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4147: p_calculated_val => l_calculated_val);
4159: l_tot_val := l_val+l_cvg(0).val; -- 3095224
4160:
4161:
4162: hr_utility.set_location ('limit_checks ',10);
4163: benutils.limit_checks
4164: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4165: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4166: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4167: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4335: --
4336: elsif l_cvg(0).cvg_mlt_cd = 'CLPFLRNG' then
4337: hr_utility.set_location (' CMC CLPFLRNG ',10);
4338: --
4339: benutils.rt_typ_calc
4340: (p_val => l_cvg(0).val,
4341: p_val_2 => l_compensation_value,
4342: p_rt_typ_cd => l_cvg(0).rt_typ_cd,
4343: p_calculated_val => l_calculated_val);
4354:
4355: /* moved the limit check to inside the loop to enforce the limit on compensation + range
4356: --validate the limit for benefir amount
4357: hr_utility.set_location ('limit_checks ',10);
4358: benutils.limit_checks
4359: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4360: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4361: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4362: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4390: (l_incr_r_decr_cd='EQDECR' and
4391: l_order_number <= nvl(l_crnt_ordr_num,0))) then
4392: --bug#2708285 - limit checked for the compensation plus flat amount
4393: l_tot_val := l_val + i;
4394: benutils.limit_checks
4395: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4396: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4397: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4398: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,
4821: l_write_rec := true;
4822: --
4823: -- Call formula initialise routine
4824: --
4825: l_outputs := benutils.formula
4826: (p_formula_id => l_cvg(0).val_calc_rl,
4827: p_effective_date => nvl(p_lf_evt_ocrd_dt,p_effective_date),
4828: p_business_group_id => l_epe.business_group_id,
4829: p_assignment_id => l_asg.assignment_id,
4852: );
4853: l_cvg_amount := l_val ;
4854: --validate the limit for benefir amount
4855: hr_utility.set_location ('limit_checks ',10);
4856: benutils.limit_checks
4857: (p_lwr_lmt_val => l_cvg(0).lwr_lmt_val,
4858: p_lwr_lmt_calc_rl => l_cvg(0).lwr_lmt_calc_rl,
4859: p_upr_lmt_val => l_cvg(0).upr_lmt_val,
4860: p_upr_lmt_calc_rl => l_cvg(0).upr_lmt_calc_rl,