27: p_return_status OUT NOCOPY VARCHAR2,
28: p_error_buffer OUT NOCOPY VARCHAR2);
29:
30: g_current_runtime_level NUMBER;
31: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
33: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
35: -----------------------------------------------------------------------
28: p_error_buffer OUT NOCOPY VARCHAR2);
29:
30: g_current_runtime_level NUMBER;
31: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
33: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
35: -----------------------------------------------------------------------
36: -- PUBLIC PROCEDURE
29:
30: g_current_runtime_level NUMBER;
31: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
33: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
35: -----------------------------------------------------------------------
36: -- PUBLIC PROCEDURE
37: -- get_tax_status
30: g_current_runtime_level NUMBER;
31: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
32: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
33: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
34: g_level_error CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
35: -----------------------------------------------------------------------
36: -- PUBLIC PROCEDURE
37: -- get_tax_status
38: --
61: l_status_result_id ZX_LINES.STATUS_RESULT_ID%TYPE;
62: l_status_rec ZX_TDS_UTILITIES_PKG.ZX_STATUS_INFO_REC;
63:
64: BEGIN
65: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
66:
67: IF (g_level_procedure >= g_current_runtime_level ) THEN
68:
69: FND_LOG.STRING(g_level_procedure,
65: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
66:
67: IF (g_level_procedure >= g_current_runtime_level ) THEN
68:
69: FND_LOG.STRING(g_level_procedure,
70: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status.BEGIN',
71: 'ZX_TDS_TAX_STATUS_DETM_PKG: get_tax_status(+)');
72:
73:
83: IF (p_begin_index IS NULL OR p_end_index IS NULL) THEN
84: p_return_status:= FND_API.G_RET_STS_ERROR;
85:
86: IF (g_level_error >= g_current_runtime_level ) THEN
87: FND_LOG.STRING(g_level_error,
88: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
89: 'Begin index or End index is null');
90: END IF;
91: RETURN;
97: --
98:
99: FOR i IN p_begin_index .. p_end_index LOOP
100: IF (g_level_statement >= g_current_runtime_level ) THEN
101: FND_LOG.STRING(g_level_statement,
102: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
103: 'processing detail line index = ' || to_char(i));
104: END IF;
105:
159: p_error_buffer);
160:
161: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
162: IF (g_level_error >= g_current_runtime_level ) THEN
163: FND_LOG.STRING(g_level_error,
164: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
165: 'Incorrect return_status after calling rule_base_tax_status_detm()');
166: FND_LOG.STRING(g_level_error,
167: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
162: IF (g_level_error >= g_current_runtime_level ) THEN
163: FND_LOG.STRING(g_level_error,
164: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
165: 'Incorrect return_status after calling rule_base_tax_status_detm()');
166: FND_LOG.STRING(g_level_error,
167: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
168: 'p_return_status : '|| p_return_status);
169: END IF;
170: EXIT;
183: p_return_status,
184: p_error_buffer);
185: IF p_return_status <> FND_API.G_RET_STS_SUCCESS THEN
186: IF (g_level_error >= g_current_runtime_level ) THEN
187: FND_LOG.STRING(g_level_error,
188: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
189: 'Incorrect return_status after calling '||
190: 'ZX_TDS_UTILITIES_PKG.get_tax_status_cache_info()' );
191: FND_LOG.STRING(g_level_error,
187: FND_LOG.STRING(g_level_error,
188: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
189: 'Incorrect return_status after calling '||
190: 'ZX_TDS_UTILITIES_PKG.get_tax_status_cache_info()' );
191: FND_LOG.STRING(g_level_error,
192: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
193: 'No valid tax status id for the tax status code ' ||
194: 'returned from rule engine. Need to get default tax status.');
195: END IF;
221: --
222:
223: IF l_status_rec.tax_status_code IS NULL THEN
224: IF (g_level_error >= g_current_runtime_level ) THEN
225: FND_LOG.STRING(g_level_error,
226: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
227: 'tax status not found for tax: ' || l_tax);
228: END IF;
229:
253: END LOOP;
254:
255: IF (g_level_procedure >= g_current_runtime_level ) THEN
256:
257: FND_LOG.STRING(g_level_procedure,
258: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status.END',
259: 'ZX_TDS_TAX_STATUS_DETM_PKG: get_tax_status(-)'||p_return_status);
260: END IF;
261:
264: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
266:
267: IF (g_level_unexpected >= g_current_runtime_level ) THEN
268: FND_LOG.STRING(g_level_unexpected,
269: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_tax_status',
270: p_error_buffer);
271: END IF;
272:
323: --AND rownum = 1;
324: ORDER BY subscription_level_code;
325:
326: BEGIN
327: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
328:
329: IF (g_level_procedure >= g_current_runtime_level ) THEN
330: FND_LOG.STRING(g_level_procedure,
331: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_def_tax_status_info.BEGIN',
326: BEGIN
327: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
328:
329: IF (g_level_procedure >= g_current_runtime_level ) THEN
330: FND_LOG.STRING(g_level_procedure,
331: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_def_tax_status_info.BEGIN',
332: 'ZX_TDS_TAX_STATUS_DETM_PKG: get_def_tax_status_info(+)'||
333: 'tax_regime_code = ' || p_tax_regime_code||
334: 'tax = ' || p_tax);
355: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: p_error_buffer := 'No default tax status found';
357:
358: IF (g_level_statement >= g_current_runtime_level ) THEN
359: FND_LOG.STRING(g_level_statement,
360: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_def_tax_status_info',
361: p_error_buffer);
362: END IF;
363: END IF;
374: END IF;
375:
376:
377: IF (g_level_procedure >= g_current_runtime_level ) THEN
378: FND_LOG.STRING(g_level_procedure,
379: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_def_tax_status_info.END',
380: 'ZX_TDS_TAX_STATUS_DETM_PKG: get_def_tax_status_info(-)'||
381: 'tax_status_code = ' ||
382: p_status_rec.tax_status_code);
389: IF get_def_status_info_csr%ISOPEN THEN
390: CLOSE get_def_status_info_csr;
391: END IF;
392: IF (g_level_unexpected >= g_current_runtime_level ) THEN
393: FND_LOG.STRING(g_level_unexpected,
394: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.get_def_tax_status_info',
395: p_error_buffer);
396: END IF;
397: END get_def_tax_status_info;
423: l_recovery_type_code ZX_RULES_B.RECOVERY_TYPE_CODE%TYPE;
424:
425: BEGIN
426:
427: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
428:
429: IF (g_level_procedure >= g_current_runtime_level ) THEN
430: FND_LOG.STRING(g_level_procedure,
431: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm.BEGIN',
426:
427: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
428:
429: IF (g_level_procedure >= g_current_runtime_level ) THEN
430: FND_LOG.STRING(g_level_procedure,
431: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm.BEGIN',
432: 'ZX_TDS_TAX_STATUS_DETM_PKG: rule_base_tax_status_detm(+)');
433: END IF;
434: IF (g_level_statement >= g_current_runtime_level ) THEN
431: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm.BEGIN',
432: 'ZX_TDS_TAX_STATUS_DETM_PKG: rule_base_tax_status_detm(+)');
433: END IF;
434: IF (g_level_statement >= g_current_runtime_level ) THEN
435: FND_LOG.STRING(g_level_statement,
436: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
437: 'p_tax_id = ' || to_char(p_tax_id));
438: END IF;
439:
460: p_status_result_id := l_tax_result_rec.result_id;
461: END IF;
462:
463: IF (g_level_statement >= g_current_runtime_level ) THEN
464: FND_LOG.STRING(g_level_statement,
465: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
466: 'p_return_status = ' || p_return_status);
467: FND_LOG.STRING(g_level_statement,
468: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
463: IF (g_level_statement >= g_current_runtime_level ) THEN
464: FND_LOG.STRING(g_level_statement,
465: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
466: 'p_return_status = ' || p_return_status);
467: FND_LOG.STRING(g_level_statement,
468: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
469: 'p_error_buffer = ' || p_error_buffer);
470: FND_LOG.STRING(g_level_statement,
471: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
466: 'p_return_status = ' || p_return_status);
467: FND_LOG.STRING(g_level_statement,
468: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
469: 'p_error_buffer = ' || p_error_buffer);
470: FND_LOG.STRING(g_level_statement,
471: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
472: 'p_tax_status_code = ' || p_tax_status_code);
473: FND_LOG.STRING(g_level_statement,
474: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
469: 'p_error_buffer = ' || p_error_buffer);
470: FND_LOG.STRING(g_level_statement,
471: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
472: 'p_tax_status_code = ' || p_tax_status_code);
473: FND_LOG.STRING(g_level_statement,
474: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
475: 'p_status_result_id = ' ||
476: to_char(p_status_result_id));
477: END IF;
476: to_char(p_status_result_id));
477: END IF;
478:
479: IF (g_level_procedure >= g_current_runtime_level ) THEN
480: FND_LOG.STRING(g_level_procedure,
481: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm.END',
482: 'ZX_TDS_TAX_STATUS_DETM_PKG: rule_base_tax_status_detm(-)');
483: END IF;
484:
487: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
488: p_error_buffer := sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80);
489:
490: IF (g_level_unexpected >= g_current_runtime_level ) THEN
491: FND_LOG.STRING(g_level_unexpected,
492: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.rule_base_tax_status_detm',
493: p_error_buffer);
494: END IF;
495:
510: p_status_result_id IN ZX_LINES.STATUS_RESULT_ID%TYPE,
511: p_status_rec IN ZX_TDS_UTILITIES_PKG.ZX_STATUS_INFO_REC)
512: IS
513: BEGIN
514: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
515:
516: IF (g_level_procedure >= g_current_runtime_level ) THEN
517: FND_LOG.STRING(g_level_procedure,
518: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.update_det_tax_line.BEGIN',
513: BEGIN
514: g_current_runtime_level := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
515:
516: IF (g_level_procedure >= g_current_runtime_level ) THEN
517: FND_LOG.STRING(g_level_procedure,
518: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.update_det_tax_line.BEGIN',
519: 'ZX_TDS_TAX_STATUS_DETM_PKG: update_det_tax_line(+)');
520: END IF;
521:
524: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).status_result_id := p_status_result_id;
525: ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(i).legal_message_status := NULL;
526:
527: IF (g_level_procedure >= g_current_runtime_level ) THEN
528: FND_LOG.STRING(g_level_procedure,
529: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.update_det_tax_line.END',
530: 'ZX_TDS_TAX_STATUS_DETM_PKG: update_det_tax_line(-)');
531: END IF;
532:
532:
533: EXCEPTION
534: WHEN OTHERS THEN
535: IF (g_level_unexpected >= g_current_runtime_level ) THEN
536: FND_LOG.STRING(g_level_unexpected,
537: 'ZX.PLSQL.ZX_TDS_TAX_STATUS_DETM_PKG.update_det_tax_line',
538: sqlcode || ': ' || SUBSTR(SQLERRM, 1, 80));
539: END IF;
540: