[Home] [Help]
1: PACKAGE BODY ZX_VALIDATE_API_PKG AS
2: /* $Header: zxapdefvalpkgb.pls 120.110.12020000.4 2013/01/22 06:43:09 satprasa ship $ */
3:
4: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
5: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
6:
7: g_current_runtime_level NUMBER;
8: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
1: PACKAGE BODY ZX_VALIDATE_API_PKG AS
2: /* $Header: zxapdefvalpkgb.pls 120.110.12020000.4 2013/01/22 06:43:09 satprasa ship $ */
3:
4: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
5: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
6:
7: g_current_runtime_level NUMBER;
8: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
9: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
158: l_count_lines NUMBER;
159:
160: BEGIN
161:
162: x_return_status := FND_API.G_RET_STS_SUCCESS;
163: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
164:
165: IF (g_level_procedure >= g_current_runtime_level ) THEN
166: FND_LOG.STRING(g_level_procedure,
251: -- Need to verify if we need to raise a UNEXPECTED error if we fail to set first party
252: -- Checked with Isaac. This should not be an unexpected error, but raise one valdn error for
253: -- all transactions and do not proceed further => Changes yet to be implemented
254:
255: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
256: IF (g_level_exception >= g_current_runtime_level ) THEN
257: FND_LOG.STRING(g_level_exception,
258: 'ZX.PLSQL.ZX_VALIDATE_API_PKG.DEFAULT_AND_VALIDATE_TAX_ATTR:
259: Get Tax Subscriber : Returned Error Status',
485: FND_LOG.STRING(g_level_unexpected,
486: 'ZX_VALIDATE_API_PKG.DEFAULT_AND_VALIDATE_TAX_ATTR',
487: sqlerrm);
488: END IF;
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
490: app_exception.raise_exception;
491: END Default_And_Validate_Tax_Attr;
492:
493:
538: AND header.trx_id = lines.trx_id ;
539:
540: BEGIN
541:
542: x_return_status := FND_API.G_RET_STS_SUCCESS;
543: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
544: IF (g_level_procedure >= g_current_runtime_level ) THEN
545: FND_LOG.STRING(g_level_procedure,
546: 'ZX.PLSQL.ZX_VALIDATE_API_PKG.DEFAULT_TAX_ATTR',
1926: FND_LOG.STRING(g_level_unexpected,
1927: 'ZX_VALIDATE_API_PKG.DEFAULT_TAX_ATTR',
1928: sqlerrm);
1929: END IF;
1930: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1931: app_exception.raise_exception;
1932:
1933: END Default_Tax_Attr;
1934:
2213: summary_tax_line_number
2214: FROM zx_trx_tax_link_gt;
2215:
2216: BEGIN
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2218: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2219: IF (g_level_procedure >= g_current_runtime_level ) THEN
2220: FND_LOG.STRING(g_level_procedure,
2221: 'ZX.PLSQL.ZX_VALIDATE_API_PKG.VALIDATE_TAX_ATTR.BEGIN',
8475: FND_LOG.STRING(g_level_unexpected,
8476: 'ZX.PLSQL.ZX_VALIDATE_API_PKG.VALIDATE_TAX_ATTR',
8477: SQLERRM);
8478: END IF;
8479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8480: app_exception.raise_exception;
8481: END Validate_Tax_Attr;
8482:
8483:
9024: 'ZX_VALIDATE_API_PKG.Validate_Other_Documents',
9025: sqlerrm);
9026: END IF;
9027:
9028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9029: app_exception.raise_exception;
9030: END Validate_Other_Documents;
9031:
9032:
9183:
9184: --
9185: -- init error buffer and return status
9186: --
9187: x_return_status := FND_API.G_RET_STS_SUCCESS;
9188: l_error_buffer := NULL;
9189:
9190: IF (g_level_statement >= g_current_runtime_level ) THEN
9191: FND_LOG.STRING(g_level_statement,
9335: l_definforec,
9336: x_return_status,
9337: l_error_buffer);
9338:
9339: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9340: EXIT;
9341: END IF;
9342:
9343: --
9348: l_output_tax_classif_code_tbl(i) := l_definforec.output_tax_classification_code;
9349: -- END IF ; -- end if for the conditional call
9350: END LOOP;
9351:
9352: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9353: EXIT;
9354: END IF;
9355:
9356: --
9387: EXIT;
9388: END IF;
9389: END LOOP;
9390:
9391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9392: CLOSE get_parm_info_for_def_tax_csr;
9393: RETURN;
9394: END IF;
9395:
9406: END IF;
9407:
9408: EXCEPTION
9409: WHEN OTHERS THEN
9410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9411: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
9412: IF get_parm_info_for_def_tax_csr%ISOPEN THEN
9413: CLOSE get_parm_info_for_def_tax_csr;
9414: END IF;
9881: 'ZX.PLSQL.ZX_VALIDATE_API_PKG.def_additional_tax_attribs',
9882: 'Before opening the cursor - gtt_to_glb_strctr_csr');
9883: END IF;
9884:
9885: x_return_status := FND_API.G_RET_STS_SUCCESS;
9886: OPEN gtt_to_glb_strctr_csr;
9887:
9888: IF (g_level_statement >= g_current_runtime_level ) THEN
9889: FND_LOG.STRING(g_level_statement,
10304: p_event_class_rec => l_event_class_rec,
10305: x_return_status => l_return_status
10306: );
10307:
10308: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10309: IF (g_level_procedure >= g_current_runtime_level ) THEN
10310: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_VALIDATE_API_PKG.def_additional_tax_attribs',
10311: 'x_return_status = ' || x_return_status);
10312: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_VALIDATE_API_PKG.def_additional_tax_attribs',
10346: NULL, --p_tax_invoice_date
10347: x_return_status
10348: );
10349:
10350: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10351: IF (g_level_procedure >= g_current_runtime_level ) THEN
10352: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_VALIDATE_API_PKG.def_additional_tax_attribs',
10353: 'x_return_status = ' || x_return_status);
10354: FND_LOG.STRING(g_level_procedure,'ZX.PLSQL.ZX_VALIDATE_API_PKG.def_additional_tax_attribs',
10440:
10441: EXCEPTION
10442:
10443: WHEN OTHERS THEN
10444: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10445: l_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
10446: IF gtt_to_glb_strctr_csr%ISOPEN THEN
10447: CLOSE gtt_to_glb_strctr_csr;
10448: END IF;