8: 1. 13-June-2012 qinglei 14040855 115.1 Created the initial version
9:
10: --------------------------------------------------------------------------------------------------------------*/
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9:
10: --------------------------------------------------------------------------------------------------------------*/
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: --------------------------------------------------------------------------------------------------------------*/
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11:
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'JAI.PLSQL.JAI_AR_TAX_PROCESSING_PKG.';
12: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'JAI.PLSQL.JAI_AR_TAX_PROCESSING_PKG.';
20: G_PACKAGE_NAME CONSTANT VARCHAR2(100) := 'JAI_AR_TAX_PROCESSING_PKG';
13: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'JAI.PLSQL.JAI_AR_TAX_PROCESSING_PKG.';
20: G_PACKAGE_NAME CONSTANT VARCHAR2(100) := 'JAI_AR_TAX_PROCESSING_PKG';
21:
14: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'JAI.PLSQL.JAI_AR_TAX_PROCESSING_PKG.';
20: G_PACKAGE_NAME CONSTANT VARCHAR2(100) := 'JAI_AR_TAX_PROCESSING_PKG';
21:
22: PROCEDURE CALCULATE_TAX(p_transaction_rec ZX_API_PUB.transaction_rec_type DEFAULT NULL,
84:
85: BEGIN
86: IF G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL THEN
87: lv_debug_info := G_PACKAGE_NAME||lv_api_name||'.BEGIN()+';
88: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name,MESSAGE => lv_debug_info);
89: lv_debug_info := 'p_transaction_rec.entity_code = '||p_transaction_rec.ENTITY_CODE||
90: 'p_transaction_rec.event_class_code = '||p_transaction_rec.EVENT_CLASS_CODE||
91: 'p_transaction_rec.event_type_code = '||p_transaction_rec.EVENT_TYPE_CODE;
92: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name,MESSAGE => lv_debug_info);
88: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name,MESSAGE => lv_debug_info);
89: lv_debug_info := 'p_transaction_rec.entity_code = '||p_transaction_rec.ENTITY_CODE||
90: 'p_transaction_rec.event_class_code = '||p_transaction_rec.EVENT_CLASS_CODE||
91: 'p_transaction_rec.event_type_code = '||p_transaction_rec.EVENT_TYPE_CODE;
92: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name,MESSAGE => lv_debug_info);
93: END IF;
94:
95: IF p_transaction_rec.entity_code = 'TRANSACTIONS' AND
96: p_transaction_rec.event_class_code IN
137: END IF;
138: END LOOP;
139:
140: IF(G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) then
141: FND_LOG.STRING(G_LEVEL_PROCEDURE,
142: G_MODULE_NAME || lv_api_name,
143: 'p_transaction_rec.EVENT_CLASS_CODE = '||p_transaction_rec.EVENT_CLASS_CODE||
144: 'p_transaction_rec.EVENT_TYPE_CODE = '||p_transaction_rec.EVENT_TYPE_CODE);
145: END IF;
264:
265: IF lv_return_code <> '0' THEN
266: IF G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL THEN
267: lv_debug_info := 'Error occurred when execute jai_ar_trx_pkg.update_reference. Error message: '||lv_return_message;
268: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name||'().END',MESSAGE => lv_debug_info);
269: END IF;
270: pv_return_code := lv_return_code;
271: pv_return_message := lv_return_message;
272: raise le_error;
272: raise le_error;
273: END IF;
274: IF G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL THEN
275: lv_debug_info := 'Successfully executed jai_ar_trx_pkg.update_reference. Return message: '||lv_return_message;
276: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name||'().END',MESSAGE => lv_debug_info);
277: END IF;
278: END IF;
279: END IF;
280:
546: END IF;
547:
548: IF G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL THEN
549: lv_debug_info := G_PACKAGE_NAME||lv_api_name||'.END()-';
550: fnd_log.STRING(LOG_LEVEL => G_LEVEL_PROCEDURE,MODULE => G_MODULE_NAME||lv_api_name||'().END',MESSAGE => lv_debug_info);
551: END IF;
552:
553: --Added by Qinglei for bug#14627780 on 17-Sep-2012 begin
554: EXCEPTION
555: WHEN le_error THEN
556: pv_return_code := lv_return_code;
557: pv_return_message := lv_return_message;
558: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||lv_api_name||'.END', 'le_error occurred. lv_return_code = '||lv_return_code||
560: ', lv_return_message = '||lv_return_message);
561: END IF;
562: --Added by Qinglei for bug#14627780 on 17-Sep-2012 end
563: END CALCULATE_TAX;