4: -- Global package name
5: g_package CONSTANT VARCHAR2 (33)
6: := ' hxc_timestore_deposit_util.';
7: g_oit_migration CONSTANT VARCHAR2 (30) := 'OIT_MIGRATION';
8: g_debug BOOLEAN := hr_utility.debug_enabled;
9:
10: FUNCTION perform_audit (
11: p_props IN hxc_timecard_prop_table_type,
12: p_blocks IN hxc_block_table_type
74: WHERE NAME = v_retrieval_process_name;
75:
76: l_retrieval_process_id hxc_retrieval_processes.retrieval_process_id%TYPE;
77: BEGIN
78: g_debug := hr_utility.debug_enabled;
79:
80: IF g_debug
81: THEN
82: l_proc := g_package || 'get_retrieval_process_id';
79:
80: IF g_debug
81: THEN
82: l_proc := g_package || 'get_retrieval_process_id';
83: hr_utility.set_location ('Entering:' || l_proc, 10);
84: END IF;
85:
86: OPEN csr_retrieval_process_id (p_retrieval_process_name);
87:
99: CLOSE csr_retrieval_process_id;
100:
101: IF g_debug
102: THEN
103: hr_utility.set_location ( ' returning retrieval process id = '
104: || l_retrieval_process_id,
105: 20
106: );
107: hr_utility.set_location ('Leaving:' || l_proc, 30);
103: hr_utility.set_location ( ' returning retrieval process id = '
104: || l_retrieval_process_id,
105: 20
106: );
107: hr_utility.set_location ('Leaving:' || l_proc, 30);
108: END IF;
109:
110: RETURN l_retrieval_process_id;
111: END get_retrieval_process_id;
135: SELECT has.approval_style_id
136: FROM hxc_approval_styles has
137: WHERE has.NAME = p_name;
138: BEGIN
139: g_debug := hr_utility.debug_enabled;
140:
141: IF g_debug
142: THEN
143: l_proc := g_package || 'approval_style_id';
140:
141: IF g_debug
142: THEN
143: l_proc := g_package || 'approval_style_id';
144: hr_utility.set_location ('Entering:' || l_proc, 10);
145: END IF;
146:
147: OPEN csr_approval_style_id (p_approval_style_name);
148:
152: CLOSE csr_approval_style_id;
153:
154: IF g_debug
155: THEN
156: hr_utility.set_location ( ' returning approval_style_id = '
157: || l_approval_style_id,
158: 20
159: );
160: hr_utility.set_location ('Leaving:' || l_proc, 30);
156: hr_utility.set_location ( ' returning approval_style_id = '
157: || l_approval_style_id,
158: 20
159: );
160: hr_utility.set_location ('Leaving:' || l_proc, 30);
161: END IF;
162:
163: RETURN l_approval_style_id;
164: END approval_style_id;
184: l_messages hxc_message_table_type := hxc_message_table_type();
185: l_timecard_props hxc_timecard_prop_table_type := hxc_timecard_prop_table_type();
186: l_timecard_index number;
187: BEGIN
188: g_debug := hr_utility.debug_enabled;
189:
190: IF g_debug
191: THEN
192: l_proc := g_package || 'begin_approval';
189:
190: IF g_debug
191: THEN
192: l_proc := g_package || 'begin_approval';
193: hr_utility.set_location ('Entering:' || l_proc, 10);
194: END IF;
195:
196: l_timecard_index := hxc_timecard_block_utils.find_active_timecard_index(p_blocks);
197:
256: );
257:
258: IF g_debug
259: THEN
260: hr_utility.set_location ('Leaving:' || l_proc, 100);
261: END IF;
262: END begin_approval;
263:
264: -----------------------------------------------------------------------------
818: l_proc VARCHAR2 (72);
819: l_blocks hxc_block_table_type;
820: l_index PLS_INTEGER;
821: BEGIN
822: g_debug := hr_utility.debug_enabled;
823:
824: IF g_debug
825: THEN
826: l_proc := g_package || 'convert_tbb_to_type';
823:
824: IF g_debug
825: THEN
826: l_proc := g_package || 'convert_tbb_to_type';
827: hr_utility.set_location ('Entering:' || l_proc, 10);
828: END IF;
829:
830: -- Initialize the collection
831: l_blocks := hxc_block_table_type ();
864: END LOOP;
865:
866: IF g_debug
867: THEN
868: hr_utility.set_location ( ' returning l_blocks.count = '
869: || l_blocks.COUNT,
870: 20
871: );
872: hr_utility.set_location ('Leaving: ' || l_proc, 30);
868: hr_utility.set_location ( ' returning l_blocks.count = '
869: || l_blocks.COUNT,
870: 20
871: );
872: hr_utility.set_location ('Leaving: ' || l_proc, 30);
873: END IF;
874:
875: RETURN l_blocks;
876: END convert_tbb_to_type;
893: l_proc VARCHAR2 (72);
894: l_transaction_info hxc_deposit_wrapper_utilities.t_transaction;
895: l_index PLS_INTEGER;
896: BEGIN
897: g_debug := hr_utility.debug_enabled;
898:
899: IF g_debug
900: THEN
901: l_proc := g_package || 'convert_new_trans_info_to_old';
898:
899: IF g_debug
900: THEN
901: l_proc := g_package || 'convert_new_trans_info_to_old';
902: hr_utility.set_location ('Entering:' || l_proc, 10);
903: END IF;
904:
905: l_index := p_transaction_info.FIRST;
906:
920: END LOOP;
921:
922: IF g_debug
923: THEN
924: hr_utility.set_location
925: ( ' returning l_transaction_info.count = '
926: || l_transaction_info.COUNT,
927: 20
928: );
925: ( ' returning l_transaction_info.count = '
926: || l_transaction_info.COUNT,
927: 20
928: );
929: hr_utility.set_location ('Leaving: ' || l_proc, 30);
930: END IF;
931:
932: RETURN l_transaction_info;
933: END convert_new_trans_info_to_old;
1293: l_proc VARCHAR2 (72);
1294: l_messages hxc_self_service_time_deposit.message_table;
1295: l_index NUMBER;
1296: BEGIN
1297: g_debug := hr_utility.debug_enabled;
1298:
1299: IF g_debug
1300: THEN
1301: l_proc := g_package || 'convert_to_dpwr_messages';
1298:
1299: IF g_debug
1300: THEN
1301: l_proc := g_package || 'convert_to_dpwr_messages';
1302: hr_utility.set_location ('Entering:' || l_proc, 10);
1303: END IF;
1304:
1305: l_index := p_messages.FIRST;
1306:
1328: END LOOP;
1329:
1330: IF g_debug
1331: THEN
1332: hr_utility.set_location ( ' returning l_messages.count = '
1333: || l_messages.COUNT,
1334: 20
1335: );
1336: hr_utility.set_location ('Leaving:' || l_proc, 30);
1332: hr_utility.set_location ( ' returning l_messages.count = '
1333: || l_messages.COUNT,
1334: 20
1335: );
1336: hr_utility.set_location ('Leaving:' || l_proc, 30);
1337: END IF;
1338:
1339: RETURN l_messages;
1340: END convert_to_dpwr_messages;
1361: BEGIN
1362: IF g_debug
1363: THEN
1364: l_proc := g_package || 'convert_msg_to_type';
1365: hr_utility.set_location ('Entering:' || l_proc, 10);
1366: END IF;
1367:
1368: -- Initialize the collection
1369: l_messages := hxc_message_table_type ();
1388: END LOOP;
1389:
1390: IF g_debug
1391: THEN
1392: hr_utility.set_location ( ' returning l_messages.count = '
1393: || l_messages.COUNT,
1394: 20
1395: );
1396: hr_utility.set_location ('Leaving: ' || l_proc, 30);
1392: hr_utility.set_location ( ' returning l_messages.count = '
1393: || l_messages.COUNT,
1394: 20
1395: );
1396: hr_utility.set_location ('Leaving: ' || l_proc, 30);
1397: END IF;
1398:
1399: RETURN l_messages;
1400: END convert_msg_to_type;
1421: IS
1422: l_proc VARCHAR2 (72);
1423: l_appr_stat VARCHAR2 (30);
1424: BEGIN
1425: g_debug := hr_utility.debug_enabled;
1426:
1427: IF g_debug
1428: THEN
1429: l_proc := g_package || 'get_approval_status';
1426:
1427: IF g_debug
1428: THEN
1429: l_proc := g_package || 'get_approval_status';
1430: hr_utility.set_location ('Entering:' || l_proc, 10);
1431: END IF;
1432:
1433: IF p_mode = hxc_timecard.c_save
1434: THEN
1453: END IF;
1454:
1455: IF g_debug
1456: THEN
1457: hr_utility.set_location ( ' returning approval_status = '
1458: || l_appr_stat,
1459: 20
1460: );
1461: hr_utility.set_location ('Leaving:' || l_proc, 30);
1457: hr_utility.set_location ( ' returning approval_status = '
1458: || l_appr_stat,
1459: 20
1460: );
1461: hr_utility.set_location ('Leaving:' || l_proc, 30);
1462: END IF;
1463:
1464: RETURN l_appr_stat;
1465: END get_approval_status;
1532:
1533: l_building_block_count PLS_INTEGER;
1534: l_index PLS_INTEGER;
1535: BEGIN
1536: g_debug := hr_utility.debug_enabled;
1537:
1538: IF g_debug
1539: THEN
1540: l_proc := g_package || 'find_parent_building_block';
1537:
1538: IF g_debug
1539: THEN
1540: l_proc := g_package || 'find_parent_building_block';
1541: hr_utility.set_location ('Entering:' || l_proc, 10);
1542: END IF;
1543:
1544: -- If the PL/SQL structure is not empty, we assume the user wants to add
1545: -- this DAY TBB to the TIMECARD present in the PL/SQL table so first look
1571: AND (p_app_blocks (l_building_block_count).SCOPE = p_scope)
1572: THEN
1573: IF g_debug
1574: THEN
1575: hr_utility.set_location
1576: ( ' Found TBB in PL/SQL Table, ID = '
1577: || p_app_blocks (l_building_block_count).time_building_block_id,
1578: 20
1579: );
1606: INTO p_timecard_bb_id, p_timecard_ovn;
1607:
1608: IF g_debug
1609: THEN
1610: hr_utility.set_location ( ' Found TBB in DB, ID = '
1611: || p_timecard_bb_id,
1612: 30
1613: );
1614: END IF;
1617: END IF; -- (p_app_blocks.COUNT <> 0)
1618:
1619: IF g_debug
1620: THEN
1621: hr_utility.set_location ('Leaving:' || l_proc, 40);
1622: END IF;
1623: END find_parent_building_block;
1624:
1625: -----------------------------------------------------------------------------
1692:
1693: l_attribute_rec find_attribute%ROWTYPE;
1694: c_null CONSTANT VARCHAR2 (5) := '@@@@@';
1695: BEGIN
1696: g_debug := hr_utility.debug_enabled;
1697:
1698: IF g_debug
1699: THEN
1700: l_proc := g_package || 'set_new_change_flags';
1697:
1698: IF g_debug
1699: THEN
1700: l_proc := g_package || 'set_new_change_flags';
1701: hr_utility.set_location ('Entering:' || l_proc, 10);
1702: END IF;
1703:
1704: l_index := p_attributes.FIRST;
1705:
1714: IF find_attribute%FOUND
1715: THEN
1716: IF g_debug
1717: THEN
1718: hr_utility.set_location
1719: ( ' - Attribute '
1720: || p_attributes (l_index).time_attribute_id
1721: || ' Found',
1722: 20
1788: )
1789: THEN
1790: IF g_debug
1791: THEN
1792: hr_utility.set_location
1793: ( ' - Attribute '
1794: || p_attributes (l_index).time_attribute_id
1795: || ' Not Changed',
1796: 40
1801: p_attributes (l_index).process := 'N';
1802: ELSE
1803: IF g_debug
1804: THEN
1805: hr_utility.set_location
1806: ( ' - Attribute '
1807: || p_attributes (l_index).time_attribute_id
1808: || ' Changed',
1809: 50
1815: END IF;
1816: ELSE
1817: IF g_debug
1818: THEN
1819: hr_utility.set_location
1820: ( ' - Attribute '
1821: || p_attributes (l_index).time_attribute_id
1822: || ' Not Found',
1823: 60
1835: END LOOP;
1836:
1837: IF g_debug
1838: THEN
1839: hr_utility.set_location ('Leaving: ' || l_proc, 70);
1840: END IF;
1841: END set_new_change_flags;
1842:
1843: -----------------------------------------------------------------------------
1884: IS
1885: l_proc VARCHAR2 (72);
1886: l_blocks hxc_block_table_type;
1887: BEGIN
1888: g_debug := hr_utility.debug_enabled;
1889:
1890: IF g_debug
1891: THEN
1892: l_proc := g_package || 'find_parent_building_block (Overload)';
1889:
1890: IF g_debug
1891: THEN
1892: l_proc := g_package || 'find_parent_building_block (Overload)';
1893: hr_utility.set_location ('Entering:' || l_proc, 10);
1894: END IF;
1895:
1896: l_blocks := convert_tbb_to_type (p_blocks => p_app_blocks);
1897: find_parent_building_block (p_start_time => p_start_time,
1912:
1913: */
1914: IF g_debug
1915: THEN
1916: hr_utility.set_location ('Leaving:' || l_proc, 40);
1917: END IF;
1918: END find_parent_building_block;
1919:
1920: -----------------------------------------------------------------------------
1957: START WITH time_building_block_id = v_tc_id
1958: GROUP BY time_building_block_id
1959: ORDER BY time_building_block_id;
1960: BEGIN
1961: g_debug := hr_utility.debug_enabled;
1962:
1963: IF g_debug
1964: THEN
1965: l_proc := g_package || 'get_timecard_bb_id';
1962:
1963: IF g_debug
1964: THEN
1965: l_proc := g_package || 'get_timecard_bb_id';
1966: hr_utility.set_location ('Entering:' || l_proc, 10);
1967: END IF;
1968:
1969: OPEN csr_get_timecard_bb_id (p_bb_id);
1970:
1974: CLOSE csr_get_timecard_bb_id;
1975:
1976: IF g_debug
1977: THEN
1978: hr_utility.set_location ('Leaving:' || l_proc, 20);
1979: END IF;
1980: END get_timecard_bb_id;
1981:
1982: -----------------------------------------------------------------------------
2003: l_building_block_count PLS_INTEGER;
2004: l_index PLS_INTEGER;
2005: l_current_highest_ovn PLS_INTEGER;
2006: BEGIN
2007: g_debug := hr_utility.debug_enabled;
2008:
2009: IF g_debug
2010: THEN
2011: l_proc := g_package || 'get_index_in_bb_table';
2008:
2009: IF g_debug
2010: THEN
2011: l_proc := g_package || 'get_index_in_bb_table';
2012: hr_utility.set_location ('Entering:' || l_proc, 10);
2013: END IF;
2014:
2015: l_building_block_count := p_bb_table.FIRST;
2016: -- Initialize to zero as lowest possible ovn is 1
2043: END IF;
2044:
2045: IF g_debug
2046: THEN
2047: hr_utility.set_location (' returning index = ' || l_index, 20);
2048: hr_utility.set_location ('Leaving:' || l_proc, 30);
2049: END IF;
2050:
2051: RETURN l_index;
2044:
2045: IF g_debug
2046: THEN
2047: hr_utility.set_location (' returning index = ' || l_index, 20);
2048: hr_utility.set_location ('Leaving:' || l_proc, 30);
2049: END IF;
2050:
2051: RETURN l_index;
2052: END get_index_in_bb_table;
2077: WHERE NAME = v_deposit_process_name;
2078:
2079: l_deposit_process_id hxc_deposit_processes.deposit_process_id%TYPE;
2080: BEGIN
2081: g_debug := hr_utility.debug_enabled;
2082:
2083: IF g_debug
2084: THEN
2085: l_proc := g_package || 'get_deposit_process_id';
2082:
2083: IF g_debug
2084: THEN
2085: l_proc := g_package || 'get_deposit_process_id';
2086: hr_utility.set_location ('Entering:' || l_proc, 10);
2087: END IF;
2088:
2089: OPEN csr_deposit_process_id (p_deposit_process_name);
2090:
2103: CLOSE csr_deposit_process_id;
2104:
2105: IF g_debug
2106: THEN
2107: hr_utility.set_location ( ' returning deposit process id = '
2108: || l_deposit_process_id,
2109: 20
2110: );
2111: hr_utility.set_location ('Leaving:' || l_proc, 30);
2107: hr_utility.set_location ( ' returning deposit process id = '
2108: || l_deposit_process_id,
2109: 20
2110: );
2111: hr_utility.set_location ('Leaving:' || l_proc, 30);
2112: END IF;
2113:
2114: RETURN l_deposit_process_id;
2115: END get_deposit_process_id;
2138: l_proc VARCHAR2 (72);
2139: l_attribute_count PLS_INTEGER;
2140: l_index PLS_INTEGER;
2141: BEGIN
2142: g_debug := hr_utility.debug_enabled;
2143:
2144: IF g_debug
2145: THEN
2146: l_proc := g_package || 'get_index_in_attr_table';
2143:
2144: IF g_debug
2145: THEN
2146: l_proc := g_package || 'get_index_in_attr_table';
2147: hr_utility.set_location ('Entering:' || l_proc, 10);
2148: END IF;
2149:
2150: l_attribute_count := p_attr_table.FIRST;
2151:
2173: END IF;
2174:
2175: IF g_debug
2176: THEN
2177: hr_utility.set_location (' returning index = ' || l_index, 20);
2178: hr_utility.set_location ('Leaving:' || l_proc, 30);
2179: END IF;
2180:
2181: RETURN l_index;
2174:
2175: IF g_debug
2176: THEN
2177: hr_utility.set_location (' returning index = ' || l_index, 20);
2178: hr_utility.set_location ('Leaving:' || l_proc, 30);
2179: END IF;
2180:
2181: RETURN l_index;
2182: END get_index_in_attr_table;
2223: AND v_resource_type = resource_type
2224: AND date_to = hr_general.end_of_time
2225: GROUP BY time_building_block_id;
2226: BEGIN
2227: g_debug :=hr_utility.debug_enabled;
2228: if g_debug then
2229: hr_utility.set_location ( 'Entering:'
2230: || l_proc, 10);
2231: end if;
2225: GROUP BY time_building_block_id;
2226: BEGIN
2227: g_debug :=hr_utility.debug_enabled;
2228: if g_debug then
2229: hr_utility.set_location ( 'Entering:'
2230: || l_proc, 10);
2231: end if;
2232: OPEN csr_get_parent (
2233: p_scope,
2238: );
2239: FETCH csr_get_parent INTO p_building_block_id, p_object_version_number;
2240: CLOSE csr_get_parent;
2241: if g_debug then
2242: hr_utility.set_location ( 'Leaving:'
2243: || l_proc, 20);
2244: end if;
2245: END find_parent_building_block;
2246: */
2277: l_object_version_number hxc_time_building_blocks.object_version_number%TYPE;
2278: l_counter PLS_INTEGER;
2279: l_attributes hxc_attribute_table_type;
2280: BEGIN
2281: g_debug := hr_utility.debug_enabled;
2282:
2283: IF g_debug
2284: THEN
2285: l_proc := g_package || 'get_timecard_tables';
2282:
2283: IF g_debug
2284: THEN
2285: l_proc := g_package || 'get_timecard_tables';
2286: hr_utility.set_location ('Entering:' || l_proc, 10);
2287: END IF;
2288:
2289: -- find out what the ID of the TIMECARD BB for this BB is
2290: get_timecard_bb_id (p_bb_id => p_building_block_id,
2293: );
2294:
2295: IF g_debug
2296: THEN
2297: hr_utility.set_location ('Timecard BB_ID = ' || l_timecard_bb_id,
2298: 15);
2299: END IF;
2300:
2301: -- Then get the complete TC
2319: end if;
2320:
2321: IF g_debug
2322: THEN
2323: hr_utility.set_location ('Leaving:' || l_proc, 20);
2324: END IF;
2325: END get_timecard_tables;
2326:
2327: -----------------------------------------------------------------------------
2350: IS
2351: l_proc VARCHAR2 (72);
2352: l_blocks hxc_block_table_type;
2353: BEGIN
2354: g_debug := hr_utility.debug_enabled;
2355:
2356: IF g_debug
2357: THEN
2358: l_proc := g_package || 'get_timecard_tables (Overloaded)';
2355:
2356: IF g_debug
2357: THEN
2358: l_proc := g_package || 'get_timecard_tables (Overloaded)';
2359: hr_utility.set_location ('Entering:' || l_proc, 10);
2360: END IF;
2361:
2362: get_timecard_tables (p_building_block_id => p_building_block_id,
2363: p_deposit_process => p_deposit_process,
2369: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
2370:
2371: IF g_debug
2372: THEN
2373: hr_utility.set_location ('Leaving:' || l_proc, 20);
2374: END IF;
2375: END get_timecard_tables;
2376:
2377: -----------------------------------------------------------------------------
2422: AND bbit.bld_blk_info_type_id = bbui.bld_blk_info_type_id
2423: AND mc.field_name = v_field_name
2424: AND dp.deposit_process_id = v_deposit_process_id;
2425: BEGIN
2426: g_debug := hr_utility.debug_enabled;
2427:
2428: IF g_debug
2429: THEN
2430: l_proc := g_package || 'get_bld_blk_info_type';
2427:
2428: IF g_debug
2429: THEN
2430: l_proc := g_package || 'get_bld_blk_info_type';
2431: hr_utility.set_location ('Entering:' || l_proc, 10);
2432: END IF;
2433:
2434: OPEN csr_bld_blk_info_type (p_attribute_name,
2435: get_deposit_process_id (p_deposit_process)
2441: CLOSE csr_bld_blk_info_type;
2442:
2443: IF g_debug
2444: THEN
2445: hr_utility.set_location ( ' Found Building Block Info Type = '
2446: || p_bld_blk_info_type,
2447: 20
2448: );
2449: hr_utility.set_location (' Found Segment = ' || p_segment, 30);
2445: hr_utility.set_location ( ' Found Building Block Info Type = '
2446: || p_bld_blk_info_type,
2447: 20
2448: );
2449: hr_utility.set_location (' Found Segment = ' || p_segment, 30);
2450: hr_utility.set_location ('Leaving:' || l_proc, 40);
2451: END IF;
2452: END get_bld_blk_info_type;
2453:
2446: || p_bld_blk_info_type,
2447: 20
2448: );
2449: hr_utility.set_location (' Found Segment = ' || p_segment, 30);
2450: hr_utility.set_location ('Leaving:' || l_proc, 40);
2451: END IF;
2452: END get_bld_blk_info_type;
2453:
2454: -----------------------------------------------------------------------------
2465: )
2466: IS
2467: l_proc VARCHAR2 (72);
2468: BEGIN
2469: g_debug := hr_utility.debug_enabled;
2470:
2471: IF g_debug
2472: THEN
2473: l_proc := g_package || 'clear_building_block_table';
2470:
2471: IF g_debug
2472: THEN
2473: l_proc := g_package || 'clear_building_block_table';
2474: hr_utility.set_location ('Entering:' || l_proc, 10);
2475: END IF;
2476:
2477: IF p_app_blocks.COUNT > 0
2478: THEN
2480: END IF;
2481:
2482: IF g_debug
2483: THEN
2484: hr_utility.set_location ('Leaving:' || l_proc, 20);
2485: END IF;
2486: END clear_building_block_table;
2487:
2488: -----------------------------------------------------------------------------
2499: )
2500: IS
2501: l_proc VARCHAR2 (72);
2502: BEGIN
2503: g_debug := hr_utility.debug_enabled;
2504:
2505: IF g_debug
2506: THEN
2507: l_proc := g_package || 'clear_attribute_table';
2504:
2505: IF g_debug
2506: THEN
2507: l_proc := g_package || 'clear_attribute_table';
2508: hr_utility.set_location ('Entering:' || l_proc, 10);
2509: END IF;
2510:
2511: IF p_app_attributes.COUNT > 0
2512: THEN
2514: END IF;
2515:
2516: IF g_debug
2517: THEN
2518: hr_utility.set_location ('Leaving:' || l_proc, 20);
2519: END IF;
2520: END clear_attribute_table;
2521:
2522: -----------------------------------------------------------------------------
2533: )
2534: IS
2535: l_proc VARCHAR2 (72);
2536: BEGIN
2537: g_debug := hr_utility.debug_enabled;
2538:
2539: IF g_debug
2540: THEN
2541: l_proc := g_package || 'clear_message_table';
2538:
2539: IF g_debug
2540: THEN
2541: l_proc := g_package || 'clear_message_table';
2542: hr_utility.set_location ('Entering:' || l_proc, 10);
2543: END IF;
2544:
2545: IF p_messages.COUNT > 0
2546: THEN
2548: END IF;
2549:
2550: IF g_debug
2551: THEN
2552: hr_utility.set_location ('Leaving:' || l_proc, 20);
2553: END IF;
2554: END clear_message_table;
2555:
2556: -----------------------------------------------------------------------------
2574: IS
2575: l_proc VARCHAR2 (72);
2576: l_tc_index PLS_INTEGER;
2577: BEGIN
2578: g_debug := hr_utility.debug_enabled;
2579:
2580: IF g_debug
2581: THEN
2582: l_proc := g_package || 'request_lock';
2579:
2580: IF g_debug
2581: THEN
2582: l_proc := g_package || 'request_lock';
2583: hr_utility.set_location ('Entering:' || l_proc, 10);
2584: END IF;
2585:
2586: l_tc_index :=
2587: hxc_timecard_block_utils.find_active_timecard_index (p_app_blocks);
2618: END IF;
2619:
2620: IF g_debug
2621: THEN
2622: hr_utility.set_location ('Leaving:' || l_proc, 20);
2623: END IF;
2624: END request_lock;
2625:
2626: -----------------------------------------------------------------------------
2645: IS
2646: l_proc VARCHAR2 (72);
2647: l_tc_index PLS_INTEGER;
2648: BEGIN
2649: g_debug := hr_utility.debug_enabled;
2650:
2651: IF g_debug
2652: THEN
2653: l_proc := g_package || 'release_lock';
2650:
2651: IF g_debug
2652: THEN
2653: l_proc := g_package || 'release_lock';
2654: hr_utility.set_location ('Entering:' || l_proc, 10);
2655: END IF;
2656:
2657: l_tc_index :=
2658: hxc_timecard_block_utils.find_active_timecard_index (p_app_blocks);
2689: END IF;
2690:
2691: IF g_debug
2692: THEN
2693: hr_utility.set_location ('Leaving:' || l_proc, 20);
2694: END IF;
2695: END release_lock;
2696:
2697: -----------------------------------------------------------------------------
2723: l_proc VARCHAR2 (72);
2724: i PLS_INTEGER;
2725: j PLS_INTEGER;
2726: BEGIN
2727: g_debug := hr_utility.debug_enabled;
2728:
2729: IF g_debug
2730: THEN
2731: l_proc := g_package || 'log_timecard';
2728:
2729: IF g_debug
2730: THEN
2731: l_proc := g_package || 'log_timecard';
2732: hr_utility.set_location ('Entering:' || l_proc, 10);
2733: hr_utility.set_location (' Number of BBs:' || p_app_blocks.COUNT,
2734: 15
2735: );
2736: hr_utility.set_location ( ' Number of Attrs:'
2729: IF g_debug
2730: THEN
2731: l_proc := g_package || 'log_timecard';
2732: hr_utility.set_location ('Entering:' || l_proc, 10);
2733: hr_utility.set_location (' Number of BBs:' || p_app_blocks.COUNT,
2734: 15
2735: );
2736: hr_utility.set_location ( ' Number of Attrs:'
2737: || p_app_attributes.COUNT,
2732: hr_utility.set_location ('Entering:' || l_proc, 10);
2733: hr_utility.set_location (' Number of BBs:' || p_app_blocks.COUNT,
2734: 15
2735: );
2736: hr_utility.set_location ( ' Number of Attrs:'
2737: || p_app_attributes.COUNT,
2738: 16
2739: );
2740: END IF;
2746: EXIT print_time_building_blocks WHEN (NOT p_app_blocks.EXISTS (i));
2747:
2748: IF g_debug
2749: THEN
2750: hr_utility.TRACE
2751: ( LPAD
2752: (NVL (TO_CHAR (p_app_blocks (i).time_building_block_id),
2753: ' '
2754: ),
2828: p_app_attributes (j).building_block_id
2829: THEN
2830: IF g_debug
2831: THEN
2832: hr_utility.TRACE
2833: ( ' '
2834: || --indent to indicate attribute
2835: LPAD (p_app_attributes (j).time_attribute_id,
2836: 9
2869: END LOOP print_time_building_blocks;
2870:
2871: IF g_debug
2872: THEN
2873: hr_utility.set_location ('Leaving:' || l_proc, 20);
2874: END IF;
2875: END log_timecard;
2876:
2877: -----------------------------------------------------------------------------
2902: IS
2903: l_proc VARCHAR2 (72);
2904: l_blocks hxc_block_table_type;
2905: BEGIN
2906: g_debug := hr_utility.debug_enabled;
2907:
2908: IF g_debug
2909: THEN
2910: l_proc := g_package || 'log_timecard (Overloaded)';
2907:
2908: IF g_debug
2909: THEN
2910: l_proc := g_package || 'log_timecard (Overloaded)';
2911: hr_utility.set_location ('Entering:' || l_proc, 10);
2912: END IF;
2913:
2914: l_blocks := convert_tbb_to_type (p_blocks => p_app_blocks);
2915: log_timecard (p_app_blocks => l_blocks,
2917: );
2918:
2919: IF g_debug
2920: THEN
2921: hr_utility.set_location ('Leaving:' || l_proc, 20);
2922: END IF;
2923: END log_timecard;
2924:
2925: -----------------------------------------------------------------------------
2947: l_proc VARCHAR2 (72);
2948: l_message fnd_new_messages.MESSAGE_TEXT%TYPE;
2949: i PLS_INTEGER;
2950: BEGIN
2951: g_debug := hr_utility.debug_enabled;
2952:
2953: IF g_debug
2954: THEN
2955: l_proc := g_package || 'log_messages';
2952:
2953: IF g_debug
2954: THEN
2955: l_proc := g_package || 'log_messages';
2956: hr_utility.set_location ('Entering:' || l_proc, 10);
2957: END IF;
2958:
2959: IF (p_messages IS NOT NULL)
2960: THEN -- messages have been returned
2971: );
2972:
2973: IF g_debug
2974: THEN
2975: hr_utility.TRACE
2976: ( RPAD (p_messages (i).application_short_name, 10)
2977: || ' '
2978: || LPAD (p_messages (i).time_building_block_id, 7)
2979: || ' '
3010: END LOOP;
3011: ELSE
3012: IF g_debug
3013: THEN
3014: hr_utility.TRACE
3015: (' --- No Errors Found, Timecard Deposit Successfull! ---');
3016: END IF;
3017: END IF;
3018:
3017: END IF;
3018:
3019: IF g_debug
3020: THEN
3021: hr_utility.set_location ('Leaving:' || l_proc, 20);
3022: END IF;
3023: END log_messages;
3024:
3025: -----------------------------------------------------------------------------
3049: IS
3050: l_proc VARCHAR2 (72);
3051: l_messages hxc_message_table_type;
3052: BEGIN
3053: g_debug := hr_utility.debug_enabled;
3054:
3055: IF g_debug
3056: THEN
3057: l_proc := g_package || 'log_messages (Overloaded)';
3054:
3055: IF g_debug
3056: THEN
3057: l_proc := g_package || 'log_messages (Overloaded)';
3058: hr_utility.set_location ('Entering:' || l_proc, 10);
3059: END IF;
3060:
3061: hxc_timecard_message_utils.append_old_messages
3062: (p_messages => l_messages,
3066: log_messages (p_messages => l_messages);
3067:
3068: IF g_debug
3069: THEN
3070: hr_utility.set_location ('Leaving:' || l_proc, 20);
3071: END IF;
3072: END log_messages;
3073:
3074: -----------------------------------------------------------------------------
3093: l_messages translated_message_table;
3094: l_token_table hxc_deposit_wrapper_utilities.t_simple_table;
3095: l_message_idx PLS_INTEGER := p_messages.FIRST;
3096: BEGIN
3097: g_debug := hr_utility.debug_enabled;
3098:
3099: IF g_debug
3100: THEN
3101: l_proc := g_package || 'translate_message_table';
3098:
3099: IF g_debug
3100: THEN
3101: l_proc := g_package || 'translate_message_table';
3102: hr_utility.set_location ('Entering:' || l_proc, 10);
3103: END IF;
3104:
3105: <
3106: LOOP
3149: END LOOP process_all_messages;
3150:
3151: IF g_debug
3152: THEN
3153: hr_utility.set_location ('Leaving:' || l_proc, 100);
3154: END IF;
3155:
3156: RETURN l_messages;
3157: END translate_message_table;
3188: BEGIN
3189: IF g_debug
3190: THEN
3191: l_proc := g_package || 'find_current_period';
3192: hr_utility.set_location ('Entering:' || l_proc, 10);
3193: END IF;
3194:
3195: hxc_timecard_utilities.init_globals (p_resource_id => p_resource_id);
3196: l_periods :=