[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 );
1046: -- Bug 14189892 Need to delete entries in pay_element_span_usages
1047: -- when date mode is ZAP
1048: delete from pay_element_span_usages
1049: where RETRO_ELEMENT_TYPE_ID = p_element_type_id;
1050: hr_utility.trace('Deleted entry in PAY_ELEMENT_SPAN_USAGES with RETRO_ELEMENT_TYPE_ID ' || p_element_type_id );
1051:
1052: elsif p_delete_mode = 'DELETE' then
1053: --
1054: -- We need to remove any payroll frequency rules starting after the new end
1059: and start_date > p_session_date;
1060: --
1061: end if;
1062: --
1063: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETE_ROW',5);
1064: --
1065: -- Delete the element itself
1066: delete
1067: from pay_element_types_f
1067: from pay_element_types_f
1068: where rowid = p_rowid;
1069: --
1070: if sql%notfound then -- trap system errors during deletion
1071: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_ROW');
1073: end if;
1074: --
1075: -- ****************************************************************************
1068: where rowid = p_rowid;
1069: --
1070: if sql%notfound then -- trap system errors during deletion
1071: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1072: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_ROW');
1073: end if;
1074: --
1075: -- ****************************************************************************
1076: --
1085: delete from PAY_ELEMENT_TYPES_F_TL
1086: where ELEMENT_TYPE_ID = P_ELEMENT_TYPE_ID;
1087: --
1088: if sql%notfound then -- trap system errors during deletion
1089: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1090: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_TL_ROW');
1091: end if;
1092:
1093: end if;
1086: where ELEMENT_TYPE_ID = P_ELEMENT_TYPE_ID;
1087: --
1088: if sql%notfound then -- trap system errors during deletion
1089: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1090: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.DELETE_TL_ROW');
1091: end if;
1092:
1093: end if;
1094: --
1238: l_time_definition_type pay_element_types_f.time_definition_type%type;
1239: --
1240: begin
1241: --
1242: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW',10);
1243: --
1244: -- Fetching the row effectively locks it because of the 'for update' clause
1245: open csr_element_type;
1246: fetch csr_element_type into element_record;
1246: fetch csr_element_type into element_record;
1247: --
1248: if (csr_element_type%notfound) then -- Trap system errors
1249: close csr_element_type;
1250: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1251: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1252: end if;
1253: --
1254: close csr_element_type;
1247: --
1248: if (csr_element_type%notfound) then -- Trap system errors
1249: close csr_element_type;
1250: hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1251: hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1252: end if;
1253: --
1254: close csr_element_type;
1255: --
1263: -- code for MLS
1264: --
1265: --for tlinfo in csr_element_type_tl LOOP
1266: -- l_count := l_count+1;
1267: -- hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW:'||to_char(l_count),15);
1268: -- if (tlinfo.BASELANG = 'Y') then
1269: -- if ( (tlinfo.ELEMENT_NAME = P_ELEMENT_NAME)
1270: -- AND ((tlinfo.REPORTING_NAME = P_REPORTING_NAME)
1271: -- OR ((tlinfo.REPORTING_NAME is null) AND (P_REPORTING_NAME is null)))
1273: -- OR ((tlinfo.DESCRIPTION is null) AND (P_DESCRIPTION is null)))
1274: -- ) then
1275: -- null;
1276: -- else
1277: -- hr_utility.set_message('fnd', 'form_record_changed');
1278: -- hr_utility.raise_error;
1279: -- end if;
1280: -- end if;
1281: --end loop;
1274: -- ) then
1275: -- null;
1276: -- else
1277: -- hr_utility.set_message('fnd', 'form_record_changed');
1278: -- hr_utility.raise_error;
1279: -- end if;
1280: -- end if;
1281: --end loop;
1282: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1279: -- end if;
1280: -- end if;
1281: --end loop;
1282: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1283: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1284: -- hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1285: --end if;
1286: --
1287: -- ***************************************************************************
1280: -- end if;
1281: --end loop;
1282: --IF(l_count=0) THEN -- We have data missing from the _TL table.
1283: -- hr_utility.set_message (801,'HR_6153_ALL_PROCEDURE_FAIL');
1284: -- hr_utility.set_message_token ('PROCEDURE','PAY_ELEMENT_TYPES_PKG.LOCK_ROW');
1285: --end if;
1286: --
1287: -- ***************************************************************************
1288: --
1296: -- parser stack limitations. It checks to see if any column
1297: -- showing in the form has been changed by another user prior
1298: -- to this user changing it and since the row was queried
1299: --
1300: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LOCK_ROW',20);
1301: --
1302:
1303: -- Bug 6411503. Checking for time_definition_type
1304: select DECODE(element_record.time_definition_type, 'N', NULL, element_record.TIME_DEFINITION_TYPE)
1398: --
1399: --then
1400: -- return;
1401: -- else
1402: -- hr_utility.set_message('fnd', 'form_record_changed');
1403: -- hr_utility.raise_error;
1404: --end if;
1405: --
1406: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1399: --then
1400: -- return;
1401: -- else
1402: -- hr_utility.set_message('fnd', 'form_record_changed');
1403: -- hr_utility.raise_error;
1404: --end if;
1405: --
1406: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1407: --
1402: -- hr_utility.set_message('fnd', 'form_record_changed');
1403: -- hr_utility.raise_error;
1404: --end if;
1405: --
1406: --hr_utility.set_location ('pay_element_types_pkg.lock_row',30);
1407: --
1408: --if
1409: --
1410: --((element_record.element_information20 = p_element_information20)
1497: --
1498: then
1499: return;
1500: else
1501: hr_utility.set_message(0, 'FORM_RECORD_CHANGED');
1502: hr_utility.raise_error;
1503: end if;
1504: --
1505: end lock_row;
1498: then
1499: return;
1500: else
1501: hr_utility.set_message(0, 'FORM_RECORD_CHANGED');
1502: hr_utility.raise_error;
1503: end if;
1504: --
1505: end lock_row;
1506: -----------------------------------------------------------------------
1527: and rowid <> p_rowid;
1528: --
1529: begin
1530: --
1531: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DATE_EFFECTIVELY_UPDATED',1);
1532: --
1533: open csr_dated_updates;
1534: fetch csr_dated_updates into g_dummy_number;
1535: v_dated_updates := csr_dated_updates%found;
1535: v_dated_updates := csr_dated_updates%found;
1536: close csr_dated_updates;
1537: --
1538: if v_dated_updates and p_error_if_true then
1539: hr_utility.set_message (801,'PAY_6460_ELEMENT_NO_PROC_CORR');
1540: hr_utility.raise_error;
1541: end if;
1542: --
1543: return v_dated_updates;
1536: close csr_dated_updates;
1537: --
1538: if v_dated_updates and p_error_if_true then
1539: hr_utility.set_message (801,'PAY_6460_ELEMENT_NO_PROC_CORR');
1540: hr_utility.raise_error;
1541: end if;
1542: --
1543: return v_dated_updates;
1544: --
1576: and frr.effective_start_date between p_validation_start_date
1577: and p_validation_end_date;
1578: begin
1579: --
1580: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.STOP_ENTRY_RULES_EXIST',1);
1581: --
1582: open csr_stop_entry_rules;
1583: fetch csr_stop_entry_rules into g_dummy_number;
1584: v_stop_entry_rules := csr_stop_entry_rules%found;
1584: v_stop_entry_rules := csr_stop_entry_rules%found;
1585: close csr_stop_entry_rules;
1586: --
1587: if v_stop_entry_rules and p_error_if_true then
1588: hr_utility.set_message (801,'PAY_6157_ELEMENT_NO_DEL_FRR');
1589: hr_utility.raise_error;
1590: end if;
1591: --
1592: return v_stop_entry_rules;
1585: close csr_stop_entry_rules;
1586: --
1587: if v_stop_entry_rules and p_error_if_true then
1588: hr_utility.set_message (801,'PAY_6157_ELEMENT_NO_DEL_FRR');
1589: hr_utility.raise_error;
1590: end if;
1591: --
1592: return v_stop_entry_rules;
1593: --
1668: where value.input_value_id = p_input_value_id);
1669:
1670: --
1671: begin
1672: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',1);
1673: /* Check if the element type has any input values */
1674:
1675: open csr_input_values;
1676: fetch csr_input_values into v_input_value_id;
1679:
1680: /* If input values exist use the input value to check if run result
1681: values exists. */
1682:
1683: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',5);
1684:
1685: if v_input_values_exist then
1686: if ((p_validation_start_date = to_date ('01/01/0001','DD/MM/YYYY'))
1687: AND
1685: if v_input_values_exist then
1686: if ((p_validation_start_date = to_date ('01/01/0001','DD/MM/YYYY'))
1687: AND
1688: (p_validation_end_date = to_date ('31/12/4712','DD/MM/YYYY'))) then
1689: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',121);
1690: open csr_default_run_result_values(v_input_value_id);
1691: fetch csr_default_run_result_values into g_dummy_number;
1692: v_run_results_exist := csr_default_run_result_values%found;
1693: close csr_default_run_result_values;
1693: close csr_default_run_result_values;
1694:
1695: else
1696:
1697: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',122);
1698:
1699: open csr_run_result_values(v_input_value_id);
1700: fetch csr_run_result_values into g_dummy_number;
1701: v_run_results_exist := csr_run_result_values%found;
1701: v_run_results_exist := csr_run_result_values%found;
1702: close csr_run_result_values;
1703: end if;
1704:
1705: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',10);
1706: open csr_run_result_values(v_input_value_id);
1707: fetch csr_run_result_values into g_dummy_number;
1708: v_run_results_exist := csr_run_result_values%found;
1709: close csr_run_result_values;
1707: fetch csr_run_result_values into g_dummy_number;
1708: v_run_results_exist := csr_run_result_values%found;
1709: close csr_run_result_values;
1710: else
1711: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',15);
1712: open csr_run_results;
1713: fetch csr_run_results into g_dummy_number;
1714: v_run_results_exist := csr_run_results%found;
1715: close csr_run_results;
1714: v_run_results_exist := csr_run_results%found;
1715: close csr_run_results;
1716: end if;
1717:
1718: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',20);
1719: if v_run_results_exist and p_error_if_true then
1720: --
1721: if p_DML_action_being_checked = 'UPDATE' then
1722: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1718: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.RUN_RESULTS_EXIST',20);
1719: if v_run_results_exist and p_error_if_true then
1720: --
1721: if p_DML_action_being_checked = 'UPDATE' then
1722: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1723: --
1724: elsif p_DML_action_being_checked = 'DELETE' then
1725: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1726: --
1721: if p_DML_action_being_checked = 'UPDATE' then
1722: hr_utility.set_message (801,'PAY_6909_ELEMENT_NO_UPD_RR');
1723: --
1724: elsif p_DML_action_being_checked = 'DELETE' then
1725: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1726: --
1727: end if;
1728: --
1729: hr_utility.raise_error;
1725: hr_utility.set_message (801,'PAY_6242_ELEMENTS_NO_DEL_RR');
1726: --
1727: end if;
1728: --
1729: hr_utility.raise_error;
1730: --
1731: end if;
1732: --
1733: return v_run_results_exist;
1752: v_fed_by_indirect_results boolean;
1753: --
1754: begin
1755: --
1756: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.FED_BY_INDIRECT_RESULTS',1);
1757: --
1758: -- Find formula result rules of type Indirect ('I')
1759: open g_csr_result_rules ( p_element_type_id,
1760: p_validation_start_date,
1766: close g_csr_result_rules;
1767: --
1768: -- bug 374841.Invalid message number 69012 changed to 6912.19-JUN-1996 mlisieck
1769: if v_fed_by_indirect_results and p_error_if_true then
1770: hr_utility.set_message (801,'PAY_6912_ELEMENT_NO_FRR_UPD');
1771: hr_utility.raise_error;
1772: end if;
1773: --
1774: return v_fed_by_indirect_results;
1767: --
1768: -- bug 374841.Invalid message number 69012 changed to 6912.19-JUN-1996 mlisieck
1769: if v_fed_by_indirect_results and p_error_if_true then
1770: hr_utility.set_message (801,'PAY_6912_ELEMENT_NO_FRR_UPD');
1771: hr_utility.raise_error;
1772: end if;
1773: --
1774: return v_fed_by_indirect_results;
1775: --
1803: and status_processing_rule_id = v_status_processing_rule_id;
1804: --
1805: begin
1806: --
1807: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.UPDATE_RECURRING_RULES_EXIST',1);
1808: --
1809: -- Find formula result rules of type Update Recurring ('U')
1810: open g_csr_result_rules ( p_element_type_id,
1811: p_validation_start_date,
1826: --
1827: close g_csr_result_rules;
1828: --
1829: if v_update_recurring and p_error_if_true then
1830: hr_utility.set_message (801,'HR_6954_PAY_ELE_NO_UPD_REC');
1831: hr_utility.raise_error;
1832: end if;
1833: --
1834: return v_update_recurring;
1827: close g_csr_result_rules;
1828: --
1829: if v_update_recurring and p_error_if_true then
1830: hr_utility.set_message (801,'HR_6954_PAY_ELE_NO_UPD_REC');
1831: hr_utility.raise_error;
1832: end if;
1833: --
1834: return v_update_recurring;
1835: --
1867: close csr_pay_basis;
1868: --
1869: if v_pay_basis_element and p_error_if_true then
1870: --
1871: hr_utility.set_message (801, 'PAY_6965_INPVAL_NO_DEL_SB');
1872: hr_utility.raise_error;
1873: --
1874: end if;
1875: --
1868: --
1869: if v_pay_basis_element and p_error_if_true then
1870: --
1871: hr_utility.set_message (801, 'PAY_6965_INPVAL_NO_DEL_SB');
1872: hr_utility.raise_error;
1873: --
1874: end if;
1875: --
1876: return v_pay_basis_element;
1907: p_stop_entry_rules out nocopy boolean) is
1908: --
1909: begin
1910: --
1911: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',1);
1912: --
1913: -- Perform individual checks and place results directly in the OUT parameters
1914: --
1915: p_run_results := run_results_exist ( p_element_type_id,
1915: p_run_results := run_results_exist ( p_element_type_id,
1916: p_validation_start_date,
1917: p_validation_end_date);
1918: --
1919: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',2);
1920: --
1921: p_element_links := links_exist ( p_element_type_id,
1922: p_validation_start_date,
1923: p_validation_end_date );
1922: p_validation_start_date,
1923: p_validation_end_date );
1924:
1925: --
1926: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',3);
1927: --
1928: p_indirect_results := fed_by_indirect_results ( p_element_type_id,
1929: p_validation_start_date,
1930: p_validation_end_date);
1928: p_indirect_results := fed_by_indirect_results ( p_element_type_id,
1929: p_validation_start_date,
1930: p_validation_end_date);
1931: --
1932: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',4);
1933: --
1934: p_dated_updates := date_effectively_updated ( p_element_type_id,
1935: p_rowid);
1936: --
1933: --
1934: p_dated_updates := date_effectively_updated ( p_element_type_id,
1935: p_rowid);
1936: --
1937: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',5);
1938: --
1939: p_stop_entry_rules := stop_entry_rules_exist ( p_element_type_id,
1940: p_validation_start_date,
1941: p_validation_end_date);
1939: p_stop_entry_rules := stop_entry_rules_exist ( p_element_type_id,
1940: p_validation_start_date,
1941: p_validation_end_date);
1942: --
1943: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',6);
1944: --
1945: p_update_recurring := update_recurring_rules_exist (p_element_type_id,
1946: p_validation_start_date,
1947: p_validation_end_date);
1945: p_update_recurring := update_recurring_rules_exist (p_element_type_id,
1946: p_validation_start_date,
1947: p_validation_end_date);
1948: --
1949: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.CHECK_RELATIONSHIPS',6);
1950: --
1951: p_pay_basis := element_used_as_pay_basis (p_element_type_id);
1952: --
1953: end check_relationships;
1977: where element_type_id = p_element_type_id;
1978: --
1979: begin
1980: --
1981: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_IS_IN_AN_ELEMENT_SET',1);
1982: --
1983: open csr_element_set;
1984: fetch csr_element_set into g_dummy_number;
1985: v_in_set := csr_element_set%found;
1985: v_in_set := csr_element_set%found;
1986: close csr_element_set;
1987: --
1988: if v_in_set and p_error_if_true then
1989: hr_utility.set_message (801,'PAY_6713_ELEMENT_NO_DEL_RULE');
1990: hr_utility.raise_error;
1991: end if;
1992: --
1993: return v_in_set;
1986: close csr_element_set;
1987: --
1988: if v_in_set and p_error_if_true then
1989: hr_utility.set_message (801,'PAY_6713_ELEMENT_NO_DEL_RULE');
1990: hr_utility.raise_error;
1991: end if;
1992: --
1993: return v_in_set;
1994: --
2028: and effective_start_date <= p_validation_end_date;
2029: --
2030: begin
2031: --
2032: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.LINKS_EXIST',1);
2033: --
2034: open csr_links;
2035: fetch csr_links into g_dummy_number;
2036: v_links_exist := csr_links%found;
2037: close csr_links;
2038: --
2039: if v_links_exist and p_error_if_true then
2040: if p_DML_action_being_checked = 'UPDATE' then
2041: hr_utility.set_message (801,'PAY_6147_ELEMENT_LINK_UPDATE');
2042: --
2043: elsif p_DML_action_being_checked = 'DELETE' then
2044: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2045: --
2040: if p_DML_action_being_checked = 'UPDATE' then
2041: hr_utility.set_message (801,'PAY_6147_ELEMENT_LINK_UPDATE');
2042: --
2043: elsif p_DML_action_being_checked = 'DELETE' then
2044: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2045: --
2046: end if;
2047: hr_utility.raise_error;
2048: end if;
2043: elsif p_DML_action_being_checked = 'DELETE' then
2044: hr_utility.set_message (801,'PAY_6155_ELEMENT_NO_DEL_LINK');
2045: --
2046: end if;
2047: hr_utility.raise_error;
2048: end if;
2049: --
2050: return v_links_exist;
2051: --
2075: where accrual_plan_element_type_id = p_element_type_id;
2076: --
2077: begin
2078: --
2079: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ACCRUAL_PLAN_EXISTS',1);
2080: --
2081: open csr_accrual;
2082: fetch csr_accrual into g_dummy_number;
2083: v_accrual_exists := csr_accrual%found;
2083: v_accrual_exists := csr_accrual%found;
2084: close csr_accrual;
2085: --
2086: if v_accrual_exists and p_error_if_true then
2087: hr_utility.set_message (801,'PAY_35560_ELT_NO_DEL_ACCRUAL');
2088: hr_utility.raise_error;
2089: end if;
2090: --
2091: return v_accrual_exists;
2084: close csr_accrual;
2085: --
2086: if v_accrual_exists and p_error_if_true then
2087: hr_utility.set_message (801,'PAY_35560_ELT_NO_DEL_ACCRUAL');
2088: hr_utility.raise_error;
2089: end if;
2090: --
2091: return v_accrual_exists;
2092: --
2122: and effective_end_date >= p_validation_start_date;
2123: --
2124: begin
2125: --
2126: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.COBRA_BENEFITS_EXIST',1);
2127: --
2128: open csr_cobra;
2129: fetch csr_cobra into g_dummy_number;
2130: v_cobra_exists := csr_cobra%found;
2130: v_cobra_exists := csr_cobra%found;
2131: close csr_cobra;
2132: --
2133: if v_cobra_exists and p_error_if_true then
2134: hr_utility.set_message (801,'PAY_COBRA_BENS_NO_DEL');
2135: hr_utility.raise_error;
2136: end if;
2137: --
2138: return v_cobra_exists;
2131: close csr_cobra;
2132: --
2133: if v_cobra_exists and p_error_if_true then
2134: hr_utility.set_message (801,'PAY_COBRA_BENS_NO_DEL');
2135: hr_utility.raise_error;
2136: end if;
2137: --
2138: return v_cobra_exists;
2139: --
2166: and effective_end_date >= p_validation_start_date;
2167: --
2168: begin
2169: --
2170: hr_utility.set_location
2171: ('PAY_ELEMENT_TYPES_PKG.benefit_contributions_exist',1);
2172: --
2173: open csr_contribution;
2174: fetch csr_contribution into g_dummy_number;
2175: v_contribution_exists := csr_contribution%found;
2176: close csr_contribution;
2177: --
2178: if v_contribution_exists and p_error_if_true then
2179: hr_utility.set_message (801,'');
2180: hr_utility.raise_error;
2181: end if;
2182: --
2183: return v_contribution_exists;
2176: close csr_contribution;
2177: --
2178: if v_contribution_exists and p_error_if_true then
2179: hr_utility.set_message (801,'');
2180: hr_utility.raise_error;
2181: end if;
2182: --
2183: return v_contribution_exists;
2184: --
2203: v_deletion_allowed boolean := TRUE;
2204: --
2205: begin
2206: --
2207: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.DELETION_ALLOWED',1);
2208: --
2209: -- Check business rules relating to deletion of element type
2210: --
2211: if (p_delete_mode = 'DELETE_NEXT_CHANGE'
2333: and result.effective_start_date <= p_validation_end_date);
2334: --
2335: begin
2336: --
2337: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_PRIORITY_TOO_HIGH',1);
2338: --
2339: open csr_elements_fed_by_this_one;
2340: fetch csr_elements_fed_by_this_one into g_dummy_number;
2341: v_priority_too_high := csr_elements_fed_by_this_one%found;
2393: and result.effective_start_date<= p_validation_end_date);
2394: --
2395: begin
2396: --
2397: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_PRIORITY_TOO_LOW',1);
2398: --
2399: open csr_elements_feeding_this_one;
2400: fetch csr_elements_feeding_this_one into g_dummy_number;
2401: v_priority_too_low := csr_elements_feeding_this_one%found;
2434: v_priority_rule_violated boolean := FALSE;
2435: --
2436: begin
2437: --
2438: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.PRIORITY_RESULT_RULE_VIOLATED',1);
2439: --
2440: if element_priority_too_high ( p_element_type_id,
2441: p_processing_priority,
2442: p_validation_start_date,
2449: --
2450: v_priority_rule_violated := TRUE;
2451: --
2452: if v_priority_rule_violated and p_error_if_true then
2453: hr_utility.set_message (801,'PAY_6149_ELEMENT_PRIORITY_UPD');
2454: hr_utility.raise_error;
2455: end if;
2456: --
2457: end if;
2450: v_priority_rule_violated := TRUE;
2451: --
2452: if v_priority_rule_violated and p_error_if_true then
2453: hr_utility.set_message (801,'PAY_6149_ELEMENT_PRIORITY_UPD');
2454: hr_utility.raise_error;
2455: end if;
2456: --
2457: end if;
2458: --
2500: and et_tl.language = userenv('LANG');
2501: --
2502: begin
2503: --
2504: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.NAME_IS_NOT_UNIQUE',1);
2505: --
2506: open csr_duplicate;
2507: fetch csr_duplicate into g_dummy_number;
2508: v_name_duplicated := csr_duplicate%found;
2508: v_name_duplicated := csr_duplicate%found;
2509: close csr_duplicate;
2510: --
2511: if v_name_duplicated and p_error_if_true then
2512: hr_utility.set_message (801,'PAY_6137_ELEMENT_DUP_NAME');
2513: hr_utility.raise_error;
2514: end if;
2515: --
2516: return v_name_duplicated;
2509: close csr_duplicate;
2510: --
2511: if v_name_duplicated and p_error_if_true then
2512: hr_utility.set_message (801,'PAY_6137_ELEMENT_DUP_NAME');
2513: hr_utility.raise_error;
2514: end if;
2515: --
2516: return v_name_duplicated;
2517: --
2587: and link.element_type_id = p_element_type_id;
2588: --
2589: begin
2590: --
2591: hr_utility.set_location ('PAY_ELEMENT_TYPES_PKG.ELEMENT_ENTRIES_EXIST',1);
2592: --
2593: open csr_entries;
2594: fetch csr_entries into g_dummy_number;
2595: v_entries_exist := csr_entries%found;
2595: v_entries_exist := csr_entries%found;
2596: close csr_entries;
2597: --
2598: if v_entries_exist and p_error_if_true then
2599: hr_utility.set_message (801,'PAY_6197_INPVAL_NO_ENTRY');
2600: hr_utility.raise_error;
2601: end if;
2602: --
2603: return v_entries_exist;
2596: close csr_entries;
2597: --
2598: if v_entries_exist and p_error_if_true then
2599: hr_utility.set_message (801,'PAY_6197_INPVAL_NO_ENTRY');
2600: hr_utility.raise_error;
2601: end if;
2602: --
2603: return v_entries_exist;
2604: --
2697: and X_E_EFFECTIVE_END_DATE is not NULL
2698: and BUSINESS_GROUP_ID is NULL;
2699: --
2700: IF (result>1) THEN
2701: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2702: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2703: hr_utility.set_message_token('STEP','1');
2704: hr_utility.raise_error;
2705: END IF;
2698: and BUSINESS_GROUP_ID is NULL;
2699: --
2700: IF (result>1) THEN
2701: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2702: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2703: hr_utility.set_message_token('STEP','1');
2704: hr_utility.raise_error;
2705: END IF;
2706: EXCEPTION
2699: --
2700: IF (result>1) THEN
2701: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2702: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2703: hr_utility.set_message_token('STEP','1');
2704: hr_utility.raise_error;
2705: END IF;
2706: EXCEPTION
2707: when NO_DATA_FOUND then
2700: IF (result>1) THEN
2701: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2702: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2703: hr_utility.set_message_token('STEP','1');
2704: hr_utility.raise_error;
2705: END IF;
2706: EXCEPTION
2707: when NO_DATA_FOUND then
2708: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2704: hr_utility.raise_error;
2705: END IF;
2706: EXCEPTION
2707: when NO_DATA_FOUND then
2708: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2709: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2710: hr_utility.set_message_token('STEP','1');
2711: hr_utility.raise_error;
2712: end unique_chk;
2705: END IF;
2706: EXCEPTION
2707: when NO_DATA_FOUND then
2708: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2709: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2710: hr_utility.set_message_token('STEP','1');
2711: hr_utility.raise_error;
2712: end unique_chk;
2713: --------------------------------------------------------------------------------
2706: EXCEPTION
2707: when NO_DATA_FOUND then
2708: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2709: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2710: hr_utility.set_message_token('STEP','1');
2711: hr_utility.raise_error;
2712: end unique_chk;
2713: --------------------------------------------------------------------------------
2714: procedure TRANSLATE_ROW (
2707: when NO_DATA_FOUND then
2708: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2709: hr_utility.set_message_token('PROCEDURE','PAY_ELEMENT_TYPES_PKG.UNIQUE_CHK');
2710: hr_utility.set_message_token('STEP','1');
2711: hr_utility.raise_error;
2712: end unique_chk;
2713: --------------------------------------------------------------------------------
2714: procedure TRANSLATE_ROW (
2715: X_E_ELEMENT_NAME in varchar2,