[Home] [Help]
1: package body ZX_AP_TAX_CLASSIFICATN_DEF_PKG as
2: /* $Header: zxaptxclsdefpkgb.pls 120.19.12010000.2 2008/12/22 18:26:02 tsen ship $ */
3:
4: -- Declare Public Procedure
5: -- Initialize
66: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
67:
68: IF (g_level_statement >= g_current_runtime_level ) THEN
69: FND_LOG.STRING(g_level_statement,
70: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Initialize.BEGIN',
71: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: initialize(+)' );
72: END IF;
73:
74: open c_financial_params;
67:
68: IF (g_level_statement >= g_current_runtime_level ) THEN
69: FND_LOG.STRING(g_level_statement,
70: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Initialize.BEGIN',
71: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: initialize(+)' );
72: END IF;
73:
74: open c_financial_params;
75: -- Bug#4090842- no need to fetch org_id
78: close c_financial_params;
79:
80: IF (g_level_statement >= g_current_runtime_level ) THEN
81: FND_LOG.STRING(g_level_statement,
82: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.initialize',
83: 'chart_of_accounts_id =='||to_char(l_chart_of_accounts_id));
84: END IF;
85:
86: sysinfo.chart_of_accounts_id := l_chart_of_accounts_id;
93: sysinfo.cc_info.org_id := NULL; -- Bug 6510307
94:
95: IF (g_level_statement >= g_current_runtime_level ) THEN
96: FND_LOG.STRING(g_level_statement,
97: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Initialize.END',
98: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: initialize(-)' );
99: END IF;
100:
101: EXCEPTION
94:
95: IF (g_level_statement >= g_current_runtime_level ) THEN
96: FND_LOG.STRING(g_level_statement,
97: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Initialize.END',
98: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: initialize(-)' );
99: END IF;
100:
101: EXCEPTION
102: WHEN OTHERS THEN
109: FND_MSG_PUB.Add;
110:
111: IF (g_level_unexpected >= g_current_runtime_level ) THEN
112: FND_LOG.STRING(g_level_unexpected,
113: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.initialize',
114: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
115: END IF;
116: END Initialize;
117:
248: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
249:
250: IF (g_level_statement >= g_current_runtime_level ) THEN
251: FND_LOG.STRING(g_level_statement,
252: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
253:
254: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
255: END IF;
256:
250: IF (g_level_statement >= g_current_runtime_level ) THEN
251: FND_LOG.STRING(g_level_statement,
252: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
253:
254: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
255: END IF;
256:
257: --
258: -- set default value
258: -- set default value
259: --
260: Initialize; --Bug 5712279
261:
262: ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification(
263: -- p_line_location_id,
264: p_ref_doc_application_id,
265: p_ref_doc_entity_code,
266: p_ref_doc_event_class_code,
289: p_application_id,
290: p_internal_organization_id);
291: IF (g_level_statement >= g_current_runtime_level ) THEN
292: FND_LOG.STRING(g_level_statement,
293: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
294:
295: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
296: END IF;
297:
291: IF (g_level_statement >= g_current_runtime_level ) THEN
292: FND_LOG.STRING(g_level_statement,
293: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
294:
295: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
296: END IF;
297:
298: END get_default_tax_classification;
299:
333: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
334:
335: IF (g_level_statement >= g_current_runtime_level ) THEN
336: FND_LOG.STRING(g_level_statement,
337: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
338:
339: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
340: FND_LOG.STRING(g_level_statement,
341: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
335: IF (g_level_statement >= g_current_runtime_level ) THEN
336: FND_LOG.STRING(g_level_statement,
337: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
338:
339: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
340: FND_LOG.STRING(g_level_statement,
341: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
342:
343: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 1');
337: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
338:
339: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
340: FND_LOG.STRING(g_level_statement,
341: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
342:
343: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 1');
344:
345: END IF;
339: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
340: FND_LOG.STRING(g_level_statement,
341: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
342:
343: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 1');
344:
345: END IF;
346:
347: --
349: --
350:
351: Initialize; --Bug 5712279
352:
353: ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification(
354: p_ref_doc_application_id,
355: p_ref_doc_entity_code,
356: p_ref_doc_event_class_code,
357: p_ref_doc_trx_id,
379: p_application_id,
380: p_internal_organization_id);
381: IF (g_level_statement >= g_current_runtime_level ) THEN
382: FND_LOG.STRING(g_level_statement,
383: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
384:
385: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
386: END IF;
387:
381: IF (g_level_statement >= g_current_runtime_level ) THEN
382: FND_LOG.STRING(g_level_statement,
383: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
384:
385: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
386: END IF;
387:
388: END get_default_tax_classification;
389:
465: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
466:
467: IF (g_level_statement >= g_current_runtime_level ) THEN
468: FND_LOG.STRING(g_level_statement,
469: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
470: 'Get_Default_Tax_Classification(+) ');
471: -- FND_LOG.STRING(g_level_statement,
472: -- 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
473: -- 'p_line_location_id == >'||to_char(p_line_location_id ));
468: FND_LOG.STRING(g_level_statement,
469: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
470: 'Get_Default_Tax_Classification(+) ');
471: -- FND_LOG.STRING(g_level_statement,
472: -- 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
473: -- 'p_line_location_id == >'||to_char(p_line_location_id ));
474: FND_LOG.STRING(g_level_statement,
475: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
476: 'p_ref_doc_application_id == >'||TO_CHAR(p_ref_doc_application_id));
471: -- FND_LOG.STRING(g_level_statement,
472: -- 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
473: -- 'p_line_location_id == >'||to_char(p_line_location_id ));
474: FND_LOG.STRING(g_level_statement,
475: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
476: 'p_ref_doc_application_id == >'||TO_CHAR(p_ref_doc_application_id));
477: FND_LOG.STRING(g_level_statement,
478: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
479: 'p_ref_doc_entity_code == >'||p_ref_doc_entity_code);
474: FND_LOG.STRING(g_level_statement,
475: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
476: 'p_ref_doc_application_id == >'||TO_CHAR(p_ref_doc_application_id));
477: FND_LOG.STRING(g_level_statement,
478: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
479: 'p_ref_doc_entity_code == >'||p_ref_doc_entity_code);
480: FND_LOG.STRING(g_level_statement,
481: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
482: 'p_ref_doc_event_class_code == >'||p_ref_doc_event_class_code);
477: FND_LOG.STRING(g_level_statement,
478: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
479: 'p_ref_doc_entity_code == >'||p_ref_doc_entity_code);
480: FND_LOG.STRING(g_level_statement,
481: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
482: 'p_ref_doc_event_class_code == >'||p_ref_doc_event_class_code);
483: FND_LOG.STRING(g_level_statement,
484: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
485: 'p_ref_doc_trx_id == >'||TO_CHAR(p_ref_doc_trx_id));
480: FND_LOG.STRING(g_level_statement,
481: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
482: 'p_ref_doc_event_class_code == >'||p_ref_doc_event_class_code);
483: FND_LOG.STRING(g_level_statement,
484: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
485: 'p_ref_doc_trx_id == >'||TO_CHAR(p_ref_doc_trx_id));
486: FND_LOG.STRING(g_level_statement,
487: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
488: 'p_ref_doc_line_id == >'||TO_CHAR(p_ref_doc_line_id));
483: FND_LOG.STRING(g_level_statement,
484: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
485: 'p_ref_doc_trx_id == >'||TO_CHAR(p_ref_doc_trx_id));
486: FND_LOG.STRING(g_level_statement,
487: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
488: 'p_ref_doc_line_id == >'||TO_CHAR(p_ref_doc_line_id));
489: FND_LOG.STRING(g_level_statement,
490: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
491: 'p_ref_doc_trx_level_type == >'||p_ref_doc_trx_level_type);
486: FND_LOG.STRING(g_level_statement,
487: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
488: 'p_ref_doc_line_id == >'||TO_CHAR(p_ref_doc_line_id));
489: FND_LOG.STRING(g_level_statement,
490: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
491: 'p_ref_doc_trx_level_type == >'||p_ref_doc_trx_level_type);
492: FND_LOG.STRING(g_level_statement,
493: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
494: 'p_vendor_id == >' ||to_char(p_vendor_id ));
489: FND_LOG.STRING(g_level_statement,
490: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
491: 'p_ref_doc_trx_level_type == >'||p_ref_doc_trx_level_type);
492: FND_LOG.STRING(g_level_statement,
493: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
494: 'p_vendor_id == >' ||to_char(p_vendor_id ));
495: FND_LOG.STRING(g_level_statement,
496: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
497: 'p_vendor_site_id == >' ||to_char(p_vendor_site_id ));
492: FND_LOG.STRING(g_level_statement,
493: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
494: 'p_vendor_id == >' ||to_char(p_vendor_id ));
495: FND_LOG.STRING(g_level_statement,
496: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
497: 'p_vendor_site_id == >' ||to_char(p_vendor_site_id ));
498: FND_LOG.STRING(g_level_statement,
499: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
500: 'p_code_combination_id = >'||to_char(p_code_combination_id) );
495: FND_LOG.STRING(g_level_statement,
496: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
497: 'p_vendor_site_id == >' ||to_char(p_vendor_site_id ));
498: FND_LOG.STRING(g_level_statement,
499: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
500: 'p_code_combination_id = >'||to_char(p_code_combination_id) );
501: FND_LOG.STRING(g_level_statement,
502: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
503: 'p_concatenated_segments== >'||p_concatenated_segments );
498: FND_LOG.STRING(g_level_statement,
499: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
500: 'p_code_combination_id = >'||to_char(p_code_combination_id) );
501: FND_LOG.STRING(g_level_statement,
502: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
503: 'p_concatenated_segments== >'||p_concatenated_segments );
504: FND_LOG.STRING(g_level_statement,
505: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
506: 'p_templ_tax_classification_cd == >'||
501: FND_LOG.STRING(g_level_statement,
502: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
503: 'p_concatenated_segments== >'||p_concatenated_segments );
504: FND_LOG.STRING(g_level_statement,
505: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
506: 'p_templ_tax_classification_cd == >'||
507: p_templ_tax_classification_cd);
508: FND_LOG.STRING(g_level_statement,
509: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
505: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
506: 'p_templ_tax_classification_cd == >'||
507: p_templ_tax_classification_cd);
508: FND_LOG.STRING(g_level_statement,
509: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
510: 'p_ship_to_location_id == >'||to_char(p_ship_to_location_id) );
511: FND_LOG.STRING(g_level_statement,
512: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
513: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id) );
508: FND_LOG.STRING(g_level_statement,
509: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
510: 'p_ship_to_location_id == >'||to_char(p_ship_to_location_id) );
511: FND_LOG.STRING(g_level_statement,
512: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
513: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id) );
514: FND_LOG.STRING(g_level_statement,
515: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
516: 'p_inventory_item_id == >'||to_char(p_inventory_item_id) );
511: FND_LOG.STRING(g_level_statement,
512: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
513: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id) );
514: FND_LOG.STRING(g_level_statement,
515: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
516: 'p_inventory_item_id == >'||to_char(p_inventory_item_id) );
517: FND_LOG.STRING(g_level_statement,
518: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
519: 'p_item_org_id == >' ||to_char( p_item_org_id));
514: FND_LOG.STRING(g_level_statement,
515: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
516: 'p_inventory_item_id == >'||to_char(p_inventory_item_id) );
517: FND_LOG.STRING(g_level_statement,
518: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
519: 'p_item_org_id == >' ||to_char( p_item_org_id));
520: FND_LOG.STRING(g_level_statement,
521: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
522: 'p_tax_classification_code == >' ||p_tax_classification_code);
517: FND_LOG.STRING(g_level_statement,
518: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
519: 'p_item_org_id == >' ||to_char( p_item_org_id));
520: FND_LOG.STRING(g_level_statement,
521: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
522: 'p_tax_classification_code == >' ||p_tax_classification_code);
523: FND_LOG.STRING(g_level_statement,
524: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
525: 'p_allow_tax_code_override_flag ==>'|| p_allow_tax_code_override_flag);
520: FND_LOG.STRING(g_level_statement,
521: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
522: 'p_tax_classification_code == >' ||p_tax_classification_code);
523: FND_LOG.STRING(g_level_statement,
524: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
525: 'p_allow_tax_code_override_flag ==>'|| p_allow_tax_code_override_flag);
526: FND_LOG.STRING(g_level_statement,
527: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
528: 'p_tax_user_override_flag ==>'||p_tax_user_override_flag);
523: FND_LOG.STRING(g_level_statement,
524: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
525: 'p_allow_tax_code_override_flag ==>'|| p_allow_tax_code_override_flag);
526: FND_LOG.STRING(g_level_statement,
527: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
528: 'p_tax_user_override_flag ==>'||p_tax_user_override_flag);
529: FND_LOG.STRING(g_level_statement,
530: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
531: 'p_user_tax_name ==>'||p_user_tax_name);
526: FND_LOG.STRING(g_level_statement,
527: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
528: 'p_tax_user_override_flag ==>'||p_tax_user_override_flag);
529: FND_LOG.STRING(g_level_statement,
530: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
531: 'p_user_tax_name ==>'||p_user_tax_name);
532: FND_LOG.STRING(g_level_statement,
533: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
534: 'p_legal_entity_id ==>'||TO_CHAR(p_legal_entity_id));
529: FND_LOG.STRING(g_level_statement,
530: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
531: 'p_user_tax_name ==>'||p_user_tax_name);
532: FND_LOG.STRING(g_level_statement,
533: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
534: 'p_legal_entity_id ==>'||TO_CHAR(p_legal_entity_id));
535:
536: FND_LOG.STRING(g_level_statement,
537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
533: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
534: 'p_legal_entity_id ==>'||TO_CHAR(p_legal_entity_id));
535:
536: FND_LOG.STRING(g_level_statement,
537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
538: 'APPL_SHORT_NAME == >'||APPL_SHORT_NAME );
539: FND_LOG.STRING(g_level_statement,
540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
541: 'FUNC_SHORT_NAME == >'||FUNC_SHORT_NAME );
536: FND_LOG.STRING(g_level_statement,
537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
538: 'APPL_SHORT_NAME == >'||APPL_SHORT_NAME );
539: FND_LOG.STRING(g_level_statement,
540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
541: 'FUNC_SHORT_NAME == >'||FUNC_SHORT_NAME );
542: FND_LOG.STRING(g_level_statement,
543: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
544: 'p_calling_sequence == >'||p_calling_sequence );
539: FND_LOG.STRING(g_level_statement,
540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
541: 'FUNC_SHORT_NAME == >'||FUNC_SHORT_NAME );
542: FND_LOG.STRING(g_level_statement,
543: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
544: 'p_calling_sequence == >'||p_calling_sequence );
545: FND_LOG.STRING(g_level_statement,
546: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
547: 'p_event_class_code == >'||p_event_class_code );
542: FND_LOG.STRING(g_level_statement,
543: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
544: 'p_calling_sequence == >'||p_calling_sequence );
545: FND_LOG.STRING(g_level_statement,
546: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
547: 'p_event_class_code == >'||p_event_class_code );
548: FND_LOG.STRING(g_level_statement,
549: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
550: 'p_entity_code == >'||p_entity_code );
545: FND_LOG.STRING(g_level_statement,
546: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
547: 'p_event_class_code == >'||p_event_class_code );
548: FND_LOG.STRING(g_level_statement,
549: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
550: 'p_entity_code == >'||p_entity_code );
551: FND_LOG.STRING(g_level_statement,
552: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
553: 'p_application_id == >'||TO_CHAR(p_application_id));
548: FND_LOG.STRING(g_level_statement,
549: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
550: 'p_entity_code == >'||p_entity_code );
551: FND_LOG.STRING(g_level_statement,
552: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
553: 'p_application_id == >'||TO_CHAR(p_application_id));
554: FND_LOG.STRING(g_level_statement,
555: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
556: 'p_internal_organization_id == >'||TO_CHAR(p_internal_organization_id));
551: FND_LOG.STRING(g_level_statement,
552: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
553: 'p_application_id == >'||TO_CHAR(p_application_id));
554: FND_LOG.STRING(g_level_statement,
555: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
556: 'p_internal_organization_id == >'||TO_CHAR(p_internal_organization_id));
557:
558: END IF;
559:
603: l_tax_classification_found := FALSE;
604:
605: debug_loc := 'Get_Default_Tax_Classification';
606:
607: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
608:
609: --
610: -- Get Payables/Purchasing default tax code.
611: -- Hierarchy for PO: Ship-to Location, Item, Vendor, Vendor Site and System.
669: END IF;
670:
671: IF (g_level_statement >= g_current_runtime_level ) THEN
672: FND_LOG.STRING(g_level_statement,
673: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
674: 'l_tax_classification_code is found =='||l_tax_classification_code);
675: END IF;
676:
677: IF (l_tax_classification_found = FALSE) THEN
679: IF (search_ap_def_hier = TRUE) THEN
680:
681: IF (g_level_statement >= g_current_runtime_level ) THEN
682: FND_LOG.STRING(g_level_statement,
683: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
684: 'Getting Event Class Options');
685: END IF;
686:
687: -- open c_evnt_cls_options (to_number(substrb(userenv('CLIENT_INFO'),1,10)),
695: close c_evnt_cls_options;
696:
697: IF (g_level_statement >= g_current_runtime_level ) THEN
698: FND_LOG.STRING(g_level_statement,
699: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
700: 'Entity Code:' || p_entity_code);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
703: 'Event Class Code:' || p_event_class_code);
698: FND_LOG.STRING(g_level_statement,
699: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
700: 'Entity Code:' || p_entity_code);
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
703: 'Event Class Code:' || p_event_class_code);
704: FND_LOG.STRING(g_level_statement,
705: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
706: 'Enforce Tax From Account =='
701: FND_LOG.STRING(g_level_statement,
702: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
703: 'Event Class Code:' || p_event_class_code);
704: FND_LOG.STRING(g_level_statement,
705: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
706: 'Enforce Tax From Account =='
707: || l_enforce_tax_from_acct_flag);
708:
709: FND_LOG.STRING(g_level_statement,
706: 'Enforce Tax From Account =='
707: || l_enforce_tax_from_acct_flag);
708:
709: FND_LOG.STRING(g_level_statement,
710: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
711: 'Getting tax code for AP ');
712: END IF;
713:
714: IF (l_enforce_tax_from_refdoc_flag = 'Y') THEN
718: -- precedence over the rest of the hierarchy.
719:
720: IF (g_level_statement >= g_current_runtime_level ) THEN
721: FND_LOG.STRING(g_level_statement,
722: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
723: 'Matching is enforced');
724: END IF;
725:
726: /*
735: where line_location_id = p_line_location_id ;
736:
737: IF (g_level_statement >= g_current_runtime_level ) THEN
738: FND_LOG.STRING(g_level_statement,
739: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
740: ' l_shipment_taxable_flag is ' || l_shipment_taxable_flag );
741: END IF;
742: If (l_shipment_taxable_flag = 'Y' ) then
743: IF (g_level_statement >= g_current_runtime_level ) THEN
741: END IF;
742: If (l_shipment_taxable_flag = 'Y' ) then
743: IF (g_level_statement >= g_current_runtime_level ) THEN
744: FND_LOG.STRING(g_level_statement,
745: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
746: 'Calling get_po_shipment tax ' );
747: END IF;
748: l_tax_classification_code := get_input_tax_classif_code (p_line_location_id,
749: l_curr_calling_sequence);
774: -- Tax found on PO shipment, do not search further
775: l_enforced_tax_found := TRUE;
776: IF (g_level_statement >= g_current_runtime_level ) THEN
777: FND_LOG.STRING(g_level_statement,
778: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
779: 'l_tax_classification_code =='||l_tax_classification_code );
780: END IF;
781: END IF;
782: ELSIF (l_enforce_tax_from_acct_flag = 'Y') THEN
788: -- This includes both Input and Non-taxable accounts.
789:
790: IF (g_level_statement >= g_current_runtime_level ) THEN
791: FND_LOG.STRING(g_level_statement,
792: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
793: 'Tax from account is enforced');
794: FND_LOG.STRING(g_level_statement,
795: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
796: ' Calling get_account_tax ');
791: FND_LOG.STRING(g_level_statement,
792: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
793: 'Tax from account is enforced');
794: FND_LOG.STRING(g_level_statement,
795: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
796: ' Calling get_account_tax ');
797: END IF;
798: get_account_tax (p_code_combination_id,
799: p_concatenated_segments,
803: l_curr_calling_sequence);
804: l_tax_classification_code := p_tax_classification_code;
805: IF (g_level_statement >= g_current_runtime_level ) THEN
806: FND_LOG.STRING(g_level_statement,
807: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
808: 'l_tax_classification_code =='||l_tax_classification_code);
809: END IF;
810: IF (p_allow_tax_code_override_flag = 'N') THEN
811: -- Override is not allowed, do not search further
835:
836: IF (aptaxtab (i) = 'REFERENCE_DOCUMENT') THEN
837: IF (g_level_statement >= g_current_runtime_level ) THEN
838: FND_LOG.STRING(g_level_statement,
839: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
840: 'Getting tax code from shipment');
841: FND_LOG.STRING(g_level_statement,
842: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
843: 'Calling get_input_tax_classif_code ');
838: FND_LOG.STRING(g_level_statement,
839: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
840: 'Getting tax code from shipment');
841: FND_LOG.STRING(g_level_statement,
842: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
843: 'Calling get_input_tax_classif_code ');
844: END IF;
845: l_tax_classification_code := get_input_tax_classif_code (
846: p_ref_doc_application_id,
854: IF (l_tax_classification_code is not NULL) THEN
855: l_tax_classification_found := TRUE;
856: IF (g_level_statement >= g_current_runtime_level ) THEN
857: FND_LOG.STRING(g_level_statement,
858: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
859: 'l_tax_classification_code =='
860: ||l_tax_classification_code);
861: END IF;
862: exit Ap_Tax_Loop;
865:
866: IF (aptaxtab (i) = 'SHIP_FROM_PARTY_SITE') THEN
867: IF (g_level_statement >= g_current_runtime_level ) THEN
868: FND_LOG.STRING(g_level_statement,
869: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
870: 'Getting tax code from supplier site');
871: END IF;
872: l_tax_classification_code := get_site_tax (
873: p_vendor_site_id,
875: IF (l_tax_classification_code is not NULL) THEN
876: l_tax_classification_found := TRUE;
877: IF (g_level_statement >= g_current_runtime_level ) THEN
878: FND_LOG.STRING(g_level_statement,
879: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
880: 'l_tax_classification_code =='
881: ||l_tax_classification_code);
882: END IF;
883: exit Ap_Tax_Loop;
886:
887: IF (aptaxtab (i) = 'SHIP_FROM_PARTY') THEN
888: IF (g_level_statement >= g_current_runtime_level ) THEN
889: FND_LOG.STRING(g_level_statement,
890: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
891: 'Getting tax code from supplier');
892: END IF;
893: l_tax_classification_code := get_vendor_tax (
894: p_vendor_id,
896: IF (l_tax_classification_code is not NULL) THEN
897: l_tax_classification_found := TRUE;
898: IF (g_level_statement >= g_current_runtime_level ) THEN
899: FND_LOG.STRING(g_level_statement,
900: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
901: 'l_tax_classification_code =='
902: ||l_tax_classification_code);
903: END IF;
904: exit Ap_Tax_Loop;
907:
908: IF (aptaxtab (i) = 'NATURAL_ACCOUNT') THEN
909: IF (g_level_statement >= g_current_runtime_level ) THEN
910: FND_LOG.STRING(g_level_statement,
911: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
912: 'Getting tax code from account');
913: END IF;
914: get_account_tax (p_code_combination_id,
915: p_concatenated_segments,
919: l_curr_calling_sequence);
920: l_tax_classification_code := p_tax_classification_code;
921: IF (g_level_statement >= g_current_runtime_level ) THEN
922: FND_LOG.STRING(g_level_statement,
923: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
924: 'l_tax_classification_code =='
925: ||l_tax_classification_code);
926: END IF;
927: IF (l_tax_classification_found = TRUE) THEN
926: END IF;
927: IF (l_tax_classification_found = TRUE) THEN
928: IF (g_level_statement >= g_current_runtime_level ) THEN
929: FND_LOG.STRING(g_level_statement,
930: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
931: 'l_tax_classification_code is Found =='
932: ||l_tax_classification_code);
933: END IF;
934: exit Ap_Tax_Loop;
937:
938: IF (aptaxtab (i) = 'FINANCIAL_OPTIONS') THEN
939: IF (g_level_statement >= g_current_runtime_level ) THEN
940: FND_LOG.STRING(g_level_statement,
941: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
942: 'Getting tax code from financial system parameters');
943: FND_LOG.STRING(g_level_statement,
944: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
945: 'sysinfo.vat_code =='
940: FND_LOG.STRING(g_level_statement,
941: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
942: 'Getting tax code from financial system parameters');
943: FND_LOG.STRING(g_level_statement,
944: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
945: 'sysinfo.vat_code =='
946: ||sysinfo.ap_info.tax_classification_code );
947: END IF;
948: l_tax_classification_code := sysinfo.ap_info.tax_classification_code;
949: IF (l_tax_classification_code is not NULL) THEN
950: l_tax_classification_found := TRUE;
951: IF (g_level_statement >= g_current_runtime_level ) THEN
952: FND_LOG.STRING(g_level_statement,
953: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
954: 'l_tax_classification_code =='
955: ||l_tax_classification_code);
956: END IF;
957: exit Ap_Tax_Loop;
960:
961: IF (aptaxtab (i) = 'TEMPLATE') THEN
962: IF (g_level_statement >= g_current_runtime_level ) THEN
963: FND_LOG.STRING(g_level_statement,
964: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
965: 'Getting tax code from template');
966: END IF;
967: -- If the API has been called from a form or process
968: -- where a template is being used, then we should always
983: l_tax_classification_code := p_templ_tax_classification_cd;
984: l_tax_classification_found := TRUE;
985: IF (g_level_statement >= g_current_runtime_level ) THEN
986: FND_LOG.STRING(g_level_statement,
987: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
988: 'l_tax_classification_code =='
989: ||l_tax_classification_code);
990: END IF;
991: exit Ap_Tax_Loop;
1000: IF (search_po_def_hier = TRUE) THEN
1001:
1002: IF (g_level_statement >= g_current_runtime_level ) THEN
1003: FND_LOG.STRING(g_level_statement,
1004: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1005: 'Getting tax code for PO');
1006: END IF;
1007:
1008: l_count := potaxtab.COUNT;
1021: -- potaxtab (i) is not NULL
1022: IF (potaxtab (i) = 'SHIP_TO_LOCATION') THEN
1023: IF (g_level_statement >= g_current_runtime_level ) THEN
1024: FND_LOG.STRING(g_level_statement,
1025: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1026: ' Calling get_ship_to_location_tax ');
1027: END IF;
1028:
1029: l_tax_classification_code :=
1034: IF (l_tax_classification_code is not NULL) THEN
1035: l_tax_classification_found := TRUE;
1036: IF (g_level_statement >= g_current_runtime_level ) THEN
1037: FND_LOG.STRING(g_level_statement,
1038: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1039: 'l_tax_classification_code =='
1040: ||l_tax_classification_code);
1041: END IF;
1042: exit Po_Tax_Loop;
1045:
1046: IF (potaxtab (i) = 'ITEM') THEN
1047: IF (g_level_statement >= g_current_runtime_level ) THEN
1048: FND_LOG.STRING(g_level_statement,
1049: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1050: 'Getting tax code from item');
1051: FND_LOG.STRING(g_level_statement,
1052: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1053: 'Calling get_item_tax ');
1048: FND_LOG.STRING(g_level_statement,
1049: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1050: 'Getting tax code from item');
1051: FND_LOG.STRING(g_level_statement,
1052: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1053: 'Calling get_item_tax ');
1054: END IF;
1055: l_tax_classification_code := get_item_tax (p_inventory_item_id,
1056: p_ship_to_loc_org_id,
1069: --the tax code defaulting PKG should not look further to the next hierarchy
1070: --even a null tax code is returned.
1071: IF (g_level_statement >= g_current_runtime_level ) THEN
1072: FND_LOG.STRING(g_level_statement,
1073: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1074: 'l_item_taxable_flag = ' || l_item_taxable_flag );
1075: END IF;
1076:
1077: IF (l_item_taxable_flag = 'N' or l_tax_classification_code is not null) THEN
1077: IF (l_item_taxable_flag = 'N' or l_tax_classification_code is not null) THEN
1078: l_tax_classification_found := TRUE;
1079: IF (g_level_statement >= g_current_runtime_level ) THEN
1080: FND_LOG.STRING(g_level_statement,
1081: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1082: 'l_tax_classification_code =='||l_tax_classification_code);
1083: END IF;
1084: exit Po_Tax_Loop;
1085: END IF;
1087:
1088: IF (potaxtab (i) = 'SHIP_FROM_PARTY_SITE') THEN
1089: IF (g_level_statement >= g_current_runtime_level ) THEN
1090: FND_LOG.STRING(g_level_statement,
1091: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1092: 'Getting tax code from supplier site');
1093: FND_LOG.STRING(g_level_statement,
1094: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1095: 'Calling get_site_tax ');
1090: FND_LOG.STRING(g_level_statement,
1091: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1092: 'Getting tax code from supplier site');
1093: FND_LOG.STRING(g_level_statement,
1094: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1095: 'Calling get_site_tax ');
1096: END IF;
1097: l_tax_classification_code := get_site_tax (
1098: p_vendor_site_id,
1100: IF (l_tax_classification_code is not NULL) THEN
1101: l_tax_classification_found := TRUE;
1102: IF (g_level_statement >= g_current_runtime_level ) THEN
1103: FND_LOG.STRING(g_level_statement,
1104: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1105: 'l_tax_classification_code =='||l_tax_classification_code);
1106: END IF;
1107: exit Po_Tax_Loop;
1108: END IF;
1110:
1111: IF (potaxtab (i) = 'SHIP_FROM_PARTY') THEN
1112: IF (g_level_statement >= g_current_runtime_level ) THEN
1113: FND_LOG.STRING(g_level_statement,
1114: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1115: 'Getting tax code from supplier');
1116: FND_LOG.STRING(g_level_statement,
1117: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1118: 'Calling get_vendor_tax ');
1113: FND_LOG.STRING(g_level_statement,
1114: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1115: 'Getting tax code from supplier');
1116: FND_LOG.STRING(g_level_statement,
1117: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1118: 'Calling get_vendor_tax ');
1119: END IF;
1120: l_tax_classification_code := get_vendor_tax (
1121: p_vendor_id,
1123: IF (l_tax_classification_code is not NULL) THEN
1124: l_tax_classification_found := TRUE;
1125: IF (g_level_statement >= g_current_runtime_level ) THEN
1126: FND_LOG.STRING(g_level_statement,
1127: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1128: 'l_tax_classification_code =='||l_tax_classification_code);
1129: END IF;
1130: exit Po_Tax_Loop;
1131: END IF;
1133:
1134: IF (potaxtab (i) = 'FINANCIAL_OPTIONS') THEN
1135: IF (g_level_statement >= g_current_runtime_level ) THEN
1136: FND_LOG.STRING(g_level_statement,
1137: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1138: 'Getting tax code from financial system parameters');
1139: FND_LOG.STRING(g_level_statement,
1140: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1141: 'sysinfo.po_info.tax_classification_code =='
1136: FND_LOG.STRING(g_level_statement,
1137: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1138: 'Getting tax code from financial system parameters');
1139: FND_LOG.STRING(g_level_statement,
1140: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1141: 'sysinfo.po_info.tax_classification_code =='
1142: ||sysinfo.po_info.tax_classification_code);
1143: END IF;
1144: l_tax_classification_code := sysinfo.po_info.tax_classification_code;
1145: IF (l_tax_classification_code is not NULL) THEN
1146: l_tax_classification_found := TRUE;
1147: IF (g_level_statement >= g_current_runtime_level ) THEN
1148: FND_LOG.STRING(g_level_statement,
1149: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1150: 'l_tax_classification_code =='||l_tax_classification_code);
1151: END IF;
1152: exit Po_Tax_Loop;
1153: END IF;
1161: IF (search_cc_def_hier = TRUE) THEN
1162:
1163: IF (g_level_statement >= g_current_runtime_level ) THEN
1164: FND_LOG.STRING(g_level_statement,
1165: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1166: 'Getting tax code for CC');
1167: END IF;
1168:
1169: l_count := cctaxtab.COUNT;
1182: -- cctaxtab (i) is not NULL
1183: IF (cctaxtab (i) = 'SHIP_FROM_PARTY_SITE') THEN
1184: IF (g_level_statement >= g_current_runtime_level ) THEN
1185: FND_LOG.STRING(g_level_statement,
1186: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1187: 'Getting tax code from supplier site');
1188: END IF;
1189: l_tax_classification_code := get_site_tax (
1190: p_vendor_site_id,
1192: IF (l_tax_classification_code is not NULL) THEN
1193: l_tax_classification_found := TRUE;
1194: IF (g_level_statement >= g_current_runtime_level ) THEN
1195: FND_LOG.STRING(g_level_statement,
1196: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1197: 'l_tax_classification_code =='
1198: ||l_tax_classification_code);
1199: END IF;
1200: exit Cc_Tax_Loop;
1203:
1204: IF (cctaxtab (i) = 'SHIP_FROM_PARTY') THEN
1205: IF (g_level_statement >= g_current_runtime_level ) THEN
1206: FND_LOG.STRING(g_level_statement,
1207: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1208: 'Getting tax code from supplier');
1209: END IF;
1210: l_tax_classification_code := get_vendor_tax (
1211: p_vendor_id,
1213: IF (l_tax_classification_code is not NULL) THEN
1214: l_tax_classification_found := TRUE;
1215: IF (g_level_statement >= g_current_runtime_level ) THEN
1216: FND_LOG.STRING(g_level_statement,
1217: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1218: 'l_tax_classification_code =='
1219: ||l_tax_classification_code);
1220: END IF;
1221: exit Cc_Tax_Loop;
1224:
1225: IF (cctaxtab (i) = 'FINANCIAL_OPTIONS') THEN
1226: IF (g_level_statement >= g_current_runtime_level ) THEN
1227: FND_LOG.STRING(g_level_statement,
1228: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1229: 'Getting tax code from financial system parameters');
1230: FND_LOG.STRING(g_level_statement,
1231: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1232: 'sysinfo.vat_code =='
1227: FND_LOG.STRING(g_level_statement,
1228: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1229: 'Getting tax code from financial system parameters');
1230: FND_LOG.STRING(g_level_statement,
1231: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1232: 'sysinfo.vat_code =='
1233: ||sysinfo.cc_info.tax_classification_code );
1234: END IF;
1235: l_tax_classification_code := sysinfo.cc_info.tax_classification_code;
1236: IF (l_tax_classification_code is not NULL) THEN
1237: l_tax_classification_found := TRUE;
1238: IF (g_level_statement >= g_current_runtime_level ) THEN
1239: FND_LOG.STRING(g_level_statement,
1240: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1241: 'l_tax_classification_code =='
1242: ||l_tax_classification_code);
1243: END IF;
1244: exit Cc_Tax_Loop;
1252: END IF; -- tax_code_found
1253:
1254: IF (g_level_statement >= g_current_runtime_level ) THEN
1255: FND_LOG.STRING(g_level_statement,
1256: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1257: 'After Po_Tax_Loop ,l_tax_classification_code =='
1258: ||l_tax_classification_code);
1259: END IF;
1260:
1260:
1261: IF (nvl (p_tax_user_override_flag, 'N') <> 'Y') THEN
1262: IF (g_level_statement >= g_current_runtime_level ) THEN
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1265: 'p_tax_user_override_flag =='||p_tax_user_override_flag);
1266: FND_LOG.STRING(g_level_statement,
1267: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1268: 'l_tax_classification_code =='||l_tax_classification_code);
1263: FND_LOG.STRING(g_level_statement,
1264: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1265: 'p_tax_user_override_flag =='||p_tax_user_override_flag);
1266: FND_LOG.STRING(g_level_statement,
1267: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1268: 'l_tax_classification_code =='||l_tax_classification_code);
1269: END IF;
1270: IF (l_tax_classification_code is not null) THEN
1271: p_tax_classification_code := l_tax_classification_code;
1272: END IF;
1273: END IF;
1274: IF (g_level_statement >= g_current_runtime_level ) THEN
1275: FND_LOG.STRING(g_level_statement,
1276: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1277: 'p_tax_classification_code =='||p_tax_classification_code);
1278: FND_LOG.STRING(g_level_statement,
1279: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1280: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
1275: FND_LOG.STRING(g_level_statement,
1276: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1277: 'p_tax_classification_code =='||p_tax_classification_code);
1278: FND_LOG.STRING(g_level_statement,
1279: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1280: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
1281: END IF;
1282:
1283: EXCEPTION
1276: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1277: 'p_tax_classification_code =='||p_tax_classification_code);
1278: FND_LOG.STRING(g_level_statement,
1279: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1280: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
1281: END IF;
1282:
1283: EXCEPTION
1284: WHEN NO_DATA_FOUND THEN
1283: EXCEPTION
1284: WHEN NO_DATA_FOUND THEN
1285: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1286: FND_LOG.STRING(g_level_unexpected,
1287: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1288: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80) );
1289: END IF;
1290: IF (l_tax_classification_found = FALSE ) THEN
1291: RAISE NO_DATA_FOUND;
1293: WHEN OTHERS THEN
1294: IF (SQLCODE <> -20001) THEN
1295: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1296: FND_LOG.STRING(g_level_unexpected,
1297: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1298: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80) );
1299: END IF;
1300: IF (appl_short_name = 'SQLAP') THEN
1301: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1403: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1404:
1405: IF (g_level_statement >= g_current_runtime_level ) THEN
1406: FND_LOG.STRING(g_level_statement,
1407: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
1408:
1409: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
1410: FND_LOG.STRING(g_level_statement,
1411: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1405: IF (g_level_statement >= g_current_runtime_level ) THEN
1406: FND_LOG.STRING(g_level_statement,
1407: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
1408:
1409: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
1410: FND_LOG.STRING(g_level_statement,
1411: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1412:
1413: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 2');
1407: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.BEGIN',
1408:
1409: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
1410: FND_LOG.STRING(g_level_statement,
1411: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1412:
1413: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 2');
1414:
1415: END IF;
1409: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (+)');
1410: FND_LOG.STRING(g_level_statement,
1411: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification',
1412:
1413: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: overloaded version 2');
1414:
1415: END IF;
1416: Initialize; --Bug 5712279
1417: --
1417: --
1418: -- set default value
1419: --
1420:
1421: ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification(
1422: p_ref_doc_application_id,
1423: p_ref_doc_entity_code,
1424: p_ref_doc_event_class_code,
1425: p_ref_doc_trx_id,
1447: p_application_id,
1448: p_internal_organization_id);
1449: IF (g_level_statement >= g_current_runtime_level ) THEN
1450: FND_LOG.STRING(g_level_statement,
1451: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1452:
1453: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
1454: END IF;
1455:
1449: IF (g_level_statement >= g_current_runtime_level ) THEN
1450: FND_LOG.STRING(g_level_statement,
1451: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification.END',
1452:
1453: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_default_tax_classification (-)');
1454: END IF;
1455:
1456: END get_default_tax_classification;
1457:
1533: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1534:
1535: IF (g_level_statement >= g_current_runtime_level ) THEN
1536: FND_LOG.STRING(g_level_statement,
1537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.BEGIN',
1538: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_input_tax_classif_code (+)');
1539: FND_LOG.STRING(g_level_statement,
1540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1541:
1534:
1535: IF (g_level_statement >= g_current_runtime_level ) THEN
1536: FND_LOG.STRING(g_level_statement,
1537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.BEGIN',
1538: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_input_tax_classif_code (+)');
1539: FND_LOG.STRING(g_level_statement,
1540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1541:
1542: 'p_calling_sequence == >'||p_calling_sequence);
1536: FND_LOG.STRING(g_level_statement,
1537: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.BEGIN',
1538: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_input_tax_classif_code (+)');
1539: FND_LOG.STRING(g_level_statement,
1540: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1541:
1542: 'p_calling_sequence == >'||p_calling_sequence);
1543: END IF;
1544:
1542: 'p_calling_sequence == >'||p_calling_sequence);
1543: END IF;
1544:
1545: debug_loc := 'get_input_tax_classif_code';
1546: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1547:
1548: l_tax_classification_code := NULL;
1549:
1550: OPEN sel_input_tax_cls_cd
1558: CLOSE sel_input_tax_cls_cd;
1559:
1560: IF (g_level_statement >= g_current_runtime_level ) THEN
1561: FND_LOG.STRING(g_level_statement,
1562: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1563:
1564: 'l_tax_classification_code =='||l_tax_classification_code);
1565: FND_LOG.STRING(g_level_statement,
1566: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.END',
1562: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1563:
1564: 'l_tax_classification_code =='||l_tax_classification_code);
1565: FND_LOG.STRING(g_level_statement,
1566: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.END',
1567: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_input_tax_classif_code (-)');
1568: END IF;
1569:
1570: RETURN (l_tax_classification_code);
1563:
1564: 'l_tax_classification_code =='||l_tax_classification_code);
1565: FND_LOG.STRING(g_level_statement,
1566: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code.END',
1567: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: get_input_tax_classif_code (-)');
1568: END IF;
1569:
1570: RETURN (l_tax_classification_code);
1571:
1576: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1577: FND_MSG_PUB.Add;
1578: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1579: FND_LOG.STRING(g_level_unexpected,
1580: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_input_tax_classif_code',
1581: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1582: END IF;
1583: IF (sel_input_tax_cls_cd%ISOPEN ) THEN
1584: CLOSE sel_input_tax_cls_cd;
1648: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1649:
1650: IF (g_level_statement >= g_current_runtime_level ) THEN
1651: FND_LOG.STRING(g_level_statement,
1652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.BEGIN',
1653: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (+)');
1654: FND_LOG.STRING(g_level_statement,
1655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1656: 'p_vendor_site_id == >'||to_char(p_vendor_site_id));
1649:
1650: IF (g_level_statement >= g_current_runtime_level ) THEN
1651: FND_LOG.STRING(g_level_statement,
1652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.BEGIN',
1653: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (+)');
1654: FND_LOG.STRING(g_level_statement,
1655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1656: 'p_vendor_site_id == >'||to_char(p_vendor_site_id));
1657: FND_LOG.STRING(g_level_statement,
1651: FND_LOG.STRING(g_level_statement,
1652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.BEGIN',
1653: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (+)');
1654: FND_LOG.STRING(g_level_statement,
1655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1656: 'p_vendor_site_id == >'||to_char(p_vendor_site_id));
1657: FND_LOG.STRING(g_level_statement,
1658: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1659: 'p_calling_sequence == >'||p_calling_sequence);
1654: FND_LOG.STRING(g_level_statement,
1655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1656: 'p_vendor_site_id == >'||to_char(p_vendor_site_id));
1657: FND_LOG.STRING(g_level_statement,
1658: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1659: 'p_calling_sequence == >'||p_calling_sequence);
1660: END IF;
1661: debug_loc := 'Get_Site_Tax';
1662: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1658: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1659: 'p_calling_sequence == >'||p_calling_sequence);
1660: END IF;
1661: debug_loc := 'Get_Site_Tax';
1662: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1663: IF (g_level_statement >= g_current_runtime_level ) THEN
1664: FND_LOG.STRING(g_level_statement,
1665: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1666: 'p_calling_sequence =='||p_calling_sequence);
1661: debug_loc := 'Get_Site_Tax';
1662: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1663: IF (g_level_statement >= g_current_runtime_level ) THEN
1664: FND_LOG.STRING(g_level_statement,
1665: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1666: 'p_calling_sequence =='||p_calling_sequence);
1667: END IF;
1668:
1669: l_tax_classification_code := NULL;
1702: END IF;
1703:
1704: IF (g_level_statement >= g_current_runtime_level ) THEN
1705: FND_LOG.STRING(g_level_statement,
1706: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.G
1707: et_Vendor_Tax',
1708: 'l_party_site_id == >'||to_char(l_party_site_id));
1709: FND_LOG.STRING(g_level_statement,
1710: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1706: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.G
1707: et_Vendor_Tax',
1708: 'l_party_site_id == >'||to_char(l_party_site_id));
1709: FND_LOG.STRING(g_level_statement,
1710: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1711: 'l_tax_classification_code =='||l_tax_classification_code);
1712: FND_LOG.STRING(g_level_statement,
1713: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1714: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (-)');
1709: FND_LOG.STRING(g_level_statement,
1710: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1711: 'l_tax_classification_code =='||l_tax_classification_code);
1712: FND_LOG.STRING(g_level_statement,
1713: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1714: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (-)');
1715: END IF;
1716:
1717: RETURN (l_tax_classification_code);
1710: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1711: 'l_tax_classification_code =='||l_tax_classification_code);
1712: FND_LOG.STRING(g_level_statement,
1713: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax.END',
1714: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_site_tax (-)');
1715: END IF;
1716:
1717: RETURN (l_tax_classification_code);
1718:
1723: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1724: FND_MSG_PUB.Add;
1725: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1726: FND_LOG.STRING(g_level_unexpected,
1727: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_site_tax',
1728: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1729: END IF;
1730: IF (sel_site_tax_sup_site%ISOPEN ) THEN
1731: CLOSE sel_site_tax_sup_site;
1798: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1799:
1800: IF (g_level_statement >= g_current_runtime_level ) THEN
1801: FND_LOG.STRING(g_level_statement,
1802: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_vendor_tax.BEGIN',
1803: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Vendor_Tax (+)');
1804: FND_LOG.STRING(g_level_statement,
1805: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1806: 'p_vendor_id == >'||to_char(p_vendor_id));
1799:
1800: IF (g_level_statement >= g_current_runtime_level ) THEN
1801: FND_LOG.STRING(g_level_statement,
1802: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_vendor_tax.BEGIN',
1803: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Vendor_Tax (+)');
1804: FND_LOG.STRING(g_level_statement,
1805: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1806: 'p_vendor_id == >'||to_char(p_vendor_id));
1807: FND_LOG.STRING(g_level_statement,
1801: FND_LOG.STRING(g_level_statement,
1802: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_vendor_tax.BEGIN',
1803: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Vendor_Tax (+)');
1804: FND_LOG.STRING(g_level_statement,
1805: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1806: 'p_vendor_id == >'||to_char(p_vendor_id));
1807: FND_LOG.STRING(g_level_statement,
1808: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1809: 'p_calling_sequence == >'||p_calling_sequence);
1804: FND_LOG.STRING(g_level_statement,
1805: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1806: 'p_vendor_id == >'||to_char(p_vendor_id));
1807: FND_LOG.STRING(g_level_statement,
1808: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1809: 'p_calling_sequence == >'||p_calling_sequence);
1810: END IF;
1811: debug_loc := 'Get_Vendor_Tax';
1812: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1808: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1809: 'p_calling_sequence == >'||p_calling_sequence);
1810: END IF;
1811: debug_loc := 'Get_Vendor_Tax';
1812: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1813: IF (g_level_statement >= g_current_runtime_level ) THEN
1814: FND_LOG.STRING(g_level_statement,
1815: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1816: 'l_curr_calling_sequence =='||l_curr_calling_sequence );
1811: debug_loc := 'Get_Vendor_Tax';
1812: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1813: IF (g_level_statement >= g_current_runtime_level ) THEN
1814: FND_LOG.STRING(g_level_statement,
1815: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1816: 'l_curr_calling_sequence =='||l_curr_calling_sequence );
1817: END IF;
1818:
1819: l_tax_classification_code := NULL;
1852: END IF;
1853:
1854: IF (g_level_statement >= g_current_runtime_level ) THEN
1855: FND_LOG.STRING(g_level_statement,
1856: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1857: 'l_party_id == >'||to_char(l_party_id));
1858: FND_LOG.STRING(g_level_statement,
1859: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1860: 'From get_vendor_tax ,l_tax_classification_code =='
1855: FND_LOG.STRING(g_level_statement,
1856: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1857: 'l_party_id == >'||to_char(l_party_id));
1858: FND_LOG.STRING(g_level_statement,
1859: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1860: 'From get_vendor_tax ,l_tax_classification_code =='
1861: ||l_tax_classification_code);
1862: FND_LOG.STRING(g_level_statement,
1863: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax.END',
1859: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1860: 'From get_vendor_tax ,l_tax_classification_code =='
1861: ||l_tax_classification_code);
1862: FND_LOG.STRING(g_level_statement,
1863: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax.END',
1864: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Vendor_Tax (-)');
1865: END IF;
1866:
1867: RETURN (l_tax_classification_code);
1860: 'From get_vendor_tax ,l_tax_classification_code =='
1861: ||l_tax_classification_code);
1862: FND_LOG.STRING(g_level_statement,
1863: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax.END',
1864: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Vendor_Tax (-)');
1865: END IF;
1866:
1867: RETURN (l_tax_classification_code);
1868:
1873: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1874: FND_MSG_PUB.Add;
1875: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1876: FND_LOG.STRING(g_level_unexpected,
1877: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Vendor_Tax',
1878: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1879: END IF;
1880: IF (sel_vendor_tax_sup%ISOPEN) THEN
1881: CLOSE sel_vendor_tax_sup;
1964: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1965:
1966: IF (g_level_statement >= g_current_runtime_level ) THEN
1967: FND_LOG.STRING(g_level_statement,
1968: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
1969: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
1970: END IF;
1971: debug_loc := 'Get_Ship_To_Location_Tax';
1972: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1965:
1966: IF (g_level_statement >= g_current_runtime_level ) THEN
1967: FND_LOG.STRING(g_level_statement,
1968: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
1969: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
1970: END IF;
1971: debug_loc := 'Get_Ship_To_Location_Tax';
1972: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1973: IF (g_level_statement >= g_current_runtime_level ) THEN
1968: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
1969: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
1970: END IF;
1971: debug_loc := 'Get_Ship_To_Location_Tax';
1972: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1973: IF (g_level_statement >= g_current_runtime_level ) THEN
1974: FND_LOG.STRING(g_level_statement,
1975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1976: 'Getting tax classification code from ship-to location');
1971: debug_loc := 'Get_Ship_To_Location_Tax';
1972: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
1973: IF (g_level_statement >= g_current_runtime_level ) THEN
1974: FND_LOG.STRING(g_level_statement,
1975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1976: 'Getting tax classification code from ship-to location');
1977: FND_LOG.STRING(g_level_statement,
1978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1979: 'p_ship_to_loc_id == > '||to_char(p_ship_to_loc_id ));
1974: FND_LOG.STRING(g_level_statement,
1975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1976: 'Getting tax classification code from ship-to location');
1977: FND_LOG.STRING(g_level_statement,
1978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1979: 'p_ship_to_loc_id == > '||to_char(p_ship_to_loc_id ));
1980: FND_LOG.STRING(g_level_statement,
1981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1982: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id ));
1977: FND_LOG.STRING(g_level_statement,
1978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1979: 'p_ship_to_loc_id == > '||to_char(p_ship_to_loc_id ));
1980: FND_LOG.STRING(g_level_statement,
1981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1982: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id ));
1983: FND_LOG.STRING(g_level_statement,
1984: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1985: 'p_calling_sequence == > '|| p_calling_sequence );
1980: FND_LOG.STRING(g_level_statement,
1981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1982: 'p_ship_to_loc_org_id == >'||to_char(p_ship_to_loc_org_id ));
1983: FND_LOG.STRING(g_level_statement,
1984: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
1985: 'p_calling_sequence == > '|| p_calling_sequence );
1986: END IF;
1987:
1988: l_tax_classification_code := NULL;
2003: p_return_status => l_return_status);
2004:
2005: IF (g_level_statement >= g_current_runtime_level ) THEN
2006: FND_LOG.STRING(g_level_statement,
2007: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2008: 'l_ptp_id = ' || TO_CHAR(l_ptp_id));
2009: FND_LOG.STRING(g_level_statement,
2010: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2011: 'l_return_status = ' || l_return_status);
2006: FND_LOG.STRING(g_level_statement,
2007: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2008: 'l_ptp_id = ' || TO_CHAR(l_ptp_id));
2009: FND_LOG.STRING(g_level_statement,
2010: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2011: 'l_return_status = ' || l_return_status);
2012: END IF;
2013:
2014: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS )THEN
2027: END IF;
2028:
2029: IF (g_level_statement >= g_current_runtime_level ) THEN
2030: FND_LOG.STRING(g_level_statement,
2031: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2032: 'l_tax_classification_code =='||l_tax_classification_code );
2033: FND_LOG.STRING(g_level_statement,
2034: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.END',
2035: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (-)');
2030: FND_LOG.STRING(g_level_statement,
2031: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2032: 'l_tax_classification_code =='||l_tax_classification_code );
2033: FND_LOG.STRING(g_level_statement,
2034: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.END',
2035: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (-)');
2036: END IF;
2037:
2038: RETURN (l_tax_classification_code);
2031: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2032: 'l_tax_classification_code =='||l_tax_classification_code );
2033: FND_LOG.STRING(g_level_statement,
2034: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.END',
2035: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (-)');
2036: END IF;
2037:
2038: RETURN (l_tax_classification_code);
2039:
2044: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2045: FND_MSG_PUB.Add;
2046: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2047: FND_LOG.STRING(g_level_unexpected,
2048: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_ship_to_location_tax',
2049: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2050: END IF;
2051: IF (sel_ship_to_loc_tax%ISOPEN) THEN
2052: CLOSE sel_ship_to_loc_tax;
2074: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2075:
2076: IF (g_level_statement >= g_current_runtime_level ) THEN
2077: FND_LOG.STRING(g_level_statement,
2078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
2079: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
2080: FND_LOG.STRING(g_level_statement,
2081: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2082: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax overloaded version');
2075:
2076: IF (g_level_statement >= g_current_runtime_level ) THEN
2077: FND_LOG.STRING(g_level_statement,
2078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
2079: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
2080: FND_LOG.STRING(g_level_statement,
2081: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2082: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax overloaded version');
2083:
2077: FND_LOG.STRING(g_level_statement,
2078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
2079: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
2080: FND_LOG.STRING(g_level_statement,
2081: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2082: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax overloaded version');
2083:
2084: END IF;
2085:
2078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.BEGIN',
2079: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (+)');
2080: FND_LOG.STRING(g_level_statement,
2081: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax',
2082: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax overloaded version');
2083:
2084: END IF;
2085:
2086: l_tax_classification_code := NULL;
2093:
2094:
2095: IF (g_level_statement >= g_current_runtime_level ) THEN
2096: FND_LOG.STRING(g_level_statement,
2097: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.END',
2098: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (-)');
2099: END IF;
2100:
2101: RETURN (l_tax_classification_code);
2094:
2095: IF (g_level_statement >= g_current_runtime_level ) THEN
2096: FND_LOG.STRING(g_level_statement,
2097: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Ship_To_Location_Tax.END',
2098: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Ship_To_Location_Tax (-)');
2099: END IF;
2100:
2101: RETURN (l_tax_classification_code);
2102:
2155: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2156:
2157: IF (g_level_statement >= g_current_runtime_level ) THEN
2158: FND_LOG.STRING(g_level_statement,
2159: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.BEGIN',
2160: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (+)');
2161: FND_LOG.STRING(g_level_statement,
2162: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2163: 'p_item_id == > '||to_char(p_item_id ));
2156:
2157: IF (g_level_statement >= g_current_runtime_level ) THEN
2158: FND_LOG.STRING(g_level_statement,
2159: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.BEGIN',
2160: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (+)');
2161: FND_LOG.STRING(g_level_statement,
2162: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2163: 'p_item_id == > '||to_char(p_item_id ));
2164: FND_LOG.STRING(g_level_statement,
2158: FND_LOG.STRING(g_level_statement,
2159: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.BEGIN',
2160: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (+)');
2161: FND_LOG.STRING(g_level_statement,
2162: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2163: 'p_item_id == > '||to_char(p_item_id ));
2164: FND_LOG.STRING(g_level_statement,
2165: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2166: 'p_ship_to_loc_org_id == > '||to_char(p_ship_to_loc_org_id ));
2161: FND_LOG.STRING(g_level_statement,
2162: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2163: 'p_item_id == > '||to_char(p_item_id ));
2164: FND_LOG.STRING(g_level_statement,
2165: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2166: 'p_ship_to_loc_org_id == > '||to_char(p_ship_to_loc_org_id ));
2167: FND_LOG.STRING(g_level_statement,
2168: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2169: 'p_item_org_id == > '||to_char(p_item_org_id ));
2164: FND_LOG.STRING(g_level_statement,
2165: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2166: 'p_ship_to_loc_org_id == > '||to_char(p_ship_to_loc_org_id ));
2167: FND_LOG.STRING(g_level_statement,
2168: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2169: 'p_item_org_id == > '||to_char(p_item_org_id ));
2170: FND_LOG.STRING(g_level_statement,
2171: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2172: 'p_calling_sequence == >'||p_calling_sequence);
2167: FND_LOG.STRING(g_level_statement,
2168: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2169: 'p_item_org_id == > '||to_char(p_item_org_id ));
2170: FND_LOG.STRING(g_level_statement,
2171: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2172: 'p_calling_sequence == >'||p_calling_sequence);
2173: END IF;
2174: debug_loc := 'Get_Item_Tax';
2175: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
2171: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2172: 'p_calling_sequence == >'||p_calling_sequence);
2173: END IF;
2174: debug_loc := 'Get_Item_Tax';
2175: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
2176:
2177: OPEN sel_item_tax;
2178: FETCH sel_item_tax INTO l_tax_classification_code;
2179: CLOSE sel_item_tax;
2179: CLOSE sel_item_tax;
2180:
2181: IF (g_level_statement >= g_current_runtime_level ) THEN
2182: FND_LOG.STRING(g_level_statement,
2183: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2184: 'l_tax_classification_code =='||l_tax_classification_code);
2185: FND_LOG.STRING(g_level_statement,
2186: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.END',
2187: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (-)');
2182: FND_LOG.STRING(g_level_statement,
2183: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2184: 'l_tax_classification_code =='||l_tax_classification_code);
2185: FND_LOG.STRING(g_level_statement,
2186: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.END',
2187: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (-)');
2188: END IF;
2189:
2190: RETURN (l_tax_classification_code);
2183: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2184: 'l_tax_classification_code =='||l_tax_classification_code);
2185: FND_LOG.STRING(g_level_statement,
2186: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax.END',
2187: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Item_Tax (-)');
2188: END IF;
2189:
2190: RETURN (l_tax_classification_code);
2191:
2197: FND_MSG_PUB.Add;
2198:
2199: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2200: FND_LOG.STRING(g_level_unexpected,
2201: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Item_Tax',
2202: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2203: END IF;
2204: IF (sel_item_tax%ISOPEN) THEN
2205: CLOSE sel_item_tax;
2289: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2290:
2291: IF (g_level_statement >= g_current_runtime_level ) THEN
2292: FND_LOG.STRING(g_level_statement,
2293: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.BEGIN',
2294: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Account_Tax (+)');
2295: FND_LOG.STRING(g_level_statement,
2296: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2297: 'p_code_combination_id ==>'||to_char(p_code_combination_id));
2290:
2291: IF (g_level_statement >= g_current_runtime_level ) THEN
2292: FND_LOG.STRING(g_level_statement,
2293: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.BEGIN',
2294: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Account_Tax (+)');
2295: FND_LOG.STRING(g_level_statement,
2296: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2297: 'p_code_combination_id ==>'||to_char(p_code_combination_id));
2298: FND_LOG.STRING(g_level_statement,
2292: FND_LOG.STRING(g_level_statement,
2293: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.BEGIN',
2294: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Account_Tax (+)');
2295: FND_LOG.STRING(g_level_statement,
2296: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2297: 'p_code_combination_id ==>'||to_char(p_code_combination_id));
2298: FND_LOG.STRING(g_level_statement,
2299: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2300: 'p_concatenated_segments ==>'||p_concatenated_segments);
2295: FND_LOG.STRING(g_level_statement,
2296: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2297: 'p_code_combination_id ==>'||to_char(p_code_combination_id));
2298: FND_LOG.STRING(g_level_statement,
2299: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2300: 'p_concatenated_segments ==>'||p_concatenated_segments);
2301: FND_LOG.STRING(g_level_statement,
2302: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2303: 'p_tax_classification_code ==>'|| p_tax_classification_code );
2298: FND_LOG.STRING(g_level_statement,
2299: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2300: 'p_concatenated_segments ==>'||p_concatenated_segments);
2301: FND_LOG.STRING(g_level_statement,
2302: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2303: 'p_tax_classification_code ==>'|| p_tax_classification_code );
2304: FND_LOG.STRING(g_level_statement,
2305: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2306: 'p_allow_tax_code_override_flag ==>'||p_allow_tax_code_override_flag);
2301: FND_LOG.STRING(g_level_statement,
2302: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2303: 'p_tax_classification_code ==>'|| p_tax_classification_code );
2304: FND_LOG.STRING(g_level_statement,
2305: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2306: 'p_allow_tax_code_override_flag ==>'||p_allow_tax_code_override_flag);
2307:
2308: FND_LOG.STRING(g_level_statement,
2309: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2305: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2306: 'p_allow_tax_code_override_flag ==>'||p_allow_tax_code_override_flag);
2307:
2308: FND_LOG.STRING(g_level_statement,
2309: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2310: 'p_calling_sequence ==>'||p_calling_sequence );
2311: END IF;
2312:
2313: debug_loc := 'Get_Account_Tax';
2310: 'p_calling_sequence ==>'||p_calling_sequence );
2311: END IF;
2312:
2313: debug_loc := 'Get_Account_Tax';
2314: l_curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.'||debug_loc||'<-'||p_calling_sequence;
2315:
2316: IF (p_code_combination_id is not NULL and p_code_combination_id <> -1) THEN
2317: -- Get the column name that holds the account segment in GL_CODE_COMBINATIONS
2318: IF (g_level_statement >= g_current_runtime_level ) THEN
2316: IF (p_code_combination_id is not NULL and p_code_combination_id <> -1) THEN
2317: -- Get the column name that holds the account segment in GL_CODE_COMBINATIONS
2318: IF (g_level_statement >= g_current_runtime_level ) THEN
2319: FND_LOG.STRING(g_level_statement,
2320: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2321: 'Getting tax code using code combination ID');
2322: FND_LOG.STRING(g_level_statement,
2323: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2324: 'p_code_combination_id is not Null =='||to_char(p_code_combination_id));
2319: FND_LOG.STRING(g_level_statement,
2320: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2321: 'Getting tax code using code combination ID');
2322: FND_LOG.STRING(g_level_statement,
2323: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2324: 'p_code_combination_id is not Null =='||to_char(p_code_combination_id));
2325: END IF;
2326:
2327: result := fnd_flex_apis.get_segment_column (101,
2336:
2337: execute immediate statement into l_account_seg_value ;
2338: IF (g_level_statement >= g_current_runtime_level ) THEN
2339: FND_LOG.STRING(g_level_statement,
2340: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2341: 'l_account_seg_value =='||l_account_seg_value);
2342: END IF;
2343: ELSE
2344: IF (p_concatenated_segments is not NULL) THEN
2343: ELSE
2344: IF (p_concatenated_segments is not NULL) THEN
2345: IF (g_level_statement >= g_current_runtime_level ) THEN
2346: FND_LOG.STRING(g_level_statement,
2347: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2348: 'p_concatenated_segments is not Null =='||p_concatenated_segments);
2349: END IF;
2350: -- Get account segment from the concatenated string
2351: IF (g_level_statement >= g_current_runtime_level ) THEN
2349: END IF;
2350: -- Get account segment from the concatenated string
2351: IF (g_level_statement >= g_current_runtime_level ) THEN
2352: FND_LOG.STRING(g_level_statement,
2353: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2354: 'Getting tax code using concatenated segments');
2355: END IF;
2356: l_delimiter := fnd_flex_ext.get_delimiter ('SQLGL',
2357: 'GL#',
2367: l_account_seg_value := l_flexsegtab(l_account_seg_num);
2368:
2369: IF (g_level_statement >= g_current_runtime_level ) THEN
2370: FND_LOG.STRING(g_level_statement,
2371: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2372: 'l_account_seg_value =='|| l_account_seg_value);
2373: FND_LOG.STRING(g_level_statement,
2374: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2375: 'l_delimiter =='||l_delimiter );
2370: FND_LOG.STRING(g_level_statement,
2371: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2372: 'l_account_seg_value =='|| l_account_seg_value);
2373: FND_LOG.STRING(g_level_statement,
2374: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2375: 'l_delimiter =='||l_delimiter );
2376: FND_LOG.STRING(g_level_statement,
2377: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2378: 'l_result =='||to_char(l_result));
2373: FND_LOG.STRING(g_level_statement,
2374: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2375: 'l_delimiter =='||l_delimiter );
2376: FND_LOG.STRING(g_level_statement,
2377: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2378: 'l_result =='||to_char(l_result));
2379: END IF;
2380: END IF;
2381: END IF;
2382:
2383: IF (l_account_seg_value is not NULL) THEN
2384: IF (g_level_statement >= g_current_runtime_level ) THEN
2385: FND_LOG.STRING(g_level_statement,
2386: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2387: 'l_account_seg_value is not null =='||l_account_seg_value);
2388: END IF;
2389: BEGIN
2390: --1064036
2411: 'AND ( toa.org_id = :l_bind_org_id or toa.org_id = -1 )' ||
2412: 'AND toa.tax_class = ''N'' ';
2413: IF (g_level_statement >= g_current_runtime_level ) THEN
2414: FND_LOG.STRING(g_level_statement,
2415: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2416: 'statement='||statement);
2417: FND_LOG.STRING(g_level_statement,
2418: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2419: 'Executing Dynamic SQL statement ');
2414: FND_LOG.STRING(g_level_statement,
2415: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2416: 'statement='||statement);
2417: FND_LOG.STRING(g_level_statement,
2418: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2419: 'Executing Dynamic SQL statement ');
2420: END IF;
2421: execute immediate statement into p_allow_tax_code_override_flag,
2422: p_tax_classification_code,
2427: l_account_seg_value,
2428: sysinfo.org_id;
2429: IF (g_level_statement >= g_current_runtime_level ) THEN
2430: FND_LOG.STRING(g_level_statement,
2431: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2432: 'statement =='||substr(statement,1,700));
2433: FND_LOG.STRING(g_level_statement,
2434: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2435: 'sysinfo.org_id =='||to_char(sysinfo.org_id));
2430: FND_LOG.STRING(g_level_statement,
2431: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2432: 'statement =='||substr(statement,1,700));
2433: FND_LOG.STRING(g_level_statement,
2434: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2435: 'sysinfo.org_id =='||to_char(sysinfo.org_id));
2436: FND_LOG.STRING(g_level_statement,
2437: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2438: 'p_allow_tax_code_override_flag =='||p_allow_tax_code_override_flag );
2433: FND_LOG.STRING(g_level_statement,
2434: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2435: 'sysinfo.org_id =='||to_char(sysinfo.org_id));
2436: FND_LOG.STRING(g_level_statement,
2437: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2438: 'p_allow_tax_code_override_flag =='||p_allow_tax_code_override_flag );
2439: FND_LOG.STRING(g_level_statement,
2440: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2441: ' p_tax_classification_code =='|| p_tax_classification_code );
2436: FND_LOG.STRING(g_level_statement,
2437: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2438: 'p_allow_tax_code_override_flag =='||p_allow_tax_code_override_flag );
2439: FND_LOG.STRING(g_level_statement,
2440: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2441: ' p_tax_classification_code =='|| p_tax_classification_code );
2442: FND_LOG.STRING(g_level_statement,
2443: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2444: 'l_tax_type_code =='||l_tax_type_code );
2439: FND_LOG.STRING(g_level_statement,
2440: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2441: ' p_tax_classification_code =='|| p_tax_classification_code );
2442: FND_LOG.STRING(g_level_statement,
2443: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2444: 'l_tax_type_code =='||l_tax_type_code );
2445: FND_LOG.STRING(g_level_statement,
2446: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2447: 'l_account_seg_value =='||l_account_seg_value );
2442: FND_LOG.STRING(g_level_statement,
2443: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2444: 'l_tax_type_code =='||l_tax_type_code );
2445: FND_LOG.STRING(g_level_statement,
2446: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2447: 'l_account_seg_value =='||l_account_seg_value );
2448:
2449: FND_LOG.STRING(g_level_statement,
2450: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.END',
2446: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2447: 'l_account_seg_value =='||l_account_seg_value );
2448:
2449: FND_LOG.STRING(g_level_statement,
2450: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.END',
2451: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Account_Tax (-)');
2452: END IF;
2453:
2454: EXCEPTION
2447: 'l_account_seg_value =='||l_account_seg_value );
2448:
2449: FND_LOG.STRING(g_level_statement,
2450: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax.END',
2451: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: Get_Account_Tax (-)');
2452: END IF;
2453:
2454: EXCEPTION
2455: WHEN no_data_found THEN
2454: EXCEPTION
2455: WHEN no_data_found THEN
2456: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2457: FND_LOG.STRING(g_level_unexpected,
2458: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.Get_Account_Tax',
2459: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2460: END IF;
2461:
2462: 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_AP_TAX_CLASSIFICATN_DEF_PKG.get_account_tax',
2471: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2472: END IF;
2473: RAISE;
2474: END;
2550: BEGIN
2551:
2552: IF (g_level_statement >= g_current_runtime_level ) THEN
2553: FND_LOG.STRING(g_level_statement,
2554: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier.BEGIN',
2555: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_ap_def_option_hier(+)' );
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2558: 'p_event_class_code : ' || p_event_class_code);
2551:
2552: IF (g_level_statement >= g_current_runtime_level ) THEN
2553: FND_LOG.STRING(g_level_statement,
2554: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier.BEGIN',
2555: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_ap_def_option_hier(+)' );
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2558: 'p_event_class_code : ' || p_event_class_code);
2559: FND_LOG.STRING(g_level_statement,
2553: FND_LOG.STRING(g_level_statement,
2554: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier.BEGIN',
2555: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_ap_def_option_hier(+)' );
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2558: 'p_event_class_code : ' || p_event_class_code);
2559: FND_LOG.STRING(g_level_statement,
2560: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2561: 'Getting default options ');
2556: FND_LOG.STRING(g_level_statement,
2557: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2558: 'p_event_class_code : ' || p_event_class_code);
2559: FND_LOG.STRING(g_level_statement,
2560: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2561: 'Getting default options ');
2562: END IF;
2563:
2564: -- init return status
2585: IF l_event_class_mapping_id IS NULL THEN
2586: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2587: IF (g_level_statement >= g_current_runtime_level ) THEN
2588: FND_LOG.STRING(g_level_statement,
2589: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2590: 'event_class_mapping_id not found for Internet expense');
2591: END IF;
2592: RETURN;
2593: END IF;
2630: END IF;
2631:
2632: IF (g_level_statement >= g_current_runtime_level ) THEN
2633: FND_LOG.STRING(g_level_statement,
2634: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2635: 'Use Tax Classification: '|| NVL(ap_info.use_tax_classification_flag,'N'));
2636: FND_LOG.STRING(g_level_statement,
2637: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2638: 'Hierarchy Level 1: ' ||ap_info.def_option_hier_1_code );
2633: FND_LOG.STRING(g_level_statement,
2634: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2635: 'Use Tax Classification: '|| NVL(ap_info.use_tax_classification_flag,'N'));
2636: FND_LOG.STRING(g_level_statement,
2637: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2638: 'Hierarchy Level 1: ' ||ap_info.def_option_hier_1_code );
2639: FND_LOG.STRING(g_level_statement,
2640: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2641: 'Hierarchy Level 2: ' ||ap_info.def_option_hier_2_code );
2636: FND_LOG.STRING(g_level_statement,
2637: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2638: 'Hierarchy Level 1: ' ||ap_info.def_option_hier_1_code );
2639: FND_LOG.STRING(g_level_statement,
2640: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2641: 'Hierarchy Level 2: ' ||ap_info.def_option_hier_2_code );
2642: FND_LOG.STRING(g_level_statement,
2643: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2644: 'Hierarchy Level 3: ' ||ap_info.def_option_hier_3_code );
2639: FND_LOG.STRING(g_level_statement,
2640: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2641: 'Hierarchy Level 2: ' ||ap_info.def_option_hier_2_code );
2642: FND_LOG.STRING(g_level_statement,
2643: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2644: 'Hierarchy Level 3: ' ||ap_info.def_option_hier_3_code );
2645: FND_LOG.STRING(g_level_statement,
2646: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2647: 'Hierarchy Level 4: ' ||ap_info.def_option_hier_4_code );
2642: FND_LOG.STRING(g_level_statement,
2643: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2644: 'Hierarchy Level 3: ' ||ap_info.def_option_hier_3_code );
2645: FND_LOG.STRING(g_level_statement,
2646: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2647: 'Hierarchy Level 4: ' ||ap_info.def_option_hier_4_code );
2648: FND_LOG.STRING(g_level_statement,
2649: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2650: 'Hierarchy Level 5: ' ||ap_info.def_option_hier_5_code );
2645: FND_LOG.STRING(g_level_statement,
2646: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2647: 'Hierarchy Level 4: ' ||ap_info.def_option_hier_4_code );
2648: FND_LOG.STRING(g_level_statement,
2649: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2650: 'Hierarchy Level 5: ' ||ap_info.def_option_hier_5_code );
2651: FND_LOG.STRING(g_level_statement,
2652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2653: 'Hierarchy Level 6: ' ||ap_info.def_option_hier_6_code );
2648: FND_LOG.STRING(g_level_statement,
2649: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2650: 'Hierarchy Level 5: ' ||ap_info.def_option_hier_5_code );
2651: FND_LOG.STRING(g_level_statement,
2652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2653: 'Hierarchy Level 6: ' ||ap_info.def_option_hier_6_code );
2654: FND_LOG.STRING(g_level_statement,
2655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2656: 'Hierarchy Level 7: ' ||ap_info.def_option_hier_7_code );
2651: FND_LOG.STRING(g_level_statement,
2652: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2653: 'Hierarchy Level 6: ' ||ap_info.def_option_hier_6_code );
2654: FND_LOG.STRING(g_level_statement,
2655: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2656: 'Hierarchy Level 7: ' ||ap_info.def_option_hier_7_code );
2657:
2658: END IF;
2659:
2670: OR sysinfo.ap_info.def_option_hier_7_code IS NOT NULL) THEN
2671:
2672: IF (g_level_statement >= g_current_runtime_level ) THEN
2673: FND_LOG.STRING(g_level_statement,
2674: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2675: 'Initializing AP defaulting information');
2676: END IF;
2677:
2678: aptaxtab(1) := sysinfo.ap_info.def_option_hier_1_code;
2689: END IF;
2690:
2691: IF (g_level_statement >= g_current_runtime_level ) THEN
2692: FND_LOG.STRING(g_level_statement,
2693: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier.END',
2694: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_ap_def_option_hier(-)' );
2695: END IF;
2696:
2697: EXCEPTION
2690:
2691: IF (g_level_statement >= g_current_runtime_level ) THEN
2692: FND_LOG.STRING(g_level_statement,
2693: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier.END',
2694: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_ap_def_option_hier(-)' );
2695: END IF;
2696:
2697: EXCEPTION
2698: WHEN OTHERS THEN
2709: FND_MSG_PUB.Add;
2710:
2711: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2712: FND_LOG.STRING(g_level_unexpected,
2713: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_ap_def_option_hier',
2714: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2715: END IF;
2716:
2717: END pop_ap_def_option_hier;
2758: BEGIN
2759:
2760: IF (g_level_statement >= g_current_runtime_level ) THEN
2761: FND_LOG.STRING(g_level_statement,
2762: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier.BEGIN',
2763: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_po_def_option_hier(+)' );
2764: END IF;
2765:
2766: -- init return status
2759:
2760: IF (g_level_statement >= g_current_runtime_level ) THEN
2761: FND_LOG.STRING(g_level_statement,
2762: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier.BEGIN',
2763: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_po_def_option_hier(+)' );
2764: END IF;
2765:
2766: -- init return status
2767: p_return_status := FND_API.G_RET_STS_SUCCESS;
2780:
2781: IF status_flag = 'I' THEN
2782: IF (g_level_statement >= g_current_runtime_level ) THEN
2783: FND_LOG.STRING(g_level_statement,
2784: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2785: 'Getting PO default options');
2786: END IF;
2787:
2788: -- Bug#4090842- use org_id passed in
2807: END IF;
2808:
2809: IF (g_level_statement >= g_current_runtime_level ) THEN
2810: FND_LOG.STRING(g_level_statement,
2811: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2812: 'PO Use Tax Classification: '|| NVL(po_info.use_tax_classification_flag,'N'));
2813: FND_LOG.STRING(g_level_statement,
2814: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2815: 'PO Hierarchy Level 1: ' ||po_info.def_option_hier_1_code );
2810: FND_LOG.STRING(g_level_statement,
2811: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2812: 'PO Use Tax Classification: '|| NVL(po_info.use_tax_classification_flag,'N'));
2813: FND_LOG.STRING(g_level_statement,
2814: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2815: 'PO Hierarchy Level 1: ' ||po_info.def_option_hier_1_code );
2816: FND_LOG.STRING(g_level_statement,
2817: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2818: 'PO Hierarchy Level 2: ' ||po_info.def_option_hier_2_code );
2813: FND_LOG.STRING(g_level_statement,
2814: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2815: 'PO Hierarchy Level 1: ' ||po_info.def_option_hier_1_code );
2816: FND_LOG.STRING(g_level_statement,
2817: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2818: 'PO Hierarchy Level 2: ' ||po_info.def_option_hier_2_code );
2819: FND_LOG.STRING(g_level_statement,
2820: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2821: 'PO Hierarchy Level 3: ' ||po_info.def_option_hier_3_code );
2816: FND_LOG.STRING(g_level_statement,
2817: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2818: 'PO Hierarchy Level 2: ' ||po_info.def_option_hier_2_code );
2819: FND_LOG.STRING(g_level_statement,
2820: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2821: 'PO Hierarchy Level 3: ' ||po_info.def_option_hier_3_code );
2822: FND_LOG.STRING(g_level_statement,
2823: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2824: 'PO Hierarchy Level 4: ' ||po_info.def_option_hier_4_code );
2819: FND_LOG.STRING(g_level_statement,
2820: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2821: 'PO Hierarchy Level 3: ' ||po_info.def_option_hier_3_code );
2822: FND_LOG.STRING(g_level_statement,
2823: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2824: 'PO Hierarchy Level 4: ' ||po_info.def_option_hier_4_code );
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2827: 'PO Hierarchy Level 5: ' ||po_info.def_option_hier_5_code );
2822: FND_LOG.STRING(g_level_statement,
2823: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2824: 'PO Hierarchy Level 4: ' ||po_info.def_option_hier_4_code );
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2827: 'PO Hierarchy Level 5: ' ||po_info.def_option_hier_5_code );
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2830: 'PO Hierarchy Level 6: ' ||po_info.def_option_hier_6_code );
2825: FND_LOG.STRING(g_level_statement,
2826: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2827: 'PO Hierarchy Level 5: ' ||po_info.def_option_hier_5_code );
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2830: 'PO Hierarchy Level 6: ' ||po_info.def_option_hier_6_code );
2831: FND_LOG.STRING(g_level_statement,
2832: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2833: 'PO Hierarchy Level 7: ' ||po_info.def_option_hier_7_code );
2828: FND_LOG.STRING(g_level_statement,
2829: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2830: 'PO Hierarchy Level 6: ' ||po_info.def_option_hier_6_code );
2831: FND_LOG.STRING(g_level_statement,
2832: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2833: 'PO Hierarchy Level 7: ' ||po_info.def_option_hier_7_code );
2834: END IF;
2835:
2836: sysinfo.po_info := po_info;
2846: OR sysinfo.po_info.def_option_hier_7_code IS NOT NULL) THEN
2847:
2848: IF (g_level_statement >= g_current_runtime_level ) THEN
2849: FND_LOG.STRING(g_level_statement,
2850: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2851: 'Initializing PO information');
2852: END IF;
2853:
2854: potaxtab(1) := sysinfo.po_info.def_option_hier_1_code;
2866: END IF;
2867:
2868: IF (g_level_statement >= g_current_runtime_level ) THEN
2869: FND_LOG.STRING(g_level_statement,
2870: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier.END',
2871: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_po_def_option_hier(-)' );
2872: END IF;
2873:
2874: EXCEPTION
2867:
2868: IF (g_level_statement >= g_current_runtime_level ) THEN
2869: FND_LOG.STRING(g_level_statement,
2870: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier.END',
2871: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_po_def_option_hier(-)' );
2872: END IF;
2873:
2874: EXCEPTION
2875: WHEN OTHERS THEN
2883: FND_MSG_PUB.Add;
2884:
2885: IF (g_level_unexpected >= g_current_runtime_level ) THEN
2886: FND_LOG.STRING(g_level_unexpected,
2887: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_po_def_option_hier',
2888: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
2889: END IF;
2890: END pop_po_def_option_hier;
2891:
2925: BEGIN
2926:
2927: IF (g_level_statement >= g_current_runtime_level ) THEN
2928: FND_LOG.STRING(g_level_statement,
2929: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier.BEGIN',
2930: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_cc_def_option_hier(+)' );
2931: END IF;
2932:
2933: -- init return status
2926:
2927: IF (g_level_statement >= g_current_runtime_level ) THEN
2928: FND_LOG.STRING(g_level_statement,
2929: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier.BEGIN',
2930: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_cc_def_option_hier(+)' );
2931: END IF;
2932:
2933: -- init return status
2934: p_return_status := FND_API.G_RET_STS_SUCCESS;
2938: search_cc_def_hier := FALSE;
2939:
2940: IF (g_level_statement >= g_current_runtime_level ) THEN
2941: FND_LOG.STRING(g_level_statement,
2942: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2943: 'Getting CC default options');
2944: END IF;
2945:
2946: OPEN c_cc_default_options(p_org_id, 8407);
2962: END IF;
2963:
2964: IF (g_level_statement >= g_current_runtime_level ) THEN
2965: FND_LOG.STRING(g_level_statement,
2966: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2967: 'CC Use Tax Classification: '|| NVL(cc_info.use_tax_classification_flag,'N'));
2968: FND_LOG.STRING(g_level_statement,
2969: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2970: 'CC Hierarchy Level 1: ' ||cc_info.def_option_hier_1_code );
2965: FND_LOG.STRING(g_level_statement,
2966: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2967: 'CC Use Tax Classification: '|| NVL(cc_info.use_tax_classification_flag,'N'));
2968: FND_LOG.STRING(g_level_statement,
2969: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2970: 'CC Hierarchy Level 1: ' ||cc_info.def_option_hier_1_code );
2971: FND_LOG.STRING(g_level_statement,
2972: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2973: 'CC Hierarchy Level 2: ' ||cc_info.def_option_hier_2_code );
2968: FND_LOG.STRING(g_level_statement,
2969: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2970: 'CC Hierarchy Level 1: ' ||cc_info.def_option_hier_1_code );
2971: FND_LOG.STRING(g_level_statement,
2972: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2973: 'CC Hierarchy Level 2: ' ||cc_info.def_option_hier_2_code );
2974: FND_LOG.STRING(g_level_statement,
2975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2976: 'CC Hierarchy Level 3: ' ||cc_info.def_option_hier_3_code );
2971: FND_LOG.STRING(g_level_statement,
2972: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2973: 'CC Hierarchy Level 2: ' ||cc_info.def_option_hier_2_code );
2974: FND_LOG.STRING(g_level_statement,
2975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2976: 'CC Hierarchy Level 3: ' ||cc_info.def_option_hier_3_code );
2977: FND_LOG.STRING(g_level_statement,
2978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2979: 'CC Hierarchy Level 4: ' ||cc_info.def_option_hier_4_code );
2974: FND_LOG.STRING(g_level_statement,
2975: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2976: 'CC Hierarchy Level 3: ' ||cc_info.def_option_hier_3_code );
2977: FND_LOG.STRING(g_level_statement,
2978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2979: 'CC Hierarchy Level 4: ' ||cc_info.def_option_hier_4_code );
2980: FND_LOG.STRING(g_level_statement,
2981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2982: 'CC Hierarchy Level 5: ' ||cc_info.def_option_hier_5_code );
2977: FND_LOG.STRING(g_level_statement,
2978: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2979: 'CC Hierarchy Level 4: ' ||cc_info.def_option_hier_4_code );
2980: FND_LOG.STRING(g_level_statement,
2981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2982: 'CC Hierarchy Level 5: ' ||cc_info.def_option_hier_5_code );
2983: FND_LOG.STRING(g_level_statement,
2984: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2985: 'CC Hierarchy Level 6: ' ||cc_info.def_option_hier_6_code );
2980: FND_LOG.STRING(g_level_statement,
2981: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2982: 'CC Hierarchy Level 5: ' ||cc_info.def_option_hier_5_code );
2983: FND_LOG.STRING(g_level_statement,
2984: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2985: 'CC Hierarchy Level 6: ' ||cc_info.def_option_hier_6_code );
2986: FND_LOG.STRING(g_level_statement,
2987: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2988: 'CC Hierarchy Level 7: ' ||cc_info.def_option_hier_7_code );
2983: FND_LOG.STRING(g_level_statement,
2984: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2985: 'CC Hierarchy Level 6: ' ||cc_info.def_option_hier_6_code );
2986: FND_LOG.STRING(g_level_statement,
2987: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
2988: 'CC Hierarchy Level 7: ' ||cc_info.def_option_hier_7_code );
2989: END IF;
2990:
2991: sysinfo.cc_info := cc_info;
3001: OR sysinfo.cc_info.def_option_hier_7_code IS NOT NULL) THEN
3002:
3003: IF (g_level_statement >= g_current_runtime_level ) THEN
3004: FND_LOG.STRING(g_level_statement,
3005: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
3006: 'Initializing CC information');
3007: END IF;
3008:
3009: cctaxtab(1) := sysinfo.cc_info.def_option_hier_1_code;
3019: END IF;
3020:
3021: IF (g_level_statement >= g_current_runtime_level ) THEN
3022: FND_LOG.STRING(g_level_statement,
3023: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier.END',
3024: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_cc_def_option_hier(-)' );
3025: END IF;
3026:
3027: EXCEPTION
3020:
3021: IF (g_level_statement >= g_current_runtime_level ) THEN
3022: FND_LOG.STRING(g_level_statement,
3023: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier.END',
3024: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: pop_cc_def_option_hier(-)' );
3025: END IF;
3026:
3027: EXCEPTION
3028: WHEN OTHERS THEN
3036: FND_MSG_PUB.Add;
3037:
3038: IF (g_level_unexpected >= g_current_runtime_level ) THEN
3039: FND_LOG.STRING(g_level_unexpected,
3040: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.pop_cc_def_option_hier',
3041: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
3042: END IF;
3043: END pop_cc_def_option_hier;
3044:
3070: BEGIN
3071:
3072: IF (g_level_statement >= g_current_runtime_level ) THEN
3073: FND_LOG.STRING(g_level_statement,
3074: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.BEGIN',
3075: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(+)');
3076:
3077: FND_LOG.STRING(g_level_statement,
3078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3071:
3072: IF (g_level_statement >= g_current_runtime_level ) THEN
3073: FND_LOG.STRING(g_level_statement,
3074: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.BEGIN',
3075: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(+)');
3076:
3077: FND_LOG.STRING(g_level_statement,
3078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3079: 'p_tax_classification_code =='
3074: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.BEGIN',
3075: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(+)');
3076:
3077: FND_LOG.STRING(g_level_statement,
3078: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3079: 'p_tax_classification_code =='
3080: ||p_tax_classification_code);
3081:
3082: END IF;
3086: CLOSE chk_tax_classification_code;
3087:
3088: IF (g_level_statement >= g_current_runtime_level ) THEN
3089: FND_LOG.STRING(g_level_statement,
3090: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3091: 'p_count == >'||to_char(p_count));
3092: FND_LOG.STRING(g_level_statement,
3093: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.END',
3094: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(-)');
3089: FND_LOG.STRING(g_level_statement,
3090: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3091: 'p_count == >'||to_char(p_count));
3092: FND_LOG.STRING(g_level_statement,
3093: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.END',
3094: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(-)');
3095: END IF;
3096:
3097: END validate_tax_classif_code;
3090: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code',
3091: 'p_count == >'||to_char(p_count));
3092: FND_LOG.STRING(g_level_statement,
3093: 'ZX.PLSQL.ZX_AP_TAX_CLASSIFICATN_DEF_PKG.validate_tax_classif_code.END',
3094: 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG: validate_tax_classif_code(-)');
3095: END IF;
3096:
3097: END validate_tax_classif_code;
3098:
3103: -------------------------------------------------------------------------------
3104:
3105: BEGIN
3106:
3107: curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.';
3108: Initialize;
3109:
3110: END ZX_AP_TAX_CLASSIFICATN_DEF_PKG;
3106:
3107: curr_calling_sequence := 'ZX_AP_TAX_CLASSIFICATN_DEF_PKG.';
3108: Initialize;
3109:
3110: END ZX_AP_TAX_CLASSIFICATN_DEF_PKG;