[Home] [Help]
1: PACKAGE BODY hr_user_init_dedn AS
2: /* $Header: pyusuidt.pkb 120.3.12010000.1 2008/07/27 23:58:14 appldev ship $ */
3: -- PACKAGE BODY hr_user_init_dedn IS
4: /*
5: +======================================================================+
1: PACKAGE BODY hr_user_init_dedn AS
2: /* $Header: pyusuidt.pkb 120.3.12010000.1 2008/07/27 23:58:14 appldev ship $ */
3: -- PACKAGE BODY hr_user_init_dedn IS
4: /*
5: +======================================================================+
6: | Copyright (c) 1993 Oracle Corporation |
7: | Redwood Shores, California, USA |
7: | Redwood Shores, California, USA |
8: | All rights reserved. |
9: +======================================================================+
10:
11: Name : hr_user_init_dedn
12:
13: Filename : pyusuidt.pkb
14:
15: Change List
458: -- Unless this function actually has to do anything, we can make call
459: -- to pay_db_pay_setup from ins_deduction_template.
460: --
461:
462: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',10);
463:
464: IF p_ele_processing_type = 'N' THEN
465:
466: v_mult_entries_allowed := 'Y';
479: v_third_ppm := 'Y';
480:
481: END IF;
482:
483: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',30);
484: ret := pay_db_pay_setup.create_element(
485: p_element_name => p_ele_name,
486: p_description => p_ele_description,
487: p_classification_name => p_ele_class,
530: v_ele_formula_id NUMBER(9);
531: v_ele_name VARCHAR2(80);
532:
533: BEGIN
534: hr_utility.set_location('hr_user_init_dedn.ins_formula',10);
535:
536: if p_ele_processing_type = 'R' then
537:
538: SELECT FF.formula_text, FF.formula_type_id
559:
560: end if; /* p_ele_processing_type */
561:
562: -- Replace element name placeholders with current element name:
563: hr_utility.set_location('hr_user_init_dedn.ins_formula',15);
564: v_ele_name := REPLACE(LTRIM(RTRIM(UPPER(p_ff_ele_name))),' ','_');
565:
566: v_ele_formula_text := REPLACE( v_skeleton_formula_text,
567: '
570: -- Make
571: --
572: IF p_amt_rule = 'PT' THEN
573: IF p_row_type NOT IN ('Salary Range', 'Age Range') THEN
574: hr_utility.set_location('hr_user_init_dedn.ins_formula',17);
575: v_ele_formula_text := REPLACE( v_ele_formula_text,
576: '
577: REPLACE(LTRIM(RTRIM(p_row_type)),' ','_'));
578:
575: v_ele_formula_text := REPLACE( v_ele_formula_text,
576: '
577: REPLACE(LTRIM(RTRIM(p_row_type)),' ','_'));
578:
579: hr_utility.set_location('hr_user_init_dedn.ins_formula',19);
580: v_ele_formula_text := REPLACE( v_ele_formula_text,
581: '
582: 'default for ' || REPLACE(LTRIM(RTRIM(p_row_type)),' ','_') || ' (text) is ''NOT ENTERED''');
583:
590: --
591: -- Do we need to handle when row type is Salary Range, ie. use ASS_SALARY dbi?
592: -- Do we also need to create Default For ASS_SALARY or PER_AGE as appropriate?
593: --
594: hr_utility.set_location('hr_user_init_dedn.ins_formula',20);
595: v_ele_formula_text := REPLACE( v_ele_formula_text,
596: '
597: 'To_Char(PER_AGE)');
598:
595: v_ele_formula_text := REPLACE( v_ele_formula_text,
596: '
597: 'To_Char(PER_AGE)');
598:
599: hr_utility.set_location('hr_user_init_dedn.ins_formula',21);
600: v_ele_formula_text := REPLACE( v_ele_formula_text,
601: '
602: ' ');
603:
609:
610: --
611: -- "Zero" benefits
612: --
613: hr_utility.set_location('hr_user_init_dedn.ins_formula',23);
614: v_ele_formula_text := REPLACE( v_ele_formula_text,
615: v_ele_name || '_BEN_EE_CONTR_VALUE',
616: '0');
617:
631:
632: --
633: -- Using benefits,
634: --
635: hr_utility.set_location('hr_user_init_dedn.ins_formula',25);
636: v_ele_formula_text := REPLACE( v_ele_formula_text,
637: '
638: 'default for ' || v_ele_name || '_BEN_EE_CONTR_VALUE is 0');
639:
658:
659: --
660: -- Clear out everything!
661: -- Clear out
662: hr_utility.set_location('hr_user_init_dedn.ins_formula',27);
663: v_ele_formula_text := REPLACE( v_ele_formula_text,
664: '
665: '''NOT ENTERED''');
666:
699: --
700: -- Insert the new formula into current business goup:
701: -- Get new id
702:
703: hr_utility.set_location('hr_user_init_dedn.ins_formula',30);
704: SELECT ff_formulas_s.nextval
705: INTO v_formula_id
706: FROM sys.dual;
707:
704: SELECT ff_formulas_s.nextval
705: INTO v_formula_id
706: FROM sys.dual;
707:
708: hr_utility.set_location('hr_user_init_dedn.ins_formula',40);
709: INSERT INTO ff_formulas_f (
710: FORMULA_ID,
711: EFFECTIVE_START_DATE,
712: EFFECTIVE_END_DATE,
883: IF UPPER(p_amount_rule) = 'PE' THEN
884: -- Set SCL:
885: -- IF UPPER(p_ele_class_name) = 'INVOLUNTARY DEDUCTIONS' THEN
886: -- Populate segments 1,2,3 w/Category, PayTab, PayTab Row.
887: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',05);
888: UPDATE pay_element_types_f
889: SET element_information_category = g_ele_info_cat,
890: element_information1 = p_ele_cat,
891: element_information2 = p_partial_dedn,
894: benefit_classification_id = p_ben_class_id
895: WHERE element_type_id = p_ele_id
896: AND business_group_id + 0 = p_bg_id;
897:
898: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',05);
899: UPDATE pay_element_types_f
900: SET element_information_category = g_ele_info_cat,
901: element_information1 = p_ele_cat,
902: element_information2 = p_partial_dedn,
906:
907:
908: If p_ele_proc_type = 'R' then /* Not required for NR Elements */
909:
910: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',05);
911: UPDATE pay_element_types_f
912: SET element_information_category = g_ele_info_cat,
913: element_information1 = p_ele_cat,
914: element_information2 = p_partial_dedn,
921: --
922: -- *1* Testing note: formula name should be '
923: -- in this case.
924: --
925: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',15);
926: v_calc_rule_formula_id := ins_formula (
927: p_ff_ele_name => p_ele_name,
928: p_ff_suffix => '_PERCENT_EARNINGS',
929: p_ff_desc => 'Percent Earnings calculation for deductions.',
931: p_amt_rule => NULL,
932: p_row_type => NULL,
933: p_ele_processing_type => p_ele_proc_type );
934:
935: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',17);
936: v_stat_proc_rule_id :=
937: pay_formula_results.ins_stat_proc_rule (
938: p_business_group_id => p_bg_id,
939: p_legislation_code => NULL,
948: -- Remember: NULL asst_status_type_id means "Standard" processing rule!
949:
950: -- REQUIRED FOR EACH INPUT VALUE CREATED IN THIS MANNER, TO (HERE).
951: -- Creating "Percentage" inpval
952: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',20);
953: g_inpval_disp_seq := g_inpval_disp_seq + 1;
954: v_inpval_name := 'Percentage';
955: v_inpval_uom := 'Number';
956: v_gen_dbi := 'Y';
974: p_business_group_name => p_bg_name,
975: p_effective_start_date => p_eff_start_date,
976: p_effective_end_date => p_eff_end_date);
977:
978: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',25);
979: hr_input_values.chk_input_value(
980: p_element_type_id => p_ele_id,
981: p_legislation_code => g_template_leg_code,
982: p_val_start_date => p_eff_start_date,
998: p_formula_id => v_val_formula_id,
999: p_generate_db_items_flag => v_gen_dbi,
1000: p_warning_or_error => NULL);
1001:
1002: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',27);
1003: hr_input_values.ins_3p_input_values(
1004: p_val_start_date => p_eff_start_date,
1005: p_val_end_date => p_eff_end_date,
1006: p_element_type_id => p_ele_id,
1033: --
1034: -- Now insert appropriate formula_result_rules for this element
1035: --
1036:
1037: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',47);
1038: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1039: p_business_group_id => p_bg_id,
1040: p_legislation_code => NULL,
1041: p_legislation_subgroup => g_template_leg_subgroup,
1048: p_severity_level => NULL,
1049: p_element_type_id => NULL);
1050:
1051: IF p_ele_proc_type = 'R' THEN
1052: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',50);
1053: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1054: p_business_group_id => p_bg_id,
1055: p_legislation_code => NULL,
1056: p_legislation_subgroup => g_template_leg_subgroup,
1091: -- Testing note: formula name should be '
1092: -- in this case.
1093: --
1094: -- Find table id
1095: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',53);
1096: SELECT user_table_id
1097: INTO v_paytab_id
1098: FROM pay_user_tables
1099: WHERE UPPER(user_table_name) = UPPER(p_paytab_name)
1098: FROM pay_user_tables
1099: WHERE UPPER(user_table_name) = UPPER(p_paytab_name)
1100: AND NVL(business_group_id, p_bg_id) = p_bg_id;
1101: -- Find row code
1102: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',55);
1103: SELECT lookup_code
1104: INTO v_row_code
1105: FROM hr_lookups
1106: WHERE UPPER(meaning) = UPPER(p_paytab_row_type)
1112: -- Previously stored the ID and Meaning (09 Feb 1994)
1113: --
1114: -- IF UPPER(p_ele_class_name) = 'INVOLUNTARY DEDUCTIONS' THEN
1115: -- Populate segments 1,2,3 w/Category, PayTab, PayTab Row.
1116: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',57);
1117: UPDATE pay_element_types_f
1118: SET element_information_category = g_ele_info_cat,
1119: element_information1 = p_ele_cat,
1120: element_information2 = p_partial_dedn,
1125: benefit_classification_id = p_ben_class_id
1126: WHERE element_type_id = p_ele_id
1127: AND business_group_id + 0 = p_bg_id;
1128:
1129: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',57);
1130: UPDATE pay_element_types_f
1131: SET element_information_category = g_ele_info_cat,
1132: element_information1 = p_ele_cat,
1133: element_information2 = p_partial_dedn,
1139:
1140:
1141: If p_ele_proc_type = 'R' Then /* Not required for NR Elements */
1142:
1143: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',57);
1144: UPDATE pay_element_types_f
1145: SET element_information_category = g_ele_info_cat,
1146: element_information1 = p_ele_cat,
1147: element_information2 = p_partial_dedn,
1152: AND business_group_id + 0 = p_bg_id;
1153:
1154: End if; /* Not required for NR Elements */
1155:
1156: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',59);
1157: v_calc_rule_formula_id := ins_formula (
1158: p_ff_ele_name => p_ele_name,
1159: p_ff_suffix => '_PAYROLL_TABLE',
1160: p_ff_desc => 'Payroll Table calculation for deductions.',
1162: p_amt_rule => p_amount_rule,
1163: p_row_type => p_paytab_row_type,
1164: p_ele_processing_type => p_ele_proc_type );
1165:
1166: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',60);
1167: v_stat_proc_rule_id :=
1168: pay_formula_results.ins_stat_proc_rule (
1169: p_business_group_id => p_bg_id,
1170: p_legislation_code => NULL,
1181: -- REQUIRED FOR EACH INPUT VALUE CREATED IN THIS MANNER, TO (HERE).
1182: --
1183: -- Creating "Table Column" inpval
1184: --
1185: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',65);
1186: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1187: v_inpval_name := 'Table Column';
1188: v_inpval_uom := 'Character';
1189: v_gen_dbi := 'N';
1212: p_business_group_name => p_bg_name,
1213: p_effective_start_date => p_eff_start_date,
1214: p_effective_end_date => p_eff_end_date);
1215:
1216: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',67);
1217: hr_input_values.chk_input_value(
1218: p_element_type_id => p_ele_id,
1219: p_legislation_code => g_template_leg_code,
1220: p_val_start_date => p_eff_start_date,
1236: p_formula_id => v_val_formula_id,
1237: p_generate_db_items_flag => v_gen_dbi,
1238: p_warning_or_error => NULL);
1239:
1240: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',70);
1241: hr_input_values.ins_3p_input_values(
1242: p_val_start_date => p_eff_start_date,
1243: p_val_end_date => p_eff_end_date,
1244: p_element_type_id => p_ele_id,
1268: --
1269:
1270: IF p_paytab_row_type NOT IN ('Salary Range', 'Age Range') THEN
1271: -- Create inpval for row type.
1272: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',75);
1273: --
1274: -- Creating "Row Type" inpval
1275: --
1276: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',65);
1272: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',75);
1273: --
1274: -- Creating "Row Type" inpval
1275: --
1276: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',65);
1277: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1278: v_inpval_name := p_paytab_row_type;
1279: v_inpval_uom := 'Character'; -- Get_Table_Value only accepts chars
1280: v_gen_dbi := 'Y';
1300: p_business_group_name => p_bg_name,
1301: p_effective_start_date => p_eff_start_date,
1302: p_effective_end_date => p_eff_end_date);
1303:
1304: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',67);
1305: hr_input_values.chk_input_value(
1306: p_element_type_id => p_ele_id,
1307: p_legislation_code => g_template_leg_code,
1308: p_val_start_date => p_eff_start_date,
1324: p_formula_id => v_val_formula_id,
1325: p_generate_db_items_flag => v_gen_dbi,
1326: p_warning_or_error => NULL);
1327:
1328: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',70);
1329: hr_input_values.ins_3p_input_values(
1330: p_val_start_date => p_eff_start_date,
1331: p_val_end_date => p_eff_end_date,
1332: p_element_type_id => p_ele_id,
1353: --
1354: -- Now insert appropriate formula_result_rules for this element
1355: --
1356:
1357: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',75);
1358: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1359: p_business_group_id => p_bg_id,
1360: p_legislation_code => NULL,
1361: p_legislation_subgroup => g_template_leg_subgroup,
1368: p_severity_level => NULL,
1369: p_element_type_id => NULL);
1370:
1371: IF p_ele_proc_type = 'R' THEN
1372: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',77);
1373: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1374: p_business_group_id => p_bg_id,
1375: p_legislation_code => NULL,
1376: p_legislation_subgroup => g_template_leg_subgroup,
1404: -- instead if [re]constructing it here.
1405: -- Set SCL:
1406: -- IF UPPER(p_ele_class_name) = 'INVOLUNTARY DEDUCTIONS' THEN
1407: -- Populate segments 1 w/Category
1408: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',81);
1409: UPDATE pay_element_types_f
1410: SET element_information_category = g_ele_info_cat,
1411: element_information1 = p_ele_cat,
1412: element_information2 = p_partial_dedn,
1415: benefit_classification_id = p_ben_class_id
1416: WHERE element_type_id = p_ele_id
1417: AND business_group_id + 0 = p_bg_id;
1418:
1419: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',83);
1420: UPDATE pay_element_types_f
1421: SET element_information_category = g_ele_info_cat,
1422: element_information1 = p_ele_cat,
1423: element_information2 = p_partial_dedn,
1426: AND business_group_id + 0 = p_bg_id;
1427:
1428: If p_ele_proc_type = 'R' then /* Not required for NR Elements */
1429:
1430: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',83);
1431: UPDATE pay_element_types_f
1432: SET element_information_category = g_ele_info_cat,
1433: element_information1 = p_ele_cat,
1434: element_information2 = p_partial_dedn,
1440:
1441: --
1442: -- Testing note: formula name should be '
1443: -- in this case.
1444: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',85);
1445: v_calc_rule_formula_id := ins_formula (
1446: p_ff_ele_name => p_ele_name,
1447: p_ff_suffix => '_BENEFITS_TABLE',
1448: p_ff_desc => 'Benefits Table calculation for deductions.',
1450: p_amt_rule => p_amount_rule,
1451: p_row_type => NULL,
1452: p_ele_processing_type => p_ele_proc_type );
1453:
1454: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',87);
1455: v_stat_proc_rule_id :=
1456: pay_formula_results.ins_stat_proc_rule (
1457: p_business_group_id => p_bg_id,
1458: p_legislation_code => NULL,
1469: -- REQUIRED FOR EACH INPUT VALUE CREATED IN THIS MANNER, TO (HERE).
1470: --
1471: -- Creating "Coverage" inpval
1472: --
1473: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',90);
1474: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1475: v_inpval_name := 'Coverage';
1476: v_inpval_uom := 'Character';
1477: v_gen_dbi := 'Y';
1496: p_business_group_name => p_bg_name,
1497: p_effective_start_date => p_eff_start_date,
1498: p_effective_end_date => p_eff_end_date);
1499:
1500: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',95);
1501: hr_input_values.chk_input_value(
1502: p_element_type_id => p_ele_id,
1503: p_legislation_code => g_template_leg_code,
1504: p_val_start_date => p_eff_start_date,
1520: p_formula_id => v_val_formula_id,
1521: p_generate_db_items_flag => v_gen_dbi,
1522: p_warning_or_error => NULL);
1523:
1524: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',97);
1525: hr_input_values.ins_3p_input_values(
1526: p_val_start_date => p_eff_start_date,
1527: p_val_end_date => p_eff_end_date,
1528: p_element_type_id => p_ele_id,
1544: --
1545: --
1546: -- Creating "ER Contr" inpval
1547: --
1548: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',100);
1549: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1550: v_inpval_name := 'ER Contr';
1551: v_inpval_uom := 'Money';
1552: v_gen_dbi := 'Y';
1571: p_business_group_name => p_bg_name,
1572: p_effective_start_date => p_eff_start_date,
1573: p_effective_end_date => p_eff_end_date);
1574:
1575: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',101);
1576: hr_input_values.chk_input_value(
1577: p_element_type_id => p_ele_id,
1578: p_legislation_code => g_template_leg_code,
1579: p_val_start_date => p_eff_start_date,
1595: p_formula_id => v_val_formula_id,
1596: p_generate_db_items_flag => v_gen_dbi,
1597: p_warning_or_error => NULL);
1598:
1599: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',102);
1600: hr_input_values.ins_3p_input_values(
1601: p_val_start_date => p_eff_start_date,
1602: p_val_end_date => p_eff_end_date,
1603: p_element_type_id => p_ele_id,
1619: --
1620: --
1621: -- Creating "EE Contr" inpval
1622: --
1623: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',103);
1624: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1625: v_inpval_name := 'EE Contr';
1626: v_inpval_uom := 'Money';
1627: v_gen_dbi := 'Y';
1646: p_business_group_name => p_bg_name,
1647: p_effective_start_date => p_eff_start_date,
1648: p_effective_end_date => p_eff_end_date);
1649:
1650: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',105);
1651: hr_input_values.chk_input_value(
1652: p_element_type_id => p_ele_id,
1653: p_legislation_code => g_template_leg_code,
1654: p_val_start_date => p_eff_start_date,
1670: p_formula_id => v_val_formula_id,
1671: p_generate_db_items_flag => v_gen_dbi,
1672: p_warning_or_error => NULL);
1673:
1674: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',107);
1675: hr_input_values.ins_3p_input_values(
1676: p_val_start_date => p_eff_start_date,
1677: p_val_end_date => p_eff_end_date,
1678: p_element_type_id => p_ele_id,
1694: --
1695: --
1696: -- Now insert appropriate formula_result_rules for this element
1697: --
1698: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',109);
1699: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1700: p_business_group_id => p_bg_id,
1701: p_legislation_code => NULL,
1702: p_legislation_subgroup => g_template_leg_subgroup,
1709: p_severity_level => NULL,
1710: p_element_type_id => NULL);
1711:
1712: IF p_ele_proc_type = 'R' THEN
1713: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',111);
1714: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1715: p_business_group_id => p_bg_id,
1716: p_legislation_code => NULL,
1717: p_legislation_subgroup => g_template_leg_subgroup,
1728: -- In order to create indirect result feeding Employer Charge element for
1729: -- this benefit, we must find the input_value_id for the pay_value of the
1730: -- employer charge element.
1731: --
1732: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
1733: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
1734:
1735: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
1736: -- We need inpval_id of pay value for this element:
1731: --
1732: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
1733: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
1734:
1735: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
1736: -- We need inpval_id of pay value for this element:
1737: SELECT IV.input_value_id
1738: INTO v_er_payval_id
1739: FROM pay_input_values_f IV
1739: FROM pay_input_values_f IV
1740: WHERE IV.element_type_id = p_er_charge_eletype_id
1741: AND IV.name = v_payval_name;
1742: --
1743: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',115);
1744: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1745: p_business_group_id => p_bg_id,
1746: p_legislation_code => NULL,
1747: p_legislation_subgroup => g_template_leg_subgroup,
1771: -- (*) stop_entry --> Stop
1772: --
1773: -- Set DDF Segment values:
1774: --
1775: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',81);
1776: UPDATE pay_element_types_f
1777: SET element_information_category = g_ele_info_cat,
1778: element_information1 = p_ele_cat,
1779: element_information2 = p_partial_dedn,
1782: benefit_classification_id = p_ben_class_id
1783: WHERE element_type_id = p_ele_id
1784: AND business_group_id + 0 = p_bg_id;
1785:
1786: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',81);
1787: UPDATE pay_element_types_f
1788: SET element_information_category = g_ele_info_cat,
1789: element_information1 = p_ele_cat,
1790: element_information2 = p_partial_dedn,
1794:
1795:
1796: If p_ele_proc_type = 'R' then /* Not required for NR Elements */
1797:
1798: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',81);
1799: UPDATE pay_element_types_f
1800: SET element_information_category = g_ele_info_cat,
1801: element_information1 = p_ele_cat,
1802: element_information2 = p_partial_dedn,
1805: AND business_group_id + 0 = p_bg_id;
1806:
1807: End if; /* Not required for NR Elements */
1808:
1809: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',15);
1810: v_calc_rule_formula_id := ins_formula (
1811: p_ff_ele_name => p_ele_name,
1812: p_ff_suffix => '_FLAT_AMOUNT',
1813: p_ff_desc => 'Flat Amount calculation for deductions.',
1815: p_amt_rule => NULL,
1816: p_row_type => NULL,
1817: p_ele_processing_type => p_ele_proc_type );
1818:
1819: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',119);
1820: v_stat_proc_rule_id :=
1821: pay_formula_results.ins_stat_proc_rule (
1822: p_business_group_id => p_bg_id,
1823: p_legislation_code => NULL,
1830: p_processing_rule => v_proc_rule);
1831: --
1832: -- Flat "Amount" inpval.
1833: --
1834: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',40);
1835: g_inpval_disp_seq := g_inpval_disp_seq + 1;
1836: v_inpval_name := 'Amount';
1837: v_inpval_uom := 'Money';
1838: v_gen_dbi := 'Y';
1857: p_business_group_name => p_bg_name,
1858: p_effective_start_date => p_eff_start_date,
1859: p_effective_end_date => p_eff_end_date);
1860:
1861: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',50);
1862: hr_input_values.chk_input_value(
1863: p_element_type_id => p_ele_id,
1864: p_legislation_code => g_template_leg_code,
1865: p_val_start_date => p_eff_start_date,
1881: p_formula_id => NULL,
1882: p_generate_db_items_flag => v_gen_dbi,
1883: p_warning_or_error => NULL);
1884:
1885: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',60);
1886: hr_input_values.ins_3p_input_values(
1887: p_val_start_date => p_eff_start_date,
1888: p_val_end_date => p_eff_end_date,
1889: p_element_type_id => p_ele_id,
1903: -- Done inserting "Amount" input value.
1904: --
1905: -- Now insert appropriate formula_result_rules for this element
1906: --
1907: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',121);
1908: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1909: p_business_group_id => p_bg_id,
1910: p_legislation_code => NULL,
1911: p_legislation_subgroup => g_template_leg_subgroup,
1918: p_severity_level => NULL,
1919: p_element_type_id => NULL);
1920:
1921: IF p_ele_proc_type = 'R' THEN
1922: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',123);
1923: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
1924: p_business_group_id => p_bg_id,
1925: p_legislation_code => NULL,
1926: p_legislation_subgroup => g_template_leg_subgroup,
1945: -- (*) DEDN_AMT --> Deduction Actually Taken -->
1946: --
1947:
1948: --
1949: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',983);
1950: g_er_inpval_disp_seq := g_er_inpval_disp_seq + 1;
1951: v_inpval_name := 'Deduction Actually Taken';
1952: v_inpval_uom := 'Money';
1953: v_gen_dbi := 'N';
1972: p_business_group_name => p_bg_name,
1973: p_effective_start_date => p_eff_start_date,
1974: p_effective_end_date => p_eff_end_date);
1975:
1976: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',984);
1977: hr_input_values.chk_input_value(
1978: p_element_type_id => v_er_charge_eletype_id,
1979: p_legislation_code => g_template_leg_code,
1980: p_val_start_date => p_eff_start_date,
1996: p_formula_id => NULL,
1997: p_generate_db_items_flag => v_gen_dbi,
1998: p_warning_or_error => NULL);
1999:
2000: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',985);
2001: hr_input_values.ins_3p_input_values(
2002: p_val_start_date => p_eff_start_date,
2003: p_val_end_date => p_eff_end_date,
2004: p_element_type_id => v_er_charge_eletype_id,
2017: p_startup_mode => NULL);
2018: --
2019: -- Done inserting "Deduction Actually Taken" input value.
2020:
2021: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',986);
2022: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2023: p_business_group_id => p_bg_id,
2024: p_legislation_code => NULL,
2025: p_legislation_subgroup => g_template_leg_subgroup,
2031: p_result_rule_type => 'I',
2032: p_severity_level => NULL,
2033: p_element_type_id => v_er_charge_eletype_id);
2034:
2035: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',987);
2036:
2037:
2038: END IF; -- ER matching component
2039:
2051: -- (*) bond_refund --> Indirect to
2052: --
2053: -- Creating "Purchase Price" inpval
2054: --
2055: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',125);
2056: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2057: v_inpval_name := 'Purchase Price';
2058: v_inpval_uom := 'Money';
2059: v_gen_dbi := 'N'; -- Can be 'N', not needed by any other formulae
2077: p_business_group_name => p_bg_name,
2078: p_effective_start_date => p_eff_start_date,
2079: p_effective_end_date => p_eff_end_date);
2080:
2081: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',127);
2082: hr_input_values.chk_input_value(
2083: p_element_type_id => p_ele_id,
2084: p_legislation_code => g_template_leg_code,
2085: p_val_start_date => p_eff_start_date,
2101: p_formula_id => v_val_formula_id,
2102: p_generate_db_items_flag => v_gen_dbi,
2103: p_warning_or_error => NULL);
2104:
2105: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',129);
2106: hr_input_values.ins_3p_input_values(
2107: p_val_start_date => p_eff_start_date,
2108: p_val_end_date => p_eff_end_date,
2109: p_element_type_id => p_ele_id,
2125: --
2126: --
2127: -- Creating "Toward Purchase" inpval
2128: --
2129: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',125);
2130: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
2131: v_inpval_name := 'Toward Purchase';
2132: v_inpval_uom := 'Money';
2133: v_gen_dbi := 'N'; -- Can be 'N', not needed by any other formulae
2151: p_business_group_name => p_bg_name,
2152: p_effective_start_date => p_eff_start_date,
2153: p_effective_end_date => p_eff_end_date);
2154:
2155: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',127);
2156: hr_input_values.chk_input_value(
2157: p_element_type_id => p_shadow_ele_id,
2158: p_legislation_code => g_template_leg_code,
2159: p_val_start_date => p_eff_start_date,
2175: p_formula_id => v_val_formula_id,
2176: p_generate_db_items_flag => v_gen_dbi,
2177: p_warning_or_error => NULL);
2178:
2179: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',129);
2180: hr_input_values.ins_3p_input_values(
2181: p_val_start_date => p_eff_start_date,
2182: p_val_end_date => p_eff_end_date,
2183: p_element_type_id => p_shadow_ele_id,
2205: NON_PAYMENTS_FLAG = 'N' for class = 'Non-Payroll Payments'; but non-pay-flag
2206: was 'Y' for 'Employer Liab' class! So i hope it stays one way or the other.
2207: */
2208:
2209: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',140);
2210: SELECT inp.input_value_id
2211: INTO v_eerefund_payval_id
2212: FROM pay_input_values_f inp,
2213: hr_lookups hl
2215: AND inp.name = hl.meaning
2216: AND hl.lookup_code = 'PAY VALUE'
2217: AND hl.lookup_type = 'NAME_TRANSLATIONS';
2218:
2219: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',150);
2220: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2221: p_business_group_id => p_bg_id,
2222: p_legislation_code => NULL,
2223: p_legislation_subgroup => g_template_leg_subgroup,
2229: p_result_rule_type => 'I',
2230: p_severity_level => NULL,
2231: p_element_type_id => p_eerefund_eletype_id);
2232:
2233: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',150);
2234: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2235: p_business_group_id => p_bg_id,
2236: p_legislation_code => NULL,
2237: p_legislation_subgroup => g_template_leg_subgroup,
2243: p_result_rule_type => 'I',
2244: p_severity_level => NULL,
2245: p_element_type_id => p_shadow_ele_id);
2246:
2247: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',160);
2248:
2249: END IF; -- EE Bond
2250: --
2251: -- Start Rule checks.
2259: -- Creating "Threshold Balance" and "Threshold Dimension" inpval
2260: --
2261: -- Creating "Threshold Amount" inpval
2262: --
2263: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',230);
2264: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2265: v_inpval_name := 'Threshold Amount';
2266: v_inpval_uom := 'Money';
2267: v_gen_dbi := 'N';
2285: p_business_group_name => p_bg_name,
2286: p_effective_start_date => p_eff_start_date,
2287: p_effective_end_date => p_eff_end_date);
2288:
2289: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',240);
2290: hr_input_values.chk_input_value(
2291: p_element_type_id => p_ele_id,
2292: p_legislation_code => g_template_leg_code,
2293: p_val_start_date => p_eff_start_date,
2309: p_formula_id => v_val_formula_id,
2310: p_generate_db_items_flag => v_gen_dbi,
2311: p_warning_or_error => NULL);
2312:
2313: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',250);
2314: hr_input_values.ins_3p_input_values(
2315: p_val_start_date => p_eff_start_date,
2316: p_val_end_date => p_eff_end_date,
2317: p_element_type_id => p_ele_id,
2336: -- (*) "Chained To"
2337: --
2338: -- Creating "Chained To" inpval
2339: --
2340: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',260);
2341: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2342: v_inpval_name := 'Chained To';
2343: v_inpval_uom := 'Character';
2344: v_gen_dbi := 'N';
2362: p_business_group_name => p_bg_name,
2363: p_effective_start_date => p_eff_start_date,
2364: p_effective_end_date => p_eff_end_date);
2365:
2366: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',270);
2367: hr_input_values.chk_input_value(
2368: p_element_type_id => p_ele_id,
2369: p_legislation_code => g_template_leg_code,
2370: p_val_start_date => p_eff_start_date,
2386: p_formula_id => v_val_formula_id,
2387: p_generate_db_items_flag => v_gen_dbi,
2388: p_warning_or_error => NULL);
2389:
2390: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',280);
2391: hr_input_values.ins_3p_input_values(
2392: p_val_start_date => p_eff_start_date,
2393: p_val_end_date => p_eff_end_date,
2394: p_element_type_id => p_ele_id,
2423: -- (*) to_total_owed --> Upd Recurring to
2424: --
2425: -- Creating "Total Owed" inpval
2426: --
2427: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',290);
2428: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2429: v_inpval_name := 'Total Owed';
2430: v_inpval_uom := 'Money';
2431: v_gen_dbi := 'N';
2449: p_business_group_name => p_bg_name,
2450: p_effective_start_date => p_eff_start_date,
2451: p_effective_end_date => p_eff_end_date);
2452:
2453: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',300);
2454: hr_input_values.chk_input_value(
2455: p_element_type_id => p_ele_id,
2456: p_legislation_code => g_template_leg_code,
2457: p_val_start_date => p_eff_start_date,
2473: p_formula_id => v_val_formula_id,
2474: p_generate_db_items_flag => v_gen_dbi,
2475: p_warning_or_error => NULL);
2476:
2477: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',310);
2478: hr_input_values.ins_3p_input_values(
2479: p_val_start_date => p_eff_start_date,
2480: p_val_end_date => p_eff_end_date,
2481: p_element_type_id => p_ele_id,
2497: --
2498: --
2499: -- Creating "Accrued" inpval
2500: --
2501: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',320);
2502: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
2503: v_inpval_name := 'Accrued';
2504: v_inpval_uom := 'Money';
2505: v_gen_dbi := 'N';
2523: p_business_group_name => p_bg_name,
2524: p_effective_start_date => p_eff_start_date,
2525: p_effective_end_date => p_eff_end_date);
2526:
2527: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',330);
2528: hr_input_values.chk_input_value(
2529: p_element_type_id => p_shadow_ele_id,
2530: p_legislation_code => g_template_leg_code,
2531: p_val_start_date => p_eff_start_date,
2547: p_formula_id => v_val_formula_id,
2548: p_generate_db_items_flag => v_gen_dbi,
2549: p_warning_or_error => NULL);
2550:
2551: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',340);
2552: hr_input_values.ins_3p_input_values(
2553: p_val_start_date => p_eff_start_date,
2554: p_val_end_date => p_eff_end_date,
2555: p_element_type_id => p_shadow_ele_id,
2571: --
2572: --
2573: -- Creating "Towards Owed" inpval
2574: --
2575: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',350);
2576: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2577: v_inpval_name := 'Towards Owed';
2578: v_inpval_uom := 'Character';
2579: v_gen_dbi := 'N';
2597: p_business_group_name => p_bg_name,
2598: p_effective_start_date => p_eff_start_date,
2599: p_effective_end_date => p_eff_end_date);
2600:
2601: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',360);
2602: hr_input_values.chk_input_value(
2603: p_element_type_id => p_ele_id,
2604: p_legislation_code => g_template_leg_code,
2605: p_val_start_date => p_eff_start_date,
2621: p_formula_id => v_val_formula_id,
2622: p_generate_db_items_flag => v_gen_dbi,
2623: p_warning_or_error => NULL);
2624:
2625: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',370);
2626: hr_input_values.ins_3p_input_values(
2627: p_val_start_date => p_eff_start_date,
2628: p_val_end_date => p_eff_end_date,
2629: p_element_type_id => p_ele_id,
2643: --
2644: -- (HERE) Done inserting "Towards Owed" input value.
2645: --
2646: -- IF p_ele_proc_type = 'R' THEN
2647: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',380);
2648: --
2649: -- Note this indirect result feeds "Accrued" inpval on
2650: -- "
2651: --
2681: -- (*) not_taken --> Indirect to
2682:
2683: -- Creating "Clear Arrears" inpval
2684:
2685: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',381);
2686: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2687: v_inpval_name := 'Clear Arrears';
2688: v_inpval_uom := 'Character';
2689: v_gen_dbi := 'N';
2707: p_business_group_name => p_bg_name,
2708: p_effective_start_date => p_eff_start_date,
2709: p_effective_end_date => p_eff_end_date);
2710:
2711: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',382);
2712: hr_input_values.chk_input_value(
2713: p_element_type_id => p_ele_id,
2714: p_legislation_code => g_template_leg_code,
2715: p_val_start_date => p_eff_start_date,
2731: p_formula_id => v_val_formula_id,
2732: p_generate_db_items_flag => v_gen_dbi,
2733: p_warning_or_error => NULL);
2734:
2735: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',383);
2736: hr_input_values.ins_3p_input_values(
2737: p_val_start_date => p_eff_start_date,
2738: p_val_end_date => p_eff_end_date,
2739: p_element_type_id => p_ele_id,
2751: p_legislation_code => NULL,
2752: p_startup_mode => NULL);
2753:
2754: -- Done inserting "Clear Arrears" input value.
2755: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',450);
2756: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2757: p_business_group_id => p_bg_id,
2758: p_legislation_code => NULL,
2759: p_legislation_subgroup => g_template_leg_subgroup,
2769: END IF;
2770:
2771: -- Creating "Arrears Contr" inpval
2772:
2773: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',390);
2774: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
2775: v_inpval_name := 'Arrears Contr';
2776: v_inpval_uom := 'Money';
2777: v_gen_dbi := 'N';
2795: p_business_group_name => p_bg_name,
2796: p_effective_start_date => p_eff_start_date,
2797: p_effective_end_date => p_eff_end_date);
2798:
2799: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',400);
2800: hr_input_values.chk_input_value(
2801: p_element_type_id => p_shadow_ele_id,
2802: p_legislation_code => g_template_leg_code,
2803: p_val_start_date => p_eff_start_date,
2819: p_formula_id => v_val_formula_id,
2820: p_generate_db_items_flag => v_gen_dbi,
2821: p_warning_or_error => NULL);
2822:
2823: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',410);
2824: hr_input_values.ins_3p_input_values(
2825: p_val_start_date => p_eff_start_date,
2826: p_val_end_date => p_eff_end_date,
2827: p_element_type_id => p_shadow_ele_id,
2845: -- Arrearage = 'N' for Nonrecurring deductions - but just in case something
2846: -- slips thru, we'll check proc_type again.
2847: --
2848: IF p_ele_proc_type = 'R' THEN
2849: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',450);
2850: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2851: p_business_group_id => p_bg_id,
2852: p_legislation_code => NULL,
2853: p_legislation_subgroup => g_template_leg_subgroup,
2867: -- No and dedn cannot be taken, then we need to see that on Dedns Not Taken
2868: -- report.
2869: -- Creating "Not Taken" inpval
2870:
2871: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',420);
2872: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
2873: v_inpval_name := 'Not Taken';
2874: v_inpval_uom := 'Money';
2875: v_gen_dbi := 'N';
2893: p_business_group_name => p_bg_name,
2894: p_effective_start_date => p_eff_start_date,
2895: p_effective_end_date => p_eff_end_date);
2896:
2897: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',430);
2898: hr_input_values.chk_input_value(
2899: p_element_type_id => p_shadow_ele_id,
2900: p_legislation_code => g_template_leg_code,
2901: p_val_start_date => p_eff_start_date,
2917: p_formula_id => v_val_formula_id,
2918: p_generate_db_items_flag => v_gen_dbi,
2919: p_warning_or_error => NULL);
2920:
2921: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',440);
2922: hr_input_values.ins_3p_input_values(
2923: p_val_start_date => p_eff_start_date,
2924: p_val_end_date => p_eff_end_date,
2925: p_element_type_id => p_shadow_ele_id,
2942: -- IF p_ele_proc_type = 'R' THEN
2943: -- Recurring/Nonrecurring has nothing to do with Partial Dedns, if an amount
2944: -- is not taken - then it is NOT TAKEN !
2945:
2946: hr_utility.set_location('hr_user_init_dedn.ins_dedn_formula_processing',460);
2947: v_fres_rule_id := pay_formula_results.ins_form_res_rule (
2948: p_business_group_id => p_bg_id,
2949: p_legislation_code => NULL,
2950: p_legislation_subgroup => g_template_leg_subgroup,
2967: -- taken as aftertax deductions?
2968: --
2969:
2970: --
2971: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',993);
2972: g_inpval_disp_seq := g_inpval_disp_seq + 1;
2973: v_inpval_name := 'Take OverLimit AT';
2974: v_inpval_uom := 'Character';
2975: v_gen_dbi := 'N';
2994: p_business_group_name => p_bg_name,
2995: p_effective_start_date => p_eff_start_date,
2996: p_effective_end_date => p_eff_end_date);
2997:
2998: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',994);
2999: hr_input_values.chk_input_value(
3000: p_element_type_id => p_ele_id,
3001: p_legislation_code => g_template_leg_code,
3002: p_val_start_date => p_eff_start_date,
3018: p_formula_id => NULL,
3019: p_generate_db_items_flag => v_gen_dbi,
3020: p_warning_or_error => NULL);
3021:
3022: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',995);
3023: hr_input_values.ins_3p_input_values(
3024: p_val_start_date => p_eff_start_date,
3025: p_val_end_date => p_eff_end_date,
3026: p_element_type_id => p_ele_id,
3092:
3093: --
3094: -- Create inpvals for "Special Inputs"
3095: --
3096: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',40);
3097: g_inputs_inpval_disp_seq := 1;
3098: v_inpval_name := 'Replace Amt';
3099: v_inpval_uom := 'Money';
3100: v_gen_dbi := 'N';
3119: p_business_group_name => p_bg_name,
3120: p_effective_start_date => p_eff_start,
3121: p_effective_end_date => p_eff_end);
3122:
3123: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',50);
3124: hr_input_values.chk_input_value(
3125: p_element_type_id => p_inputs_ele_type_id,
3126: p_legislation_code => g_template_leg_code,
3127: p_val_start_date => p_eff_start,
3143: p_formula_id => NULL,
3144: p_generate_db_items_flag => v_gen_dbi,
3145: p_warning_or_error => NULL);
3146:
3147: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',60);
3148: hr_input_values.ins_3p_input_values(
3149: p_val_start_date => p_eff_start,
3150: p_val_end_date => p_eff_end,
3151: p_element_type_id => p_inputs_ele_type_id,
3164: p_startup_mode => NULL);
3165: --
3166: -- Done inserting "Replacement Amt" input value.
3167: --
3168: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',70);
3169: g_inputs_inpval_disp_seq := g_inputs_inpval_disp_seq + 1;
3170: v_inpval_name := 'Addl Amt';
3171: v_inpval_uom := 'Money';
3172: v_gen_dbi := 'N';
3191: p_business_group_name => p_bg_name,
3192: p_effective_start_date => p_eff_start,
3193: p_effective_end_date => p_eff_end);
3194:
3195: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',75);
3196: hr_input_values.chk_input_value(
3197: p_element_type_id => p_inputs_ele_type_id,
3198: p_legislation_code => g_template_leg_code,
3199: p_val_start_date => p_eff_start,
3215: p_formula_id => NULL,
3216: p_generate_db_items_flag => v_gen_dbi,
3217: p_warning_or_error => NULL);
3218:
3219: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',80);
3220: hr_input_values.ins_3p_input_values(
3221: p_val_start_date => p_eff_start,
3222: p_val_end_date => p_eff_end,
3223: p_element_type_id => p_inputs_ele_type_id,
3235: p_legislation_code => NULL,
3236: p_startup_mode => NULL);
3237:
3238:
3239: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',81);
3240: g_inputs_inpval_disp_seq := g_inputs_inpval_disp_seq + 1;
3241: v_inpval_name := 'Adjust Arrears';
3242: v_inpval_uom := 'Money';
3243: v_gen_dbi := 'N';
3262: p_business_group_name => p_bg_name,
3263: p_effective_start_date => p_eff_start,
3264: p_effective_end_date => p_eff_end);
3265:
3266: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',50);
3267: hr_input_values.chk_input_value(
3268: p_element_type_id => p_inputs_ele_type_id,
3269: p_legislation_code => g_template_leg_code,
3270: p_val_start_date => p_eff_start,
3286: p_formula_id => NULL,
3287: p_generate_db_items_flag => v_gen_dbi,
3288: p_warning_or_error => NULL);
3289:
3290: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',60);
3291: hr_input_values.ins_3p_input_values(
3292: p_val_start_date => p_eff_start,
3293: p_val_end_date => p_eff_end,
3294: p_element_type_id => p_inputs_ele_type_id,
3314: --
3315:
3316: If p_ele_proc_type = 'R' then /* Not required for NR Elements */
3317:
3318: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',40);
3319: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
3320: v_inpval_name := 'Replacement Amt';
3321: v_inpval_uom := 'Money';
3322: v_gen_dbi := 'N';
3341: p_business_group_name => p_bg_name,
3342: p_effective_start_date => p_eff_start,
3343: p_effective_end_date => p_eff_end);
3344:
3345: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',50);
3346: hr_input_values.chk_input_value(
3347: p_element_type_id => p_shadow_ele_type_id,
3348: p_legislation_code => g_template_leg_code,
3349: p_val_start_date => p_eff_start,
3365: p_formula_id => NULL,
3366: p_generate_db_items_flag => v_gen_dbi,
3367: p_warning_or_error => NULL);
3368:
3369: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',60);
3370: hr_input_values.ins_3p_input_values(
3371: p_val_start_date => p_eff_start,
3372: p_val_end_date => p_eff_end,
3373: p_element_type_id => p_shadow_ele_type_id,
3386: p_startup_mode => NULL);
3387: --
3388: -- Done inserting "Replacement Amt" input value.
3389: --
3390: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',70);
3391: g_shadow_inpval_disp_seq := g_shadow_inpval_disp_seq + 1;
3392: v_inpval_name := 'Additional Amt';
3393: v_inpval_uom := 'Money';
3394: v_gen_dbi := 'N';
3413: p_business_group_name => p_bg_name,
3414: p_effective_start_date => p_eff_start,
3415: p_effective_end_date => p_eff_end);
3416:
3417: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',75);
3418: hr_input_values.chk_input_value(
3419: p_element_type_id => p_shadow_ele_type_id,
3420: p_legislation_code => g_template_leg_code,
3421: p_val_start_date => p_eff_start,
3437: p_formula_id => NULL,
3438: p_generate_db_items_flag => v_gen_dbi,
3439: p_warning_or_error => NULL);
3440:
3441: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',80);
3442: hr_input_values.ins_3p_input_values(
3443: p_val_start_date => p_eff_start,
3444: p_val_end_date => p_eff_end,
3445: p_element_type_id => p_shadow_ele_type_id,
3470: -- We know this must be the only one right now:
3471: --
3472: --
3473:
3474: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',85);
3475: SELECT status_processing_rule_id
3476: INTO v_status_proc_id
3477: FROM pay_status_processing_rules_f
3478: WHERE assignment_status_type_id IS NULL
3484: -- when trying to "update recurring" on a nonrecurring element (i think
3485: -- that's the prob).
3486: --
3487: IF p_ele_proc_type = 'R' THEN
3488: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',90);
3489: v_resrule_id := pay_formula_results.ins_form_res_rule (
3490: p_business_group_id => p_bg_id,
3491: p_legislation_code => NULL,
3492: p_legislation_subgroup => g_template_leg_subgroup,
3498: p_result_rule_type => 'I',
3499: p_severity_level => NULL,
3500: p_element_type_id => p_shadow_ele_type_id);
3501:
3502: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',95);
3503: v_resrule_id := pay_formula_results.ins_form_res_rule (
3504: p_business_group_id => p_bg_id,
3505: p_legislation_code => NULL,
3506: p_legislation_subgroup => g_template_leg_subgroup,
3514: p_element_type_id => p_shadow_ele_type_id);
3515:
3516: END IF;
3517:
3518: hr_utility.set_location('hr_user_init_dedn.ins_uie_inp_values',100);
3519: v_resrule_id := pay_formula_results.ins_form_res_rule (
3520: p_business_group_id => p_bg_id,
3521: p_legislation_code => NULL,
3522: p_legislation_subgroup => g_template_leg_subgroup,
3654: BEGIN
3655:
3656: --
3657: -- Set session date
3658: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',10);
3659: pay_db_pay_setup.set_session_date(nvl(p_ele_eff_start_date, sysdate));
3660: g_eff_start_date := nvl(p_ele_eff_start_date, sysdate);
3661: g_eff_end_date := nvl(p_ele_eff_end_date, c_end_of_time);
3662:
3661: g_eff_end_date := nvl(p_ele_eff_end_date, c_end_of_time);
3662:
3663:
3664: -- Set "globals": v_bg_name
3665: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',20);
3666: select name
3667: into v_bg_name
3668: from per_business_groups
3669: where business_group_id = p_bg_id;
3708: p_balance_name => p_ele_name,
3709: p_reporting_name => p_ele_name,
3710: p_assignment_remuneration_flag => 'N');
3711:
3712: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',25);
3713:
3714: -- Emp Balance for enhancement Bug 3311781
3715: if upper(p_ele_classification) = 'VOLUNTARY DEDUCTIONS' then
3716: l_balance_category := 'Voluntary Deductions';
3827: If p_ele_processing_type = 'R' then /* Not required for NR Elements */
3828:
3829: v_balance_name := substr(p_ele_name, 1, 55)||' Toward Bond Purchase';
3830: --v_bal_rpt_name := substr(p_ele_name, 1, 13)||' To Bond Purch';
3831: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',39);
3832: v_eepurch_bal_type_id := pay_db_pay_setup.create_balance_type(
3833: p_balance_name => v_balance_name,
3834: p_uom => 'Money',
3835: p_reporting_name => v_balance_name,
3839: p_balance_category => l_balance_category, -- Bug 3311781
3840: p_bc_leg_code => 'US',
3841: p_effective_date => g_eff_start_date);
3842:
3843: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',41);
3844: pay_db_pay_setup.create_defined_balance (
3845: p_balance_name => v_balance_name,
3846: p_balance_dimension => 'Assignment Inception to Date',
3847: p_business_group_name => v_bg_name,
3852: p_balance_dimension => 'Assignment within Government Reporting Entity Inception to Date',
3853: p_business_group_name => v_bg_name,
3854: p_legislation_code => NULL);
3855:
3856: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',43);
3857: v_balance_name := substr(p_ele_name, 1, 71)||' Accrued';
3858: --v_bal_rpt_name := substr(p_ele_name, 1, 21)||' Accrued';
3859: v_totowed_bal_type_id := pay_db_pay_setup.create_balance_type(
3860: p_balance_name => v_balance_name,
3866: p_balance_category => l_balance_category, -- Bug 3311781
3867: p_bc_leg_code => 'US',
3868: p_effective_date => g_eff_start_date);
3869:
3870: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',45);
3871: pay_db_pay_setup.create_defined_balance (
3872: p_balance_name => v_balance_name,
3873: p_balance_dimension => 'Assignment Inception to Date',
3874: p_business_group_name => v_bg_name,
3896: p_legislation_code => NULL);
3897:
3898: v_balance_name := substr(p_ele_name, 1, 71)||' Arrears';
3899: --v_bal_rpt_name := substr(p_ele_name, 1, 21)||' Arrears';
3900: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',47);
3901: v_arrears_bal_type_id := pay_db_pay_setup.create_balance_type(
3902: p_balance_name => v_balance_name,
3903: p_uom => 'Money',
3904: p_reporting_name => v_balance_name,
3908: p_balance_category => l_balance_category, -- Bug 3311781
3909: p_bc_leg_code => 'US',
3910: p_effective_date => g_eff_start_date);
3911:
3912: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',49);
3913: pay_db_pay_setup.create_defined_balance (
3914: p_balance_name => v_balance_name,
3915: p_balance_dimension => 'Assignment Inception to Date',
3916: p_business_group_name => v_bg_name,
4071: --
4072: -- Need to determine and get skip rule formula id and pass it
4073: -- create_element.
4074: --
4075: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',10);
4076: --
4077: IF UPPER(p_ele_start_rule) = 'CHAINED' THEN
4078: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',15);
4079: SELECT FF.formula_id
4074: --
4075: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',10);
4076: --
4077: IF UPPER(p_ele_start_rule) = 'CHAINED' THEN
4078: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',15);
4079: SELECT FF.formula_id
4080: INTO v_skip_formula_id
4081: FROM ff_formulas_f FF
4082: WHERE FF.formula_name = 'CHAINED_SKIP_FORMULA'
4087: AND p_ele_eff_start_date <= FF.effective_end_date
4088: AND FF.formula_id >= 0; --Bug 3349594
4089: --
4090: ELSIF UPPER(p_ele_start_rule) = 'ET' THEN
4091: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',20);
4092: SELECT FF.formula_id
4093: INTO v_skip_formula_id
4094: FROM ff_formulas_f FF
4095: WHERE FF.formula_name = 'THRESHOLD_SKIP_FORMULA'
4101: AND FF.formula_id >= 0; --Bug 3349594
4102: -- AND FF.business_group_id IS NULL
4103: --
4104: ELSE -- Just check skip rule and separate check flag.
4105: hr_utility.set_location('hr_user_init_dedn.ins_dedn_ele_type',25);
4106: SELECT FF.formula_id
4107: INTO v_skip_formula_id
4108: FROM ff_formulas_f FF
4109: WHERE FF.formula_name = 'FREQ_RULE_SKIP_FORMULA'
4120: IF UPPER(p_ele_classification) = 'VOLUNTARY DEDUCTIONS' THEN
4121: g_ele_info_cat := 'US_VOLUNTARY DEDUCTIONS';
4122: END IF;
4123: --
4124: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',51);
4125: v_ele_type_id := ins_dedn_ele_type ( p_ele_name,
4126: p_ele_reporting_name,
4127: p_ele_description,
4128: p_ele_classification,
4139: --
4140: -- Need to find PRIMARY_CLASSIFICATION_ID of element type.
4141: -- For future calls to various API.
4142: --
4143: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',53);
4144:
4145: select distinct(classification_id)
4146: into v_primary_class_id
4147: from pay_element_types_f
4167: --
4168: --
4169: -- Create "special inputs" element
4170: --
4171: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',51);
4172: v_inputs_ele_name := SUBSTR(p_ele_name, 1, 61)||' Special Inputs';
4173: v_ele_repname := SUBSTR(p_ele_name, 1, 27)||' SI';
4174: v_inputs_ele_type_id := ins_dedn_ele_type (
4175: v_inputs_ele_name,
4199: --
4200: --
4201: -- Create "shadow" element
4202: --
4203: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',51);
4204: v_shadow_ele_name := SUBSTR(p_ele_name, 1, 61)||' Special Features';
4205: v_ele_repname := SUBSTR(p_ele_name, 1, 27)||' SF';
4206: v_shadow_ele_type_id := ins_dedn_ele_type (
4207: v_shadow_ele_name,
4230: -- Need to create employer charge element for Benefits Table deductions or
4231: -- deductions where there is an employer match component (e.g. 401k, 403b)
4232: --
4233: IF p_ele_amount_rule = 'BT' or p_ele_er_match = 'Y' THEN
4234: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',55);
4235: v_er_charge_ele_name := SUBSTR(p_ele_name, 1, 77)||' ER';
4236: v_ele_repname := SUBSTR(p_ele_name, 1, 27)||' ER';
4237: v_er_charge_eletype_id := ins_dedn_ele_type (
4238: v_er_charge_ele_name,
4249: g_eff_start_date,
4250: g_eff_end_date,
4251: v_bg_name);
4252: --
4253: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',57);
4254: --
4255: -- Create Pay Value for this element.
4256: --
4257: -- NO, "Employer Liabilities" has non-payments flag = 'N'!
4262:
4263: --
4264: -- Create "Primary" balance for this ER Liab and "associate" appropriately.
4265: --
4266: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',58);
4267: v_balance_name := v_er_charge_ele_name;
4268: --v_bal_rpt_name := v_ele_repname;
4269: v_er_charge_baltype_id := pay_db_pay_setup.create_balance_type(
4270: p_balance_name => v_balance_name,
4282:
4283: --
4284: -- Primary balance feeds
4285: --
4286: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4287: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4288:
4289: -- We need inpval_id of pay value for this element:
4290: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4286: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4287: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4288:
4289: -- We need inpval_id of pay value for this element:
4290: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4291: SELECT IV.input_value_id
4292: INTO v_payval_id
4293: FROM pay_input_values_f IV
4294: WHERE IV.element_type_id = v_er_charge_eletype_id
4298: -- Note, there is a packaged function "chk_ins_balance_feed" in pybalnce.pkb.
4299: -- Since this is definitely a new balance feed for a new element and balance,
4300: -- there is no chance for duplicating an existing feed.
4301: --
4302: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',90);
4303: hr_balances.ins_balance_feed(
4304: p_option => 'INS_MANUAL_FEED',
4305: p_input_value_id => v_payval_id,
4306: p_element_type_id => NULL,
4333: --
4334: END IF; -- Benefit
4335: --
4336: IF p_ele_ee_bond = 'Y' THEN
4337: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',63);
4338: v_eerefund_ele_name := SUBSTR(p_ele_name, 1, 72)||' Refund';
4339: v_ele_repname := SUBSTR(p_ele_name, 1, 22)||' Refund';
4340: v_eerefund_eletype_id := ins_dedn_ele_type (
4341: v_eerefund_ele_name,
4358: --
4359: -- Create "Primary" balance for this EE Bond Refund and
4360: -- "associate" appropriately.
4361: --
4362: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',58);
4363: v_balance_name := v_eerefund_ele_name;
4364: --v_bal_rpt_name := v_ele_repname;
4365: v_eerefund_baltype_id := pay_db_pay_setup.create_balance_type(
4366: p_balance_name => v_balance_name,
4385:
4386: --
4387: -- Primary balance feeds
4388: --
4389: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4390: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4391:
4392: -- We need inpval_id of pay value for this element:
4393: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4389: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4390: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4391:
4392: -- We need inpval_id of pay value for this element:
4393: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4394: SELECT IV.input_value_id
4395: INTO v_payval_id
4396: FROM pay_input_values_f IV
4397: WHERE IV.element_type_id = v_eerefund_eletype_id
4401: -- Note, there is a packaged function "chk_ins_balance_feed" in pybalnce.pkb.
4402: -- Since this is definitely a new balance feed for a new element and balance,
4403: -- there is no chance for duplicating an existing feed.
4404: --
4405: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',90);
4406: hr_balances.ins_balance_feed(
4407: p_option => 'INS_MANUAL_FEED',
4408: p_input_value_id => v_payval_id,
4409: p_element_type_id => NULL,
4422: END IF; -- EE Bond
4423: --
4424: -------------------------- Insert Formula Processing records -------------
4425: --
4426: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',68);
4427: ins_dedn_formula_processing ( v_ele_type_id,
4428: p_ele_name,
4429: v_shadow_ele_type_id,
4430: v_shadow_ele_name,
4456: -------------------------Insert Input Values --------------------------
4457: --
4458: -- Make insertion of all basic earnings input vals (ie. req'd for all
4459: -- earnings elements, not based on calc rule; instead on Class).
4460: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',69);
4461: ins_dedn_input_vals ( v_ele_type_id,
4462: p_ele_name,
4463: v_shadow_ele_type_id,
4464: v_shadow_ele_name,
4497: -- as appropriate.
4498: --
4499: -- And we need to update element type DDF with associated balances (G1241).
4500: --
4501: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4502: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4503:
4504: -- We need inpval_id of pay value for this element:
4505: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4501: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',70);
4502: v_payval_name := hr_input_values.get_pay_value_name(g_template_leg_code);
4503:
4504: -- We need inpval_id of pay value for this element:
4505: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',80);
4506: SELECT IV.input_value_id
4507: INTO v_payval_id
4508: FROM pay_input_values_f IV
4509: WHERE IV.element_type_id = v_ele_type_id
4513: -- Note, there is a packaged function "chk_ins_balance_feed" in pybalnce.pkb.
4514: -- Since this is definitely a new balance feed for a new element and balance,
4515: -- there is no chance for duplicating an existing feed.
4516: --
4517: hr_utility.set_location('hr_user_init_dedn.ins_deduction_template',90);
4518: hr_balances.ins_balance_feed(
4519: p_option => 'INS_MANUAL_FEED',
4520: p_input_value_id => v_payval_id,
4521: p_element_type_id => NULL,
4755:
4756: recinfo chk_for_lock%ROWTYPE;
4757:
4758: BEGIN
4759: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',10);
4760: OPEN chk_for_lock;
4761: FETCH chk_for_lock INTO recinfo;
4762: CLOSE chk_for_lock;
4763:
4762: CLOSE chk_for_lock;
4763:
4764: -- Note: Not checking eff dates.
4765:
4766: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',20);
4767: IF ( ( (recinfo.element_type_id = p_ele_type_id)
4768: OR (recinfo.element_type_id IS NULL AND p_ele_type_id IS NULL))
4769: -- AND ( (recinfo.effective_start_date = fnd_date.canonical_to_date(p_ele_eff_start_date))
4770: -- OR (recinfo.effective_start_date IS NULL
4789: OR (recinfo.processing_priority IS NULL AND p_ele_priority IS NULL))
4790: AND ( (recinfo.standard_link_flag = p_ele_standard_link)
4791: OR (recinfo.standard_link_flag IS NULL AND p_ele_standard_link IS NULL)))
4792: THEN
4793: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',30);
4794: RETURN;
4795: ELSE
4796: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',40);
4797: hr_utility.set_message(801,'PAY_xxxx_COULD_NOT_OBTAIN_LOCK');
4792: THEN
4793: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',30);
4794: RETURN;
4795: ELSE
4796: hr_utility.set_location('hr_user_init_dedn.lock_template_rows',40);
4797: hr_utility.set_message(801,'PAY_xxxx_COULD_NOT_OBTAIN_LOCK');
4798: hr_utility.raise_error;
4799:
4800: -- FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED_BY_ANOTHER_USER');
5149: --
5150: -- Do not allow deletion of Special Features element.
5151: --
5152: IF p_ele_name like '% Special Features' THEN
5153: hr_utility.set_location('hr_user_init_dedn.do_deletion',40);
5154: hr_utility.set_message(801,'PAY_xxxx_CANNOT_DEL_ELE');
5155: hr_utility.raise_error;
5156: END IF;
5157: --
5157: --
5158: -- Do not allow deletion of Special Inputs element.
5159: --
5160: IF p_ele_name like '% Special Inputs' THEN
5161: hr_utility.set_location('hr_user_init_dedn.do_deletion',40);
5162: hr_utility.set_message(801,'PAY_xxxx_CANNOT_DEL_ELE');
5163: hr_utility.raise_error;
5164: END IF;
5165: --
5165: --
5166: -- Do not allow deletion of Withholding element.
5167: --
5168: IF p_ele_name like '% Withholding' THEN
5169: hr_utility.set_location('hr_user_init_dedn.do_deletion',40);
5170: hr_utility.set_message(801,'PAY_xxxx_CANNOT_DEL_ELE');
5171: hr_utility.raise_error;
5172: END IF;
5173: --
5442: AND v_del_sess_date >= effective_start_date
5443: AND v_del_sess_date <= effective_end_date
5444: and business_group_id + 0 = p_business_group_id ;
5445:
5446: hr_utility.set_location('hr_user_init_dedn.do_deletions', 20);
5447: hr_elements.chk_del_element_type (
5448: p_mode => v_del_mode,
5449: p_element_type_id => v_eletype_id,
5450: p_processing_priority => NULL,
5451: p_session_date => v_del_sess_date,
5452: p_val_start_date => v_del_val_start,
5453: p_val_end_date => v_del_val_end);
5454:
5455: hr_utility.set_location('hr_user_init_dedn.do_deletions', 30);
5456: hr_elements.del_3p_element_type (
5457: p_element_type_id => v_eletype_id,
5458: p_delete_mode => v_del_mode,
5459: p_val_session_date => v_del_sess_date,
5463: --
5464: -- Delete element type record:
5465: -- Remember, we're 'ZAP'ing, so no need to worry about date-effective delete.
5466: --
5467: hr_utility.set_location('hr_user_init_dedn.do_deletions', 35);
5468: delete from PAY_ELEMENT_TYPES_F
5469: where element_type_id = v_eletype_id;
5470:
5471: exception when NO_DATA_FOUND then
5503: in the where clause. Because now it is allowing to enter deduction with
5504: same name in different business groups( ref. Bug 502307), selection only by
5505: element name will fetch more than one row and raise error. **/
5506:
5507: hr_utility.set_location('hr_user_init_dedn.do_deletions', 17);
5508: SELECT DISTINCT element_type_id
5509: INTO v_eletype_id
5510: FROM pay_element_types_f
5511: WHERE element_name = p_ele_name || ' REFUND' --Bug 3349594
5512: AND v_del_sess_date >= effective_start_date
5513: AND v_del_sess_date <= effective_end_date
5514: and business_group_id + 0 = p_business_group_id ;
5515:
5516: hr_utility.set_location('hr_user_init_dedn.do_deletions', 20);
5517: hr_elements.chk_del_element_type (
5518: p_mode => v_del_mode,
5519: p_element_type_id => v_eletype_id,
5520: p_processing_priority => NULL,
5521: p_session_date => v_del_sess_date,
5522: p_val_start_date => v_del_val_start,
5523: p_val_end_date => v_del_val_end);
5524:
5525: hr_utility.set_location('hr_user_init_dedn.do_deletions', 30);
5526: hr_elements.del_3p_element_type (
5527: p_element_type_id => v_eletype_id,
5528: p_delete_mode => v_del_mode,
5529: p_val_session_date => v_del_sess_date,
5530: p_val_start_date => v_del_val_start,
5531: p_val_end_date => v_del_val_end,
5532: p_startup_mode => v_startup_mode);
5533:
5534: hr_utility.set_location('hr_user_init_dedn.do_deletions', 35);
5535: delete from PAY_ELEMENT_TYPES_F
5536: where element_type_id = v_eletype_id;
5537:
5538: exception when NO_DATA_FOUND then
5571: FETCH csr_sfx INTO l_val;
5572: CLOSE csr_sfx;
5573: RETURN l_val;
5574: END get_assoc_ele;
5575: END hr_user_init_dedn;