[Home] [Help]
1: package body hr_elements as
2: /* $Header: pyelemnt.pkb 120.1.12010000.4 2010/01/06 10:37:22 sivanara ship $ */
3: g_debug boolean := hr_utility.debug_enabled;
4: --
5: /*
131: v_validation_check := 'Y';
132: --
133: --
134: if g_debug then
135: hr_utility.set_location('hr_elements.chk_element_type', 1);
136: end if;
137: -- Check element name
138: hr_elements.chk_element_name(p_element_name,
139: p_element_type_id,
134: if g_debug then
135: hr_utility.set_location('hr_elements.chk_element_type', 1);
136: end if;
137: -- Check element name
138: hr_elements.chk_element_name(p_element_name,
139: p_element_type_id,
140: p_val_start_date,
141: p_val_end_date,
142: p_business_group_id,
144: --
145: -- Make sure that the reporting name is unique when it is specified
146: --
147: -- if p_reporting_name is not null then
148: -- hr_elements.chk_reporting_name(p_reporting_name,
149: -- p_element_type_id,
150: -- p_val_start_date,
151: -- p_val_end_date,
152: -- p_business_group_id,
313: and el.effective_start_date <= p_val_end_date
314: and el.effective_end_date >= p_val_start_date);
315: --
316: if g_debug then
317: hr_utility.set_location('hr_elements.chk_upd_element_type', 1);
318: end if;
319: --
320: exception
321: when NO_DATA_FOUND then NULL;
418: -- Checks to see if change in processing priority will result in a
419: -- formula result rule with an input value that has a higher priority
420: -- than the element that feeds it. */
421: if p_old_processing_priority <> p_processing_priority and
422: hr_elements.element_priority_ok(
423: p_element_type_id,
424: p_processing_priority,
425: p_val_start_date,
426: p_val_end_date) = FALSE then
537: and fr.effective_start_date <= p_val_end_date
538: and fr.effective_end_date >= p_val_start_date);
539: --
540: if g_debug then
541: hr_utility.set_location('hr_elements.chk_upd_element_type', 3);
542: end if;
543: --
544: exception
545: when NO_DATA_FOUND then NULL;
571: and spr.effective_start_date <= p_val_end_date
572: and spr.effective_end_date >= p_val_start_date);
573: --
574: if g_debug then
575: hr_utility.set_location('hr_elements.chk_upd_element_type', 4);
576: end if;
577: --
578: exception
579: when OTHERS then NULL;
625: --
626: v_validation_check := 'Y';
627: --
628: if g_debug then
629: hr_utility.set_location('hr_elements.chk_del_element_type', 1);
630: end if;
631: --
632: -- Check to see if any element links exist over the validation period
633: begin
651: --
652: end if;
653: --
654: if g_debug then
655: hr_utility.set_location('hr_elements.chk_del_element_type', 2);
656: end if;
657: --
658: -- We need to check the input values. Input values can be deleted but not
659: -- if any of the conditions regarding input value deletion are broached
673: -- We cannot delete any element types if there are run results for them.
674: -- The effective date of run results is found from the payroll actions table.
675: --
676: if g_debug then
677: hr_utility.set_location('hr_elements.chk_del_element_type', 3);
678: end if;
679: --
680: begin
681: --
735: -- change in priority or extension of the element will result in the element
736: -- becoming invalid.
737: --
738: if p_mode = 'DELETE_NEXT_CHANGE' and
739: hr_elements.element_priority_ok(p_element_type_id,
740: p_processing_priority,
741: p_val_start_date,
742: p_val_end_date) = FALSE then
743: --
777: g_debug := hr_utility.debug_enabled;
778: --
779: --
780: if g_debug then
781: hr_utility.set_location('hr_elements.ins_input_value', 1);
782: end if;
783: --
784: -- Obtain sequence number for input value
785: select pay_input_values_s.nextval
787: from sys.dual;
788: --
789: --
790: if g_debug then
791: hr_utility.set_location('hr_elements.ins_input_value', 2);
792: end if;
793: --
794: -- Obtain Pay value name from hr_lookups
795: l_pay_value_name := hr_input_values.get_pay_value_name
798: c_user_id := fnd_global.user_id;
799: c_login_id := fnd_global.login_id;
800: --
801: if g_debug then
802: hr_utility.set_location('hr_elements.ins_input_value', 3);
803: end if;
804: --
805: -- Create PAY_VALUE for element type.
806: insert into pay_input_values_f
880: where T.INPUT_VALUE_ID = v_input_value_id
881: and T.LANGUAGE = L.LANGUAGE_CODE);
882: --
883: if g_debug then
884: hr_utility.set_location('hr_elements.ins_input_value', 4);
885: end if;
886: --
887: -- if this record is in startup or generic mode then insert some ownerships
888: -- for it
887: -- if this record is in startup or generic mode then insert some ownerships
888: -- for it
889: if p_startup_mode <> 'USER' then
890: --
891: hr_elements.ins_ownerships
892: ('INPUT_VALUE_ID',
893: v_input_value_id,
894: p_element_type_id);
895: --
987: begin
988: g_debug := hr_utility.debug_enabled;
989: --
990: if g_debug then
991: hr_utility.set_location('hr_elements.ins_sub_class_rule', 1);
992: end if;
993: --
994: for subcr_rec in get_sub_classifications(p_classification_id) loop
995: --
1045: -- if this record is in startup or generic mode then insert some ownerships
1046: -- for it
1047: if p_startup_mode <> 'USER' then
1048: --
1049: hr_elements.ins_ownerships
1050: ('SUB_CLASSIFICATION_RULE_ID'
1051: ,l_sub_classification_rule_id
1052: ,p_element_type_id);
1053: --
1103: -- element is to be used by the payroll run.
1104: if p_process_in_run_flag = 'Y' and p_non_payments_flag = 'N' then
1105: --
1106: -- Create PAY_VALUE
1107: hr_elements.ins_input_value(p_element_type_id,
1108: p_legislation_code,
1109: p_business_group_id,
1110: p_classification_id,
1111: p_val_start_date,
1113: p_startup_mode);
1114: --
1115: end if;
1116: -- Create sub_classification_rules
1117: hr_elements.ins_sub_classification_rules(
1118: p_element_type_id,
1119: p_legislation_code,
1120: p_business_group_id,
1121: p_classification_id,
1150: begin
1151: g_debug := hr_utility.debug_enabled;
1152: --
1153: if g_debug then
1154: hr_utility.set_location('hr_elements.del_formula_result_rules', 1);
1155: end if;
1156: --
1157: if p_delete_mode = 'ZAP' then
1158: --
1174: --
1175: elsif p_delete_mode = 'DELETE' then
1176: --
1177: if g_debug then
1178: hr_utility.set_location('hr_elements.del_formula_result_rules', 2);
1179: end if;
1180: --
1181: -- delete all future records
1182: delete from pay_formula_result_rules_f
1233: begin
1234: g_debug := hr_utility.debug_enabled;
1235: --
1236: if g_debug then
1237: hr_utility.set_location('hr_elements.del_status_processing_rules', 1);
1238: end if;
1239: --
1240: for spr_rec in get_sprs(p_element_type_id,
1241: p_val_start_date,
1269: --
1270: elsif p_delete_mode = 'DELETE' then
1271: --
1272: if g_debug then
1273: hr_utility.set_location('hr_elements.del_status_processing_rules', 2);
1274: end if;
1275: --
1276: -- delete all future records
1277: delete from pay_status_processing_rules_f
1316: begin
1317: g_debug := hr_utility.debug_enabled;
1318: --
1319: if g_debug then
1320: hr_utility.set_location('hr_elements.del_sub_classification_rules', 1);
1321: end if;
1322: --
1323: -- Delete the sub_classification_rules. The balance_feeds will have already
1324: -- been deleted as part of the delete input values procedure
1344: elsif p_delete_mode = 'DELETE' then
1345: --
1346: --
1347: if g_debug then
1348: hr_utility.set_location('hr_elements.del_sub_classification_rules', 2);
1349: end if;
1350: --
1351: -- delete all future records
1352: delete from pay_sub_classification_rules_f
1428: g_debug := hr_utility.debug_enabled;
1429: --
1430: --
1431: if g_debug then
1432: hr_utility.set_location('hr_elements.del_3p_element_type', 1);
1433: end if;
1434: --
1435: -- Select all input values.
1436: -- Perform all 3p deletes for these input values then delete the input values
1447: --
1448: end loop;
1449: --
1450: if g_debug then
1451: hr_utility.set_location('hr_elements.del_3p_element_type', 2);
1452: end if;
1453: --
1454: --
1455: if p_delete_mode = 'ZAP' then
1472: elsif p_delete_mode = 'DELETE' then
1473: --
1474: --
1475: if g_debug then
1476: hr_utility.set_location('hr_elements.del_3p_element_type', 3);
1477: end if;
1478: --
1479: -- delete all future records
1480: delete from pay_input_values_f
1494: elsif p_delete_mode = 'DELETE_NEXT_CHANGE' then
1495: --
1496: --
1497: if g_debug then
1498: hr_utility.set_location('hr_elements.del_3p_element_type', 4);
1499: end if;
1500: --
1501: begin
1502: --
1518: if l_on_final_record = 'Y' then
1519: --
1520: --
1521: if g_debug then
1522: hr_utility.set_location('hr_elements.del_3p_element_type', 5);
1523: end if;
1524: --
1525: v_end_of_time := to_date('31/12/4712', 'DD/MM/YYYY');
1526: --
1537: -- No 'FUTURE_CHANGE_DELETE' allowed.
1538: --
1539: end if;
1540: --
1541: hr_elements.del_sub_classification_rules(
1542: p_element_type_id,
1543: p_delete_mode,
1544: p_val_session_date,
1545: p_val_start_date,
1545: p_val_start_date,
1546: p_val_end_date,
1547: p_startup_mode);
1548: --
1549: hr_elements.del_status_processing_rules(
1550: p_element_type_id,
1551: p_delete_mode,
1552: p_val_session_date,
1553: p_val_start_date,
1934: p_skip_element => p_skip_element);
1935: --
1936: END check_element_freq;
1937:
1938: end hr_elements;