16:
17: l_error_buffer VARCHAR2(240);
18:
19: g_current_runtime_level NUMBER;
20: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
24: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
17: l_error_buffer VARCHAR2(240);
18:
19: g_current_runtime_level NUMBER;
20: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
24: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
25:
18:
19: g_current_runtime_level NUMBER;
20: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
24: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
25:
26: TYPE DET_TAX_ATTR_REC IS RECORD
19: g_current_runtime_level NUMBER;
20: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
24: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
25:
26: TYPE DET_TAX_ATTR_REC IS RECORD
27: (DEFAULT_TAXATION_COUNTRY zx_lines_det_factors.DEFAULT_TAXATION_COUNTRY%type,
20: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
21: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
22: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
23: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
24: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
25:
26: TYPE DET_TAX_ATTR_REC IS RECORD
27: (DEFAULT_TAXATION_COUNTRY zx_lines_det_factors.DEFAULT_TAXATION_COUNTRY%type,
28: DOCUMENT_SUB_TYPE zx_lines_det_factors.DOCUMENT_SUB_TYPE%type,
57: l_intrcmp_src_entity_code VARCHAR2(30);
58: l_intrcmp_src_event_class_code VARCHAR2(30);
59: BEGIN
60: IF (g_level_procedure >= g_current_runtime_level ) THEN
61: FND_LOG.STRING(g_level_procedure,
62: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
63: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(+)');
64: END IF;
65:
66: x_return_status := FND_API.G_RET_STS_SUCCESS;
67: x_default := 'N';
68:
69: IF (g_level_statement >= g_current_runtime_level ) THEN
70: FND_LOG.STRING(g_level_statement,
71: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
72: 'default_taxation_country(' || p_trx_line_index || ') = '
73: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.default_taxation_country(p_trx_line_index) || '$' ||
74: 'DOCUMENT_SUB_TYPE = '
214: x_return_status => x_return_status
215: );
216: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
217: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(G_LEVEL_STATEMENT,
219: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
220: ' RETURN_STATUS = ' || x_return_status);
221: END IF;
222: RETURN;
298:
299: --Bug 14265312, Retain user_upd_det_factors_flag if the profile to retain manual tax from REQ to PO is Y
300: IF NVL(FND_PROFILE.value('PO_RETAIN_MANUALLY_UPDATED_PR_TAX_ON_PO'), 'N') = 'Y' THEN
301: IF (g_level_procedure >= g_current_runtime_level ) THEN
302: FND_LOG.STRING(g_level_procedure,
303: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
304: 'Retain manual tax from requisition to purchase order: Yes ');
305: END IF;
306:
318: END IF;
319: END IF;
320:
321: IF (g_level_statement >= g_current_runtime_level ) THEN
322: FND_LOG.STRING(g_level_statement,
323: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
324: 'default_taxation_country(' || p_trx_line_index || ') = '
325: || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.default_taxation_country(p_trx_line_index) || '$' ||
326: 'DOCUMENT_SUB_TYPE = '
354: );
355: END IF;
356:
357: IF (g_level_procedure >= g_current_runtime_level ) THEN
358: FND_LOG.STRING(g_level_procedure,
359: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
360: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_FROM_SOURCE_DOC(-)');
361: END IF;
362:
401: l_default VARCHAR2(1);
402:
403: BEGIN
404:
405: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
406:
407: IF (g_level_procedure >= g_current_runtime_level ) THEN
408: FND_LOG.STRING(g_level_procedure,
409: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
404:
405: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
406:
407: IF (g_level_procedure >= g_current_runtime_level ) THEN
408: FND_LOG.STRING(g_level_procedure,
409: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.BEGIN',
410: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(+)'||
411: ' taxation_country = ' || p_taxation_country||
412: ' document_sub_type = ' || p_document_sub_type);
463: x_return_status );
464:
465: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
466: IF (g_level_error >= g_current_runtime_level ) THEN
467: FND_LOG.STRING(g_level_error,
468: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
469: 'Incorrect return_status after calling ' ||
470: 'ZX_TCM_EXT_SERVICES_PUB.GET_DEFAULT_COUNTRY_CODE');
471: FND_LOG.STRING(g_level_error,
467: FND_LOG.STRING(g_level_error,
468: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
469: 'Incorrect return_status after calling ' ||
470: 'ZX_TCM_EXT_SERVICES_PUB.GET_DEFAULT_COUNTRY_CODE');
471: FND_LOG.STRING(g_level_error,
472: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
473: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
474: END IF;
475:
479:
480: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) := l_country_code;
481:
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: 'l_country_code = ' || l_country_code);
486: END IF;
487:
498: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.USER_DEFINED_FISC_CLASS(p_trx_line_index) IS NOT NULL OR
499: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ASSESSABLE_VALUE(p_trx_line_index) IS NOT NULL) THEN
500:
501: IF (g_level_statement >= g_current_runtime_level ) THEN
502: FND_LOG.STRING(g_level_statement,
503: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
504: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
505: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
506: FND_LOG.STRING(g_level_statement,
502: FND_LOG.STRING(g_level_statement,
503: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
504: 'One of the defaulting tax attributes are not null. So defaulting logic is not required.' ||
505: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS()');
506: FND_LOG.STRING(g_level_statement,
507: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
508: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
509: END IF;
510:
536: p_return_status => x_return_status);
537:
538: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
539: IF (g_level_error >= g_current_runtime_level ) THEN
540: FND_LOG.STRING(g_level_error,
541: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
542: 'Incorrect return_status after calling ' ||
543: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for document_sub_type');
544: FND_LOG.STRING(g_level_error,
540: FND_LOG.STRING(g_level_error,
541: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
542: 'Incorrect return_status after calling ' ||
543: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for document_sub_type');
544: FND_LOG.STRING(g_level_error,
545: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
546: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
547: END IF;
548: RETURN;
555: -- AND (country_code = l_country_code OR country_code IS NULL);
556: -- EXCEPTION
557: -- WHEN NO_DATA_FOUND THEN
558: -- IF (g_level_event >= g_current_runtime_level ) THEN
559: -- FND_LOG.STRING(g_level_event,
560: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
561: -- 'No document_sub_type Found. ');
562: -- END IF;
563: -- l_document_sub_type := NULL;
562: -- END IF;
563: -- l_document_sub_type := NULL;
564: -- WHEN TOO_MANY_ROWS THEN
565: -- IF (g_level_event >= g_current_runtime_level ) THEN
566: -- FND_LOG.STRING(g_level_event,
567: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
568: -- 'No document_sub_type defaulted. ');
569: -- END IF;
570: -- l_document_sub_type := NULL;
569: -- END IF;
570: -- l_document_sub_type := NULL;
571: -- WHEN OTHERS THEN
572: -- IF (g_level_event >= g_current_runtime_level ) THEN
573: -- FND_LOG.STRING(g_level_event,
574: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
575: -- sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
576: -- FND_LOG.STRING(g_level_event,
577: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
572: -- IF (g_level_event >= g_current_runtime_level ) THEN
573: -- FND_LOG.STRING(g_level_event,
574: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
575: -- sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
576: -- FND_LOG.STRING(g_level_event,
577: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
578: -- 'Other Exception: This exception will not stop the program.');
579: -- END IF;
580: -- END;
581:
582: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) := l_document_sub_type;
583:
584: IF (g_level_statement >= g_current_runtime_level ) THEN
585: FND_LOG.STRING(g_level_statement,
586: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
587: 'l_document_sub_type = ' || l_document_sub_type);
588: END IF;
589: END IF;
596: x_return_status => x_return_status);
597:
598: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
599: IF (g_level_error >= g_current_runtime_level ) THEN
600: FND_LOG.STRING(g_level_error,
601: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
602: 'Incorrect return_status after calling ' ||
603: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
604: FND_LOG.STRING(g_level_error,
600: FND_LOG.STRING(g_level_error,
601: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
602: 'Incorrect return_status after calling ' ||
603: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
604: FND_LOG.STRING(g_level_error,
605: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
606: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
607: END IF;
608: RETURN;
617: l_inventory_org_id := nvl(ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.ship_to_party_id(p_trx_line_index),
618: ZX_GLOBAL_STRUCTURES_PKG.TRX_LINE_DIST_TBL.product_org_id(p_trx_line_index));
619: END IF;
620: IF (g_level_statement >= g_current_runtime_level ) THEN
621: FND_LOG.STRING(g_level_statement,
622: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
623: 'l_inventory_org_id = ' || NVL(l_inventory_org_id,-99));
624: END IF;
625: ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS
647: );
648:
649: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
650: IF (g_level_error >= g_current_runtime_level ) THEN
651: FND_LOG.STRING(g_level_error,
652: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
653: 'Incorrect return_status after calling ' ||
654: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
655: FND_LOG.STRING(g_level_error,
651: FND_LOG.STRING(g_level_error,
652: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
653: 'Incorrect return_status after calling ' ||
654: 'ZX_API_PUB.GET_DEFAULT_TAX_DET_ATTRIBS');
655: FND_LOG.STRING(g_level_error,
656: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
657: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
658: END IF;
659: RETURN;
687: -- p_return_status => x_return_status);
688: --
689: -- IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
690: -- IF (g_level_statement >= g_current_runtime_level ) THEN
691: -- FND_LOG.STRING(g_level_statement,
692: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
693: -- 'Incorrect return_status after calling ' ||
694: -- 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for user_defined');
695: -- FND_LOG.STRING(g_level_statement,
691: -- FND_LOG.STRING(g_level_statement,
692: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
693: -- 'Incorrect return_status after calling ' ||
694: -- 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code for user_defined');
695: -- FND_LOG.STRING(g_level_statement,
696: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
697: -- 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
698: -- END IF;
699: -- RETURN;
699: -- RETURN;
700: -- END IF;
701: --
702: -- IF (g_level_statement >= g_current_runtime_level ) THEN
703: -- FND_LOG.STRING(g_level_statement,
704: -- 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
705: -- 'l_user_defined_fisc_class= ' || l_user_defined_fisc_class);
706: -- END IF;
707: --
712: END IF; -- End of Tax method check
713:
714: IF (g_level_procedure >= g_current_runtime_level ) THEN
715:
716: FND_LOG.STRING(g_level_procedure,
717: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
718: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)'||x_return_status);
719: END IF;
720:
736: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
737: END IF;
738:
739: IF (g_level_unexpected >= g_current_runtime_level ) THEN
740: FND_LOG.STRING(g_level_unexpected,
741: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
742: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
743: FND_LOG.STRING(g_level_unexpected,
744: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
739: IF (g_level_unexpected >= g_current_runtime_level ) THEN
740: FND_LOG.STRING(g_level_unexpected,
741: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS',
742: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
743: FND_LOG.STRING(g_level_unexpected,
744: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS.END',
745: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_DET_FACTORS(-)');
746: END IF;
747:
770: x_return_status := FND_API.G_RET_STS_SUCCESS;
771: -- end bug#6503114
772:
773: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
774: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
775: END IF;
776:
777: BEGIN
778: SELECT nvl(global_attribute8,'0') global_attribute8,
784: NVL(ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.internal_organization_id(p_trx_line_index), -99);
785: EXCEPTION
786: WHEN NO_DATA_FOUND THEN
787: IF (g_level_statement >= g_current_runtime_level ) THEN
788: FND_LOG.STRING(g_level_statement,
789: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
790: 'No Record Found for tax_invoice_number and tax_invoice_date.');
791: END IF;
792: WHEN OTHERS THEN
790: 'No Record Found for tax_invoice_number and tax_invoice_date.');
791: END IF;
792: WHEN OTHERS THEN
793: IF (g_level_unexpected >= g_current_runtime_level ) THEN
794: FND_LOG.STRING(g_level_unexpected,
795: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
796: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
797: END IF;
798: END;
797: END IF;
798: END;
799:
800: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
802: 'p_tax_invoice_number := ' || p_tax_invoice_number||
803: ' l_tax_invoice_number := ' || l_tax_invoice_number||
804: 'p_tax_invoice_date := ' || p_tax_invoice_date||
805: 'l_tax_invoice_date := ' || l_tax_invoice_date);
825:
826: END IF;
827:
828: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
829: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME ||l_api_name||'(-)');
830: END IF;
831:
832: EXCEPTION
833:
847: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
848: END IF;
849:
850: IF (g_level_unexpected >= g_current_runtime_level ) THEN
851: FND_LOG.STRING(g_level_unexpected,
852: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
853: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
854: FND_LOG.STRING(g_level_unexpected,
855: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS.END',
850: IF (g_level_unexpected >= g_current_runtime_level ) THEN
851: FND_LOG.STRING(g_level_unexpected,
852: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS',
853: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
854: FND_LOG.STRING(g_level_unexpected,
855: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS.END',
856: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_REPORTING_ATTRIBS(-)');
857: END IF;
858:
874:
875: BEGIN
876:
877: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
878: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
879: END IF;
880:
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882:
964:
965: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
966:
967: IF (g_level_error >= g_current_runtime_level ) THEN
968: FND_LOG.STRING(g_level_error,
969: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION',
970: 'Incorrect return_status after calling ' ||
971: 'ZX_TAX_DEFAULT_PKG.get_default_tax_classification');
972: FND_LOG.STRING(g_level_error,
968: FND_LOG.STRING(g_level_error,
969: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION',
970: 'Incorrect return_status after calling ' ||
971: 'ZX_TAX_DEFAULT_PKG.get_default_tax_classification');
972: FND_LOG.STRING(g_level_error,
973: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION.END',
974: 'ZX_DEFAULT_AUTOMATION_PKG.DEFAULT_TAX_CLASSIFICATION(-)');
975: END IF;
976:
982:
983: END IF; -- End of PO Application check
984:
985: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
986: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME ||l_api_name||'(-)');
987: END IF;
988:
989: END DEFAULT_TAX_CLASSIFICATION;
990:
1006:
1007: BEGIN
1008:
1009: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1010: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
1011: END IF;
1012:
1013: DEFAULT_TAX_DET_FACTORS
1014: (
1020: );
1021:
1022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1023: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1024: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1025: 'after calling default_tax_det_factors RETURN_STATUS = ' || x_return_status);
1026: END IF;
1027: -- RETURN;
1028: END IF;
1036: );
1037:
1038: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1039: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1041: 'after calling default_tax_reporting_attribs RETURN_STATUS = ' || x_return_status);
1042: END IF;
1043: -- RETURN;
1044: END IF;
1050: );
1051:
1052: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1053: IF ( G_LEVEL_error >= G_CURRENT_RUNTIME_LEVEL) THEN
1054: FND_LOG.STRING(G_LEVEL_error,G_MODULE_NAME||l_api_name,
1055: 'after calling default_tax_classification RETURN_STATUS = ' || x_return_status);
1056: END IF;
1057: -- RETURN;
1058: END IF;
1077: l_zx_proudct_options_rec ZX_GLOBAL_STRUCTURES_PKG.zx_product_options_rec_type;
1078:
1079: BEGIN
1080:
1081: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1082:
1083: IF (g_level_procedure >= g_current_runtime_level ) THEN
1084: FND_LOG.STRING(g_level_procedure,
1085: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.BEGIN',
1080:
1081: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1082:
1083: IF (g_level_procedure >= g_current_runtime_level ) THEN
1084: FND_LOG.STRING(g_level_procedure,
1085: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.BEGIN',
1086: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(+)');
1087: END IF;
1088:
1117: p_return_status => x_return_status);
1118:
1119: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1120: IF (g_level_statement >= g_current_runtime_level ) THEN
1121: FND_LOG.STRING(g_level_statement,
1122: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
1123: 'Incorrect return_status after calling ' ||
1124: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code()');
1125: FND_LOG.STRING(g_level_statement,
1121: FND_LOG.STRING(g_level_statement,
1122: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
1123: 'Incorrect return_status after calling ' ||
1124: 'ZX_TCM_EXT_SERVICES_PUB.get_default_classif_code()');
1125: FND_LOG.STRING(g_level_statement,
1126: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
1127: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
1128: END IF;
1129: RETURN;
1131: END IF;
1132:
1133: IF (g_level_procedure >= g_current_runtime_level ) THEN
1134:
1135: FND_LOG.STRING(g_level_procedure,
1136: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
1137: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)'||
1138: 'x_intended_use := ' || x_intended_use||
1139: 'RETURN_STATUS = ' || x_return_status);
1148: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
1149: FND_MSG_PUB.Add;
1150:
1151: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1152: FND_LOG.STRING(g_level_unexpected,
1153: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
1154: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1155: FND_LOG.STRING(g_level_unexpected,
1156: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
1151: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1152: FND_LOG.STRING(g_level_unexpected,
1153: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use',
1154: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1155: FND_LOG.STRING(g_level_unexpected,
1156: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use.END',
1157: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_intended_use(-)');
1158: END IF;
1159:
1175: l_zx_proudct_options_rec ZX_GLOBAL_STRUCTURES_PKG.zx_product_options_rec_type;
1176:
1177: BEGIN
1178:
1179: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1180:
1181: IF (g_level_procedure >= g_current_runtime_level ) THEN
1182: FND_LOG.STRING(g_level_procedure,
1183: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.BEGIN',
1178:
1179: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1180:
1181: IF (g_level_procedure >= g_current_runtime_level ) THEN
1182: FND_LOG.STRING(g_level_procedure,
1183: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.BEGIN',
1184: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(+)');
1185: END IF;
1186:
1208: p_return_status => x_return_status);
1209:
1210: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1211: IF (g_level_error >= g_current_runtime_level ) THEN
1212: FND_LOG.STRING(g_level_error,
1213: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1214: 'Incorrect return_status after calling ' ||
1215: 'ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif()');
1216: FND_LOG.STRING(g_level_error,
1212: FND_LOG.STRING(g_level_error,
1213: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1214: 'Incorrect return_status after calling ' ||
1215: 'ZX_TCM_EXT_SERVICES_PUB.get_default_product_classif()');
1216: FND_LOG.STRING(g_level_error,
1217: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1218: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||x_return_status);
1219: END IF;
1220: RETURN;
1245:
1246: EXCEPTION
1247: WHEN NO_DATA_FOUND THEN
1248: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1249: FND_LOG.STRING(g_level_unexpected,
1250: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1251: 'Unable to default Product Fiscal Classification which is mandatory for LTE');
1252: END IF;
1253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1267:
1268: EXCEPTION
1269: WHEN NO_DATA_FOUND THEN
1270: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1271: FND_LOG.STRING(g_level_unexpected,
1272: 'JL_ZZ_TAX_VALIDATE_PKG.DEFAULT_TAX_ATTR',
1273: 'Unable to default Product Fiscal Classification ot Trx Business Category'||
1274: ' which is mandatory for LTE');
1275: END IF;
1280:
1281:
1282: IF (g_level_procedure >= g_current_runtime_level ) THEN
1283:
1284: FND_LOG.STRING(g_level_procedure,
1285: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1286: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)'||
1287: 'x_prod_fisc_class_code := ' || x_prod_fisc_class_code||
1288: 'RETURN_STATUS = ' || x_return_status);
1297: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
1298: FND_MSG_PUB.Add;
1299:
1300: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1301: FND_LOG.STRING(g_level_unexpected,
1302: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1303: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1304: FND_LOG.STRING(g_level_unexpected,
1305: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1300: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1301: FND_LOG.STRING(g_level_unexpected,
1302: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code',
1303: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1304: FND_LOG.STRING(g_level_unexpected,
1305: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code.END',
1306: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_prod_fisc_class_code(-)');
1307: END IF;
1308:
1325: l_error_buffer VARCHAR2(256);
1326:
1327: BEGIN
1328:
1329: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1330:
1331: IF (g_level_procedure >= g_current_runtime_level ) THEN
1332: FND_LOG.STRING(g_level_procedure,
1333: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.BEGIN',
1328:
1329: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1330:
1331: IF (g_level_procedure >= g_current_runtime_level ) THEN
1332: FND_LOG.STRING(g_level_procedure,
1333: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.BEGIN',
1334: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(+)');
1335: END IF;
1336:
1342: x_assessable_value := p_line_amt;
1343:
1344: IF (g_level_procedure >= g_current_runtime_level ) THEN
1345:
1346: FND_LOG.STRING(g_level_procedure,
1347: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1348: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)'||
1349: ' assessable value: '||x_assessable_value);
1350: END IF;
1358: FND_MESSAGE.SET_NAME('ZX','ZX_UNEXPECTED_ERROR');
1359: FND_MSG_PUB.Add;
1360:
1361: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1362: FND_LOG.STRING(g_level_unexpected,
1363: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value',
1364: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1365: FND_LOG.STRING(g_level_unexpected,
1366: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1361: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1362: FND_LOG.STRING(g_level_unexpected,
1363: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value',
1364: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1365: FND_LOG.STRING(g_level_unexpected,
1366: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value.END',
1367: 'ZX_DEFAULT_AUTOMATION_PKG.redefault_assessable_value(-)');
1368: END IF;
1369:
1393: l_context_info_rec ZX_API_PUB.context_info_rec_type;
1394:
1395: BEGIN
1396:
1397: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1398:
1399: IF (g_level_procedure >= g_current_runtime_level ) THEN
1400: FND_LOG.STRING(g_level_procedure,
1401: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.BEGIN',
1396:
1397: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1398:
1399: IF (g_level_procedure >= g_current_runtime_level ) THEN
1400: FND_LOG.STRING(g_level_procedure,
1401: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.BEGIN',
1402: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(+)');
1403: END IF;
1404:
1419: x_return_status);
1420:
1421: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1422: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1423: FND_LOG.STRING(g_level_unexpected,
1424: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1425: 'Incorrect return_status after calling ' ||
1426: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
1427: FND_LOG.STRING(g_level_unexpected,
1423: FND_LOG.STRING(g_level_unexpected,
1424: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1425: 'Incorrect return_status after calling ' ||
1426: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
1427: FND_LOG.STRING(g_level_unexpected,
1428: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1429: 'RETURN_STATUS = ' || x_return_status);
1430: FND_LOG.STRING(g_level_unexpected,
1431: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1426: 'ZX_TDS_APPLICABILITY_DETM_PKG.get_tax_date()');
1427: FND_LOG.STRING(g_level_unexpected,
1428: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1429: 'RETURN_STATUS = ' || x_return_status);
1430: FND_LOG.STRING(g_level_unexpected,
1431: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1432: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1433: END IF;
1434: RETURN;
1444:
1445: EXCEPTION
1446: WHEN NO_DATA_FOUND THEN
1447: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1448: FND_LOG.STRING(g_level_unexpected,
1449: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1450: 'Invalid Tax Code Id: No Record Found');
1451: END IF;
1452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261;
1460: p_trx_line_index) := l_tax_classification_code;
1461:
1462: ELSE
1463: IF (g_level_statement >= g_current_runtime_level ) THEN
1464: FND_LOG.STRING(g_level_statement,
1465: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1466: 'No Valid Tax Classification Code Found for Tax Code Id: ' ||
1467: l_tax_code_id);
1468: END IF;
1482: l_fnd_return := FND_INSTALLATION.get(401, 401, l_inv_flag, l_inv_industry);
1483:
1484: IF NOT l_fnd_return THEN
1485: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1486: FND_LOG.STRING(g_level_unexpected,
1487: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1488: 'Got error after calling FND_INSTALLATION.get');
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1485: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1486: FND_LOG.STRING(g_level_unexpected,
1487: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1488: 'Got error after calling FND_INSTALLATION.get');
1489: FND_LOG.STRING(g_level_unexpected,
1490: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1491: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1492: END IF;
1493: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1497: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.global_attribute1(
1498: p_trx_line_index) IS NOT NULL THEN
1499:
1500: IF g_level_statement >= G_CURRENT_RUNTIME_LEVEL THEN
1501: FND_LOG.STRING(g_level_statement,
1502: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1503: 'Default Product Fisiclassification Code or Product Category');
1504: END IF;
1505:
1532:
1533: EXCEPTION
1534: WHEN NO_DATA_FOUND THEN
1535: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1536: FND_LOG.STRING(g_level_unexpected,
1537: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1538: 'Not MTL Item Found');
1539: END IF;
1540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1559: p_trx_line_index) IS NOT NULL
1560: THEN
1561:
1562: IF ( g_level_statement >= G_CURRENT_RUNTIME_LEVEL) THEN
1563: FND_LOG.STRING(g_level_statement,
1564: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1565: 'Default Transaction Business _category for Brazil');
1566: END IF;
1567:
1579:
1580: EXCEPTION
1581: WHEN NO_DATA_FOUND THEN
1582: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1583: FND_LOG.STRING(g_level_unexpected,
1584: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1585: 'Not MTL Item Found');
1586: END IF;
1587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR; -- bug 4893261
1590: END IF;
1591:
1592: IF (g_level_procedure >= g_current_runtime_level ) THEN
1593:
1594: FND_LOG.STRING(g_level_procedure,
1595: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1596: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)'||x_return_status);
1597: END IF;
1598:
1614: ZX_API_PUB.add_msg( p_context_info_rec =>l_context_info_rec );
1615: END IF;
1616:
1617: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1618: FND_LOG.STRING(g_level_unexpected,
1619: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1620: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1621: FND_LOG.STRING(g_level_unexpected,
1622: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1617: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1618: FND_LOG.STRING(g_level_unexpected,
1619: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po',
1620: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1621: FND_LOG.STRING(g_level_unexpected,
1622: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po.END',
1623: 'ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(-)');
1624: END IF;
1625:
1643:
1644: BEGIN
1645:
1646: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
1648: END IF;
1649:
1650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1647: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
1648: END IF;
1649:
1650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
1652: ' p_tax_method_code := ' || p_tax_method_code ||
1653: ' p_internal_org_id := ' || to_char(p_internal_org_id) ||
1654: ' p_legal_entity_id := ' || to_char(p_legal_entity_id) );
1655: END IF;
1669: EXCEPTION
1670: WHEN NO_DATA_FOUND THEN
1671: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1672: IF (g_level_statement >= g_current_runtime_level ) THEN
1673: FND_LOG.STRING(g_level_statement,
1674: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1675: 'No COUNTRY_CODE Found For LTE.');
1676: END IF;
1677: WHEN OTHERS THEN
1676: END IF;
1677: WHEN OTHERS THEN
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1680: FND_LOG.STRING(g_level_unexpected,
1681: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1682: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1683: END IF;
1684: END;
1692: EXCEPTION
1693: WHEN NO_DATA_FOUND THEN
1694: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1695: IF (g_level_statement >= g_current_runtime_level ) THEN
1696: FND_LOG.STRING(g_level_statement,
1697: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1698: 'No COUNTRY_CODE Found for EBTax. ');
1699: END IF;
1700: WHEN OTHERS THEN
1699: END IF;
1700: WHEN OTHERS THEN
1701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1702: IF (g_level_unexpected >= g_current_runtime_level ) THEN
1703: FND_LOG.STRING(g_level_unexpected,
1704: 'ZX.PLSQL.ZX_DEFAULT_AUTOMATION_PKG.GET_DEFAULT_COUNTRY_CODE',
1705: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
1706: END IF;
1707: END;