[Home] [Help]
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;