DBA Data[Home] [Help]

PACKAGE BODY: APPS.PAY_ZA_RULES

Source


1 package body pay_za_rules as
2 /* $Header: pyzarule.pkb 120.0 2006/04/12 01:02:41 kapalani noship $ */
3 
4   procedure get_source_text_context
5     (p_asg_act_id number
6     ,p_ee_id number
7     ,p_source_text in out nocopy varchar2)
8   is
9     l_TaxDirNo         varchar2(60);
10   begin
11     hr_utility.set_location('PAY_ZA_RULES.get_source_text_context',1);
12     begin
13 
14       select SCREEN_ENTRY_VALUE
15       into   l_TaxDirNo
16       from   pay_assignment_actions aa,
17              pay_payroll_actions pa,
18              pay_element_entries_f ee,
19              pay_element_entry_values_f eev,
20              pay_input_values_f iv,
21              pay_element_types_f et,
22              pay_element_links_f el
23       where  aa.assignment_action_id = p_asg_act_id
24       and    pa.payroll_action_id    = aa.payroll_action_id
25       and    aa.assignment_id        = ee.assignment_id
26       and    iv.input_value_id       = eev.input_value_id
27       and    el.element_link_id      = ee.element_link_id
28       and    ee.element_entry_id     = eev.element_entry_id
29       and    ee.element_entry_id     = p_ee_id
30 --      and    et.element_name         = 'ZA_Tax_On_Lump_Sums'
31       and    iv.name                 = 'Tax Directive Number'
32       and    el.element_type_id     = et.element_type_id
33       and    pa.date_earned between
34              et.effective_start_date and et.effective_end_date
35       and    pa.date_earned between
36              iv.effective_start_date and iv.effective_end_date
37       and    pa.date_earned between
38              el.effective_start_date and el.effective_end_date
39       and    pa.date_earned between
40              ee.effective_start_date and ee.effective_end_date
41       and    pa.date_earned between
42              eev.effective_start_date and eev.effective_end_date;
43     exception
44       when others then
45         l_TaxDirNo := null;
46     end;
47     p_source_text := l_TaxDirNo;
48     hr_utility.set_location('pay_za_RULES.get_source_text_context='||
49                                p_source_text,2);
50 
51   end get_source_text_context;
52 
53 
54   procedure get_source_number_context
55     (p_asg_act_id number
56     ,p_ee_id number
57     ,p_source_number in out nocopy varchar2)
58   is
59     l_ClearNo     varchar2(60);
60   begin
61     begin
62       select SCREEN_ENTRY_VALUE
63       into   l_ClearNo
64       from   pay_assignment_actions aa,
65              pay_payroll_actions pa,
66              pay_element_entries_f ee,
67              pay_element_entry_values_f eev,
68              pay_input_values_f iv,
69              pay_element_types_f et,
70              pay_element_links_f el
71       where  aa.assignment_action_id = p_asg_act_id
72       and    pa.payroll_action_id    = aa.payroll_action_id
73       and    aa.assignment_id        = ee.assignment_id
74       and    iv.input_value_id       = eev.input_value_id
75       and    el.element_link_id      = ee.element_link_id
76       and    ee.element_entry_id     = eev.element_entry_id
77       and    ee.element_entry_id     = p_ee_id
78       and    iv.name                 = 'Clearance Number'
79       and    el.element_type_id      = et.element_type_id
80       and    pa.date_earned between
81              et.effective_start_date and et.effective_end_date
82       and    pa.date_earned between
83              iv.effective_start_date and iv.effective_end_date
84       and    pa.date_earned between
85              el.effective_start_date and el.effective_end_date
86       and    pa.date_earned between
87              ee.effective_start_date and ee.effective_end_date
88       and    pa.date_earned between
89              eev.effective_start_date and eev.effective_end_date;
90 
91       p_source_number := l_ClearNo;
92 
93     exception
94       when others then
95         p_source_number := null;
96     end;
97     hr_utility.set_location('Leaving get_source_number_context.',10);
98 
99   end get_source_number_context;
100 end pay_za_rules;