[Home] [Help]
235: p_changed => p_changed,
236: p_app_blocks => l_blocks
237: );
238: p_app_blocks :=
239: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
240:
241: IF g_debug
242: THEN
243: hr_utility.set_location ('Leaving:' || l_proc, 20);
316: p_time_building_block_id := - (l_count_building_block) - 2;
317: END IF;
318:
319: create_bb (p_time_building_block_id => p_time_building_block_id,
320: p_type => hxc_timecard.c_range_type,
321: -- p_measure => DEFAULTS TO NULL,
322: p_unit_of_measure => NULL,
323: p_start_time => p_start_time,
324: p_stop_time => p_stop_time,
324: p_stop_time => p_stop_time,
325: p_parent_building_block_id => NULL,
326: -- Timecard does not have a parent
327: p_parent_is_new => NULL,
328: p_scope => hxc_timecard.c_timecard_scope,
329: -- p_object_version_number => DEFAULTS TO 1,
330: -- p_approval_status=> p_approval_status
331: p_resource_id => p_resource_id,
332: p_resource_type => p_resource_type,
429: p_app_blocks => l_blocks,
430: p_time_building_block_id => p_time_building_block_id
431: );
432: p_app_blocks :=
433: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
434:
435: IF g_debug
436: THEN
437: hr_utility.set_location ( 'Leaving:'
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,
497: p_app_blocks => p_app_blocks,
498: p_timecard_bb_id => l_timecard_building_block_id,
499: p_timecard_ovn => l_timecard_ovn
500: );
568: p_app_blocks => l_blocks,
569: p_time_building_block_id => p_time_building_block_id
570: );
571: p_app_blocks :=
572: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
573:
574: IF g_debug
575: THEN
576: hr_utility.set_location ( 'Leaving:'
676: -- if the parent BB id is negative (less than -1), it was just created and is therefore
677: -- not present in the db yet, so parent is new
678: IF (p_parent_building_block_id < -1)
679: THEN
680: l_parent_is_new := hxc_timecard.c_yes;
681: ELSIF (p_parent_building_block_id = -1)
682: THEN -- We did not find the parent present in the table, ERROR
683: NULL;
684: ELSE -- The parent BB was retrieved from the DB, so it is not new
681: ELSIF (p_parent_building_block_id = -1)
682: THEN -- We did not find the parent present in the table, ERROR
683: NULL;
684: ELSE -- The parent BB was retrieved from the DB, so it is not new
685: l_parent_is_new := hxc_timecard.c_no;
686: END IF;
687:
688: create_bb
689: (p_time_building_block_id => p_time_building_block_id,
686: END IF;
687:
688: create_bb
689: (p_time_building_block_id => p_time_building_block_id,
690: p_type => hxc_timecard.c_range_type,
691: -- p_measure => DEFAULTS TO NULL,
692: p_unit_of_measure => NULL,
693: p_start_time => TO_DATE
694: ( TO_CHAR (p_day,
705: 'DD-MON-YYYY HH24:MI:SS'
706: ),
707: p_parent_building_block_id => p_parent_building_block_id,
708: p_parent_is_new => l_parent_is_new,
709: p_scope => hxc_timecard.c_day_scope,
710: -- p_object_version_number => DEFAULTS TO 1,
711: -- set the next 4 fields to the parents equivalant, we do not want the users to set these manually for now.
712: -- This can be changed later. This is not a functional requirement, it just makes the API interface easier
713: p_approval_status => p_app_blocks
791: p_app_blocks => l_blocks,
792: p_time_building_block_id => p_time_building_block_id
793: );
794: p_app_blocks :=
795: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
796:
797: IF g_debug
798: THEN
799: hr_utility.set_location ( 'Leaving:'
1017: -- if the parent BB id is negative, it was just created and is therefore not present in the db yet
1018: -- so parent is new
1019: IF (p_parent_building_block_id < 0)
1020: THEN
1021: l_parent_is_new := hxc_timecard.c_yes;
1022: ELSE -- The parent BB was retrieved from the DB, so it is not new
1023: l_parent_is_new := hxc_timecard.c_no;
1024: END IF;
1025:
1019: IF (p_parent_building_block_id < 0)
1020: THEN
1021: l_parent_is_new := hxc_timecard.c_yes;
1022: ELSE -- The parent BB was retrieved from the DB, so it is not new
1023: l_parent_is_new := hxc_timecard.c_no;
1024: END IF;
1025:
1026: -- If the user does not provide a UOM, we assume he wants to use HOURS
1027: -- This is a pretty save assumption as it is the only UOM we support at
1053: p_start_time => p_start_time,
1054: p_stop_time => p_stop_time,
1055: p_parent_building_block_id => p_parent_building_block_id,
1056: p_parent_is_new => l_parent_is_new,
1057: p_scope => hxc_timecard.c_detail_scope,
1058: -- p_object_version_number => DEFAULTS TO 1,
1059: -- set the next 4 fields to the parents equivalant, we do not want the users to set these manually for now.
1060: -- This can be changed later. This is not a functional requirement, it just makes the API interface easier
1061: p_approval_status => p_app_blocks
1162: p_app_attributes => p_app_attributes,
1163: p_time_building_block_id => p_time_building_block_id
1164: );
1165: p_app_blocks :=
1166: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
1167:
1168: IF g_debug
1169: THEN
1170: hr_utility.set_location ( 'Leaving:'
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,
1238: p_app_blocks => p_app_blocks,
1239: p_timecard_bb_id => l_time_building_block_id,
1240: p_timecard_ovn => l_timecard_ovn
1241: );
1255: END IF;
1256:
1257: -- Now call the actual create procedure
1258: create_detail_bb
1259: (p_type => hxc_timecard.c_measure_type,
1260: p_measure => p_measure,
1261: p_unit_of_measure => c_hours_uom,
1262: p_start_time => NULL,
1263: p_stop_time => NULL,
1334: p_app_attributes => p_app_attributes,
1335: p_time_building_block_id => p_time_building_block_id
1336: );
1337: p_app_blocks :=
1338: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
1339:
1340: IF g_debug
1341: THEN
1342: hr_utility.set_location ( 'Leaving:'
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,
1411: p_app_blocks => p_app_blocks,
1412: p_timecard_bb_id => l_time_building_block_id,
1413: p_timecard_ovn => l_timecard_ovn
1414: );
1428: END IF;
1429:
1430: -- Now call the actual create procedure
1431: create_detail_bb
1432: (p_type => hxc_timecard.c_range_type,
1433: p_measure => NULL,
1434: p_unit_of_measure => NULL,
1435: p_start_time => p_start_time,
1436: p_stop_time => p_stop_time,
1507: p_app_attributes => p_app_attributes,
1508: p_time_building_block_id => p_time_building_block_id
1509: );
1510: p_app_blocks :=
1511: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
1512:
1513: IF g_debug
1514: THEN
1515: hr_utility.set_location ( 'Leaving:'
1645: p_app_attributes (l_attribute_count).bld_blk_info_type :=
1646: l_bld_blk_info_type;
1647: p_app_attributes (l_attribute_count).CATEGORY := l_bld_blk_info_type;
1648: p_app_attributes (l_attribute_count).SEGMENT := l_segment;
1649: p_app_attributes (l_attribute_count).updated := hxc_timecard.c_no;
1650: p_app_attributes (l_attribute_count).changed := hxc_timecard.c_no;
1651:
1652: IF g_debug
1653: THEN
1646: l_bld_blk_info_type;
1647: p_app_attributes (l_attribute_count).CATEGORY := l_bld_blk_info_type;
1648: p_app_attributes (l_attribute_count).SEGMENT := l_segment;
1649: p_app_attributes (l_attribute_count).updated := hxc_timecard.c_no;
1650: p_app_attributes (l_attribute_count).changed := hxc_timecard.c_no;
1651:
1652: IF g_debug
1653: THEN
1654: hr_utility.set_location ('Leaving:' || l_proc, 20);
1790: p_app_blocks (l_building_block_index).stop_time :=
1791: fnd_date.date_to_canonical (p_stop_time);
1792: END IF;
1793:
1794: p_app_blocks (l_building_block_index).parent_is_new := hxc_timecard.c_no;
1795: -- Don't know yet if I need this here or not
1796: -- p_app_blocks ( l_building_block_index).object_version_number := 1;
1797: p_app_blocks (l_building_block_index).date_from :=
1798: fnd_date.date_to_canonical (SYSDATE);
1804: p_app_blocks (l_building_block_index).comment_text := p_comment_text;
1805: END IF;
1806:
1807: -- Indicate that this is an updated TBB, not a new one
1808: p_app_blocks (l_building_block_index).NEW := hxc_timecard.c_no;
1809: p_app_blocks (l_building_block_index).changed := hxc_timecard.c_yes;
1810:
1811: IF g_debug
1812: THEN
1805: END IF;
1806:
1807: -- Indicate that this is an updated TBB, not a new one
1808: p_app_blocks (l_building_block_index).NEW := hxc_timecard.c_no;
1809: p_app_blocks (l_building_block_index).changed := hxc_timecard.c_yes;
1810:
1811: IF g_debug
1812: THEN
1813: hr_utility.set_location ('Leaving:' || l_proc, 30);
1870: p_app_blocks => l_blocks,
1871: p_app_attributes => p_app_attributes
1872: );
1873: p_app_blocks :=
1874: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
1875:
1876: IF g_debug
1877: THEN
1878: hr_utility.set_location ('Leaving:' || l_proc, 20);
1943: -- user anymore, but it will stay in the DB (with a date_to of sysdate)
1944: p_app_blocks (l_building_block_index).date_to :=
1945: fnd_date.date_to_canonical (p_effective_date);
1946: -- indicate that this TBB has changed (delete)
1947: p_app_blocks (l_building_block_index).NEW := hxc_timecard.c_no;
1948: p_app_blocks (l_building_block_index).changed := hxc_timecard.c_yes;
1949:
1950: IF g_debug
1951: THEN
1944: p_app_blocks (l_building_block_index).date_to :=
1945: fnd_date.date_to_canonical (p_effective_date);
1946: -- indicate that this TBB has changed (delete)
1947: p_app_blocks (l_building_block_index).NEW := hxc_timecard.c_no;
1948: p_app_blocks (l_building_block_index).changed := hxc_timecard.c_yes;
1949:
1950: IF g_debug
1951: THEN
1952: hr_utility.set_location ('Leaving:' || l_proc, 20);
2001: p_app_blocks => l_blocks,
2002: p_app_attributes => p_app_attributes
2003: );
2004: p_app_blocks :=
2005: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
2006:
2007: IF g_debug
2008: THEN
2009: hr_utility.set_location ('Leaving:' || l_proc, 20);
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,
2066: p_template => p_template,
2067: p_timecard_id => p_building_block_id,
2068: p_timecard_ok => l_dummy
2069: );
2222: );
2223: END IF;
2224: END IF;
2225:
2226: p_app_attributes (l_attribute_index).updated := hxc_timecard.c_no;
2227: p_app_attributes (l_attribute_index).changed := hxc_timecard.c_yes;
2228: ELSE
2229: -- ARR:
2230: -- We didn't find the app attribute, so we should create it.
2223: END IF;
2224: END IF;
2225:
2226: p_app_attributes (l_attribute_index).updated := hxc_timecard.c_no;
2227: p_app_attributes (l_attribute_index).changed := hxc_timecard.c_yes;
2228: ELSE
2229: -- ARR:
2230: -- We didn't find the app attribute, so we should create it.
2231: --
2301: p_app_blocks => l_blocks,
2302: p_app_attributes => p_app_attributes
2303: );
2304: p_app_blocks :=
2305: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
2306:
2307: IF g_debug
2308: THEN
2309: hr_utility.set_location ('Leaving:' || l_proc, 20);
2371: END IF;
2372:
2373: -- issue savepoint in case running in validate mode
2374: SAVEPOINT validation_only;
2375: hxc_timecard_block_utils.initialize_timecard_index;
2376:
2377: -- assign p_validate in global variable.
2378: g_validate := p_validate;
2379:
2412: AND (hxc_preference_evaluation.employment_ended
2413: (p_person_id => p_app_blocks (p_app_blocks.FIRST).resource_id
2414: )
2415: )
2416: AND ( (p_mode = hxc_timecard.c_submit)
2417: OR (p_mode = c_tk_submit)
2418: )
2419: )
2420: THEN
2491: hxc_retrieve_absences.g_lock_row_id := l_row_lock_id;
2492:
2493:
2494: -- perform the deposit using NEW DPWR
2495: IF (p_mode = hxc_timecard.c_save)
2496: THEN
2497: hxc_timestore_deposit_util.save_timecard
2498: (p_blocks => p_app_blocks,
2499: p_attributes => l_attributes,
2500: p_messages => p_messages,
2501: p_timecard_id => p_timecard_id,
2502: p_timecard_ovn => p_timecard_ovn
2503: );
2504: ELSIF (p_mode = hxc_timecard.c_submit)
2505: THEN
2506: hxc_timestore_deposit_util.submit_timecard
2507: (p_item_type => p_item_type,
2508: p_approval_prc => p_approval_prc,
2683: p_process_terminated_employees => p_process_terminated_employees,
2684: p_approve_term_emps_on_submit => p_approve_term_emps_on_submit
2685: );
2686: p_app_blocks :=
2687: hxc_timecard_block_utils.convert_to_dpwr_blocks (p_blocks => l_blocks);
2688: p_messages :=
2689: hxc_timestore_deposit_util.convert_to_dpwr_messages
2690: (p_messages => l_messages);
2691: