[Home] [Help]
88: l_name pay_element_types.element_name%type := element_name;
89:
90: BEGIN
91:
92: hr_utility.set_location (l_package_name,1);
93:
94: BEGIN
95: hr_chkfmt.checkformat (l_name,
96: 'PAY_NAME',
94: BEGIN
95: hr_chkfmt.checkformat (l_name,
96: 'PAY_NAME',
97: l_dummy, null, null, 'N', l_dummy, null);
98: hr_utility.set_location (l_package_name,2);
99: EXCEPTION
100: when app_exception.application_exception then
101: hr_utility.set_location (l_package_name,3);
102: fnd_message.set_name ('PAY','PAY_6365_ELEMENT_NO_DB_NAME'); -- checkformat failure
97: l_dummy, null, null, 'N', l_dummy, null);
98: hr_utility.set_location (l_package_name,2);
99: EXCEPTION
100: when app_exception.application_exception then
101: hr_utility.set_location (l_package_name,3);
102: fnd_message.set_name ('PAY','PAY_6365_ELEMENT_NO_DB_NAME'); -- checkformat failure
103: fnd_message.raise_error;
104: END;
105:
102: fnd_message.set_name ('PAY','PAY_6365_ELEMENT_NO_DB_NAME'); -- checkformat failure
103: fnd_message.raise_error;
104: END;
105:
106: hr_utility.set_location (l_package_name,10);
107:
108: OPEN c_translation(language, element_name,element_type_id);
109: hr_utility.set_location (l_package_name,20);
110: FETCH c_translation INTO g_dummy_number;
105:
106: hr_utility.set_location (l_package_name,10);
107:
108: OPEN c_translation(language, element_name,element_type_id);
109: hr_utility.set_location (l_package_name,20);
110: FETCH c_translation INTO g_dummy_number;
111:
112: IF c_translation%NOTFOUND THEN
113: hr_utility.set_location (l_package_name,30);
109: hr_utility.set_location (l_package_name,20);
110: FETCH c_translation INTO g_dummy_number;
111:
112: IF c_translation%NOTFOUND THEN
113: hr_utility.set_location (l_package_name,30);
114: CLOSE c_translation;
115: ELSE
116: hr_utility.set_location (l_package_name,40);
117: CLOSE c_translation;
112: IF c_translation%NOTFOUND THEN
113: hr_utility.set_location (l_package_name,30);
114: CLOSE c_translation;
115: ELSE
116: hr_utility.set_location (l_package_name,40);
117: CLOSE c_translation;
118: fnd_message.set_name('PAY','HR_TRANSLATION_EXISTS');
119: fnd_message.raise_error;
120: END IF;
117: CLOSE c_translation;
118: fnd_message.set_name('PAY','HR_TRANSLATION_EXISTS');
119: fnd_message.raise_error;
120: END IF;
121: hr_utility.set_location ('Leaving: '||l_package_name,80);
122:
123: END validate_translation;
124:
125: -------------------------------------------------------------------------------
155: fetch csr_paylink into g_dummy_number;
156: --
157: if csr_paylink%found then
158: close csr_paylink;
159: hr_utility.set_message (801, 'HR_7431_INPVAL_PAYLINK_BATCHES');
160: hr_utility.raise_error;
161: end if;
162: --
163: close csr_paylink;
156: --
157: if csr_paylink%found then
158: close csr_paylink;
159: hr_utility.set_message (801, 'HR_7431_INPVAL_PAYLINK_BATCHES');
160: hr_utility.raise_error;
161: end if;
162: --
163: close csr_paylink;
164: --
179: ) is
180: --
181: begin
182: --
183: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RECREATE_DB_ITEMS',1);
184: --
185: -- Drop the DB items
186: hrdyndbi.delete_element_type_dict(p_element_type_id);
187: --
336: --
337: --
338: begin
339: --
340: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',1);
341: --
342: open csr_new_id;
343: fetch csr_new_id into p_element_type_id;
344: close csr_new_id;
578: --
579: -- Return the new rowid, and retrieve the newly generated element type
580: -- identifier into the forms row to avoid needing to requery
581: --
582: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',2);
583: --
584: open csr_element_rowid;
585: fetch csr_element_rowid into p_rowid;
586: if (csr_element_rowid%notfound) then
584: open csr_element_rowid;
585: fetch csr_element_rowid into p_rowid;
586: if (csr_element_rowid%notfound) then
587: close csr_element_rowid;
588: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.INSERT_ROW');
590: end if;
591: close csr_element_rowid;
592: --
585: fetch csr_element_rowid into p_rowid;
586: if (csr_element_rowid%notfound) then
587: close csr_element_rowid;
588: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.INSERT_ROW');
590: end if;
591: close csr_element_rowid;
592: --
593: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',3);
589: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.INSERT_ROW');
590: end if;
591: close csr_element_rowid;
592: --
593: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',3);
594: --
595: -- Create element DB items on the entity horizon
596: hrdyndbi.create_element_type_dict(p_element_type_id,
597: p_effective_start_date);
595: -- Create element DB items on the entity horizon
596: hrdyndbi.create_element_type_dict(p_element_type_id,
597: p_effective_start_date);
598: --
599: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',4);
600: --
601: -- Create pay value for payment type elements which will be processed in the
602: -- payroll run
603: if (p_process_in_run_flag = 'Y' and p_non_payments_flag = 'N') then
686: p_uom => p_default_benefit_uom);
687: --
688: end if;
689: --
690: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.INSERT_ROW',5);
691: --
692: pay_sub_class_rules_pkg.insert_defaults (
693: --
694: p_element_type_id,
821: is
822: --
823: begin
824: --
825: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.UPDATE_ROW',1);
826: --
827: update pay_element_types_f
828: set
829: element_type_id = p_element_type_id,
923: deduction_element_type_id = p_deduction_element_type_id
924: where rowid = p_rowid;
925: --
926: if (sql%notfound) then -- trap system errors during update
927: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
928: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UPDATE_ROW');
929: end if;
930: --
931: --
924: where rowid = p_rowid;
925: --
926: if (sql%notfound) then -- trap system errors during update
927: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
928: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UPDATE_ROW');
929: end if;
930: --
931: --
932: -- ****************************************************************************************
946: and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
947: --
948: --
949: if (sql%notfound) then -- trap system errors during update
950: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
951: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UPDATE_TL_ROW');
952: end if;
953: --
954: -- ***************************************************************************************
947: --
948: --
949: if (sql%notfound) then -- trap system errors during update
950: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
951: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UPDATE_TL_ROW');
952: end if;
953: --
954: -- ***************************************************************************************
955: --
998: p_delete_mode ) then
999: --
1000: -- Cascade deletion through child entities
1001: --
1002: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',1);
1003: --
1004: pay_input_values_pkg.parent_deleted ( p_element_type_id,
1005: p_session_date,
1006: p_validation_start_date,
1006: p_validation_start_date,
1007: p_validation_end_date,
1008: p_delete_mode );
1009: --
1010: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',2);
1011: --
1012: ben_benefit_contributions_pkg.parent_deleted ( p_element_type_id,
1013: p_delete_mode,
1014: p_session_date,
1013: p_delete_mode,
1014: p_session_date,
1015: c_base_table );
1016: --
1017: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',3);
1018: --
1019: pay_sub_class_rules_pkg.parent_deleted ( p_element_type_id,
1020: p_session_date,
1021: p_validation_start_date,
1022: p_validation_end_date,
1023: p_delete_mode,
1024: c_base_table );
1025: --
1026: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',4);
1027: --
1028: pay_status_rules_pkg.parent_deleted ( p_element_type_id,
1029: p_session_date,
1030: p_delete_mode );
1054: and start_date > p_session_date;
1055: --
1056: end if;
1057: --
1058: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',5);
1059: --
1060: -- Delete the element itself
1061: delete
1062: from pay_element_types_f
1062: from pay_element_types_f
1063: where rowid = p_rowid;
1064: --
1065: if sql%notfound then -- trap system errors during deletion
1066: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1067: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_ROW');
1068: end if;
1069: --
1070: -- ****************************************************************************
1063: where rowid = p_rowid;
1064: --
1065: if sql%notfound then -- trap system errors during deletion
1066: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1067: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_ROW');
1068: end if;
1069: --
1070: -- ****************************************************************************
1071: --
1080: delete from PAY_ELEMENT_TYPES_F_TL
1081: where ELEMENT_TYPE_ID = P_ELEMENT_TYPE_ID;
1082: --
1083: if sql%notfound then -- trap system errors during deletion
1084: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1085: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_TL_ROW');
1086: end if;
1087:
1088: end if;
1081: where ELEMENT_TYPE_ID = P_ELEMENT_TYPE_ID;
1082: --
1083: if sql%notfound then -- trap system errors during deletion
1084: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1085: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_TL_ROW');
1086: end if;
1087:
1088: end if;
1089: --
1233: l_time_definition_type pay_element_types_f.time_definition_type%type;
1234: --
1235: begin
1236: --
1237: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW',10);
1238: --
1239: -- Fetching the row effectively locks it because of the 'for update' clause
1240: open csr_element_type;
1241: fetch csr_element_type into element_record;
1241: fetch csr_element_type into element_record;
1242: --
1243: if (csr_element_type%notfound) then -- Trap system errors
1244: close csr_element_type;
1245: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1246: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1247: end if;
1248: --
1249: close csr_element_type;
1242: --
1243: if (csr_element_type%notfound) then -- Trap system errors
1244: close csr_element_type;
1245: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1246: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1247: end if;
1248: --
1249: close csr_element_type;
1250: --
1258: -- code for MLS
1259: --
1260: --for tlinfo in csr_element_type_tl LOOP
1261: -- l_count := l_count+1;
1262: -- hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW:'||to_char(l_count),15);
1263: -- if (tlinfo.BASELANG = 'Y') then
1264: -- if ( (tlinfo.ELEMENT_NAME = P_ELEMENT_NAME)
1265: -- AND ((tlinfo.REPORTING_NAME = P_REPORTING_NAME)
1266: -- OR ((tlinfo.REPORTING_NAME is null) AND (P_REPORTING_NAME is null)))
1268: -- OR ((tlinfo.DESCRIPTION is null) AND (P_DESCRIPTION is null)))
1269: -- ) then
1270: -- null;
1271: -- else
1272: -- hr_utility.set_message('fnd', 'form_record_changed');
1273: -- hr_utility.raise_error;
1274: -- end if;
1275: -- end if;
1276: --end loop;
1269: -- ) then
1270: -- null;
1271: -- else
1272: -- hr_utility.set_message('fnd', 'form_record_changed');
1273: -- hr_utility.raise_error;
1274: -- end if;
1275: -- end if;
1276: --end loop;
1277: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1274: -- end if;
1275: -- end if;
1276: --end loop;
1277: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1278: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1279: -- hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1280: --end if;
1281: --
1282: -- ***************************************************************************
1275: -- end if;
1276: --end loop;
1277: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1278: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1279: -- hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1280: --end if;
1281: --
1282: -- ***************************************************************************
1283: --
1291: -- parser stack limitations. It checks to see if any column
1292: -- showing in the form has been changed by another user prior
1293: -- to this user changing it and since the row was queried
1294: --
1295: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW',20);
1296: --
1297:
1298: -- Bug 6411503. Checking for time_definition_type
1299: select DECODE(element_record.time_definition_type, 'N', NULL, element_record.TIME_DEFINITION_TYPE)
1393: --
1394: --then
1395: -- return;
1396: -- else
1397: -- hr_utility.set_message('fnd', 'form_record_changed');
1398: -- hr_utility.raise_error;
1399: --end if;
1400: --
1401: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1394: --then
1395: -- return;
1396: -- else
1397: -- hr_utility.set_message('fnd', 'form_record_changed');
1398: -- hr_utility.raise_error;
1399: --end if;
1400: --
1401: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1402: --
1397: -- hr_utility.set_message('fnd', 'form_record_changed');
1398: -- hr_utility.raise_error;
1399: --end if;
1400: --
1401: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1402: --
1403: --if
1404: --
1405: --((element_record.element_information20 = p_element_information20)
1492: --
1493: then
1494: return;
1495: else
1496: hr_utility.set_message(0, 'FORM_RECORD_CHANGED');
1497: hr_utility.raise_error;
1498: end if;
1499: --
1500: end lock_row;
1493: then
1494: return;
1495: else
1496: hr_utility.set_message(0, 'FORM_RECORD_CHANGED');
1497: hr_utility.raise_error;
1498: end if;
1499: --
1500: end lock_row;
1501: -----------------------------------------------------------------------
1522: and rowid <> p_rowid;
1523: --
1524: begin
1525: --
1526: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DATE_EFFECTIVELY_UPDATED',1);
1527: --
1528: open csr_dated_updates;
1529: fetch csr_dated_updates into g_dummy_number;
1530: v_dated_updates := csr_dated_updates%found;
1530: v_dated_updates := csr_dated_updates%found;
1531: close csr_dated_updates;
1532: --
1533: if v_dated_updates and p_error_if_true then
1534: hr_utility.set_message (801,'PAY_6460_ELEMENT_NO_PROC_CORR');
1535: hr_utility.raise_error;
1536: end if;
1537: --
1538: return v_dated_updates;
1531: close csr_dated_updates;
1532: --
1533: if v_dated_updates and p_error_if_true then
1534: hr_utility.set_message (801,'PAY_6460_ELEMENT_NO_PROC_CORR');
1535: hr_utility.raise_error;
1536: end if;
1537: --
1538: return v_dated_updates;
1539: --
1571: and frr.effective_start_date between p_validation_start_date
1572: and p_validation_end_date;
1573: begin
1574: --
1575: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.STOP_ENTRY_RULES_EXIST',1);
1576: --
1577: open csr_stop_entry_rules;
1578: fetch csr_stop_entry_rules into g_dummy_number;
1579: v_stop_entry_rules := csr_stop_entry_rules%found;
1579: v_stop_entry_rules := csr_stop_entry_rules%found;
1580: close csr_stop_entry_rules;
1581: --
1582: if v_stop_entry_rules and p_error_if_true then
1583: hr_utility.set_message (801,'PAY_6157_ELEMENT_NO_DEL_FRR');
1584: hr_utility.raise_error;
1585: end if;
1586: --
1587: return v_stop_entry_rules;
1580: close csr_stop_entry_rules;
1581: --
1582: if v_stop_entry_rules and p_error_if_true then
1583: hr_utility.set_message (801,'PAY_6157_ELEMENT_NO_DEL_FRR');
1584: hr_utility.raise_error;
1585: end if;
1586: --
1587: return v_stop_entry_rules;
1588: --
1654: and payroll.effective_date between p_validation_start_date
1655: and p_validation_end_date);
1656: --
1657: begin
1658: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',1);
1659: /* Check if the element type has any input values */
1660:
1661: open csr_input_values;
1662: fetch csr_input_values into v_input_value_id;
1665:
1666: /* If input values exist use the input value to check if run result
1667: values exists. */
1668:
1669: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',5);
1670:
1671: if v_input_values_exist then
1672: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',10);
1673: open csr_run_result_values(v_input_value_id);
1668:
1669: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',5);
1670:
1671: if v_input_values_exist then
1672: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',10);
1673: open csr_run_result_values(v_input_value_id);
1674: fetch csr_run_result_values into g_dummy_number;
1675: v_run_results_exist := csr_run_result_values%found;
1676: close csr_run_result_values;
1674: fetch csr_run_result_values into g_dummy_number;
1675: v_run_results_exist := csr_run_result_values%found;
1676: close csr_run_result_values;
1677: else
1678: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',15);
1679: open csr_run_results;
1680: fetch csr_run_results into g_dummy_number;
1681: v_run_results_exist := csr_run_results%found;
1682: close csr_run_results;
1681: v_run_results_exist := csr_run_results%found;
1682: close csr_run_results;
1683: end if;
1684:
1685: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',20);
1686: if v_run_results_exist and p_error_if_true then
1687: --
1688: if p_DML_action_being_checked = 'UPDATE' then
1689: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1685: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',20);
1686: if v_run_results_exist and p_error_if_true then
1687: --
1688: if p_DML_action_being_checked = 'UPDATE' then
1689: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1690: --
1691: elsif p_DML_action_being_checked = 'DELETE' then
1692: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1693: --
1688: if p_DML_action_being_checked = 'UPDATE' then
1689: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1690: --
1691: elsif p_DML_action_being_checked = 'DELETE' then
1692: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1693: --
1694: end if;
1695: --
1696: hr_utility.raise_error;
1692: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1693: --
1694: end if;
1695: --
1696: hr_utility.raise_error;
1697: --
1698: end if;
1699: --
1700: return v_run_results_exist;
1719: v_fed_by_indirect_results boolean;
1720: --
1721: begin
1722: --
1723: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.FED_BY_INDIRECT_RESULTS',1);
1724: --
1725: -- Find formula result rules of type Indirect ('I')
1726: open g_csr_result_rules ( p_element_type_id,
1727: p_validation_start_date,
1733: close g_csr_result_rules;
1734: --
1735: -- bug 374841.Invalid message number 69012 changed to 6912.19-JUN-1996 mlisieck
1736: if v_fed_by_indirect_results and p_error_if_true then
1737: hr_utility.set_message (801,'PAY_6912_ELEMENT_NO_FRR_UPD');
1738: hr_utility.raise_error;
1739: end if;
1740: --
1741: return v_fed_by_indirect_results;
1734: --
1735: -- bug 374841.Invalid message number 69012 changed to 6912.19-JUN-1996 mlisieck
1736: if v_fed_by_indirect_results and p_error_if_true then
1737: hr_utility.set_message (801,'PAY_6912_ELEMENT_NO_FRR_UPD');
1738: hr_utility.raise_error;
1739: end if;
1740: --
1741: return v_fed_by_indirect_results;
1742: --
1770: and status_processing_rule_id = v_status_processing_rule_id;
1771: --
1772: begin
1773: --
1774: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.UPDATE_RECURRING_RULES_EXIST',1);
1775: --
1776: -- Find formula result rules of type Update Recurring ('U')
1777: open g_csr_result_rules ( p_element_type_id,
1778: p_validation_start_date,
1793: --
1794: close g_csr_result_rules;
1795: --
1796: if v_update_recurring and p_error_if_true then
1797: hr_utility.set_message (801,'HR_6954_PAY_ELE_NO_UPD_REC');
1798: hr_utility.raise_error;
1799: end if;
1800: --
1801: return v_update_recurring;
1794: close g_csr_result_rules;
1795: --
1796: if v_update_recurring and p_error_if_true then
1797: hr_utility.set_message (801,'HR_6954_PAY_ELE_NO_UPD_REC');
1798: hr_utility.raise_error;
1799: end if;
1800: --
1801: return v_update_recurring;
1802: --
1834: close csr_pay_basis;
1835: --
1836: if v_pay_basis_element and p_error_if_true then
1837: --
1838: hr_utility.set_message (801, 'PAY_6965_INPVAL_NO_DEL_SB');
1839: hr_utility.raise_error;
1840: --
1841: end if;
1842: --
1835: --
1836: if v_pay_basis_element and p_error_if_true then
1837: --
1838: hr_utility.set_message (801, 'PAY_6965_INPVAL_NO_DEL_SB');
1839: hr_utility.raise_error;
1840: --
1841: end if;
1842: --
1843: return v_pay_basis_element;
1874: p_stop_entry_rules out nocopy boolean) is
1875: --
1876: begin
1877: --
1878: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',1);
1879: --
1880: -- Perform individual checks and place results directly in the OUT parameters
1881: --
1882: p_run_results := run_results_exist ( p_element_type_id,
1882: p_run_results := run_results_exist ( p_element_type_id,
1883: p_validation_start_date,
1884: p_validation_end_date);
1885: --
1886: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',2);
1887: --
1888: p_element_links := links_exist ( p_element_type_id,
1889: p_validation_start_date,
1890: p_validation_end_date );
1889: p_validation_start_date,
1890: p_validation_end_date );
1891:
1892: --
1893: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',3);
1894: --
1895: p_indirect_results := fed_by_indirect_results ( p_element_type_id,
1896: p_validation_start_date,
1897: p_validation_end_date);
1895: p_indirect_results := fed_by_indirect_results ( p_element_type_id,
1896: p_validation_start_date,
1897: p_validation_end_date);
1898: --
1899: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',4);
1900: --
1901: p_dated_updates := date_effectively_updated ( p_element_type_id,
1902: p_rowid);
1903: --
1900: --
1901: p_dated_updates := date_effectively_updated ( p_element_type_id,
1902: p_rowid);
1903: --
1904: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',5);
1905: --
1906: p_stop_entry_rules := stop_entry_rules_exist ( p_element_type_id,
1907: p_validation_start_date,
1908: p_validation_end_date);
1906: p_stop_entry_rules := stop_entry_rules_exist ( p_element_type_id,
1907: p_validation_start_date,
1908: p_validation_end_date);
1909: --
1910: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',6);
1911: --
1912: p_update_recurring := update_recurring_rules_exist (p_element_type_id,
1913: p_validation_start_date,
1914: p_validation_end_date);
1912: p_update_recurring := update_recurring_rules_exist (p_element_type_id,
1913: p_validation_start_date,
1914: p_validation_end_date);
1915: --
1916: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',6);
1917: --
1918: p_pay_basis := element_used_as_pay_basis (p_element_type_id);
1919: --
1920: end check_relationships;
1944: where element_type_id = p_element_type_id;
1945: --
1946: begin
1947: --
1948: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_IS_IN_AN_ELEMENT_SET',1);
1949: --
1950: open csr_element_set;
1951: fetch csr_element_set into g_dummy_number;
1952: v_in_set := csr_element_set%found;
1952: v_in_set := csr_element_set%found;
1953: close csr_element_set;
1954: --
1955: if v_in_set and p_error_if_true then
1956: hr_utility.set_message (801,'PAY_6713_ELEMENT_NO_DEL_RULE');
1957: hr_utility.raise_error;
1958: end if;
1959: --
1960: return v_in_set;
1953: close csr_element_set;
1954: --
1955: if v_in_set and p_error_if_true then
1956: hr_utility.set_message (801,'PAY_6713_ELEMENT_NO_DEL_RULE');
1957: hr_utility.raise_error;
1958: end if;
1959: --
1960: return v_in_set;
1961: --
1995: and effective_start_date <= p_validation_end_date;
1996: --
1997: begin
1998: --
1999: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LINKS_EXIST',1);
2000: --
2001: open csr_links;
2002: fetch csr_links into g_dummy_number;
2003: v_links_exist := csr_links%found;
2004: close csr_links;
2005: --
2006: if v_links_exist and p_error_if_true then
2007: if p_DML_action_being_checked = 'UPDATE' then
2008: hr_utility.set_message (801,'PAY_6147_ELEMENT_LINK_UPDATE');
2009: --
2010: elsif p_DML_action_being_checked = 'DELETE' then
2011: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2012: --
2007: if p_DML_action_being_checked = 'UPDATE' then
2008: hr_utility.set_message (801,'PAY_6147_ELEMENT_LINK_UPDATE');
2009: --
2010: elsif p_DML_action_being_checked = 'DELETE' then
2011: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2012: --
2013: end if;
2014: hr_utility.raise_error;
2015: end if;
2010: elsif p_DML_action_being_checked = 'DELETE' then
2011: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2012: --
2013: end if;
2014: hr_utility.raise_error;
2015: end if;
2016: --
2017: return v_links_exist;
2018: --
2042: where accrual_plan_element_type_id = p_element_type_id;
2043: --
2044: begin
2045: --
2046: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ACCRUAL_PLAN_EXISTS',1);
2047: --
2048: open csr_accrual;
2049: fetch csr_accrual into g_dummy_number;
2050: v_accrual_exists := csr_accrual%found;
2050: v_accrual_exists := csr_accrual%found;
2051: close csr_accrual;
2052: --
2053: if v_accrual_exists and p_error_if_true then
2054: hr_utility.set_message (801,'PAY_35560_ELT_NO_DEL_ACCRUAL');
2055: hr_utility.raise_error;
2056: end if;
2057: --
2058: return v_accrual_exists;
2051: close csr_accrual;
2052: --
2053: if v_accrual_exists and p_error_if_true then
2054: hr_utility.set_message (801,'PAY_35560_ELT_NO_DEL_ACCRUAL');
2055: hr_utility.raise_error;
2056: end if;
2057: --
2058: return v_accrual_exists;
2059: --
2089: and effective_end_date >= p_validation_start_date;
2090: --
2091: begin
2092: --
2093: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.COBRA_BENEFITS_EXIST',1);
2094: --
2095: open csr_cobra;
2096: fetch csr_cobra into g_dummy_number;
2097: v_cobra_exists := csr_cobra%found;
2097: v_cobra_exists := csr_cobra%found;
2098: close csr_cobra;
2099: --
2100: if v_cobra_exists and p_error_if_true then
2101: hr_utility.set_message (801,'PAY_COBRA_BENS_NO_DEL');
2102: hr_utility.raise_error;
2103: end if;
2104: --
2105: return v_cobra_exists;
2098: close csr_cobra;
2099: --
2100: if v_cobra_exists and p_error_if_true then
2101: hr_utility.set_message (801,'PAY_COBRA_BENS_NO_DEL');
2102: hr_utility.raise_error;
2103: end if;
2104: --
2105: return v_cobra_exists;
2106: --
2133: and effective_end_date >= p_validation_start_date;
2134: --
2135: begin
2136: --
2137: hr_utility.set_location
2138: ('PAY_ELEMENT_TYPES_PKG.benefit_contributions_exist',1);
2139: --
2140: open csr_contribution;
2141: fetch csr_contribution into g_dummy_number;
2142: v_contribution_exists := csr_contribution%found;
2143: close csr_contribution;
2144: --
2145: if v_contribution_exists and p_error_if_true then
2146: hr_utility.set_message (801,'');
2147: hr_utility.raise_error;
2148: end if;
2149: --
2150: return v_contribution_exists;
2143: close csr_contribution;
2144: --
2145: if v_contribution_exists and p_error_if_true then
2146: hr_utility.set_message (801,'');
2147: hr_utility.raise_error;
2148: end if;
2149: --
2150: return v_contribution_exists;
2151: --
2170: v_deletion_allowed boolean := TRUE;
2171: --
2172: begin
2173: --
2174: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETION_ALLOWED',1);
2175: --
2176: -- Check business rules relating to deletion of element type
2177: --
2178: if (p_delete_mode = 'DELETE_NEXT_CHANGE'
2300: and result.effective_start_date <= p_validation_end_date);
2301: --
2302: begin
2303: --
2304: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_PRIORITY_TOO_HIGH',1);
2305: --
2306: open csr_elements_fed_by_this_one;
2307: fetch csr_elements_fed_by_this_one into g_dummy_number;
2308: v_priority_too_high := csr_elements_fed_by_this_one%found;
2360: and result.effective_start_date<= p_validation_end_date);
2361: --
2362: begin
2363: --
2364: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_PRIORITY_TOO_LOW',1);
2365: --
2366: open csr_elements_feeding_this_one;
2367: fetch csr_elements_feeding_this_one into g_dummy_number;
2368: v_priority_too_low := csr_elements_feeding_this_one%found;
2401: v_priority_rule_violated boolean := FALSE;
2402: --
2403: begin
2404: --
2405: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.PRIORITY_RESULT_RULE_VIOLATED',1);
2406: --
2407: if element_priority_too_high ( p_element_type_id,
2408: p_processing_priority,
2409: p_validation_start_date,
2416: --
2417: v_priority_rule_violated := TRUE;
2418: --
2419: if v_priority_rule_violated and p_error_if_true then
2420: hr_utility.set_message (801,'PAY_6149_ELEMENT_PRIORITY_UPD');
2421: hr_utility.raise_error;
2422: end if;
2423: --
2424: end if;
2417: v_priority_rule_violated := TRUE;
2418: --
2419: if v_priority_rule_violated and p_error_if_true then
2420: hr_utility.set_message (801,'PAY_6149_ELEMENT_PRIORITY_UPD');
2421: hr_utility.raise_error;
2422: end if;
2423: --
2424: end if;
2425: --
2467: and et_tl.language = userenv('LANG');
2468: --
2469: begin
2470: --
2471: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.NAME_IS_NOT_UNIQUE',1);
2472: --
2473: open csr_duplicate;
2474: fetch csr_duplicate into g_dummy_number;
2475: v_name_duplicated := csr_duplicate%found;
2475: v_name_duplicated := csr_duplicate%found;
2476: close csr_duplicate;
2477: --
2478: if v_name_duplicated and p_error_if_true then
2479: hr_utility.set_message (801,'PAY_6137_ELEMENT_DUP_NAME');
2480: hr_utility.raise_error;
2481: end if;
2482: --
2483: return v_name_duplicated;
2476: close csr_duplicate;
2477: --
2478: if v_name_duplicated and p_error_if_true then
2479: hr_utility.set_message (801,'PAY_6137_ELEMENT_DUP_NAME');
2480: hr_utility.raise_error;
2481: end if;
2482: --
2483: return v_name_duplicated;
2484: --
2554: and link.element_type_id = p_element_type_id;
2555: --
2556: begin
2557: --
2558: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_ENTRIES_EXIST',1);
2559: --
2560: open csr_entries;
2561: fetch csr_entries into g_dummy_number;
2562: v_entries_exist := csr_entries%found;
2562: v_entries_exist := csr_entries%found;
2563: close csr_entries;
2564: --
2565: if v_entries_exist and p_error_if_true then
2566: hr_utility.set_message (801,'PAY_6197_INPVAL_NO_ENTRY');
2567: hr_utility.raise_error;
2568: end if;
2569: --
2570: return v_entries_exist;
2563: close csr_entries;
2564: --
2565: if v_entries_exist and p_error_if_true then
2566: hr_utility.set_message (801,'PAY_6197_INPVAL_NO_ENTRY');
2567: hr_utility.raise_error;
2568: end if;
2569: --
2570: return v_entries_exist;
2571: --
2664: and X_E_EFFECTIVE_END_DATE is not NULL
2665: and BUSINESS_GROUP_ID is NULL;
2666: --
2667: IF (result>1) THEN
2668: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2669: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2670: hr_utility.set_message_token('STEP','1');
2671: hr_utility.raise_error;
2672: END IF;
2665: and BUSINESS_GROUP_ID is NULL;
2666: --
2667: IF (result>1) THEN
2668: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2669: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2670: hr_utility.set_message_token('STEP','1');
2671: hr_utility.raise_error;
2672: END IF;
2673: EXCEPTION
2666: --
2667: IF (result>1) THEN
2668: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2669: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2670: hr_utility.set_message_token('STEP','1');
2671: hr_utility.raise_error;
2672: END IF;
2673: EXCEPTION
2674: when NO_DATA_FOUND then
2667: IF (result>1) THEN
2668: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2669: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2670: hr_utility.set_message_token('STEP','1');
2671: hr_utility.raise_error;
2672: END IF;
2673: EXCEPTION
2674: when NO_DATA_FOUND then
2675: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2671: hr_utility.raise_error;
2672: END IF;
2673: EXCEPTION
2674: when NO_DATA_FOUND then
2675: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2676: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2677: hr_utility.set_message_token('STEP','1');
2678: hr_utility.raise_error;
2679: end unique_chk;
2672: END IF;
2673: EXCEPTION
2674: when NO_DATA_FOUND then
2675: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2676: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2677: hr_utility.set_message_token('STEP','1');
2678: hr_utility.raise_error;
2679: end unique_chk;
2680: --------------------------------------------------------------------------------
2673: EXCEPTION
2674: when NO_DATA_FOUND then
2675: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2676: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2677: hr_utility.set_message_token('STEP','1');
2678: hr_utility.raise_error;
2679: end unique_chk;
2680: --------------------------------------------------------------------------------
2681: procedure TRANSLATE_ROW (
2674: when NO_DATA_FOUND then
2675: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2676: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2677: hr_utility.set_message_token('STEP','1');
2678: hr_utility.raise_error;
2679: end unique_chk;
2680: --------------------------------------------------------------------------------
2681: procedure TRANSLATE_ROW (
2682: X_E_ELEMENT_NAME in varchar2,