[Home] [Help]
PACKAGE BODY: APPS.PAY_TAXBAL_HARNESS
Source
1 PACKAGE BODY pay_taxbal_harness AS
2 /* $Header: pyvw941b.pkb 115.1 99/07/17 06:49:05 porting sh $ */
3 PROCEDURE get_tax_bals( p_tax_balance_category1 IN VARCHAR2,
4 p_tax_type1 IN VARCHAR2,
5 p_bal_result1 IN OUT NUMBER,
6 p_tax_balance_category2 IN VARCHAR2,
7 p_tax_type2 IN VARCHAR2,
8 p_bal_result2 IN OUT NUMBER,
9 p_tax_balance_category3 IN VARCHAR2,
10 p_tax_type3 IN VARCHAR2,
11 p_bal_result3 IN OUT NUMBER,
12 p_tax_balance_category4 IN VARCHAR2,
13 p_tax_type4 IN VARCHAR2,
14 p_bal_result4 IN OUT NUMBER,
15 p_tax_balance_category5 IN VARCHAR2,
16 p_tax_type5 IN VARCHAR2,
17 p_bal_result5 IN OUT NUMBER,
18 p_time_type IN VARCHAR2,
19 p_asg_type IN VARCHAR2,
20 p_gre_id_context IN NUMBER,
21 p_virtual_date IN DATE) IS
22
23 l_creator_id NUMBER;
24 l_gross_earnings_gre_qtd NUMBER;
25 l_def_comp_401k_gre_qtd NUMBER;
26 l_section_125_gre_qtd NUMBER;
27 l_dependent_care_gre_qtd NUMBER;
28
29 BEGIN
30
31 pay_balance_pkg.set_context('TAX_UNIT_ID', p_gre_id_context);
32 pay_balance_pkg.set_context('DATE_EARNED',
33 fnd_date.date_to_canonical(p_virtual_date));
34 /*this was changed for bug 407699*/
35 -- l_creator_id := get_defined_balance_id('REGULAR_EARNINGS_GRE_QTD');
36 l_creator_id := get_defined_balance_id('GROSS_EARNINGS_GRE_QTD');
37
38 l_gross_earnings_gre_qtd := pay_balance_pkg.get_value(
39 l_creator_id,
40 0,
41 TRUE);
42
43 l_creator_id := get_defined_balance_id('DEF_COMP_401K_GRE_QTD');
44 l_def_comp_401k_gre_qtd := pay_balance_pkg.get_value(
45 l_creator_id,
46 0,
47 TRUE);
48
49 l_creator_id := get_defined_balance_id('SECTION_125_GRE_QTD');
50 l_section_125_gre_qtd := pay_balance_pkg.get_value(
51 l_creator_id,
52 0,
53 TRUE);
54
55 l_creator_id := get_defined_balance_id('DEPENDENT_CARE_GRE_QTD');
56 l_dependent_care_gre_qtd := pay_balance_pkg.get_value(
57 l_creator_id,
58 0,
59 TRUE);
60
61 /*this balance was modified for 407699*/
62 p_bal_result1 := ( l_gross_earnings_gre_qtd)
63 -( l_def_comp_401k_gre_qtd
64 + l_section_125_gre_qtd
65 + l_dependent_care_gre_qtd );
66
67 l_creator_id := get_defined_balance_id('FIT_WITHHELD_GRE_QTD');
68 p_bal_result2 := pay_balance_pkg.get_value(
69 l_creator_id,
70 0,
71 TRUE);
72
73 l_creator_id := get_defined_balance_id('SS_EE_TAXABLE_GRE_QTD');
74 p_bal_result3 := pay_balance_pkg.get_value(
75 l_creator_id,
76 0,
77 TRUE);
78
79 l_creator_id := get_defined_balance_id('MEDICARE_EE_TAXABLE_GRE_QTD');
80 p_bal_result4 := pay_balance_pkg.get_value(
81 l_creator_id,
82 0,
83 TRUE);
84
85 l_creator_id := get_defined_balance_id('EIC_ADVANCE_GRE_QTD');
86 p_bal_result5 := pay_balance_pkg.get_value(
87 l_creator_id,
88 0,
89 TRUE);
90
91 END get_tax_bals;
92 --
93 FUNCTION get_defined_balance_id(p_user_entity_name IN VARCHAR2) RETURN
94 NUMBER IS
95
96 l_defined_balance_id NUMBER;
97
98 BEGIN
99
100 SELECT creator_id
101 INTO l_defined_balance_id
102 FROM ff_user_entities
103 WHERE user_entity_name LIKE p_user_entity_name;
104
105 RETURN l_defined_balance_id;
106
107 EXCEPTION WHEN NO_DATA_FOUND THEN
108 hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
109 hr_utility.set_message_token('FUNCTION',
110 'pay_taxbal_harness.'||'get_defined_balance_id');
111 hr_utility.raise_error;
112
113 END get_defined_balance_id;
114
115
116 END pay_taxbal_harness;