[Home] [Help]
PACKAGE BODY: APPS.ARP_TAX_VIEW_VERTEX
Source
1 package body arp_tax_view_vertex as
2 /* $Header: zxtxvwvb.pls 120.10 2008/07/25 21:56:03 ssanka ship $ */
3
4 USE_SHIP_TO_GEO CONSTANT VARCHAR2(10) := 'XXXXXXXXX';
5 USE_SHIP_TO_INOUT CONSTANT VARCHAR2(10) := 'X';
6
7 G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8 g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
9 g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10 g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11 g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_error_buffer VARCHAR2(100);
13
14
15
16 /*===========================================================================+
17 | FUNCTION |
18 | product_code |
19 | |
20 | DESCRIPTION |
21 | Returns the product_code |
22 | Returns segment1 from MTL_SYSTEM_ITEMS. |
23 | Users may have a different segment for the product code. |
24 | |
25 | SCOPE - PUBLIC |
26 | |
27 | MODIFICATION HISTORY |
28 | 09-DEC-97 Kenichi Mizuta Created |
29 | 16-AUG-99 Manoj Gudivaka 11i OE/OM changes:replaced fnd_profile |
30 | with oe_profile |
31 | |
32 +===========================================================================*/
33
34 function PRODUCT_CODE(
35 p_view_name IN VARCHAR2,
36 p_header_id IN Number,
37 p_line_id IN Number,
38 p_item_id IN NUMBER,
39 p_memo_line_id IN NUMBER)
40 RETURN VARCHAR2 IS
41 BEGIN
42 IF (g_level_procedure >= g_current_runtime_level ) THEN
43 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.PRODUCT_CODE',
44 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.PRODUCT_CODE(+)');
45 END IF;
46
47 RETURN NULL;
48
49 IF (g_level_procedure >= g_current_runtime_level ) THEN
50 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.PRODUCT_CODE',
51 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.PRODUCT_CODE(-)');
52 END IF;
53
54 END PRODUCT_CODE;
55
56 /*===========================================================================+
57 | FUNCTION |
58 | vendor_control_exemptions |
59 | |
60 | DESCRIPTION |
61 | NOT USED BY VERTEX |
62 | |
63 | SCOPE - PUBLIC |
64 | |
65 | MODIFICATION HISTORY |
66 | 09-DEC-97 Kenichi Mizuta Created |
67 | |
68 +===========================================================================*/
69
70 function VENDOR_CONTROL_EXEMPTIONS (
71 p_view_name IN VARCHAR2,
72 p_header_id IN Number,
73 p_line_id IN Number,
74 p_trx_type_id IN Number)
75 return VARCHAR2 is
76 begin
77 IF (g_level_procedure >= g_current_runtime_level ) THEN
78 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.VENDOR_CONTROL_EXEMPTIONS',
79 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.VENDOR_CONTROL_EXEMPTIONS(+)');
80 END IF;
81 IF (g_level_statement >= g_current_runtime_level ) THEN
82 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.VENDOR_CONTROL_EXEMPTIONS',
83 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
84 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.VENDOR_CONTROL_EXEMPTIONS',
85 'p_trx_type_id = '||to_char(p_trx_type_id));
86 END IF;
87 return null;
88 exception
89 when others then
90 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
91 IF (g_level_unexpected >= g_current_runtime_level ) THEN
92 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.VENDOR_CONTROL_EXEMPTIONS EXCEPTION ERROR:',
93 g_error_buffer);
94 END IF;
95 end vendor_control_exemptions;
96
97
98 /*===========================================================================+
99 | FUNCTION |
100 | company_code |
101 | |
102 | DESCRIPTION |
103 | Returns the company_code. |
104 | Constant value of '01'. |
105 | |
106 | SCOPE - PUBLIC |
107 | |
108 | MODIFICATION HISTORY |
109 | 09-DEC-97 Kenichi Mizuta Created |
110 | |
111 +===========================================================================*/
112
113 function COMPANY_CODE(
114 p_view_name IN VARCHAR2,
115 p_header_id IN Number,
116 p_line_id IN Number)
117 return VARCHAR2 is
118 begin
119 IF (g_level_procedure >= g_current_runtime_level ) THEN
120 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.COMPANY_CODE',
121 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.COMPANY_CODE(+)');
122 END IF;
123 IF (g_level_statement >= g_current_runtime_level ) THEN
124 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.COMPANY_CODE',
125 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
126 END IF;
127 return NULL;
128 exception
129 when others then
130 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
131 IF (g_level_unexpected >= g_current_runtime_level ) THEN
132 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.COMPANY_CODE EXCEPTION ERROR:',
133 g_error_buffer);
134 END IF;
135 end company_code;
136
137 /*===========================================================================+
138 | FUNCTION |
139 | division_code |
140 | |
141 | DESCRIPTION |
142 | Returns the division_code |
143 | Constant value of '01'. |
144 | |
145 | SCOPE - PUBLIC |
146 | |
147 | MODIFICATION HISTORY |
148 | 09-DEC-97 Kenichi Mizuta Created |
149 | |
150 +===========================================================================*/
151
152 function DIVISION_CODE(
153 p_view_name IN VARCHAR2,
154 p_header_id IN Number,
155 p_line_id IN Number)
156 return VARCHAR2 is
157 begin
158 IF (g_level_procedure >= g_current_runtime_level ) THEN
159 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.DIVISION_CODE',
160 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.DIVISION_CODE(+)');
161 END IF;
162 IF (g_level_statement >= g_current_runtime_level ) THEN
163 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.DIVISION_CODE',
164 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
165 END IF;
166 return '01';
167 exception
168 when others then
169 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
170 IF (g_level_unexpected >= g_current_runtime_level ) THEN
171 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.DIVISION_CODE EXCEPTION ERROR:',
172 g_error_buffer);
173 END IF;
174 end division_code;
175
176
177 /*===========================================================================+
178 | FUNCTION |
179 | trx_line_type |
180 | |
181 | DESCRIPTION |
182 | Returns the Trx Line type. Constant value of 'SALE' |
183 | |
184 | SCOPE - PUBLIC |
185 | |
186 | MODIFICATION HISTORY |
187 | 09-DEC-97 Kenichi Mizuta Created |
188 | |
189 +===========================================================================*/
190
191 function TRX_LINE_TYPE(
192 p_view_name IN VARCHAR2,
193 p_header_id IN Number,
194 p_line_id IN Number)
195 return VARCHAR2 is
196 begin
197 IF (g_level_procedure >= g_current_runtime_level ) THEN
198 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRX_LINE_TYPE',
199 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRX_LINE_TYPE(+)');
200 END IF;
201 IF (g_level_statement >= g_current_runtime_level ) THEN
202 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRX_LINE_TYPE',
203 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
204 END IF;
205 return NULL;
206 exception
207 when others then
208 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
209 IF (g_level_unexpected >= g_current_runtime_level ) THEN
210 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRX_LINE_TYPE EXCEPTION ERROR:',
211 g_error_buffer);
212 END IF;
213 end trx_line_type;
214
215 /*===========================================================================+
216 | FUNCTION |
217 | customer_class |
218 | |
219 | DESCRIPTION |
220 | Returns the customer class code of the customer |
221 | |
222 | SCOPE - PUBLIC |
223 | |
224 | MODIFICATION HISTORY |
225 | 09-DEC-97 Kenichi Mizuta Created |
226 | |
227 +===========================================================================*/
228
229 function customer_class (
230 p_view_name IN VARCHAR2,
231 p_header_id IN Number,
232 p_line_id IN Number,
233 p_customer_id IN Number)
234 return VARCHAR2 is
235 begin
236 IF (g_level_procedure >= g_current_runtime_level ) THEN
237 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CLASS',
238 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CLASS(+)');
239 END IF;
240 IF (g_level_statement >= g_current_runtime_level ) THEN
241 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CLASS',
242 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
243 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CLASS',
244 'p_customer_id = '||to_char(p_customer_id));
245 END IF;
246 return null;
247 exception
248 when others then
249 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
250 IF (g_level_unexpected >= g_current_runtime_level ) THEN
251 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CLASS EXCEPTION ERROR:',
252 g_error_buffer);
253 END IF;
254 end customer_class;
255
256
257 /*===========================================================================+
258 | PROCEDURE |
259 | get_exemptions |
260 | |
261 | DESCRIPTION |
262 | Returns the separated State/County/District/City exemption levels. |
263 | |
264 | SCOPE - PUBLIC |
265 | |
266 | MODIFICATION HISTORY |
267 | 09-DEC-97 Kenichi Mizuta Created |
268 | |
269 +===========================================================================*/
270
271 PROCEDURE GET_EXEMPTIONS(
272 p_exemption_id In Number,
273 p_cert_no Out NOCOPY Varchar2,
274 p_State_Exempt_Percent Out NOCOPY Number,
275 p_State_Exempt_Reason Out NOCOPY Varchar2,
276 p_County_Exempt_Percent Out NOCOPY Number,
277 p_County_Exempt_Reason Out NOCOPY Varchar2,
278 p_City_Exempt_Percent Out NOCOPY Number,
279 p_City_Exempt_Reason Out NOCOPY Varchar2,
280 p_District_Exempt_Percent Out NOCOPY Number,
281 p_District_Exempt_Reason Out NOCOPY Varchar2)
282 IS
283 BEGIN
284 IF (g_level_procedure >= g_current_runtime_level ) THEN
285 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.GET_EXEMPTIONS',
286 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.GET_EXEMPTIONS(+)');
287 END IF;
288
289 p_cert_no := null;
290
291 p_State_Exempt_Percent := null;
292 p_County_Exempt_percent := null;
293 p_City_Exempt_percent := null;
294 p_District_Exempt_percent := null;
295
296 p_State_Exempt_Reason := null;
297 p_County_Exempt_Reason := null;
298 p_City_Exempt_Reason := null;
299 p_District_Exempt_Reason := null;
300
301 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
302 FND_LOG.STRING(G_LEVEL_PROCEDURE, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.GET_EXEMPTIONS',
303 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.GET_EXEMPTIONS(-)');
304 END IF;
305
306 END GET_EXEMPTIONS;
307
308
309 /*===========================================================================+
310 | FUNCTION |
314 | NOT USED BY VERTEX |
311 | poo_address_code |
312 | |
313 | DESCRIPTION |
315 | |
316 | SCOPE - Public |
317 | |
318 | MODIFICATION HISTORY |
319 | 09-DEC-97 Kenichi Mizuta Created |
320 | |
321 +===========================================================================*/
322
323
324 function POO_ADDRESS_CODE(
325 p_view_name IN VARCHAR2,
326 p_header_id IN Number,
327 p_line_id IN Number)
328 return Varchar2 is
329 begin
330 IF (g_level_procedure >= g_current_runtime_level ) THEN
331 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POO_ADDRESS_CODE',
332 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POO_ADDRESS_CODE(+)');
333 END IF;
334 IF (g_level_statement >= g_current_runtime_level ) THEN
335 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POO_ADDRESS_CODE',
336 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
337 END IF;
338 return null;
339 exception
340 when others then
341 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
342 IF (g_level_unexpected >= g_current_runtime_level ) THEN
343 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POO_ADDRESS_CODE EXCEPTION ERROR:',
344 g_error_buffer);
345 END IF;
346
347 end POO_ADDRESS_CODE;
348
349
350
351 /*===========================================================================+
352 | FUNCTION |
353 | poa_address_code |
354 | |
355 | DESCRIPTION |
356 | Concatenates the In/Out City Limits and the Geocode |
357 | |
358 | SCOPE - Public |
359 | |
360 | MODIFICATION HISTORY |
361 | 09-DEC-97 Kenichi Mizuta Created |
362 | |
363 +===========================================================================*/
364
365
366 function POA_ADDRESS_CODE(
367 p_view_name IN VARCHAR2,
368 p_header_id IN Number,
369 p_line_id IN Number,
370 p_salesrep_id IN Number)
371 return Varchar2 is
372 begin
373 IF (g_level_procedure >= g_current_runtime_level ) THEN
374 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POA_GEOCODE',
375 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POA_GEOCODE(+)');
376 END IF;
377 IF (g_level_statement >= g_current_runtime_level ) THEN
378 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POA_GEOCODE',
379 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
380 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POO_GEOCODE',
381 'p_salesrep_id = '||to_char(p_salesrep_id));
382 END IF;
383 return NULL;
384 exception
385 when others then
386 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
387 IF (g_level_unexpected >= g_current_runtime_level ) THEN
388 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.POA_GEOCODE EXCEPTION ERROR:',
389 g_error_buffer);
390 END IF;
391 end;
392
393 /*===========================================================================+
394 | FUNCTION |
395 | ship_from_address_code |
396 | |
397 | DESCRIPTION |
398 | Concatenates the In/Out City Limits and the Geocode |
399 | |
400 | SCOPE - Public |
401 | |
402 | MODIFICATION HISTORY |
403 | 09-DEC-97 Kenichi Mizuta Created |
404 | |
405 +===========================================================================*/
406
407
408 function SHIP_FROM_ADDRESS_CODE(
409 p_view_name IN VARCHAR2,
410 p_header_id IN Number,
411 p_line_id IN Number,
412 p_warehouse_id IN Number)
413 return Varchar2 is
414 begin
415 IF (g_level_procedure >= g_current_runtime_level ) THEN
419 IF (g_level_statement >= g_current_runtime_level ) THEN
416 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_FROM_ADDRESS_CODE',
417 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_FROM_ADDRESS_CODE(+)');
418 END IF;
420 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_FROM_ADDRESS_CODE',
421 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
422 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_FROM_ADDRESS_CODE',
423 'p_warehouse_id = '||to_char(p_warehouse_id));
424 END IF;
425 return NULL;
426 exception
427 when others then
428 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
429 IF (g_level_unexpected >= g_current_runtime_level ) THEN
430 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_FROM_ADDRESS_CODE EXCEPTION ERROR:',
431 g_error_buffer);
432 END IF;
433 end;
434
435 /*===========================================================================+
436 | FUNCTION |
437 | ship_to_address_code |
438 | |
439 | DESCRIPTION |
440 | Concatenates the In/Out City Limits and the Geocode |
441 | |
442 | SCOPE - Public |
443 | |
444 | MODIFICATION HISTORY |
445 | 09-DEC-97 Kenichi Mizuta Created |
446 | |
447 +===========================================================================*/
448
449 function SHIP_TO_ADDRESS_CODE(
450 p_view_name IN VARCHAR2,
451 p_header_id IN Number,
452 p_line_id IN Number,
453 p_ship_to_address_id In Number,
454 p_ship_to_location_id In Number,
455 p_trx_date In Date,
456 p_ship_to_state In Varchar2,
457 p_postal_code In Varchar2)
458 return Varchar2 is
459 l_inout Boolean;
460 l_geocode Varchar2(30);
461 begin
462 /* if arp_process_tax.vendor_installed_flag = 'N' then
463 return NULL;
464 end if;*/
465 IF (g_level_procedure >= g_current_runtime_level ) THEN
466 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE',
467 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE(+)');
468 END IF;
469 IF (g_level_statement >= g_current_runtime_level ) THEN
470 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE',
471 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
472 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE',
473 'p_ship_to_address_id = '||to_char(p_ship_to_address_id)||'p_ship_to_location_id = '||to_char(p_ship_to_location_id));
474 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE',
475 'p_trx_date = '||p_trx_date||' p_ship_to_state = '||p_ship_to_state||'p_postal_code = '||p_postal_code);
476 END IF;
477
478 return NULL;
479 exception
480 when others then
481 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
482 IF (g_level_unexpected >= g_current_runtime_level ) THEN
483 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.SHIP_TO_ADDRESS_CODE EXCEPTION ERROR:',
484 g_error_buffer);
485 END IF;
486 end;
487
488 /*===========================================================================+
489 | FUNCTION |
490 | audit_flag |
491 | |
492 | DESCRIPTION |
493 | Return appropriate audit_flag |
494 | |
495 | SCOPE - Public |
496 | |
497 | MODIFICATION HISTORY |
498 | 20-MAY-99 Toru Kawamura Created |
499 | |
500 +===========================================================================*/
501
502 function AUDIT_FLAG(
503 p_view_name IN VARCHAR2,
504 p_header_id IN Number,
505 p_line_id IN Number)
506 return Varchar2 is
507 l_audit_flag Varchar2(10);
508 begin
509 IF (g_level_procedure >= g_current_runtime_level ) THEN
510 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.AUDIT_FLAG',
511 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.AUDIT_FLAG(+)');
512 END IF;
513 IF (g_level_procedure >= g_current_runtime_level ) THEN
514 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.AUDIT_FLAG',
518 exception
515 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.AUDIT_FLAG(-)');
516 END IF;
517 return null;
519 When others then
520 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
521 IF (g_level_unexpected >= g_current_runtime_level ) THEN
522 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.AUDIT_FLAG EXCEPTION ERROR:',
523 g_error_buffer);
524 END IF;
525 end audit_flag;
526
527
528 /*===========================================================================+
529 | FUNCTION |
530 | total_tax |
531 | |
532 | DESCRIPTION |
533 | Return total tax amount for an invoice |
534 | This function is used in view TAX_ADJUSTMENTS_V_A and |
535 | TAX_ADJUSTMENTS_V_V |
536 | |
537 | SCOPE - Public |
538 | |
539 | MODIFICATION HISTORY |
540 | 14-JUN-99 Nilesh Patel Created |
541 | |
542 +===========================================================================*/
543
544 function total_tax(
545 p_customer_trx_id IN Number
546 )
547 return number is
548 begin
549 IF (g_level_procedure >= g_current_runtime_level ) THEN
550 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TOTAL_TAX',
551 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TOTAL_TAX(+)');
552 END IF;
553 IF (g_level_statement >= g_current_runtime_level ) THEN
554 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TOTAL_TAX',
555 ' p_customer_trx_id = '||to_char(p_customer_trx_id));
556 END IF;
557
558 return null;
559
560 IF (g_level_procedure >= g_current_runtime_level ) THEN
561 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TOTAL_TAX',
562 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TOTAL_TAX(-)');
563 END IF;
564 exception
565 when others then
566 return 0;
567 end total_tax;
568
569 /*===========================================================================+
570 | FUNCTION |
571 | customer_code |
572 | |
573 | DESCRIPTION |
574 | Returns the customer code to be passed to Vertex |
575 | |
576 | SCOPE - PUBLIC |
577 | |
578 | MODIFICATION HISTORY |
579 | 03-SEP-03 Santosh Vaze Created |
580 | |
581 +===========================================================================*/
582
583 function customer_code (
584 p_view_name IN VARCHAR2,
585 p_header_id IN Number,
586 p_line_id IN Number)
587 return VARCHAR2
588 -- Bug3486347return NUMBER
589 is
590 begin
591 /* Santosh */
592 IF (g_level_procedure >= g_current_runtime_level ) THEN
593 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CODE',
594 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CODE(+)');
595 END IF;
596 IF (g_level_statement >= g_current_runtime_level ) THEN
597 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CODE',
598 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
599 END IF;
600 return null;
601 exception
602 when others then
603 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
604 IF (g_level_unexpected >= g_current_runtime_level ) THEN
605 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.CUSTOMER_CODE EXCEPTION ERROR:',
606 g_error_buffer);
607 END IF;
608 end customer_code;
609
610
611 /*===========================================================================+
612 | FUNCTION |
613 | transaction_date |
614 | |
615 | DESCRIPTION |
616 | Returns the transaction date to be passed to Vertex |
617 | |
618 | SCOPE - PUBLIC |
619 | |
623 +===========================================================================*/
620 | MODIFICATION HISTORY |
621 | 29-Jun-2005 Sanjeev Ahuja Created |
622 | |
624
625 function transaction_date (
626 p_view_name IN VARCHAR2,
627 p_header_id IN Number,
628 p_line_id IN Number)
629 return DATE
630 -- Bug 4175816 return DATE
631 is
632 begin
633 IF (g_level_procedure >= g_current_runtime_level ) THEN
634 FND_LOG.STRING(g_level_procedure, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRANSACTION_DATE',
635 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRANSACTION_DATE(+)');
636 END IF;
637 IF (g_level_statement >= g_current_runtime_level ) THEN
638 FND_LOG.STRING(g_level_statement, 'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRANSACTION_DATE',
639 'p_view_name = '||p_view_name||' p_header_id = '||to_char(p_header_id)||' p_line_id = '||to_char(p_line_id));
640 END IF;
641 return null;
642 exception
643 when others then
644 g_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
645 IF (g_level_unexpected >= g_current_runtime_level ) THEN
646 FND_LOG.STRING(g_level_unexpected,'ZX.PARTNER.ARP_TAX_VIEW_VERTEX.TRANSACTION_DATE EXCEPTION ERROR:',
647 g_error_buffer);
648 END IF;
649 end transaction_date;
650
651 /*===========================================================================+
652 | PROCEDURE |
653 | override_parameters |
654 | |
655 | DESCRIPTION |
656 | This procedure will be executed between RESET_PARAMETERS and |
657 | SET_PARAMETERS in ARP_TAX_VERTEX.calculate and will enable the |
658 | user to override the parameters set therein |
659 | |
660 | SCOPE - Public |
661 | |
662 | MODIFICATION HISTORY |
663 | 16-JUN-99 Nilesh Patel Created |
664 | |
665 +===========================================================================*/
666
667 PROCEDURE override_parameters is
668 Begin
669 NULL;
670 End override_parameters;
671 --2662879
672
673 END ARP_TAX_VIEW_VERTEX;