[Home] [Help]
1: PACKAGE BODY hxc_timestore_deposit AS
2: /* $Header: hxctsdp.pkb 120.7 2006/04/19 13:27:48 mvilrokx noship $ */
3:
4: -- Global package name
5: g_package CONSTANT VARCHAR2 (33) := 'hxc_timestore_deposit.';
1: PACKAGE BODY hxc_timestore_deposit AS
2: /* $Header: hxctsdp.pkb 120.7 2006/04/19 13:27:48 mvilrokx noship $ */
3:
4: -- Global package name
5: g_package CONSTANT VARCHAR2 (33) := 'hxc_timestore_deposit.';
6: g_debug BOOLEAN := hr_utility.debug_enabled;
7:
8: PROCEDURE get_timecard_tables (
9: p_building_block_id IN hxc_time_building_blocks.time_building_block_id%TYPE,
13: p_app_attributes OUT NOCOPY hxc_self_service_time_deposit.app_attributes_info
14: )
15: IS
16: BEGIN
17: hxc_timestore_deposit_util.get_timecard_tables (p_building_block_id,
18: p_deposit_process,
19: p_clear_mapping_cache,
20: p_app_blocks,
21: p_app_attributes
30: p_app_attributes OUT NOCOPY hxc_self_service_time_deposit.app_attributes_info
31: )
32: IS
33: BEGIN
34: hxc_timestore_deposit_util.get_timecard_tables (p_building_block_id,
35: p_deposit_process,
36: p_clear_mapping_cache,
37: p_app_blocks,
38: p_app_attributes
210: hr_utility.set_location ('Entering:' || l_proc, 10);
211: END IF;
212:
213: l_blocks :=
214: hxc_timestore_deposit_util.convert_tbb_to_type
215: (p_blocks => p_app_blocks);
216: create_bb (p_time_building_block_id => p_time_building_block_id,
217: p_type => p_type,
218: p_measure => p_measure,
302:
303: -- We are starting with a new timecard so clear the global tables
304: hxc_self_service_time_deposit.initialize_globals;
305: -- Also clear the local PL/SQL table
306: hxc_timestore_deposit_util.clear_building_block_table
307: (p_app_blocks => p_app_blocks);
308: l_count_building_block := p_app_blocks.LAST;
309:
310: -- 'generate' a TBB ID
416: hr_utility.set_location ('Entering:' || l_proc, 10);
417: END IF;
418:
419: l_blocks :=
420: hxc_timestore_deposit_util.convert_tbb_to_type
421: (p_blocks => p_app_blocks);
422: -- Call overloaded procedure
423: create_timecard_bb (p_start_time => p_start_time,
424: p_stop_time => p_stop_time,
488: hr_utility.set_location ('Entering:' || l_proc, 10);
489: END IF;
490:
491: -- First find the TIMECARD TBB to which this DAY TBB belongs
492: hxc_timestore_deposit_util.find_parent_building_block
493: (p_start_time => p_day,
494: p_resource_id => p_resource_id,
495: p_resource_type => p_resource_type,
496: p_scope => hxc_timecard.c_timecard_scope,
556: hr_utility.set_location ('Entering:' || l_proc, 10);
557: END IF;
558:
559: l_blocks :=
560: hxc_timestore_deposit_util.convert_tbb_to_type
561: (p_blocks => p_app_blocks);
562: -- Call overloaded procedure
563: create_day_bb (p_day => p_day,
564: p_resource_id => p_resource_id,
644: -- First clear the global tables so no garbage gets loaded with the
645: -- updated TC
646: hxc_self_service_time_deposit.initialize_globals;
647: -- then get the TC and attributes out of the DB into the PL/SQL Tables
648: hxc_timestore_deposit_util.get_timecard_tables
649: (p_building_block_id => p_parent_building_block_id,
650: p_deposit_process => p_deposit_process,
651: p_app_blocks => p_app_blocks,
652: p_app_attributes => l_app_attributes
666: END IF;
667:
668: -- lets find the parent of this BB, we will use this to set some attributes = parents attributes
669: l_parent_building_block_index :=
670: hxc_timestore_deposit_util.get_index_in_bb_table
671: (p_bb_table => p_app_blocks,
672: p_bb_id_to_find => p_parent_building_block_id
673: );
674:
778: hr_utility.set_location ('Entering:' || l_proc, 10);
779: END IF;
780:
781: l_blocks :=
782: hxc_timestore_deposit_util.convert_tbb_to_type
783: (p_blocks => p_app_blocks);
784: -- Call overloaded procedure
785: create_day_bb
786: (p_day => p_day,
855: hr_utility.set_location ('Entering:' || l_proc, 10);
856: END IF;
857:
858: -- clear tables
859: hxc_timestore_deposit_util.clear_building_block_table
860: (p_app_blocks => p_app_blocks);
861: hxc_timestore_deposit_util.clear_attribute_table
862: (p_app_attributes => p_app_attributes);
863: hxc_timestore_deposit_util.find_current_period
857:
858: -- clear tables
859: hxc_timestore_deposit_util.clear_building_block_table
860: (p_app_blocks => p_app_blocks);
861: hxc_timestore_deposit_util.clear_attribute_table
862: (p_app_attributes => p_app_attributes);
863: hxc_timestore_deposit_util.find_current_period
864: (p_resource_id => p_resource_id,
865: p_resource_type => 'PERSON',
859: hxc_timestore_deposit_util.clear_building_block_table
860: (p_app_blocks => p_app_blocks);
861: hxc_timestore_deposit_util.clear_attribute_table
862: (p_app_attributes => p_app_attributes);
863: hxc_timestore_deposit_util.find_current_period
864: (p_resource_id => p_resource_id,
865: p_resource_type => 'PERSON',
866: p_day => p_day,
867: p_start_time => l_start_time,
993: -- First clear the global tables so no garbage gets loaded with the
994: -- updated TC
995: hxc_self_service_time_deposit.initialize_globals;
996: -- then get the TC and attributes out of the DB into the PL/SQL Tables
997: hxc_timestore_deposit_util.get_timecard_tables
998: (p_building_block_id => p_parent_building_block_id,
999: p_deposit_process => p_deposit_process,
1000: p_app_blocks => p_app_blocks,
1001: p_app_attributes => p_app_attributes
1040: END IF;
1041:
1042: -- lets find the parent of this BB, we will use this to set some attributes = parents attributes
1043: l_parent_building_block_index :=
1044: hxc_timestore_deposit_util.get_index_in_bb_table
1045: (p_bb_table => p_app_blocks,
1046: p_bb_id_to_find => p_parent_building_block_id
1047: );
1048: create_bb
1139: hr_utility.set_location ('Entering:' || l_proc, 10);
1140: END IF;
1141:
1142: l_blocks :=
1143: hxc_timestore_deposit_util.convert_tbb_to_type
1144: (p_blocks => p_app_blocks);
1145: create_detail_bb
1146: (p_type => p_type,
1147: p_measure => p_measure,
1229: hr_utility.set_location ('Entering:' || l_proc, 10);
1230: END IF;
1231:
1232: -- First find the DAY TBB to which this DETAIL TBB belongs
1233: hxc_timestore_deposit_util.find_parent_building_block
1234: (p_start_time => p_day,
1235: p_resource_id => p_resource_id,
1236: p_resource_type => p_resource_type,
1237: p_scope => hxc_timecard.c_day_scope,
1321: hr_utility.set_location ('Entering:' || l_proc, 10);
1322: END IF;
1323:
1324: l_blocks :=
1325: hxc_timestore_deposit_util.convert_tbb_to_type
1326: (p_blocks => p_app_blocks);
1327: create_time_entry (p_measure => p_measure,
1328: p_day => p_day,
1329: p_resource_id => p_resource_id,
1402: hr_utility.set_location ('Entering:' || l_proc, 10);
1403: END IF;
1404:
1405: -- First find the DAY TBB to which this DETAIL TBB belongs
1406: hxc_timestore_deposit_util.find_parent_building_block
1407: (p_start_time => p_start_time,
1408: p_resource_id => p_resource_id,
1409: p_resource_type => p_resource_type,
1410: p_scope => hxc_timecard.c_day_scope,
1494: hr_utility.set_location ('Entering:' || l_proc, 10);
1495: END IF;
1496:
1497: l_blocks :=
1498: hxc_timestore_deposit_util.convert_tbb_to_type
1499: (p_blocks => p_app_blocks);
1500: create_time_entry (p_start_time => p_start_time,
1501: p_stop_time => p_stop_time,
1502: p_resource_id => p_resource_id,
1578: l_proc := g_package || 'create_attribute';
1579: hr_utility.set_location ('Entering:' || l_proc, 10);
1580: END IF;
1581:
1582: hxc_timestore_deposit_util.get_bld_blk_info_type
1583: (p_attribute_name => p_attribute_name,
1584: p_deposit_process => p_deposit_process,
1585: p_bld_blk_info_type => l_bld_blk_info_type,
1586: p_segment => l_segment
1712: IF (p_app_blocks.COUNT <> 0)
1713: THEN
1714: -- check to see if you can find the BB in the loaded timecard
1715: l_building_block_index :=
1716: hxc_timestore_deposit_util.get_index_in_bb_table
1717: (p_bb_table => p_app_blocks,
1718: p_bb_id_to_find => p_building_block_id
1719: );
1720:
1736: -- First clear the global tables so no garbage gets loaded with the
1737: -- updated TC
1738: hxc_self_service_time_deposit.initialize_globals;
1739: -- then get the TC and attributes out of the DB into the PL/SQL Tables
1740: hxc_timestore_deposit_util.get_timecard_tables
1741: (p_building_block_id => p_building_block_id,
1742: -- p_time_recipient_id=> p_time_recipient_id,
1743: p_deposit_process => p_deposit_process,
1744: p_app_blocks => p_app_blocks,
1745: p_app_attributes => p_app_attributes
1746: );
1747: -- now find where in the p_app_blocks table our TBB is situated
1748: l_building_block_index :=
1749: hxc_timestore_deposit_util.get_index_in_bb_table
1750: (p_bb_table => p_app_blocks,
1751: p_bb_id_to_find => p_building_block_id
1752: );
1753:
1856: hr_utility.set_location ('Entering:' || l_proc, 10);
1857: END IF;
1858:
1859: l_blocks :=
1860: hxc_timestore_deposit_util.convert_tbb_to_type
1861: (p_blocks => p_app_blocks);
1862: update_building_block (p_building_block_id => p_building_block_id,
1863: p_measure => p_measure,
1864: p_unit_of_measure => p_unit_of_measure,
1924:
1925: -- First clear the global tables so no garbage gets loaded with the updated TC
1926: hxc_self_service_time_deposit.initialize_globals;
1927: -- then get the TC and attributes out of the DB into the PL/SQL Tables
1928: hxc_timestore_deposit_util.get_timecard_tables
1929: (p_building_block_id => p_building_block_id,
1930: -- p_time_recipient_id=> p_time_recipient_id,
1931: p_deposit_process => p_deposit_process,
1932: p_app_blocks => p_app_blocks,
1933: p_app_attributes => p_app_attributes
1934: );
1935: -- now find where in the p_app_blocks table our TBB is situated
1936: l_building_block_index :=
1937: hxc_timestore_deposit_util.get_index_in_bb_table
1938: (p_bb_table => p_app_blocks,
1939: p_bb_id_to_find => p_building_block_id
1940: );
1941: -- Set the date_to of the TBB to the sysdate, that will 'delete' the TBB
1991: hr_utility.set_location ('Entering:' || l_proc, 10);
1992: END IF;
1993:
1994: l_blocks :=
1995: hxc_timestore_deposit_util.convert_tbb_to_type
1996: (p_blocks => p_app_blocks);
1997: delete_detail_bb (p_building_block_id => p_building_block_id,
1998: -- p_time_recipient_id => p_time_recipient_id,
1999: p_deposit_process => p_deposit_process,
2057: l_proc := g_package || 'delete_timecard';
2058: hr_utility.set_location ('Entering:' || l_proc, 10);
2059: END IF;
2060:
2061: IF (NOT hxc_timestore_deposit_util.cla_enabled
2062: (p_building_block_id => p_building_block_id)
2063: )
2064: THEN
2065: hxc_timecard.delete_timecard (p_mode => p_mode,
2138: IF (p_app_attributes.COUNT <> 0)
2139: THEN
2140: -- check to see if you can find the attribute in the loaded timecard
2141: l_attribute_index :=
2142: hxc_timestore_deposit_util.get_index_in_attr_table
2143: (p_attr_table => p_app_attributes,
2144: p_attr_id_to_find => p_time_attribute_id,
2145: p_attribute_name_to_find => p_attribute_name
2146: );
2177: -- as only the mapping components for non-null attribute values are created
2178: -- and we may be creating a new attribute, or updating a null attribute
2179: -- in this procedure. Thus, we should regenerate the app attribute
2180: -- mapping cache for deposit and validation.
2181: hxc_timestore_deposit_util.get_timecard_tables
2182: (p_building_block_id => l_tbb_id,
2183: -- p_app_attributes (l_attribute_index).building_block_id,
2184: -- p_time_recipient_id=> p_time_recipient_id,
2185: p_deposit_process => p_deposit_process,
2188: p_app_attributes => p_app_attributes
2189: );
2190: -- Now locate our attribute in the PL/SQL table
2191: l_attribute_index :=
2192: hxc_timestore_deposit_util.get_index_in_attr_table
2193: (p_attr_table => p_app_attributes,
2194: p_attr_id_to_find => p_time_attribute_id,
2195: p_attribute_name_to_find => p_attribute_name
2196: );
2288: hr_utility.set_location ('Entering:' || l_proc, 10);
2289: END IF;
2290:
2291: l_blocks :=
2292: hxc_timestore_deposit_util.convert_tbb_to_type
2293: (p_blocks => p_app_blocks);
2294: update_attribute (p_time_attribute_id => p_time_attribute_id,
2295: -- p_building_block_id => p_building_block_id,
2296: p_attribute_name => p_attribute_name,
2373: -- issue savepoint in case running in validate mode
2374: SAVEPOINT validation_only;
2375: hxc_timecard_block_utils.initialize_timecard_index;
2376: -- take out a lock on the period
2377: hxc_timestore_deposit_util.request_lock
2378: (p_app_blocks => p_app_blocks,
2379: p_messages => p_messages,
2380: p_locked_success => l_locked_success,
2381: p_row_lock_id => l_row_lock_id
2400:
2401: IF (p_mode = c_migration)
2402: THEN
2403: l_approval_style_id :=
2404: hxc_timestore_deposit_util.approval_style_id
2405: (p_approval_style_name => c_auto_approve_name);
2406: ELSE -- from the employee's preference
2407: IF ( (p_approve_term_emps_on_submit)
2408: AND (hxc_preference_evaluation.employment_ended
2414: )
2415: )
2416: THEN
2417: l_approval_style_id :=
2418: hxc_timestore_deposit_util.approval_style_id
2419: (p_approval_style_name => c_approval_on_submit_name);
2420: ELSE
2421: l_approval_style_id :=
2422: hxc_preference_evaluation.resource_preferences
2445:
2446: LOOP
2447: EXIT WHEN (NOT p_app_blocks.EXISTS (l_building_block_count));
2448: p_app_blocks (l_building_block_count).approval_status :=
2449: hxc_timestore_deposit_util.get_approval_status (p_mode);
2450:
2451: -- In case of MIGRATION we just override what that user passes in as
2452: -- approval style (we set it to Auto Approve regardless), in all other
2453: -- cases we never override, only if nothing is provided we put
2467: p_app_blocks.NEXT (l_building_block_count);
2468: END LOOP;
2469:
2470: -- convert the app_attributes into attributes that the DPWR understands
2471: hxc_timestore_deposit_util.convert_app_attributes_to_type
2472: (p_attributes => l_attributes,
2473: p_app_attributes => p_app_attributes
2474: );
2475:
2483:
2484: -- perform the deposit using NEW DPWR
2485: IF (p_mode = hxc_timecard.c_save)
2486: THEN
2487: hxc_timestore_deposit_util.save_timecard
2488: (p_blocks => p_app_blocks,
2489: p_attributes => l_attributes,
2490: p_messages => p_messages,
2491: p_timecard_id => p_timecard_id,
2492: p_timecard_ovn => p_timecard_ovn
2493: );
2494: ELSIF (p_mode = hxc_timecard.c_submit)
2495: THEN
2496: hxc_timestore_deposit_util.submit_timecard
2497: (p_item_type => p_item_type,
2498: p_approval_prc => p_approval_prc,
2499: p_template => p_template,
2500: p_mode => p_mode,
2523: ELSIF (p_mode = c_migration)
2524: THEN
2525: IF (p_retrieval_process IS NOT NULL)
2526: THEN
2527: hxc_timestore_deposit_util.submit_timecard
2528: (p_item_type => 'HXCEMP',
2529: p_approval_prc => 'HXC_APPROVAL',
2530: p_template => p_template,
2531: p_mode => p_mode,
2541: fnd_msg_pub.ADD;
2542: END IF;
2543: END IF;
2544:
2545: hxc_timestore_deposit_util.release_lock
2546: (p_app_blocks => p_app_blocks,
2547: p_messages => p_messages,
2548: p_released_success => l_released_success,
2549: p_row_lock_id => l_row_lock_id
2559: -- their wrappers as below.
2560: IF (p_mode <> c_migration)
2561: THEN
2562: -- Finished, clean up
2563: hxc_timestore_deposit_util.clear_building_block_table
2564: (p_app_blocks => p_app_blocks);
2565: hxc_timestore_deposit_util.clear_attribute_table
2566: (p_app_attributes => p_app_attributes);
2567: -- We don't really wanna clear this as the user might want to read them.
2561: THEN
2562: -- Finished, clean up
2563: hxc_timestore_deposit_util.clear_building_block_table
2564: (p_app_blocks => p_app_blocks);
2565: hxc_timestore_deposit_util.clear_attribute_table
2566: (p_app_attributes => p_app_attributes);
2567: -- We don't really wanna clear this as the user might want to read them.
2568: -- clear_message_table (p_messages => p_messages);
2569: END IF;
2594: END IF;
2595: WHEN OTHERS
2596: THEN
2597: -- make sure we release the lock
2598: hxc_timestore_deposit_util.release_lock
2599: (p_app_blocks => p_app_blocks,
2600: p_messages => p_messages,
2601: p_released_success => l_released_success,
2602: p_row_lock_id => l_row_lock_id
2652: hr_utility.set_location ('Entering:' || l_proc, 10);
2653: END IF;
2654:
2655: l_blocks :=
2656: hxc_timestore_deposit_util.convert_tbb_to_type
2657: (p_blocks => p_app_blocks);
2658: execute_deposit_process
2659: (p_validate => p_validate,
2660: p_mode => p_mode,
2674: );
2675: p_app_blocks :=
2676: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
2677: p_messages :=
2678: hxc_timestore_deposit_util.convert_to_dpwr_messages
2679: (p_messages => l_messages);
2680:
2681: IF g_debug
2682: THEN
2688: p_app_blocks IN OUT NOCOPY hxc_block_table_type
2689: )
2690: IS
2691: BEGIN
2692: hxc_timestore_deposit_util.clear_building_block_table (p_app_blocks);
2693: END clear_building_block_table;
2694:
2695: PROCEDURE clear_attribute_table (
2696: p_app_attributes IN OUT NOCOPY hxc_self_service_time_deposit.app_attributes_info
2696: p_app_attributes IN OUT NOCOPY hxc_self_service_time_deposit.app_attributes_info
2697: )
2698: IS
2699: BEGIN
2700: hxc_timestore_deposit_util.clear_attribute_table (p_app_attributes);
2701: END clear_attribute_table;
2702:
2703: PROCEDURE clear_message_table (
2704: p_messages IN OUT NOCOPY hxc_message_table_type
2704: p_messages IN OUT NOCOPY hxc_message_table_type
2705: )
2706: IS
2707: BEGIN
2708: hxc_timestore_deposit_util.clear_message_table (p_messages);
2709: END clear_message_table;
2710:
2711: PROCEDURE log_timecard (
2712: p_app_blocks IN hxc_block_table_type,
2713: p_app_attributes IN hxc_self_service_time_deposit.app_attributes_info
2714: )
2715: IS
2716: BEGIN
2717: hxc_timestore_deposit_util.log_timecard (p_app_blocks,
2718: p_app_attributes);
2719: END log_timecard;
2720:
2721: PROCEDURE log_timecard (
2723: p_app_attributes IN hxc_self_service_time_deposit.app_attributes_info
2724: )
2725: IS
2726: BEGIN
2727: hxc_timestore_deposit_util.log_timecard (p_app_blocks,
2728: p_app_attributes);
2729: END log_timecard;
2730:
2731: PROCEDURE log_messages (p_messages IN hxc_message_table_type)
2730:
2731: PROCEDURE log_messages (p_messages IN hxc_message_table_type)
2732: IS
2733: BEGIN
2734: hxc_timestore_deposit_util.log_messages (p_messages);
2735: END log_messages;
2736:
2737: PROCEDURE log_messages (
2738: p_messages IN hxc_self_service_time_deposit.message_table
2738: p_messages IN hxc_self_service_time_deposit.message_table
2739: )
2740: IS
2741: BEGIN
2742: hxc_timestore_deposit_util.log_messages (p_messages);
2743: END log_messages;
2744: END hxc_timestore_deposit;
2740: IS
2741: BEGIN
2742: hxc_timestore_deposit_util.log_messages (p_messages);
2743: END log_messages;
2744: END hxc_timestore_deposit;