PACKAGE BODY: APPS.PER_NL_FORMULA_FUNCTIONS

Source

1 PACKAGE BODY per_nl_formula_functions AS
2 -- $Header: penlffnc.pkb 120.0.12000000.1 2007/01/22 00:24:36 appldev ship $
3 --
4 -- Calculates the Target Group
5 --
6 FUNCTION get_table_value(bus_group_id number,
7 			tab_name varchar2,
8 			col_name varchar2,
9 			row_value varchar2)
10 return varchar2
11 is
12  /* Modified the declaration to accomodate the value returned from
13  hruserdt.get_table_value function
14  l_ret varchar2(1); */
15  l_ret pay_user_column_instances_f.value%type;
16 Begin
17 	Begin
18 		l_ret:= hruserdt.get_table_value(bus_group_id,
19 						tab_name,
20 						col_name,
21 						row_value);
22 	Exception
23 		When NO_DATA_FOUND THEN
24 		l_ret:='0';
25 	End;
26 Return l_ret;
27 end get_table_value;
28 
29 
30 FUNCTION get_table_value(bus_group_id number,
31                          date_earned date,
32                          payroll_action_id number,
33 			tab_name varchar2,
34 			col_name varchar2,
35 			row_value varchar2)
36 return varchar2
37 is
38  /* Modified the declaration to accomodate the value returned from
39  hruserdt.get_table_value function
40  l_ret varchar2(1); */
41  l_ret pay_user_column_instances_f.value%type;
42  l_date date;
43  l_effective_date date;
44  l_date_earned date;
45  l_payroll_action_id number;
46 
47  cursor csr_get_ppa_date is
48  select effective_date,date_earned
49  from pay_payroll_actions ppa
50  where ppa.payroll_action_id = l_payroll_action_id ;
51 
52 Begin
53 	Begin
54                       l_payroll_action_id := payroll_action_id;
55 	        open  csr_get_ppa_date;
56 	        fetch csr_get_ppa_date into l_effective_date,l_date_earned;
57 	        close csr_get_ppa_date;
58 	        if date_earned = l_date_earned then
59 	           l_date := l_effective_date;
60 	        else
61 	           l_date := date_earned;
62 	        end if;
63 		l_ret:= hruserdt.get_table_value(bus_group_id,
64 						tab_name,
65 						col_name,
66 						row_value,
67 						l_date);
68 	Exception
69 		When NO_DATA_FOUND THEN
70 		l_ret:='0';
71 	End;
72 Return l_ret;
73 end get_table_value;
74 
75 end per_nl_formula_functions;