[Home] [Help]
1: package body PAY_ELEMENT_LINKS_PKG as
2: /* $Header: pyeli.pkb 120.2.12010000.2 2008/08/06 07:09:30 ubhat ship $ */
3: /*===========================================================================+
4: | copyright (c) 1993 oracle corporation |
5: | redwood shores, california, usa |
42: existed.
43: 110.3 10-FEB-1999 M Reid 809540: Added segment19 to link test
44: as it was missing.
45: 115.2 27-APR-1999 S Billing 874781,
46: pay_element_links_pkg.update_row(),
47: if updating an element link row with
48: non-criteria information
49: (ie. Qualifying Conditions), then the
50: EED of the updated record or the
101: p_business_group_id number ) is
102: --
103: begin
104: --
105: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_INSERTION', 1);
106: --
107: pay_link_input_values_pkg.create_link_input_value(
108: --
109: p_element_link_id,
111: p_effective_start_date,
112: p_effective_end_date,
113: p_element_type_id);
114: --
115: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_INSERTION', 2);
116: --
117: pay_asg_link_usages_pkg.insert_alu(
118: --
119: p_business_group_id,
156: for update;
157: --
158: begin
159: --
160: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_DELETION', 1);
161: --
162: for fetched_entry in csr_links_entries LOOP
163: --
164: hr_entry_api.delete_element_entry (
168: fetched_entry.element_entry_id);
169: --
170: end loop;
171: --
172: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_DELETION', 2);
173: --
174: pay_asg_link_usages_pkg.cascade_link_deletion (
175: --
176: p_element_link_id,
192: ,p_payroll_action_id => null
193: );
194: end if;
195: --
196: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_DELETION', 3);
197: --
198: <
199: --
200: FOR fetched_input_value in csr_all_inputs_for_link LOOP
241: end if;
242: --
243: end loop remove_orphaned_input_values;
244: --
245: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CASCADE_DELETION', 4);
246: --
247: end cascade_deletion;
248: --------------------------------------------------------------------------------
249: function LINK_END_DATE (p_link_id number) return date is
326: from sys.dual;
327: --
328: begin
329: --
330: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.INSERT_ROW',1);
331: --
332: if p_element_link_id is null then
333: open csr_next_ID;
334: fetch csr_next_ID into p_element_link_id;
334: fetch csr_next_ID into p_element_link_id;
335: close csr_next_ID;
336: end if;
337: --
338: if p_costable_type = 'D' and pay_element_links_pkg.element_in_distribution_set (
339: p_element_type_id,
340: p_business_group_id,
341: p_legislation_code) then
342:
532: locked_row csr_locked_row%rowtype;
533: --
534: begin
535: --
536: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.LOCK_ROW',1);
537: --
538: open csr_locked_row;
539: fetch csr_locked_row into locked_row;
540: if csr_locked_row%notfound then
743: p_attribute20 varchar2) is
744: --
745: begin
746: --
747: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.UPDATE_ROW',1);
748: --
749: /*
750: p_effective_end_date := pay_element_links_pkg.max_end_date (
751: p_element_type_id,
746: --
747: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.UPDATE_ROW',1);
748: --
749: /*
750: p_effective_end_date := pay_element_links_pkg.max_end_date (
751: p_element_type_id,
752: p_element_link_id,
753: p_effective_start_date,
754: p_effective_end_date,
775: );
776:
777: --
778: -- sbilling 874781,
779: -- pay_element_links_pkg.update_row(),
780: -- if updating an element link row with non-criteria information
781: -- (ie. Qualifying Conditions), then the EED
782: -- of the updated record or the newly created record should not exceed
783: -- the EED of the original element link row
785: --
786: p_effective_end_date :=
787: least(
788: p_effective_end_date,
789: pay_element_links_pkg.max_end_date (
790: p_element_type_id,
791: p_element_link_id,
792: p_effective_start_date,
793: p_effective_end_date,
806: hr_utility.trace ('|p_effective_end_date>' || p_effective_end_date || '<');
807:
808:
809: if p_costable_type = 'D'
810: and pay_element_links_pkg.element_in_distribution_set (
811: p_element_type_id,
812: p_business_group_id,
813: p_legislation_code) then
814:
888: v_effective_end_date date;
889: --
890: begin
891: --
892: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.DELETE_ROW',1);
893: --
894: check_deletion_allowed ( p_element_link_id,
895: p_delete_mode,
896: p_validation_start_date);
894: check_deletion_allowed ( p_element_link_id,
895: p_delete_mode,
896: p_validation_start_date);
897: --
898: v_effective_end_date := pay_element_links_pkg.link_end_date (p_element_link_id);
899: --
900: -- Note that the cascade delete of any action other than PURGE/ZAP will
901: -- be done AFTER the deletion of the master record. This is due to a
902: -- quirk of datetrack in forms which means that up to the point of
1099: end link_differs_on;
1100:
1101: BEGIN
1102:
1103: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.LAST_EXCLUSIVE_DATE', 1);
1104:
1105: open csr_my_people_group;
1106: fetch csr_my_people_group into new_link;
1107:
1109: -- The link criteria being tested are made up of the parameters and the
1110: -- new_link record. If any of the link's criteria are matched in
1111: -- another link for the same element, then the link being tested must be
1112: -- given an end date just prior to the start date of the matching link. If this
1113: -- cannot be done, then an error will occur. A match is PAY_ELEMENT_LINKS_PKGd as either
1114: -- equality between the criteria items, or where one of the items is
1115: -- unspecified.
1116: -- NB It is more efficient to check for a non-match because a single
1117: -- non-matching item will satisfy the exclusivity for the whole record, whilst
1159: or (link_differs_on (existing_link.segment29, new_link.segment29))
1160: or (link_differs_on (existing_link.segment30, new_link.segment30)))
1161: then
1162: --
1163: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.last_exclusive_date',2);
1164: --
1165: -- Set the end date to avoid clash; raise an error if that is not possible
1166: if (p_validation_start_date < existing_link.effective_start_date) then
1167: --
1164: --
1165: -- Set the end date to avoid clash; raise an error if that is not possible
1166: if (p_validation_start_date < existing_link.effective_start_date) then
1167: --
1168: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.last_exclusive_date',3);
1169: v_last_exclusive_date := existing_link.effective_start_date - 1;
1170: exit LINK_TEST; -- The cursor ordering ensures that the date is that
1171: -- of the chronologically first matching link
1172: --
1242: from pay_payrolls_f
1243: where payroll_id = p_payroll_id;
1244: begin
1245: --
1246: hr_utility.set_location ('PAY_ELEMENT_LINKS_PKG.MAX_END_DATE',1);
1247: hr_utility.trace ('p_validation_start_date = '||p_validation_start_date);
1248: hr_utility.trace ('p_validation_end_date = '||p_validation_end_date);
1249: --
1250: -- If there is a named payroll, then take its last end date; if the link is to
1325: element_in_set boolean;
1326:
1327: begin
1328:
1329: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CHECK_DISTRIBUTION_SET', 1);
1330:
1331: open csr_distribution_set;
1332: fetch csr_distribution_set into g_dummy;
1333: element_in_set := csr_distribution_set%found;
1355: from pay_element_entries_f
1356: where element_link_id = p_element_link_id;
1357: begin
1358: --
1359: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.ELEMENT_ENTRIES_EXIST', 1);
1360: --
1361: open csr_entries;
1362: fetch csr_entries into g_dummy;
1363: if csr_entries%found and p_error_if_true then
1434: and balance_entry.entry_type = 'B';
1435: --
1436: begin
1437: --
1438: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CHECK_DELETION_ALLOWED', 10);
1439: --
1440: -- Bug 5512101. Changes for Batch Element Link support.
1441: -- We need to ensure that the element link is complete
1442: -- unless the delete mode is ZAP.
1448: );
1449: end if;
1450:
1451:
1452: hr_utility.set_location('PAY_ELEMENT_LINKS_PKG.CHECK_DELETION_ALLOWED', 20);
1453: --
1454: -- Bug 1490304 - if p_delete_mode in DELETE or ZAP then open both cursors
1455: -- else only open csr_entries.
1456: --
1492: p_element_entries_exist out nocopy boolean ) is
1493: --
1494: begin
1495: --
1496: hr_utility.set_location ('pay_element_links_pkg.check_relationships',1);
1497: --
1498: p_date_effectively_updated := date_effectively_updated (p_element_link_id,
1499: p_rowid );
1500: --
1541: return l_exists;
1542:
1543: end pay_basis_exists;
1544: --------------------------------------------------------------------------------
1545: end PAY_ELEMENT_LINKS_PKG;