1: PACKAGE BODY ZX_DEFAULT_AUTOMATION_PKG AS
2: /* $Header: zxdidefautopvtb.pls 120.31.12010000.3 2008/12/08 11:31:27 ssohal ship $ */
3:
4: /* Declare constants */
5:
2: /* $Header: zxdidefautopvtb.pls 120.31.12010000.3 2008/12/08 11:31:27 ssohal ship $ */
3:
4: /* Declare constants */
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_DEFAULT_AUTOMATION_PKG';
7: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_DFLT_AUTO_PKG.';
8: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
9: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
10: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
47: l_source_line_key VARCHAR2(2000);
48: BEGIN
49: IF (g_level_procedure >= g_current_runtime_level ) THEN
50: FND_LOG.STRING(g_level_procedure,
51: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
52: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(+)');
53: END IF;
54:
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
48: BEGIN
49: IF (g_level_procedure >= g_current_runtime_level ) THEN
50: FND_LOG.STRING(g_level_procedure,
51: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
52: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(+)');
53: END IF;
54:
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
55: x_return_status := FND_API.G_RET_STS_SUCCESS;
56:
57: IF (g_level_statement >= g_current_runtime_level ) THEN
58: FND_LOG.STRING(g_level_statement,
59: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
60: 'default_taxation_country(' || p_trx_line_index || ') = '
61: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.default_taxation_country(p_trx_line_index) || '$' ||
62: 'DOCUMENT_SUB_TYPE = '
63: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) || '$' ||
140: END IF;
141:
142: IF (g_level_statement >= g_current_runtime_level ) THEN
143: FND_LOG.STRING(g_level_statement,
144: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
145: 'default_taxation_country(' || p_trx_line_index || ') = '
146: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.default_taxation_country(p_trx_line_index) || '$' ||
147: 'DOCUMENT_SUB_TYPE = '
148: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) || '$' ||
164: END IF;
165:
166: IF (g_level_procedure >= g_current_runtime_level ) THEN
167: FND_LOG.STRING(g_level_procedure,
168: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
169: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(-)');
170: END IF;
171:
172: END DEFAULT_FROM_SOURCE_DOC;
165:
166: IF (g_level_procedure >= g_current_runtime_level ) THEN
167: FND_LOG.STRING(g_level_procedure,
168: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
169: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(-)');
170: END IF;
171:
172: END DEFAULT_FROM_SOURCE_DOC;
173:
213: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
214:
215: IF (g_level_procedure >= g_current_runtime_level ) THEN
216: FND_LOG.STRING(g_level_procedure,
217: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
218: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(+)'||
219: ' taxation_country = ' || p_taxation_country||
220: ' document_sub_type = ' || p_document_sub_type);
221: END IF;
214:
215: IF (g_level_procedure >= g_current_runtime_level ) THEN
216: FND_LOG.STRING(g_level_procedure,
217: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
218: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(+)'||
219: ' taxation_country = ' || p_taxation_country||
220: ' document_sub_type = ' || p_document_sub_type);
221: END IF;
222:
268:
269: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
270: IF (g_level_error >= g_current_runtime_level ) THEN
271: FND_LOG.STRING(g_level_error,
272: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
273: 'Incorrect return_status after calling ' ||
274: 'ZX_TCM_EXT_SERVICES_PUB.GET_DEFAULT_COUNTRY_CODE');
275: FND_LOG.STRING(g_level_error,
276: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
272: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
273: 'Incorrect return_status after calling ' ||
274: 'ZX_TCM_EXT_SERVICES_PUB.GET_DEFAULT_COUNTRY_CODE');
275: FND_LOG.STRING(g_level_error,
276: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
277: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
278: END IF;
279:
280: RETURN;
273: 'Incorrect return_status after calling ' ||
274: 'ZX_TCM_EXT_SERVICES_PUB.GET_DEFAULT_COUNTRY_CODE');
275: FND_LOG.STRING(g_level_error,
276: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
277: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
278: END IF;
279:
280: RETURN;
281:
284: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) := l_country_code;
285:
286: IF (g_level_statement >= g_current_runtime_level ) THEN
287: FND_LOG.STRING(g_level_statement,
288: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
289: 'l_country_code = ' || l_country_code);
290: END IF;
291:
292: ELSE
303: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ASSESSABLE_VALUE(p_trx_line_index) IS NOT NULL) THEN
304:
305: IF (g_level_statement >= g_current_runtime_level ) THEN
306: FND_LOG.STRING(g_level_statement,
307: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
308: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
309: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
305: IF (g_level_statement >= g_current_runtime_level ) THEN
306: FND_LOG.STRING(g_level_statement,
307: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
308: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
309: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
312: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
313: END IF;
307: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
308: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
309: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
312: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
313: END IF;
314:
315: RETURN;
308: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
309: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
310: FND_LOG.STRING(g_level_statement,
311: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
312: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
313: END IF;
314:
315: RETURN;
316: END IF;
341:
342: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
343: IF (g_level_error >= g_current_runtime_level ) THEN
344: FND_LOG.STRING(g_level_error,
345: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
346: 'Incorrect return_status after calling ' ||
347: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for document_sub_type');
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
345: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
346: 'Incorrect return_status after calling ' ||
347: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for document_sub_type');
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
350: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
351: END IF;
352: RETURN;
353: END IF;
346: 'Incorrect return_status after calling ' ||
347: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for document_sub_type');
348: FND_LOG.STRING(g_level_error,
349: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
350: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
351: END IF;
352: RETURN;
353: END IF;
354:
360: -- EXCEPTION
361: -- WHEN NO_DATA_FOUND THEN
362: -- IF (g_level_event >= g_current_runtime_level ) THEN
363: -- FND_LOG.STRING(g_level_event,
364: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
365: -- 'No document_sub_type Found. ');
366: -- END IF;
367: -- l_document_sub_type := NULL;
368: -- WHEN TOO_MANY_ROWS THEN
367: -- l_document_sub_type := NULL;
368: -- WHEN TOO_MANY_ROWS THEN
369: -- IF (g_level_event >= g_current_runtime_level ) THEN
370: -- FND_LOG.STRING(g_level_event,
371: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
372: -- 'No document_sub_type defaulted. ');
373: -- END IF;
374: -- l_document_sub_type := NULL;
375: -- WHEN OTHERS THEN
374: -- l_document_sub_type := NULL;
375: -- WHEN OTHERS THEN
376: -- IF (g_level_event >= g_current_runtime_level ) THEN
377: -- FND_LOG.STRING(g_level_event,
378: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
379: -- sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
380: -- FND_LOG.STRING(g_level_event,
381: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
382: -- 'Other Exception: This exception will not stop the program.');
377: -- FND_LOG.STRING(g_level_event,
378: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
379: -- sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
380: -- FND_LOG.STRING(g_level_event,
381: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
382: -- 'Other Exception: This exception will not stop the program.');
383: -- END IF;
384: -- END;
385:
386: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) := l_document_sub_type;
387:
388: IF (g_level_statement >= g_current_runtime_level ) THEN
389: FND_LOG.STRING(g_level_statement,
390: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
391: 'l_document_sub_type = ' || l_document_sub_type);
392: END IF;
393: END IF;
394:
401:
402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
403: IF (g_level_error >= g_current_runtime_level ) THEN
404: FND_LOG.STRING(g_level_error,
405: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
406: 'Incorrect return_status after calling ' ||
407: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
408: FND_LOG.STRING(g_level_error,
409: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
405: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
406: 'Incorrect return_status after calling ' ||
407: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
408: FND_LOG.STRING(g_level_error,
409: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
410: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
411: END IF;
412: RETURN;
413: END IF;
406: 'Incorrect return_status after calling ' ||
407: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
408: FND_LOG.STRING(g_level_error,
409: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
410: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
411: END IF;
412: RETURN;
413: END IF;
414: ELSE -- if tax method is ETAX then
440:
441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
442: IF (g_level_error >= g_current_runtime_level ) THEN
443: FND_LOG.STRING(g_level_error,
444: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
445: 'Incorrect return_status after calling ' ||
446: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
447: FND_LOG.STRING(g_level_error,
448: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
444: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
445: 'Incorrect return_status after calling ' ||
446: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
447: FND_LOG.STRING(g_level_error,
448: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
449: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
450: END IF;
451: RETURN;
452: END IF;
445: 'Incorrect return_status after calling ' ||
446: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
447: FND_LOG.STRING(g_level_error,
448: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
449: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
450: END IF;
451: RETURN;
452: END IF;
453:
480: --
481: -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
482: -- IF (g_level_statement >= g_current_runtime_level ) THEN
483: -- FND_LOG.STRING(g_level_statement,
484: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
485: -- 'Incorrect return_status after calling ' ||
486: -- 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for user_defined');
487: -- FND_LOG.STRING(g_level_statement,
488: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
484: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
485: -- 'Incorrect return_status after calling ' ||
486: -- 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for user_defined');
487: -- FND_LOG.STRING(g_level_statement,
488: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
489: -- 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
490: -- END IF;
491: -- RETURN;
492: -- END IF;
485: -- 'Incorrect return_status after calling ' ||
486: -- 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for user_defined');
487: -- FND_LOG.STRING(g_level_statement,
488: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
489: -- 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
490: -- END IF;
491: -- RETURN;
492: -- END IF;
493: --
492: -- END IF;
493: --
494: -- IF (g_level_statement >= g_current_runtime_level ) THEN
495: -- FND_LOG.STRING(g_level_statement,
496: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
497: -- 'l_user_defined_fisc_class= ' || l_user_defined_fisc_class);
498: -- END IF;
499: --
500: -- ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.USER_DEFINED_FISC_CLASS(
505:
506: IF (g_level_procedure >= g_current_runtime_level ) THEN
507:
508: FND_LOG.STRING(g_level_procedure,
509: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
510: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
511: END IF;
512:
513: EXCEPTION
506: IF (g_level_procedure >= g_current_runtime_level ) THEN
507:
508: FND_LOG.STRING(g_level_procedure,
509: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
510: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
511: END IF;
512:
513: EXCEPTION
514:
529: END IF;
530:
531: IF (g_level_unexpected >= g_current_runtime_level ) THEN
532: FND_LOG.STRING(g_level_unexpected,
533: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
534: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
535: FND_LOG.STRING(g_level_unexpected,
536: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
537: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
532: FND_LOG.STRING(g_level_unexpected,
533: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
534: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
535: FND_LOG.STRING(g_level_unexpected,
536: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
537: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
538: END IF;
539:
540: END DEFAULT_TAX_DET_FACTORS;
533: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
534: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
535: FND_LOG.STRING(g_level_unexpected,
536: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
537: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
538: END IF;
539:
540: END DEFAULT_TAX_DET_FACTORS;
541:
577: EXCEPTION
578: WHEN NO_DATA_FOUND THEN
579: IF (g_level_statement >= g_current_runtime_level ) THEN
580: FND_LOG.STRING(g_level_statement,
581: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
582: 'No Record Found for tax_invoice_number and tax_invoice_date.');
583: END IF;
584: WHEN OTHERS THEN
585: IF (g_level_unexpected >= g_current_runtime_level ) THEN
583: END IF;
584: WHEN OTHERS THEN
585: IF (g_level_unexpected >= g_current_runtime_level ) THEN
586: FND_LOG.STRING(g_level_unexpected,
587: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
588: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
589: END IF;
590: END;
591:
640: END IF;
641:
642: IF (g_level_unexpected >= g_current_runtime_level ) THEN
643: FND_LOG.STRING(g_level_unexpected,
644: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
645: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
646: FND_LOG.STRING(g_level_unexpected,
647: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS.END',
648: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS(-)');
643: FND_LOG.STRING(g_level_unexpected,
644: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
645: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
646: FND_LOG.STRING(g_level_unexpected,
647: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS.END',
648: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS(-)');
649: END IF;
650:
651:
644: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
645: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
646: FND_LOG.STRING(g_level_unexpected,
647: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS.END',
648: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS(-)');
649: END IF;
650:
651:
652: END DEFAULT_TAX_REPORTING_ATTRIBS;
757: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
758:
759: IF (g_level_error >= g_current_runtime_level ) THEN
760: FND_LOG.STRING(g_level_error,
761: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION',
762: 'Incorrect return_status after calling ' ||
763: 'ZX_TAX_DEFAULT_PKG.get_default_tax_classification');
764: FND_LOG.STRING(g_level_error,
765: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION.END',
761: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION',
762: 'Incorrect return_status after calling ' ||
763: 'ZX_TAX_DEFAULT_PKG.get_default_tax_classification');
764: FND_LOG.STRING(g_level_error,
765: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION.END',
766: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION(-)');
767: END IF;
768:
769: RETURN;
762: 'Incorrect return_status after calling ' ||
763: 'ZX_TAX_DEFAULT_PKG.get_default_tax_classification');
764: FND_LOG.STRING(g_level_error,
765: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION.END',
766: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION(-)');
767: END IF;
768:
769: RETURN;
770:
873: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
874:
875: IF (g_level_procedure >= g_current_runtime_level ) THEN
876: FND_LOG.STRING(g_level_procedure,
877: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.BEGIN',
878: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(+)');
879: END IF;
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
874:
875: IF (g_level_procedure >= g_current_runtime_level ) THEN
876: FND_LOG.STRING(g_level_procedure,
877: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.BEGIN',
878: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(+)');
879: END IF;
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882:
910:
911: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
912: IF (g_level_statement >= g_current_runtime_level ) THEN
913: FND_LOG.STRING(g_level_statement,
914: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
915: 'Incorrect return_status after calling ' ||
916: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code()');
917: FND_LOG.STRING(g_level_statement,
918: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
914: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
915: 'Incorrect return_status after calling ' ||
916: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code()');
917: FND_LOG.STRING(g_level_statement,
918: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
919: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
920: END IF;
921: RETURN;
922: END IF;
915: 'Incorrect return_status after calling ' ||
916: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code()');
917: FND_LOG.STRING(g_level_statement,
918: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
919: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
920: END IF;
921: RETURN;
922: END IF;
923: END IF;
924:
925: IF (g_level_procedure >= g_current_runtime_level ) THEN
926:
927: FND_LOG.STRING(g_level_procedure,
928: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
929: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)'||
930: 'x_intended_use := ' || x_intended_use||
931: 'RETURN_STATUS = ' || x_return_status);
932: END IF;
925: IF (g_level_procedure >= g_current_runtime_level ) THEN
926:
927: FND_LOG.STRING(g_level_procedure,
928: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
929: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)'||
930: 'x_intended_use := ' || x_intended_use||
931: 'RETURN_STATUS = ' || x_return_status);
932: END IF;
933:
941: FND_MSG_PUB.Add;
942:
943: IF (g_level_unexpected >= g_current_runtime_level ) THEN
944: FND_LOG.STRING(g_level_unexpected,
945: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
946: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
947: FND_LOG.STRING(g_level_unexpected,
948: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
949: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
944: FND_LOG.STRING(g_level_unexpected,
945: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
946: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
947: FND_LOG.STRING(g_level_unexpected,
948: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
949: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
950: END IF;
951:
952: END redefault_intended_use;
945: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
946: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
947: FND_LOG.STRING(g_level_unexpected,
948: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
949: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
950: END IF;
951:
952: END redefault_intended_use;
953:
971: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
972:
973: IF (g_level_procedure >= g_current_runtime_level ) THEN
974: FND_LOG.STRING(g_level_procedure,
975: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.BEGIN',
976: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(+)');
977: END IF;
978:
979: x_return_status := FND_API.G_RET_STS_SUCCESS;
972:
973: IF (g_level_procedure >= g_current_runtime_level ) THEN
974: FND_LOG.STRING(g_level_procedure,
975: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.BEGIN',
976: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(+)');
977: END IF;
978:
979: x_return_status := FND_API.G_RET_STS_SUCCESS;
980:
1001:
1002: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1003: IF (g_level_error >= g_current_runtime_level ) THEN
1004: FND_LOG.STRING(g_level_error,
1005: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1006: 'Incorrect return_status after calling ' ||
1007: 'ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif()');
1008: FND_LOG.STRING(g_level_error,
1009: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1005: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1006: 'Incorrect return_status after calling ' ||
1007: 'ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif()');
1008: FND_LOG.STRING(g_level_error,
1009: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1010: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||x_return_status);
1011: END IF;
1012: RETURN;
1013: END IF;
1006: 'Incorrect return_status after calling ' ||
1007: 'ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif()');
1008: FND_LOG.STRING(g_level_error,
1009: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1010: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||x_return_status);
1011: END IF;
1012: RETURN;
1013: END IF;
1014: ELSIF l_tax_method = 'LTE' THEN
1038: EXCEPTION
1039: WHEN NO_DATA_FOUND THEN
1040: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1041: FND_LOG.STRING(g_level_unexpected,
1042: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1043: 'Unable to default Product Fiscal Classification which is mandatory for LTE');
1044: END IF;
1045: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046:
1073:
1074: IF (g_level_procedure >= g_current_runtime_level ) THEN
1075:
1076: FND_LOG.STRING(g_level_procedure,
1077: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1078: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||
1079: 'x_prod_fisc_class_code := ' || x_prod_fisc_class_code||
1080: 'RETURN_STATUS = ' || x_return_status);
1081: END IF;
1074: IF (g_level_procedure >= g_current_runtime_level ) THEN
1075:
1076: FND_LOG.STRING(g_level_procedure,
1077: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1078: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||
1079: 'x_prod_fisc_class_code := ' || x_prod_fisc_class_code||
1080: 'RETURN_STATUS = ' || x_return_status);
1081: END IF;
1082:
1090: FND_MSG_PUB.Add;
1091:
1092: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1093: FND_LOG.STRING(g_level_unexpected,
1094: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1095: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1096: FND_LOG.STRING(g_level_unexpected,
1097: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1098: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)');
1093: FND_LOG.STRING(g_level_unexpected,
1094: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1095: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1096: FND_LOG.STRING(g_level_unexpected,
1097: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1098: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)');
1099: END IF;
1100:
1101: END redefault_prod_fisc_class_code;
1094: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1095: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1096: FND_LOG.STRING(g_level_unexpected,
1097: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1098: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)');
1099: END IF;
1100:
1101: END redefault_prod_fisc_class_code;
1102:
1121: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1122:
1123: IF (g_level_procedure >= g_current_runtime_level ) THEN
1124: FND_LOG.STRING(g_level_procedure,
1125: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.BEGIN',
1126: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(+)');
1127: END IF;
1128:
1129: x_return_status := FND_API.G_RET_STS_SUCCESS;
1122:
1123: IF (g_level_procedure >= g_current_runtime_level ) THEN
1124: FND_LOG.STRING(g_level_procedure,
1125: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.BEGIN',
1126: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(+)');
1127: END IF;
1128:
1129: x_return_status := FND_API.G_RET_STS_SUCCESS;
1130:
1135:
1136: IF (g_level_procedure >= g_current_runtime_level ) THEN
1137:
1138: FND_LOG.STRING(g_level_procedure,
1139: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1140: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)'||
1141: ' assessable value: '||x_assessable_value);
1142: END IF;
1143:
1136: IF (g_level_procedure >= g_current_runtime_level ) THEN
1137:
1138: FND_LOG.STRING(g_level_procedure,
1139: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1140: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)'||
1141: ' assessable value: '||x_assessable_value);
1142: END IF;
1143:
1144: EXCEPTION
1151: FND_MSG_PUB.Add;
1152:
1153: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1154: FND_LOG.STRING(g_level_unexpected,
1155: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value',
1156: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1157: FND_LOG.STRING(g_level_unexpected,
1158: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1159: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)');
1154: FND_LOG.STRING(g_level_unexpected,
1155: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value',
1156: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1157: FND_LOG.STRING(g_level_unexpected,
1158: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1159: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)');
1160: END IF;
1161:
1162: END redefault_assessable_value;
1155: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value',
1156: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1157: FND_LOG.STRING(g_level_unexpected,
1158: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1159: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)');
1160: END IF;
1161:
1162: END redefault_assessable_value;
1163:
1189: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1190:
1191: IF (g_level_procedure >= g_current_runtime_level ) THEN
1192: FND_LOG.STRING(g_level_procedure,
1193: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.BEGIN',
1194: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(+)');
1195: END IF;
1196:
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1190:
1191: IF (g_level_procedure >= g_current_runtime_level ) THEN
1192: FND_LOG.STRING(g_level_procedure,
1193: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.BEGIN',
1194: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(+)');
1195: END IF;
1196:
1197: x_return_status := FND_API.G_RET_STS_SUCCESS;
1198:
1212:
1213: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1214: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1215: FND_LOG.STRING(g_level_unexpected,
1216: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1217: 'Incorrect return_status after calling ' ||
1218: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
1219: FND_LOG.STRING(g_level_unexpected,
1220: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1216: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1217: 'Incorrect return_status after calling ' ||
1218: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
1219: FND_LOG.STRING(g_level_unexpected,
1220: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1221: 'RETURN_STATUS = ' || x_return_status);
1222: FND_LOG.STRING(g_level_unexpected,
1223: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1224: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1219: FND_LOG.STRING(g_level_unexpected,
1220: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1221: 'RETURN_STATUS = ' || x_return_status);
1222: FND_LOG.STRING(g_level_unexpected,
1223: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1224: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1225: END IF;
1226: RETURN;
1227: END IF;
1220: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1221: 'RETURN_STATUS = ' || x_return_status);
1222: FND_LOG.STRING(g_level_unexpected,
1223: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1224: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1225: END IF;
1226: RETURN;
1227: END IF;
1228:
1237: EXCEPTION
1238: WHEN NO_DATA_FOUND THEN
1239: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1240: FND_LOG.STRING(g_level_unexpected,
1241: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1242: 'Invalid Tax Code Id: No Record Found');
1243: END IF;
1244: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261;
1245: END;
1253:
1254: ELSE
1255: IF (g_level_statement >= g_current_runtime_level ) THEN
1256: FND_LOG.STRING(g_level_statement,
1257: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1258: 'No Valid Tax Classification Code Found for Tax Code Id: ' ||
1259: l_tax_code_id);
1260: END IF;
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1275:
1276: IF NOT l_fnd_return THEN
1277: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1278: FND_LOG.STRING(g_level_unexpected,
1279: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1280: 'Got error after calling FND_INSTALLATION.get');
1281: FND_LOG.STRING(g_level_unexpected,
1282: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1283: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1278: FND_LOG.STRING(g_level_unexpected,
1279: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1280: 'Got error after calling FND_INSTALLATION.get');
1281: FND_LOG.STRING(g_level_unexpected,
1282: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1283: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1284: END IF;
1285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1286: RETURN;
1279: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1280: 'Got error after calling FND_INSTALLATION.get');
1281: FND_LOG.STRING(g_level_unexpected,
1282: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1283: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1284: END IF;
1285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1286: RETURN;
1287: END IF;
1290: p_trx_line_index) IS NOT NULL THEN
1291:
1292: IF g_level_statement >= G_CURRENT_RUNTIME_LEVEL THEN
1293: FND_LOG.STRING(g_level_statement,
1294: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1295: 'Default Product Fisiclassification Code or Product Category');
1296: END IF;
1297:
1298: IF l_country_code = 'BR' THEN
1325: EXCEPTION
1326: WHEN NO_DATA_FOUND THEN
1327: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1328: FND_LOG.STRING(g_level_unexpected,
1329: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1330: 'Not MTL Item Found');
1331: END IF;
1332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1333: END;
1352: THEN
1353:
1354: IF ( g_level_statement >= G_CURRENT_RUNTIME_LEVEL) THEN
1355: FND_LOG.STRING(g_level_statement,
1356: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1357: 'Default Transaction Business _category for Brazil');
1358: END IF;
1359:
1360: IF l_country_code = 'BR' THEN
1372: EXCEPTION
1373: WHEN NO_DATA_FOUND THEN
1374: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1375: FND_LOG.STRING(g_level_unexpected,
1376: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1377: 'Not MTL Item Found');
1378: END IF;
1379: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1380: END;
1383:
1384: IF (g_level_procedure >= g_current_runtime_level ) THEN
1385:
1386: FND_LOG.STRING(g_level_procedure,
1387: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1388: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)'||x_return_status);
1389: END IF;
1390:
1391: EXCEPTION
1384: IF (g_level_procedure >= g_current_runtime_level ) THEN
1385:
1386: FND_LOG.STRING(g_level_procedure,
1387: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1388: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)'||x_return_status);
1389: END IF;
1390:
1391: EXCEPTION
1392: WHEN OTHERS THEN
1407: END IF;
1408:
1409: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1410: FND_LOG.STRING(g_level_unexpected,
1411: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1412: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1413: FND_LOG.STRING(g_level_unexpected,
1414: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1415: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1410: FND_LOG.STRING(g_level_unexpected,
1411: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1412: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1413: FND_LOG.STRING(g_level_unexpected,
1414: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1415: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1416: END IF;
1417:
1418: END default_tax_attributes_for_po;
1411: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1412: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1413: FND_LOG.STRING(g_level_unexpected,
1414: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1415: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1416: END IF;
1417:
1418: END default_tax_attributes_for_po;
1419:
1462: WHEN NO_DATA_FOUND THEN
1463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1464: IF (g_level_statement >= g_current_runtime_level ) THEN
1465: FND_LOG.STRING(g_level_statement,
1466: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1467: 'No COUNTRY_CODE Found For LTE.');
1468: END IF;
1469: WHEN OTHERS THEN
1470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: WHEN OTHERS THEN
1470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1471: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1472: FND_LOG.STRING(g_level_unexpected,
1473: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1474: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1475: END IF;
1476: END;
1477:
1485: WHEN NO_DATA_FOUND THEN
1486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1487: IF (g_level_statement >= g_current_runtime_level ) THEN
1488: FND_LOG.STRING(g_level_statement,
1489: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1490: 'No COUNTRY_CODE Found for EBTax. ');
1491: END IF;
1492: WHEN OTHERS THEN
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1492: WHEN OTHERS THEN
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1494: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1495: FND_LOG.STRING(g_level_unexpected,
1496: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1497: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1498: END IF;
1499: END;
1500:
1503: x_country_code:= l_country_code;
1504:
1505: END GET_DEFAULT_COUNTRY_CODE;
1506:
1507: END ZX_DEFAULT_AUTOMATION_PKG;