PACKAGE BODY: APPS.PAY_IE_PAYSLIP

Source

1 PACKAGE BODY pay_ie_payslip AS
2 /* $Header: pyiepsar.pkb 115.2 2002/03/11 06:28:35 pkm ship        $ */
3 
4 g_package                CONSTANT VARCHAR2(30) := 'Pay_ie_P30lock';
5 
6 
7 FUNCTION get_payroll_parameter (p_parameter_string in varchar2
8                                ,p_token 	   in varchar2)
9 RETURN varchar2 IS
10   l_parameter  pay_payroll_actions.legislative_parameters%TYPE:=NULL;
11   l_start_pos  NUMBER;
12   l_delimiter  varchar2(1):=' ';
13   l_proc VARCHAR2(160):= g_package||'.get payroll parameter ';
14 BEGIN
15   hr_utility.set_location('Entering ' || l_proc, 10);
16   l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
17   IF l_start_pos = 0 THEN
18     l_delimiter := '|';
19     l_start_pos := instr(' '||p_parameter_string,l_delimiter||p_token||'=');
20   end if;
21   IF l_start_pos <> 0 THEN
22     l_start_pos := l_start_pos + length(p_token||'=');
23     l_parameter := substr(p_parameter_string,
24                           l_start_pos,
25                           instr(p_parameter_string||' ',
26                           l_delimiter,l_start_pos)
27                           - l_start_pos);
28   END IF;
29   hr_utility.set_location('Leaving ' || l_proc, 100);
30   RETURN (l_parameter);
31 
32 END get_payroll_parameter;
33 
34 END pay_ie_payslip;