[Home] [Help]
1: package body pay_purge_pkg as
2: /* $Header: pypurge.pkb 120.15.12010000.1 2008/07/27 23:29:37 appldev ship $ */
3: /*
4: +======================================================================+
5: | Copyright (c) 2000 Oracle Corporation |
5: | Copyright (c) 2000 Oracle Corporation |
6: | Redwood Shores, California, USA |
7: | All rights reserved. |
8: +======================================================================+
9: Package Header Name : PAY_PURGE_PKG
10: Package File Name : pypurge.pkb
11:
12: Description : Defines procedures for Purge functionality.
13:
259: (
260: p_purge_action_id in number
261: )
262: is
263: l_proc varchar2(80):='pay_purge_pkg.init_pact';
264: cursor csr_ppa is
265: select
266: ppa.action_type
267: ,ppa.business_group_id
302: close csr_ppa;
303: --
304: hr_utility.set_location(l_proc, 15);
305: pay_core_utils.assert_condition
306: ('pay_purge_pkg.init_pact:1', nvl(l_ppa_rec.action_type,'null') = 'Z');
307: end if;
308:
309: --
310: -- Reset the action cache.
1392: end cre_iv_bf;
1393:
1394: begin
1395:
1396: hr_utility.set_location('pay_purge_pkg.pypurcif', 10);
1397:
1398: select pbg.name
1399: into l_bg_name
1400: from per_business_groups pbg
1445: -- and the input and output currency codes must always
1446: -- be the same (to avoid currency conversion issues
1447: -- when the balance adjustment is processed).
1448:
1449: hr_utility.set_location('pay_purge_pkg.pypurcif', 20);
1450:
1451: l := l_et_tab.first;
1452:
1453: while(l is not null) loop
1471: -- If we haven't found a type that has been created
1472: -- already, we create the element type, link and so on.
1473: if(not l_found) then
1474:
1475: hr_utility.set_location('pay_purge_pkg.pypurcif', 30);
1476:
1477: -- Record that another element type will be created.
1478: l_et_count := l_et_count + 1;
1479:
1491: l_et_tab(l_el_id).jur_lev := c1rec.jurisdiction_level;
1492:
1493: end if;
1494:
1495: hr_utility.set_location('pay_purge_pkg.pypurcif', 40);
1496:
1497: -- The display sequence is the same as the
1498: -- input value count.
1499: l_iv_count := l_et_tab(l_el_id).iv_count;
1520: end loop;
1521:
1522: end pypurcif;
1523:
1524: end pay_purge_pkg;