PACKAGE BODY: APPS.PAY_NO_TC_REQ

Source

1 Package Body  PAY_NO_TC_REQ as
2 /* $Header: pynotcrq.pkb 120.0 2005/05/29 07:02:21 appldev noship $ */
3 --
4 -- Globals
5 l_package    CONSTANT VARCHAR2(20):= 'PAY_NO_TC_REQ.';
6 --
7 
8 FUNCTION get_parameter(p_payroll_action_id   NUMBER,
9                        p_token_name          VARCHAR2) RETURN VARCHAR2 AS
10 
11 CURSOR csr_parameter_info(p_pact_id IN NUMBER) IS
12 SELECT legislative_parameters
13 FROM   pay_payroll_actions
14 WHERE  payroll_action_id = p_pact_id;
15 
16 l_token_value                     VARCHAR2(50);
17 l_parameter  pay_payroll_actions.legislative_parameters%TYPE := NULL;
18 l_delimiter  varchar2(1);
19 l_start_pos  NUMBER;
20 --
21 
22 BEGIN
23 
24 l_delimiter := ' ';
25 --
26 
27   hr_utility.set_location('p_token_name = ' || p_token_name,20);
28   OPEN csr_parameter_info(p_payroll_action_id);
29   FETCH csr_parameter_info INTO l_parameter;
30   CLOSE csr_parameter_info;
31   l_start_pos := instr(' '||l_parameter,l_delimiter||p_token_name||'=');
32  IF l_start_pos = 0 THEN
33     l_delimiter := '|';
34     l_start_pos := instr(' '||l_parameter,l_delimiter||p_token_name||'=');
35   end if;
36   IF l_start_pos <> 0 THEN
37    l_start_pos := l_start_pos + length(p_token_name||'=');
38     l_token_value := substr(l_parameter,
39                           l_start_pos,
40                           instr(l_parameter||' ',
41                           l_delimiter,l_start_pos)
42                           - l_start_pos);
43                           end if;
44 
45 --
46      l_token_value := trim(l_token_value);
47 --
48   hr_utility.set_location('l_token_value = ' || l_token_value,20);
49   hr_utility.set_location('Leaving         ' || 'get_parameters',30);
50 
51   RETURN l_token_value;
52 
53 END get_parameter;
54 
55 
56   --------------------------------------------------------------------------------+
57   -- Range cursor returns the ids of the assignments to be archived
58   --------------------------------------------------------------------------------+
59   PROCEDURE range_cursor(
60                        p_payroll_action_id IN  NUMBER,
61                        p_sqlstr            OUT NOCOPY VARCHAR2)
62   IS
63     l_proc_name VARCHAR2(100);
64 
65   BEGIN
66 
67     l_proc_name := l_package || 'range_code';
68 
69 
70     hr_utility.set_location(l_proc_name, 10);
71     p_sqlstr := 'SELECT DISTINCT person_id
72                 FROM   per_all_people_f    ppf,
73                        pay_payroll_actions ppa
74                 WHERE  ppa.payroll_action_id = :payroll_action_id
75                   AND  ppa.business_group_id = ppf.business_group_id
76              ORDER BY  ppf.person_id';
77     hr_utility.set_location(l_proc_name, 20);
78   END range_cursor;
79 --
80  --------------------------------------------------------------------------------+
81   -- Creates assignment action id for all the valid person id's in
82   -- the range selected by the Range code.
83   --------------------------------------------------------------------------------+
84   PROCEDURE assignment_action_code(
85                                    p_payroll_action_id  IN NUMBER,
86                                    p_start_person_id    IN NUMBER,
87                                    p_end_person_id      IN NUMBER,
88                                    p_chunk_number       IN NUMBER)
89   IS
90     l_proc_name                VARCHAR2(100);
91 
92   BEGIN
93 
94   l_proc_name   := l_package || 'assignment_action_code';
95 
96     hr_utility.set_location(l_proc_name, 10);
97 
98    END assignment_action_code;
99 
100 
101 end  PAY_NO_TC_REQ;