[Home] [Help]
1: package body pay_balance_pkg as
2: -- $Header: pybaluex.pkb 120.38.12010000.2 2008/10/01 06:12:29 ankagarw ship $
3: -- Declare tables:
4: type con_name_array is table of ff_contexts.context_name%type
5: index by binary_integer;
325: l_compatibility VARCHAR2(30);
326: BEGIN
327: g_debug := hr_utility.debug_enabled;
328: IF g_debug THEN
329: l_proc := 'pay_balance_pkg.get_oracle_db_version';
330: hr_utility.set_location('Entering:'||l_proc, 5);
331: END IF;
332: -- check to see if the g_oracle_version already exists
333: IF g_oracle_version IS NULL THEN
731: --
732: if not g_defbal_cache.exists(p_defined_balance_id) then
733: --
734: if g_debug then
735: hr_utility.set_location ('pay_balance_pkg.load_defbal_cache', 10);
736: end if;
737: select DIM.dimension_type,
738: DIM.expiry_checking_code,
739: DIM.expiry_checking_level,
795: --
796: -- Get the contexts needed.
797: for ctrec in get_bal_contexts(p_defined_balance_id) loop
798: if g_debug then
799: hr_utility.set_location('pay_balance_pkg.load_defbal_cache', 10);
800: end if;
801: if ctrec.context_name = 'TAX_UNIT_ID' then
802: g_defbal_cache(p_defined_balance_id).tu_needed := TRUE;
803: end if;
881: end;
882: --
883: end if;
884: if g_debug then
885: hr_utility.set_location ('pay_balance_pkg.load_defbal_cache', 15);
886: end if;
887: --
888: p_defbal_rec := g_defbal_cache(p_defined_balance_id);
889: --
1045: l_context_found boolean;
1046: begin
1047: g_debug := hr_utility.debug_enabled;
1048: if g_debug then
1049: hr_utility.set_location ('pay_balance_pkg.set_context', 10);
1050: hr_utility.trace('p_context_name : ' || p_context_name);
1051: hr_utility.trace('p_context_value : ' || p_context_value);
1052: end if;
1053: l_context_found := FALSE;
1073: --
1074: -- its a new context, insert into tables
1075: --
1076: if g_debug then
1077: hr_utility.set_location ('pay_balance_pkg.set_context', 20);
1078: end if;
1079: select context_id,
1080: data_type
1081: into l_context_id,
1290: --
1291: begin
1292: g_debug := hr_utility.debug_enabled;
1293: if g_debug then
1294: hr_utility.set_location ('pay_balance_pkg.run_db_item', 1);
1295: hr_utility.trace ('DB_item = ' || p_database_name);
1296: hr_utility.trace ('bus_grp = ' || to_char (p_bus_group_id));
1297: hr_utility.trace ('leg_code = ' || p_legislation_code);
1298: end if;
1359: -- Raise an error, as there are contexts that have not been set up in
1360: -- the pl/sql tables that are required by the route.
1361: --
1362: if g_debug then
1363: hr_utility.set_location ('pay_balance_pkg.run_db_item', 10);
1364: end if;
1365: select context_name
1366: into l_context_name
1367: from ff_contexts
1472: -- 6. Get the sql value (providing there are rows returned)
1473: -- 7. Close the dynamic sql cursor
1474: --
1475: if g_debug then
1476: hr_utility.set_location ('pay_balance_pkg.run_db_item', 15);
1477: end if;
1478: sql_cursor := dbms_sql.open_cursor; -- step 1
1479: --
1480: if g_debug then
1477: end if;
1478: sql_cursor := dbms_sql.open_cursor; -- step 1
1479: --
1480: if g_debug then
1481: hr_utility.set_location ('pay_balance_pkg.run_db_item', 20);
1482: end if;
1483: dbms_sql.parse(sql_cursor, l_text, dbms_sql.v7); -- step 2
1484: --
1485: -- -- step 3
1515: -- Raise an error, as there are contexts that have not been set up in
1516: -- the pl/sql tables that are required by the route.
1517: --
1518: if g_debug then
1519: hr_utility.set_location ('pay_balance_pkg.run_db_item', 101);
1520: end if;
1521: select context_name
1522: into l_context_name
1523: from ff_contexts
1536: route_parameters_cache.par_val(l_par_num));
1537: end loop;
1538: --
1539: if g_debug then
1540: hr_utility.set_location ('pay_balance_pkg.run_db_item', 25);
1541: end if;
1542: dbms_sql.define_column (sql_cursor, 1, p_db_output, 240); -- step 4
1543: --
1544: if g_debug then
1541: end if;
1542: dbms_sql.define_column (sql_cursor, 1, p_db_output, 240); -- step 4
1543: --
1544: if g_debug then
1545: hr_utility.set_location ('pay_balance_pkg.run_db_item', 30);
1546: end if;
1547: l_rows := dbms_sql.execute_and_fetch (sql_cursor, false); -- step 5
1548: --
1549: if (l_rows = 1) then
1547: l_rows := dbms_sql.execute_and_fetch (sql_cursor, false); -- step 5
1548: --
1549: if (l_rows = 1) then
1550: if g_debug then
1551: hr_utility.set_location ('pay_balance_pkg.run_db_item', 35);
1552: end if;
1553: dbms_sql.column_value (sql_cursor, 1, p_db_output); -- step 6
1554: --
1555: if g_debug then
1552: end if;
1553: dbms_sql.column_value (sql_cursor, 1, p_db_output); -- step 6
1554: --
1555: if g_debug then
1556: hr_utility.set_location ('pay_balance_pkg.run_db_item', 40);
1557: end if;
1558: dbms_sql.close_cursor(sql_cursor); -- step 7
1559: --
1560: if g_debug then
1567: --
1568: -- its ok to not find a row
1569: --
1570: if g_debug then
1571: hr_utility.set_location ('pay_balance_pkg.run_db_item', 45);
1572: end if;
1573: p_db_output := null;
1574: else
1575: --
1904: -- 6. Get the sql value (providing there are rows returned)
1905: -- 7. Close the dynamic sql cursor
1906: --
1907: if g_debug then
1908: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 35);
1909: end if;
1910: sql_cursor := dbms_sql.open_cursor; -- step 1
1911: --
1912: if g_debug then
1909: end if;
1910: sql_cursor := dbms_sql.open_cursor; -- step 1
1911: --
1912: if g_debug then
1913: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 40);
1914: end if;
1915: dbms_sql.parse(sql_cursor, p_statement, dbms_sql.v7); -- step 2
1916: --
1917: -- -- step 3
1919: -- variables, starting with the contexts (B values).
1920: --
1921: for c1rec in ro_context (p_route_id) loop
1922: if g_debug then
1923: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 45);
1924: end if;
1925: l_count := 0;
1926: l_context_found := FALSE;
1927: while (l_count < no_rows_con_tab) loop
1934: -- Found a bind variable
1935: --
1936: if (con_type_tab (l_count) = 'D') then
1937: if g_debug then
1938: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 50);
1939: end if;
1940: dbms_sql.bind_variable
1941: (sql_cursor,
1942: con_name_tab(l_count),
1942: con_name_tab(l_count),
1943: fnd_date.canonical_to_date(ltrim(rtrim(con_value_tab (l_count)))));
1944: else
1945: if g_debug then
1946: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 55);
1947: end if;
1948: dbms_sql.bind_variable
1949: (sql_cursor,
1950: con_name_tab(l_count),
1960: -- Raise an error, as there are contexts that have not been set up in
1961: -- the pl/sql tables that are required by the route.
1962: --
1963: if g_debug then
1964: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 60);
1965: end if;
1966: select context_name
1967: into l_context_name
1968: from ff_contexts
1977: -- Now bind the where clause fillers (the 'U' values)
1978: --
1979: if (p_batch_mode = FALSE) then
1980: if g_debug then
1981: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 62);
1982: hr_utility.trace('p_balance_type_id = '||p_balance_type_id);
1983: end if;
1984: dbms_sql.bind_variable (sql_cursor, 'U1',
1985: p_balance_type_id);
1990: p_jur_lvl);
1991: end if;
1992: --
1993: if g_debug then
1994: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 65);
1995: end if;
1996: dbms_sql.define_column (sql_cursor, 1, l_db_output, 60); -- step 4
1997: if (p_batch_mode = TRUE) then
1998: dbms_sql.define_column (sql_cursor, 2, l_balance_type_id);
1998: dbms_sql.define_column (sql_cursor, 2, l_balance_type_id);
1999: end if;
2000: --
2001: if g_debug then
2002: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 70);
2003: end if;
2004: ignore := dbms_sql.execute(sql_cursor);
2005: --
2006: l_retrieve := TRUE;
2009: --
2010: l_rows := dbms_sql.fetch_rows(sql_cursor);
2011: --
2012: if g_debug then
2013: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 80);
2014: end if;
2015: --
2016: if (l_rows > 0) then
2017: --
2015: --
2016: if (l_rows > 0) then
2017: --
2018: if g_debug then
2019: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 85);
2020: end if;
2021: dbms_sql.column_value (sql_cursor, 1, l_db_output);
2022: if (p_batch_mode = TRUE) then
2023: dbms_sql.column_value (sql_cursor, 2, l_balance_type_id);
2039: --
2040: -- Have we already got a value
2041: --
2042: if g_debug then
2043: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 87);
2044: end if;
2045: if (l_value_retrieved = TRUE) then
2046: if g_debug then
2047: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 90);
2043: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 87);
2044: end if;
2045: if (l_value_retrieved = TRUE) then
2046: if g_debug then
2047: hr_utility.set_location ('pay_balance_pkg.process_balance_statement', 90);
2048: end if;
2049: dbms_sql.close_cursor(sql_cursor);
2050: hr_utility.set_message(801, 'HR_7273_PAY_MORE_THAN_1_ROW');
2051: hr_utility.raise_error;
2081: --
2082: When Others Then
2083: l_error_text := sqlerrm;
2084: if g_debug then
2085: Hr_Utility.Set_Location('pay_balance_pkg.process_balance_statement', 100);
2086: end if;
2087: If (dbms_sql.is_open(sql_cursor)) then
2088: if g_debug then
2089: Hr_Utility.Set_Location('pay_balance_pkg.process_balance_statement', 105);
2085: Hr_Utility.Set_Location('pay_balance_pkg.process_balance_statement', 100);
2086: end if;
2087: If (dbms_sql.is_open(sql_cursor)) then
2088: if g_debug then
2089: Hr_Utility.Set_Location('pay_balance_pkg.process_balance_statement', 105);
2090: end if;
2091: dbms_sql.close_cursor(sql_cursor);
2092: End If;
2093: hr_utility.set_message(801, 'HR_7276_PAY_FAILED_DB_ITEM');
2154: l_start_ptr number;
2155: --
2156: begin
2157: if g_debug then
2158: hr_utility.set_location ('pay_balance_pkg.run_rr_route', 1);
2159: end if;
2160: --
2161: -- If we are in batch mode then initialise the returns
2162: --
2199: -- Raise an error, as there are contexts that have not been set up in
2200: -- the pl/sql tables that are required by the route.
2201: --
2202: if g_debug then
2203: hr_utility.set_location ('pay_balance_pkg.run_rr_route', 10);
2204: end if;
2205: select context_name
2206: into l_context_name
2207: from ff_contexts
2233: --
2234: if (cached = FALSE) then
2235: cached := TRUE;
2236: if g_debug then
2237: hr_utility.set_location('pay_balance_pkg.run_rr_route', 20);
2238: end if;
2239: l_ora_db_vers := get_oracle_db_version;
2240: if (nvl(l_ora_db_vers, 0) < 9.0) then
2241: g_low_volume := 'Y';
2390: l_par_num number;
2391: --
2392: BEGIN
2393: if g_debug then
2394: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 1);
2395: hr_utility.trace ('User name: '|| p_user_name);
2396: hr_utility.trace ('bus_grp: ' || to_char (p_business_group_id));
2397: hr_utility.trace ('leg_code: ' || p_legislation_code);
2398: end if;
2453: -- Raise an error, as there are contexts that have not been set up in
2454: -- the pl/sql tables that are required by the route.
2455: --
2456: if g_debug then
2457: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 10);
2458: end if;
2459: select context_name
2460: into l_context_name
2461: from ff_contexts
2504: ' */ NVL(SUM(prb.balance_value),0) FROM ' || l_text;
2505: end if;
2506: --
2507: if g_debug then
2508: hr_utility.set_location('pay_balance_pkg.get_run_balance', 15);
2509: end if;
2510: --
2511: elsif p_route_type = 'RR' then
2512: --
2512: --
2513: -- Should never get here since all RRs are handled by run_rr_route now.
2514: --
2515: if g_debug then
2516: hr_utility.set_location('pay_balance_pkg.get_run_balance', 20);
2517: end if;
2518: --
2519: hr_general.assert_condition(false);
2520: --
2532: -- 6. Get the sql value (providing there are rows returned)
2533: -- 7. Close the dynamic sql cursor
2534: --
2535: if g_debug then
2536: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 35);
2537: end if;
2538: sql_cursor := dbms_sql.open_cursor; -- step 1
2539: --
2540: if g_debug then
2537: end if;
2538: sql_cursor := dbms_sql.open_cursor; -- step 1
2539: --
2540: if g_debug then
2541: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 40);
2542: end if;
2543: dbms_sql.parse(sql_cursor, l_text, dbms_sql.v7); -- step 2
2544: --
2545: -- -- step 3
2547: -- variables, starting with the contexts (B values).
2548: --
2549: for l_cxt_num in 1..route_contexts_cache.sz loop
2550: if g_debug then
2551: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 45);
2552: end if;
2553: l_count := 0;
2554: l_context_found := FALSE;
2555: while (l_count < no_rows_con_tab) loop
2562: -- Found a bind variable
2563: --
2564: if (con_type_tab (l_count) = 'D') then
2565: if g_debug then
2566: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 50);
2567: end if;
2568: dbms_sql.bind_variable
2569: (sql_cursor,
2570: con_name_tab(l_count),
2570: con_name_tab(l_count),
2571: fnd_date.canonical_to_date(ltrim(rtrim(con_value_tab (l_count)))));
2572: else
2573: if g_debug then
2574: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 55);
2575: end if;
2576: dbms_sql.bind_variable
2577: (sql_cursor,
2578: con_name_tab(l_count),
2588: -- Raise an error, as there are contexts that have not been set up in
2589: -- the pl/sql tables that are required by the route.
2590: --
2591: if g_debug then
2592: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 60);
2593: end if;
2594: select context_name
2595: into l_context_name
2596: from ff_contexts
2605: -- Now bind the where clause fillers (the 'U' values)
2606: --
2607: for l_par_num in 1..route_parameters_cache.sz loop
2608: if g_debug then
2609: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 62);
2610: end if;
2611: dbms_sql.bind_variable (sql_cursor, 'U'||to_char(route_parameters_cache.seq_no(l_par_num)),
2612: route_parameters_cache.par_val(l_par_num));
2613: end loop;
2612: route_parameters_cache.par_val(l_par_num));
2613: end loop;
2614: --
2615: if g_debug then
2616: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 65);
2617: end if;
2618: dbms_sql.define_column (sql_cursor, 1, p_db_output, 80); -- step 4
2619: --
2620: if g_debug then
2617: end if;
2618: dbms_sql.define_column (sql_cursor, 1, p_db_output, 80); -- step 4
2619: --
2620: if g_debug then
2621: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 70);
2622: end if;
2623: l_rows := dbms_sql.execute_and_fetch (sql_cursor, false); -- step 5
2624: --
2625: if (l_rows = 1) then
2623: l_rows := dbms_sql.execute_and_fetch (sql_cursor, false); -- step 5
2624: --
2625: if (l_rows = 1) then
2626: if g_debug then
2627: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 75);
2628: end if;
2629: dbms_sql.column_value (sql_cursor, 1, p_db_output); -- step 6
2630: --
2631: if g_debug then
2628: end if;
2629: dbms_sql.column_value (sql_cursor, 1, p_db_output); -- step 6
2630: --
2631: if g_debug then
2632: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 80);
2633: end if;
2634: dbms_sql.close_cursor(sql_cursor); -- step 7
2635: --
2636: if g_debug then
2643: --
2644: -- its ok to not find a row
2645: --
2646: if g_debug then
2647: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 85);
2648: end if;
2649: p_db_output := null;
2650: else
2651: --
2661: -- More than 1 row have been returned. We must error as DB items can
2662: -- only return 1 row.
2663: --
2664: if g_debug then
2665: hr_utility.set_location ('pay_balance_pkg.get_run_balance', 95);
2666: end if;
2667: dbms_sql.close_cursor(sql_cursor);
2668: hr_utility.set_message(801, 'HR_7273_PAY_MORE_THAN_1_ROW');
2669: hr_utility.raise_error;
2677: --
2678: When Others Then
2679: l_error_text := sqlerrm;
2680: if g_debug then
2681: Hr_Utility.Set_Location('pay_balance_pkg.get_run_balance', 100);
2682: end if;
2683: If (dbms_sql.is_open(sql_cursor)) then
2684: if g_debug then
2685: Hr_Utility.Set_Location('pay_balance_pkg.get_run_balance', 105);
2681: Hr_Utility.Set_Location('pay_balance_pkg.get_run_balance', 100);
2682: end if;
2683: If (dbms_sql.is_open(sql_cursor)) then
2684: if g_debug then
2685: Hr_Utility.Set_Location('pay_balance_pkg.get_run_balance', 105);
2686: end if;
2687: dbms_sql.close_cursor(sql_cursor);
2688: End If;
2689: hr_utility.set_message(801, 'HR_7276_PAY_FAILED_DB_ITEM');
2789: l_jur_lvl pay_balance_types.jurisdiction_level%type;
2790: --
2791: BEGIN
2792: if g_debug then
2793: hr_utility.set_location('Entering pay_balance_pkg.get_run_bal', 10);
2794: end if;
2795: --
2796: if (p_route_type = 'RR') then
2797: --
2795: --
2796: if (p_route_type = 'RR') then
2797: --
2798: if g_debug then
2799: hr_utility.set_location('Entering pay_balance_pkg.get_run_bal', 15);
2800: end if;
2801: select pdb.balance_type_id,
2802: pdr.route_id,
2803: pdr.balance_type_column,
2841: fetch get_vals into l_user_name, l_business_group_id, l_legislation_code;
2842: close get_vals;
2843: --
2844: if g_debug then
2845: hr_utility.set_location('pay_balance_pkg.get_run_bal', 20);
2846: hr_utility.trace('l_user_entity_name is: '||l_user_name);
2847: end if;
2848: l_balance_val := get_run_balance(l_user_name
2849: ,l_business_group_id
2879: l_defbal_rec t_def_bal_rec;
2880: --
2881: begin
2882: if g_debug then
2883: hr_utility.set_location ('Entering: pay_balance_pkg.get_rr_value', 5);
2884: end if;
2885: --
2886: -- First load the cache
2887: load_defbal_cache(p_defined_balance_id,
2888: l_defbal_rec);
2889: --
2890: if l_defbal_rec.rr_ptr is not null then
2891: if g_debug then
2892: hr_utility.set_location ('Entering: pay_balance_pkg.get_rr_value', 10);
2893: end if;
2894: l_balance_value := get_run_balance(p_defined_balance_id
2895: ,g_dimrou_cache(l_defbal_rec.rr_ptr).priority
2896: ,g_dimrou_cache(l_defbal_rec.rr_ptr).route_type);
2896: ,g_dimrou_cache(l_defbal_rec.rr_ptr).route_type);
2897: else
2898: --
2899: if g_debug then
2900: hr_utility.set_location ('Entering: pay_balance_pkg.get_rr_value', 20);
2901: end if;
2902: if (l_defbal_rec.start_rb_ptr is not null) then
2903: hr_general.assert_condition(false);
2904: else
2902: if (l_defbal_rec.start_rb_ptr is not null) then
2903: hr_general.assert_condition(false);
2904: else
2905: if g_debug then
2906: hr_utility.set_location ('Entering: pay_balance_pkg.get_rr_value', 30);
2907: end if;
2908: l_balance_value := fnd_number.canonical_to_number(run_db_item(p_defined_balance_id));
2909: end if;
2910: end if;
2912: -- Setup the return values
2913: --
2914: p_balance_value := l_balance_value;
2915: if g_debug then
2916: hr_utility.set_location ('Leaving: pay_balance_pkg.get_rr_value', 45);
2917: end if;
2918: --
2919: end get_rr_value;
2920: --
3072: l_position number;
3073: --
3074: begin
3075: if g_debug then
3076: hr_utility.set_location ('Entering: pay_balance_pkg.get_rb_value', 5);
3077: end if;
3078: --
3079: -- First load the cache
3080: load_defbal_cache(p_defined_balance_id,
3095: p_asg_action_id,
3096: l_valid);
3097: --
3098: if g_debug then
3099: hr_utility.set_location ('pay_balance_pkg.get_rb_value', 20);
3100: end if;
3101: --
3102: -- now know that run balance exists and is valid, so call run_db_item to
3103: -- return the balance_value.
3103: -- return the balance_value.
3104: --
3105: if l_valid = 'V' then
3106: if g_debug then
3107: hr_utility.set_location ('pay_balance_pkg.get_rb_value', 25);
3108: end if;
3109: l_balance_value := get_run_balance(p_defined_balance_id
3110: ,g_dimrou_cache(l_position).priority
3111: ,g_dimrou_cache(l_position).route_type);
3117: end loop;
3118: end if;
3119: --
3120: if g_debug then
3121: hr_utility.set_location ('pay_balance_pkg.get_rb_value', 35);
3122: end if;
3123: --
3124: --
3125: -- Setup the return values
3126: --
3127: p_found := l_balval_found;
3128: p_balance_value := l_balance_value;
3129: if g_debug then
3130: hr_utility.set_location ('Leaving: pay_balance_pkg.get_rb_value', 45);
3131: end if;
3132: --
3133: end get_rb_value;
3134: --
3178: l_error_text varchar2(200); -- used for sql error messages
3179: l_value_found number;
3180: begin
3181: if g_debug then
3182: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 1);
3183: hr_utility.trace ('Expiry check level = ' || p_expiry_checking_level);
3184: hr_utility.trace ('Expiry checking code = ' || p_expiry_checking_code);
3185: end if;
3186: if (p_expiry_checking_level = 'N') then
3193: --
3194: -- get the payroll_action_id for the balance (ie. owner):
3195: --
3196: if g_debug then
3197: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 10);
3198: end if;
3199: select PAY.payroll_action_id,
3200: PAY.effective_date
3201: into l_bal_owner_pay_action,
3207: --
3208: -- get the actual payroll information for this assignment action:
3209: --
3210: if g_debug then
3211: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 15);
3212: end if;
3213: select PAY.payroll_action_id,
3214: PAY.effective_date
3215: into l_payroll_action,
3274: -- 5. Get the variable value (providing there are rows returned)
3275: -- 6. Close the dynamic sql cursor
3276: --
3277: if g_debug then
3278: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 20);
3279: end if;
3280: sql_cursor := dbms_sql.open_cursor; -- step 1
3281: --
3282: if g_debug then
3279: end if;
3280: sql_cursor := dbms_sql.open_cursor; -- step 1
3281: --
3282: if g_debug then
3283: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 25);
3284: end if;
3285: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
3286: --
3287: if g_debug then
3284: end if;
3285: dbms_sql.parse(sql_cursor, l_expiry_chk_str, dbms_sql.v7); -- step 2
3286: --
3287: if g_debug then
3288: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 30);
3289: end if;
3290: dbms_sql.bind_variable(sql_cursor, 'l_bal_owner_pay_action', -- step 3:
3291: l_bal_owner_pay_action);
3292: --
3316: dbms_sql.bind_variable(sql_cursor, 'l_expiry_information',
3317: l_expiry_information);
3318: --
3319: if g_debug then
3320: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 35);
3321: end if;
3322: l_rows := dbms_sql.execute (sql_cursor); -- step 4
3323: --
3324: if (l_rows = 1) then
3322: l_rows := dbms_sql.execute (sql_cursor); -- step 4
3323: --
3324: if (l_rows = 1) then
3325: if g_debug then
3326: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 40);
3327: end if;
3328: dbms_sql.variable_value(sql_cursor, 'l_expiry_information', -- step 5
3329: l_expiry_information);
3330: --
3328: dbms_sql.variable_value(sql_cursor, 'l_expiry_information', -- step 5
3329: l_expiry_information);
3330: --
3331: if g_debug then
3332: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 45);
3333: end if;
3334: dbms_sql.close_cursor(sql_cursor); -- step 6
3335: elsif (l_rows = 0) then
3336: dbms_sql.close_cursor(sql_cursor);
3342: -- More than 1 row has been returned. We must error as package call can
3343: -- only return 1 row, so this condition should never occur !
3344: --
3345: if g_debug then
3346: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 111);
3347: end if;
3348: dbms_sql.close_cursor(sql_cursor);
3349: hr_utility.raise_error;
3350: end if;
3357: -- payroll action.
3358: --
3359: if (p_expiry_checking_level in ('A', 'P', 'E')) then
3360: if g_debug then
3361: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 50);
3362: end if;
3363: p_balance_expired := l_expiry_information;
3364: else -- date level
3365: if g_debug then
3362: end if;
3363: p_balance_expired := l_expiry_information;
3364: else -- date level
3365: if g_debug then
3366: hr_utility.set_location ('pay_balance_pkg.check_bal_expiry_internal', 55);
3367: end if;
3368: l_jul_effect_date := to_number (to_char (l_effective_date, 'J'));
3369: --
3370: if (l_expiry_information < l_jul_effect_date) then
3611: while (l_count < no_rows_con_tab) loop
3612: if (con_name_tab (l_count) = 'JURISDICTION_CODE') then
3613: --
3614: if g_debug then
3615: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 15)
3616: ;
3617: end if;
3618: loc_value_tab (l_count) := substr (loc_value_tab(l_count), 1,
3619: p_defbal_rec.jurisdiction_lvl);
3638: END IF;
3639: --
3640: LOOP
3641: if g_debug then
3642: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 20);
3643: end if;
3644: --
3645: IF p_defbal_rec.dimension_type = 'A' THEN
3646: FETCH bal_contexts_asg INTO l_latest_balance_id,
3672: l_bal_con_str := null;
3673: l_cursor_executed := FALSE;
3674: for c2rec in bal_context_values (l_latest_balance_id) loop
3675: if g_debug then
3676: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 25);
3677: end if;
3678: --
3679: -- Try to find the context:
3680: --
3740: -- Else carry on to the next latest_balance_id.
3741: --
3742: if ((l_found_all_contexts = TRUE) OR (l_cursor_executed = FALSE)) then
3743: if g_debug then
3744: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 35);
3745: end if;
3746: l_balance_found := TRUE;
3747: exit; -- exit c1rec
3748: end if;
3756: --
3757: -- If we could not find a latest balance, then derive from ff_routes
3758: --
3759: if g_debug then
3760: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 37);
3761: end if;
3762: if (l_balance_found = TRUE) then
3763: if g_debug then
3764: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 38);
3760: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 37);
3761: end if;
3762: if (l_balance_found = TRUE) then
3763: if g_debug then
3764: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 38);
3765: hr_utility.trace('OWN SEQ '||l_bal_owner_act_seq);
3766: hr_utility.trace('CURR SEQ '||l_bal_asg_act_seq);
3767: end if;
3768: --
3792: -- O.K. We cannot use the latest balance value, now check if the
3793: -- expired details can by used.
3794: --
3795: if g_debug then
3796: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 140
3797: );
3798: end if;
3799: select count(*)
3800: into l_num_of_runs
3816: -- in the specified period.
3817: --
3818: if l_num_of_runs = 1 then
3819: if g_debug then
3820: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value',
3821: 150);
3822: end if;
3823: l_bal_owner_asg_action := l_bal_expired_action;
3824: l_balance_value := l_bal_expired_value;
3825: l_expiry_needed := TRUE;
3826: else
3827: -- check if can use previous balance value
3828: if g_debug then
3829: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value',
3830: 160);
3831: end if;
3832: select count(*)
3833: into l_num_of_runs
3843: and l_bal_asg_act_seq;
3844: --
3845: if l_num_of_runs = 1 then
3846: if g_debug then
3847: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value'
3848: , 170);
3849: end if;
3850: l_bal_owner_asg_action := l_prev_action;
3851: l_balance_value := l_prev_value;
3863: end if;
3864: --
3865: end if;
3866: if g_debug then
3867: hr_utility.set_location ('pay_balance_pkg.get_old_latest_bal_value', 55);
3868: end if;
3869: --
3870: if (l_expiry_needed = TRUE) then
3871: --
4066: --
4067: l_cnt := l_cnt + 1;
4068: --
4069: if g_debug then
4070: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value', 38);
4071: hr_utility.trace('OWN SEQ '||lbrec.owner_action_seq);
4072: hr_utility.trace('CURR SEQ '||lbrec.current_action_seq);
4073: end if;
4074: --
4099: -- O.K. We cannot use the latest balance value, now check if the
4100: -- expired details can by used.
4101: --
4102: if g_debug then
4103: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value', 140
4104: );
4105: end if;
4106: select count(*)
4107: into l_num_of_runs
4123: -- in the specified period.
4124: --
4125: if l_num_of_runs = 1 then
4126: if g_debug then
4127: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value',
4128: 150);
4129: end if;
4130: l_bal_owner_asg_action := lbrec.expired_assignment_action_id;
4131: l_balance_value := lbrec.expired_value;
4133: l_expiry_needed := TRUE;
4134: else
4135: -- check if can use previous balance value
4136: if g_debug then
4137: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value',
4138: 160);
4139: end if;
4140: select count(*)
4141: into l_num_of_runs
4151: and lbrec.current_action_seq;
4152: --
4153: if l_num_of_runs = 1 then
4154: if g_debug then
4155: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value'
4156: , 170);
4157: end if;
4158: l_bal_owner_asg_action := lbrec.prev_assignment_action_id;
4159: l_balance_value := lbrec.prev_balance_value;
4182: l_expiry_date := lbrec.expiry_date;
4183: --
4184: end if;
4185: if g_debug then
4186: hr_utility.set_location ('pay_balance_pkg.get_new_latest_bal_value', 55);
4187: end if;
4188: --
4189: if (l_expiry_needed = TRUE) then
4190: --
5388: --
5389: begin
5390: g_debug := hr_utility.debug_enabled;
5391: if g_debug then
5392: hr_utility.set_location ('pay_balance_pkg.get_value - ACTION MODE', 1);
5393: hr_utility.trace ('def_bal_id = ' || to_char(p_defined_balance_id));
5394: hr_utility.trace ('asg_action_id = ' || to_char(p_assignment_action_id));
5395: end if;
5396: --
5525: --
5526: begin
5527: g_debug := hr_utility.debug_enabled;
5528: if g_debug then
5529: hr_utility.set_location ('pay_balance_pkg.get_value - DATE MODE', 1);
5530: hr_utility.trace ('def_bal_id = ' || to_char(p_defined_balance_id));
5531: hr_utility.trace ('Assign_id = ' || to_char(p_assignment_id));
5532: hr_utility.trace ('V_date = ' || to_char (p_virtual_date));
5533: end if;
5543: --
5544: -- get the payroll information
5545: --
5546: if g_debug then
5547: hr_utility.set_location ('pay_balance_pkg.get_value', 10);
5548: end if;
5549: select ASSIGN.payroll_id,
5550: ASSIGN.business_group_id,
5551: PAYROLL.consolidation_set_id
5564: -- If there is a time period id, then get it, else use a null value:
5565: --
5566: begin
5567: if g_debug then
5568: hr_utility.set_location ('pay_balance_pkg.get_value', 12);
5569: end if;
5570: select TIMEP.time_period_id
5571: into l_time_period_id
5572: from per_time_periods TIMEP
5575: and TIMEP.end_date;
5576: exception
5577: when no_data_found then
5578: if g_debug then
5579: hr_utility.set_location ('pay_balance_pkg.get_value', 13);
5580: end if;
5581: l_time_period_id := null;
5582: end;
5583: --
5589: --
5590: -- insert a temporary row into pay_payroll_actions
5591: --
5592: if g_debug then
5593: hr_utility.set_location ('pay_balance_pkg.get_value', 20);
5594: end if;
5595: insert into pay_payroll_actions
5596: (payroll_action_id,
5597: action_type,
5619: --
5620: -- now insert the assignment action:
5621: --
5622: if g_debug then
5623: hr_utility.set_location ('pay_balance_pkg.get_value', 25);
5624: end if;
5625: hrassact.inassact (pactid => l_pay_action_id,
5626: asgid => p_assignment_id,
5627: p_asg_lock => l_asg_lock);
5628: --
5629: -- retrieve the assignment action id:
5630: --
5631: if g_debug then
5632: hr_utility.set_location ('pay_balance_pkg.get_value', 30);
5633: end if;
5634: select assignment_action_id
5635: into l_ass_action_id
5636: from pay_assignment_actions
5960: --
5961: BEGIN
5962: g_debug := hr_utility.debug_enabled;
5963: if g_debug then
5964: hr_utility.set_location('Entering: pay_balance_pkg.invalidate_run_balances',5);
5965: end if;
5966: --
5967: if HRASSACT.CHECK_LATEST_BALANCES = TRUE then
5968: --
5988: update pay_balance_validation
5989: set run_balance_status = 'I'
5990: where defined_balance_id = each_row.defined_balance_id;
5991: if g_debug then
5992: hr_utility.set_location('pay_balance_pkg.invalidate_run_balances', 15);
5993: end if;
5994: end if;
5995: end loop;
5996: if g_debug then
5993: end if;
5994: end if;
5995: end loop;
5996: if g_debug then
5997: hr_utility.set_location('Leaving: pay_balance_pkg.invalidate_run_balances', 20);
5998: end if;
5999: --
6000: end if;
6001: --
6016: --
6017: BEGIN
6018: g_debug := hr_utility.debug_enabled;
6019: if g_debug then
6020: hr_utility.set_location('Entering: pay_balance_pkg.invalidate_run_balances',5);
6021: end if;
6022: for each_row in get_def_bals(p_balance_type_id) loop
6023: --
6024: update pay_balance_validation
6024: update pay_balance_validation
6025: set run_balance_status = 'I'
6026: where defined_balance_id = each_row.defined_balance_id;
6027: if g_debug then
6028: hr_utility.set_location('pay_balance_pkg.invalidate_run_balances', 15);
6029: end if;
6030: end loop;
6031: if g_debug then
6032: hr_utility.set_location('Leaving: pay_balance_pkg.invalidate_run_balances', 20);
6028: hr_utility.set_location('pay_balance_pkg.invalidate_run_balances', 15);
6029: end if;
6030: end loop;
6031: if g_debug then
6032: hr_utility.set_location('Leaving: pay_balance_pkg.invalidate_run_balances', 20);
6033: end if;
6034: END invalidate_run_balances;
6035: --------------------------------------------------------------------------
6036: -- get_run_result_info
6214: current_ptr number;
6215: begin
6216: --
6217: if g_debug then
6218: hr_utility.set_location('Entering: pay_balance_pkg.search_rb_cache', 5);
6219: end if;
6220: if (p_grp_rb_ptr_list.exists(p_defined_balanceid)) then
6221: --
6222: current_ptr := p_grp_rb_ptr_list(p_defined_balanceid);
6242: then
6243: --
6244: l_found := TRUE;
6245: if g_debug then
6246: hr_utility.set_location('pay_balance_pkg.search_rb_cache', 10);
6247: end if;
6248: --
6249: else
6250: --
6250: --
6251: prev_ptr := current_ptr;
6252: current_ptr := p_int_mlt_thrd_cache(current_ptr).next;
6253: if g_debug then
6254: hr_utility.set_location('pay_balance_pkg.search_rb_cache', 15);
6255: end if;
6256: --
6257: end if;
6258: --
6268: p_current_ptr := current_ptr;
6269: p_previous_ptr := prev_ptr;
6270: --
6271: if g_debug then
6272: hr_utility.set_location('Leaving: pay_balance_pkg.search_rb_cache', 20);
6273: end if;
6274: --
6275: end search_rb_cache;
6276: --
6348: --
6349: if p_amount <> 0 then
6350: --
6351: if g_debug then
6352: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 25);
6353: end if;
6354: --
6355: if not p_multi_thread then -- i.e. if in single thread mode
6356: --
6385: --
6386: else
6387: close get_row_to_update;
6388: if g_debug then
6389: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 40);
6390: hr_utility.trace('p_grp_def_bal_id: '||to_char(p_grp_def_bal_id));
6391: hr_utility.trace('l_grp_run_bal_val: '||to_char(l_grp_run_bal_val));
6392: hr_utility.trace('contrib amt: '||to_char(p_amount));
6393: end if;
6425: --
6426: if (l_found = TRUE) then
6427: --
6428: if g_debug then
6429: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 50);
6430: hr_utility.trace('MULTI THREADED UPDATE');
6431: end if;
6432: update pay_run_balances
6433: set balance_value = balance_value - p_amount
6435: --
6436: else -- no row for this balance
6437: if g_debug then
6438: hr_utility.trace('MULTI THREADED INSERT');
6439: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 55);
6440: end if;
6441: --
6442: --
6443: select pay_run_balances_s.nextval
6491: ,p_source_number2
6492: ,p_organization_id
6493: );
6494: if g_debug then
6495: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 60);
6496: end if;
6497: --
6498: -- cache the row details
6499: --
6524: p_int_mlt_thrd_cache(l_previous_ptr).next := l_cache_ct;
6525: end if;
6526: --
6527: if g_debug then
6528: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 65);
6529: end if;
6530: --
6531: end if;
6532: --
6532: --
6533: end if;
6534: else -- not > 0
6535: if g_debug then
6536: hr_utility.set_location('pay_balance_pkg.subtract_from_grp_bal', 70);
6537: end if;
6538: end if;
6539: --
6540: end subtract_from_grp_bal;
6622: --
6623: BEGIN
6624: g_debug := hr_utility.debug_enabled;
6625: if g_debug then
6626: hr_utility.set_location('Entering: pay_balance_pkg.remove_asg_contribs', 5);
6627: end if;
6628: --
6629: if (p_payroll_action_id <> g_payroll_action) then
6630: --
6786: l_cnt := l_cnt + 1;
6787: --
6788: end loop;
6789: --
6790: pay_balance_pkg.get_value (p_assignment_action_id,
6791: g_rlb_asg_defbals,
6792: l_contexts,
6793: FALSE,
6794: FALSE,
6840: end if;
6841: --
6842: end if;
6843: if g_debug then
6844: hr_utility.set_location('Leaving: pay_balance_pkg.remove_asg_contribs', 80);
6845: end if;
6846: END remove_asg_contribs;
6847: --
6848: --------------------------------------------------------------------------
6960: begin
6961: --
6962: --
6963: if g_debug then
6964: hr_utility.set_location('pay_balance_pkg.create_run_balance', 30);
6965: hr_utility.trace('Getting Balance'||p_def_bal_id);
6966: end if;
6967: /* First setup the contexts */
6968: if (nvl(p_contexts.tax_unit_id, -999) <> nvl(p_contexts.prv_tax_unit_id, -999)) then
6965: hr_utility.trace('Getting Balance'||p_def_bal_id);
6966: end if;
6967: /* First setup the contexts */
6968: if (nvl(p_contexts.tax_unit_id, -999) <> nvl(p_contexts.prv_tax_unit_id, -999)) then
6969: pay_balance_pkg.set_context('TAX_UNIT_ID', p_contexts.tax_unit_id);
6970: p_contexts.prv_tax_unit_id := p_contexts.tax_unit_id;
6971: if p_contexts.tax_unit_id is null then
6972: p_contexts.tu_set := FALSE;
6973: else
6975: end if;
6976: end if;
6977: if (nvl(p_contexts.jurisdiction_code, 'NULL') <> nvl(p_contexts.prv_jurisdiction_code, 'NULL'))
6978: then
6979: pay_balance_pkg.set_context('JURISDICTION_CODE',p_contexts.jurisdiction_code);
6980: p_contexts.prv_jurisdiction_code := p_contexts.jurisdiction_code;
6981: if p_contexts.jurisdiction_code is null then
6982: p_contexts.jc_set := FALSE;
6983: else
6984: p_contexts.jc_set := TRUE;
6985: end if;
6986: end if;
6987: if (nvl(p_contexts.source_id, -999) <> nvl(p_contexts.prv_source_id, -999)) then
6988: pay_balance_pkg.set_context('SOURCE_ID', p_contexts.source_id);
6989: p_contexts.prv_source_id := p_contexts.source_id;
6990: if p_contexts.source_id is null then
6991: p_contexts.si_set := FALSE;
6992: else
6993: p_contexts.si_set := TRUE;
6994: end if;
6995: end if;
6996: if (nvl(p_contexts.source_text, 'NULL') <> nvl(p_contexts.prv_source_text, 'NULL')) then
6997: pay_balance_pkg.set_context('SOURCE_TEXT', p_contexts.source_text);
6998: p_contexts.prv_source_text := p_contexts.source_text;
6999: if p_contexts.source_text is null then
7000: p_contexts.st_set := FALSE;
7001: else
7002: p_contexts.st_set := TRUE;
7003: end if;
7004: end if;
7005: if (nvl(p_contexts.source_number, 'NULL') <> nvl(p_contexts.prv_source_number, 'NULL')) then
7006: pay_balance_pkg.set_context('SOURCE_NUMBER', p_contexts.source_number);
7007: p_contexts.prv_source_number := p_contexts.source_number;
7008: if p_contexts.source_number is null then
7009: p_contexts.sn_set := FALSE;
7010: else
7011: p_contexts.sn_set := TRUE;
7012: end if;
7013: end if;
7014: if (nvl(p_contexts.source_text2, 'NULL') <> nvl(p_contexts.prv_source_text2, 'NULL')) then
7015: pay_balance_pkg.set_context('SOURCE_TEXT2', p_contexts.source_text2);
7016: p_contexts.prv_source_text2 := p_contexts.source_text2;
7017: if p_contexts.source_text2 is null then
7018: p_contexts.st2_set := FALSE;
7019: else
7020: p_contexts.st2_set := TRUE;
7021: end if;
7022: end if;
7023: if (nvl(p_contexts.time_def_id, -999) <> nvl(p_contexts.prv_time_def_id, -999)) then
7024: pay_balance_pkg.set_context('TIME_DEFINITION_ID', p_contexts.time_def_id);
7025: p_contexts.prv_time_def_id := p_contexts.time_def_id;
7026: if p_contexts.time_def_id is null then
7027: p_contexts.td_set := FALSE;
7028: else
7039: p_contexts.bd_set := TRUE;
7040: end if;
7041: end if;
7042: if (nvl(p_contexts.local_unit_id, -999) <> nvl(p_contexts.prv_local_unit_id, -999)) then
7043: pay_balance_pkg.set_context('LOCAL_UNIT_ID', p_contexts.local_unit_id);
7044: p_contexts.prv_local_unit_id := p_contexts.local_unit_id;
7045: if p_contexts.local_unit_id is null then
7046: p_contexts.lu_set := FALSE;
7047: else
7048: p_contexts.lu_set := TRUE;
7049: end if;
7050: end if;
7051: if (nvl(p_contexts.source_number2, -999) <> nvl(p_contexts.prv_source_number2, -999)) then
7052: pay_balance_pkg.set_context('SOURCE_NUMBER2', p_contexts.source_number2);
7053: p_contexts.prv_source_number2 := p_contexts.source_number2;
7054: if p_contexts.source_number2 is null then
7055: p_contexts.sn2_set := FALSE;
7056: else
7057: p_contexts.sn2_set := TRUE;
7058: end if;
7059: end if;
7060: if (nvl(p_contexts.organization_id, -999) <> nvl(p_contexts.prv_organization_id, -999)) then
7061: pay_balance_pkg.set_context('ORGANIZATION_ID', p_contexts.organization_id);
7062: p_contexts.prv_organization_id := p_contexts.organization_id;
7063: if p_contexts.organization_id is null then
7064: p_contexts.org_set := FALSE;
7065: else
7106: l_tx_ut := p_contexts.tax_unit_id;
7107: end if;
7108: --
7109: /* Now get the balance value */
7110: bal_val := pay_balance_pkg.get_value
7111: (p_defined_balance_id => p_def_bal_id
7112: ,p_assignment_action_id => p_asg_act
7113: ,p_get_rr_route => true
7114: ,p_get_rb_route => false);
7114: ,p_get_rb_route => false);
7115: --
7116: if (bal_val <> 0) then
7117: if g_debug then
7118: hr_utility.set_location('pay_balance_pkg.create_run_balance', 35);
7119: end if;
7120: ins_run_balance (p_defined_balance_id => p_def_bal_id,
7121: p_eff_date => p_effective_date,
7122: p_bal_val => bal_val,
7139: end if;
7140: end if;
7141: --
7142: if g_debug then
7143: hr_utility.set_location('pay_balance_pkg.create_run_balance', 40);
7144: end if;
7145: --
7146: end create_run_balance;
7147: --
7238: (p_run_result_id in number
7239: )
7240: is
7241: --
7242: l_proc varchar2(80):= ' pay_balance_pkg.create_rr_asg_balances';
7243:
7244: l_legrule_found boolean := FALSE;
7245: l_save_run_bal_flag varchar2(30) := 'N';
7246: l_rr_ctx t_context_rec; -- Run result level context
7549: --
7550: begin
7551: --
7552: if g_debug then
7553: hr_utility.set_location('Entering: pay_balance_pkg.create_set_asg_balance', 5);
7554: end if;
7555: --
7556: -- Check whether the SOURCE_ID, SOURCE_TEXT contexts are used.
7557: l_si_needed_chr := 'N';
7623: for cnt in 1..p_defined_balance_lst.count loop
7624: --
7625: if (p_load_type = 'FORCE') then
7626: if g_debug then
7627: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 20);
7628: end if;
7629: delete from pay_run_balances
7630: where defined_balance_id = p_defined_balance_lst(cnt).defined_balance_id
7631: and assignment_action_id = p_asgact_id;
7632: elsif (p_load_type = 'TRUSTED') then
7633: null;
7634: else
7635: if g_debug then
7636: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 25);
7637: end if;
7638: declare
7639: l_dummy number;
7640: begin
7662: -- Generate the context list
7663: --
7664: l_cnt := 1;
7665: if g_debug then
7666: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 27);
7667: end if;
7668: for cxt in get_contexts(p_asgact_id,
7669: l_si_needed_chr,
7670: l_st_needed_chr,
7672: l_st2_needed_chr,
7673: l_sn2_needed_chr,
7674: l_org_needed_chr) loop
7675: if g_debug then
7676: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 28);
7677: end if;
7678: l_context_lst(l_cnt).tax_unit_id := cxt.tax_unit_id;
7679: l_context_lst(l_cnt).jurisdiction_code := cxt.jurisdiction_code;
7680: l_context_lst(l_cnt).source_id := cxt.source_id;
7692: --
7693: -- Go Get the balance values
7694: --
7695: if g_debug then
7696: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 30);
7697: end if;
7698: for aarec in get_aa (p_asgact_id) loop
7699: pay_balance_pkg.get_value (p_asgact_id,
7700: p_defined_balance_lst,
7695: if g_debug then
7696: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 30);
7697: end if;
7698: for aarec in get_aa (p_asgact_id) loop
7699: pay_balance_pkg.get_value (p_asgact_id,
7700: p_defined_balance_lst,
7701: l_context_lst,
7702: TRUE,
7703: FALSE,
7705: --
7706: -- Insert the results in the run_balance table.
7707: --
7708: if g_debug then
7709: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 35);
7710: end if;
7711: for cnt in 1..l_output_list.count loop
7712: if (l_output_list(cnt).balance_value <> 0) then
7713: --
7711: for cnt in 1..l_output_list.count loop
7712: if (l_output_list(cnt).balance_value <> 0) then
7713: --
7714: if g_debug then
7715: hr_utility.set_location('pay_balance_pkg.create_set_asg_balance', 40);
7716: end if;
7717: ins_run_balance (p_defined_balance_id => l_output_list(cnt).defined_balance_id,
7718: p_eff_date => aarec.effective_date,
7719: p_bal_val => l_output_list(cnt).balance_value,
7738: end loop;
7739: end loop;
7740: --
7741: if g_debug then
7742: hr_utility.set_location('Leaving: pay_balance_pkg.create_set_asg_balance', 50);
7743: end if;
7744: end create_set_asg_balance;
7745: --
7746: procedure add_grpbal_to_list(p_def_bal_id in number,
7827: --
7828: begin
7829: --
7830: if g_debug then
7831: hr_utility.set_location('Entering pay_balance_pkg.add_grpbal_to_list',10);
7832: hr_utility.trace('p_load_type: '||p_load_type);
7833: end if;
7834: --
7835: l_jc_needed_chr := 'N';
7881: end if;
7882: --
7883: if (p_load_type = 'FORCE') then
7884: if g_debug then
7885: hr_utility.set_location('pay_balance_pkg.add_grpbal_to_list', 20);
7886: end if;
7887: delete from pay_run_balances
7888: where defined_balance_id = p_def_bal_id
7889: and payroll_action_id = p_pactid;
7890: elsif (p_load_type = 'TRUSTED') then
7891: null;
7892: else
7893: if g_debug then
7894: hr_utility.set_location('pay_balance_pkg.add_grpbal_to_list', 25);
7895: end if;
7896: declare
7897: l_dummy number;
7898: begin
7986: --
7987: end loop;
7988: --
7989: if g_debug then
7990: hr_utility.set_location('Leaving: pay_balance_pkg.add_grpbal_to_list', 40);
7991: end if;
7992: --
7993: end add_grpbal_to_list;
7994: -----------------------------------------------------------------------------
8263: begin
8264: --
8265: if g_debug then
8266: hr_utility.set_location(
8267: 'Entering:pay_balance_pkg.create_all_gre_balances_full',10);
8268: end if;
8269: --
8270: select pbg.business_group_id,
8271: pbg.legislation_code,
8297: if (p_load_type = 'TRUSTED') then
8298: --
8299: if g_debug then
8300: hr_utility.set_location(
8301: 'pay_balance_pkg.create_all_grp_balances_full', 20);
8302: end if;
8303: --
8304: for dbarec in crs_balatt(p_pact_id
8305: ,p_bal_list
8317: and p_def_bal is not null) then
8318: --
8319: if g_debug then
8320: hr_utility.set_location(
8321: 'pay_balance_pkg.create_all_grp_balances_full', 30);
8322: end if;
8323: --
8324: for dbsarec in crs_balatt(p_pact_id
8325: ,p_bal_list
8340: else -- p_delta is Y thus in Delta mode
8341: --
8342: if g_debug then
8343: hr_utility.set_location(
8344: 'pay_balance_pkg.create_all_grp_balances_full', 35);
8345: end if;
8346: --
8347: for dbdrec in crs_delta_balatt(p_pact_id
8348: ,p_bal_list
8360: --
8361: else
8362: if g_debug then
8363: hr_utility.set_location(
8364: 'pay_balance_pkg.create_all_grp_balances_full', 40);
8365: end if;
8366: --
8367: for dbrec in crs_asgact(p_pact_id,
8368: l_eff_date,
8382: -- Bug 4318391.
8383: -- Ensure if any defind balances found.
8384: --
8385: if l_output_list.count = 0 then
8386: hr_utility.set_location('pay_balance_pkg.create_all_grp_balances_full', 50);
8387: --
8388: -- Exit this procedure.
8389: --
8390: return;
8461: --
8462: l_cnt := 1;
8463: if g_debug then
8464: hr_utility.set_location(
8465: 'pay_balance_pkg.create_all_grp_balances_full', 60);
8466: end if;
8467: --
8468: for cxt in get_contexts_2(p_pact_id,
8469: l_si_needed_chr,
8473: l_sn2_needed_chr,
8474: l_org_needed_chr) loop
8475: if g_debug then
8476: hr_utility.set_location(
8477: 'pay_balance_pkg.create_all_grp_balances_full', 70);
8478: end if;
8479: --
8480: l_context_lst(l_cnt).tax_unit_id := cxt.tax_unit_id;
8481: l_context_lst(l_cnt).jurisdiction_code := cxt.jurisdiction_code;
8495: -- Go Get the balance values
8496: --
8497: if g_debug then
8498: hr_utility.set_location(
8499: 'pay_balance_pkg.create_all_grp_balances_full', 80);
8500: end if;
8501: --
8502: for aarec in get_aa (p_pact_id) loop
8503: pay_balance_pkg.get_value_int_batch (aarec.assignment_action_id,
8499: 'pay_balance_pkg.create_all_grp_balances_full', 80);
8500: end if;
8501: --
8502: for aarec in get_aa (p_pact_id) loop
8503: pay_balance_pkg.get_value_int_batch (aarec.assignment_action_id,
8504: l_context_lst,
8505: TRUE,
8506: FALSE,
8507: l_output_list);
8509: -- Insert the results in the run_balance table.
8510: --
8511: if g_debug then
8512: hr_utility.set_location(
8513: 'pay_balance_pkg.create_all_grp_balances_full', 85);
8514: end if;
8515: for cnt in 1..l_output_list.count loop
8516: if (l_output_list(cnt).balance_value <> 0) then
8517: --
8516: if (l_output_list(cnt).balance_value <> 0) then
8517: --
8518: if g_debug then
8519: hr_utility.set_location(
8520: 'pay_balance_pkg.create_all_grp_balances_full', 90);
8521: end if;
8522: --
8523: ins_run_balance (p_defined_balance_id => l_output_list(cnt).defined_balance_id,
8524: p_eff_date => aarec.effective_date,
8545: end loop;
8546: --
8547: if g_debug then
8548: hr_utility.set_location(
8549: 'Leaving: pay_balance_pkg.create_all_grp_balances_full', 95);
8550: end if;
8551: --
8552: end create_all_grp_balances_full;
8553: -----------------------------------------------------------------------------
8635: --
8636: begin
8637: --
8638: if g_debug then
8639: hr_utility.set_location('Entering pay_balance_pkg.add_asgbal_to_list',10);
8640: hr_utility.trace('p_load_type: '||p_load_type);
8641: end if;
8642: l_jc_needed_chr := 'N';
8643: l_si_needed_chr := 'N';
8688: end if;
8689: --
8690: if (p_load_type = 'FORCE') then
8691: if g_debug then
8692: hr_utility.set_location('pay_balance_pkg.add_asgbal_to_list', 20);
8693: end if;
8694: delete from pay_run_balances
8695: where defined_balance_id = p_def_bal_id
8696: and assignment_action_id = p_asgact_id;
8697: elsif (p_load_type = 'TRUSTED') then
8698: null;
8699: else
8700: if g_debug then
8701: hr_utility.set_location('pay_balance_pkg.add_asgbal_to_list', 25);
8702: end if;
8703: declare
8704: l_dummy number;
8705: begin
8793: --
8794: end loop;
8795: --
8796: if g_debug then
8797: hr_utility.set_location('Leaving: pay_balance_pkg.add_asgbal_to_list', 40);
8798: end if;
8799: --
8800: end add_asgbal_to_list;
8801: --
9103: begin
9104: --
9105: if g_debug then
9106: hr_utility.set_location(
9107: 'Entering:pay_balance_pkg.create_all_asg_balances_full',10);
9108: end if;
9109: --
9110: select pbg.business_group_id,
9111: pbg.legislation_code
9138: if (p_load_type = 'TRUSTED') then
9139: --
9140: if g_debug then
9141: hr_utility.set_location(
9142: 'pay_balance_pkg.create_all_asg_balances_full', 20);
9143: end if;
9144: --
9145: for dbarec in crs_balatt(p_asgact_id
9146: ,p_bal_list
9158: and p_def_bal is not null) then
9159: --
9160: if g_debug then
9161: hr_utility.set_location(
9162: 'pay_balance_pkg.create_all_asg_balances_full', 30);
9163: end if;
9164: --
9165: for dbsarec in crs_balatt(p_asgact_id
9166: ,p_bal_list
9181: else -- p_delta is Y thus in DELTA mode
9182: --
9183: if g_debug then
9184: hr_utility.set_location(
9185: 'pay_balance_pkg.create_all_asg_balances_full', 35);
9186: end if;
9187: --
9188: --
9189: -- Obtain the bal attribute id.
9211: --
9212: else
9213: if g_debug then
9214: hr_utility.set_location(
9215: 'pay_balance_pkg.create_all_asg_balances_full', 40);
9216: end if;
9217: --
9218: for dbrec in crs_asgact(p_asgact_id,
9219: l_bg_id,
9303: end loop;
9304: l_cnt := 1;
9305: if g_debug then
9306: hr_utility.set_location(
9307: 'pay_balance_pkg.create_all_asg_balances_full', 50);
9308: end if;
9309: for cxt in get_contexts_2(p_asgact_id,
9310: l_si_needed_chr,
9311: l_st_needed_chr,
9314: l_sn2_needed_chr,
9315: l_org_needed_chr) loop
9316: if g_debug then
9317: hr_utility.set_location(
9318: 'pay_balance_pkg.create_all_asg_balances_full', 60);
9319: end if;
9320: l_context_lst(l_cnt).tax_unit_id := cxt.tax_unit_id;
9321: l_context_lst(l_cnt).jurisdiction_code := cxt.jurisdiction_code;
9322: l_context_lst(l_cnt).source_id := cxt.source_id;
9335: -- Go Get the balance values
9336: --
9337: if g_debug then
9338: hr_utility.set_location(
9339: 'pay_balance_pkg.create_all_asg_balances_full', 70);
9340: end if;
9341: for aarec in get_aa (p_asgact_id) loop
9342: pay_balance_pkg.get_value_int_batch (p_asgact_id,
9343: l_context_lst,
9338: hr_utility.set_location(
9339: 'pay_balance_pkg.create_all_asg_balances_full', 70);
9340: end if;
9341: for aarec in get_aa (p_asgact_id) loop
9342: pay_balance_pkg.get_value_int_batch (p_asgact_id,
9343: l_context_lst,
9344: TRUE,
9345: FALSE,
9346: l_output_list);
9348: -- Insert the results in the run_balance table.
9349: --
9350: if g_debug then
9351: hr_utility.set_location(
9352: 'pay_balance_pkg.create_all_asg_balances_full', 80);
9353: end if;
9354: for cnt in 1..l_output_list.count loop
9355: if (l_output_list(cnt).balance_value <> 0) then
9356: --
9355: if (l_output_list(cnt).balance_value <> 0) then
9356: --
9357: if g_debug then
9358: hr_utility.set_location(
9359: 'pay_balance_pkg.create_all_asg_balances_full', 90);
9360: end if;
9361: ins_run_balance (p_defined_balance_id => l_output_list(cnt).defined_balance_id,
9362: p_eff_date => aarec.effective_date,
9363: p_bal_val => l_output_list(cnt).balance_value,
9383: end loop;
9384: --
9385: else -- no balances returned from cursors crs_balatt or crs_asgact, so do
9386: -- nothing
9387: hr_utility.set_location('pay_balance_pkg.create_all_asg_balances_full',98);
9388: end if;
9389: --
9390: if g_debug then
9391: hr_utility.set_location(
9388: end if;
9389: --
9390: if g_debug then
9391: hr_utility.set_location(
9392: 'Leaving: pay_balance_pkg.create_all_asg_balances_full', 100);
9393: end if;
9394: --
9395: end create_all_asg_balances_full;
9396: --------------------------------------------------------------------------
9467: --
9468: begin
9469: g_debug := hr_utility.debug_enabled;
9470: if g_debug then
9471: hr_utility.set_location('Entering: pay_balance_pkg.create_all_asg_balances', 5);
9472: end if;
9473: --
9474: l_balance_lst.delete;
9475: --
9508: l_cnt := 1;
9509: if (save_run_bals = 'Y') then
9510: --
9511: if g_debug then
9512: hr_utility.set_location('pay_balance_pkg.create_all_asg_balances', 25);
9513: end if;
9514: --
9515: if (p_bal_list = 'ALL'
9516: or ( p_bal_list = 'INVALID'
9563: --
9564: end if;
9565: --
9566: if g_debug then
9567: hr_utility.set_location('Leaving: pay_balance_pkg.create_all_asg_balances', 30);
9568: end if;
9569: end create_all_asg_balances;
9570: --
9571: --------------------------------------------------------------------------
9649: --
9650: begin
9651: --
9652: if g_debug then
9653: hr_utility.set_location('Entering: pay_balance_pkg.create_set_group_balance', 5);
9654: end if;
9655: --
9656: -- Check whether the SOURCE_ID, SOURCE_TEXT contexts are used.
9657: l_si_needed_chr := 'N';
9723: for cnt in 1..p_defined_balance_lst.count loop
9724: --
9725: if (p_load_type = 'FORCE') then
9726: if g_debug then
9727: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 20);
9728: end if;
9729: delete from pay_run_balances
9730: where defined_balance_id = p_defined_balance_lst(cnt).defined_balance_id
9731: and payroll_action_id = p_pact_id;
9732: elsif (p_load_type = 'TRUSTED') then
9733: null;
9734: else
9735: if g_debug then
9736: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 25);
9737: end if;
9738: declare
9739: l_dummy number;
9740: begin
9761: -- Generate the context list
9762: --
9763: l_cnt := 1;
9764: if g_debug then
9765: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 27);
9766: end if;
9767: for cxt in get_contexts(p_pact_id,
9768: l_si_needed_chr,
9769: l_st_needed_chr,
9771: l_st2_needed_chr,
9772: l_sn2_needed_chr,
9773: l_org_needed_chr) loop
9774: if g_debug then
9775: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 28);
9776: end if;
9777: l_context_lst(l_cnt).tax_unit_id := cxt.tax_unit_id;
9778: l_context_lst(l_cnt).jurisdiction_code := cxt.jurisdiction_code;
9779: l_context_lst(l_cnt).source_id := cxt.source_id;
9791: --
9792: -- Go Get the balance values
9793: --
9794: if g_debug then
9795: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 30);
9796: end if;
9797: for aarec in get_aa (p_pact_id) loop
9798: pay_balance_pkg.get_value (aarec.assignment_action_id,
9799: p_defined_balance_lst,
9794: if g_debug then
9795: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 30);
9796: end if;
9797: for aarec in get_aa (p_pact_id) loop
9798: pay_balance_pkg.get_value (aarec.assignment_action_id,
9799: p_defined_balance_lst,
9800: l_context_lst,
9801: TRUE,
9802: FALSE,
9804: --
9805: -- Insert the results in the run_balance table.
9806: --
9807: if g_debug then
9808: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 35);
9809: end if;
9810: for cnt in 1..l_output_list.count loop
9811: if g_debug then
9812: hr_utility.trace('Bal Value = '||l_output_list(cnt).balance_value);
9813: end if;
9814: if (l_output_list(cnt).balance_value <> 0) then
9815: --
9816: if g_debug then
9817: hr_utility.set_location('pay_balance_pkg.create_set_group_balance', 40);
9818: end if;
9819: ins_run_balance (p_defined_balance_id => l_output_list(cnt).defined_balance_id,
9820: p_eff_date => aarec.effective_date,
9821: p_bal_val => l_output_list(cnt).balance_value,
9840: end loop;
9841: end loop;
9842: --
9843: if g_debug then
9844: hr_utility.set_location('Leaving: pay_balance_pkg.create_set_group_balance', 50);
9845: end if;
9846: end create_set_group_balance;
9847: --------------------------------------------------------------------------
9848: -- procedure create_all_group_balances
9913: --
9914: begin
9915: g_debug := hr_utility.debug_enabled;
9916: if g_debug then
9917: hr_utility.set_location('Entering: pay_balance_pkg.create_all_group_balances', 5);
9918: end if;
9919: --
9920: l_balance_lst.delete;
9921: --
9951: --
9952: if (save_run_bals = 'Y') then
9953: --
9954: if g_debug then
9955: hr_utility.set_location('pay_balance_pkg.create_all_group_balances', 25);
9956: end if;
9957: l_cnt := 1;
9958: --
9959: if (p_bal_list = 'ALL'
10006: --
10007: end if;
10008: --
10009: if g_debug then
10010: hr_utility.set_location('Leaving: pay_balance_pkg.create_all_group_balances', 30);
10011: end if;
10012: end create_all_group_balances;
10013: --
10014: --------------------------------------------------------------------------
10090: l_bal_load_date pay_balance_validation.balance_load_date%type;
10091: l_rr_exists number;
10092: --
10093: BEGIN
10094: hr_utility.set_location('Entering: pay_balance_pkg.initialise_run_balance', 10);
10095: --
10096: -- we need to determine a legislation code; for core defined balances it will
10097: -- be null.
10098: --
10099: if p_legislation_code is null then
10100: if p_business_group_id is null then
10101: -- core row
10102: l_leg_code := '';
10103: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 20);
10104: else -- bg not nulli, so user row
10105: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 30);
10106: --
10107: open get_leg_code(p_business_group_id);
10101: -- core row
10102: l_leg_code := '';
10103: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 20);
10104: else -- bg not nulli, so user row
10105: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 30);
10106: --
10107: open get_leg_code(p_business_group_id);
10108: fetch get_leg_code into l_leg_code;
10109: if get_leg_code%notfound then
10108: fetch get_leg_code into l_leg_code;
10109: if get_leg_code%notfound then
10110: close get_leg_code;
10111: -- should raise error, but should never be raised so ok
10112: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 40);
10113: end if;
10114: end if;
10115: else -- leg row
10116: l_leg_code := p_legislation_code;
10113: end if;
10114: end if;
10115: else -- leg row
10116: l_leg_code := p_legislation_code;
10117: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 50);
10118: end if;
10119: --
10120: open get_dim_level(p_baldim_id);
10121: fetch get_dim_level into l_dim_level;
10129: fetch check_run_results into l_rr_exists;
10130: close check_run_results;
10131: --
10132: if l_dim_level = 'ASG' or l_dim_level = 'GRP' then
10133: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 70);
10134: --
10135: for each_bg in enabled_bg(p_business_group_id, l_leg_code, l_dim_level)
10136: loop
10137: --
10142: else
10143: l_bal_load_date := fnd_date.canonical_to_date('0001/01/01');
10144: end if;
10145: --
10146: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 80);
10147: hr_utility.trace('def_bal: '||to_char(p_defbal_id));
10148: hr_utility.trace('bg: '||to_char(each_bg.business_group_id));
10149: hr_utility.trace('bal_load_date: '||to_char(l_bal_load_date,'DD-MON-YYYY'));
10150: --
10164: from pay_balance_validation
10165: where defined_balance_id = p_defbal_id
10166: and business_group_id = each_bg.business_group_id);
10167: --
10168: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 90);
10169: --
10170: end loop;
10171: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 100);
10172: --
10167: --
10168: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 90);
10169: --
10170: end loop;
10171: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 100);
10172: --
10173: else -- l_dim_level is null
10174: --
10175: -- this is not a valid run balance defined balance, so do nothing
10173: else -- l_dim_level is null
10174: --
10175: -- this is not a valid run balance defined balance, so do nothing
10176: --
10177: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 110);
10178: end if;
10179: hr_utility.set_location('Leaving: pay_balance_pkg.initialise_run_balance', 120);
10180: end initialise_run_balance;
10181: --------------------------------------------------------------------------
10175: -- this is not a valid run balance defined balance, so do nothing
10176: --
10177: hr_utility.set_location('pay_balance_pkg.initialise_run_balance', 110);
10178: end if;
10179: hr_utility.set_location('Leaving: pay_balance_pkg.initialise_run_balance', 120);
10180: end initialise_run_balance;
10181: --------------------------------------------------------------------------
10182: -- procedure set_check_latest_balances
10183: -- This procedure sets the HRASSACT CHECK_LATEST_BALANCES global
10188: --
10189: begin
10190: g_debug := hr_utility.debug_enabled;
10191: if g_debug then
10192: hr_utility.set_location('Entering: pay_balance_pkg.set_check_latest_balances',5);
10193: end if;
10194: --
10195: HRASSACT.CHECK_LATEST_BALANCES := TRUE;
10196: --
10194: --
10195: HRASSACT.CHECK_LATEST_BALANCES := TRUE;
10196: --
10197: if g_debug then
10198: hr_utility.set_location('Exiting: pay_balance_pkg.set_check_latest_balances',5);
10199: end if;
10200: --
10201: end set_check_latest_balances;
10202: --------------------------------------------------------------------------
10209: --
10210: begin
10211: g_debug := hr_utility.debug_enabled;
10212: if g_debug then
10213: hr_utility.set_location('Entering: pay_balance_pkg.unset_check_latest_balances',5);
10214: end if;
10215: --
10216: HRASSACT.CHECK_LATEST_BALANCES := FALSE;
10217: --
10215: --
10216: HRASSACT.CHECK_LATEST_BALANCES := FALSE;
10217: --
10218: if g_debug then
10219: hr_utility.set_location('Exiting: pay_balance_pkg.unset_check_latest_balances',5);
10220: end if;
10221: --
10222: end unset_check_latest_balances;
10223: --------------------------------------------------------------------------
10294: prr.jurisdiction_code,
10295: prr.source_id original_entry_id,
10296: ppa.payroll_id,
10297: decode(p_si_needed,
10298: 'Y', pay_balance_pkg.find_context('SOURCE_ID', prr.run_result_id),
10299: null) source_id,
10300: decode(p_st_needed,
10301: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT', prr.run_result_id),
10302: null) source_text,
10297: decode(p_si_needed,
10298: 'Y', pay_balance_pkg.find_context('SOURCE_ID', prr.run_result_id),
10299: null) source_id,
10300: decode(p_st_needed,
10301: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT', prr.run_result_id),
10302: null) source_text,
10303: decode(p_sn_needed,
10304: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER', prr.run_result_id),
10305: null) source_number,
10300: decode(p_st_needed,
10301: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT', prr.run_result_id),
10302: null) source_text,
10303: decode(p_sn_needed,
10304: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER', prr.run_result_id),
10305: null) source_number,
10306: decode(p_st2_needed,
10307: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT2', prr.run_result_id),
10308: null) source_text2,
10303: decode(p_sn_needed,
10304: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER', prr.run_result_id),
10305: null) source_number,
10306: decode(p_st2_needed,
10307: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT2', prr.run_result_id),
10308: null) source_text2,
10309: decode(p_sn2_needed,
10310: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER2', prr.run_result_id),
10311: null) source_number2,
10306: decode(p_st2_needed,
10307: 'Y', pay_balance_pkg.find_context('SOURCE_TEXT2', prr.run_result_id),
10308: null) source_text2,
10309: decode(p_sn2_needed,
10310: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER2', prr.run_result_id),
10311: null) source_number2,
10312: decode(p_org_needed,
10313: 'Y', pay_balance_pkg.find_context('ORGANIZATION_ID', prr.run_result_id),
10314: null) organization_id,
10309: decode(p_sn2_needed,
10310: 'Y', pay_balance_pkg.find_context('SOURCE_NUMBER2', prr.run_result_id),
10311: null) source_number2,
10312: decode(p_org_needed,
10313: 'Y', pay_balance_pkg.find_context('ORGANIZATION_ID', prr.run_result_id),
10314: null) organization_id,
10315: ppa.effective_date
10316: from pay_assignment_actions paa,
10317: pay_run_results prr,
10385: if g_debug then
10386: hr_utility.set_location('hrassact.reversal',60);
10387: end if;
10388: --
10389: pay_balance_pkg.create_all_group_balances(l_pactid,
10390: 'ALL',
10391: 'NORMAL',
10392: NULL,
10393: NULL);
10664: --
10665: begin
10666: g_payroll_action := -1;
10667: g_legislation_code := null;
10668: end pay_balance_pkg;