[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
1435:
1436: BEGIN
1437: --
1438: l_outputs :=
1439: benutils.formula (p_formula_id => l_abr.input_va_calc_rl,
1440: p_effective_date => l_effective_date,
1441: p_business_group_id => p_business_group_id,
1442: p_assignment_id => l_assignment_id,
1443: p_organization_id => l_organization_id,
1927: --
1928: -- Enhancement No 3981982 - Min Max Rule
1929: --
1930: if (l_abr.mn_mx_elcn_rl IS NOT NULL) then
1931: l_outputs := benutils.formula( p_formula_id => l_abr.mn_mx_elcn_rl,
1932: p_effective_date => NVL(p_lf_evt_ocrd_dt, l_effective_date),
1933: p_assignment_id => l_assignment_id,
1934: p_organization_id => l_organization_id,
1935: p_pgm_id => l_epe.pgm_id,
1975: end if;
1976: --
1977:
1978: -- end bug fix 3457483
1979: /* -- 4031733 - Cursor used to populate l_state.region_2 param for benutils.limit_checks
1980: -- which is not used down the line
1981: --
1982: open c_state;
1983: fetch c_state into l_state;
2626: l_val := l_abr.val;
2627: end if;
2628: --
2629: elsif l_abr.rt_mlt_cd = 'CL' then
2630: benutils.rt_typ_calc
2631: (p_rt_typ_cd => l_abr.rt_typ_cd
2632: ,p_val => l_abr.val
2633: ,p_val_2 => l_compensation_value
2634: ,p_calculated_val => l_val);
2633: ,p_val_2 => l_compensation_value
2634: ,p_calculated_val => l_val);
2635:
2636: elsif l_abr.rt_mlt_cd = 'CVG' then
2637: benutils.rt_typ_calc
2638: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2639: ,p_val => l_abr.val
2640: ,p_val_2 => l_coverage_value
2641: ,p_calculated_val => l_val);
2656: */
2657:
2658:
2659: elsif l_abr.rt_mlt_cd = 'AP' then
2660: benutils.rt_typ_calc
2661: (p_rt_typ_cd => l_abr.rt_typ_cd
2662: ,p_val => l_abr.val
2663: ,p_val_2 => l_actl_prem_value
2664: ,p_calculated_val => l_val);
2666: elsif l_abr.rt_mlt_cd = 'PRNT' then
2667:
2668: hr_utility.set_location(' abr value ' || l_abr.val , 407);
2669: hr_utility.set_location(' parent ' || l_prnt_rt_value , 407);
2670: benutils.rt_typ_calc
2671: (p_rt_typ_cd => l_abr.rt_typ_cd
2672: ,p_val => l_abr.val
2673: ,p_val_2 => l_prnt_rt_value
2674: ,p_calculated_val => l_val);
2676: l_val := 0;
2677: end if;
2678: hr_utility.set_location(' result ' || l_val , 407);
2679: elsif l_abr.rt_mlt_cd = 'CLANDCVG' then
2680: benutils.rt_typ_calc
2681: (p_rt_typ_cd => l_abr.rt_typ_cd
2682: ,p_val => l_abr.val
2683: ,p_val_2 => l_compensation_value
2684: ,p_calculated_val => l_value);
2685:
2686: --
2687: -- now take l_value and apply it against the coverage
2688: --
2689: benutils.rt_typ_calc
2690: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2691: ,p_val => l_value
2692: ,p_val_2 => l_coverage_value
2693: ,p_calculated_val => l_val);
2692: ,p_val_2 => l_coverage_value
2693: ,p_calculated_val => l_val);
2694:
2695: elsif l_abr.rt_mlt_cd = 'APANDCVG' then
2696: benutils.rt_typ_calc
2697: (p_rt_typ_cd => l_abr.rt_typ_cd
2698: ,p_val => l_abr.val
2699: ,p_val_2 => l_actl_prem_value
2700: ,p_calculated_val => l_value);
2701:
2702: --
2703: -- now take l_value and apply it against the coverage
2704: --
2705: benutils.rt_typ_calc
2706: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2707: ,p_val => l_value
2708: ,p_val_2 => l_coverage_value
2709: ,p_calculated_val => l_val);
2708: ,p_val_2 => l_coverage_value
2709: ,p_calculated_val => l_val);
2710:
2711: elsif l_abr.rt_mlt_cd = 'PRNTANDCVG' then
2712: benutils.rt_typ_calc
2713: (p_rt_typ_cd => l_abr.rt_typ_cd
2714: ,p_val => l_abr.val
2715: ,p_val_2 => l_prnt_rt_value
2716: ,p_calculated_val => l_value);
2717:
2718: --
2719: -- now take l_value and apply it against the coverage
2720: --
2721: benutils.rt_typ_calc
2722: (p_rt_typ_cd => l_abr.bnft_rt_typ_cd
2723: ,p_val => l_value
2724: ,p_val_2 => l_coverage_value
2725: ,p_calculated_val => l_val);
2736: -- (p_state => l_asg.region_2);
2737:
2738: --end if;
2739:
2740: l_outputs := benutils.formula
2741: (p_formula_id => l_abr.val_calc_rl,
2742: p_effective_date => nvl(p_lf_evt_ocrd_dt,l_effective_date),
2743: p_assignment_id => l_assignment_id,
2744: p_acty_base_rt_id => p_acty_base_rt_id,
2931: --bug : 1433393 Value us validated befoe calcualting the
2932: --variable rate riable rate with value us validated agains the ulitmate values of
2933: -- VAPRO
2934: hr_utility.set_location ('Lim Chk '||l_package,10);
2935: benutils.limit_checks
2936: (p_upr_lmt_val => l_abr.upr_lmt_val,
2937: p_lwr_lmt_val => l_abr.lwr_lmt_val,
2938: p_upr_lmt_calc_rl => l_abr.upr_lmt_calc_rl,
2939: p_lwr_lmt_calc_rl => l_abr.lwr_lmt_calc_rl,
3027: p_perform_rounding_flg
3028: and l_val is not null and
3029: nvl(l_vr_trtmt_cd,' ') <> 'RPLC' then
3030:
3031: l_rounded_value := benutils.do_rounding
3032: (p_rounding_cd => l_abr.rndg_cd,
3033: p_rounding_rl => l_abr.rndg_rl,
3034: p_value => l_val,
3035: p_effective_date => l_effective_date);
3165: hr_utility.set_location(' calling ultmate check rate ' ,393);
3166: hr_utility.set_location('upper '|| l_ultmt_upr_lmt ||' Lower' || l_ultmt_lwr_lmt,393);
3167: hr_utility.set_location('ammount '|| p_val ,393);
3168:
3169: benutils.limit_checks
3170: (p_upr_lmt_val => l_ultmt_upr_lmt,
3171: p_lwr_lmt_val => l_ultmt_lwr_lmt,
3172: p_upr_lmt_calc_rl => l_ultmt_upr_lmt_calc_rl,
3173: p_lwr_lmt_calc_rl => l_ultmt_lwr_lmt_calc_rl,
3925: l_compensation_value is not null and
3926: nvl(l_vr_trtmt_cd,' ') <> 'RPLC'
3927: then
3928: --
3929: benutils.rt_typ_calc
3930: (p_rt_typ_cd => l_abr.rt_typ_cd
3931: ,p_val => p_mn_elcn_val
3932: ,p_val_2 => l_compensation_value
3933: ,p_calculated_val => l_cwb_mn_elcn_val);
3934: --
3935: hr_utility.set_location('l_cwb_mn_elcn_val is '||l_cwb_mn_elcn_val,951);
3936: --
3937: --
3938: benutils.rt_typ_calc
3939: (p_rt_typ_cd => l_abr.rt_typ_cd
3940: ,p_val => p_mx_elcn_val
3941: ,p_val_2 => l_compensation_value
3942: ,p_calculated_val => l_cwb_mx_elcn_val);
3945: --
3946: -- 5371364 : Do not Operate (i.e multiply/divide..) the Increment Value.
3947: l_cwb_incrmt_elcn_val := p_incrmt_elcn_val;
3948: /*
3949: benutils.rt_typ_calc
3950: (p_rt_typ_cd => l_abr.rt_typ_cd
3951: ,p_val => p_incrmt_elcn_val
3952: ,p_val_2 => l_compensation_value
3953: ,p_calculated_val => l_cwb_incrmt_elcn_val);
3955: --
3956:
3957: hr_utility.set_location('l_cwb_incrmt_elcn_val is '|| l_cwb_incrmt_elcn_val,951);
3958: --
3959: benutils.rt_typ_calc
3960: (p_rt_typ_cd => l_abr.rt_typ_cd
3961: ,p_val => l_vr_dflt_elcn_val
3962: ,p_val_2 => l_compensation_value
3963: ,p_calculated_val => l_cwb_dflt_val);
3971: l_abr.rndg_rl is not null) and
3972: p_perform_rounding_flg then
3973:
3974: if l_cwb_mn_elcn_val is not null then
3975: l_rounded_value := benutils.do_rounding
3976: (p_rounding_cd => l_abr.rndg_cd,
3977: p_rounding_rl => l_abr.rndg_rl,
3978: p_value => l_cwb_mn_elcn_val,
3979: p_effective_date => l_effective_date);
3980: l_cwb_mn_elcn_val := l_rounded_value;
3981: end if;
3982: --
3983: if l_cwb_mx_elcn_val is not null then
3984: l_rounded_value := benutils.do_rounding
3985: (p_rounding_cd => l_abr.rndg_cd,
3986: p_rounding_rl => l_abr.rndg_rl,
3987: p_value => l_cwb_mx_elcn_val,
3988: p_effective_date => l_effective_date);
3989: l_cwb_mx_elcn_val := l_rounded_value;
3990: end if;
3991: --
3992: if l_cwb_dflt_val is not null then
3993: l_rounded_value := benutils.do_rounding
3994: (p_rounding_cd => l_abr.rndg_cd,
3995: p_rounding_rl => l_abr.rndg_rl,
3996: p_value => l_cwb_dflt_val,
3997: p_effective_date => l_effective_date);