[Home] [Help]
PACKAGE BODY: APPS.ZX_C_TAX_EXTRACT
Source
1 PACKAGE BODY ZX_C_TAX_EXTRACT as
2 /* $Header: zxrxcalextpb.pls 120.5.12010000.2 2008/12/03 18:38:34 bibeura ship $ */
3
4 --5336803
5 g_current_runtime_level NUMBER ;
6 g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7 g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9 g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10
11 PROCEDURE POPULATE_TAX(
12 errbuf out NOCOPY varchar2,
13 retcode out NOCOPY varchar2,
14 argument1 in varchar2, -- p_reporting_level
15 argument2 in varchar2, -- p_reporting_context
16 argument3 in varchar2, -- p_company_name
17 argument4 in varchar2, -- p_sob_currency_code bug#3453804
18 argument5 in varchar2, -- p_register_type
19 -- apai ** argument5 in varchar2, -- p_tax_class
20 argument6 in varchar2, -- p_summary_level
21 argument7 in varchar2, -- p_product
22 argument8 in varchar2, -- p_gl_date_low
23 argument9 in varchar2 default null, -- p_gl_date_high
24 argument10 in varchar2 default null, -- p_trx_date_low
25 argument11 in varchar2 default null, -- p_trx_date_high
26 argument12 in varchar2 default null, -- p_tax_code_vat_trx_type
27 argument13 in varchar2 default null, -- p_tax_code_type_low
28 argument14 in varchar2 default null, -- p_tax_code_type_high
29 argument15 in varchar2 default null, -- p_tax_regime_code
30 argument16 in varchar2 default null, -- p_tax
31 argument17 in varchar2 default null, -- p_tax_jurisdiction
32 argument18 in varchar2 default null, -- p_tax_status_code
33 argument19 in varchar2 default null, -- p_tax_code_low
34 argument20 in varchar2 default null, -- p_tax_code_high
35 argument21 in varchar2 default null, -- p_currency_code_low
36 argument22 in varchar2 default null, -- p_currency_code_high
37 argument23 in varchar2 default null, -- p_posting_status
38 argument24 in varchar2 default null, -- p_ar_exemption_status
39 argument25 in varchar2 default null, -- p_trx_number
40 argument26 in varchar2 default null, -- P_INCLUDE_AP_STD_TRX_CLASS
41 argument27 in varchar2 default null, -- P_INCLUDE_AP_DM_TRX_CLASS
42 argument28 in varchar2 default null, -- P_INCLUDE_AP_CM_TRX_CLASS
43 argument29 in varchar2 default null, -- P_INCLUDE_AP_PREP_TRX_CLASS
44 argument30 in varchar2 default null, -- P_INCLUDE_AP_MIX_TRX_CLASS
45 argument31 in varchar2 default null, -- P_INCLUDE_AP_EXP_TRX_CLASS
46 argument32 in varchar2 default null, -- P_INCLUDE_AR_INV_TRX_CLASS
47 argument33 in varchar2 default null, -- P_INCLUDE_AR_APPL_TRX_CLASS
48 argument34 in varchar2 default null, -- P_INCLUDE_AR_ADJ_TRX_CLASS
49 argument35 in varchar2 default null, -- P_INCLUDE_AR_MISC_TRX_CLASS
50 argument36 in varchar2 default null, -- P_INCLUDE_AR_BR_TRX_CLASS
51 argument37 in varchar2 default null, -- debug flag
52 argument38 in varchar2 default null, -- SQL trace flag
53 argument39 in varchar2 default null, -- p_matrix_report
54 argument40 in varchar2 default null, -- p_include_accounting_segments
55 argument41 in varchar2 default null, -- p_include_discount
56 argument42 in varchar2 default null, -- p_report_name
57 argument43 in varchar2 default null, -- p_accounting_status
58 argument44 in varchar2 default null,
59 argument45 in varchar2 default null,
60 argument46 in varchar2 default null,
61 argument47 in varchar2 default null,
62 argument48 in varchar2 default null,
63 argument49 in varchar2 default null,
64 argument50 in varchar2 default null,
65 argument51 in varchar2 default null,
66 argument52 in varchar2 default null,
67 argument53 in varchar2 default null,
68 argument54 in varchar2 default null,
69 argument55 in varchar2 default null,
70 argument56 in varchar2 default null,
71 argument57 in varchar2 default null,
72 argument58 in varchar2 default null,
73 argument59 in varchar2 default null,
74 argument60 in varchar2 default null,
75 argument61 in varchar2 default null,
76 argument62 in varchar2 default null,
77 argument63 in varchar2 default null,
78 argument64 in varchar2 default null,
79 argument65 in varchar2 default null,
80 argument66 in varchar2 default null,
81 argument67 in varchar2 default null,
82 argument68 in varchar2 default null,
83 argument69 in varchar2 default null,
84 argument70 in varchar2 default null,
85 argument71 in varchar2 default null,
86 argument72 in varchar2 default null,
87 argument73 in varchar2 default null,
88 argument74 in varchar2 default null,
89 argument75 in varchar2 default null,
90 argument76 in varchar2 default null,
91 argument77 in varchar2 default null,
92 argument78 in varchar2 default null,
93 argument79 in varchar2 default null,
94 argument80 in varchar2 default null,
95 argument81 in varchar2 default null,
96 argument82 in varchar2 default null,
97 argument83 in varchar2 default null,
98 argument84 in varchar2 default null,
99 argument85 in varchar2 default null,
100 argument86 in varchar2 default null,
101 argument87 in varchar2 default null,
102 argument88 in varchar2 default null,
103 argument89 in varchar2 default null,
104 argument90 in varchar2 default null,
105 argument91 in varchar2 default null,
106 argument92 in varchar2 default null,
107 argument93 in varchar2 default null,
108 argument94 in varchar2 default null,
109 argument95 in varchar2 default null,
110 argument96 in varchar2 default null,
111 argument97 in varchar2 default null,
112 argument98 in varchar2 default null,
113 argument99 in varchar2 default null,
114 argument100 in varchar2 default null)
115 is
116 -- apai ** v_third_party_level varchar2(80);
117 v_request_id number;
118 v_matrix_report varchar2(10);
119 v_reporting_level varchar2(50);
120 v_reporting_context number;
121 v_company_name number; -- Used to get the Legal Entity Id for Reporting Level = 'Ledger'
122 v_register_type varchar2(80);
123 --apai ** v_tax_class varchar2(20);
124 v_summary_level varchar2(50);
125 v_product varchar2(30);
126 v_gl_date_low date;
127 v_gl_date_high date;
128 v_trx_date_low date;
129 v_trx_date_high date;
130 v_tax_code_low varchar2(50);
131 v_tax_code_high varchar2(50);
132 v_currency_code_low varchar2(15);
133 v_currency_code_high varchar2(15);
134 v_posting_status varchar2(30);
135 /* apai */
136 v_tax_regime_code varchar2(30);
137 v_tax varchar2(30);
138 v_tax_jurisdiction varchar2(30);
139 v_tax_status_code varchar2(30);
140 /* ** */
141 v_ar_exemption_status varchar2(30);
142 v_trx_number varchar2(50);
143 -- apai ** v_trx_class varchar2(50);
144 V_INCLUDE_AP_STD_TRX_CLASS varchar2(1);
145 V_INCLUDE_AP_DM_TRX_CLASS varchar2(1);
146 V_INCLUDE_AP_CM_TRX_CLASS varchar2(1);
147 V_INCLUDE_AP_PREP_TRX_CLASS varchar2(1);
148 V_INCLUDE_AP_MIX_TRX_CLASS varchar2(1);
149 V_INCLUDE_AP_EXP_TRX_CLASS varchar2(1);
150 V_INCLUDE_AR_INV_TRX_CLASS varchar2(1);
151 V_INCLUDE_AR_APPL_TRX_CLASS varchar2(1);
152 V_INCLUDE_AR_ADJ_TRX_CLASS varchar2(1);
153 V_INCLUDE_AR_MISC_TRX_CLASS varchar2(1);
154 V_INCLUDE_AR_BR_TRX_CLASS varchar2(1);
155 v_tax_code_vat_trx_type varchar2(30);
156 v_tax_code_type_low varchar2(50);
157 v_tax_code_type_high varchar2(50);
158 debug_flag varchar2(1);
159 sql_trace varchar2(1);
160 v_include_Accounting_segments varchar2(3);
161 v_include_discounts varchar2(3);
162 v_report_name varchar2(8);
163 v_accounting_status varchar2(30);
164 v_ca_set_of_books_id number; --bug#3453804
165 begin
166 --
167 -- Assign parameters doing any necessary mappings
168 -- e.g. date/number conversion
169
170 g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
171 IF (g_level_procedure >= g_current_runtime_level ) THEN
172 FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax.BEGIN',
173 'ZX_C_TAX_EXTRACT:populate_tax(+)');
174 FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax',
175 'argument2 --> '||argument2);
176 FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax',
177 'argument3 --> '||argument3);
178 FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax',
179 'argument4 --> '||argument4);
180 END IF;
181
182 v_request_id := fnd_global.conc_request_id;
183 v_reporting_level := argument1;
184 v_reporting_context := to_number(argument2); -- 5336803
185 v_company_name := to_number(argument3); -- 5336803
186 v_ca_set_of_books_id := to_number(argument4); --bug#3453804 /5336803
187 v_register_type := argument5;
188 -- apai ** v_tax_class := argument5;
189 v_summary_level := argument6;
190 v_product := argument7;
191 v_gl_date_low := fnd_date.canonical_to_date(argument8);
192 v_gl_date_high := fnd_date.canonical_to_date(argument9);
193 v_trx_date_low := fnd_date.canonical_to_date(argument10);
194 v_trx_date_high := fnd_date.canonical_to_date(argument11);
195 v_tax_code_vat_trx_type := argument12;
196 v_tax_code_type_low := argument13;
197 v_tax_code_type_high := argument14;
198 /* apai */
199 v_tax_regime_code := argument15;
200 v_tax := argument16;
201 v_tax_jurisdiction := argument17;
202 v_tax_status_code := argument18;
203 /* ** */
204 v_tax_code_low := argument19;
205 v_tax_code_high := argument20;
206 v_currency_code_low := argument21;
207 v_currency_code_high := argument22;
208 v_posting_status := argument23;
209 v_ar_exemption_status := argument24;
210 v_trx_number := argument25;
211 V_INCLUDE_AP_STD_TRX_CLASS := argument26;
212 V_INCLUDE_AP_DM_TRX_CLASS := argument27;
213 V_INCLUDE_AP_CM_TRX_CLASS := argument28;
214 V_INCLUDE_AP_PREP_TRX_CLASS := argument29;
215 V_INCLUDE_AP_MIX_TRX_CLASS := argument30;
216 V_INCLUDE_AP_EXP_TRX_CLASS := argument31;
217 V_INCLUDE_AR_INV_TRX_CLASS := argument32;
218 V_INCLUDE_AR_APPL_TRX_CLASS := argument33;
219 V_INCLUDE_AR_ADJ_TRX_CLASS := argument34;
220 V_INCLUDE_AR_MISC_TRX_CLASS := argument35;
221 V_INCLUDE_AR_BR_TRX_CLASS := argument36;
222 debug_flag := upper(substrb(argument37,1,1));
223 sql_trace := upper(substrb(argument38,1,1));
224 v_matrix_report := argument39;
225 -- apai ** v_third_party_level := argument27;
226 v_include_accounting_Segments := argument40;
227 v_include_discounts := argument41; --apai
228 v_report_name := argument42; --apai
229 v_accounting_status := argument43;
230
231 -- bug 3334864 for Family Pack F: comment out the trace call
232 --
233 -- SQL Trace switches and debug flags are optional
234 -- but highly recommended.
235
236 -- if sql_trace = 'Y' then
237 -- fa_rx_util_pkg.enable_trace;
238 -- end if;
239 if debug_flag = 'Y' then
240 fa_rx_util_pkg.enable_debug;
241 end if;
242
243
244
245 -- g_current_runtime_level := 1;
246 -- g_level_procedure := 2;
247
248 -- Run the Tax Extract
249
250 IF (g_level_statement >= g_current_runtime_level ) THEN
251 FND_LOG.STRING(g_level_statement, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax',
252 'Before Call to ZX_EXTRACT_PKG.POPULATE_TAX_DATA ');
253 END IF;
254
255 ZX_EXTRACT_PKG.POPULATE_TAX_DATA
256 ( p_matrix_report => v_matrix_report,
257 p_reporting_level => v_reporting_level,
258 p_reporting_context => v_reporting_context,
259 p_legal_entity_id => v_company_name,
260 p_ledger_id => v_ca_set_of_books_id, --bug#3453804
261 p_register_type => v_register_type,
262 --apai ** p_tax_class => v_tax_class,
263 p_summary_level => v_summary_level,
264 p_product => v_product,
265 p_gl_date_low => v_gl_date_low,
266 p_gl_date_high => v_gl_date_high,
267 p_trx_date_low => v_trx_date_low,
268 p_trx_date_high => v_trx_date_high,
269 p_vat_transaction_type_code => v_tax_code_vat_trx_type,
270 p_tax_type_code_low => v_tax_code_type_low,
271 p_tax_type_code_high => v_tax_code_type_high,
272 /* apai */
273 p_tax_regime_code => v_tax_regime_code,
274 p_tax => v_tax,
278 p_tax_rate_code_low => v_tax_code_low,
275 p_tax_jurisdiction_code => v_tax_jurisdiction,
276 p_tax_status_code => v_tax_status_code,
277 /* ** */
279 p_tax_rate_code_high => v_tax_code_high,
280 p_currency_code_low => v_currency_code_low,
281 p_currency_code_high => v_currency_code_high,
282 p_posting_status => v_posting_status,
283 p_ar_exemption_status => v_ar_exemption_status,
284 --apai ** p_trx_number => v_trx_number,
285 /* apai */
286 p_trx_number_low => v_trx_number,
287 p_trx_number_high => v_trx_number,
288 /* ** */
289 --apai ** p_trx_class => v_trx_class,
290 /* apai */
291 P_INCLUDE_AP_STD_TRX_CLASS => V_INCLUDE_AP_STD_TRX_CLASS,
292 P_INCLUDE_AP_DM_TRX_CLASS => V_INCLUDE_AP_DM_TRX_CLASS,
293 P_INCLUDE_AP_CM_TRX_CLASS => V_INCLUDE_AP_CM_TRX_CLASS,
294 P_INCLUDE_AP_PREP_TRX_CLASS => V_INCLUDE_AP_PREP_TRX_CLASS,
295 P_INCLUDE_AP_MIX_TRX_CLASS => V_INCLUDE_AP_MIX_TRX_CLASS,
296 P_INCLUDE_AP_EXP_TRX_CLASS => V_INCLUDE_AP_EXP_TRX_CLASS,
297 P_INCLUDE_AR_INV_TRX_CLASS => V_INCLUDE_AR_INV_TRX_CLASS,
298 P_INCLUDE_AR_APPL_TRX_CLASS => V_INCLUDE_AR_APPL_TRX_CLASS,
299 P_INCLUDE_AR_ADJ_TRX_CLASS => V_INCLUDE_AR_ADJ_TRX_CLASS,
300 P_INCLUDE_AR_MISC_TRX_CLASS => V_INCLUDE_AR_MISC_TRX_CLASS,
301 P_INCLUDE_AR_BR_TRX_CLASS => V_INCLUDE_AR_BR_TRX_CLASS,
302 /* ** */
303 p_request_id => v_request_id,
304 --apai ** p_third_party_reporting_level => v_third_party_level,
305 p_include_accounting_segments => v_include_accounting_segments,
306 p_include_discounts => v_include_discounts,
307 p_report_name => v_report_name,
308 p_accounting_status => v_accounting_status,
309 p_retcode => retcode,
310 p_errbuf => errbuf);
311
312 -- bug 3334864 for Family Pack F: comment out the trace call
313 --
314 --
315 -- Now Disable the SQL Trace and Debug Flag if enabled
316 --
317 -- if sql_trace = 'Y' then
318 -- fa_rx_util_pkg.disable_trace;
319 -- end if;
320 if debug_flag = 'Y' then
321 fa_rx_util_pkg.disable_debug;
322 end if;
323
324 IF (g_level_procedure >= g_current_runtime_level ) THEN
325 FND_LOG.STRING(g_level_procedure, 'ZX.TRL.ZX_C_TAX_EXTRACT.populate_tax.BEGIN',
326 'ZX_C_TAX_EXTRACT:populate_tax(-)');
327 END IF;
328
329 END POPULATE_TAX;
330
331 end ZX_C_TAX_EXTRACT;