[Home] [Help]
85: 02 Jul 99 lmcdonal 115.25 Make use of genutils limit_checks and
86: rt_typ_calc.
87: 09 Jul 99 bbulusu 115.25 Added checks for backed out nocopy life evt.
88: 16 Jul 99 lmcdonal 115.26 limit_checks parms changed.
89: 20 JUL 99 Gperry 115.27 genutils -> benutils package rename.
90: 22 JUL 99 mhoyes 115.28 - Added trace messages.
91: - Replace +0s.
92: 31 AUG 99 mhoyes 115.30 - Added trace messages.
93: 07 SEP 99 tguy 115.31 fixed call to
104: 21-sep-1999 tguy 115.36 added check for dflt_enrt_cd for
105: dflt_val assignemnt
106: 29-Sep-1999 lmcdonal 115.37 Call prorate_min_max and compare_balances.
107: 04-Oct-1999 tguy 115.38 added call to dt_fndate
108: 21-Oct-1999 pbodla 115.39 benutils.limit_checks: p_val is sent
109: instead of l_rounded_value
110: 29-Oct-1999 lmcdonal 115.40 When the use calc acty bs rt flag is OFF
111: do not calc the rate out, just send along
112: the 'value' field.
223: - 91833 with 92743, 92738, 92739, 92740
224: 92741, 92742
225: - 91835 with 92744, 92745, 92746, 92747
226: 29-aug-2001 tilak 115.88 bug:1949361 jurisdiction code is
227: derived inside benutils.formula.
228: 27-Sep-2001 kmahendr 115.89 Bug#1981673-Added parameter ann_mn_elcn_val and
229: ann_mx_elcn_val to ben_determine_variable_rates
230: call and returned values assigned
231:
325: 27-Jan-2004 swjain 115.142 Updated the message number of the the message
326: BEN_XXXX_MN_MX_RL_OUT_ERR to
327: BEN_94130_MN_MX_RL_OUT_ERR
328: 31-Jan-2004 swjain 115.143 3981982 - Added more input paramters in call to
329: benutils.formula
330: 17-Feb-2004 vvprabhu 115.144 Bug 4143012 : Changes in procedure main_w
331: to avoid value of cost1 being displayed for
332: cost2 when cost1 is 'SAREC'
333: 12-May-2005 ikasire 115.145 Moved the fnd_message binding into IF clause to avoid
1495:
1496: BEGIN
1497: --
1498: l_outputs :=
1499: benutils.formula (p_formula_id => l_abr.input_va_calc_rl,
1500: p_effective_date => l_effective_date,
1501: p_business_group_id => p_business_group_id,
1502: p_assignment_id => l_assignment_id,
1503: p_organization_id => l_organization_id,
1987: --
1988: -- Enhancement No 3981982 - Min Max Rule
1989: --
1990: if (l_abr.mn_mx_elcn_rl IS NOT NULL) then
1991: l_outputs := benutils.formula( p_formula_id => l_abr.mn_mx_elcn_rl,
1992: p_effective_date => NVL(p_lf_evt_ocrd_dt, l_effective_date),
1993: p_assignment_id => l_assignment_id,
1994: p_organization_id => l_organization_id,
1995: p_pgm_id => l_epe.pgm_id,
2035: end if;
2036: --
2037:
2038: -- end bug fix 3457483
2039: /* -- 4031733 - Cursor used to populate l_state.region_2 param for benutils.limit_checks
2040: -- which is not used down the line
2041: --
2042: open c_state;
2043: fetch c_state into l_state;
2686: l_val := l_abr.val;
2687: end if;
2688: --
2689: elsif l_abr.rt_mlt_cd = 'CL' then
2690: benutils.rt_typ_calc
2691: (p_rt_typ_cd => l_abr.rt_typ_cd
2692: ,p_val => l_abr.val
2693: ,p_val_2 => l_compensation_value
2694: ,p_calculated_val => l_val);
2693: ,p_val_2 => l_compensation_value
2694: ,p_calculated_val => l_val);
2695:
2696: elsif l_abr.rt_mlt_cd = 'CVG' then
2697: benutils.rt_typ_calc
2698: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2699: ,p_val => l_abr.val
2700: ,p_val_2 => l_coverage_value
2701: ,p_calculated_val => l_val);
2716: */
2717:
2718:
2719: elsif l_abr.rt_mlt_cd = 'AP' then
2720: benutils.rt_typ_calc
2721: (p_rt_typ_cd => l_abr.rt_typ_cd
2722: ,p_val => l_abr.val
2723: ,p_val_2 => l_actl_prem_value
2724: ,p_calculated_val => l_val);
2726: elsif l_abr.rt_mlt_cd = 'PRNT' then
2727:
2728: hr_utility.set_location(' abr value ' || l_abr.val , 407);
2729: hr_utility.set_location(' parent ' || l_prnt_rt_value , 407);
2730: benutils.rt_typ_calc
2731: (p_rt_typ_cd => l_abr.rt_typ_cd
2732: ,p_val => l_abr.val
2733: ,p_val_2 => l_prnt_rt_value
2734: ,p_calculated_val => l_val);
2736: l_val := 0;
2737: end if;
2738: hr_utility.set_location(' result ' || l_val , 407);
2739: elsif l_abr.rt_mlt_cd = 'CLANDCVG' then
2740: benutils.rt_typ_calc
2741: (p_rt_typ_cd => l_abr.rt_typ_cd
2742: ,p_val => l_abr.val
2743: ,p_val_2 => l_compensation_value
2744: ,p_calculated_val => l_value);
2745:
2746: --
2747: -- now take l_value and apply it against the coverage
2748: --
2749: benutils.rt_typ_calc
2750: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2751: ,p_val => l_value
2752: ,p_val_2 => l_coverage_value
2753: ,p_calculated_val => l_val);
2752: ,p_val_2 => l_coverage_value
2753: ,p_calculated_val => l_val);
2754:
2755: elsif l_abr.rt_mlt_cd = 'APANDCVG' then
2756: benutils.rt_typ_calc
2757: (p_rt_typ_cd => l_abr.rt_typ_cd
2758: ,p_val => l_abr.val
2759: ,p_val_2 => l_actl_prem_value
2760: ,p_calculated_val => l_value);
2761:
2762: --
2763: -- now take l_value and apply it against the coverage
2764: --
2765: benutils.rt_typ_calc
2766: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2767: ,p_val => l_value
2768: ,p_val_2 => l_coverage_value
2769: ,p_calculated_val => l_val);
2768: ,p_val_2 => l_coverage_value
2769: ,p_calculated_val => l_val);
2770:
2771: elsif l_abr.rt_mlt_cd = 'PRNTANDCVG' then
2772: benutils.rt_typ_calc
2773: (p_rt_typ_cd => l_abr.rt_typ_cd
2774: ,p_val => l_abr.val
2775: ,p_val_2 => l_prnt_rt_value
2776: ,p_calculated_val => l_value);
2777:
2778: --
2779: -- now take l_value and apply it against the coverage
2780: --
2781: benutils.rt_typ_calc
2782: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2783: ,p_val => l_value
2784: ,p_val_2 => l_coverage_value
2785: ,p_calculated_val => l_val);
2796: -- (p_state => l_asg.region_2);
2797:
2798: --end if;
2799:
2800: l_outputs := benutils.formula
2801: (p_formula_id => l_abr.val_calc_rl,
2802: p_effective_date => nvl(p_lf_evt_ocrd_dt,l_effective_date),
2803: p_assignment_id => l_assignment_id,
2804: p_acty_base_rt_id => p_acty_base_rt_id,
3026: --bug : 1433393 Value us validated befoe calcualting the
3027: --variable rate riable rate with value us validated agains the ulitmate values of
3028: -- VAPRO
3029: hr_utility.set_location ('Lim Chk '||l_package,10);
3030: benutils.limit_checks
3031: (p_upr_lmt_val => l_abr.upr_lmt_val,
3032: p_lwr_lmt_val => l_abr.lwr_lmt_val,
3033: p_upr_lmt_calc_rl => l_abr.upr_lmt_calc_rl,
3034: p_lwr_lmt_calc_rl => l_abr.lwr_lmt_calc_rl,
3126: p_perform_rounding_flg
3127: and l_val is not null and
3128: nvl(l_vr_trtmt_cd,' ') <> 'RPLC' then
3129:
3130: l_rounded_value := benutils.do_rounding
3131: (p_rounding_cd => l_abr.rndg_cd,
3132: p_rounding_rl => l_abr.rndg_rl,
3133: p_value => l_val,
3134: p_effective_date => l_effective_date);
3165: p_perform_rounding_flg
3166: and l_val is not null and
3167: nvl(l_vr_trtmt_cd,' ') <> 'RPLC' then
3168:
3169: l_rounded_value := benutils.do_rounding
3170: (p_rounding_cd => l_abr.rndg_cd,
3171: p_rounding_rl => l_abr.rndg_rl,
3172: p_value => l_val,
3173: p_effective_date => l_effective_date);
3284: hr_utility.set_location(' calling ultmate check rate ' ,393);
3285: hr_utility.set_location('upper '|| l_ultmt_upr_lmt ||' Lower' || l_ultmt_lwr_lmt,393);
3286: hr_utility.set_location('ammount '|| p_val ,393);
3287:
3288: benutils.limit_checks
3289: (p_upr_lmt_val => l_ultmt_upr_lmt,
3290: p_lwr_lmt_val => l_ultmt_lwr_lmt,
3291: p_upr_lmt_calc_rl => l_ultmt_upr_lmt_calc_rl,
3292: p_lwr_lmt_calc_rl => l_ultmt_lwr_lmt_calc_rl,
4124: l_compensation_value is not null and
4125: nvl(l_vr_trtmt_cd,' ') <> 'RPLC'
4126: then
4127: --
4128: benutils.rt_typ_calc
4129: (p_rt_typ_cd => l_abr.rt_typ_cd
4130: ,p_val => p_mn_elcn_val
4131: ,p_val_2 => l_compensation_value
4132: ,p_calculated_val => l_cwb_mn_elcn_val);
4133: --
4134: hr_utility.set_location('l_cwb_mn_elcn_val is '||l_cwb_mn_elcn_val,951);
4135: --
4136: --
4137: benutils.rt_typ_calc
4138: (p_rt_typ_cd => l_abr.rt_typ_cd
4139: ,p_val => p_mx_elcn_val
4140: ,p_val_2 => l_compensation_value
4141: ,p_calculated_val => l_cwb_mx_elcn_val);
4144: --
4145: -- 5371364 : Do not Operate (i.e multiply/divide..) the Increment Value.
4146: l_cwb_incrmt_elcn_val := p_incrmt_elcn_val;
4147: /*
4148: benutils.rt_typ_calc
4149: (p_rt_typ_cd => l_abr.rt_typ_cd
4150: ,p_val => p_incrmt_elcn_val
4151: ,p_val_2 => l_compensation_value
4152: ,p_calculated_val => l_cwb_incrmt_elcn_val);
4154: --
4155:
4156: hr_utility.set_location('l_cwb_incrmt_elcn_val is '|| l_cwb_incrmt_elcn_val,951);
4157: --
4158: benutils.rt_typ_calc
4159: (p_rt_typ_cd => l_abr.rt_typ_cd
4160: ,p_val => l_vr_dflt_elcn_val
4161: ,p_val_2 => l_compensation_value
4162: ,p_calculated_val => l_cwb_dflt_val);
4170: l_abr.rndg_rl is not null) and
4171: p_perform_rounding_flg then
4172:
4173: if l_cwb_mn_elcn_val is not null then
4174: l_rounded_value := benutils.do_rounding
4175: (p_rounding_cd => l_abr.rndg_cd,
4176: p_rounding_rl => l_abr.rndg_rl,
4177: p_value => l_cwb_mn_elcn_val,
4178: p_effective_date => l_effective_date);
4179: l_cwb_mn_elcn_val := l_rounded_value;
4180: end if;
4181: --
4182: if l_cwb_mx_elcn_val is not null then
4183: l_rounded_value := benutils.do_rounding
4184: (p_rounding_cd => l_abr.rndg_cd,
4185: p_rounding_rl => l_abr.rndg_rl,
4186: p_value => l_cwb_mx_elcn_val,
4187: p_effective_date => l_effective_date);
4188: l_cwb_mx_elcn_val := l_rounded_value;
4189: end if;
4190: --
4191: if l_cwb_dflt_val is not null then
4192: l_rounded_value := benutils.do_rounding
4193: (p_rounding_cd => l_abr.rndg_cd,
4194: p_rounding_rl => l_abr.rndg_rl,
4195: p_value => l_cwb_dflt_val,
4196: p_effective_date => l_effective_date);