[Home] [Help]
863: Begin
864: --
865: -- Set up the defined balances for all NI balances _PER_TD_DIR_YTD
866: if g_defined_director_set = FALSE then
867: hr_utility.trace('Calling set_defined_balances');
868: set_defined_balances('_PER_TD_DIR_YTD');
869: end if;
870: hr_utility.trace('example defbal:'||to_char(g_comp_min_ers_defbal));
871: --
866: if g_defined_director_set = FALSE then
867: hr_utility.trace('Calling set_defined_balances');
868: set_defined_balances('_PER_TD_DIR_YTD');
869: end if;
870: hr_utility.trace('example defbal:'||to_char(g_comp_min_ers_defbal));
871: --
872: if g_ni_able_id is null then
873: select balance_type_id
874: into g_ni_able_id
1067: BEGIN
1068: pay_balance_pkg.get_value(p_assignment_action_id => p_assignment_action_id,
1069: p_defined_balance_lst => l_balance_list);
1070: EXCEPTION WHEN NO_DATA_FOUND THEN
1071: hr_utility.trace('No data found on call to pay_balance_pkg');
1072: null;
1073: END;
1074: --
1075: -- Set the Global variables to the values just retrieved from the bulk call to
1980: Begin
1981: --
1982: -- Set up the defined balances for all NI balances _PER_NI_PTD
1983: if g_defined_ptd_set = FALSE then
1984: hr_utility.trace('Calling set_defined_balances');
1985: set_defined_balances('_PER_NI_PTD');
1986: end if;
1987: hr_utility.trace('example defbal:'||to_char(g_comp_min_ers_defbal));
1988: --
1983: if g_defined_ptd_set = FALSE then
1984: hr_utility.trace('Calling set_defined_balances');
1985: set_defined_balances('_PER_NI_PTD');
1986: end if;
1987: hr_utility.trace('example defbal:'||to_char(g_comp_min_ers_defbal));
1988: --
1989: if g_ni_able_id is null then
1990: select balance_type_id
1991: into g_ni_able_id
2024: --
2025: l_stat_period_start := hr_gbnidir.STATUTORY_PERIOD_START_DATE(p_assignment_action_id);
2026: g_statutory_period_start_date := l_stat_period_start;
2027: g_assignment_action_id := p_assignment_action_id;
2028: hr_utility.trace('Assignment Action: '||to_char(g_assignment_action_id));
2029: --
2030: /* NI ABLE CURSOR WHICH REMAINS DUE TO USING VARIANT ROUTE AND STYLE */
2031: /* OF SELECTION FROM BALANCE TABLES. */
2032: select /*+ ORDERED INDEX(BAL_ASSACT PAY_ASSIGNMENT_ACTIONS_PK,
2176: BEGIN
2177: pay_balance_pkg.get_value(p_assignment_action_id => p_assignment_action_id,
2178: p_defined_balance_lst => l_balance_list);
2179: EXCEPTION WHEN NO_DATA_FOUND THEN
2180: hr_utility.trace('No data found on call to pay_balance_pkg');
2181: null;
2182: END;
2183: --
2184: -- Set the Global variables to the values just retrieved from the bulk
2376: -- L_ET: employers earnings threshold for the period.
2377: -- L_UEL: upper earnings threshold
2378: NI_ABLE NUMBER;
2379: begin
2380: hr_utility.set_location('hr_gbnidir.niable_bands', 10);
2381: NI_ABLE := 0; -- niable up to the UEL for current category
2382: NI_ABLE_LEL := 0; -- niable up to the LEL for current category if niable is >LEL
2383: NI_ABLE_EET := 0; -- Now obsolete, set to zero.
2384: NI_ABLE_ET := 0; -- niable between the LEL and the ET for category
2385: NI_ABLE_UEL := 0; -- niable bwteen the ET and UEL for category
2386: NI_UPPER := 0; -- earnings above the UEL for category, ie Above UEL (AUEL).
2387: NI_LOWER := 0; -- earnings below the LEL for category
2388: if l_ni_cat_able > 0 then
2389: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2390: NI_LOWER := greatest(0,(least(l_lel,l_niable)
2391: - (l_niable - l_ni_cat_able)));
2392: -- if Employees total earnings subject to NI is over the Lower Earnings limit
2393: -- work out how much of those LEL earnings are for Niable for the category
2395: -- highest priority category will attract the LEL earnings. Subsequent
2396: -- categories start their calculating at higher thresholds as NIABLE already
2397: -- calculated is taken into account.
2398: if l_tot_niable > l_lel then
2399: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2400: ni_able_lel := ni_lower;
2401: --
2402: ni_able_et := greatest(0,((least(l_et,l_niable)) -
2403: (greatest(l_lel,(l_niable - l_ni_cat_able)))));
2406: (greatest(l_et,(l_niable - l_ni_cat_able)))));
2407: ni_upper := greatest(0,(l_niable - (greatest(l_uel,
2408: (l_niable - l_ni_cat_able)))));
2409: ni_able := ni_able_lel + ni_able_et + ni_able_uel;
2410: hr_utility.trace('NIABLE_BANDS ni_able_lel='||to_char(ni_able_lel)||
2411: ' ni_able_et='||to_char(ni_able_et)||
2412: ' ni_able_uel='||to_char(ni_able_uel)||
2413: ' ni_upper='||to_char(ni_upper)||
2414: ' ni_lower='||to_char(ni_lower)||
2453: -- L_UAP: upper accrual point
2454:
2455: NI_ABLE NUMBER;
2456: begin
2457: hr_utility.set_location('hr_gbnidir.niable_bands', 10);
2458: NI_ABLE := 0; -- niable up to the UEL for current category
2459: NI_ABLE_LEL := 0; -- niable up to the LEL for current category if niable is >LEL
2460: NI_ABLE_EET := 0; -- Now obsolete, set to zero.
2461: NI_ABLE_ET := 0; -- niable between the LEL and the ET for category
2463: NI_ABLE_UEL := 0; -- niable between the UAP and UEL for category
2464: NI_UPPER := 0; -- earnings above the UEL for category, ie Above UEL (AUEL).
2465: NI_LOWER := 0; -- earnings below the LEL for category
2466: if l_ni_cat_able > 0 then
2467: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2468: NI_LOWER := greatest(0,(least(l_lel,l_niable)
2469: - (l_niable - l_ni_cat_able)));
2470: -- if Employees total earnings subject to NI is over the Lower Earnings limit
2471: -- work out how much of those LEL earnings are for Niable for the category
2473: -- highest priority category will attract the LEL earnings. Subsequent
2474: -- categories start their calculating at higher thresholds as NIABLE already
2475: -- calculated is taken into account.
2476: if l_tot_niable > l_lel then
2477: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2478: ni_able_lel := ni_lower;
2479: --
2480: ni_able_et := greatest(0,((least(l_et,l_niable)) -
2481: (greatest(l_lel,(l_niable - l_ni_cat_able)))));
2492: --EOY 08/09 Begin
2493: --ni_able := ni_able_lel + ni_able_et + ni_able_uel;
2494: ni_able := ni_able_lel + ni_able_et + ni_able_uap + ni_able_uel;
2495: --EOY 08/09 End
2496: hr_utility.trace('NIABLE_BANDS ni_able_lel='||to_char(ni_able_lel)||
2497: ' ni_able_et='||to_char(ni_able_et)||
2498: ' ni_able_uap='||to_char(ni_able_uap)||
2499: ' ni_able_uel='||to_char(ni_able_uel)||
2500: ' ni_upper='||to_char(ni_upper)||
2543: -- L_UAP: upper accrual point
2544:
2545: NI_ABLE NUMBER;
2546: begin
2547: hr_utility.set_location('hr_gbnidir.niable_bands', 10);
2548: NI_ABLE := 0; -- niable up to the UEL for current category
2549: NI_ABLE_LEL := 0; -- niable up to the LEL for current category if niable is >LEL
2550: NI_ABLE_ET := 0; -- niable between the LEL and the ET(PT) for category
2551: NI_ABLE_ERT := 0; -- niable between the ERT and the LEL for category
2554: NI_ABLE_UEL := 0; -- niable between the UAP and UEL for category
2555: NI_UPPER := 0; -- earnings above the UEL for category, ie Above UEL (AUEL).
2556: NI_LOWER := 0; -- earnings below the LEL for category
2557: if l_ni_cat_able > 0 then
2558: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2559: NI_LOWER := greatest(0,(least(l_lel,l_niable)
2560: - (l_niable - l_ni_cat_able)));
2561: -- if Employees total earnings subject to NI is over the Lower Earnings limit
2562: -- work out how much of those LEL earnings are for Niable for the category
2564: -- highest priority category will attract the LEL earnings. Subsequent
2565: -- categories start their calculating at higher thresholds as NIABLE already
2566: -- calculated is taken into account.
2567: if l_tot_niable > l_lel then
2568: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2569: ni_able_lel := ni_lower;
2570: --
2571: ni_able_et := greatest(0,((least(l_et,l_niable)) -
2572: (greatest(l_lel,(l_niable - l_ni_cat_able)))));
2586:
2587:
2588: ni_able := ni_able_lel + ni_able_et + ni_able_uap + ni_able_uel;
2589:
2590: hr_utility.trace('NIABLE_BANDS ni_able_lel='||to_char(ni_able_lel)||
2591: ' ni_able_et='||to_char(ni_able_et)||
2592: ' ni_able_ert='||to_char(ni_able_ert)||
2593: ' ni_able_uap='||to_char(ni_able_uap)||
2594: ' ni_able_er_uap='||to_char(ni_able_er_uap)||
2630: -- L_PT: employers primary earnings threshold for the period.
2631: -- L_UEL: upper earnings threshold
2632: NI_ABLE NUMBER;
2633: begin
2634: hr_utility.set_location('hr_gbnidir.niable_bands', 10);
2635: NI_ABLE := 0; -- niable up to the UEL for current category
2636: NI_ABLE_LEL := 0; -- niable up to the LEL for current category if niable is >LEL
2637: NI_ABLE_ET := 0; -- niable between the LEL and the ET for category
2638: NI_ABLE_ERT := 0; -- niable between the ERT and the LEL for category
2640: NI_ABLE_UEL := 0; -- niable bwteen the ET and UEL for category
2641: NI_UPPER := 0; -- earnings above the UEL for category, ie Above UEL (AUEL).
2642: NI_LOWER := 0; -- earnings below the LEL for category
2643: if l_ni_cat_able > 0 then
2644: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2645: NI_LOWER := greatest(0,(least(l_lel,l_niable)
2646: - (l_niable - l_ni_cat_able)));
2647: -- if Employees total earnings subject to NI is over the Lower Earnings limit
2648: -- work out how much of those LEL earnings are for Niable for the category
2650: -- highest priority category will attract the LEL earnings. Subsequent
2651: -- categories start their calculating at higher thresholds as NIABLE already
2652: -- calculated is taken into account.
2653: if l_tot_niable > l_lel then
2654: hr_utility.set_location('hr_gbnidir.niable_bands', 20);
2655: ni_able_lel := ni_lower;
2656: --
2657: ni_able_et := greatest(0,((least(l_et,l_niable)) -
2658: (greatest(l_lel,(l_niable - l_ni_cat_able)))));
2667: (greatest(l_et,(l_niable - l_ni_cat_able)))));
2668: ni_upper := greatest(0,(l_niable - (greatest(l_uel,
2669: (l_niable - l_ni_cat_able)))));
2670: ni_able := ni_able_lel + ni_able_et + ni_able_uel;
2671: hr_utility.trace('NIABLE_BANDS ni_able_lel='||to_char(ni_able_lel)||
2672: ' ni_able_et='||to_char(ni_able_et)||
2673: ' ni_able_ert='||to_char(ni_able_ert)||
2674: ' ni_able_uel='||to_char(ni_able_uel)||
2675: ' ni_upper='||to_char(ni_upper)||