[Home] [Help]
PACKAGE BODY: APPS.PAY_DK_TAX_CARD_REQUEST_PKG
Source
1 PACKAGE BODY PAY_DK_TAX_CARD_REQUEST_PKG as
2 /* $Header: pydktcrq.pkb 120.0 2005/05/29 04:21:26 appldev noship $ */
3
4 --Global parameters
5 g_package CONSTANT varchar2(33) := 'PAY_DK_TAX_CARD_REQUEST_PKG.';
6
7 -----------------------------------------------------------------------------
8 --RANGE CODE
9 -----------------------------------------------------------------------------
10
11 PROCEDURE range_cursor(p_payroll_action_id IN NUMBER,
12 p_sqlstr OUT NOCOPY VARCHAR2)
13 IS
14 BEGIN
15
16 p_sqlstr := 'SELECT 1 FROM dual WHERE to_char(:payroll_action_id) = dummy';
17
18 END range_cursor;
19
20 -----------------------------------------------------------------------------
21 --ASSIGNMENT ACTION CODE
22 -----------------------------------------------------------------------------
23
24 PROCEDURE assignment_action_code(
25 pactid IN NUMBER,
26 stperson IN NUMBER,
27 endperson IN NUMBER,
28 chunk IN NUMBER)
29 IS
30 BEGIN
31 null;
32
33 END assignment_action_code;
34
35
36 -----------------------------------------------------------------------------
37 -- GET_PARAMETER used in SQL to decode legislative parameters
38 -----------------------------------------------------------------------------
39 FUNCTION get_parameter(
40 p_parameter_string IN VARCHAR2
41 ,p_token IN VARCHAR2
42 ,p_segment_number IN NUMBER DEFAULT NULL ) RETURN VARCHAR2
43 IS
44 l_parameter pay_payroll_actions.legislative_parameters%TYPE:=NULL;
45 l_start_pos NUMBER;
46 l_delimiter varchar2(1);
47 l_proc VARCHAR2(60);
48 BEGIN
49 l_delimiter :=' ';
50 l_proc := g_package||' get parameter ';
51
52 l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
53 IF l_start_pos = 0 THEN
54 l_delimiter := '|';
55 l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
56 end if;
57 IF l_start_pos <> 0 THEN
58 l_start_pos := l_start_pos + length(p_token||'=');
59 l_parameter := substr(p_parameter_string,
60 l_start_pos,
61 instr(p_parameter_string||' ',
62 ',',l_start_pos)
63 - l_start_pos);
64 IF p_segment_number IS NOT NULL THEN
65 l_parameter := ':'||l_parameter||':';
66 l_parameter := substr(l_parameter,
67 instr(l_parameter,':',1,p_segment_number)+1,
68 instr(l_parameter,':',1,p_segment_number+1) -1
69 - instr(l_parameter,':',1,p_segment_number));
70 END IF;
71 END IF;
72 RETURN l_parameter;
73 END get_parameter;
74
75 END PAY_DK_TAX_CARD_REQUEST_PKG;