1: PACKAGE BODY ZX_TCM_VALIDATE_EXEMPT_PKG AS
2: /* $Header: zxcvalexemptb.pls 120.2 2005/12/21 02:59:09 sachandr ship $ */
3: -- Logging Infra
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
2: /* $Header: zxcvalexemptb.pls 120.2 2005/12/21 02:59:09 sachandr ship $ */
3: -- Logging Infra
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
3: -- Logging Infra
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_TCM_VAL_EXEMPT_PKG';
4: G_CURRENT_RUNTIME_LEVEL NUMBER;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_TCM_VAL_EXEMPT_PKG';
12:
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_TCM_VAL_EXEMPT_PKG';
12:
13: PROCEDURE VALIDATE_TAX_EXEMPTIONS
6: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.ZX_TCM_VAL_EXEMPT_PKG';
12:
13: PROCEDURE VALIDATE_TAX_EXEMPTIONS
14: (p_tax_exempt_number IN VARCHAR2,
35: l_msg_count NUMBER;
36: l_msg_data VARCHAR2(2000);
37: -- Logging Infra
38: l_procedure_name CONSTANT VARCHAR2(30) := 'validate_tax_exemptions';
39: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
40: BEGIN
41: -- Logging Infra: Setting up runtime message level
42: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
38: l_procedure_name CONSTANT VARCHAR2(30) := 'validate_tax_exemptions';
39: l_log_msg FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
40: BEGIN
41: -- Logging Infra: Setting up runtime message level
42: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
43: x_return_status := FND_API.G_RET_STS_SUCCESS;
44: x_valid_flag := 'N';
45: IF p_legal_entity_id IS NULL THEN
46: IF p_trx_type_id IS NOT NULL AND p_batch_source_id IS NOT NULL AND p_org_id IS NOT NULL THEN
55: EXCEPTION WHEN OTHERS THEN
56: x_return_status := FND_API.G_RET_STS_ERROR;
57: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
58: l_log_msg := 'Function XLE_BUSINESSINFO_GRP.Get_OrdertoCash_Info returned errors';
59: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
60: END IF;
61:
62: END;
63: ELSE
64: x_return_status := FND_API.G_RET_STS_ERROR;
65: ----- Unable to derive legal entity
66: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
67: l_log_msg := 'Transaction Type Id or Batch source Id or Org Id is null.';
68: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
69: END IF;
70: END IF;
71: ELSE
72: l_legal_entity_id := p_legal_entity_id;
167: x_return_status := FND_API.G_RET_STS_ERROR;
168: -- Logging Infra: Statement level
169: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
170: l_log_msg := 'E: EXC: FND_API.G_EXC_ERROR';
171: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
172: END IF;
173:
174: WHEN OTHERS THEN
175: x_return_status := FND_API.G_RET_STS_ERROR;
174: WHEN OTHERS THEN
175: x_return_status := FND_API.G_RET_STS_ERROR;
176: -- Logging Infra: Statement level
177: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'E: EXC: OTHERS: '||SQLCODE||': '||SQLERRM);
179: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
180: END IF;
181:
182:
175: x_return_status := FND_API.G_RET_STS_ERROR;
176: -- Logging Infra: Statement level
177: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, 'E: EXC: OTHERS: '||SQLCODE||': '||SQLERRM);
179: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME || l_procedure_name, l_log_msg);
180: END IF;
181:
182:
183: