[Home] [Help]
770: -- from pay_latest_balances
771: -- where assignment_action_id = p_assact_id)
772: or exists -- check for updates to REEs
773: (select null
774: from pay_element_entries_f
775: where updating_action_id = p_assact_id);
776: --
777: cursor c2 is
778: select null from dual
799: -- from pay_latest_balances
800: -- where assignment_action_id = p_assact_id)
801: or exists -- check for updates to REEs
802: (select null
803: from pay_element_entries_f
804: where updating_action_id = p_assact_id);
805: --
806: begin
807: g_debug := hr_utility.debug_enabled;
1307: */
1308: procedure trash_quickpay (p_action_id number) is
1309: cursor c1 is
1310: select pee.element_entry_id
1311: from pay_element_entries_f pee,
1312: pay_assignment_actions paa
1313: where pee.creator_type = 'Q'
1314: and pee.creator_id = paa.assignment_action_id
1315: and pee.assignment_id = paa.assignment_id
1372: -- delete the entry itself
1373: if g_debug then
1374: hr_utility.set_location('hrassact.trash_quickpay',60);
1375: end if;
1376: delete from pay_element_entries_f
1377: where current of c1;
1378: --
1379: end loop;
1380: end;
1423: pee.original_entry_id,
1424: pee.assignment_id,
1425: pee.element_link_id
1426: into effstart, effend, orig_ee_id, asg_id, el_id
1427: from pay_element_entries_f pee
1428: where pee.element_entry_id = p_ee_id
1429: and p_date between
1430: pee.effective_start_date and pee.effective_end_date;
1431: --
1441: hr_utility.set_location(c_indent, 20);
1442: end if;
1443: select min(ee.effective_end_date)
1444: into next_end
1445: from pay_element_entries_f ee
1446: where ee.element_entry_id = p_ee_id
1447: and ee.effective_start_date > effend;
1448: exception
1449: when no_data_found then null;
1502: hr_utility.set_location(c_indent, 30);
1503: end if;
1504: select null
1505: into dummy
1506: from pay_element_entries_f ee
1507: where ee.entry_type = 'E'
1508: and ee.element_entry_id <> p_ee_id
1509: and ee.assignment_id = asg_id
1510: and ee.element_link_id = el_id
1532: if(p_mode = 'DELETE_NEXT_CHANGE') then
1533: if g_debug then
1534: hr_utility.set_location(c_indent, 40);
1535: end if;
1536: delete from pay_element_entries_f ee
1537: where ee.element_entry_id = p_ee_id
1538: and ee.effective_start_date = val_start;
1539: --
1540: if g_debug then
1539: --
1540: if g_debug then
1541: hr_utility.set_location(c_indent, 50);
1542: end if;
1543: update pay_element_entries_f ee
1544: set ee.effective_end_date = decode(val_end, c_eot, effend, val_end)
1545: where ee.element_entry_id = p_ee_id
1546: and ee.effective_start_date = effstart;
1547: --
1549: --
1550: if g_debug then
1551: hr_utility.set_location(c_indent, 60);
1552: end if;
1553: delete from pay_element_entries_f ee
1554: where ee.element_entry_id = p_ee_id
1555: and ee.effective_start_date > effstart;
1556: --
1557: if g_debug then
1556: --
1557: if g_debug then
1558: hr_utility.set_location(c_indent, 70);
1559: end if;
1560: update pay_element_entries_f ee
1561: set ee.effective_end_date = effend
1562: where ee.element_entry_id = p_ee_id
1563: and ee.effective_start_date = effstart;
1564: end if;
1679: -- index, because there should only be the one row anyway.
1680: -- hr_utility.set_location('hrassact.do_assact_rollback',50);
1681: select pee.element_entry_id
1682: into v_eeid
1683: from pay_element_entries_f pee
1684: where pee.creator_id = p_assact_rec.assact_id
1685: and pee.assignment_id = p_assact_rec.assignment_id
1686: and p_pact_rec.action_date between
1687: pee.effective_start_date and pee.effective_end_date;
1698: -- adjustment row, the form may be attempting to delete
1699: -- this row. However, this could be called from the
1700: -- actions form, in which case we do need to do the delete.
1701: -- hr_utility.set_location('hrassact.do_assact_rollback',70);
1702: delete from pay_element_entries_f pee
1703: where pee.element_entry_id = v_eeid
1704: and p_pact_rec.action_date between
1705: pee.effective_start_date and pee.effective_end_date;
1706: end;
1720: pee.effective_start_date,
1721: pee.effective_end_date
1722: from pay_element_types_f pet,
1723: pay_element_links_f pel,
1724: pay_element_entries_f pee
1725: where pee.assignment_id = p_assact_rec.assignment_id
1726: and pee.entry_type = 'E'
1727: and p_pact_rec.action_date between
1728: pee.effective_start_date and pee.effective_end_date
1754: hr_utility.set_location('hrassact.do_assact_rollback',90);
1755: end if;
1756: select max(pee.effective_end_date)
1757: into v_max_date
1758: from pay_element_entries_f pee
1759: where pee.element_entry_id = c1rec.element_entry_id;
1760: --
1761: if(v_max_date = p_pact_rec.action_date) then
1762: -- This entry has been chopped off. We assume
1786: hr_utility.set_location('hrassact.do_assact_rollback',110);
1787: end if;
1788: select max(pee.effective_end_date)
1789: into v_max_date
1790: from pay_element_entries_f pee
1791: where pee.element_entry_id = c1rec.element_entry_id
1792: and pee.effective_end_date = (p_pact_rec.action_date - 1);
1793: --
1794: if(v_max_date is not null) then
1805: -- to null.
1806: if g_debug then
1807: hr_utility.set_location('hrassact.do_assact_rollback',130);
1808: end if;
1809: update pay_element_entries_f pee
1810: set pee.updating_action_id = null
1811: where pee.element_entry_id = c1rec.element_entry_id
1812: and p_pact_rec.action_date between
1813: pee.effective_start_date and pee.effective_end_date;
3078: if g_debug then
3079: hr_utility.set_location('hrassact.del_latest_balances',60);
3080: end if;
3081: select pel.element_type_id into l_element_type_id
3082: from pay_element_entries_f pee
3083: ,pay_element_links_f pel
3084: where
3085: pee.element_entry_id = p_element_entry
3086: and p_effective_date between pee.effective_start_date
5917: p_payroll_action_id in number -- payroll_action_id of reversal.
5918: ) is
5919: cursor c1 is
5920: select + ORDERED
5921: INDEX(PEE PAY_ELEMENT_ENTRIES_F_PK,
5922: PEL PAY_ELEMENT_LINKS_F_PK,
5923: PET PAY_ELEMENT_TYPES_F_PK,
5924: ACT2 PAY_ASSIGNMENT_ACTIONS_PK)
5925: USE_NL(PAC ACT PAI ACT2 RR2 PEE)
5931: pay_assignment_actions act,
5932: pay_action_interlocks pai,
5933: pay_assignment_actions act2,
5934: pay_run_results rr2,
5935: pay_element_entries_f pee,
5936: pay_element_links_f pel,
5937: pay_element_types_f pet
5938: where pac.payroll_action_id = p_payroll_action_id
5939: and act.payroll_action_id = pac.payroll_action_id
6709: hr_utility.trace('effdate='||to_char(effdate, 'DD-MON-YYYY'));
6710: hr_utility.set_location(c_indent,5);
6711: end if;
6712: select /*+ ordered use_nl(pee asg ptp pbg)
6713: index(pee PAY_ELEMENT_ENTRIES_F_PK)
6714: index(asg PER_ASSIGNMENTS_F_PK)
6715: index(ptp PER_TIME_PERIODS_N50) */
6716: pay_payroll_actions_s.nextval,
6717: asg.business_group_id,
6730: tperiod,
6731: creatby,
6732: creatdate,
6733: l_original_entry_id
6734: from pay_element_entries_f pee,
6735: per_all_assignments_f asg,
6736: per_time_periods ptp,
6737: per_business_groups_perf pbg
6738: where pee.element_entry_id = eentryid
6901: -- adjustment action.
6902: if g_debug then
6903: hr_utility.set_location(c_indent,25);
6904: end if;
6905: update pay_element_entries_f pee
6906: set pee.creator_id = assactid
6907: where pee.element_entry_id = eentryid;
6908: --
6909: if(sql%notfound) then
6907: where pee.element_entry_id = eentryid;
6908: --
6909: if(sql%notfound) then
6910: if g_debug then
6911: hr_utility.trace('Update of pay_element_entries_f has failed');
6912: end if;
6913: raise no_data_found;
6914: end if;
6915: --