[Home] [Help]
PACKAGE BODY: APPS.ZX_C_JX_EXTRACT
Source
1 PACKAGE BODY ZX_C_JX_EXTRACT AS
2 /*$Header: zxrxcjxextpb.pls 120.2 2005/07/08 02:30:59 apai noship $*/
3
4 --Parameter for holding conc request ID
5 p_request_id NUMBER ;
6
7 /* +=======================================================+
8 | START of RXi Procedures |
9 |=======================================================|
10 | |
11 | Each procedure will have a heading file which lists |
12 | all the parameters passed to that report detaling |
13 | what the paramters correspond to |
14 +=======================================================+ */
15
16 /* +=======================================================+
17 | Czech Export Tax Report (ZXRXCZEX) |
18 |=======================================================|
19 | |
20 | reporting level = '1000' (SOB) |
21 | reporting context = argument1 |
22 | register type = 'TAX' |
23 | tax class = 'O' -- Output/AR |
24 | summary level = 'TRANSACTION' |
25 | posting status = 'POSTED' |
26 | p_matrix_report = 'Y' |
27 | product = 'AR' |
28 | tax code category = 'JE.CZ.ARXSUVAT.TAX_ORIGIN' |
29 | tax code att1 = 'E' |
30 | tax code type low = argument2 |
31 | tax code type high = argument2 |
32 | argument1 = Set of Books ID |
33 | argument2 = Tax Code Type |
34 | argument3 = GL Date From |
35 | argument4 = GL Date To |
36 | argument5 = Tax Date From |
37 | argument6 = Tax Date To |
38 | |
39 | Notes : This is a normal select RXi report |
40 | |
41 | History: 10-AUG-99 mbickley, Created |
42 | |
43 +=======================================================+ */
44
45 PROCEDURE POPULATE_CZ_TAX(
46 errbuf OUT NOCOPY VARCHAR2,
47 retcode OUT NOCOPY VARCHAR2,
48 argument1 IN VARCHAR2,
49 argument2 IN VARCHAR2,
50 argument3 IN VARCHAR2,
51 argument4 IN VARCHAR2,
52 argument5 IN VARCHAR2,
53 argument6 IN VARCHAR2,
54 argument7 IN VARCHAR2,
55 argument8 IN VARCHAR2,
56 argument9 IN VARCHAR2,
57 argument10 IN VARCHAR2,
58 argument11 IN VARCHAR2,
59 argument12 IN VARCHAR2,
60 argument13 IN VARCHAR2,
61 argument14 IN VARCHAR2,
62 argument15 IN VARCHAR2,
63 argument16 IN VARCHAR2,
64 argument17 IN VARCHAR2,
65 argument18 IN VARCHAR2,
66 argument19 IN VARCHAR2,
67 argument20 IN VARCHAR2,
68 argument21 IN VARCHAR2,
69 argument22 IN VARCHAR2,
70 argument23 IN VARCHAR2,
71 argument24 IN VARCHAR2,
72 argument25 IN VARCHAR2,
73 argument26 IN VARCHAR2,
74 argument27 IN VARCHAR2,
75 argument28 IN VARCHAR2,
76 argument29 IN VARCHAR2,
77 argument30 IN VARCHAR2,
78 argument31 IN VARCHAR2,
79 argument32 IN VARCHAR2,
80 argument33 IN VARCHAR2,
81 argument34 IN VARCHAR2,
82 argument35 IN VARCHAR2,
83 argument36 IN VARCHAR2,
84 argument37 IN VARCHAR2,
85 argument38 IN VARCHAR2,
86 argument39 IN VARCHAR2,
87 argument40 IN VARCHAR2,
88 argument41 IN VARCHAR2,
89 argument42 IN VARCHAR2,
90 argument43 IN VARCHAR2,
91 argument44 IN VARCHAR2,
92 argument45 IN VARCHAR2,
93 argument46 IN VARCHAR2,
94 argument47 IN VARCHAR2,
95 argument48 IN VARCHAR2,
96 argument49 IN VARCHAR2,
97 argument50 IN VARCHAR2,
98 argument51 IN VARCHAR2,
99 argument52 IN VARCHAR2,
100 argument53 IN VARCHAR2,
101 argument54 IN VARCHAR2,
102 argument55 IN VARCHAR2,
103 argument56 IN VARCHAR2,
104 argument57 IN VARCHAR2,
105 argument58 IN VARCHAR2,
106 argument59 IN VARCHAR2,
107 argument60 IN VARCHAR2,
108 argument61 IN VARCHAR2,
109 argument62 IN VARCHAR2,
110 argument63 IN VARCHAR2,
111 argument64 IN VARCHAR2,
112 argument65 IN VARCHAR2,
113 argument66 IN VARCHAR2,
114 argument67 IN VARCHAR2,
115 argument68 IN VARCHAR2,
116 argument69 IN VARCHAR2,
117 argument70 IN VARCHAR2,
118 argument71 IN VARCHAR2,
119 argument72 IN VARCHAR2,
120 argument73 IN VARCHAR2,
121 argument74 IN VARCHAR2,
122 argument75 IN VARCHAR2,
123 argument76 IN VARCHAR2,
124 argument77 IN VARCHAR2,
125 argument78 IN VARCHAR2,
126 argument79 IN VARCHAR2,
127 argument80 IN VARCHAR2,
128 argument81 IN VARCHAR2,
129 argument82 IN VARCHAR2,
130 argument83 IN VARCHAR2,
131 argument84 IN VARCHAR2,
132 argument85 IN VARCHAR2,
133 argument86 IN VARCHAR2,
134 argument87 IN VARCHAR2,
135 argument88 IN VARCHAR2,
136 argument89 IN VARCHAR2,
137 argument90 IN VARCHAR2,
138 argument91 IN VARCHAR2,
139 argument92 IN VARCHAR2,
140 argument93 IN VARCHAR2,
141 argument94 IN VARCHAR2,
142 argument95 IN VARCHAR2,
143 argument96 IN VARCHAR2,
144 argument97 IN VARCHAR2,
145 argument98 IN VARCHAR2,
146 argument99 IN VARCHAR2,
147 argument100 IN VARCHAR2)
148 IS
149
150 trl_exception EXCEPTION;
151
152 BEGIN
153
154 --Get request ID
155 p_request_id := fnd_global.conc_request_id;
156
157 --Call the Tax Extract procedure mapping parameters
158 zx_extract_pkg.populate_tax_data (
159 p_request_id => p_request_id
160 ,p_retcode => retcode
161 ,p_errbuf => errbuf
162 ,p_reporting_level => 1000
163 ,p_reporting_context => to_number(argument1)
164 ,p_register_type => 'TAX'
165 --apai ** ,p_tax_class => 'O'
166 ,p_summary_level => 'TRANSACTION'
167 ,p_posting_status => 'POSTED'
168 ,p_gl_date_low => to_date(argument3, 'YYYY/MM/DD HH24:MI:SS')
169 ,p_gl_date_high => to_date(argument4, 'YYYY/MM/DD HH24:MI:SS')
170 --apai ** check with Kripa ,p_gbl_tax_date_low => to_date(argument5, 'YYYY/MM/DD HH24:MI:SS')
171 --apai ** check with Kripa ,p_gbl_tax_date_high => to_date(argument6, 'YYYY/MM/DD HH24:MI:SS')
172 --apai ** check with Kripa ,p_gdf_ar_tax_codes_category => 'JE.CZ.ARXSUVAT.TAX_ORIGIN'
173 --apai ** check with Kripa ,p_gdf_ar_tax_codes_att1 => 'E'
174 --apai ** check with Kripa ,p_tax_code_type_low => argument2
175 --apai ** check with Kripa ,p_tax_code_type_high => argument2
176 ,p_product => 'AR'
177 );
178
179
180 IF retcode = 2 THEN
181 raise trl_exception;
182 END IF;
183
184 EXCEPTION
185 WHEN trl_exception THEN
186 RAISE_APPLICATION_ERROR (-20010, 'Tax Extract call has failed');
187 RAISE;
188
189 WHEN others THEN
190 RAISE;
191
192 END POPULATE_CZ_TAX;
193
194
195 /* +==========================================================================+
196 | Thai Output Tax Summary Report (RXZXPTOT) |
197 |==========================================================================|
198 | |
199 | register_type = 'TAX' |
200 | tax_class = 'O' |
201 | summary_level = 'TRANSACTION' |
202 | posting_status = 'POSTED' |
203 | matrix_report = 'N' |
204 | argument1 = product |
205 | argument2 = reporting_level |
206 | argument3 = reporting_context |
207 | argument4 = gl_period_name_low |
208 | argument5 = gl_period_name_high |
209 | argument6 = tax_code_type |
210 | argument7 = tax_code |
211 | argument8 = debug_flag |
212 | argument9 = sql_trace |
213 | |
214 | History |
215 | 10/14/1999 S. Okuda Created. |
216 | |
217 +=======================================================================+ */
218 PROCEDURE POPULATE_TH_TAX(
219 errbuf OUT NOCOPY VARCHAR2,
220 retcode OUT NOCOPY VARCHAR2,
221 argument1 IN VARCHAR2,
222 argument2 IN VARCHAR2,
223 argument3 IN VARCHAR2,
224 argument4 IN VARCHAR2,
225 argument5 IN VARCHAR2,
226 argument6 IN VARCHAR2,
227 argument7 IN VARCHAR2,
228 argument8 IN VARCHAR2,
229 argument9 IN VARCHAR2,
230 argument10 IN VARCHAR2,
231 argument11 IN VARCHAR2,
232 argument12 IN VARCHAR2,
233 argument13 IN VARCHAR2,
234 argument14 IN VARCHAR2,
235 argument15 IN VARCHAR2,
236 argument16 IN VARCHAR2,
237 argument17 IN VARCHAR2,
238 argument18 IN VARCHAR2,
239 argument19 IN VARCHAR2,
240 argument20 IN VARCHAR2,
241 argument21 IN VARCHAR2,
242 argument22 IN VARCHAR2,
243 argument23 IN VARCHAR2,
244 argument24 IN VARCHAR2,
245 argument25 IN VARCHAR2,
246 argument26 IN VARCHAR2,
247 argument27 IN VARCHAR2,
248 argument28 IN VARCHAR2,
249 argument29 IN VARCHAR2,
250 argument30 IN VARCHAR2,
251 argument31 IN VARCHAR2,
252 argument32 IN VARCHAR2,
253 argument33 IN VARCHAR2,
254 argument34 IN VARCHAR2,
255 argument35 IN VARCHAR2,
256 argument36 IN VARCHAR2,
257 argument37 IN VARCHAR2,
258 argument38 IN VARCHAR2,
259 argument39 IN VARCHAR2,
260 argument40 IN VARCHAR2,
261 argument41 IN VARCHAR2,
262 argument42 IN VARCHAR2,
263 argument43 IN VARCHAR2,
264 argument44 IN VARCHAR2,
265 argument45 IN VARCHAR2,
266 argument46 IN VARCHAR2,
267 argument47 IN VARCHAR2,
268 argument48 IN VARCHAR2,
269 argument49 IN VARCHAR2,
270 argument50 IN VARCHAR2,
271 argument51 IN VARCHAR2,
272 argument52 IN VARCHAR2,
273 argument53 IN VARCHAR2,
274 argument54 IN VARCHAR2,
275 argument55 IN VARCHAR2,
276 argument56 IN VARCHAR2,
277 argument57 IN VARCHAR2,
278 argument58 IN VARCHAR2,
279 argument59 IN VARCHAR2,
280 argument60 IN VARCHAR2,
281 argument61 IN VARCHAR2,
282 argument62 IN VARCHAR2,
283 argument63 IN VARCHAR2,
284 argument64 IN VARCHAR2,
285 argument65 IN VARCHAR2,
286 argument66 IN VARCHAR2,
287 argument67 IN VARCHAR2,
288 argument68 IN VARCHAR2,
289 argument69 IN VARCHAR2,
290 argument70 IN VARCHAR2,
291 argument71 IN VARCHAR2,
292 argument72 IN VARCHAR2,
293 argument73 IN VARCHAR2,
294 argument74 IN VARCHAR2,
295 argument75 IN VARCHAR2,
296 argument76 IN VARCHAR2,
297 argument77 IN VARCHAR2,
298 argument78 IN VARCHAR2,
299 argument79 IN VARCHAR2,
300 argument80 IN VARCHAR2,
301 argument81 IN VARCHAR2,
302 argument82 IN VARCHAR2,
303 argument83 IN VARCHAR2,
304 argument84 IN VARCHAR2,
305 argument85 IN VARCHAR2,
306 argument86 IN VARCHAR2,
307 argument87 IN VARCHAR2,
308 argument88 IN VARCHAR2,
312 argument92 IN VARCHAR2,
309 argument89 IN VARCHAR2,
310 argument90 IN VARCHAR2,
311 argument91 IN VARCHAR2,
313 argument93 IN VARCHAR2,
314 argument94 IN VARCHAR2,
315 argument95 IN VARCHAR2,
316 argument96 IN VARCHAR2,
317 argument97 IN VARCHAR2,
318 argument98 IN VARCHAR2,
319 argument99 IN VARCHAR2,
320 argument100 IN VARCHAR2)
321 IS
322 v_product VARCHAR2(50);
323 v_reporting_level VARCHAR2(50);
324 v_reporting_context NUMBER;
325 v_gl_period_name_low VARCHAR2(50);
326 v_gl_period_name_high VARCHAR2(50);
327 v_tax_code_type VARCHAR2(50);
328 v_tax_code VARCHAR2(50);
329 debug_flag VARCHAR2(1);
330 sql_trace VARCHAR2(1);
331 v_request_id NUMBER;
332 v_tax_regime_code VARCHAR2(30);
333 v_tax VARCHAR2(30);
334 v_tax_jurisdiction VARCHAR2(30);
335 v_tax_status_code VARCHAR2(30);
336
337
338 BEGIN
339 v_product := argument1;
340 v_reporting_level := argument2;
341 v_reporting_context := to_number(argument3);
342 v_gl_period_name_low := argument4;
343 v_gl_period_name_high := argument5;
344 v_tax_code_type := argument6;
345 /* apai */
346 v_tax_regime_code := argument7;
347 v_tax := argument8;
348 v_tax_jurisdiction := argument9;
349 v_tax_status_code := argument10;
350 /* ** */
351 v_tax_code := argument11;
352 debug_flag := upper(substrb(argument12,1,1));
353 sql_trace := upper(substrb(argument13,1,1));
354 v_request_id := fnd_global.conc_request_id;
355
356 --
357 -- SQL Trace and Debug Flags are optional.
358 --
359
360 -- SQL trace calls commented as ATG mandate
361 -- IF sql_trace = 'Y' THEN
362 -- fa_rx_util_pkg.enable_trace;
363 -- END IF;
364
365 IF debug_flag = 'Y' THEN
366 fa_rx_util_pkg.enable_debug;
367 END IF;
368
369 --
370 -- Run the Tax Extract
371 --
372 zx_extract_pkg.populate_tax_data(
373 p_register_type => 'TAX',
374 p_reporting_level => v_reporting_level,
375 p_reporting_context => v_reporting_context,
376 p_gl_period_name_low => v_gl_period_name_low,
377 p_gl_period_name_high => v_gl_period_name_high,
378 p_tax_type_code_low => v_tax_code_type,
379 p_tax_type_code_high => v_tax_code_type,
380 /* apai */
381 p_tax_regime_code => v_tax_regime_code,
382 p_tax => v_tax,
383 p_tax_jurisdiction_code => v_tax_jurisdiction,
384 p_tax_status_code => v_tax_status_code,
385 /* ** */
386 p_tax_rate_code_low => v_tax_code,
387 p_tax_rate_code_high => v_tax_code,
388 --apai ** p_tax_class => 'O',
389 p_summary_level => 'TRANSACTION',
390 p_product => v_product,
391 p_posting_status => 'POSTED',
392 p_matrix_report => 'N',
393 p_retcode => retcode,
394 p_errbuf => errbuf,
395 p_request_id => v_request_id
396 );
397
398 --
399 -- Now Disable the SQL Trace and Debug Flags if enabled.
400 --
401
402 -- SQL trace calls commented as ATG mandate
403 -- IF sql_trace = 'Y' THEN
404 -- fa_rx_util_pkg.disable_trace;
405 -- END IF;
406
407 IF debug_flag = 'Y' THEN
408 fa_rx_util_pkg.disable_debug;
409 END IF;
410
411
412 END POPULATE_TH_TAX;
413
414 END ZX_C_JX_EXTRACT;