[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYSG21A_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYSG21A_XMLP_PKG AS
2 /* $Header: PAYSG21AB.pls 120.1 2007/12/19 16:18:57 amakrish noship $ */
3
4 function BeforeReport return boolean is
5 begin
6
7
8 /*srw.user_exit('FND SRWINIT');*/null;
9
10
11 return (TRUE);
12 end;
13
14 --function afterreport(CS_1 in number, CS_2 in number) return boolean is
15 function afterreport(CS_1 in number, CS_2 in number,CS_3 in number) return boolean is
16
17 l number;
18 xml_layout boolean;
19
20 Begin
21
22 If P_RUN is NULL then
23 P_CR_YEAR_AMOUNT := CS_1 + CS_2 + CS_3;
24 -- commented by raj l:=SUBMIT_REQUEST(P_BUSINESS_GROUP_ID,P_PERSON_ID,P_BASIS_YEAR-1,P_IR21_MODE,P_CR_YEAR_AMOUNT,0,1,'PAY_PAYSG21A_XMLP_PKG');
25 xml_layout := FND_REQUEST.ADD_LAYOUT('PAY','PAYSG21A_XML','en','US','PDF');
26 l:=SUBMIT_REQUEST(P_BUSINESS_GROUP_ID,P_PERSON_ID,P_BASIS_YEAR-1,P_IR21_MODE,P_CR_YEAR_AMOUNT,0,1,'PAYSG21A_XML');
27 P_RUN :=1;
28 Else
29 P_PR_YEAR_AMOUNT := CS_1 + CS_2 + CS_3;
30 if P_PR_YEAR_AMOUNT = 0 then
31 P_PR_YEAR_AMOUNT := null;
32 end if;
33 xml_layout := FND_REQUEST.ADD_LAYOUT('PAY','PAYSG21B_XML','en','US','PDF');
34 l:= SUBMIT_REQUEST(P_BUSINESS_GROUP_ID,P_PERSON_ID,P_BASIS_YEAR+1,P_IR21_MODE,P_CR_YEAR_AMOUNT,P_PR_YEAR_AMOUNT,null,'PAYSG21B_XML');
35 P_RUN :=NULL; End if;
36 /*srw.user_exit('FND SRWEXIT');*/null;
37
38 return (TRUE);
39
40 End;
41
42 function CF_business_groupFormula return VARCHAR2 is
43 v_business_group hr_all_organization_units.name%type;
44
45 begin
46 v_business_group := hr_reports.get_business_group(p_business_group_id);
47 return v_business_group;
48 end;
49
50 function CF_legislation_codeFormula return VARCHAR2 is
51
52 v_legislation_code hr_organization_information.org_information9%type := null;
53
54 cursor legislation_code
55 (c_business_group_id hr_organization_information.organization_id%type) is
56
57 select org_information9
58 from hr_organization_information
59 where organization_id = c_business_group_id
60 and org_information9 is not null
61 and org_information_context = 'Business Group Information';
62 begin
63 open legislation_code (p_business_group_id);
64 fetch legislation_code into v_legislation_code;
65 close legislation_code;
66
67 return v_legislation_code;
68 end;
69
70 function cf_currency_format_maskformula(cf_legislation_code in varchar2) return varchar2 is
71
72 v_currency_code fnd_currencies.currency_code%type;
73 v_format_mask varchar2(100) := null;
74 v_field_length number(3) := 14;
75
76 cursor currency_format_mask
77 (c_territory_code in fnd_currencies.issuing_territory_code%type) is
78 select currency_code
79 from fnd_currencies
80 where issuing_territory_code = c_territory_code;
81
82 begin
83 open currency_format_mask (cf_legislation_code);
84 fetch currency_format_mask into v_currency_code;
85 close currency_format_mask;
86
87 v_format_mask := fnd_currency.get_format_mask(v_currency_code, v_field_length);
88
89 return v_format_mask;
90 end;
91
92 PROCEDURE set_currency_format_mask IS
93 BEGIN
94
95 /*SRW.SET_FORMAT_MASK(CF_currency_format_mask);*/null;
96
97
98 END;
99
100 function P_BUSINESS_GROUP_IDValidTrigge return boolean is
101 begin
102 return (TRUE);
103 end;
104
105 function cf_gross_amt_not_tax_exemptfor(stock_option in number, market_value_exercise in varchar2, exercise_price in varchar2, no_of_shares_acq in varchar2, market_value_grant in varchar2) return number is
106 begin
107 if (stock_option = 1) then
108 CP_1 := ((market_value_exercise - exercise_price) * no_of_shares_acq);
109 else
110 CP_1 := 0;
111 end if;
112 if (stock_option = 2) then
113 CP_2 := ((market_value_exercise - market_value_grant) * no_of_shares_acq);
114 CP_3 := ((market_value_grant - exercise_price) * no_of_shares_acq);
115 CP_4 := CP_2 + CP_3;
116 else
117 CP_4 := 0;
118 CP_2 := 0;
119 CP_3 := 0;
120 end if;
121
122 if (stock_option = 3) then
123 CP_5 := ((market_value_exercise - market_value_grant) * no_of_shares_acq);
124 CP_6 := ((market_value_grant - exercise_price) * no_of_shares_acq);
125 CP_7 := CP_5 + CP_6;
126 else
127 CP_7 := 0;
128 CP_5 := 0;
129 CP_6 := 0;
130 end if;
131
132 return 1;
133 end;
134
135 function cf_2formula(CS_1 in number, CS_2 in number, CS_3 in number) return number is
136 begin
137
138 return(CS_1 + CS_2 + CS_3);
139 end;
140
141 function submit_request(t_business_group_id in number,t_person_id in number,t_basis_year in number,
142 t_ir21_mode in varchar2,t_cu_amt in number,t_pr_amt in number,t_run in number,
143 t_report_short_name in varchar2) return number is
144
145
146 l_request_id NUMBER := 0;
147 e_submit_error exception ;
148 xml_layout boolean;
149
150 BEGIN
151 hr_utility.set_location('Submit report called',1);
152 hr_utility.set_location('fnd_request.set_print_options',1);
153
154
155
156 hr_utility.set_location('fnd_request.submit_request',1);
157
158 if t_report_short_name = 'PAYSG21B_XML' then
159
160 xml_layout := FND_REQUEST.ADD_LAYOUT('PAY',t_report_short_name,'en','US','PDF');
161 l_request_id := FND_REQUEST.SUBMIT_REQUEST (
162 APPLICATION => 'PAY',
163 PROGRAM => t_report_short_name,
164 DESCRIPTION => null,
165 START_TIME => null,
166 SUB_REQUEST => null,
167 ARGUMENT1 => 'P_BUSINESS_GROUP_ID=' || t_business_group_id,
168 ARGUMENT2 => 'P_BASIS_YEAR=' || t_basis_year,
169 ARGUMENT3 => 'P_PERSON_ID=' || t_person_id,
170 ARGUMENT4 => 'P_IR21_MODE=' || t_ir21_mode,
171 ARGUMENT5 => 'P_CR_YEAR_AMOUNT=' || t_cu_amt,
172 ARGUMENT6 => 'P_PR_YEAR_AMOUNT=' || t_pr_amt,
173 ARGUMENT7 => t_run,
174 ARGUMENT8 => 'Y', ARGUMENT9 => null, ARGUMENT10 => null, ARGUMENT11 => null,
175 ARGUMENT12 => null, ARGUMENT13 => null, ARGUMENT14 => null, ARGUMENT15 => null,
176 ARGUMENT16 => null, ARGUMENT17 => null, ARGUMENT18 => null, ARGUMENT19 => null,
177 ARGUMENT20 => null, ARGUMENT21 => null, ARGUMENT22 => null, ARGUMENT23 => null,
178 ARGUMENT24 => null, ARGUMENT25 => null, ARGUMENT26 => null, ARGUMENT27 => null,
179 ARGUMENT28 => null, ARGUMENT29 => null, ARGUMENT30 => null, ARGUMENT31 => null,
180 ARGUMENT32 => null, ARGUMENT33 => null, ARGUMENT34 => null, ARGUMENT35 => null,
181 ARGUMENT36 => null, ARGUMENT37 => null, ARGUMENT38 => null, ARGUMENT39 => null,
182 ARGUMENT40 => null, ARGUMENT41 => null, ARGUMENT42 => null, ARGUMENT43 => null,
183 ARGUMENT44 => null, ARGUMENT45 => null, ARGUMENT46 => null, ARGUMENT47 => null,
184 ARGUMENT48 => null, ARGUMENT49 => null, ARGUMENT50 => null, ARGUMENT51 => null,
185 ARGUMENT52 => null, ARGUMENT53 => null, ARGUMENT54 => null, ARGUMENT55 => null,
186 ARGUMENT56 => null, ARGUMENT57 => null, ARGUMENT58 => null, ARGUMENT59 => null,
187 ARGUMENT60 => null, ARGUMENT61 => null, ARGUMENT62 => null, ARGUMENT63 => null,
188 ARGUMENT64 => null, ARGUMENT65 => null, ARGUMENT66 => null, ARGUMENT67 => null,
189 ARGUMENT68 => null, ARGUMENT69 => null, ARGUMENT70 => null, ARGUMENT71 => null,
190 ARGUMENT72 => null, ARGUMENT73 => null, ARGUMENT74 => null, ARGUMENT75 => null,
191 ARGUMENT76 => null, ARGUMENT77 => null, ARGUMENT78 => null, ARGUMENT79 => null,
192 ARGUMENT80 => null, ARGUMENT81 => null, ARGUMENT82 => null, ARGUMENT83 => null,
193 ARGUMENT84 => null, ARGUMENT85 => null, ARGUMENT86 => null, ARGUMENT87 => null,
194 ARGUMENT88 => null, ARGUMENT89 => null, ARGUMENT90 => null, ARGUMENT91 => null,
195 ARGUMENT92 => null, ARGUMENT93 => null, ARGUMENT94 => null, ARGUMENT95 => null,
196 ARGUMENT96 => null, ARGUMENT97 => null, ARGUMENT98 => null, ARGUMENT99 => null,
197 ARGUMENT100 => null);
198 hr_utility.set_location('l_request_id : '||l_request_id,1);
199 else
200 xml_layout := FND_REQUEST.ADD_LAYOUT('PAY',t_report_short_name,'en','US','PDF');
201 l_request_id := FND_REQUEST.SUBMIT_REQUEST (
202 APPLICATION => 'PAY',
203 PROGRAM => t_report_short_name,
204 DESCRIPTION => null,
205 START_TIME => null,
206 SUB_REQUEST => null,
207 ARGUMENT1 => t_business_group_id,
208 ARGUMENT2 => t_basis_year,
209 ARGUMENT3 => t_person_id,
210 ARGUMENT4 => t_ir21_mode,
211 ARGUMENT5 => t_cu_amt,
212 ARGUMENT6 => t_pr_amt,
213 ARGUMENT7 => t_run,
214 ARGUMENT8 => 'Y', ARGUMENT9 => null, ARGUMENT10 => null, ARGUMENT11 => null,
215 ARGUMENT12 => null, ARGUMENT13 => null, ARGUMENT14 => null, ARGUMENT15 => null,
216 ARGUMENT16 => null, ARGUMENT17 => null, ARGUMENT18 => null, ARGUMENT19 => null,
217 ARGUMENT20 => null, ARGUMENT21 => null, ARGUMENT22 => null, ARGUMENT23 => null,
218 ARGUMENT24 => null, ARGUMENT25 => null, ARGUMENT26 => null, ARGUMENT27 => null,
219 ARGUMENT28 => null, ARGUMENT29 => null, ARGUMENT30 => null, ARGUMENT31 => null,
220 ARGUMENT32 => null, ARGUMENT33 => null, ARGUMENT34 => null, ARGUMENT35 => null,
221 ARGUMENT36 => null, ARGUMENT37 => null, ARGUMENT38 => null, ARGUMENT39 => null,
222 ARGUMENT40 => null, ARGUMENT41 => null, ARGUMENT42 => null, ARGUMENT43 => null,
223 ARGUMENT44 => null, ARGUMENT45 => null, ARGUMENT46 => null, ARGUMENT47 => null,
224 ARGUMENT48 => null, ARGUMENT49 => null, ARGUMENT50 => null, ARGUMENT51 => null,
225 ARGUMENT52 => null, ARGUMENT53 => null, ARGUMENT54 => null, ARGUMENT55 => null,
226 ARGUMENT56 => null, ARGUMENT57 => null, ARGUMENT58 => null, ARGUMENT59 => null,
227 ARGUMENT60 => null, ARGUMENT61 => null, ARGUMENT62 => null, ARGUMENT63 => null,
231 ARGUMENT76 => null, ARGUMENT77 => null, ARGUMENT78 => null, ARGUMENT79 => null,
228 ARGUMENT64 => null, ARGUMENT65 => null, ARGUMENT66 => null, ARGUMENT67 => null,
229 ARGUMENT68 => null, ARGUMENT69 => null, ARGUMENT70 => null, ARGUMENT71 => null,
230 ARGUMENT72 => null, ARGUMENT73 => null, ARGUMENT74 => null, ARGUMENT75 => null,
232 ARGUMENT80 => null, ARGUMENT81 => null, ARGUMENT82 => null, ARGUMENT83 => null,
233 ARGUMENT84 => null, ARGUMENT85 => null, ARGUMENT86 => null, ARGUMENT87 => null,
234 ARGUMENT88 => null, ARGUMENT89 => null, ARGUMENT90 => null, ARGUMENT91 => null,
235 ARGUMENT92 => null, ARGUMENT93 => null, ARGUMENT94 => null, ARGUMENT95 => null,
236 ARGUMENT96 => null, ARGUMENT97 => null, ARGUMENT98 => null, ARGUMENT99 => null,
237 ARGUMENT100 => null);
238
239 hr_utility.set_location('l_request_id : '||l_request_id,1);
240 end if;
241
242 If l_request_id = 0 Then
243 RAISE e_submit_error;
244 End If;
245
246 RETURN l_request_id;
247
248 EXCEPTION
249 WHEN e_submit_error then
250 /*srw.message('Error in submit request',1);*/null;
251
252 END;
253
254 --Functions to refer Oracle report placeholders--
255
256 Function CP_1_p return number is
257 Begin
258 return CP_1;
259 END;
260 Function CP_2_p return number is
261 Begin
262 return CP_2;
263 END;
264 Function CP_3_p return number is
265 Begin
266 return CP_3;
267 END;
268 Function CP_4_p return number is
269 Begin
270 return CP_4;
271 END;
272 Function CP_5_p return number is
273 Begin
274 return CP_5;
275 END;
276 Function CP_6_p return number is
277 Begin
278 return CP_6;
279 END;
280 Function CP_7_p return number is
281 Begin
282 return CP_7;
283 END;
284 END PAY_PAYSG21A_XMLP_PKG ;