[Home] [Help]
1: package body ZX_AR_TAX_CLASSIFICATN_DEF_PKG as
2: /* $Header: zxartxclsdefpkgb.pls 120.33 2011/01/19 19:13:25 ssanka ship $ */
3:
4: g_current_runtime_level NUMBER;
5: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
138: BEGIN
139:
140: IF (g_level_statement >= g_current_runtime_level ) THEN
141: FND_LOG.STRING(g_level_statement,
142: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax.BEGIN',
143: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_project_tax(+)');
144: END IF;
145:
146: l_tax_classification_code := NULL;
139:
140: IF (g_level_statement >= g_current_runtime_level ) THEN
141: FND_LOG.STRING(g_level_statement,
142: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax.BEGIN',
143: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_project_tax(+)');
144: END IF;
145:
146: l_tax_classification_code := NULL;
147:
171: end if;
172:
173: IF (g_level_statement >= g_current_runtime_level ) THEN
174: FND_LOG.STRING(g_level_statement,
175: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax',
176: 'tax_classificaton_code => '||l_tax_classification_code);
177: FND_LOG.STRING(g_level_statement,
178: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax.END',
179: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_project_tax(-)');
174: FND_LOG.STRING(g_level_statement,
175: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax',
176: 'tax_classificaton_code => '||l_tax_classification_code);
177: FND_LOG.STRING(g_level_statement,
178: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax.END',
179: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_project_tax(-)');
180: END IF;
181:
182:
175: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax',
176: 'tax_classificaton_code => '||l_tax_classification_code);
177: FND_LOG.STRING(g_level_statement,
178: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax.END',
179: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_project_tax(-)');
180: END IF;
181:
182:
183: return l_tax_classification_code;
190: FND_MSG_PUB.Add;
191:
192: IF (g_level_unexpected >= g_current_runtime_level ) THEN
193: FND_LOG.STRING(g_level_unexpected,
194: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_project_tax',
195: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
196: END IF;
197: if tax_csr%isopen then
198: close tax_csr;
257: BEGIN
258:
259: IF (g_level_statement >= g_current_runtime_level ) THEN
260: FND_LOG.STRING(g_level_statement,
261: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax.BEGIN',
262: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_expenditure_tax(+)');
263: END IF;
264:
265: --
258:
259: IF (g_level_statement >= g_current_runtime_level ) THEN
260: FND_LOG.STRING(g_level_statement,
261: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax.BEGIN',
262: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_expenditure_tax(+)');
263: END IF;
264:
265: --
266: -- Bug#5331994- add trx_date
272: close tax_csr;
273:
274: IF (g_level_statement >= g_current_runtime_level ) THEN
275: FND_LOG.STRING(g_level_statement,
276: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax',
277: 'tax_code => '||l_output_tax_code);
278: FND_LOG.STRING(g_level_statement,
279: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax.END',
280: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_expenditure_tax(-)');
275: FND_LOG.STRING(g_level_statement,
276: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax',
277: 'tax_code => '||l_output_tax_code);
278: FND_LOG.STRING(g_level_statement,
279: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax.END',
280: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_expenditure_tax(-)');
281: END IF;
282:
283:
276: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax',
277: 'tax_code => '||l_output_tax_code);
278: FND_LOG.STRING(g_level_statement,
279: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax.END',
280: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_expenditure_tax(-)');
281: END IF;
282:
283:
284: return l_output_tax_code;
291: FND_MSG_PUB.Add;
292:
293: IF (g_level_unexpected >= g_current_runtime_level ) THEN
294: FND_LOG.STRING(g_level_unexpected,
295: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_expenditure_tax',
296: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
297: END IF;
298: if tax_csr%isopen then
299: close tax_csr;
330: BEGIN
331:
332: IF (g_level_statement >= g_current_runtime_level ) THEN
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax.BEGIN',
335: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_event_tax(+)');
336: END IF;
337:
338: l_output_tax_code := NULL;
331:
332: IF (g_level_statement >= g_current_runtime_level ) THEN
333: FND_LOG.STRING(g_level_statement,
334: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax.BEGIN',
335: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_event_tax(+)');
336: END IF;
337:
338: l_output_tax_code := NULL;
339:
342: close tax_csr;
343:
344: IF (g_level_statement >= g_current_runtime_level ) THEN
345: FND_LOG.STRING(g_level_statement,
346: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax',
347: 'tax_code => '||l_output_tax_code);
348: FND_LOG.STRING(g_level_statement,
349: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax.END',
350: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_event_tax(-)');
345: FND_LOG.STRING(g_level_statement,
346: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax',
347: 'tax_code => '||l_output_tax_code);
348: FND_LOG.STRING(g_level_statement,
349: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax.END',
350: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_event_tax(-)');
351: END IF;
352:
353:
346: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax',
347: 'tax_code => '||l_output_tax_code);
348: FND_LOG.STRING(g_level_statement,
349: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax.END',
350: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_event_tax(-)');
351: END IF;
352:
353:
354: return l_output_tax_code;
361: FND_MSG_PUB.Add;
362:
363: IF (g_level_unexpected >= g_current_runtime_level ) THEN
364: FND_LOG.STRING(g_level_unexpected,
365: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_event_tax',
366: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
367: END IF;
368: if tax_csr%isopen then
369: close tax_csr;
417: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
418:
419: IF (g_level_statement >= g_current_runtime_level ) THEN
420: FND_LOG.STRING(g_level_statement,
421: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.BEGIN',
422: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(+)');
423: END IF;
424:
425: get_pa_default_classification
418:
419: IF (g_level_statement >= g_current_runtime_level ) THEN
420: FND_LOG.STRING(g_level_statement,
421: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.BEGIN',
422: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(+)');
423: END IF;
424:
425: get_pa_default_classification
426: (p_project_id => p_project_id
441: ,p_internal_organization_id => p_internal_organization_id);
442:
443: IF (g_level_statement >= g_current_runtime_level ) THEN
444: FND_LOG.STRING(g_level_statement,
445: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
446: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(-)');
447: END IF;
448:
449: EXCEPTION
442:
443: IF (g_level_statement >= g_current_runtime_level ) THEN
444: FND_LOG.STRING(g_level_statement,
445: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
446: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(-)');
447: END IF;
448:
449: EXCEPTION
450: WHEN OTHERS THEN
454: FND_MSG_PUB.Add;
455:
456: IF (g_level_unexpected >= g_current_runtime_level ) THEN
457: FND_LOG.STRING(g_level_unexpected,
458: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
459: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
460: END IF;
461: RAISE ;
462: END get_pa_default_classification;
512: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
513:
514: IF (g_level_statement >= g_current_runtime_level ) THEN
515: FND_LOG.STRING(g_level_statement,
516: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.BEGIN',
517: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(+)');
518: END IF;
519:
520: l_party_flag := 'N';
513:
514: IF (g_level_statement >= g_current_runtime_level ) THEN
515: FND_LOG.STRING(g_level_statement,
516: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.BEGIN',
517: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(+)');
518: END IF;
519:
520: l_party_flag := 'N';
521: l_site_use_id := nvl(p_ship_to_site_use_id, p_bill_to_site_use_id);
543: AND NVL(sysinfo.pa_product_options_rec.use_tax_classification_flag,'N') = 'Y' THEN
544:
545: IF (g_level_statement >= g_current_runtime_level ) THEN
546: FND_LOG.STRING(g_level_statement,
547: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
548:
549: 'Initializing PA defaulting information');
550: END IF;
551:
558: sysinfo.search_pa_hierarchy_tab(7) := sysinfo.pa_product_options_rec.def_option_hier_7_code;
559: ELSE
560: IF (g_level_statement >= g_current_runtime_level ) THEN
561: FND_LOG.STRING(g_level_statement,
562: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
563: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
564: FND_LOG.STRING(g_level_statement,
565: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
566: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification()-' );
561: FND_LOG.STRING(g_level_statement,
562: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
563: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
564: FND_LOG.STRING(g_level_statement,
565: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
566: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification()-' );
567: END IF;
568: return;
569: END IF;
562: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
563: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
564: FND_LOG.STRING(g_level_statement,
565: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
566: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification()-' );
567: END IF;
568: return;
569: END IF;
570:
585:
586: l_default_level := rtrim(sysinfo.search_pa_hierarchy_tab(i));
587: IF (g_level_statement >= g_current_runtime_level ) THEN
588: FND_LOG.STRING(g_level_statement,
589: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
590: '-- Search level = '||l_default_level);
591: END IF;
592:
593: IF (l_default_level = TAX_DEFAULT_CUSTOMER) THEN
596: --
597: -- Bill_to_site_use_id
598: IF (g_level_statement >= g_current_runtime_level ) THEN
599: FND_LOG.STRING(g_level_statement,
600: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
601: 'get the customer level tax code using ship to information ...');
602: END IF;
603:
604: l_tax_classification_code := get_customer_tax(p_ship_to_site_use_id,
607: -- Ship_to_site_use_id
608: IF l_tax_classification_code IS NULL THEN
609: IF (g_level_statement >= g_current_runtime_level ) THEN
610: FND_LOG.STRING(g_level_statement,
611: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
612: 'Cannot find tax code using ship to information. '||
613: 'Using bill to information instead');
614: END IF;
615:
686: -- needs to be changed for this parameter
687:
688: IF (g_level_statement >= g_current_runtime_level ) THEN
689: FND_LOG.STRING(g_level_statement,
690: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
691: 'Calling PA_TAX_CLIENT_EXTN_DRV.get_tax_code');
692: END IF;
693:
694: PA_TAX_CLIENT_EXTN_DRV.get_tax_code(
744: END LOOP;
745:
746: IF (g_level_statement >= g_current_runtime_level ) THEN
747: FND_LOG.STRING(g_level_statement,
748: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
749: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(-)');
750: END IF;
751:
752: EXCEPTION
745:
746: IF (g_level_statement >= g_current_runtime_level ) THEN
747: FND_LOG.STRING(g_level_statement,
748: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification.END',
749: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_pa_default_classification(-)');
750: END IF;
751:
752: EXCEPTION
753: WHEN OTHERS THEN
757: FND_MSG_PUB.Add;
758:
759: IF (g_level_unexpected >= g_current_runtime_level ) THEN
760: FND_LOG.STRING(g_level_unexpected,
761: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_pa_default_classification',
762: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
763: END IF;
764: RAISE ;
765: END get_pa_default_classification;
978: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
979:
980: IF (g_level_statement >= g_current_runtime_level ) THEN
981: FND_LOG.STRING(g_level_statement,
982: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
983: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification(+)');
984: FND_LOG.STRING(g_level_statement,
985: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
986: 'p_ship_to_site_use_id: '||to_char(p_ship_to_site_use_id));
979:
980: IF (g_level_statement >= g_current_runtime_level ) THEN
981: FND_LOG.STRING(g_level_statement,
982: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
983: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification(+)');
984: FND_LOG.STRING(g_level_statement,
985: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
986: 'p_ship_to_site_use_id: '||to_char(p_ship_to_site_use_id));
987: FND_LOG.STRING(g_level_statement,
981: FND_LOG.STRING(g_level_statement,
982: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
983: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification(+)');
984: FND_LOG.STRING(g_level_statement,
985: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
986: 'p_ship_to_site_use_id: '||to_char(p_ship_to_site_use_id));
987: FND_LOG.STRING(g_level_statement,
988: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
989: 'p_bill_to_site_use_id: '||to_char(p_bill_to_site_use_id));
984: FND_LOG.STRING(g_level_statement,
985: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
986: 'p_ship_to_site_use_id: '||to_char(p_ship_to_site_use_id));
987: FND_LOG.STRING(g_level_statement,
988: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
989: 'p_bill_to_site_use_id: '||to_char(p_bill_to_site_use_id));
990: FND_LOG.STRING(g_level_statement,
991: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
992: 'p_inventory_item_id: '||to_char(p_inventory_item_id));
987: FND_LOG.STRING(g_level_statement,
988: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
989: 'p_bill_to_site_use_id: '||to_char(p_bill_to_site_use_id));
990: FND_LOG.STRING(g_level_statement,
991: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
992: 'p_inventory_item_id: '||to_char(p_inventory_item_id));
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
995: 'p_organization_id: '||to_char(p_organization_id));
990: FND_LOG.STRING(g_level_statement,
991: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
992: 'p_inventory_item_id: '||to_char(p_inventory_item_id));
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
995: 'p_organization_id: '||to_char(p_organization_id));
996: FND_LOG.STRING(g_level_statement,
997: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
998: 'p_set_of_books_id: '||to_char(p_set_of_books_id));
993: FND_LOG.STRING(g_level_statement,
994: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
995: 'p_organization_id: '||to_char(p_organization_id));
996: FND_LOG.STRING(g_level_statement,
997: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
998: 'p_set_of_books_id: '||to_char(p_set_of_books_id));
999: FND_LOG.STRING(g_level_statement,
1000: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1001: 'p_trx_date: '||to_char(p_trx_date,'DD-MON-YYYY'));
996: FND_LOG.STRING(g_level_statement,
997: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
998: 'p_set_of_books_id: '||to_char(p_set_of_books_id));
999: FND_LOG.STRING(g_level_statement,
1000: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1001: 'p_trx_date: '||to_char(p_trx_date,'DD-MON-YYYY'));
1002: FND_LOG.STRING(g_level_statement,
1003: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1004: 'p_trx_type_id: '||to_char(p_trx_type_id));
999: FND_LOG.STRING(g_level_statement,
1000: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1001: 'p_trx_date: '||to_char(p_trx_date,'DD-MON-YYYY'));
1002: FND_LOG.STRING(g_level_statement,
1003: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1004: 'p_trx_type_id: '||to_char(p_trx_type_id));
1005: FND_LOG.STRING(g_level_statement,
1006: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1007: 'p_cust_trx_id: '||to_char(p_cust_trx_id));
1002: FND_LOG.STRING(g_level_statement,
1003: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1004: 'p_trx_type_id: '||to_char(p_trx_type_id));
1005: FND_LOG.STRING(g_level_statement,
1006: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1007: 'p_cust_trx_id: '||to_char(p_cust_trx_id));
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1010: 'p_cust_trx_line_id: '||to_char(p_cust_trx_line_id));
1005: FND_LOG.STRING(g_level_statement,
1006: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1007: 'p_cust_trx_id: '||to_char(p_cust_trx_id));
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1010: 'p_cust_trx_line_id: '||to_char(p_cust_trx_line_id));
1011: FND_LOG.STRING(g_level_statement,
1012: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1013: 'p_customer_id: '||to_char(p_customer_id));
1008: FND_LOG.STRING(g_level_statement,
1009: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1010: 'p_cust_trx_line_id: '||to_char(p_cust_trx_line_id));
1011: FND_LOG.STRING(g_level_statement,
1012: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1013: 'p_customer_id: '||to_char(p_customer_id));
1014: FND_LOG.STRING(g_level_statement,
1015: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1016: 'p_memo_line_id: '||to_char(p_memo_line_id));
1011: FND_LOG.STRING(g_level_statement,
1012: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1013: 'p_customer_id: '||to_char(p_customer_id));
1014: FND_LOG.STRING(g_level_statement,
1015: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1016: 'p_memo_line_id: '||to_char(p_memo_line_id));
1017: FND_LOG.STRING(g_level_statement,
1018: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1019: 'APPL_SHORT_NAME: '||APPL_SHORT_NAME);
1014: FND_LOG.STRING(g_level_statement,
1015: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1016: 'p_memo_line_id: '||to_char(p_memo_line_id));
1017: FND_LOG.STRING(g_level_statement,
1018: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1019: 'APPL_SHORT_NAME: '||APPL_SHORT_NAME);
1020: FND_LOG.STRING(g_level_statement,
1021: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1022: 'FUNC_SHORT_NAME: '||FUNC_SHORT_NAME );
1017: FND_LOG.STRING(g_level_statement,
1018: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1019: 'APPL_SHORT_NAME: '||APPL_SHORT_NAME);
1020: FND_LOG.STRING(g_level_statement,
1021: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1022: 'FUNC_SHORT_NAME: '||FUNC_SHORT_NAME );
1023: FND_LOG.STRING(g_level_statement,
1024: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1025: 'p_party_flag: '||p_party_flag);
1020: FND_LOG.STRING(g_level_statement,
1021: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1022: 'FUNC_SHORT_NAME: '||FUNC_SHORT_NAME );
1023: FND_LOG.STRING(g_level_statement,
1024: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1025: 'p_party_flag: '||p_party_flag);
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1028: 'p_party_location_id: '||p_party_location_id );
1023: FND_LOG.STRING(g_level_statement,
1024: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1025: 'p_party_flag: '||p_party_flag);
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1028: 'p_party_location_id: '||p_party_location_id );
1029: FND_LOG.STRING(g_level_statement,
1030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1031: 'p_application_id == >'||TO_CHAR(p_application_id));
1026: FND_LOG.STRING(g_level_statement,
1027: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1028: 'p_party_location_id: '||p_party_location_id );
1029: FND_LOG.STRING(g_level_statement,
1030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1031: 'p_application_id == >'||TO_CHAR(p_application_id));
1032: FND_LOG.STRING(g_level_statement,
1033: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1034: 'p_internal_organization_id == >'||TO_CHAR(p_internal_organization_id));
1029: FND_LOG.STRING(g_level_statement,
1030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1031: 'p_application_id == >'||TO_CHAR(p_application_id));
1032: FND_LOG.STRING(g_level_statement,
1033: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1034: 'p_internal_organization_id == >'||TO_CHAR(p_internal_organization_id));
1035: END IF;
1036:
1037: v_tax_classification_code := NULL;
1064: p_trx_type_id);
1065:
1066: IF (g_level_statement >= g_current_runtime_level ) THEN
1067: FND_LOG.STRING(g_level_statement,
1068: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1069: 'Tax_method is LATIN and Tax code is '|| v_tax_classification_code);
1070: FND_LOG.STRING(g_level_statement,
1071: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1072: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1067: FND_LOG.STRING(g_level_statement,
1068: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1069: 'Tax_method is LATIN and Tax code is '|| v_tax_classification_code);
1070: FND_LOG.STRING(g_level_statement,
1071: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1072: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1073: END IF;
1074: --
1075: -- Bug#5024478- return output to caller
1068: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1069: 'Tax_method is LATIN and Tax code is '|| v_tax_classification_code);
1070: FND_LOG.STRING(g_level_statement,
1071: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1072: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1073: END IF;
1074: --
1075: -- Bug#5024478- return output to caller
1076: --
1109:
1110: if c_evnt_cls_options%NOTFOUND then
1111: IF (g_level_statement >= g_current_runtime_level ) THEN
1112: FND_LOG.STRING(g_level_statement,
1113: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1114: 'c_evnt_cls_options cursor not found !! Setting sysinfo.tax_enforce_account_flag to N');
1115: END IF;
1116:
1117: sysinfo.tax_enforce_account_flag := 'N';
1118: end if;
1119:
1120: IF (g_level_statement >= g_current_runtime_level ) THEN
1121: FND_LOG.STRING(g_level_statement,
1122: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1123: 'c_evnt_cls_options.tax_enforce_account_flag = '||l_tax_enforce_account_flag);
1124: END IF;
1125:
1126: sysinfo.tax_enforce_account_flag := l_tax_enforce_account_flag;
1133: when others then
1134:
1135: IF (g_level_statement >= g_current_runtime_level ) THEN
1136: FND_LOG.STRING(g_level_statement,
1137: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1138: 'Exception: '||SQLCODE||' ; '||SQLERRM||' Setting sysinfo.tax_enforce_account_flag to N');
1139: END IF;
1140: sysinfo.tax_enforce_account_flag := 'N';
1141: if c_evnt_cls_options%ISOPEN then
1162:
1163: IF v_tax_classification_code IS NOT NULL THEN
1164: IF (g_level_statement >= g_current_runtime_level ) THEN
1165: FND_LOG.STRING(g_level_statement,
1166: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1167: 'Tax Classification code is '|| v_tax_classification_code);
1168: FND_LOG.STRING(g_level_statement,
1169: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1170: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1165: FND_LOG.STRING(g_level_statement,
1166: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1167: 'Tax Classification code is '|| v_tax_classification_code);
1168: FND_LOG.STRING(g_level_statement,
1169: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1170: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1171: END IF;
1172:
1173: p_tax_classification_code := v_tax_classification_code;
1166: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1167: 'Tax Classification code is '|| v_tax_classification_code);
1168: FND_LOG.STRING(g_level_statement,
1169: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1170: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1171: END IF;
1172:
1173: p_tax_classification_code := v_tax_classification_code;
1174: RETURN;
1193: p_check_override_only=>'Y');
1194: IF v_tax_classification_code IS NOT NULL THEN
1195: IF (g_level_statement >= g_current_runtime_level ) THEN
1196: FND_LOG.STRING(g_level_statement,
1197: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1198: 'Tax Classification code is '|| v_tax_classification_code);
1199: FND_LOG.STRING(g_level_statement,
1200: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1201: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1196: FND_LOG.STRING(g_level_statement,
1197: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1198: 'Tax Classification code is '|| v_tax_classification_code);
1199: FND_LOG.STRING(g_level_statement,
1200: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1201: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1202: END IF;
1203:
1204: p_tax_classification_code := v_tax_classification_code;
1197: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1198: 'Tax Classification code is '|| v_tax_classification_code);
1199: FND_LOG.STRING(g_level_statement,
1200: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1201: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1202: END IF;
1203:
1204: p_tax_classification_code := v_tax_classification_code;
1205: RETURN;
1222: OR sysinfo.ar_product_options_rec.def_option_hier_7_code IS NOT NULL) THEN
1223:
1224: IF (g_level_statement >= g_current_runtime_level ) THEN
1225: FND_LOG.STRING(g_level_statement,
1226: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1227: 'Initializing AR defaulting information');
1228: END IF;
1229:
1230: sysinfo.search_hierarchy_tab(1) := sysinfo.ar_product_options_rec.def_option_hier_1_code;
1236: sysinfo.search_hierarchy_tab(7) := sysinfo.ar_product_options_rec.def_option_hier_7_code;
1237: ELSE
1238: IF (g_level_statement >= g_current_runtime_level ) THEN
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1241: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
1242: FND_LOG.STRING(g_level_statement,
1243: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1244: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1241: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
1242: FND_LOG.STRING(g_level_statement,
1243: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1244: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1245: END IF;
1246: return;
1247: END IF;
1240: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1241: 'Defaulting of Tax Classification is not enabled or defaulting options are not set');
1242: FND_LOG.STRING(g_level_statement,
1243: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1244: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1245: END IF;
1246: return;
1247: END IF;
1248:
1266:
1267: l_default_level := rtrim(sysinfo.search_hierarchy_tab(i));
1268: IF (g_level_statement >= g_current_runtime_level ) THEN
1269: FND_LOG.STRING(g_level_statement,
1270: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1271: '-- Search level = '||l_default_level);
1272: END IF;
1273: --crm
1274: IF (nvl(p_party_flag, 'N') = 'N') AND
1387: AND tax_code_tbl(l_index).lookup_code = sysinfo.ar_product_options_rec.tax_classification_code
1388: AND tax_code_tbl(l_index).det_date = trunc(p_trx_date) THEN
1389:
1390: IF (g_level_statement >= g_current_runtime_level ) THEN
1391: FND_LOG.STRING(g_level_statement,'ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1392: 'Tax Code Exists in Cache');
1393: END IF;
1394: v_tax_classification_code := tax_code_tbl(l_index).tax_code;
1395: ELSE
1394: v_tax_classification_code := tax_code_tbl(l_index).tax_code;
1395: ELSE
1396: IF (g_level_statement >= g_current_runtime_level ) THEN
1397: FND_LOG.STRING(g_level_statement,
1398: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1399: 'defaulting tax classification from system ');
1400: END IF;
1401:
1402: -- check if this tax calssification code is valid for the current
1410: close c_chk_tax_classif_code;
1411:
1412: IF (g_level_statement >= g_current_runtime_level ) THEN
1413: FND_LOG.STRING(g_level_statement,
1414: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1415: 'Tax classification defaulted from system is: v_tax_classification_code');
1416: END IF;
1417: tax_code_tbl(l_index).org_id := p_internal_organization_id;
1418: tax_code_tbl(l_index).lookup_code := sysinfo.ar_product_options_rec.tax_classification_code;
1441: p_tax_classification_code := v_tax_classification_code;
1442:
1443: IF (g_level_statement >= g_current_runtime_level ) THEN
1444: FND_LOG.STRING(g_level_statement,
1445: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1446: 'default_tax_classification: '||v_tax_classification_code);
1447: END IF;
1448:
1449: /* Bug#4406011
1457: */
1458:
1459: IF (g_level_statement >= g_current_runtime_level ) THEN
1460: FND_LOG.STRING(g_level_statement,
1461: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1462: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1463: END IF;
1464:
1465: EXCEPTION
1458:
1459: IF (g_level_statement >= g_current_runtime_level ) THEN
1460: FND_LOG.STRING(g_level_statement,
1461: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1462: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification()-' );
1463: END IF;
1464:
1465: EXCEPTION
1466: WHEN NO_DATA_FOUND THEN
1465: EXCEPTION
1466: WHEN NO_DATA_FOUND THEN
1467: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1468: FND_LOG.STRING(g_level_unexpected,
1469: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1470: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1471: END IF;
1472: RAISE;
1473: WHEN OTHERS THEN
1476: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1477: FND_MSG_PUB.Add;
1478: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1479: FND_LOG.STRING(g_level_unexpected,
1480: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1481: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1482: END IF;
1483: RAISE ;
1484: END get_default_tax_classification;
1552: BEGIN
1553:
1554: IF (g_level_procedure >= g_current_runtime_level ) THEN
1555: FND_LOG.STRING(g_level_procedure,
1556: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.BEGIN',
1557: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_site_tax(+)');
1558: END IF;
1559:
1560: l_tax_classification_code := NULL;
1553:
1554: IF (g_level_procedure >= g_current_runtime_level ) THEN
1555: FND_LOG.STRING(g_level_procedure,
1556: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.BEGIN',
1557: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_site_tax(+)');
1558: END IF;
1559:
1560: l_tax_classification_code := NULL;
1561:
1570:
1571:
1572: IF (g_level_procedure >= g_current_runtime_level ) THEN
1573: FND_LOG.STRING(g_level_procedure,
1574: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1575: 'tax_classification_code = ' ||
1576: l_tax_classification_code);
1577: FND_LOG.STRING(g_level_procedure,
1578: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1574: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1575: 'tax_classification_code = ' ||
1576: l_tax_classification_code);
1577: FND_LOG.STRING(g_level_procedure,
1578: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1579: 'l_return_status = ' || l_return_status);
1580: FND_LOG.STRING(g_level_procedure,
1581: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1582: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_site_tax(-)');
1577: FND_LOG.STRING(g_level_procedure,
1578: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1579: 'l_return_status = ' || l_return_status);
1580: FND_LOG.STRING(g_level_procedure,
1581: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1582: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_site_tax(-)');
1583: END IF;
1584:
1585: RETURN l_tax_classification_code;
1578: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1579: 'l_return_status = ' || l_return_status);
1580: FND_LOG.STRING(g_level_procedure,
1581: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1582: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_site_tax(-)');
1583: END IF;
1584:
1585: RETURN l_tax_classification_code;
1586:
1593: FND_MSG_PUB.Add;
1594:
1595: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1596: FND_LOG.STRING(g_level_unexpected,
1597: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1598: l_error_buffer);
1599: END IF;
1600:
1601:
1681: BEGIN
1682:
1683: IF (g_level_procedure >= g_current_runtime_level ) THEN
1684: FND_LOG.STRING(g_level_procedure,
1685: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax.BEGIN',
1686: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_customer_tax(+)');
1687: END IF;
1688:
1689: l_tax_classification_code := NULL;
1682:
1683: IF (g_level_procedure >= g_current_runtime_level ) THEN
1684: FND_LOG.STRING(g_level_procedure,
1685: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax.BEGIN',
1686: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_customer_tax(+)');
1687: END IF;
1688:
1689: l_tax_classification_code := NULL;
1690:
1713: END IF;
1714:
1715: IF (g_level_procedure >= g_current_runtime_level ) THEN
1716: FND_LOG.STRING(g_level_procedure,
1717: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1718: 'tax_classification_code = ' ||
1719: l_tax_classification_code);
1720: FND_LOG.STRING(g_level_procedure,
1721: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1717: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1718: 'tax_classification_code = ' ||
1719: l_tax_classification_code);
1720: FND_LOG.STRING(g_level_procedure,
1721: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1722: 'l_return_status = ' || l_return_status);
1723: FND_LOG.STRING(g_level_procedure,
1724: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax.END',
1725: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_customer_tax(-)');
1720: FND_LOG.STRING(g_level_procedure,
1721: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1722: 'l_return_status = ' || l_return_status);
1723: FND_LOG.STRING(g_level_procedure,
1724: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax.END',
1725: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_customer_tax(-)');
1726: END IF;
1727:
1728: RETURN l_tax_classification_code;
1721: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1722: 'l_return_status = ' || l_return_status);
1723: FND_LOG.STRING(g_level_procedure,
1724: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax.END',
1725: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_customer_tax(-)');
1726: END IF;
1727:
1728: RETURN l_tax_classification_code;
1729:
1736: FND_MSG_PUB.Add;
1737:
1738: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1739: FND_LOG.STRING(g_level_unexpected,
1740: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_customer_tax',
1741: l_error_buffer);
1742: END IF;
1743:
1744: RAISE ;
1832: BEGIN
1833:
1834: IF (g_level_statement >= g_current_runtime_level ) THEN
1835: FND_LOG.STRING(g_level_statement,
1836: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax.BEGIN',
1837: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_item_tax()+' );
1838: END IF;
1839:
1840: -- IF ( sysinfo.sysparam.tax_use_prod_exc_rate_flag = 'Y' ) THEN
1833:
1834: IF (g_level_statement >= g_current_runtime_level ) THEN
1835: FND_LOG.STRING(g_level_statement,
1836: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax.BEGIN',
1837: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_item_tax()+' );
1838: END IF;
1839:
1840: -- IF ( sysinfo.sysparam.tax_use_prod_exc_rate_flag = 'Y' ) THEN
1841: --
1874: -- END IF;
1875:
1876: IF (g_level_statement >= g_current_runtime_level ) THEN
1877: FND_LOG.STRING(g_level_statement,
1878: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax',
1879: '>>> O : Tax_classification_code = '||l_tax_classification_code);
1880: FND_LOG.STRING(g_level_statement,
1881: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax.END',
1882: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_item_tax()-' );
1877: FND_LOG.STRING(g_level_statement,
1878: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax',
1879: '>>> O : Tax_classification_code = '||l_tax_classification_code);
1880: FND_LOG.STRING(g_level_statement,
1881: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax.END',
1882: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_item_tax()-' );
1883: END IF;
1884:
1885: RETURN (l_tax_classification_code);
1878: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax',
1879: '>>> O : Tax_classification_code = '||l_tax_classification_code);
1880: FND_LOG.STRING(g_level_statement,
1881: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax.END',
1882: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_item_tax()-' );
1883: END IF;
1884:
1885: RETURN (l_tax_classification_code);
1886:
1892: FND_MSG_PUB.Add;
1893:
1894: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1895: FND_LOG.STRING(g_level_unexpected,
1896: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_item_tax',
1897: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1898: END IF;
1899: IF (sel_memo_line_tax%ISOPEN) THEN
1900: CLOSE sel_memo_line_tax;
1970: BEGIN
1971:
1972: IF (g_level_statement >= g_current_runtime_level ) THEN
1973: FND_LOG.STRING(g_level_statement,
1974: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.BEGIN',
1975: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()+' );
1976: FND_LOG.STRING(g_level_statement,
1977: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1978: 'p_site_use_id: '||to_char(p_site_use_id));
1971:
1972: IF (g_level_statement >= g_current_runtime_level ) THEN
1973: FND_LOG.STRING(g_level_statement,
1974: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.BEGIN',
1975: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()+' );
1976: FND_LOG.STRING(g_level_statement,
1977: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1978: 'p_site_use_id: '||to_char(p_site_use_id));
1979: FND_LOG.STRING(g_level_statement,
1973: FND_LOG.STRING(g_level_statement,
1974: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.BEGIN',
1975: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()+' );
1976: FND_LOG.STRING(g_level_statement,
1977: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1978: 'p_site_use_id: '||to_char(p_site_use_id));
1979: FND_LOG.STRING(g_level_statement,
1980: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1981: 'p_party_flag: '||p_party_flag);
1976: FND_LOG.STRING(g_level_statement,
1977: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1978: 'p_site_use_id: '||to_char(p_site_use_id));
1979: FND_LOG.STRING(g_level_statement,
1980: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1981: 'p_party_flag: '||p_party_flag);
1982: FND_LOG.STRING(g_level_statement,
1983: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1984: 'p_party_location_id: '||p_party_location_id);
1979: FND_LOG.STRING(g_level_statement,
1980: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1981: 'p_party_flag: '||p_party_flag);
1982: FND_LOG.STRING(g_level_statement,
1983: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1984: 'p_party_location_id: '||p_party_location_id);
1985: FND_LOG.STRING(g_level_statement,
1986: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1987: 'p_product: '||p_product);
1982: FND_LOG.STRING(g_level_statement,
1983: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1984: 'p_party_location_id: '||p_party_location_id);
1985: FND_LOG.STRING(g_level_statement,
1986: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
1987: 'p_product: '||p_product);
1988: END IF;
1989:
1990: l_tax_classification_code := NULL;
2007: END IF;
2008:
2009: IF (g_level_statement >= g_current_runtime_level ) THEN
2010: FND_LOG.STRING(g_level_statement,
2011: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
2012: 'Country code is : '||l_country);
2013: END IF;
2014:
2015: --
2026: END IF; -- Tax method is 'Sales Tax'?
2027:
2028: IF (g_level_statement >= g_current_runtime_level ) THEN
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
2031: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2032: FND_LOG.STRING(g_level_statement,
2033: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.END',
2034: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()-' );
2029: FND_LOG.STRING(g_level_statement,
2030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
2031: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2032: FND_LOG.STRING(g_level_statement,
2033: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.END',
2034: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()-' );
2035: END IF;
2036:
2037: RETURN (l_tax_classification_code);
2030: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
2031: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2032: FND_LOG.STRING(g_level_statement,
2033: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax.END',
2034: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_location_tax()-' );
2035: END IF;
2036:
2037: RETURN (l_tax_classification_code);
2038:
2044: FND_MSG_PUB.Add;
2045:
2046: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2047: FND_LOG.STRING(g_level_unexpected,
2048: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_location_tax',
2049: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2050: END IF;
2051:
2052: RAISE ;
2103:
2104: BEGIN
2105: IF (g_level_statement >= g_current_runtime_level ) THEN
2106: FND_LOG.STRING(g_level_statement,
2107: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax.BEGIN',
2108: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_natural_acct_tax(+)');
2109: END IF;
2110:
2111:
2104: BEGIN
2105: IF (g_level_statement >= g_current_runtime_level ) THEN
2106: FND_LOG.STRING(g_level_statement,
2107: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax.BEGIN',
2108: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_natural_acct_tax(+)');
2109: END IF;
2110:
2111:
2112: -- Get tax code from GL
2119: ,p_override_flag => l_dummy );
2120:
2121: IF (g_level_statement >= g_current_runtime_level ) THEN
2122: FND_LOG.STRING(g_level_statement,
2123: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2124: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2125: FND_LOG.STRING(g_level_statement,
2126: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2127: '>>> O : Override_flag = '||l_dummy);
2122: FND_LOG.STRING(g_level_statement,
2123: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2124: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2125: FND_LOG.STRING(g_level_statement,
2126: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2127: '>>> O : Override_flag = '||l_dummy);
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax.END',
2130: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_natural_acct_tax()-' );
2125: FND_LOG.STRING(g_level_statement,
2126: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2127: '>>> O : Override_flag = '||l_dummy);
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax.END',
2130: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_natural_acct_tax()-' );
2131: END IF;
2132:
2133: RETURN l_tax_classification_code;
2126: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2127: '>>> O : Override_flag = '||l_dummy);
2128: FND_LOG.STRING(g_level_statement,
2129: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax.END',
2130: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_natural_acct_tax()-' );
2131: END IF;
2132:
2133: RETURN l_tax_classification_code;
2134:
2140: FND_MSG_PUB.Add;
2141:
2142: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2143: FND_LOG.STRING(g_level_unexpected,
2144: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax',
2145: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2146: END IF;
2147: RAISE ;
2148:
2176: | and is valid for the set_of_books_id and trx_date. |
2177: | Override_flag: Y, If the GL setup allows override of tax code, else N.|
2178: | |
2179: | CALLED FROM |
2180: | ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_natural_acct_tax() |
2181: | ARP_PROCESS_TAX.Validate_tax_info() |
2182: | |
2183: | HISTORY |
2184: | 25-Jul-97 Mahesh Sabapathy Created. |
2206: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2207:
2208: IF (g_level_statement >= g_current_runtime_level ) THEN
2209: FND_LOG.STRING(g_level_statement,
2210: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info.BEGIN',
2211: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_gl_tax_info()+' );
2212: END IF;
2213:
2214: l_override_flag := NULL;
2207:
2208: IF (g_level_statement >= g_current_runtime_level ) THEN
2209: FND_LOG.STRING(g_level_statement,
2210: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info.BEGIN',
2211: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_gl_tax_info()+' );
2212: END IF;
2213:
2214: l_override_flag := NULL;
2215: l_tax_classification_code := NULL;
2270: End;';
2271:
2272: IF (g_level_statement >= g_current_runtime_level ) THEN
2273: FND_LOG.STRING(g_level_statement,
2274: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2275: '-- statement = '||statement);
2276: END IF;
2277:
2278: -- BugFix 936377
2285: p_check_override_only ;
2286:
2287: IF (g_level_statement >= g_current_runtime_level ) THEN
2288: FND_LOG.STRING(g_level_statement,
2289: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2290: 'l_tax_classification_code '||l_tax_classification_code);
2291: END IF;
2292:
2293: p_tax_classification_code := l_tax_classification_code;
2294: p_override_flag := l_override_flag;
2295:
2296: IF (g_level_statement >= g_current_runtime_level ) THEN
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2299: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2300: FND_LOG.STRING(g_level_statement,
2301: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2302: '>>> O : Override_flag = '||l_override_flag);
2297: FND_LOG.STRING(g_level_statement,
2298: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2299: '>>> O : Tax_classification_code = '||l_tax_classification_code);
2300: FND_LOG.STRING(g_level_statement,
2301: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2302: '>>> O : Override_flag = '||l_override_flag);
2303: FND_LOG.STRING(g_level_statement,
2304: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info.END',
2305: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_gl_tax_info()-' );
2300: FND_LOG.STRING(g_level_statement,
2301: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2302: '>>> O : Override_flag = '||l_override_flag);
2303: FND_LOG.STRING(g_level_statement,
2304: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info.END',
2305: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_gl_tax_info()-' );
2306: END IF;
2307:
2308: EXCEPTION
2301: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2302: '>>> O : Override_flag = '||l_override_flag);
2303: FND_LOG.STRING(g_level_statement,
2304: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info.END',
2305: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: get_gl_tax_info()-' );
2306: END IF;
2307:
2308: EXCEPTION
2309: WHEN OTHERS THEN
2313: FND_MSG_PUB.Add;
2314:
2315: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2316: FND_LOG.STRING(g_level_unexpected,
2317: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.get_gl_tax_info',
2318: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2319: END IF;
2320: RAISE;
2321:
2381: -- Get tax default Info
2382: --
2383: IF (g_level_statement >= g_current_runtime_level ) THEN
2384: FND_LOG.STRING(g_level_statement,
2385: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_tax_info.BEGIN',
2386: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_tax_info()+');
2387: END IF;
2388:
2389: -- init return status
2382: --
2383: IF (g_level_statement >= g_current_runtime_level ) THEN
2384: FND_LOG.STRING(g_level_statement,
2385: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_tax_info.BEGIN',
2386: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_tax_info()+');
2387: END IF;
2388:
2389: -- init return status
2390: p_return_status := FND_API.G_RET_STS_SUCCESS;
2449: p_return_status);
2450:
2451: IF (g_level_statement >= g_current_runtime_level ) THEN
2452: FND_LOG.STRING(g_level_statement,
2453: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_tax_info.END',
2454: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_tax_info()-');
2455: END IF;
2456:
2457: EXCEPTION
2450:
2451: IF (g_level_statement >= g_current_runtime_level ) THEN
2452: FND_LOG.STRING(g_level_statement,
2453: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_tax_info.END',
2454: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_tax_info()-');
2455: END IF;
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2466: FND_MSG_PUB.Add;
2467:
2468: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2469: FND_LOG.STRING(g_level_unexpected,
2470: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_tax_info',
2471: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2472: END IF;
2473: END pop_ar_tax_info;
2474:
2532: --
2533:
2534: IF (g_level_statement >= g_current_runtime_level ) THEN
2535: FND_LOG.STRING(g_level_statement,
2536: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_pa_tax_info.BEGIN',
2537: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_pa_tax_info()+');
2538: END IF;
2539:
2540: -- init return status
2533:
2534: IF (g_level_statement >= g_current_runtime_level ) THEN
2535: FND_LOG.STRING(g_level_statement,
2536: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_pa_tax_info.BEGIN',
2537: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_pa_tax_info()+');
2538: END IF;
2539:
2540: -- init return status
2541: p_return_status := FND_API.G_RET_STS_SUCCESS;
2601: p_return_status);
2602:
2603: IF (g_level_statement >= g_current_runtime_level ) THEN
2604: FND_LOG.STRING(g_level_statement,
2605: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_pa_tax_info.END',
2606: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_pa_tax_info()-');
2607: END IF;
2608:
2609: EXCEPTION
2602:
2603: IF (g_level_statement >= g_current_runtime_level ) THEN
2604: FND_LOG.STRING(g_level_statement,
2605: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_pa_tax_info.END',
2606: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_pa_tax_info()-');
2607: END IF;
2608:
2609: EXCEPTION
2610: WHEN OTHERS THEN
2618: FND_MSG_PUB.Add;
2619:
2620: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2621: FND_LOG.STRING(g_level_unexpected,
2622: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_pa_tax_info',
2623: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2624: END IF;
2625: END pop_pa_tax_info;
2626:
2656: -- Get default country Info
2657: --
2658: IF (g_level_statement >= g_current_runtime_level ) THEN
2659: FND_LOG.STRING(g_level_statement,
2660: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info.BEGIN',
2661: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_system_param_info()+');
2662: END IF;
2663:
2664: -- init return status
2657: --
2658: IF (g_level_statement >= g_current_runtime_level ) THEN
2659: FND_LOG.STRING(g_level_statement,
2660: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info.BEGIN',
2661: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_system_param_info()+');
2662: END IF;
2663:
2664: -- init return status
2665: p_return_status := FND_API.G_RET_STS_SUCCESS;
2673: CLOSE c_ar_system_param;
2674:
2675: IF (g_level_statement >= g_current_runtime_level ) THEN
2676: FND_LOG.STRING(g_level_statement,
2677: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info',
2678: 'default country: ' || sysinfo.sysparam.default_country);
2679: FND_LOG.STRING(g_level_statement,
2680: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info.END',
2681: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_system_param_info()-');
2676: FND_LOG.STRING(g_level_statement,
2677: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info',
2678: 'default country: ' || sysinfo.sysparam.default_country);
2679: FND_LOG.STRING(g_level_statement,
2680: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info.END',
2681: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_system_param_info()-');
2682: END IF;
2683:
2684: EXCEPTION
2677: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info',
2678: 'default country: ' || sysinfo.sysparam.default_country);
2679: FND_LOG.STRING(g_level_statement,
2680: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info.END',
2681: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: pop_ar_system_param_info()-');
2682: END IF;
2683:
2684: EXCEPTION
2685: WHEN OTHERS THEN
2693: FND_MSG_PUB.Add;
2694:
2695: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2696: FND_LOG.STRING(g_level_unexpected,
2697: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.pop_ar_system_param_info',
2698: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2699: END IF;
2700: END pop_ar_system_param_info;
2701:
2730: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2731:
2732: IF (g_level_statement >= g_current_runtime_level ) THEN
2733: FND_LOG.STRING(g_level_statement,
2734: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.Initialize.BEGIN',
2735: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: Initialize()+');
2736: END IF;
2737:
2738: sysinfo.pa_product_options_rec.ORG_ID := NULL;
2731:
2732: IF (g_level_statement >= g_current_runtime_level ) THEN
2733: FND_LOG.STRING(g_level_statement,
2734: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.Initialize.BEGIN',
2735: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: Initialize()+');
2736: END IF;
2737:
2738: sysinfo.pa_product_options_rec.ORG_ID := NULL;
2739: sysinfo.ar_product_options_rec.ORG_ID := NULL;
2751:
2752: if l_master_org_id is NULL then
2753: IF (g_level_procedure >= g_current_runtime_level ) THEN
2754: FND_LOG.STRING(g_level_procedure,
2755: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize',
2756: 'Error Getting OE MASTER_ORGANIZATION ID using mo_global.get_current_org_id');
2757: END IF;
2758: FND_MESSAGE.set_name('AR','AR_NO_OM_MASTER_ORG'); -- Bug 3151551
2759: APP_EXCEPTION.raise_exception;
2771: EXCEPTION
2772: WHEN OTHERS THEN
2773: FND_MESSAGE.SET_NAME('ZX','GENERIC_MESSAGE');
2774: FND_MESSAGE.SET_TOKEN('GENERIC_TEXT',
2775: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize- '||
2776: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2777: FND_MSG_PUB.Add;
2778:
2779: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2777: FND_MSG_PUB.Add;
2778:
2779: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2780: FND_LOG.STRING(g_level_unexpected,
2781: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize', 'Error Getting GL Natural Account Segment');
2782: FND_LOG.STRING(g_level_unexpected,
2783: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize',
2784: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2785: END IF;
2779: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2780: FND_LOG.STRING(g_level_unexpected,
2781: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize', 'Error Getting GL Natural Account Segment');
2782: FND_LOG.STRING(g_level_unexpected,
2783: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize',
2784: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2785: END IF;
2786:
2787: /******* Bug#4655710
2787: /******* Bug#4655710
2788: WHEN OTHERS THEN
2789: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2790: FND_LOG.STRING(g_level_unexpected,
2791: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize',
2792: 'Error Getting GL Natural Account Segment');
2793: END IF;
2794:
2795: RAISE;
2798: END;
2799:
2800: IF (g_level_statement >= g_current_runtime_level ) THEN
2801: FND_LOG.STRING(g_level_statement,
2802: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize.END',
2803: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: Initialize()-');
2804: END IF;
2805:
2806: END initialize;
2799:
2800: IF (g_level_statement >= g_current_runtime_level ) THEN
2801: FND_LOG.STRING(g_level_statement,
2802: 'ZX.PLSQL.ZX_AR_TAX_CLASSIFICATN_DEF_PKG.initialize.END',
2803: 'ZX_AR_TAX_CLASSIFICATN_DEF_PKG: Initialize()-');
2804: END IF;
2805:
2806: END initialize;
2807:
2825: BEGIN
2826:
2827: initialize;
2828:
2829: END ZX_AR_TAX_CLASSIFICATN_DEF_PKG;
2830: