PACKAGE BODY: APPS.PAY_FI_EFT

Source

1 package body PAY_FI_EFT as
2  /* $Header: pyfieftp.pkb 120.0 2005/05/29 04:52:26 appldev noship $ */
3  g_package                  varchar2(33) := 'PAY_FI_PAYFILE.';
4 
5   -- Global Variables
6  -----------------------------------------------------------------------------
7  -- GET_PARAMETER  used in SQL to decode legislative parameters
8  -----------------------------------------------------------------------------
9  FUNCTION get_parameter(
10                  p_parameter_string  IN VARCHAR2
11                 ,p_token             IN VARCHAR2
12                 ,p_segment_number    IN NUMBER DEFAULT NULL ) RETURN VARCHAR2
13  IS
14    l_parameter  pay_payroll_actions.legislative_parameters%TYPE:=NULL;
15    l_start_pos  NUMBER;
16    l_delimiter  varchar2(1):=' ';
17    l_proc VARCHAR2(60):= g_package||' get parameter ';
18  BEGIN
19    l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
20    IF l_start_pos = 0 THEN
21      l_delimiter := '|';
22      l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
23    end if;
24    IF l_start_pos <> 0 THEN
25      l_start_pos := l_start_pos + length(p_token||'=');
26      l_parameter := substr(p_parameter_string,
27                            l_start_pos,
28                            instr(p_parameter_string||' ',
29                            ',',l_start_pos)
30                            - l_start_pos);
31      IF p_segment_number IS NOT NULL THEN
32        l_parameter := ':'||l_parameter||':';
33        l_parameter := substr(l_parameter,
34                              instr(l_parameter,':',1,p_segment_number)+1,
35                              instr(l_parameter,':',1,p_segment_number+1) -1
36                              - instr(l_parameter,':',1,p_segment_number));
37      END IF;
38    END IF;
39    RETURN l_parameter;
40  END get_parameter;
41  --
42  END PAY_FI_EFT;