PACKAGE BODY: APPS.PAY_SE_TAX_CARD_REQ_PKG

Source

1 PACKAGE BODY PAY_SE_TAX_CARD_REQ_PKG as
2  /* $Header: pysetaxr.pkb 120.0 2005/05/29 08:38:37 appldev noship $ */
3  g_package                  varchar2(33) := 'PAY_SE_TAX_CARD_REQ_PKG.';
4   -- Global Variables
5  -----------------------------------------------------------------------------
6  -- GET_PARAMETER  used in SQL to decode legislative parameters
7  -----------------------------------------------------------------------------
8  FUNCTION get_parameter(
9                  p_parameter_string  IN VARCHAR2
10                 ,p_token             IN VARCHAR2
11                 ,p_segment_number    IN NUMBER DEFAULT NULL ) RETURN VARCHAR2
12  IS
13    l_parameter  pay_payroll_actions.legislative_parameters%TYPE:=NULL;
14    l_start_pos  NUMBER;
15    l_delimiter  varchar2(1):=' ';
16    l_proc VARCHAR2(60):= g_package||'get_parameter ';
17  BEGIN
18    l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
19    IF l_start_pos = 0 THEN
20      l_delimiter := '|';
21      l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
22    end if;
23    IF l_start_pos <> 0 THEN
24      l_start_pos := l_start_pos + length(p_token||'=');
25      l_parameter := substr(p_parameter_string,
26                            l_start_pos,
27                            instr(p_parameter_string||' ',
28                            ',',l_start_pos)
29                            - l_start_pos);
30      IF p_segment_number IS NOT NULL THEN
31        l_parameter := ':'||l_parameter||':';
32        l_parameter := substr(l_parameter,
33                              instr(l_parameter,':',1,p_segment_number)+1,
34                              instr(l_parameter,':',1,p_segment_number+1) -1
35                              - instr(l_parameter,':',1,p_segment_number));
36      END IF;
37    END IF;
38    RETURN l_parameter;
39  END get_parameter;
40  --
41 PROCEDURE range_code(p_payroll_action_id     IN  NUMBER,
42                      p_sqlstr OUT NOCOPY VARCHAR2)
43 IS
44 BEGIN
45 p_sqlstr := 'SELECT DISTINCT person_id
46       FROM  per_people_f ppf
47            ,pay_payroll_actions ppa
48       WHERE ppa.payroll_action_id = :payroll_action_id
49       AND   ppa.business_group_id = ppf.business_group_id
50       ORDER BY ppf.person_id';
51 END range_code;
52 PROCEDURE assignment_action_code(
53                           pactid    IN NUMBER,
54                           stperson  IN NUMBER,
55                           endperson IN NUMBER,
56                           chunk     IN NUMBER)
57 IS
58 BEGIN
59 null;
60 END assignment_action_code;
61 --
62 END PAY_SE_TAX_CARD_REQ_PKG;