[Home] [Help]
738: -- from pay_latest_balances
739: -- where assignment_action_id = p_assact_id)
740: or exists -- check for updates to REEs
741: (select null
742: from pay_element_entries_f
743: where updating_action_id = p_assact_id);
744: --
745: cursor c2 is
746: select null from dual
767: -- from pay_latest_balances
768: -- where assignment_action_id = p_assact_id)
769: or exists -- check for updates to REEs
770: (select null
771: from pay_element_entries_f
772: where updating_action_id = p_assact_id);
773: --
774: begin
775: g_debug := hr_utility.debug_enabled;
1275: */
1276: procedure trash_quickpay (p_action_id number) is
1277: cursor c1 is
1278: select pee.element_entry_id
1279: from pay_element_entries_f pee,
1280: pay_assignment_actions paa
1281: where pee.creator_type = 'Q'
1282: and pee.creator_id = paa.assignment_action_id
1283: and pee.assignment_id = paa.assignment_id
1340: -- delete the entry itself
1341: if g_debug then
1342: hr_utility.set_location('hrassact.trash_quickpay',60);
1343: end if;
1344: delete from pay_element_entries_f
1345: where current of c1;
1346: --
1347: end loop;
1348: end;
1391: pee.original_entry_id,
1392: pee.assignment_id,
1393: pee.element_link_id
1394: into effstart, effend, orig_ee_id, asg_id, el_id
1395: from pay_element_entries_f pee
1396: where pee.element_entry_id = p_ee_id
1397: and p_date between
1398: pee.effective_start_date and pee.effective_end_date;
1399: --
1409: hr_utility.set_location(c_indent, 20);
1410: end if;
1411: select min(ee.effective_end_date)
1412: into next_end
1413: from pay_element_entries_f ee
1414: where ee.element_entry_id = p_ee_id
1415: and ee.effective_start_date > effend;
1416: exception
1417: when no_data_found then null;
1470: hr_utility.set_location(c_indent, 30);
1471: end if;
1472: select null
1473: into dummy
1474: from pay_element_entries_f ee
1475: where ee.entry_type = 'E'
1476: and ee.element_entry_id <> p_ee_id
1477: and ee.assignment_id = asg_id
1478: and ee.element_link_id = el_id
1500: if(p_mode = 'DELETE_NEXT_CHANGE') then
1501: if g_debug then
1502: hr_utility.set_location(c_indent, 40);
1503: end if;
1504: delete from pay_element_entries_f ee
1505: where ee.element_entry_id = p_ee_id
1506: and ee.effective_start_date = val_start;
1507: --
1508: if g_debug then
1507: --
1508: if g_debug then
1509: hr_utility.set_location(c_indent, 50);
1510: end if;
1511: update pay_element_entries_f ee
1512: set ee.effective_end_date = decode(val_end, c_eot, effend, val_end)
1513: where ee.element_entry_id = p_ee_id
1514: and ee.effective_start_date = effstart;
1515: --
1517: --
1518: if g_debug then
1519: hr_utility.set_location(c_indent, 60);
1520: end if;
1521: delete from pay_element_entries_f ee
1522: where ee.element_entry_id = p_ee_id
1523: and ee.effective_start_date > effstart;
1524: --
1525: if g_debug then
1524: --
1525: if g_debug then
1526: hr_utility.set_location(c_indent, 70);
1527: end if;
1528: update pay_element_entries_f ee
1529: set ee.effective_end_date = effend
1530: where ee.element_entry_id = p_ee_id
1531: and ee.effective_start_date = effstart;
1532: end if;
1647: -- index, because there should only be the one row anyway.
1648: -- hr_utility.set_location('hrassact.do_assact_rollback',50);
1649: select pee.element_entry_id
1650: into v_eeid
1651: from pay_element_entries_f pee
1652: where pee.creator_id = p_assact_rec.assact_id
1653: and pee.assignment_id = p_assact_rec.assignment_id
1654: and p_pact_rec.action_date between
1655: pee.effective_start_date and pee.effective_end_date;
1666: -- adjustment row, the form may be attempting to delete
1667: -- this row. However, this could be called from the
1668: -- actions form, in which case we do need to do the delete.
1669: -- hr_utility.set_location('hrassact.do_assact_rollback',70);
1670: delete from pay_element_entries_f pee
1671: where pee.element_entry_id = v_eeid
1672: and p_pact_rec.action_date between
1673: pee.effective_start_date and pee.effective_end_date;
1674: end;
1688: pee.effective_start_date,
1689: pee.effective_end_date
1690: from pay_element_types_f pet,
1691: pay_element_links_f pel,
1692: pay_element_entries_f pee
1693: where pee.assignment_id = p_assact_rec.assignment_id
1694: and pee.entry_type = 'E'
1695: and p_pact_rec.action_date between
1696: pee.effective_start_date and pee.effective_end_date
1722: hr_utility.set_location('hrassact.do_assact_rollback',90);
1723: end if;
1724: select max(pee.effective_end_date)
1725: into v_max_date
1726: from pay_element_entries_f pee
1727: where pee.element_entry_id = c1rec.element_entry_id;
1728: --
1729: if(v_max_date = p_pact_rec.action_date) then
1730: -- This entry has been chopped off. We assume
1754: hr_utility.set_location('hrassact.do_assact_rollback',110);
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: and pee.effective_end_date = (p_pact_rec.action_date - 1);
1761: --
1762: if(v_max_date is not null) then
1773: -- to null.
1774: if g_debug then
1775: hr_utility.set_location('hrassact.do_assact_rollback',130);
1776: end if;
1777: update pay_element_entries_f pee
1778: set pee.updating_action_id = null
1779: where pee.element_entry_id = c1rec.element_entry_id
1780: and p_pact_rec.action_date between
1781: pee.effective_start_date and pee.effective_end_date;
3061: if g_debug then
3062: hr_utility.set_location('hrassact.del_latest_balances',60);
3063: end if;
3064: select pel.element_type_id into l_element_type_id
3065: from pay_element_entries_f pee
3066: ,pay_element_links_f pel
3067: where
3068: pee.element_entry_id = p_element_entry
3069: and p_effective_date between pee.effective_start_date
5653: p_payroll_action_id in number -- payroll_action_id of reversal.
5654: ) is
5655: cursor c1 is
5656: select + ORDERED
5657: INDEX(PEE PAY_ELEMENT_ENTRIES_F_PK,
5658: PEL PAY_ELEMENT_LINKS_F_PK,
5659: PET PAY_ELEMENT_TYPES_F_PK,
5660: ACT2 PAY_ASSIGNMENT_ACTIONS_PK)
5661: USE_NL(PAC ACT PAI ACT2 RR2 PEE)
5667: pay_assignment_actions act,
5668: pay_action_interlocks pai,
5669: pay_assignment_actions act2,
5670: pay_run_results rr2,
5671: pay_element_entries_f pee,
5672: pay_element_links_f pel,
5673: pay_element_types_f pet
5674: where pac.payroll_action_id = p_payroll_action_id
5675: and act.payroll_action_id = pac.payroll_action_id
6445: hr_utility.trace('effdate='||to_char(effdate, 'DD-MON-YYYY'));
6446: hr_utility.set_location(c_indent,5);
6447: end if;
6448: select /*+ ordered use_nl(pee asg ptp pbg)
6449: index(pee PAY_ELEMENT_ENTRIES_F_PK)
6450: index(asg PER_ASSIGNMENTS_F_PK)
6451: index(ptp PER_TIME_PERIODS_N50) */
6452: pay_payroll_actions_s.nextval,
6453: asg.business_group_id,
6466: tperiod,
6467: creatby,
6468: creatdate,
6469: l_original_entry_id
6470: from pay_element_entries_f pee,
6471: per_all_assignments_f asg,
6472: per_time_periods ptp,
6473: per_business_groups_perf pbg
6474: where pee.element_entry_id = eentryid
6637: -- adjustment action.
6638: if g_debug then
6639: hr_utility.set_location(c_indent,25);
6640: end if;
6641: update pay_element_entries_f pee
6642: set pee.creator_id = assactid
6643: where pee.element_entry_id = eentryid;
6644: --
6645: if(sql%notfound) then
6643: where pee.element_entry_id = eentryid;
6644: --
6645: if(sql%notfound) then
6646: if g_debug then
6647: hr_utility.trace('Update of pay_element_entries_f has failed');
6648: end if;
6649: raise no_data_found;
6650: end if;
6651: --