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;