[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYGBRRS_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYGBRRS_XMLP_PKG AS
2 /* $Header: PAYGBRRSB.pls 120.1 2007/12/24 12:44:07 amakrish noship $ */
3
4 function Before_Report_Trigger return boolean is
5 begin
6 begin
7 /*srw.user_exit('FND SRWINIT');*/null;
8 select input_value_id into CP_NI_Input_Value_ID from
9 pay_element_types_x pet,
10 pay_input_values_x piv
11 where pet.system_element_name = 'NI'
12 and piv.system_name = 'Category'
13 and pet.element_type_id = piv.element_type_id
14 and pet.legislation_code = 'GB';
15 begin
16 select piv.input_value_id,piv2.input_value_id
17 into CP_Tax_Code_Input_Value_ID ,CP_Tax_Basis_Input_Value_ID from
18 pay_element_types_x pet,
19 pay_input_values_x piv,
20 pay_input_values_x piv2
21 where pet.system_element_name = 'PAYE'
22 and piv.system_name = 'Tax Code'
23 and piv2.system_name = 'Tax Basis'
24 and pet.element_type_id = piv.element_type_id
25 and pet.element_type_id = piv2.element_type_id
26 and pet.legislation_code = 'GB';
27 exception when no_data_found then
28 select piv.input_value_id,piv2.input_value_id
29 into CP_Tax_Code_Input_Value_ID ,CP_Tax_Basis_Input_Value_ID from
30 pay_element_types_x pet,
31 pay_input_values_x piv,
32 pay_input_values_x piv2
33 where pet.system_element_name = 'PAYE Details'
34 and piv.system_name = 'Tax Code'
35 and piv2.system_name = 'Tax Basis'
36 and pet.element_type_id = piv.element_type_id
37 and pet.element_type_id = piv2.element_type_id
38 and pet.legislation_code = 'GB';
39 end;
40 end;
41
42 begin
43 null; --Global_Variable.Initialise_Variables;
44 Initialise_Variables;
45 cp_business_group_name :=
46 hr_reports.get_business_group(p_business_group_id);
47 end;
48 begin
49 if P_CONSOLIDATION_SET_ID is null then
50 P_CONSOLIDATION_SET_LINE := ' ';
51 else
52 P_CONSOLIDATION_SET_LINE :=
53 'and ppa.consolidation_set_id ='||(P_CONSOLIDATION_SET_ID);
54 end if;
55 select LEGISLATION_CODE
56 into P_LEGISLATION_CODE
57 from per_business_groups
58 where BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID;
59 select distinct PAYROLL_NAME
60 into CP_PAYROLL_NAME
61 from PAY_PAYROLLS_F
62 where payroll_id = P_PAYROLL_ID;
63 select PERIOD_NAME
64 into CP_Time_Period_Time
65 from PER_TIME_PERIODS
66 where time_period_id = P_TIME_PERIOD_ID;
67 if P_CONSOLIDATION_SET_ID is not null then
68 select CONSOLIDATION_SET_NAME
69 into CP_CONSOLIDATION_SET_NAME
70 from PAY_CONSOLIDATION_SETS
71 where CONSOLIDATION_SET_ID = P_CONSOLIDATION_SET_ID;
72 else
73 CP_CONSOLIDATION_SET_NAME := null;
74 end if;
75 if P_Sort_Order = 'FULL_NAME' then
76 CP_Sort_Order := 'Full_Name';
77 elsif P_Sort_Order = 'ASSIGNMENT_NUMBER' then
78 CP_Sort_Order := 'Assignment_Number';
79 elsif P_Sort_Order = 'LAST_NAME' then
80 CP_Sort_Order := 'Last_Name';
81 end if;
82 if p_currency_code is null
83 then
84 CP_CURRENCY_TEXT := '';
85 else
86 CP_CURRENCY_TEXT := p_currency_code || ' Totals:';
87 end if;
88
89 end;
90 return (TRUE);
91 end;
92
93 function Before_Parameter_Form_Trigger return boolean is
94 begin
95
96 return (TRUE);
97 end;
98
99 function cf_total_paymentformula(Gross in number, Total_Deductions in number, Direct_Payments in number) return number is
100 begin
101 --Global_Variable.Total_Payment:= (Gross - Total_Deductions) + Direct_Payments;
102 Total_Payment:= (Gross - Total_Deductions) + Direct_Payments;
103 --Return(Global_Variable.Total_Payment);
104 Return(Total_Payment);
105 end;
106
107 function cf_other_deductionsformula(Total_Deductions in number, PAYE in number, NI_Employee in number) return number is
108 begin
109 --Global_Variable.Other_Deductions := Total_Deductions - (PAYE + NI_Employee);
110 Other_Deductions := Total_Deductions - (PAYE + NI_Employee);
111 --return(Global_Variable.Other_Deductions);
112 return(Other_Deductions);
113 end;
114
115 function cf_total_payments_currencyform(currency_code in varchar2, date_earned in date, net in number) return number is
116 begin
117
118 if p_currency_code is null
119 then
120 return(null);
121 else
122 begin
123
124 /*Global_Variable.Calc_Amount := hr_currency_pkg.convert_amount(
125 currency_code,
126 p_currency_code,
127 date_earned,
128 net,
129 'H');*/
130 Calc_Amount := hr_currency_pkg.convert_amount(
131 currency_code,
132 p_currency_code,
133 date_earned,
134 net,
135 'H');
136 exception
137 when others then
138 --Global_Variable.Calc_Amount := 0;
139 Calc_Amount := 0;
140 end;
141
142 --return(Global_Variable.Calc_Amount);
143 return(Calc_Amount);
144 end if;
145
146 RETURN NULL; end;
147
148 function cf_total_payments_currency(currency_code in varchar2, date_earned in date, Gross in number, Total_Deductions in number, Direct_Payments in number) return number is
149 begin
150
151 if p_currency_code is null
152 then
153 return(null);
154 else
155 begin
156
157 /*Global_Variable.Calc_Amount := hr_currency_pkg.convert_amount(
158 currency_code,
159 p_currency_code,
160 date_earned,
161 (Gross - Total_Deductions) + Direct_Payments,
162 'H');*/
163 Calc_Amount := hr_currency_pkg.convert_amount(
164 currency_code,
165 p_currency_code,
166 date_earned,
167 (Gross - Total_Deductions) + Direct_Payments,
168 'H');
169 exception
170 when others then
171 --Global_Variable.Calc_Amount := 0;
172 Calc_Amount := 0;
173 end;
174
175 --return(Global_Variable.Calc_Amount);
176 return(Calc_Amount);
177 end if;
178
179 RETURN NULL; end;
180
181 function CP_CURRENCY_TEXTFormula return VARCHAR2 is
182 begin
183
184 null;
185
186 RETURN NULL; end;
187
188 function AfterReport return boolean is
189 begin
190 /*srw.user_exit('FND SRWEXIT');*/null;
191 return (TRUE);
192 end;
193
194 --Functions to refer Oracle report placeholders--
195
196 Function CP_BUSINESS_GROUP_NAME_p return varchar2 is
197 Begin
198 return CP_BUSINESS_GROUP_NAME;
199 END;
200 Function CP_PAYROLL_NAME_p return varchar2 is
201 Begin
202 return CP_PAYROLL_NAME;
203 END;
204 Function CP_Time_Period_Time_p return varchar2 is
205 Begin
206 return CP_Time_Period_Time;
207 END;
208 Function CP_CONSOLIDATION_SET_NAME_p return varchar2 is
209 Begin
210 return CP_CONSOLIDATION_SET_NAME;
211 END;
212 Function CP_NI_input_Value_ID_p return number is
213 Begin
214 return CP_NI_input_Value_ID;
215 END;
216 Function CP_Tax_Code_Input_Value_ID_p return number is
217 Begin
218 return CP_Tax_Code_Input_Value_ID;
219 END;
220 Function CP_Tax_Basis_Input_Value_ID_p return number is
221 Begin
222 return CP_Tax_Basis_Input_Value_ID;
223 END;
224 Function CP_Sort_Order_p return varchar2 is
225 Begin
226 return CP_Sort_Order;
227 END;
228 Function CP_CURRENCY_TEXT_p return varchar2 is
229 Begin
230 return CP_CURRENCY_TEXT;
231 END;
232
233 ----------------------
234 --Additional package--
235 ----------------------
236 Procedure Initialise_Variables IS
237 BEGIN
238 Gross_Payment:=0;
239 Net_Payment:=0;
240 Total_Payment:=0;
241 Total_Cost:=0;
242 Other_Deductions:=0;
243 end;
244 ----------------------
245 END PAY_PAYGBRRS_XMLP_PKG ;