PACKAGE BODY: APPS.PER_US_EXTRA_REHIRE_RULES

Source

1 PACKAGE BODY per_us_extra_rehire_rules AS
2 /* $Header: peexehcc.pkb 115.3 2002/03/15 07:20:50 pkm ship    $ */
3 PROCEDURE delete_tax_record
4   (p_final_process_date    in date
5   ,p_period_of_service_id  in number) IS
6 --
7   CURSOR csr_get_address_id (p_pds_id NUMBER) IS
8     SELECT adr.address_id
9     FROM   per_addresses          adr,
10            per_periods_of_service pds
11     WHERE  pds.period_of_service_id = p_pds_id
12     AND    adr.primary_flag         = 'Y'
13     AND    adr.person_id            = pds.person_id;
14 
15   l_address_id NUMBER;
16 
17   BEGIN
18 
19     OPEN csr_get_address_id(p_period_of_service_id);
20     FETCH csr_get_address_id INTO l_address_id;
21 
22     IF csr_get_address_id%FOUND THEN
23       pay_us_tax_internal.maintain_us_employee_taxes
24         (p_effective_date => p_final_process_date
25         ,p_datetrack_mode => 'DELETE'
26         ,p_address_id     => l_address_id
27         ,p_delete_routine => 'ASSIGNMENT'
28         );
29     END IF;
30 
31     CLOSE csr_get_address_id;
32 
33   END;
34 END per_us_extra_rehire_rules;