[Home] [Help]
4: | Global Data Types |
5: * ======================================================================*/
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
5: * ======================================================================*/
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
6:
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ZX_SRVC_TYP_PKG';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';
8: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';
16:
9: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';
16:
17: G_LINES_PER_FETCH CONSTANT NUMBER:= 1000;
10: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
12: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
13: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
14: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
15: G_MODULE_NAME CONSTANT VARCHAR2(30) := 'ZX.PLSQL.ZX_SRVC_TYP_PKG.';
16:
17: G_LINES_PER_FETCH CONSTANT NUMBER:= 1000;
18: G_MAX_LINES_PER_FETCH CONSTANT NUMBER:= 1000000;
1750: PRAGMA exception_init(cons_violation, -24381);
1751:
1752: BEGIN
1753: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1754: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||':'||l_api_name||'()+');
1755: END IF;
1756:
1757: -- Set the return status to Success
1758: x_return_status := FND_API.G_RET_STS_SUCCESS;
2969: AND err_gt.trx_id = p_trx_line_dist_tbl.trx_id(i));
2970: END IF;
2971:
2972: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2973: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2974: 'Records Inserted (DML-'||l_stmt_num||') = ' || SQL%ROWCOUNT);
2975: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2976: G_PKG_NAME||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
2977: END IF;
2971:
2972: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2973: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2974: 'Records Inserted (DML-'||l_stmt_num||') = ' || SQL%ROWCOUNT);
2975: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2976: G_PKG_NAME||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
2977: END IF;
2978:
2979: EXCEPTION
2982: l_err_count := SQL%BULK_EXCEPTIONS.COUNT;
2983:
2984: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2985: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2986: FND_LOG.STRING(G_LEVEL_STATEMENT,
2987: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
2988: TO_CHAR(l_err_count)||' Error(s) occured while inserting record into ZX_LINES_DET_FACTORS.');
2989: END IF;
2990:
2994: l_err_code := SQL%BULK_EXCEPTIONS(i).ERROR_CODE;
2995:
2996: IF l_err_trx_id <> p_trx_line_dist_tbl.trx_id(l_err_idx) THEN
2997: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2998: FND_LOG.STRING(G_LEVEL_STATEMENT,
2999: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3000: 'trx_id :' || p_trx_line_dist_tbl.trx_id(l_err_idx));
3001: FND_LOG.STRING(G_LEVEL_STATEMENT,
3002: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
2997: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
2998: FND_LOG.STRING(G_LEVEL_STATEMENT,
2999: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3000: 'trx_id :' || p_trx_line_dist_tbl.trx_id(l_err_idx));
3001: FND_LOG.STRING(G_LEVEL_STATEMENT,
3002: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.db_insert_line_det_factors',
3003: 'trx_line_id :' || p_trx_line_dist_tbl.trx_line_id(l_err_idx));
3004: END IF;
3005: l_context_info_rec.application_id := p_trx_line_dist_tbl.application_id(l_err_idx);
3030:
3031: WHEN OTHERS THEN
3032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3033: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3034: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,SQLERRM);
3035: END IF;
3036: END db_insert_line_det_factors;
3037:
3038: -----------------------------------------------------------------------
3067: l_stmt_num NUMBER;
3068:
3069: BEGIN
3070: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3071: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||':'||l_api_name||'()+');
3072: END IF;
3073:
3074: /*Set the return status to Success */
3075: x_return_status := FND_API.G_RET_STS_SUCCESS;
3093: );
3094: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3095: x_return_status := l_return_status ;
3096: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3097: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_R11I_TAX_PARTNER_PKG.copy_trx_line_for_ptnr_bef_upd returned errors');
3098: END IF;
3099: RETURN;
3100: END IF;
3101: -- END IF;
3721: AND err_gt.trx_id = p_trx_line_dist_tbl.trx_id(i));
3722: END IF;
3723:
3724: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3725: FND_LOG.STRING(G_LEVEL_STATEMENT,
3726: G_MODULE_NAME||l_api_name,
3727: 'Records Updated (DML-'||l_stmt_num||') = ' || SQL%ROWCOUNT);
3728: FND_LOG.STRING(G_LEVEL_STATEMENT,
3729: G_MODULE_NAME||l_api_name||'.END',
3724: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3725: FND_LOG.STRING(G_LEVEL_STATEMENT,
3726: G_MODULE_NAME||l_api_name,
3727: 'Records Updated (DML-'||l_stmt_num||') = ' || SQL%ROWCOUNT);
3728: FND_LOG.STRING(G_LEVEL_STATEMENT,
3729: G_MODULE_NAME||l_api_name||'.END',
3730: G_PKG_NAME ||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
3731:
3732: END IF;
3734: EXCEPTION
3735: WHEN OTHERS THEN
3736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3737: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3738: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3739: END IF;
3740: END db_update_line_det_factors;
3741:
3742: -----------------------------------------------------------------------
3761: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3762:
3763: BEGIN
3764: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3765: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3766: END IF;
3767:
3768: /*Set the return status to Success */
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
4375: END;
4376: p_ptnr_tax_lines_insert := SQL%ROWCOUNT; -- Bug 5332192
4377:
4378: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4379: FND_LOG.STRING(G_LEVEL_STATEMENT,
4380: G_MODULE_NAME||l_api_name||'.END',
4381: G_PKG_NAME ||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
4382: END IF;
4383:
4384: EXCEPTION
4385: WHEN OTHERS THEN
4386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4387: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4388: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4389: END IF;
4390: END insert_detail_tax_lines_gt;
4391:
4392: -----------------------------------------------------------------------
4715: AND trx_id = p_event_class_rec.trx_id
4716: AND line_level_action <> 'DELETE';
4717:
4718: BEGIN
4719: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4721: END IF;
4722:
4723: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4716: AND line_level_action <> 'DELETE';
4717:
4718: BEGIN
4719: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4720: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4721: END IF;
4722:
4723: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4724:
5022: zx_global_structures_pkg.trx_line_dist_tbl.USER_UPD_DET_FACTORS_FLAG
5023: LIMIT G_MAX_LINES_PER_FETCH;
5024:
5025: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5026: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Calling Proc : '||p_calling_proc);
5027: END IF;
5028:
5029: IF p_calling_proc = 'CALCULATE_TAX' THEN
5030: --Call LTE to calculate tax
5040:
5041: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5042: x_return_status := l_return_status ;
5043: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5044: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'LTE calculate tax returned errors. Return_Status = '||x_return_status);
5045: END IF;
5046: IF fetch_det_factors_for_lte%ISOPEN THEN CLOSE fetch_det_factors_for_lte; END IF;
5047: RETURN;
5048: END IF;
5051: END LOOP;
5052: CLOSE fetch_det_factors_for_lte;
5053:
5054: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5055: FND_LOG.STRING(G_LEVEL_STATEMENT,
5056: G_MODULE_NAME||l_api_name||'.END',
5057: G_PKG_NAME ||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
5058: END IF;
5059:
5061: WHEN OTHERS THEN
5062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5063: IF fetch_det_factors_for_lte%ISOPEN THEN CLOSE fetch_det_factors_for_lte; END IF;
5064: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5065: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5066: END IF;
5067: END call_lte;
5068:
5069: -----------------------------------------------------------------------
5088: l_context_info_rec ZX_API_PUB.context_info_rec_type;
5089:
5090: BEGIN
5091: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5092: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5093: END IF;
5094:
5095: x_return_status := FND_API.G_RET_STS_SUCCESS ;
5096:
5108: FOR UPDATE NOWAIT;
5109: END IF;
5110:
5111: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5112: FND_LOG.STRING(G_LEVEL_STATEMENT,
5113: G_MODULE_NAME||l_api_name||'.END',
5114: G_PKG_NAME ||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
5115: END IF;
5116:
5130: l_context_info_rec.TRX_LINE_ID := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
5131: l_context_info_rec.TRX_LEVEL_TYPE := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
5132: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
5133: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
5134: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
5135: END IF;
5136: ELSE
5137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5138: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5135: END IF;
5136: ELSE
5137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5138: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5139: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5140: END IF;
5141: END IF;
5142: END lock_line_det_facts;
5143:
5159: l_api_name CONSTANT VARCHAR2(30):= 'populate_ptnr_tax_regime_tbl';
5160:
5161: BEGIN
5162: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5163: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
5164: END IF;
5165:
5166: l_ptnr_index := NVL(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST, 0) + 1;
5167: ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_ptnr_index).application_id
5225: END LOOP;
5226: -- end 5711466
5227:
5228: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5229: FND_LOG.STRING(G_LEVEL_STATEMENT,
5230: G_MODULE_NAME||l_api_name,
5231: G_PKG_NAME ||': '||l_api_name||', ptnr_srvc_subsrc_flag = ' ||ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_ptnr_index).ptnr_srvc_subscr_flag);
5232: END IF;
5233:
5231: G_PKG_NAME ||': '||l_api_name||', ptnr_srvc_subsrc_flag = ' ||ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_ptnr_index).ptnr_srvc_subscr_flag);
5232: END IF;
5233:
5234: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5235: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
5236: END IF;
5237:
5238: EXCEPTION
5239: WHEN OTHERS THEN
5238: EXCEPTION
5239: WHEN OTHERS THEN
5240: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5241: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5242: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5243: END IF;
5244: END populate_ptnr_tax_regime_tbl;
5245:
5246: -----------------------------------------------------------------------
5260: l_api_name CONSTANT VARCHAR2(30):= 'populate_lte_trx_tbl';
5261:
5262: BEGIN
5263: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5264: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
5265: END IF;
5266:
5267: l_ptnr_index := NVL(ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl.LAST, 0) + 1;
5268: ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl(l_ptnr_index).application_id
5312: ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl(l_ptnr_index).effective_date
5313: := zx_security.g_effective_date;
5314:
5315: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5316: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
5317: END IF;
5318:
5319: EXCEPTION
5320: WHEN OTHERS THEN
5318:
5319: EXCEPTION
5320: WHEN OTHERS THEN
5321: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5322: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5323: END IF;
5324: END populate_lte_trx_tbl;
5325:
5326: -----------------------------------------------------------------------
5343: l_api_name CONSTANT VARCHAR2(30):= 'FETCH_PTNR_TAX_REGIME_TBL';
5344:
5345: BEGIN
5346: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5347: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
5348: END IF;
5349:
5350: x_event_class_rec.application_id := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(p_trx_id_index).application_id;
5351: x_event_class_rec.event_class_code := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(p_trx_id_index).event_class_code;
5393: x_return_status
5394: );
5395:
5396: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5397: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5398: 'application_id: '||to_char(x_event_class_rec.application_id)||
5399: ', entity_code: '||x_event_class_rec.entity_code||
5400: ', event_class_code: '||x_event_class_rec.event_class_code||
5401: ', event_type_code: '||x_event_class_rec.event_type_code||
5412: ', icx_session_id: '||to_char(x_event_class_rec.icx_session_id));
5413: END IF;
5414:
5415: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5416: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
5417: END IF;
5418:
5419: EXCEPTION
5420: WHEN OTHERS THEN
5419: EXCEPTION
5420: WHEN OTHERS THEN
5421: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5422: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5423: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5424: END IF;
5425: END fetch_ptnr_tax_regime_tbl;
5426:
5427: -----------------------------------------------------------------------
5586: l_api_name CONSTANT VARCHAR2(30):= 'INITIALISE_PARTNER_TABLES';
5587:
5588: BEGIN
5589: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5590: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5591: END IF;
5592:
5593: DELETE from ZX_TRX_PRE_PROC_OPTIONS_GT;
5594: DELETE from ZX_PRVDR_HDR_EXTNS_GT;
5597:
5598: delete_ptnr_location_tbl;
5599:
5600: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5601: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5602: END IF;
5603:
5604: EXCEPTION
5605: WHEN OTHERS THEN
5604: EXCEPTION
5605: WHEN OTHERS THEN
5606: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5607: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5608: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5609: END IF;
5610: END initialise_partner_tables;
5611:
5612: -----------------------------------------------------------------------
5783: l_api_name CONSTANT VARCHAR2(30) := 'GET_ADDRESS_ELEMENTS';
5784: l_add_idx VARCHAR2(100);
5785: BEGIN
5786: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5787: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5788: END IF;
5789:
5790: x_return_status := FND_API.G_RET_STS_SUCCESS;
5791: l_add_idx := p_table||to_char(p_location_id);
5792:
5793: IF l_add_idx is NOT NULL THEN
5794: IF (NOT(l_ptnr_addr_tbl.EXISTS(l_add_idx))) THEN
5795: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5796: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Caching from database for '||l_add_idx);
5797: END IF;
5798: IF p_table = 'HR_LOCATIONS_ALL' THEN
5799: SELECT address_line_1, address_line_2, address_line_3, NULL
5800: INTO l_ptnr_addr_tbl(l_add_idx).address1,
5825: x_address2 := l_ptnr_addr_tbl(l_add_idx).address2;
5826: x_address3 := l_ptnr_addr_tbl(l_add_idx).address3;
5827: x_address4 := l_ptnr_addr_tbl(l_add_idx).address4;
5828: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5830: 'Address1: '||l_ptnr_addr_tbl(l_add_idx).address1||
5831: ', Address2: '||l_ptnr_addr_tbl(l_add_idx).address2||
5832: ', Address3: '||l_ptnr_addr_tbl(l_add_idx).address3||
5833: ', Address4: '||l_ptnr_addr_tbl(l_add_idx).address4||' for key: '||to_char(l_add_idx));
5834: END IF;
5835: END IF;
5836:
5837: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5839: END IF;
5840:
5841: EXCEPTION
5842: WHEN OTHERS THEN
5841: EXCEPTION
5842: WHEN OTHERS THEN
5843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5844: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5845: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5846: END IF;
5847: END get_address_elements;
5848:
5849:
5885: l_bill_third_pty_acct_id ZX_LINES_DET_FACTORS.BILL_THIRD_PTY_ACCT_ID%type;
5886: l_party_index VARCHAR2(100);
5887: BEGIN
5888: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5889: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5890: END IF;
5891:
5892: x_return_status := FND_API.G_RET_STS_SUCCESS;
5893:
5951: In this case, SHIP_THIRD_PTY_ACCT_ID holds value of VENDOR_ID.
5952:
5953: */
5954: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5955: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5956: 'l_ship_from_ptp_id = '||l_ship_from_ptp_id||
5957: ', l_ship_third_pty_acct_id = '||l_ship_third_pty_acct_id);
5958: END IF;
5959:
6001: END IF;
6002: END IF;
6003:
6004: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6005: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6006: 'l_bill_from_ptp_id = '||l_bill_from_ptp_id||
6007: ', l_bill_third_pty_acct_id = '||l_bill_third_pty_acct_id);
6008: END IF;
6009:
6051: END IF;
6052: END IF;
6053:
6054: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6055: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6056: 'l_ship_to_ptp_id = '||l_ship_to_ptp_id||
6057: ', l_ship_third_pty_acct_id = '||l_ship_third_pty_acct_id);
6058: END IF;
6059:
6101: END IF;
6102: END IF;
6103:
6104: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6105: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6106: 'l_bill_to_ptp_id = '||l_bill_to_ptp_id||
6107: ', l_bill_third_pty_acct_id = '||l_bill_third_pty_acct_id);
6108: END IF;
6109:
6151: END IF;
6152: END IF;
6153:
6154: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
6156: END IF;
6157:
6158: EXCEPTION
6159: WHEN OTHERS THEN
6158: EXCEPTION
6159: WHEN OTHERS THEN
6160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6161: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6162: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6163: END IF;
6164: END populate_parties;
6165:
6166: -----------------------------------------------------------------------
6184: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_PTNR_LOC_TBL';
6185: l_return_status VARCHAR2(1);
6186: BEGIN
6187: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6188: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6189: END IF;
6190:
6191: x_return_status := FND_API.G_RET_STS_SUCCESS;
6192:
6384: END IF;
6385: END IF;
6386:
6387: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6388: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
6389: END IF;
6390:
6391: EXCEPTION
6392: WHEN OTHERS THEN
6391: EXCEPTION
6392: WHEN OTHERS THEN
6393: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6394: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6395: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6396: END IF;
6397: END POPULATE_PTNR_LOC_TBL;
6398:
6399: -----------------------------------------------------------------------
6421: l_api_name CONSTANT VARCHAR2(30):= 'PREPARE_FOR_LOC_CACHING';
6422:
6423: BEGIN
6424: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6425: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
6426: END IF;
6427:
6428: IF nvl(zx_global_structures_pkg.g_ptnr_srvc_subscr_flag,'N') = 'Y' THEN
6429: i := 1;
6526: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
6527: END IF;
6528:
6529: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6530: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6531: ' RETURN_STATUS = ' || x_return_status||', '||SQLERRM);
6532: END IF;
6533: RETURN;
6534: END IF;
6534: END IF;
6535: END IF;
6536:
6537: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6538: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
6539: END IF;
6540:
6541: EXCEPTION
6542: WHEN OTHERS THEN
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6544: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6545: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6546: END IF;
6547: END prepare_for_loc_caching;
6548:
6549: -----------------------------------------------------------------------
6591: -- Commneting the following code for Bug 13972505
6592: -- l_trx_id_indx VARCHAR2(200);
6593: BEGIN
6594: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6595: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6596: END IF;
6597:
6598: x_return_status := FND_API.G_RET_STS_SUCCESS;
6599: l_first := TRUE;
6612: IF nvl(zx_global_structures_pkg.g_ptnr_srvc_subscr_flag,'N') = 'Y' THEN
6613: l_ptnr_index := 0;
6614: initialise_partner_tables; -- Bug 5068716: Moved initialization of partner tables only if partner is involved.
6615: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6616: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6617: ' ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl-count = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.count);
6618: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6619: ' l_ptnr_loc_tbl-count = ' || l_ptnr_loc_tbl.trx_id.count);
6620: END IF;
6614: initialise_partner_tables; -- Bug 5068716: Moved initialization of partner tables only if partner is involved.
6615: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6616: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6617: ' ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl-count = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.count);
6618: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6619: ' l_ptnr_loc_tbl-count = ' || l_ptnr_loc_tbl.trx_id.count);
6620: END IF;
6621:
6622: FOR i IN nvl(ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.FIRST,0) .. nvl(ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.LAST,-99)
6622: FOR i IN nvl(ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.FIRST,0) .. nvl(ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.LAST,-99)
6623: LOOP
6624: IF (ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id(i) = p_event_class_rec.trx_id) THEN
6625: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6627: ' location_info_tbl-EVENT_CLASS_MAPPING_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.EVENT_CLASS_MAPPING_ID(i)||
6628: ', TRX_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_ID(i)||
6629: ', TRX_LINE_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_LINE_ID(i)||
6630: ', TRX_LEVEL_TYPE = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_LEVEL_TYPE(i)||
7354: l_ptnr_loc_tbl.BILL_FROM_PARTY_NUMBER(i)
7355: );
7356: END IF; -- Bug 5068716
7357: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7358: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
7359: END IF;
7360:
7361: EXCEPTION
7362: WHEN OTHERS THEN
7361: EXCEPTION
7362: WHEN OTHERS THEN
7363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7364: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7365: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7366: END IF;
7367: END PARTNER_LOCATION_POPULATION;
7368:
7369: -----------------------------------------------------------------------
7414: ptnr_del_lines c_regimes_for_del_item_lines%ROWTYPE;
7415:
7416: BEGIN
7417: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
7419: END IF;
7420:
7421: x_return_status := FND_API.G_RET_STS_SUCCESS;
7422:
7430:
7431: FOR ptnr_del_lines IN c_regimes_for_del_item_lines(p_event_class_rec)
7432: LOOP
7433: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7435: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
7436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7437: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
7438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7432: LOOP
7433: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7435: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
7436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7437: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
7438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7439: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
7440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7435: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
7436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7437: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
7438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7439: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
7440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7441: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
7442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7436: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7437: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
7438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7439: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
7440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7441: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
7442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7443: 'ptnr_del_lines.tax_regime_id = ' || ptnr_del_lines.tax_regime_id);
7444: END IF;
7438: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7439: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
7440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7441: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
7442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7443: 'ptnr_del_lines.tax_regime_id = ' || ptnr_del_lines.tax_regime_id);
7444: END IF;
7445:
7446: IF NOT ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.EXISTS(ptnr_del_lines.tax_regime_id) THEN
7482: WHEN OTHERS THEN
7483: l_record_exists := 'E';
7484: END;
7485: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7486: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7487: 'l_record_exists = ' || l_record_exists);
7488: END IF;
7489:
7490: END LOOP;
7489:
7490: END LOOP;
7491:
7492: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7493: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
7494: END IF;
7495:
7496: EXCEPTION
7497: WHEN OTHERS THEN
7496: EXCEPTION
7497: WHEN OTHERS THEN
7498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7499: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7500: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7501: END IF;
7502: END GET_REGIMES_FOR_DEL_ITEM_LINES;
7503:
7504: -----------------------------------------------------------------------
7552: ptnr_incl_lines ptnr_incl_lines_csr%ROWTYPE;
7553:
7554: BEGIN
7555: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7556: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7557: END IF;
7558:
7559: x_return_status := FND_API.G_RET_STS_SUCCESS;
7560:
7598:
7599: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7600: x_return_status := l_return_status;
7601: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7603: ' RETURN_STATUS = ' || x_return_status);
7604: END IF;
7605: RETURN;
7606: END IF;
7615: );
7616: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7617: x_return_status := l_return_status;
7618: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7620: ' RETURN_STATUS = ' || x_return_status);
7621: END IF;
7622: RETURN;
7623: END IF;
7631:
7632: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7633: x_return_status := l_return_status;
7634: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7635: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7636: ' RETURN_STATUS = ' || x_return_status);
7637: END IF;
7638: RETURN;
7639: END IF;
7668:
7669: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7670: x_return_status := l_return_status;
7671: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7673: ' RETURN_STATUS = ' || x_return_status);
7674: END IF;
7675: RETURN;
7676: END IF;
7684:
7685: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7686: x_return_status := l_return_status;
7687: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7688: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7689: ' RETURN_STATUS = ' || x_return_status);
7690: END IF;
7691: RETURN;
7692: END IF;
7695: END LOOP;
7696: END IF; --recording
7697:
7698: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7699: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
7700: G_PKG_NAME ||': '||l_api_name||'()-'||
7701: ', RETURN_STATUS = ' || x_return_status);
7702: END IF;
7703:
7704: EXCEPTION
7705: WHEN OTHERS THEN
7706: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7707: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7708: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7709: END IF;
7710: END partner_inclusive_tax_override;
7711: /***********************PARTNER CODE END***************************/
7712:
7743: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7744:
7745: BEGIN
7746: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7747: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7748: END IF;
7749:
7750: x_return_status := FND_API.G_RET_STS_SUCCESS;
7751:
7860:
7861: END IF;
7862:
7863: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7864: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
7865: G_PKG_NAME||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
7866: END IF;
7867:
7868: EXCEPTION
7868: EXCEPTION
7869: WHEN OTHERS THEN
7870: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7871: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7872: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7873: END IF;
7874: END derive_poo_parameters;
7875:
7876: -----------------------------------------------------------------------
7899: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7900:
7901: BEGIN
7902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7903: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7904: END IF;
7905:
7906: x_return_status := FND_API.G_RET_STS_SUCCESS;
7907:
7913: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.INTERNAL_ORG_LOCATION_ID(p_trx_line_index);
7914: END IF;
7915:
7916: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7917: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
7918: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
7919: END IF;
7920:
7921: EXCEPTION
7921: EXCEPTION
7922: WHEN OTHERS THEN
7923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7924: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7925: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7926: END IF;
7927: END derive_poa_parameters;
7928: /* Bug 5013598 */
7929:
7954: l_org_name HR_ALL_ORGANIZATION_UNITS.NAME%TYPE; --Bug 10179680
7955:
7956: BEGIN
7957: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7958: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7959: END IF;
7960:
7961: x_return_status := FND_API.G_RET_STS_SUCCESS;
7962:
7991: );
7992:
7993: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7994: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7995: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the ship_to_party_tax_profile_id for ship_to_party_id : '||
7996: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_to_party_id(p_trx_line_index)));
7997: END IF;
7998: RAISE FND_API.G_EXC_ERROR;
7999: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8018: );
8019:
8020: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8021: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8022: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the hq_estb_party_tax_prof_id for legal_entity : '||
8023: to_char(zx_global_structures_pkg.trx_line_dist_tbl.legal_entity_id(p_trx_line_index)));
8024: END IF;
8025: RAISE FND_API.G_EXC_ERROR;
8026: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8049: );
8050:
8051: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8052: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the ship_from_party_tax_prof_id for ship_from_party_id: '||
8054: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_from_party_id(p_trx_line_index)));
8055: END IF;
8056: RAISE FND_API.G_EXC_ERROR;
8057: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8075: );
8076: /* Bug 5013598 */
8077: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_id(p_trx_line_index) is NOT NULL THEN
8078: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8079: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POA Party Id: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.poa_party_id(p_trx_line_index)));
8080: END IF;
8081:
8082: /* -- bug 5077171 don't derive PTP_ID for POO and POA Parties
8083: l_partytype := ZX_VALID_INIT_PARAMS_PKG.source_rec.poa_party_type;
8090: );
8091:
8092: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8093: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8094: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the poa_party_tax_prof_id for poa_party_id: '||
8095: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poa_party_id(p_trx_line_index)));
8096: END IF;
8097: RAISE FND_API.G_EXC_ERROR;
8098: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8115: );
8116: /* Bug 5013598 */
8117: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_party_id(p_trx_line_index) is NOT NULL THEN
8118: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8119: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Get PTP Id for POO Party Id: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.poo_party_id(p_trx_line_index)));
8120: END IF;
8121:
8122: /* -- bug 5077171 don't derive PTP_ID for POO and POA Parties
8123: l_partytype := zx_valid_init_params_pkg.source_rec.poo_party_type;
8130: );
8131:
8132: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8133: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8134: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the poo_party_tax_prof_id for poo_party_id: '||
8135: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poo_party_id(p_trx_line_index)));
8136: END IF;
8137: RAISE FND_API.G_EXC_ERROR;
8138: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8164: );
8165:
8166: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8167: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8168: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the bill_to_party_tax_prof_id for bill_to_party_id: '||
8169: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_to_party_id(p_trx_line_index)));
8170: END IF;
8171: RAISE FND_API.G_EXC_ERROR;
8172: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8199: );
8200:
8201: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8202: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8203: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the bill_from_party_tax_prof_id for bill_from_party_id: '||
8204: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_from_party_id(p_trx_line_index)));
8205: END IF;
8206: RAISE FND_API.G_EXC_ERROR;
8207: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8234: );
8235:
8236: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8237: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8238: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the ship_to_site_tax_prof_id for ship_to_party_site_id: '||
8239: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_to_party_site_id(p_trx_line_index)));
8240: END IF;
8241: RAISE FND_API.G_EXC_ERROR;
8242: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8269: );
8270:
8271: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8272: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8273: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the ship_from_site_tax_prof_id for ship_from_party_site_id: '||
8274: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_from_party_site_id(p_trx_line_index)));
8275: END IF;
8276: RAISE FND_API.G_EXC_ERROR;
8277: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8300: );
8301:
8302: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8303: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the poa_site_tax_prof_id for poa_party_site_id: '||
8305: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poa_party_site_id(p_trx_line_index)));
8306: END IF;
8307: RAISE FND_API.G_EXC_ERROR;
8308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8328: );
8329:
8330: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8331: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8332: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the poo_site_tax_prof_id for poo_party_site_id: '||
8333: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poo_party_site_id(p_trx_line_index)));
8334: END IF;
8335: RAISE FND_API.G_EXC_ERROR;
8336: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8360: );
8361:
8362: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8363: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8364: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the bill_to_site_tax_prof_id for bill_to_party_site_id: '||
8365: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_to_party_site_id(p_trx_line_index)));
8366: END IF;
8367: RAISE FND_API.G_EXC_ERROR;
8368: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8395: );
8396:
8397: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8398: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8399: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the bill_from_site_tax_prof_id for bill_from_party_site_id: '||
8400: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_from_party_site_id(p_trx_line_index)));
8401: END IF;
8402: RAISE FND_API.G_EXC_ERROR;
8403: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8479: WHERE inventory_item_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_id(p_trx_line_index)
8480: AND organization_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_org_id(p_trx_line_index);
8481: EXCEPTION WHEN OTHERS THEN
8482: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8483: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the product code for inventory_item_id: '||
8484: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_id(p_trx_line_index));
8485: END IF;
8486: --Bug 10179680 Starts
8487: L_ORG_NAME := NULL;
8518: RAISE FND_API.G_EXC_ERROR;
8519: END;
8520: END IF;
8521: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8522: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
8523: END IF;
8524:
8525: EXCEPTION
8526: WHEN FND_API.G_EXC_ERROR THEN
8534: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
8535: WHEN OTHERS THEN
8536: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8537: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8538: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8539: END IF;
8540: END derive_internal_parameters;
8541:
8542: -----------------------------------------------------------------------
8567: l_context_info_rec ZX_API_PUB.context_info_rec_type;
8568: l_call_default_APIs BOOLEAN;
8569: i NUMBER;
8570: BEGIN
8571: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8572: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8573: END IF;
8574:
8575: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8568: l_call_default_APIs BOOLEAN;
8569: i NUMBER;
8570: BEGIN
8571: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8572: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8573: END IF;
8574:
8575: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8576:
8595:
8596: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8597: x_return_status := l_return_status;
8598: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8600: ' RETURN_STATUS = ' || x_return_status);
8601: END IF;
8602: RETURN;
8603: END IF;
8621:
8622: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8623: x_return_status := l_return_status;
8624: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8625: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8626: ' RETURN_STATUS = ' || x_return_status);
8627: END IF;
8628: RETURN;
8629: END IF;
8648:
8649: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8650: x_return_status := l_return_status;
8651: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8652: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8653: ' RETURN_STATUS = ' || x_return_status);
8654: END IF;
8655: RETURN;
8656: END IF;
8665:
8666: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8667: x_return_status := l_return_status;
8668: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8669: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8670: ' RETURN_STATUS = ' || x_return_status);
8671: END IF;
8672: RETURN;
8673: END IF;
8674: END IF;
8675:
8676: BEGIN
8677: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8678: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Processing for Transaction Line with APPLICATION_ID: '||to_char(zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID(p_trx_line_index))||
8679: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index)||
8680: ', EVENT_CLASS_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index)|| ', EVENT_TYPE_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_TYPE_CODE(p_trx_line_index)||
8681: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(p_trx_line_index))||
8682: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index))||
8723: ', LINE_CLASS: '|| zx_global_structures_pkg.trx_line_dist_tbl.LINE_CLASS(p_trx_line_index)||
8724: ', TRX_SIC_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_SIC_CODE(p_trx_line_index));
8725: END IF;
8726: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name, 'FOB_POINT: '|| zx_global_structures_pkg.trx_line_dist_tbl.FOB_POINT(p_trx_line_index)||
8728: ', SHIP_TO_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_LOCATION_ID(p_trx_line_index))||
8729: ', SHIP_FROM_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_LOCATION_ID(p_trx_line_index))||
8730: ', POA_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POA_LOCATION_ID(p_trx_line_index))||
8731: ', POO_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POO_LOCATION_ID(p_trx_line_index))||
8771: ', TRX_ID_LEVEL6: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL6(p_trx_line_index))||
8772: ', TRX_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_NUMBER(p_trx_line_index));
8773: END IF;
8774: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8775: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'TRX_DESCRIPTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_DESCRIPTION(p_trx_line_index)||
8776: ', TRX_LINE_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_NUMBER(p_trx_line_index)||
8777: ', TRX_LINE_DESCRIPTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DESCRIPTION(p_trx_line_index)||
8778: ', PRODUCT_DESCRIPTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_DESCRIPTION(p_trx_line_index)||
8779: ', TRX_WAYBILL_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_WAYBILL_NUMBER(p_trx_line_index)||
8820: --', CHAR4: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR4(p_trx_line_index)
8821: );
8822: END IF;
8823: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8824: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8825: -- 'CHAR1: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR1(p_trx_line_index)||
8826: --', CHAR2: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR2(p_trx_line_index)||
8827: --', CHAR3: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR3(p_trx_line_index)||
8828: --', CHAR4: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR4(p_trx_line_index)||
8879: ', TITLE_TRANS_SITE_TAX_PROF_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.TITLE_TRANS_SITE_TAX_PROF_ID(p_trx_line_index))||
8880: ', MERCHANT_PARTY_TAX_PROF_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_TAX_PROF_ID(p_trx_line_index)));
8881: END IF;
8882: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8883: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8884: 'DOCUMENT_SUB_TYPE: '|| zx_global_structures_pkg.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index)||
8885: ', SUPPLIER_TAX_INVOICE_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_NUMBER(p_trx_line_index)||
8886: ', SUPPLIER_TAX_INVOICE_DATE: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_DATE(p_trx_line_index))||
8887: ', SUPPLIER_EXCHANGE_RATE: '|| zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_EXCHANGE_RATE(p_trx_line_index)||
8967:
8968: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8969: x_return_status := l_return_status;
8970: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8972: ' RETURN_STATUS = ' || x_return_status);
8973: END IF;
8974: RETURN;
8975: END IF;
8986:
8987: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8988: x_return_status := l_return_status;
8989: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8990: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8991: ' RETURN_STATUS = ' || x_return_status);
8992: END IF;
8993: END IF;
8994:
9003:
9004: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9005: x_return_status := l_return_status;
9006: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9007: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9008: ' RETURN_STATUS = ' || x_return_status);
9009: END IF;
9010: END IF;
9011: END IF; --zx_global_structures_pkg.g_ptnr_srvc_subscr_flag
9033:
9034: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9035: x_return_status := l_return_status;
9036: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9037: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9038: ' RETURN_STATUS = ' || x_return_status);
9039: END IF;
9040: RETURN;
9041: END IF;
9042: --Set the tax processing completed flag to indicate that line has been processed for tax
9043: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_processing_completed_flag(p_trx_line_index) := 'Y';
9044:
9045: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9046: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
9047: END IF;
9048:
9049: EXCEPTION
9050: WHEN OTHERS THEN
9049: EXCEPTION
9050: WHEN OTHERS THEN
9051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9052: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
9053: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
9054: END IF;
9055: END calculate_tax_pvt;
9056:
9057: -----------------------------------------------------------------------
9078: l_negative_index NUMBER;
9079: l_return_status VARCHAR2(1);
9080:
9081: BEGIN
9082: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9083: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
9084: END IF;
9085:
9086: x_return_status := FND_API.G_RET_STS_SUCCESS ;
9079: l_return_status VARCHAR2(1);
9080:
9081: BEGIN
9082: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9083: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
9084: END IF;
9085:
9086: x_return_status := FND_API.G_RET_STS_SUCCESS ;
9087: l_negative_index := -99; --set the negative index to store regimes served by old provider
9112: AND trx_id = p_event_class_rec.trx_id
9113: AND rownum = 1;
9114: EXCEPTION WHEN OTHERS THEN --Bug fix 5094078
9115: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9116: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9117: ' No row found in zx_lines_det_factors for UPDATE event type' );
9118: END IF;
9119: END;
9120:
9203: ELSE --partner_migrated_flag
9204: null;
9205: END IF;
9206: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9207: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9208: ' Checking Deleted Item Lines ');
9209: END IF;
9210: BEGIN
9211: SELECT 'Y'
9221: WHEN OTHERS THEN
9222: l_deleted_line_exists := 'N';
9223: END;
9224: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9225: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9226: ' line_level_action DELETE = ' || l_deleted_line_exists);
9227: END IF;
9228:
9229: END IF; -- Tax event type is UPDATE
9233:
9234: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9235: x_return_status := l_return_status;
9236: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9237: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9238: ' RETURN_STATUS = ' || x_return_status);
9239: END IF;
9240: RETURN;
9241: END IF;
9246: x_return_status => l_return_status);
9247: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9248: x_return_status := l_return_status;
9249: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9250: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9251: ' RETURN_STATUS = ' || x_return_status);
9252: END IF;
9253: RETURN;
9254: END IF;
9264: (ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'S' OR
9265: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'C' OR
9266: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'F') THEN
9267: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call pre-processing before sending to partner');
9269: END IF;
9270:
9271: ZX_TPI_SERVICES_PKG.partner_pre_processing(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_id,
9272: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
9277: );
9278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9279: x_return_status := l_return_status;
9280: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9281: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9282: ' RETURN_STATUS = ' || x_return_status);
9283: END IF;
9284: RETURN;
9285: END IF;
9294:
9295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9296: x_return_status := l_return_status;
9297: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9299: ' RETURN_STATUS = ' || x_return_status);
9300: END IF;
9301: RETURN;
9302: END IF;
9310:
9311: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9312: x_return_status := l_return_status;
9313: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9314: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9315: ' RETURN_STATUS = ' || x_return_status);
9316: END IF;
9317: RETURN;
9318: END IF;
9336:
9337: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9338: x_return_status := l_return_status;
9339: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9340: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9341: 'Incorrect Status returned by ZX_TPI_SERVICES_PKG.call_partner_service. RETURN_STATUS = '||x_return_status);
9342: END IF;
9343: RETURN;
9344: END IF;
9356:
9357: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9358: x_return_status := l_return_status;
9359: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9360: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9361: ' RETURN_STATUS = ' || x_return_status);
9362: END IF;
9363: RETURN;
9364: END IF;
9377:
9378: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9379: x_return_status := l_return_status;
9380: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9381: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9382: ' RETURN_STATUS = ' || x_return_status);
9383: END IF;
9384: RETURN;
9385: END IF;
9401:
9402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9403: x_return_status := l_return_status;
9404: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9406: 'Incorrect Status returned by ZX_TPI_SERVICES_PKG.call_partner_service. RETURN_STATUS = '||x_return_status);
9407: END IF;
9408: RETURN;
9409: END IF;
9418:
9419: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9420: x_return_status := l_return_status;
9421: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9423: ' RETURN_STATUS = ' || x_return_status);
9424: END IF;
9425: RETURN;
9426: END IF;
9432: END LOOP;
9433:
9434: --END IF;/*Commented condition, because for sales order both the flags would be 'N'*/
9435: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9436: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
9437: END IF;
9438:
9439: EXCEPTION
9440: WHEN OTHERS THEN
9439: EXCEPTION
9440: WHEN OTHERS THEN
9441: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
9442: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
9443: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
9444: END IF;
9445: END ptnr_calculate_tax_pvt;
9446:
9447: /* =============================================================*
9456: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_BULK_CALC_TAX_PVT';
9457: l_no_of_trx NUMBER;
9458: BEGIN
9459: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9460: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
9461: END IF;
9462:
9463: x_return_status := FND_API.G_RET_STS_SUCCESS;
9464:
9462:
9463: x_return_status := FND_API.G_RET_STS_SUCCESS;
9464:
9465: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9466: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9467: 'DATA_TRANSFER_MODE = '||ZX_API_PUB.G_DATA_TRANSFER_MODE);
9468: END IF;
9469:
9470: IF ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' THEN
9471: SELECT COUNT(*) INTO l_no_of_trx
9472: FROM zx_trx_headers_gt;
9473:
9474: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9475: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9476: 'No. of Transactions to be processed = '||l_no_of_trx);
9477: END IF;
9478: END IF;
9479:
9498: );
9499:
9500: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9501: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9502: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9503: 'Incorrect Status returned by Ptnr_calculate_tax_pvt. RETURN_STATUS = ' || x_return_status);
9504: END IF;
9505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9506: RAISE FND_API.G_EXC_ERROR;
9523: (ZX_API_PUB.G_DATA_TRANSFER_MODE = 'TAB' AND l_no_of_trx = 1)
9524: THEN
9525: -- In case of a single transaction processing, Exit the loop --
9526: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9527: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME||l_api_name||
9528: '.END',G_PKG_NAME || ': ' || l_api_name||'(-)' || 'raised errors');
9529: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME||l_api_name,
9530: 'RETURN_STATUS: ' || x_return_status);
9531: END IF;
9525: -- In case of a single transaction processing, Exit the loop --
9526: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9527: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME||l_api_name||
9528: '.END',G_PKG_NAME || ': ' || l_api_name||'(-)' || 'raised errors');
9529: FND_LOG.STRING(g_level_unexpected, G_MODULE_NAME||l_api_name,
9530: 'RETURN_STATUS: ' || x_return_status);
9531: END IF;
9532: EXIT;
9533: END IF;
9535:
9536: END LOOP;
9537:
9538: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9539: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'RETURN_STATUS: ' || x_return_status);
9540: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
9541: END IF;
9542:
9543: EXCEPTION
9536: END LOOP;
9537:
9538: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9539: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'RETURN_STATUS: ' || x_return_status);
9540: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
9541: END IF;
9542:
9543: EXCEPTION
9544:
9545: WHEN OTHERS THEN
9546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9547:
9548: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9549: FND_LOG.STRING(g_level_unexpected,
9550: G_MODULE_NAME||l_api_name,
9551: 'Unexpected Error: '|| SUBSTR(SQLERRM, 1, 80)
9552: );
9553: END IF;
9559: ) IS
9560: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FROM_LINES_DET_GT';
9561: BEGIN
9562: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9563: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
9564: END IF;
9565: x_return_status := FND_API.G_RET_STS_SUCCESS;
9566:
9567: delete from zx_lines_det_factors
9588: AND event_class_code = p_event_class_rec.event_class_code
9589: AND trx_id = p_event_class_rec.trx_id;
9590:
9591: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
9592: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
9593: END IF;
9594: EXCEPTION
9595:
9596: WHEN OTHERS THEN
9596: WHEN OTHERS THEN
9597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9598:
9599: IF (g_level_unexpected >= g_current_runtime_level ) THEN
9600: FND_LOG.STRING(g_level_unexpected,
9601: G_MODULE_NAME||l_api_name,
9602: 'Error: '|| SUBSTR(SQLERRM, 1, 80)
9603: );
9604: END IF;
9660: WHERE classification_type_code ='TRX_BUSINESS_CATEGORY';
9661: -- End : Added for Bug#8765723
9662:
9663: BEGIN
9664: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9665: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
9666: END IF;
9667: --Initialise local variables
9668: l_lines_passed := 1;
9661: -- End : Added for Bug#8765723
9662:
9663: BEGIN
9664: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
9665: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
9666: END IF;
9667: --Initialise local variables
9668: l_lines_passed := 1;
9669: l_update_index := 0; --store index upto which records need to updated
9685: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
9686: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
9687: END IF;
9688: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9689: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9690: ' RETURN_STATUS = ' || x_return_status);
9691: END IF;
9692: RETURN;
9693: END IF;
9746:
9747: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9748: x_return_status := l_return_status;
9749: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9750: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9751: ' RETURN_STATUS = ' || x_return_status);
9752: END IF;
9753: RETURN;
9754: END IF;
9760: --
9761: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9762: -- x_return_status := l_return_status;
9763: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9764: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9765: -- ' RETURN_STATUS = ' || x_return_status);
9766: -- END IF;
9767: -- RETURN;
9768: --END IF;
9787:
9788: IF l_no_of_trx = 0 THEN
9789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9790: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9791: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9792: 'No record found in Headers GT Table.');
9793: END IF;
9794: RETURN;
9795: END IF;
10338:
10339: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10340: x_return_status := l_return_status;
10341: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10342: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10343: ' RETURN_STATUS = ' || x_return_status);
10344: END IF;
10345: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10346: RAISE FND_API.G_EXC_ERROR;
10358: );
10359: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10360: x_return_status := l_return_status;
10361: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10362: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10363: ' RETURN_STATUS = ' || x_return_status);
10364: END IF;
10365: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10366: RAISE FND_API.G_EXC_ERROR;
10378: );
10379: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10380: x_return_status := l_return_status;
10381: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10382: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10383: ' RETURN_STATUS = ' || x_return_status);
10384: END IF;
10385: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10386: RAISE FND_API.G_EXC_ERROR;
10406:
10407: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10408: x_return_status := l_return_status;
10409: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10410: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
10411: END IF;
10412: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10413: RAISE FND_API.G_EXC_ERROR;
10414: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10430:
10431: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10432: x_return_status := l_return_status;
10433: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10434: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10435: ' RETURN_STATUS = ' || x_return_status);
10436: END IF;
10437: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10438: RAISE FND_API.G_EXC_ERROR;
10451: );
10452:
10453: IF X_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10454: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10455: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10456: ' RETURN_STATUS = ' || x_return_status);
10457: END IF;
10458: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10459: RAISE FND_API.G_EXC_ERROR;
10471:
10472: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10473: -- x_return_status := l_return_status;
10474: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10475: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10476: -- ' RETURN_STATUS = ' || x_return_status);
10477: -- END IF;
10478: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10479: -- RAISE FND_API.G_EXC_ERROR;
10494: );
10495:
10496: IF (lb_jai_exists = TRUE) THEN
10497: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10498: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing start +');
10499: END IF;
10500: --Call JAI tax processing for JAI AR Invoice Create/Update and OM Sales Order Create/Update
10501: --and JAI PO/Requistion Create/Update
10502: JAI_TAX_PROCESSING_PKG.CALCULATE_TAX(p_transaction_rec => NULL
10508:
10509: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10510: x_return_status := l_return_status;
10511: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10512: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10513: ' JAI_TAX_PROCESSING_PKG.CALCULATE_TAX RETURN_STATUS = ' || x_return_status);
10514: END IF;
10515: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10516: RAISE FND_API.G_EXC_ERROR;
10519: END IF;
10520: END IF;
10521:
10522: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10523: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing end -');
10524: END IF;
10525: END IF;
10526: -- End : Added for JAI Trigger Elimination
10527:
10542:
10543: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10544: x_return_status := l_return_status;
10545: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10546: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10547: ' RETURN_STATUS = ' || x_return_status);
10548: END IF;
10549: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10550: RAISE FND_API.G_EXC_ERROR;
10561:
10562: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10563: x_return_status := l_return_status;
10564: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10565: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10566: ' RETURN_STATUS = ' || x_return_status);
10567: END IF;
10568: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10569: RAISE FND_API.G_EXC_ERROR;
10594:
10595: CLOSE c_delimiter;
10596:
10597: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10599: 'Trx Business Category = ' || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_business_category(l_trx_line_index));
10600: END IF;
10601: END IF;
10602:
10609:
10610: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10611: x_return_status := l_return_status;
10612: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10613: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10614: ' RETURN_STATUS = ' || x_return_status);
10615: END IF;
10616: -- Raise exception depending upon return_status
10617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
10632:
10633: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10634: x_return_status := l_return_status;
10635: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10636: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10637: ' RETURN_STATUS = ' || x_return_status);
10638: END IF;
10639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10640: END IF;
10645: WHEN FND_API.G_EXC_ERROR THEN
10646: ROLLBACK TO Calculate_Tax;
10647: l_flag := FALSE;
10648: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
10649: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
10650: END IF;
10651:
10652: -- Handling single trx and multiple trxs processing
10653: IF l_no_of_trx IS NULL then
10658:
10659: IF l_no_of_trx = 0 THEN
10660: -- Return
10661: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10662: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10663: 'No record found in Headers GT Table.');
10664: END IF;
10665: RETURN;
10666: ELSIF l_no_of_trx = 1 THEN
10718: );
10719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10720: x_return_status := l_return_status;
10721: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10722: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10723: ' RETURN_STATUS = ' || x_return_status);
10724: END IF;
10725: RETURN;
10726: END IF;
10735: );
10736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10737: x_return_status := l_return_status;
10738: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10740: ' RETURN_STATUS = ' || x_return_status);
10741: END IF;
10742: RETURN;
10743: END IF;
10750: );
10751: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10752: x_return_status := l_return_status;
10753: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10754: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10755: ' RETURN_STATUS = ' || x_return_status);
10756: END IF;
10757: RETURN;
10758: END IF;
10764: );
10765: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10766: x_return_status := l_return_status;
10767: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10768: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10769: ' RETURN_STATUS = ' || x_return_status);
10770: END IF;
10771: RETURN;
10772: END IF;*/
10801: );
10802: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10803: x_return_status := l_return_status;
10804: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10805: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10806: ' RETURN_STATUS = ' || x_return_status);
10807: END IF;
10808: RETURN;
10809: END IF;
10860:
10861: CLOSE c_delimiter;
10862:
10863: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10864: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10865: 'Trx Business Category = ' || ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_business_category(l_trx_line_index));
10866: END IF;
10867: END IF;
10868: -- End : Bug#8765723 - Prefix Tax-Event-Class-Code to Trx-Business-Category for OM
10875:
10876: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10877: x_return_status := l_return_status;
10878: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10879: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10880: ' RETURN_STATUS = ' || x_return_status);
10881: END IF;
10882: RETURN;
10883: END IF;
10907: AND event_class_code = p_event_class_rec.event_class_code
10908: AND trx_id = p_event_class_rec.trx_id
10909: AND tax_processing_completed_flag = 'N';
10910: END;
10911: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10912: ' p_event_class_rec.application_id = '||p_event_class_rec.application_id
10913: || ' p_event_class_rec.entity_code = '||p_event_class_rec.entity_code
10914: || ' p_event_class_rec.event_class_code = '||p_event_class_rec.event_class_code
10915: || ' p_event_class_rec.trx_id = '||p_event_class_rec.trx_id
11237: GET_REGIMES_FOR_DEL_ITEM_LINES (p_event_class_rec,l_return_status);
11238: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11239: x_return_status := l_return_status;
11240: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11241: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,' RETURN_STATUS = ' || x_return_status);
11242: END IF;
11243: RETURN;
11244: END IF;
11245: l_count := 0;
11295: );
11296: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11297: x_return_status := l_return_status;
11298: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11299: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11300: ' RETURN_STATUS = ' || x_return_status);
11301: END IF;
11302: RETURN;
11303: END IF;
11313: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11314: x_return_status := l_return_status;
11315: IF get_lines_det_factors%ISOPEN THEN CLOSE get_lines_det_factors; END IF;
11316: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11317: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11318: ' RETURN_STATUS = ' || x_return_status);
11319: END IF;
11320: RETURN;
11321: END IF;
11332: );
11333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11334: x_return_status := l_return_status;
11335: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11337: ' RETURN_STATUS = ' || x_return_status);
11338: END IF;
11339: RETURN;
11340: END IF;
11370: );
11371: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11372: x_return_status := l_return_status;
11373: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11374: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11375: ' RETURN_STATUS = ' || x_return_status);
11376: END IF;
11377: RETURN;
11378: END IF;
11388: );
11389: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11390: x_return_status := l_return_status;
11391: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11392: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11393: ' RETURN_STATUS = ' || x_return_status);
11394: END IF;
11395: RETURN;
11396: END IF;
11403: );
11404: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11405: x_return_status := l_return_status;
11406: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11407: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11408: ' RETURN_STATUS = ' || x_return_status);
11409: END IF;
11410: RETURN;
11411: END IF;
11417: );
11418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11419: x_return_status := l_return_status;
11420: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11421: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11422: ' RETURN_STATUS = ' || x_return_status);
11423: END IF;
11424: RETURN;
11425: END IF;
11433: );
11434: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11435: x_return_status := l_return_status;
11436: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11437: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11438: ' RETURN_STATUS = ' || x_return_status);
11439: END IF;
11440: RETURN;
11441: END IF;
11450:
11451: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11452: x_return_status := l_return_status;
11453: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11454: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11455: ' RETURN_STATUS = ' || x_return_status);
11456: END IF;
11457: RETURN;
11458: END IF;
11472: WHERE ROWNUM=1;
11473: EXCEPTION
11474: WHEN OTHERS THEN
11475: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11476: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11477: 'Not able to find event type code - No transaction lines passed');
11478: END IF;
11479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11480: END;
11513:
11514: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11515: x_return_status := l_return_status;
11516: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11517: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11518: ' RETURN_STATUS = ' || x_return_status);
11519: END IF;
11520: RAISE FND_API.G_EXC_ERROR;
11521: END IF;
11529: );
11530: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11531: x_return_status := l_return_status;
11532: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11533: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11534: ' RETURN_STATUS = ' || x_return_status);
11535: END IF;
11536: RAISE FND_API.G_EXC_ERROR;
11537: END IF;
11545: );
11546: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11547: x_return_status := l_return_status;
11548: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11549: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11550: ' RETURN_STATUS = ' || x_return_status);
11551: END IF;
11552: RAISE FND_API.G_EXC_ERROR;
11553: END IF;
11570: );
11571:
11572: IF (lb_jai_exists = TRUE) THEN
11573: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11574: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing start +');
11575: END IF;
11576: --Call JAI tax processing for JAI AR Invoice Create/Update and OM Sales Order Create/Update
11577: --and JAI PO/Requistion Create/Update
11578: JAI_TAX_PROCESSING_PKG.CALCULATE_TAX(p_transaction_rec => NULL
11584:
11585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11586: x_return_status := l_return_status;
11587: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11589: ' JAI_TAX_PROCESSING_PKG.CALCULATE_TAX RETURN_STATUS = ' || x_return_status);
11590: END IF;
11591: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11592: RAISE FND_API.G_EXC_ERROR;
11595: END IF;
11596: END IF;
11597:
11598: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11599: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing end -');
11600: END IF;
11601: END IF;
11602: END IF;
11603: -- End : Added for JAI Trigger Elimination
11626: END IF;
11627:
11628: ELSE
11629: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11630: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11631: 'Tax Method is LTE. Calling LTE in a loop ');
11632: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11633: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl. Number of records: '||
11634: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl.LAST,0)) );
11628: ELSE
11629: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11630: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11631: 'Tax Method is LTE. Calling LTE in a loop ');
11632: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11633: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl. Number of records: '||
11634: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl.LAST,0)) );
11635: END IF;
11636:
11672:
11673: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11674: x_return_status := l_return_status;
11675: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11676: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Incorrect status returned by Call_lte. Return_Status'||x_return_status);
11677: END IF;
11678: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
11679: RAISE FND_API.G_EXC_ERROR;
11680: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11684: EXCEPTION
11685: WHEN FND_API.G_EXC_ERROR THEN
11686: ROLLBACK TO Calculate_Tax_LTE;
11687: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11688: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Deleting Records from Zx_Lines_Det_Factors for Trx_id : '||l_event_class_rec.trx_id );
11689: END IF;
11690:
11691: DELETE FROM zx_lines_det_factors
11692: WHERE application_id = l_event_class_rec.application_id
11694: AND event_class_code = l_event_class_rec.event_class_code
11695: AND trx_id = l_event_class_rec.trx_id;
11696:
11697: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
11698: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Records Deleted : '||SQL%ROWCOUNT);
11699: END IF;
11700:
11701: -- Commented call to dump error message into errors_gt table
11702: -- This will be handled in the API ZX_API_PUB.Calculate_Tax
11710:
11711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11712: x_return_status := l_return_status;
11713: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11714: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11715: ' RETURN_STATUS = ' || x_return_status);
11716: END IF;
11717: RETURN;
11718: END IF;
11735:
11736: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11737: x_return_status := l_return_status;
11738: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11740: 'Incorrect status returned by Ptnr_bulk_calc_tax_pvt. RETURN_STATUS = '||x_return_status);
11741: END IF;
11742: RETURN;
11743: END IF;
11743: END IF;
11744: END IF;
11745: /*******************************PARTNER CODE END ****************************/
11746:
11747: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11748: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
11749: END IF;
11750:
11751: EXCEPTION
11744: END IF;
11745: /*******************************PARTNER CODE END ****************************/
11746:
11747: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11748: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
11749: END IF;
11750:
11751: EXCEPTION
11752: WHEN OTHERS THEN
11753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11754: IF lines%ISOPEN THEN CLOSE lines; END IF;
11755: IF get_lines_det_factors%ISOPEN THEN CLOSE get_lines_det_factors; END IF;
11756: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
11757: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
11758: END IF;
11759: END calculate_tax;
11760:
11761: -----------------------------------------------------------------------
11804: -- Added for bug#16483600 JAI ZX Integration
11805: lb_jai_exists BOOLEAN := FALSE;
11806:
11807: BEGIN
11808: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11809: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
11810: END IF;
11811:
11812: x_return_status := FND_API.G_RET_STS_SUCCESS ;
11805: lb_jai_exists BOOLEAN := FALSE;
11806:
11807: BEGIN
11808: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
11809: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
11810: END IF;
11811:
11812: x_return_status := FND_API.G_RET_STS_SUCCESS ;
11813:
11825: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
11826: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
11827: END IF;
11828: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11829: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'ZX_TCM_PTP_PKG.get_location_id returned errors');
11830: END IF;
11831: RETURN;
11832: END IF;
11833:
12253: -- Start : Added for JAI Trigger Elimination : Bug#16483600 JAI ZX Integration
12254: -- Code to handle India JAI Order/Project Import AR to populate localization table.
12255: -- Before call JAI API, need to ensure ZX_GLOBAL_STRUCTURES_PKG.G_EVENT_CLASS_REC has been assigned value.
12256: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12258: 'JAI Intg Call : pn_application_id=>'||p_event_class_rec.application_id
12259: ||', pn_trx_id =>'|| p_event_class_rec.trx_id);
12260: END IF;
12261:
12267: );
12268:
12269: IF lb_jai_exists = TRUE THEN
12270: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12271: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing start +');
12272: END IF;
12273:
12274: JAI_TAX_PROCESSING_PKG.import_document_with_tax(p_event_class_rec,l_return_status);
12275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12276: x_return_status := l_return_status;
12277: RAISE FND_API.G_EXC_ERROR;
12278: END IF;
12279: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12280: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':JAI processing end -');
12281: END IF;
12282: END IF;
12283: -- End : Added for JAI Trigger Elimination
12284:
12401:
12402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12403: x_return_status := l_return_status;
12404: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12405: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
12406: END IF;
12407: RAISE FND_API.G_EXC_ERROR;
12408: END IF;
12409:
12422:
12423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12424: x_return_status := l_return_status;
12425: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12427: ' RETURN_STATUS = ' || x_return_status);
12428: END IF;
12429: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12430: RAISE FND_API.G_EXC_ERROR;
12443: );
12444:
12445: IF X_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12446: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12447: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12448: ' RETURN_STATUS = ' || x_return_status);
12449: END IF;
12450: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12451: RAISE FND_API.G_EXC_ERROR;
12484: --
12485: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12486: -- x_return_status := l_return_status;
12487: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12488: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines returned errors');
12489: -- END IF;
12490: -- RAISE FND_API.G_EXC_ERROR;
12491: -- END IF;
12492: -- END IF;
12499:
12500: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12501: -- x_return_status := l_return_status;
12502: -- IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12503: -- FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12504: -- ' RETURN_STATUS = ' || x_return_status);
12505: -- END IF;
12506: -- RAISE FND_API.G_EXC_ERROR;
12507: --END IF;
12519:
12520: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12521: x_return_status := l_return_status;
12522: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12523: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12524: ' RETURN_STATUS = ' || x_return_status);
12525: END IF;
12526: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12527: RAISE FND_API.G_EXC_ERROR;
12556:
12557: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12558: x_return_status := l_return_status;
12559: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12560: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||'ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines returned errors');
12561: END IF;
12562: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
12563: RAISE FND_API.G_EXC_ERROR;
12564: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12589: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12590: x_return_status := l_return_status;
12591: -- IF c_lines%ISOPEN THEN CLOSE c_lines; END IF; --Bug 10179680
12592: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12593: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12594: ' RETURN_STATUS = ' || x_return_status);
12595: END IF;
12596: RAISE FND_API.G_EXC_ERROR;
12597: END IF;
12607: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12608: x_return_status := l_return_status;
12609: -- IF c_lines%ISOPEN THEN CLOSE c_lines; END IF; --Bug 10179680
12610: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12611: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12612: ' RETURN_STATUS = ' || x_return_status);
12613: END IF;
12614: RAISE FND_API.G_EXC_ERROR;
12615: END IF;
12615: END IF;
12616:
12617: BEGIN
12618: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12619: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Processing for Transaction Line with APPLICATION_ID: '||to_char(zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index))||
12620: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index)||
12621: ', EVENT_CLASS_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index)|| ', EVENT_TYPE_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_TYPE_CODE(l_trx_line_index)||
12622: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(l_trx_line_index))||
12623: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index))||
12680: ', BILL_FROM_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.BILL_FROM_PARTY_ID(l_trx_line_index))||
12681: ', MERCHANT_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_ID(l_trx_line_index)));
12682: END IF;
12683: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12684: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12685: ', SHIP_TO_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_PARTY_SITE_ID(l_trx_line_index))||
12686: ', SHIP_FROM_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_PARTY_SITE_ID(l_trx_line_index))||
12687: ', POA_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POA_PARTY_SITE_ID(l_trx_line_index))||
12688: ', POO_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POO_PARTY_SITE_ID(l_trx_line_index))||
12755: --', PAYING_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.PAYING_PARTY_ID(l_trx_line_index))
12756: );
12757: END IF;
12758: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12759: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12760: --', OWN_HQ_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.OWN_HQ_PARTY_ID(l_trx_line_index))||
12761: --', TRADING_HQ_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.TRADING_HQ_PARTY_ID(l_trx_line_index))||
12762: --', POI_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POI_PARTY_ID(l_trx_line_index))||
12763: --', POD_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POD_PARTY_ID(l_trx_line_index))||
12813: --', DATE10: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.DATE10(l_trx_line_index))
12814: );
12815: END IF;
12816: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12817: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12818: ', FIRST_PTY_ORG_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.FIRST_PTY_ORG_ID(l_trx_line_index))||
12819: ', TAX_EVENT_CLASS_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_CLASS_CODE(l_trx_line_index)||
12820: ', TAX_EVENT_TYPE_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_TYPE_CODE(l_trx_line_index)||
12821: ', DOC_EVENT_STATUS: '|| zx_global_structures_pkg.trx_line_dist_tbl.DOC_EVENT_STATUS(l_trx_line_index)||
12868: ', CTRL_TOTAL_LINE_TX_AMT: '|| zx_global_structures_pkg.trx_line_dist_tbl.CTRL_TOTAL_LINE_TX_AMT(l_trx_line_index)||
12869: ', DIST_LEVEL_ACTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.DIST_LEVEL_ACTION(l_trx_line_index));
12870: END IF;
12871: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12872: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12873: ', ADJUSTED_DOC_TAX_DIST_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_TAX_DIST_ID(l_trx_line_index)) ||
12874: ', APPLIED_FROM_TAX_DIST_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TAX_DIST_ID(l_trx_line_index)) ||
12875: ', TASK_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TASK_ID(l_trx_line_index)) ||
12876: ', AWARD_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.AWARD_ID(l_trx_line_index)) ||
12967: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12968: x_return_status := l_return_status;
12969: -- IF c_lines%ISOPEN THEN CLOSE c_lines; END IF; --Bug 10179680
12970: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12971: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12972: ' RETURN_STATUS = ' || x_return_status);
12973: END IF;
12974: RAISE FND_API.G_EXC_ERROR;
12975: END IF;
12988: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12989: x_return_status := l_return_status;
12990: -- IF c_lines%ISOPEN THEN CLOSE c_lines; END IF; --Bug 10179680
12991: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12992: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12993: ' RETURN_STATUS = ' || x_return_status);
12994: END IF;
12995: RAISE FND_API.G_EXC_ERROR;
12996: END IF;
13015: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
13016: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
13017: END IF;
13018: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13019: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13020: ' RETURN_STATUS = ' || x_return_status);
13021: END IF;
13022: RAISE FND_API.G_EXC_ERROR;
13023: END IF;
13050: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13051: x_return_status := l_return_status;
13052: -- IF c_lines%ISOPEN THEN CLOSE c_lines; END IF; --Bug 10179680
13053: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13054: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13055: ' RETURN_STATUS = ' || x_return_status);
13056: END IF;
13057: RAISE FND_API.G_EXC_ERROR;
13058: END IF;
13065: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13066: x_return_status := l_return_status;
13067: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
13068: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13069: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13070: ' RETURN_STATUS = ' || x_return_status);
13071: END IF;
13072: RETURN;
13073: END IF;
13087:
13088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13089: x_return_status := l_return_status;
13090: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13091: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13092: ' RETURN_STATUS = ' || x_return_status);
13093: END IF;
13094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13095: END IF;
13101: WHEN FND_API.G_EXC_ERROR THEN
13102: ROLLBACK TO Import_Doc;
13103: l_flag := FALSE;
13104: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13105: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
13106: END IF;
13107:
13108: DELETE FROM zx_detail_tax_lines_gt
13109: WHERE application_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index)
13111: AND event_class_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index)
13112: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
13113:
13114: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13115: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Manual Tax Lines Count: '||SQL%ROWCOUNT);
13116: END IF;
13117:
13118: FOR l_search_pointer IN REVERSE 1 .. NVL(ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl.LAST, 0) LOOP
13119: IF ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl(l_search_pointer).trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index)
13194:
13195: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13196: x_return_status := l_return_status ;
13197: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13198: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt returned errors');
13199: END IF;
13200: RETURN;
13201: END IF;
13202: END IF;
13204:
13205: END LOOP; --l_trx_line_index in 1 .. nvl(zx_global_structures_pkg.trx_line_dist_tbl.internal_organization_id.LAST,0)
13206:
13207: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13209: 'Completed the processing loop. Calling db_insert_line_det_factors..');
13210: END IF;
13211:
13212: /*Merge ruled out by performance due to record of table structure*/
13218:
13219: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13220: x_return_status := l_return_status;
13221: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13222: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13223: ' RETURN_STATUS = ' || x_return_status);
13224: END IF;
13225: RETURN;
13226: END IF;
13239: -- Handle LTE tax method
13240: IF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
13241: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13242:
13243: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13244: 'Tax Method is LTE. Calling LTE in a loop ');
13245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13246: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl. Number of records: '||
13247: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl.LAST,0)) );
13241: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13242:
13243: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13244: 'Tax Method is LTE. Calling LTE in a loop ');
13245: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13246: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl. Number of records: '||
13247: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl.LAST,0)) );
13248: END IF;
13249:
13266: l_event_class_rec.record_for_partners_flag := ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl(l_trx_id_index).record_for_partners_flag;
13267: l_event_class_rec.internal_organization_id := ZX_GLOBAL_STRUCTURES_PKG.lte_trx_tbl(l_trx_id_index).internal_organization_id;
13268:
13269: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13270: FND_LOG.STRING(G_LEVEL_STATEMENT,
13271: G_MODULE_NAME||l_api_name,
13272: 'processing trx_id: ' ||
13273: TO_CHAR(l_event_class_rec.trx_id));
13274: END IF;
13294:
13295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13296: x_return_status := l_return_status;
13297: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13298: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Incorrect status returned by Call_lte. Return_Status'||x_return_status);
13299: END IF;
13300: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13301: RAISE FND_API.G_EXC_ERROR;
13302: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13307: EXCEPTION
13308: WHEN FND_API.G_EXC_ERROR THEN
13309: ROLLBACK TO Import_Tax_LTE;
13310: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13311: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Deleting Records from Zx_Lines_Det_Factors for Trx_id : '||l_event_class_rec.trx_id );
13312: END IF;
13313:
13314: DELETE FROM zx_lines_det_factors
13315: WHERE application_id = l_event_class_rec.application_id
13317: AND event_class_code = l_event_class_rec.event_class_code
13318: AND trx_id = l_event_class_rec.trx_id;
13319:
13320: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
13321: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'Records Deleted : '||SQL%ROWCOUNT );
13322: END IF;
13323:
13324: -- Commented call to dump error message into errors_gt table
13325: -- This will be handled in the API ZX_API_PUB.Import_Document_With_Tax
13330:
13331: END LOOP;
13332:
13333: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13335: 'Return Status from LTE : ' || l_return_status);
13336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13337: 'g_ptnr_srvc_subscr_flag : '||
13338: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag );
13332:
13333: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13334: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13335: 'Return Status from LTE : ' || l_return_status);
13336: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13337: 'g_ptnr_srvc_subscr_flag : '||
13338: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag );
13339: END IF;
13340:
13367:
13368: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13369: x_return_status := l_return_status;
13370: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13371: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13372: 'Incorrect status returned by Ptnr_bulk_calc_tax_pvt. RETURN_STATUS = '||x_return_status);
13373: END IF;
13374: RETURN;
13375: END IF;
13375: END IF;
13376: END IF;
13377: /*******************************PARTNER CODE END ****************************/
13378:
13379: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13380: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13381: G_PKG_NAME||': '||l_api_name||'()-'||
13382: ' RETURN_STATUS = ' || x_return_status);
13383: END IF;
13376: END IF;
13377: /*******************************PARTNER CODE END ****************************/
13378:
13379: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13380: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13381: G_PKG_NAME||': '||l_api_name||'()-'||
13382: ' RETURN_STATUS = ' || x_return_status);
13383: END IF;
13384:
13386: WHEN OTHERS THEN
13387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13388: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
13389: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13390: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13391: END IF;
13392: END import;
13393:
13394: -----------------------------------------------------------------------
13410: l_tax_prof_id NUMBER;
13411: l_return_status VARCHAR2(30);
13412: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13413: BEGIN
13414: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13415: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13416: END IF;
13417:
13418: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13411: l_return_status VARCHAR2(30);
13412: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13413: BEGIN
13414: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13415: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13416: END IF;
13417:
13418: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13419:
13708: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13709: x_return_status := l_return_status;
13710: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13711: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13712: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13713: ' RETURN_STATUS = ' || x_return_status);
13714: END IF;
13715: RETURN;
13716: END IF;
13730: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13731: x_return_status := l_return_status;
13732: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13733: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13734: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13735: ' RETURN_STATUS = ' || x_return_status);
13736: END IF;
13737: RETURN;
13738: END IF;
13741: EXIT WHEN get_overridden_lines%NOTFOUND;
13742: END LOOP;
13743: CLOSE get_overridden_lines;
13744:
13745: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13746: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13747: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13748: END IF;
13749:
13742: END LOOP;
13743: CLOSE get_overridden_lines;
13744:
13745: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13746: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13747: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13748: END IF;
13749:
13750: EXCEPTION
13751: WHEN OTHERS THEN
13752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13753: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13754: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13755: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13756: END IF;
13757: END override_summary_tax_lines;
13758:
13759: -----------------------------------------------------------------------
13776: l_return_status VARCHAR2(30);
13777: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13778:
13779: BEGIN
13780: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13782: END IF;
13783:
13784: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13777: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13778:
13779: BEGIN
13780: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13781: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13782: END IF;
13783:
13784: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13785:
14076: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14077: x_return_status := l_return_status;
14078: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
14079: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14081: ' RETURN_STATUS = ' || x_return_status);
14082: END IF;
14083: RETURN;
14084: END IF;
14099: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14100: x_return_status := l_return_status;
14101: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
14102: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14103: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14104: ' RETURN_STATUS = ' || x_return_status);
14105: END IF;
14106: RETURN;
14107: END IF;
14110: EXIT WHEN get_overridden_lines%NOTFOUND;
14111: END LOOP;
14112: CLOSE get_overridden_lines;
14113:
14114: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14115: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14116: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14117: END IF;
14118:
14111: END LOOP;
14112: CLOSE get_overridden_lines;
14113:
14114: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14115: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14116: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14117: END IF;
14118:
14119: EXCEPTION
14120: WHEN OTHERS THEN
14121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14122: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
14123: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14124: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14125: END IF;
14126: END override_detail_tax_lines;
14127:
14128: -----------------------------------------------------------------------
14164: dtl_tax_lines_rec dtl_tax_lines_csr%ROWTYPE;
14165:
14166:
14167: BEGIN
14168: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14169: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14170: END IF;
14171: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14172:
14165:
14166:
14167: BEGIN
14168: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14169: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14170: END IF;
14171: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14172:
14173: /*--------------------------------------------------+
14181: );
14182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14183: x_return_status := l_return_status;
14184: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14185: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14186: ' RETURN_STATUS = ' || x_return_status);
14187: END IF;
14188: RETURN;
14189: END IF;
14193: );
14194: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14195: x_return_status := l_return_status;
14196: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14197: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14198: ' RETURN_STATUS = ' || x_return_status);
14199: END IF;
14200: RETURN;
14201: END IF;
14226:
14227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14228: x_return_status := l_return_status;
14229: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14231: ' RETURN_STATUS = ' || x_return_status);
14232: END IF;
14233: RETURN;
14234: END IF;
14234: END IF;
14235:
14236: IF l_ptnr_tax_lines_insert = 0 THEN
14237: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14238: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14239: ' No Tax Partner line needs to be synchronized.');
14240: END IF;
14241: RETURN;
14242: END IF;
14272:
14273: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14274: x_return_status := l_return_status;
14275: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14276: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14277: ' RETURN_STATUS = ' || x_return_status);
14278: END IF;
14279: RETURN;
14280: END IF;
14288:
14289: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14290: x_return_status := l_return_status;
14291: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14292: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14293: ' RETURN_STATUS = ' || x_return_status);
14294: END IF;
14295: RETURN;
14296: END IF;
14304:
14305: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14306: x_return_status := l_return_status;
14307: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14309: ' RETURN_STATUS = ' || x_return_status);
14310: END IF;
14311: RETURN;
14312: END IF;
14319:
14320: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14321: x_return_status := l_return_status;
14322: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14324: ' RETURN_STATUS = ' || x_return_status);
14325: END IF;
14326: RETURN;
14327: END IF;
14339:
14340: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14341: x_return_status := l_return_status;
14342: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14343: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14344: ' RETURN_STATUS = ' || x_return_status);
14345: END IF;
14346: RETURN;
14347: END IF;
14374:
14375: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14376: x_return_status := l_return_status;
14377: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14379: ' RETURN_STATUS = ' || x_return_status);
14380: END IF;
14381: RETURN;
14382: END IF;
14380: END IF;
14381: RETURN;
14382: END IF;
14383:
14384: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14386: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14387: END IF;
14388:
14381: RETURN;
14382: END IF;
14383:
14384: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14386: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14387: END IF;
14388:
14389: EXCEPTION
14389: EXCEPTION
14390: WHEN OTHERS THEN
14391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14392: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14393: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14394: END IF;
14395: END override_tax_lines;
14396:
14397: -----------------------------------------------------------------------
14413: l_return_status VARCHAR2(30);
14414: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14415:
14416: BEGIN
14417: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14419: END IF;
14420: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14421:
14414: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14415:
14416: BEGIN
14417: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14418: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14419: END IF;
14420: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14421:
14422: /* --------------------------------------------------------------------------------+
14436:
14437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14438: x_return_status := l_return_status;
14439: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14440: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14441: ' RETURN_STATUS = ' || x_return_status);
14442: END IF;
14443: RETURN;
14444: END IF;
14471:
14472: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14473: x_return_status := l_return_status;
14474: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14475: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14476: ' RETURN_STATUS = ' || x_return_status);
14477: END IF;
14478: RETURN;
14479: END IF;
14491:
14492: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14493: x_return_status := l_return_status;
14494: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14495: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14496: ' RETURN_STATUS = ' || x_return_status);
14497: END IF;
14498: RETURN;
14499: END IF;
14499: END IF;
14500: END IF;
14501:
14502: /***********************PARTNER CODE END***************************/
14503: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14504: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14505: END IF;
14506:
14507: EXCEPTION
14500: END IF;
14501:
14502: /***********************PARTNER CODE END***************************/
14503: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14504: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14505: END IF;
14506:
14507: EXCEPTION
14508: WHEN OTHERS THEN
14507: EXCEPTION
14508: WHEN OTHERS THEN
14509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14510: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14511: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14512: END IF;
14513: END document_level_changes;
14514:
14515: -----------------------------------------------------------------------
14530: l_return_status VARCHAR2(30);
14531: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14532:
14533: BEGIN
14534: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14535: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14536: END IF;
14537: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14538:
14531: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14532:
14533: BEGIN
14534: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14535: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14536: END IF;
14537: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14538:
14539: /* -------------------------------------------------------+
14543:
14544: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14545: x_return_status := l_return_status;
14546: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14547: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14548: ' RETURN_STATUS = ' || x_return_status);
14549: END IF;
14550: RETURN;
14551: END IF;
14549: END IF;
14550: RETURN;
14551: END IF;
14552:
14553: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14555: END IF;
14556:
14557: EXCEPTION
14550: RETURN;
14551: END IF;
14552:
14553: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14555: END IF;
14556:
14557: EXCEPTION
14558: WHEN OTHERS THEN
14557: EXCEPTION
14558: WHEN OTHERS THEN
14559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14560: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14561: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14562: END IF;
14563: END mark_tax_lines_deleted;
14564:
14565: -----------------------------------------------------------------------
14901: AND zrthgt.reversing_evnt_cls_code = zrtlgt.reversing_evnt_cls_code
14902: AND zrthgt.reversing_trx_id = zrtlgt.reversing_trx_id;
14903:
14904: BEGIN
14905: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14906: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14907: END IF;
14908: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14909:
14902: AND zrthgt.reversing_trx_id = zrtlgt.reversing_trx_id;
14903:
14904: BEGIN
14905: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14906: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14907: END IF;
14908: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14909:
14910: /* -------------------------------------------------------+
14916:
14917: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14918: x_return_status := l_return_status;
14919: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14920: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14921: ' RETURN_STATUS = ' || x_return_status);
14922: END IF;
14923: RETURN;
14924: END IF;
15234: | Print Det Factor columns |
15235: | Added debug code for Bug#13853611 |
15236: + ---------------------------------------*/
15237: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15238: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15239: 'Creating Reverse Document.');
15240: END IF;
15241:
15242: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15242: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15243: FOR i IN NVL(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID.FIRST,0)..
15244: NVL(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID.LAST,-99)
15245: LOOP
15246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15247: 'Record:'||TO_CHAR(i)||':- APPLICATION_ID: '||TO_CHAR(zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID(i))||
15248: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(i)||
15249: ', EVENT_CLASS_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_CLASS_CODE(i)||
15250: ', TRX_ID: '||TO_CHAR(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(i))||
15294:
15295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15296: x_return_status := l_return_status;
15297: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15298: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15299: ' RETURN_STATUS = ' || x_return_status);
15300: END IF;
15301: RETURN;
15302: END IF;
15314:
15315: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15316: x_return_status := l_return_status;
15317: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15318: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15319: ' RETURN_STATUS = ' || x_return_status);
15320: END IF;
15321: RETURN;
15322: END IF;
15323:
15324: /* Bug 5662795 */
15325: IF l_ptnr_tax_lines_insert = 0 THEN
15326: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15327: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15328: ' No Tax Partner line available for reversing.');
15329: END IF;
15330: RETURN;
15331: END IF;
15372: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
15373: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
15374: END IF;
15375: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15376: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15377: ' RETURN_STATUS = ' || x_return_status);
15378: END IF;
15379: RETURN;
15380: END IF;
15389:
15390: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15391: x_return_status := l_return_status;
15392: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15393: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15394: ' RETURN_STATUS = ' || x_return_status);
15395: END IF;
15396: RETURN;
15397: END IF;
15407: );
15408: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15409: x_return_status := l_return_status;
15410: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15411: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15412: ' RETURN_STATUS = ' || x_return_status);
15413: END IF;
15414: RETURN;
15415: END IF;
15423:
15424: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15425: x_return_status := l_return_status;
15426: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15427: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15428: ' RETURN_STATUS = ' || x_return_status);
15429: END IF;
15430: RETURN;
15431: END IF;
15437: );
15438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15439: x_return_status := l_return_status;
15440: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15441: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15442: ' RETURN_STATUS = ' || x_return_status);
15443: END IF;
15444: RETURN;
15445: END IF;
15452: );
15453: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15454: x_return_status := l_return_status;
15455: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15456: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15457: ' RETURN_STATUS = ' || x_return_status);
15458: END IF;
15459: RETURN;
15460: END IF;
15463: END IF;
15464: END IF;
15465: /***********************PARTNER CODE END***************************/
15466:
15467: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15468: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15469: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15470: END IF;
15471:
15464: END IF;
15465: /***********************PARTNER CODE END***************************/
15466:
15467: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15468: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15469: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15470: END IF;
15471:
15472: EXCEPTION
15472: EXCEPTION
15473: WHEN OTHERS THEN
15474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15475: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15476: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15477: END IF;
15478: END reverse_document;
15479:
15480: -----------------------------------------------------------------------
15494: l_return_status VARCHAR2(30);
15495: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15496:
15497: BEGIN
15498: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15499: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15500: END IF;
15501: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15502:
15495: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15496:
15497: BEGIN
15498: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15499: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15500: END IF;
15501: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15502:
15503: /* -------------------------------------------------------+
15507:
15508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15509: x_return_status := l_return_status;
15510: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15511: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15512: ' RETURN_STATUS = ' || x_return_status);
15513: END IF;
15514: RETURN;
15515: END IF;
15513: END IF;
15514: RETURN;
15515: END IF;
15516:
15517: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15518: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15519: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15520: END IF;
15521:
15514: RETURN;
15515: END IF;
15516:
15517: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15518: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15519: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15520: END IF;
15521:
15522: EXCEPTION
15522: EXCEPTION
15523: WHEN OTHERS THEN
15524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15525: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15526: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15527: END IF;
15528: END reverse_distributions;
15529:
15530: -----------------------------------------------------------------------
15545: l_return_status VARCHAR2(30);
15546: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15547:
15548: BEGIN
15549: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15550: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15551: END IF;
15552: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15553: l_return_status := FND_API.G_RET_STS_SUCCESS ;
15546: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15547:
15548: BEGIN
15549: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15550: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15551: END IF;
15552: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15553: l_return_status := FND_API.G_RET_STS_SUCCESS ;
15554:
15562:
15563: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15564: x_return_status := l_return_status;
15565: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15566: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15567: ' RETURN_STATUS = ' || x_return_status);
15568: END IF;
15569: RETURN;
15570: END IF;
15568: END IF;
15569: RETURN;
15570: END IF;
15571:
15572: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15573: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15574: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15575: END IF;
15576:
15569: RETURN;
15570: END IF;
15571:
15572: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15573: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15574: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15575: END IF;
15576:
15577: EXCEPTION
15577: EXCEPTION
15578: WHEN OTHERS THEN
15579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15580: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15581: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15582: END IF;
15583: END determine_recovery;
15584:
15585: -----------------------------------------------------------------------
15600: l_return_status VARCHAR2(30);
15601: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15602:
15603: BEGIN
15604: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15605: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15606: END IF;
15607: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15608:
15601: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15602:
15603: BEGIN
15604: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15605: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15606: END IF;
15607: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15608:
15609: ZX_TRD_SERVICES_PUB_PKG.override_recovery(p_event_class_rec,
15612:
15613: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15614: x_return_status := l_return_status;
15615: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15616: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15617: ' RETURN_STATUS = ' || x_return_status);
15618: END IF;
15619: RETURN;
15620: END IF;
15618: END IF;
15619: RETURN;
15620: END IF;
15621:
15622: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15623: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15624: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15625: END IF;
15626:
15619: RETURN;
15620: END IF;
15621:
15622: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15623: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15624: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15625: END IF;
15626:
15627: EXCEPTION
15627: EXCEPTION
15628: WHEN OTHERS THEN
15629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15630: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15631: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15632: END IF;
15633: END override_recovery;
15634:
15635:
15651: l_return_status VARCHAR2(30);
15652: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15653:
15654: BEGIN
15655: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15656: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15657: END IF;
15658: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15659:
15652: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15653:
15654: BEGIN
15655: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15656: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15657: END IF;
15658: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15659:
15660: /* -------------------------------------------------------+
15666:
15667: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15668: x_return_status := l_return_status;
15669: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15670: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15671: ' RETURN_STATUS = ' || x_return_status);
15672: END IF;
15673: RETURN;
15674: END IF;
15672: END IF;
15673: RETURN;
15674: END IF;
15675:
15676: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15678: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15679: END IF;
15680:
15673: RETURN;
15674: END IF;
15675:
15676: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15677: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15678: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15679: END IF;
15680:
15681: EXCEPTION
15681: EXCEPTION
15682: WHEN OTHERS THEN
15683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15684: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15685: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15686: END IF;
15687: END freeze_distribution_lines;
15688:
15689: -----------------------------------------------------------------------
15707: l_return_status VARCHAR2(30);
15708: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15709:
15710: BEGIN
15711: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15712: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15713: END IF;
15714: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15715:
15708: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15709:
15710: BEGIN
15711: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15712: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15713: END IF;
15714: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15715:
15716: /* -------------------------------------------------------+
15725:
15726: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15727: x_return_status := l_return_status;
15728: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15729: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15730: ' RETURN_STATUS = ' || x_return_status);
15731: END IF;
15732: RETURN;
15733: END IF;
15731: END IF;
15732: RETURN;
15733: END IF;
15734:
15735: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15736: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15737: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15738: END IF;
15739:
15732: RETURN;
15733: END IF;
15734:
15735: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15736: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15737: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15738: END IF;
15739:
15740: EXCEPTION
15740: EXCEPTION
15741: WHEN OTHERS THEN
15742: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15743: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15744: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15745: END IF;
15746: END validate_document_for_tax;
15747:
15748:
15765: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15766:
15767:
15768: BEGIN
15769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15771: END IF;
15772: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15773:
15766:
15767:
15768: BEGIN
15769: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15770: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15771: END IF;
15772: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15773:
15774: /* -------------------------------------------------------+
15781:
15782: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15783: x_return_status := l_return_status;
15784: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15785: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15786: ' RETURN_STATUS = ' || x_return_status);
15787: END IF;
15788: RETURN;
15789: END IF;
15815:
15816: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15817: x_return_status := l_return_status;
15818: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15819: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15820: ' RETURN_STATUS = ' || x_return_status);
15821: END IF;
15822: RETURN;
15823: END IF;
15831:
15832: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15833: x_return_status := l_return_status;
15834: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15835: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15836: ' RETURN_STATUS = ' || x_return_status);
15837: END IF;
15838: RETURN;
15839: END IF;
15846:
15847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15848: x_return_status := l_return_status;
15849: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15850: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15851: ' RETURN_STATUS = ' || x_return_status);
15852: END IF;
15853: RETURN;
15854: END IF;
15865:
15866: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15867: x_return_status := l_return_status;
15868: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15869: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15870: ' RETURN_STATUS = ' || x_return_status);
15871: END IF;
15872: RETURN;
15873: END IF;
15873: END IF;
15874:
15875:
15876: /***********************PARTNER CODE END***************************/
15877: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15878: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15879: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15880: END IF;
15881:
15874:
15875:
15876: /***********************PARTNER CODE END***************************/
15877: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15878: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15879: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15880: END IF;
15881:
15882: EXCEPTION
15882: EXCEPTION
15883: WHEN OTHERS THEN
15884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15885: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15886: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15887: END IF;
15888: END discard_tax_only_lines;
15889:
15890:
15909: l_partner_migrated_flag VARCHAR2(1);
15910: l_provider_id NUMBER;
15911:
15912: BEGIN
15913: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15914: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15915: END IF;
15916: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15917:
15910: l_provider_id NUMBER;
15911:
15912: BEGIN
15913: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15914: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15915: END IF;
15916: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15917:
15918: /* -------------------------------------------------------+
15931: AND zxdet.trx_id = p_event_class_rec.trx_id
15932: AND rownum = 1;
15933: EXCEPTION WHEN OTHERS THEN
15934: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15936: 'No rows in zx_lines_det_factors for the transaction' );
15937: END IF;
15938: RETURN;
15939: END;
15992: FOR l_regime_index IN nvl(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.FIRST,0) .. nvl(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.LAST,-99)
15993: LOOP
15994:
15995: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15996: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15997: ' at the start of the loop');
15998: END IF;
15999: IF ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.exists(l_regime_index) THEN
16000:
15998: END IF;
15999: IF ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.exists(l_regime_index) THEN
16000:
16001: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16003: ' inside the regime index condition');
16004: END IF;
16005: ZX_tpi_services_pkg.get_service_provider(
16006: p_event_class_rec.application_id, p_event_class_rec.entity_code,
16008: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
16009: l_provider_id , l_return_status);
16010:
16011: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16012: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16013: ' Provider Id = ' || to_char(l_provider_id));
16014: END IF;
16015:
16016: IF nvl(l_provider_id,0) > 0 THEN
16014: END IF;
16015:
16016: IF nvl(l_provider_id,0) > 0 THEN
16017: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16018: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16019: ' Before partner pre processing ');
16020: END IF;
16021: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id :=
16022: l_provider_id;
16029: );
16030: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16031: x_return_status := l_return_status;
16032: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16033: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16034: ' RETURN_STATUS = ' || x_return_status);
16035: END IF;
16036: RETURN;
16037: END IF;
16036: RETURN;
16037: END IF;
16038:
16039: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16041: ' Before derive ext attsr');
16042: END IF;
16043:
16044: ZX_TPI_SERVICES_PKG.derive_ext_attrs (p_event_class_rec,
16050:
16051: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16052: x_return_status := l_return_status;
16053: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16054: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16055: ' RETURN_STATUS = ' || x_return_status);
16056: END IF;
16057: RETURN;
16058: END IF;
16057: RETURN;
16058: END IF;
16059:
16060: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16061: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16062: ' Before call partner service');
16063: END IF;
16064: ZX_TPI_SERVICES_PKG.call_partner_service(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
16065: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id,
16070:
16071: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16072: x_return_status := l_return_status;
16073: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16074: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16075: ' RETURN_STATUS = ' || x_return_status);
16076: END IF;
16077: RETURN;
16078: END IF;
16077: RETURN;
16078: END IF;
16079: END IF;
16080: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16081: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16082: ' after the iteratuion');
16083: END IF;
16084: END IF;
16085: END LOOP;
16083: END IF;
16084: END IF;
16085: END LOOP;
16086: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16087: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16088: ' After partner code ');
16089: END IF;
16090: END IF; -- bug7115402
16091: END IF; --recording
16090: END IF; -- bug7115402
16091: END IF; --recording
16092:
16093: /***********************PARTNER CODE END***************************/
16094: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16096: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16097: END IF;
16098:
16091: END IF; --recording
16092:
16093: /***********************PARTNER CODE END***************************/
16094: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16095: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16096: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16097: END IF;
16098:
16099: EXCEPTION
16099: EXCEPTION
16100: WHEN OTHERS THEN
16101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16102: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
16103: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
16104: END IF;
16105: END synchronize_tax;
16106:
16107: -----------------------------------------------------------------------
16128: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16129: l_return_status VARCHAR2(1);
16130:
16131: BEGIN
16132: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16133: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16134: END IF;
16135:
16136: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16129: l_return_status VARCHAR2(1);
16130:
16131: BEGIN
16132: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16133: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16134: END IF;
16135:
16136: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16137:
16137:
16138: FOR l_trx_index IN ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST .. ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST
16139: LOOP
16140: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16141: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16142: ', SHIP_THIRD_PTY_ACCT_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.SHIP_THIRD_PTY_ACCT_ID(l_trx_index)) ||
16143: ', BILL_THIRD_PTY_ACCT_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.BILL_THIRD_PTY_ACCT_ID(l_trx_index)) ||
16144: ', SHIP_THIRD_PTY_ACCT_SITE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.SHIP_THIRD_PTY_ACCT_SITE_ID(l_trx_index)) ||
16145: ', BILL_THIRD_PTY_ACCT_SITE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.BILL_THIRD_PTY_ACCT_SITE_ID(l_trx_index)) ||
16171: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
16172: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
16173: END IF;
16174: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16175: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16176: ' RETURN_STATUS = ' || x_return_status);
16177: END IF;
16178: RETURN;
16179: END IF;
16206:
16207: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16208: x_return_status := l_return_status;
16209: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16210: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16211: ' RETURN_STATUS = ' || x_return_status);
16212: END IF;
16213: RETURN;
16214: END IF;
16212: END IF;
16213: RETURN;
16214: END IF;
16215: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16216: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Processing for Transaction Line with APPLICATION_ID: '||to_char(zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID(l_trx_index))||
16217: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(l_trx_index)||
16218: ', EVENT_CLASS_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_index)|| ', EVENT_TYPE_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.EVENT_TYPE_CODE(l_trx_index)||
16219: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(l_trx_index))||
16220: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(l_trx_index))||
16297: );
16298: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16299: x_return_status := l_return_status;
16300: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16301: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16302: ' RETURN_STATUS = ' || x_return_status);
16303: END IF;
16304: RETURN;
16305: END IF;
16327:
16328: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16329: x_return_status := l_return_status;
16330: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16331: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16332: ' RETURN_STATUS = ' || x_return_status);
16333: END IF;
16334: RETURN;
16335: END IF;
16334: RETURN;
16335: END IF;
16336: END IF;
16337:
16338: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16339: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16340: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16341: END IF;
16342: EXCEPTION
16335: END IF;
16336: END IF;
16337:
16338: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16339: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16340: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16341: END IF;
16342: EXCEPTION
16343: WHEN OTHERS THEN
16342: EXCEPTION
16343: WHEN OTHERS THEN
16344: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16345: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
16346: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
16347: END IF;
16348: END insupd_line_det_factors;
16349:
16350: -----------------------------------------------------------------------
16371: l_context_info_rec ZX_API_PUB.context_info_rec_type;
16372: l_return_status VARCHAR2(1);
16373:
16374: BEGIN
16375: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16376: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16377: END IF;
16378:
16379: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16372: l_return_status VARCHAR2(1);
16373:
16374: BEGIN
16375: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16376: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16377: END IF;
16378:
16379: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16380:
16394: AND trx_id = p_event_class_rec.trx_id
16395: AND tax_regime_code = p_tax_regime_code;
16396: END IF;
16397:
16398: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16399: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16400: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16401: END IF;
16402:
16395: AND tax_regime_code = p_tax_regime_code;
16396: END IF;
16397:
16398: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16399: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16400: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16401: END IF;
16402:
16403: EXCEPTION
16403: EXCEPTION
16404: WHEN OTHERS THEN
16405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16406: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
16407: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
16408: END IF;
16409: END zx_lines_table_handler;
16410:
16411: -----------------------------------------------------------------------
16435: l_return_status VARCHAR2(30);
16436:
16437: BEGIN
16438: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16439: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
16440: G_PKG_NAME||': '||l_api_name||'()+'||
16441: ', Party_id: '||to_char(p_party_id)||
16442: ', Party Type:'||p_party_type_code ||
16443: ', p_party_loc_id: '||to_char(p_party_loc_id)||
16463:
16464: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16465: x_return_status := l_return_status;
16466: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16467: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16468: ' RETURN_STATUS = ' || x_return_status);
16469: END IF;
16470: RETURN;
16471: END IF;
16488:
16489: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16490: x_return_status := l_return_status;
16491: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16492: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16493: ' RETURN_STATUS = ' || x_return_status);
16494: END IF;
16495: RETURN;
16496: END IF;
16498: END IF;
16499: END IF;
16500:
16501: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16502: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16503: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16504: END IF;
16505: END get_tax_profile_ids;
16506:
16554:
16555:
16556: BEGIN
16557: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16558: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16559: END IF;
16560:
16561: x_return_status := FND_API.G_RET_STS_SUCCESS;
16562:
16613: );
16614: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16615: x_return_status := l_return_status;
16616: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16617: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16618: ' RETURN_STATUS = ' || x_return_status);
16619: END IF;
16620: RETURN;
16621: END IF;
16692: );
16693: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16694: x_return_status := l_return_status;
16695: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16696: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16697: ' RETURN_STATUS = ' || x_return_status);
16698: END IF;
16699: RETURN;
16700: END IF;
16802: );
16803: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16804: x_return_status := l_return_status;
16805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16806: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16807: ' RETURN_STATUS = ' || x_return_status);
16808: END IF;
16809: RETURN;
16810: END IF;
16879: );
16880: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16881: x_return_status := l_return_status;
16882: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16883: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16884: ' RETURN_STATUS = ' || x_return_status);
16885: END IF;
16886: RETURN;
16887: END IF;
16896: END IF;
16897:
16898:
16899: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16900: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16901: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16902: END IF;
16903:
16904: EXCEPTION
16904: EXCEPTION
16905: WHEN OTHERS THEN
16906: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16907: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
16908: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
16909: END IF;
16910: END default_tax_attrs_wrapper;
16911:
16912: -----------------------------------------------------------------------
17324: ORDER by trxlines.trx_id, trxlines.trx_line_id;
17325:
17326: BEGIN
17327: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17328: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
17329: END IF;
17330:
17331: x_return_status := FND_API.G_RET_STS_SUCCESS;
17332:
17688: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17689: x_return_status := l_return_status;
17690: IF lines%ISOPEN THEN CLOSE lines; END IF;
17691: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17692: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17693: ' RETURN_STATUS = ' || x_return_status);
17694: END IF;
17695: RETURN;
17696: END IF;
17711: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17712: x_return_status := l_return_status;
17713: IF lines%ISOPEN THEN CLOSE lines; END IF;
17714: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17715: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17716: ' RETURN_STATUS = ' || x_return_status);
17717: END IF;
17718: RETURN;
17719: END IF;
17735: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17736: x_return_status := l_return_status;
17737: IF lines%ISOPEN THEN CLOSE lines; END IF;
17738: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17739: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17740: ' RETURN_STATUS = ' || x_return_status);
17741: END IF;
17742: RETURN;
17743: END IF;
17762: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17763: x_return_status := l_return_status;
17764: IF lines%ISOPEN THEN CLOSE lines; END IF;
17765: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17766: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17767: ' RETURN_STATUS = ' || x_return_status);
17768: END IF;
17769: RETURN;
17770: END IF;
17809: AND event_class_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.event_class_code(i)
17810: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(i);
17811:
17812: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17813: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
17814: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
17815: END IF;
17816:
17817: EXCEPTION
17818: WHEN OTHERS THEN
17819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17820: IF lines%ISOPEN THEN CLOSE lines; END IF;
17821: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
17822: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
17823: END IF;
17824: END get_default_tax_det_attrs;
17825:
17826:
17849:
17850: l_api_name CONSTANT VARCHAR2(30):= 'DECIDE_CALL_REDEFAULT_APIS';
17851:
17852: BEGIN
17853: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
17854: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
17855: END IF;
17856:
17857: /*IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) is null AND
17850: l_api_name CONSTANT VARCHAR2(30):= 'DECIDE_CALL_REDEFAULT_APIS';
17851:
17852: BEGIN
17853: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
17854: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
17855: END IF;
17856:
17857: /*IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) is null AND
17858: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) is null AND
17907: ELSE
17908: RETURN FALSE;
17909: END IF;
17910: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17911: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
17912: END IF;
17913: END decide_call_redefault_APIs;
17914:
17915: -----------------------------------------------------------------------
17994: -- OR end_date_active IS NULL)
17995: -- AND org_id IN ( c_internal_organization_id, -99);
17996:
17997: BEGIN
17998: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
17999: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
18000: END IF;
18001:
18002: x_return_status := FND_API.G_RET_STS_SUCCESS ;
17995: -- AND org_id IN ( c_internal_organization_id, -99);
17996:
17997: BEGIN
17998: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
17999: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
18000: END IF;
18001:
18002: x_return_status := FND_API.G_RET_STS_SUCCESS ;
18003:
18061: );
18062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18063: x_return_status := l_return_status;
18064: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18066: ' RETURN_STATUS = ' || x_return_status);
18067: END IF;
18068: RETURN;
18069: END IF;
18125: );
18126: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18127: x_return_status := l_return_status;
18128: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18129: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18130: ' RETURN_STATUS = ' || x_return_status);
18131: END IF;
18132: RETURN;
18133: END IF;
18145:
18146: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18147: x_return_status := l_return_status;
18148: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18149: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18150: ' RETURN_STATUS = ' || x_return_status);
18151: END IF;
18152: RETURN;
18153: END IF;
18167: );
18168: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18169: x_return_status := l_return_status;
18170: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18171: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18172: ' RETURN_STATUS = ' || x_return_status);
18173: END IF;
18174: RETURN;
18175: END IF;
18191:
18192: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18193: x_return_status := l_return_status;
18194: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18196: ' RETURN_STATUS = ' || x_return_status);
18197: END IF;
18198: RETURN;
18199: END IF;
18240:
18241: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18242: x_return_status := l_return_status;
18243: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18245: ' RETURN_STATUS = ' || x_return_status);
18246: END IF;
18247: RETURN;
18248: END IF;
18264:
18265: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18266: x_return_status := l_return_status;
18267: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18268: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18269: ' RETURN_STATUS = ' || x_return_status);
18270: END IF;
18271: RETURN;
18272: END IF;
18291:
18292: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18293: x_return_status := l_return_status;
18294: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18295: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18296: ' RETURN_STATUS = ' || x_return_status);
18297: END IF;
18298: RETURN;
18299: END IF;
18320: );
18321: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18322: x_return_status := l_return_status;
18323: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18324: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18325: ' RETURN_STATUS = ' || x_return_status);
18326: END IF;
18327: RETURN;
18328: END IF;
18429:
18430: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
18431: x_return_status := l_return_status;
18432: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18433: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18434: ' RETURN_STATUS = ' || x_return_status);
18435: END IF;
18436: RETURN;
18437: ELSE
18448:
18449: END IF; --application_id <>222
18450:
18451: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
18452: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
18453: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
18454: END IF;
18455:
18456: EXCEPTION
18456: EXCEPTION
18457: WHEN OTHERS THEN
18458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
18459: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
18460: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
18461: END IF;
18462: END call_redefaulting_APIs;
18463:
18464:
18474: l_api_name CONSTANT VARCHAR2(30) := 'pop_src_evnt_cls_info';
18475: BEGIN
18476:
18477: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18478: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
18479: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
18480: ', RETURN_STATUS = ' || x_return_status);
18481: END IF;
18482:
18511: END IF;
18512:
18513:
18514: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18515: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
18516: '.END',G_PKG_NAME||': '||l_api_name||'()-'||
18517: ', RETURN_STATUS = ' || x_return_status);
18518: END IF;
18519:
18520: EXCEPTION
18521: WHEN OTHERS THEN
18522: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18523: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
18524: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
18525: 'Unable to derive the source event calss info ' ||
18526: SQLERRM);
18527: END IF;
18528:
18536: l_context_info_rec ZX_API_PUB.context_info_rec_type;
18537: BEGIN
18538:
18539: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18540: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
18541: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
18542: ', RETURN_STATUS = ' || x_return_status);
18543: END IF;
18544:
18580: END IF;
18581: END IF;
18582:
18583: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18584: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
18585: '.END',G_PKG_NAME||': '||l_api_name||'()-'||
18586: ', RETURN_STATUS = ' || x_return_status);
18587: END IF;
18588:
18589: EXCEPTION
18590: WHEN OTHERS THEN
18591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18592: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
18593: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
18594: 'Unable to populate error information ' ||
18595: SQLERRM);
18596: END IF;
18597:
18622: l_trx_level_type VARCHAR(30);
18623:
18624: BEGIN
18625: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18626: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',
18627: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()+');
18628: END IF;
18629: -- Copy the key attributes in the local variables
18630: l_application_id := ZX_Global_Structures_Pkg.trx_line_dist_tbl.Application_id(p_index);
18647: ZX_Global_Structures_Pkg.trx_line_dist_tbl.Trx_line_Id(p_index) := l_trx_line_id;
18648: ZX_Global_Structures_Pkg.trx_line_dist_tbl.Trx_level_type(p_index) := l_trx_level_type;
18649:
18650: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18651: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
18652: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()-');
18653: END IF;
18654:
18655: EXCEPTION
18655: EXCEPTION
18656: WHEN OTHERS THEN
18657: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18658: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
18659: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
18660: 'Error occurred in ' || l_api_name || ' : ' ||SQLERRM);
18661: END IF;
18662:
18663: END Pop_Index_Attrbs_To_Null;
18687: l_zx_lines_cnt NUMBER;
18688:
18689: BEGIN
18690: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18691: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',
18692: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()+');
18693: END IF;
18694:
18695: l_legal_entity_id := ZX_Global_Structures_Pkg.trx_line_dist_tbl.LEGAL_ENTITY_ID(p_index);
18696: l_trx_date := ZX_Global_Structures_Pkg.trx_line_dist_tbl.TRX_DATE(p_index);
18697:
18698: IF p_level = 'HEADER' THEN
18699: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18700: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18701: 'Fetching establishment_id in Header level');
18702: END IF;
18703:
18704: IF l_legal_entity_id is NOT NULL THEN
18723: END IF;
18724:
18725: ELSIF p_level = 'LINE' THEN
18726: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18728: 'Fetching establishment_id in Line level');
18729: END IF;
18730: IF l_legal_entity_id is NOT NULL THEN
18731: l_tbl_index := to_char(l_legal_entity_id);
18751: END IF;
18752: END IF;
18753:
18754: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18755: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18756: ' legal_entity_id: '||l_legal_entity_id || ' : l_establishment_id : '||l_establishment_id||
18757: ' p_level: '||p_level||' l_trx_date'||l_trx_date);
18758: END IF;
18759:
18758: END IF;
18759:
18760: IF p_level = 'HEADER' THEN
18761: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18762: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18763: 'Getting Count of tax lines with NULL establishment_id');
18764: END IF;
18765:
18766: SELECT COUNT(*)
18772: AND entity_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.entity_code(p_index)
18773: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(p_index);
18774:
18775: IF ( g_level_statement >= g_current_runtime_level) THEN
18776: FND_LOG.STRING(g_level_statement,g_module_name||l_api_name,
18777: 'No. of tax lines with NULL establishment_id : '||l_zx_lines_cnt);
18778: END IF;
18779:
18780: IF l_zx_lines_cnt > 0 THEN
18778: END IF;
18779:
18780: IF l_zx_lines_cnt > 0 THEN
18781: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18782: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18783: 'Updating ZX Tables for Establishment_id');
18784: END IF;
18785:
18786: UPDATE zx_lines
18792: AND entity_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.entity_code(p_index)
18793: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(p_index);
18794:
18795: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18796: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18797: 'Updated ZX_Lines Table rows : '||sql%rowcount);
18798: END IF;
18799:
18800: UPDATE zx_lines_summary
18805: AND entity_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.entity_code(p_index)
18806: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(p_index);
18807:
18808: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18809: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18810: 'Updated ZX_Lines_summary Table rows : '||sql%rowcount);
18811: END IF;
18812:
18813: UPDATE zx_lines_det_factors
18819: AND entity_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.entity_code(p_index)
18820: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(p_index);
18821:
18822: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18823: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
18824: 'Updated ZX_Lines_det_factors Table rows : '||sql%rowcount);
18825: END IF;
18826:
18827: END IF;
18827: END IF;
18828: END IF;
18829:
18830: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18831: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
18832: 'ZX_SRVC_TYP_PKG: Pop_Estb_Id()-');
18833: END IF;
18834:
18835: EXCEPTION
18835: EXCEPTION
18836: WHEN OTHERS THEN
18837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18838: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
18839: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
18840: 'Error occurred in ' || l_api_name || ' : ' ||SQLERRM);
18841: END IF;
18842:
18843: END Pop_Estb_Id;
18881:
18882: BEGIN
18883:
18884: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
18885: FND_LOG.STRING(G_LEVEL_STATEMENT,
18886: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.BEGIN',
18887: 'ZX_SRVC_TYP_PKG: print_unique_columns (+)');
18888: END IF;
18889:
18888: END IF;
18889:
18890: FOR rec IN get_unique_columns LOOP
18891: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
18892: FND_LOG.STRING(G_LEVEL_STATEMENT,
18893: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',
18894: ' TRX_LINE_ID : ' || rec.trx_line_id ||
18895: ', APPLICATION_ID : ' || rec.application_id ||
18896: ', ENTITY_CODE : ' || rec.entity_code ||
18899: END IF;
18900: END LOOP;
18901:
18902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18903: FND_LOG.STRING(G_LEVEL_STATEMENT,
18904: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns.END',
18905: 'ZX_SRVC_TYP_PKG: print_unique_columns (-)');
18906: END IF;
18907:
18907:
18908: EXCEPTION
18909: WHEN OTHERS THEN
18910: IF(G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
18911: FND_LOG.STRING(G_LEVEL_STATEMENT,
18912: 'ZX.PLSQL.ZX_SRVC_TYP_PKG.print_unique_columns',
18913: 'Cannot print unique columns. Error Occured : '||SUBSTR(SQLERRM, 1, 80));
18914: END IF;
18915: END print_unique_columns;