[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;
1704: IS
1705: l_api_name CONSTANT VARCHAR2(30):= 'DB_INSERT_LINE_DET_FACTORS';
1706: BEGIN
1707: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
1708: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||':'||l_api_name||'()+');
1709: END IF;
1710:
1711: -- Set the return status to Success
1712: x_return_status := FND_API.G_RET_STS_SUCCESS;
2317: 'COPY_AND_CREATE',
2318: 'RECORD_WITH_NO_TAX');
2319:
2320: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2322: G_PKG_NAME||':'||l_api_name||'(). Records Inserted = ' || SQL%ROWCOUNT);
2323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2324: G_PKG_NAME||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
2325: END IF;
2319:
2320: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2321: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2322: G_PKG_NAME||':'||l_api_name||'(). Records Inserted = ' || SQL%ROWCOUNT);
2323: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
2324: G_PKG_NAME||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
2325: END IF;
2326:
2327: EXCEPTION
2327: EXCEPTION
2328: WHEN OTHERS THEN
2329: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2330: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
2331: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
2332: END IF;
2333: END db_insert_line_det_factors;
2334:
2335: -----------------------------------------------------------------------
2363: l_return_status VARCHAR2(1);
2364:
2365: BEGIN
2366: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||':'||l_api_name||'()+');
2368: END IF;
2369:
2370: /*Set the return status to Success */
2371: x_return_status := FND_API.G_RET_STS_SUCCESS;
2388: );
2389: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2390: x_return_status := l_return_status ;
2391: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2392: 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');
2393: END IF;
2394: RETURN;
2395: END IF;
2396: END IF;
2996: 'UNAPPLY_FROM');
2997: END IF;
2998:
2999: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING(G_LEVEL_STATEMENT,
3001: G_MODULE_NAME||l_api_name||'.END',
3002: G_PKG_NAME ||':'||l_api_name||'(). Records Updated = ' || SQL%ROWCOUNT);
3003: FND_LOG.STRING(G_LEVEL_STATEMENT,
3004: G_MODULE_NAME||l_api_name||'.END',
2999: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING(G_LEVEL_STATEMENT,
3001: G_MODULE_NAME||l_api_name||'.END',
3002: G_PKG_NAME ||':'||l_api_name||'(). Records Updated = ' || SQL%ROWCOUNT);
3003: FND_LOG.STRING(G_LEVEL_STATEMENT,
3004: G_MODULE_NAME||l_api_name||'.END',
3005: G_PKG_NAME ||':'||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
3006:
3007: END IF;
3009: EXCEPTION
3010: WHEN OTHERS THEN
3011: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3012: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3013: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3014: END IF;
3015: END db_update_line_det_factors;
3016:
3017: -----------------------------------------------------------------------
3036: l_context_info_rec ZX_API_PUB.context_info_rec_type;
3037:
3038: BEGIN
3039: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3040: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3041: END IF;
3042:
3043: /*Set the return status to Success */
3044: x_return_status := FND_API.G_RET_STS_SUCCESS;
3650: END;
3651: p_ptnr_tax_lines_insert := SQL%ROWCOUNT; -- Bug 5332192
3652:
3653: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3654: FND_LOG.STRING(G_LEVEL_STATEMENT,
3655: G_MODULE_NAME||l_api_name||'.END',
3656: G_PKG_NAME ||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
3657: END IF;
3658:
3659: EXCEPTION
3660: WHEN OTHERS THEN
3661: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3662: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
3663: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
3664: END IF;
3665: END insert_detail_tax_lines_gt;
3666:
3667: -----------------------------------------------------------------------
3989: AND trx_id = p_event_class_rec.trx_id
3990: AND line_level_action <> 'DELETE';
3991:
3992: BEGIN
3993: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3995: END IF;
3996:
3997: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3990: AND line_level_action <> 'DELETE';
3991:
3992: BEGIN
3993: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3994: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3995: END IF;
3996:
3997: x_return_status := FND_API.G_RET_STS_SUCCESS ;
3998:
4304:
4305: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4306: x_return_status := l_return_status ;
4307: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4308: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'LTE calculate tax returned errors');
4309: END IF;
4310: IF fetch_det_factors_for_lte%ISOPEN THEN CLOSE fetch_det_factors_for_lte; END IF;
4311: RETURN;
4312: END IF;
4315: END LOOP;
4316: CLOSE fetch_det_factors_for_lte;
4317:
4318: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4319: FND_LOG.STRING(G_LEVEL_STATEMENT,
4320: G_MODULE_NAME||l_api_name||'.END',
4321: G_PKG_NAME ||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
4322: END IF;
4323:
4325: WHEN OTHERS THEN
4326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4327: IF fetch_det_factors_for_lte%ISOPEN THEN CLOSE fetch_det_factors_for_lte; END IF;
4328: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4329: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4330: END IF;
4331: END call_lte;
4332:
4333: -----------------------------------------------------------------------
4352: l_context_info_rec ZX_API_PUB.context_info_rec_type;
4353:
4354: BEGIN
4355: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4356: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4357: END IF;
4358:
4359: x_return_status := FND_API.G_RET_STS_SUCCESS ;
4360:
4372: FOR UPDATE NOWAIT;
4373: END IF;
4374:
4375: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4376: FND_LOG.STRING(G_LEVEL_STATEMENT,
4377: G_MODULE_NAME||l_api_name||'.END',
4378: G_PKG_NAME ||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
4379: END IF;
4380:
4394: l_context_info_rec.TRX_LINE_ID := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
4395: l_context_info_rec.TRX_LEVEL_TYPE := zx_global_structures_pkg.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
4396: ZX_API_PUB.add_msg( p_context_info_rec => l_context_info_rec );
4397: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
4398: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
4399: END IF;
4400: ELSE
4401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4402: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4399: END IF;
4400: ELSE
4401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4402: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4403: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4404: END IF;
4405: END IF;
4406: END lock_line_det_facts;
4407:
4423: l_api_name CONSTANT VARCHAR2(30):= 'populate_ptnr_tax_regime_tbl';
4424:
4425: BEGIN
4426: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4427: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
4428: END IF;
4429:
4430: l_ptnr_index := NVL(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST, 0) + 1;
4431: ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_ptnr_index).application_id
4489: END LOOP;
4490: -- end 5711466
4491:
4492: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4493: FND_LOG.STRING(G_LEVEL_STATEMENT,
4494: G_MODULE_NAME||l_api_name,
4495: 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);
4496: END IF;
4497:
4495: 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);
4496: END IF;
4497:
4498: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4499: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
4500: END IF;
4501:
4502: EXCEPTION
4503: WHEN OTHERS THEN
4502: EXCEPTION
4503: WHEN OTHERS THEN
4504: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4505: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4506: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4507: END IF;
4508: END populate_ptnr_tax_regime_tbl;
4509:
4510: -----------------------------------------------------------------------
4527: l_api_name CONSTANT VARCHAR2(30):= 'FETCH_PTNR_TAX_REGIME_TBL';
4528:
4529: BEGIN
4530: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4531: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
4532: END IF;
4533:
4534: x_event_class_rec.application_id := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(p_trx_id_index).application_id;
4535: x_event_class_rec.event_class_code := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(p_trx_id_index).event_class_code;
4566: x_return_status
4567: );
4568:
4569: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4570: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
4571: 'application_id: '||to_char(x_event_class_rec.application_id)||
4572: ', entity_code: '||x_event_class_rec.entity_code||
4573: ', event_class_code: '||x_event_class_rec.event_class_code||
4574: ', event_type_code: '||x_event_class_rec.event_type_code||
4585: ', icx_session_id: '||to_char(x_event_class_rec.icx_session_id));
4586: END IF;
4587:
4588: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4589: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
4590: END IF;
4591:
4592: EXCEPTION
4593: WHEN OTHERS THEN
4592: EXCEPTION
4593: WHEN OTHERS THEN
4594: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4595: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4596: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4597: END IF;
4598: END fetch_ptnr_tax_regime_tbl;
4599:
4600: -----------------------------------------------------------------------
4759: l_api_name CONSTANT VARCHAR2(30):= 'INITIALISE_PARTNER_TABLES';
4760:
4761: BEGIN
4762: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4763: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4764: END IF;
4765:
4766: DELETE from ZX_TRX_PRE_PROC_OPTIONS_GT;
4767: DELETE from ZX_PRVDR_HDR_EXTNS_GT;
4770:
4771: delete_ptnr_location_tbl;
4772:
4773: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4774: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
4775: END IF;
4776:
4777: EXCEPTION
4778: WHEN OTHERS THEN
4777: EXCEPTION
4778: WHEN OTHERS THEN
4779: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4780: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
4781: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4782: END IF;
4783: END initialise_partner_tables;
4784:
4785: -----------------------------------------------------------------------
4956: l_api_name CONSTANT VARCHAR2(30) := 'GET_ADDRESS_ELEMENTS';
4957: l_add_idx VARCHAR2(100);
4958: BEGIN
4959: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4960: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
4961: END IF;
4962:
4963: x_return_status := FND_API.G_RET_STS_SUCCESS;
4964: l_add_idx := p_table||to_char(p_location_id);
4965:
4966: IF l_add_idx is NOT NULL THEN
4967: IF (NOT(l_ptnr_addr_tbl.EXISTS(l_add_idx))) THEN
4968: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4969: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Caching from database for '||l_add_idx);
4970: END IF;
4971: IF p_table = 'HR_LOCATIONS_ALL' THEN
4972: SELECT address_line_1, address_line_2, address_line_3, NULL
4973: INTO l_ptnr_addr_tbl(l_add_idx).address1,
4998: x_address2 := l_ptnr_addr_tbl(l_add_idx).address2;
4999: x_address3 := l_ptnr_addr_tbl(l_add_idx).address3;
5000: x_address4 := l_ptnr_addr_tbl(l_add_idx).address4;
5001: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5002: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5003: 'Address1: '||l_ptnr_addr_tbl(l_add_idx).address1||
5004: ', Address2: '||l_ptnr_addr_tbl(l_add_idx).address2||
5005: ', Address3: '||l_ptnr_addr_tbl(l_add_idx).address3||
5006: ', Address4: '||l_ptnr_addr_tbl(l_add_idx).address4||' for key: '||to_char(l_add_idx));
5007: END IF;
5008: END IF;
5009:
5010: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5011: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5012: END IF;
5013:
5014: EXCEPTION
5015: WHEN OTHERS THEN
5014: EXCEPTION
5015: WHEN OTHERS THEN
5016: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5017: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5018: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5019: END IF;
5020: END get_address_elements;
5021:
5022:
5058: l_bill_third_pty_acct_id ZX_LINES_DET_FACTORS.BILL_THIRD_PTY_ACCT_ID%type;
5059: l_party_index VARCHAR2(100);
5060: BEGIN
5061: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5062: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5063: END IF;
5064:
5065: x_return_status := FND_API.G_RET_STS_SUCCESS;
5066:
5124: In this case, SHIP_THIRD_PTY_ACCT_ID holds value of VENDOR_ID.
5125:
5126: */
5127: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5128: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5129: 'l_ship_from_ptp_id = '||l_ship_from_ptp_id||
5130: ', l_ship_third_pty_acct_id = '||l_ship_third_pty_acct_id);
5131: END IF;
5132:
5174: END IF;
5175: END IF;
5176:
5177: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5178: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5179: 'l_bill_from_ptp_id = '||l_bill_from_ptp_id||
5180: ', l_bill_third_pty_acct_id = '||l_bill_third_pty_acct_id);
5181: END IF;
5182:
5224: END IF;
5225: END IF;
5226:
5227: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5228: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5229: 'l_ship_to_ptp_id = '||l_ship_to_ptp_id||
5230: ', l_ship_third_pty_acct_id = '||l_ship_third_pty_acct_id);
5231: END IF;
5232:
5274: END IF;
5275: END IF;
5276:
5277: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5279: 'l_bill_to_ptp_id = '||l_bill_to_ptp_id||
5280: ', l_bill_third_pty_acct_id = '||l_bill_third_pty_acct_id);
5281: END IF;
5282:
5324: END IF;
5325: END IF;
5326:
5327: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5328: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5329: END IF;
5330:
5331: EXCEPTION
5332: WHEN OTHERS THEN
5331: EXCEPTION
5332: WHEN OTHERS THEN
5333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5334: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5335: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5336: END IF;
5337: END populate_parties;
5338:
5339: -----------------------------------------------------------------------
5357: l_api_name CONSTANT VARCHAR2(30) := 'POPULATE_PTNR_LOC_TBL';
5358: l_return_status VARCHAR2(1);
5359: BEGIN
5360: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5361: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5362: END IF;
5363:
5364: x_return_status := FND_API.G_RET_STS_SUCCESS;
5365:
5557: END IF;
5558: END IF;
5559:
5560: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5561: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5562: END IF;
5563:
5564: EXCEPTION
5565: WHEN OTHERS THEN
5564: EXCEPTION
5565: WHEN OTHERS THEN
5566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5567: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5568: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5569: END IF;
5570: END POPULATE_PTNR_LOC_TBL;
5571:
5572: -----------------------------------------------------------------------
5594: l_api_name CONSTANT VARCHAR2(30):= 'PREPARE_FOR_LOC_CACHING';
5595:
5596: BEGIN
5597: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5598: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
5599: END IF;
5600:
5601: IF nvl(zx_global_structures_pkg.g_ptnr_srvc_subscr_flag,'N') = 'Y' THEN
5602: i := 1;
5699: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
5700: END IF;
5701:
5702: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5703: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5704: ' RETURN_STATUS = ' || x_return_status||', '||SQLERRM);
5705: END IF;
5706: RETURN;
5707: END IF;
5707: END IF;
5708: END IF;
5709:
5710: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5711: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
5712: END IF;
5713:
5714: EXCEPTION
5715: WHEN OTHERS THEN
5714: EXCEPTION
5715: WHEN OTHERS THEN
5716: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5717: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
5718: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
5719: END IF;
5720: END prepare_for_loc_caching;
5721:
5722: -----------------------------------------------------------------------
5763: l_api_name CONSTANT VARCHAR2(30) := 'PARTNER_LOCATION_POPULATION';
5764: l_trx_id_indx VARCHAR2(200);
5765: BEGIN
5766: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5767: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
5768: END IF;
5769:
5770: x_return_status := FND_API.G_RET_STS_SUCCESS;
5771: l_first := TRUE;
5784: IF nvl(zx_global_structures_pkg.g_ptnr_srvc_subscr_flag,'N') = 'Y' THEN
5785: l_ptnr_index := 0;
5786: initialise_partner_tables; -- Bug 5068716: Moved initialization of partner tables only if partner is involved.
5787: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5789: ' ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl-count = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.count);
5790: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5791: ' l_ptnr_loc_tbl-count = ' || l_ptnr_loc_tbl.trx_id.count);
5792: END IF;
5786: initialise_partner_tables; -- Bug 5068716: Moved initialization of partner tables only if partner is involved.
5787: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5788: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5789: ' ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl-count = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id.count);
5790: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5791: ' l_ptnr_loc_tbl-count = ' || l_ptnr_loc_tbl.trx_id.count);
5792: END IF;
5793:
5794: 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)
5794: 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)
5795: LOOP
5796: IF (ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.trx_id(i) = p_event_class_rec.trx_id) THEN
5797: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
5798: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
5799: ' location_info_tbl-EVENT_CLASS_MAPPING_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.EVENT_CLASS_MAPPING_ID(i)||
5800: ', TRX_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_ID(i)||
5801: ', TRX_LINE_ID = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_LINE_ID(i)||
5802: ', TRX_LEVEL_TYPE = ' || ZX_GLOBAL_STRUCTURES_PKG.location_info_tbl.TRX_LEVEL_TYPE(i)||
6516: l_ptnr_loc_tbl.BILL_FROM_PARTY_NUMBER(i)
6517: );
6518: END IF; -- Bug 5068716
6519: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6520: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
6521: END IF;
6522:
6523: EXCEPTION
6524: WHEN OTHERS THEN
6523: EXCEPTION
6524: WHEN OTHERS THEN
6525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6526: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6527: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6528: END IF;
6529: END PARTNER_LOCATION_POPULATION;
6530:
6531: -----------------------------------------------------------------------
6576: ptnr_del_lines c_regimes_for_del_item_lines%ROWTYPE;
6577:
6578: BEGIN
6579: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6580: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
6581: END IF;
6582:
6583: x_return_status := FND_API.G_RET_STS_SUCCESS;
6584:
6592:
6593: FOR ptnr_del_lines IN c_regimes_for_del_item_lines(p_event_class_rec)
6594: LOOP
6595: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6597: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
6598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6599: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
6600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6594: LOOP
6595: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6597: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
6598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6599: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
6600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6601: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
6602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6596: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6597: 'ptnr_del_lines.event_class_mapping_id = ' || ptnr_del_lines.event_class_mapping_id);
6598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6599: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
6600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6601: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
6602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6603: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
6604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6598: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6599: 'ptnr_del_lines.trx_id = ' || ptnr_del_lines.trx_id);
6600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6601: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
6602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6603: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
6604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6605: 'ptnr_del_lines.tax_regime_id = ' || ptnr_del_lines.tax_regime_id);
6606: END IF;
6600: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6601: 'ptnr_del_lines.trx_line_id = ' || ptnr_del_lines.trx_line_id);
6602: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6603: 'ptnr_del_lines.trx_level_type = ' || ptnr_del_lines.trx_level_type);
6604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6605: 'ptnr_del_lines.tax_regime_id = ' || ptnr_del_lines.tax_regime_id);
6606: END IF;
6607:
6608: IF NOT ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.EXISTS(ptnr_del_lines.tax_regime_id) THEN
6644: WHEN OTHERS THEN
6645: l_record_exists := 'E';
6646: END;
6647: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6648: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6649: 'l_record_exists = ' || l_record_exists);
6650: END IF;
6651:
6652: END LOOP;
6651:
6652: END LOOP;
6653:
6654: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6655: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
6656: END IF;
6657:
6658: EXCEPTION
6659: WHEN OTHERS THEN
6658: EXCEPTION
6659: WHEN OTHERS THEN
6660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6661: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6662: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6663: END IF;
6664: END GET_REGIMES_FOR_DEL_ITEM_LINES;
6665:
6666: -----------------------------------------------------------------------
6714: ptnr_incl_lines ptnr_incl_lines_csr%ROWTYPE;
6715:
6716: BEGIN
6717: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6718: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6719: END IF;
6720:
6721: x_return_status := FND_API.G_RET_STS_SUCCESS;
6722:
6760:
6761: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6762: x_return_status := l_return_status;
6763: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6764: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6765: ' RETURN_STATUS = ' || x_return_status);
6766: END IF;
6767: RETURN;
6768: END IF;
6777: );
6778: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6779: x_return_status := l_return_status;
6780: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6781: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6782: ' RETURN_STATUS = ' || x_return_status);
6783: END IF;
6784: RETURN;
6785: END IF;
6793:
6794: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6795: x_return_status := l_return_status;
6796: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6797: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6798: ' RETURN_STATUS = ' || x_return_status);
6799: END IF;
6800: RETURN;
6801: END IF;
6830:
6831: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6832: x_return_status := l_return_status;
6833: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6834: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6835: ' RETURN_STATUS = ' || x_return_status);
6836: END IF;
6837: RETURN;
6838: END IF;
6846:
6847: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6848: x_return_status := l_return_status;
6849: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6850: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
6851: ' RETURN_STATUS = ' || x_return_status);
6852: END IF;
6853: RETURN;
6854: END IF;
6857: END LOOP;
6858: END IF; --recording
6859:
6860: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6861: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
6862: G_PKG_NAME ||': '||l_api_name||'()-'||
6863: ', RETURN_STATUS = ' || x_return_status);
6864: END IF;
6865:
6866: EXCEPTION
6867: WHEN OTHERS THEN
6868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6869: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
6870: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
6871: END IF;
6872: END partner_inclusive_tax_override;
6873: /***********************PARTNER CODE END***************************/
6874:
6905: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
6906:
6907: BEGIN
6908: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
6909: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
6910: END IF;
6911:
6912: x_return_status := FND_API.G_RET_STS_SUCCESS;
6913:
7022:
7023: END IF;
7024:
7025: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7026: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
7027: G_PKG_NAME||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
7028: END IF;
7029:
7030: EXCEPTION
7030: EXCEPTION
7031: WHEN OTHERS THEN
7032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7033: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7034: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7035: END IF;
7036: END derive_poo_parameters;
7037:
7038: -----------------------------------------------------------------------
7061: -- l_context_info_rec ZX_API_PUB.context_info_rec_type;
7062:
7063: BEGIN
7064: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7065: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7066: END IF;
7067:
7068: x_return_status := FND_API.G_RET_STS_SUCCESS;
7069:
7075: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.INTERNAL_ORG_LOCATION_ID(p_trx_line_index);
7076: END IF;
7077:
7078: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7079: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
7080: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
7081: END IF;
7082:
7083: EXCEPTION
7083: EXCEPTION
7084: WHEN OTHERS THEN
7085: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7086: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7087: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7088: END IF;
7089: END derive_poa_parameters;
7090: /* Bug 5013598 */
7091:
7114: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7115:
7116: BEGIN
7117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7119: END IF;
7120:
7121: x_return_status := FND_API.G_RET_STS_SUCCESS;
7122:
7151: );
7152:
7153: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7154: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7155: 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 : '||
7156: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_to_party_id(p_trx_line_index)));
7157: END IF;
7158: RAISE FND_API.G_EXC_ERROR;
7159: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7178: );
7179:
7180: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7181: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7182: 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 : '||
7183: to_char(zx_global_structures_pkg.trx_line_dist_tbl.legal_entity_id(p_trx_line_index)));
7184: END IF;
7185: RAISE FND_API.G_EXC_ERROR;
7186: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7209: );
7210:
7211: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7212: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7213: 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: '||
7214: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_from_party_id(p_trx_line_index)));
7215: END IF;
7216: RAISE FND_API.G_EXC_ERROR;
7217: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7235: );
7236: /* Bug 5013598 */
7237: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_id(p_trx_line_index) is NOT NULL THEN
7238: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7239: 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)));
7240: END IF;
7241:
7242: /* -- bug 5077171 don't derive PTP_ID for POO and POA Parties
7243: l_partytype := ZX_VALID_INIT_PARAMS_PKG.source_rec.poa_party_type;
7250: );
7251:
7252: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7253: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7254: 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: '||
7255: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poa_party_id(p_trx_line_index)));
7256: END IF;
7257: RAISE FND_API.G_EXC_ERROR;
7258: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7275: );
7276: /* Bug 5013598 */
7277: IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_party_id(p_trx_line_index) is NOT NULL THEN
7278: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7279: 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)));
7280: END IF;
7281:
7282: /* -- bug 5077171 don't derive PTP_ID for POO and POA Parties
7283: l_partytype := zx_valid_init_params_pkg.source_rec.poo_party_type;
7290: );
7291:
7292: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7293: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7294: 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: '||
7295: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poo_party_id(p_trx_line_index)));
7296: END IF;
7297: RAISE FND_API.G_EXC_ERROR;
7298: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7324: );
7325:
7326: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7327: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7328: 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: '||
7329: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_to_party_id(p_trx_line_index)));
7330: END IF;
7331: RAISE FND_API.G_EXC_ERROR;
7332: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7359: );
7360:
7361: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7362: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7363: 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: '||
7364: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_from_party_id(p_trx_line_index)));
7365: END IF;
7366: RAISE FND_API.G_EXC_ERROR;
7367: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7394: );
7395:
7396: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7397: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7398: 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: '||
7399: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_to_party_site_id(p_trx_line_index)));
7400: END IF;
7401: RAISE FND_API.G_EXC_ERROR;
7402: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7429: );
7430:
7431: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7432: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7433: 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: '||
7434: to_char(zx_global_structures_pkg.trx_line_dist_tbl.ship_from_party_site_id(p_trx_line_index)));
7435: END IF;
7436: RAISE FND_API.G_EXC_ERROR;
7437: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7460: );
7461:
7462: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7463: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7464: 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: '||
7465: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poa_party_site_id(p_trx_line_index)));
7466: END IF;
7467: RAISE FND_API.G_EXC_ERROR;
7468: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7488: );
7489:
7490: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7491: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7492: 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: '||
7493: to_char(zx_global_structures_pkg.trx_line_dist_tbl.poo_party_site_id(p_trx_line_index)));
7494: END IF;
7495: RAISE FND_API.G_EXC_ERROR;
7496: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7520: );
7521:
7522: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7523: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7524: 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: '||
7525: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_to_party_site_id(p_trx_line_index)));
7526: END IF;
7527: RAISE FND_API.G_EXC_ERROR;
7528: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7555: );
7556:
7557: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
7558: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7559: 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: '||
7560: to_char(zx_global_structures_pkg.trx_line_dist_tbl.bill_from_party_site_id(p_trx_line_index)));
7561: END IF;
7562: RAISE FND_API.G_EXC_ERROR;
7563: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7639: WHERE inventory_item_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_id(p_trx_line_index)
7640: AND organization_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_org_id(p_trx_line_index);
7641: EXCEPTION WHEN OTHERS THEN
7642: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7643: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Error: Unable to get the product code for inventory_item_id: '||
7644: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.product_id(p_trx_line_index));
7645: END IF;
7646: RAISE FND_API.G_EXC_ERROR;
7647: END;
7646: RAISE FND_API.G_EXC_ERROR;
7647: END;
7648: END IF;
7649: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7650: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||', RETURN_STATUS = ' || x_return_status);
7651: END IF;
7652:
7653: EXCEPTION
7654: WHEN FND_API.G_EXC_ERROR THEN
7662: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
7663: WHEN OTHERS THEN
7664: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7665: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
7666: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
7667: END IF;
7668: END derive_internal_parameters;
7669:
7670: -----------------------------------------------------------------------
7695: l_context_info_rec ZX_API_PUB.context_info_rec_type;
7696: l_call_default_APIs BOOLEAN;
7697: i NUMBER;
7698: BEGIN
7699: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7700: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7701: END IF;
7702:
7703: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7696: l_call_default_APIs BOOLEAN;
7697: i NUMBER;
7698: BEGIN
7699: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
7700: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
7701: END IF;
7702:
7703: x_return_status := FND_API.G_RET_STS_SUCCESS ;
7704:
7723:
7724: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7725: x_return_status := l_return_status;
7726: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7727: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7728: ' RETURN_STATUS = ' || x_return_status);
7729: END IF;
7730: RETURN;
7731: END IF;
7749:
7750: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7751: x_return_status := l_return_status;
7752: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7753: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7754: ' RETURN_STATUS = ' || x_return_status);
7755: END IF;
7756: RETURN;
7757: END IF;
7776:
7777: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7778: x_return_status := l_return_status;
7779: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7780: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7781: ' RETURN_STATUS = ' || x_return_status);
7782: END IF;
7783: RETURN;
7784: END IF;
7793:
7794: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
7795: x_return_status := l_return_status;
7796: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7797: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7798: ' RETURN_STATUS = ' || x_return_status);
7799: END IF;
7800: RETURN;
7801: END IF;
7802: END IF;
7803:
7804: BEGIN
7805: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7806: 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))||
7807: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index)||
7808: ', 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)||
7809: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(p_trx_line_index))||
7810: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index))||
7851: ', LINE_CLASS: '|| zx_global_structures_pkg.trx_line_dist_tbl.LINE_CLASS(p_trx_line_index)||
7852: ', TRX_SIC_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_SIC_CODE(p_trx_line_index));
7853: END IF;
7854: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7855: 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)||
7856: ', SHIP_TO_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_LOCATION_ID(p_trx_line_index))||
7857: ', SHIP_FROM_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_LOCATION_ID(p_trx_line_index))||
7858: ', POA_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POA_LOCATION_ID(p_trx_line_index))||
7859: ', POO_LOCATION_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POO_LOCATION_ID(p_trx_line_index))||
7899: ', TRX_ID_LEVEL6: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID_LEVEL6(p_trx_line_index))||
7900: ', TRX_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_NUMBER(p_trx_line_index));
7901: END IF;
7902: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7903: 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)||
7904: ', TRX_LINE_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_NUMBER(p_trx_line_index)||
7905: ', TRX_LINE_DESCRIPTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_DESCRIPTION(p_trx_line_index)||
7906: ', PRODUCT_DESCRIPTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.PRODUCT_DESCRIPTION(p_trx_line_index)||
7907: ', TRX_WAYBILL_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.TRX_WAYBILL_NUMBER(p_trx_line_index)||
7948: --', CHAR4: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR4(p_trx_line_index)
7949: );
7950: END IF;
7951: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7952: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
7953: -- 'CHAR1: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR1(p_trx_line_index)||
7954: --', CHAR2: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR2(p_trx_line_index)||
7955: --', CHAR3: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR3(p_trx_line_index)||
7956: --', CHAR4: '|| zx_global_structures_pkg.trx_line_dist_tbl.CHAR4(p_trx_line_index)||
8007: ', 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))||
8008: ', MERCHANT_PARTY_TAX_PROF_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_TAX_PROF_ID(p_trx_line_index)));
8009: END IF;
8010: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8011: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8012: 'DOCUMENT_SUB_TYPE: '|| zx_global_structures_pkg.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index)||
8013: ', SUPPLIER_TAX_INVOICE_NUMBER: '|| zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_NUMBER(p_trx_line_index)||
8014: ', SUPPLIER_TAX_INVOICE_DATE: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_TAX_INVOICE_DATE(p_trx_line_index))||
8015: ', SUPPLIER_EXCHANGE_RATE: '|| zx_global_structures_pkg.trx_line_dist_tbl.SUPPLIER_EXCHANGE_RATE(p_trx_line_index)||
8095:
8096: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8097: x_return_status := l_return_status;
8098: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8099: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8100: ' RETURN_STATUS = ' || x_return_status);
8101: END IF;
8102: RETURN;
8103: END IF;
8114:
8115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8116: x_return_status := l_return_status;
8117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8118: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8119: ' RETURN_STATUS = ' || x_return_status);
8120: END IF;
8121: END IF;
8122:
8131:
8132: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8133: x_return_status := l_return_status;
8134: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8135: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8136: ' RETURN_STATUS = ' || x_return_status);
8137: END IF;
8138: END IF;
8139: END IF; --zx_global_structures_pkg.g_ptnr_srvc_subscr_flag
8161:
8162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8163: x_return_status := l_return_status;
8164: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8165: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8166: ' RETURN_STATUS = ' || x_return_status);
8167: END IF;
8168: RETURN;
8169: END IF;
8170: --Set the tax processing completed flag to indicate that line has been processed for tax
8171: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_processing_completed_flag(p_trx_line_index) := 'Y';
8172:
8173: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8174: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
8175: END IF;
8176:
8177: EXCEPTION
8178: WHEN OTHERS THEN
8177: EXCEPTION
8178: WHEN OTHERS THEN
8179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8180: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8181: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8182: END IF;
8183: END calculate_tax_pvt;
8184:
8185: -----------------------------------------------------------------------
8206: l_negative_index NUMBER;
8207: l_return_status VARCHAR2(1);
8208:
8209: BEGIN
8210: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8211: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
8212: END IF;
8213:
8214: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8207: l_return_status VARCHAR2(1);
8208:
8209: BEGIN
8210: IF ( G_LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8211: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
8212: END IF;
8213:
8214: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8215: l_negative_index := -99; --set the negative index to store regimes served by old provider
8240: AND trx_id = p_event_class_rec.trx_id
8241: AND rownum = 1;
8242: EXCEPTION WHEN OTHERS THEN --Bug fix 5094078
8243: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8244: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8245: ' No row found in zx_lines_det_factors for UPDATE event type' );
8246: END IF;
8247: END;
8248:
8331: ELSE --partner_migrated_flag
8332: null;
8333: END IF;
8334: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8335: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8336: ' Checking Deleted Item Lines ');
8337: END IF;
8338: BEGIN
8339: SELECT 'Y'
8349: WHEN OTHERS THEN
8350: l_deleted_line_exists := 'N';
8351: END;
8352: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8353: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8354: ' line_level_action DELETE = ' || l_deleted_line_exists);
8355: END IF;
8356:
8357: END IF; -- Tax event type is UPDATE
8361:
8362: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8363: x_return_status := l_return_status;
8364: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8365: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8366: ' RETURN_STATUS = ' || x_return_status);
8367: END IF;
8368: RETURN;
8369: END IF;
8374: x_return_status => l_return_status);
8375: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8376: x_return_status := l_return_status;
8377: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8378: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8379: ' RETURN_STATUS = ' || x_return_status);
8380: END IF;
8381: RETURN;
8382: END IF;
8392: (ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'S' OR
8393: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'C' OR
8394: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag = 'F') THEN
8395: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8396: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,'Call pre-processing before sending to partner');
8397: END IF;
8398:
8399: ZX_TPI_SERVICES_PKG.partner_pre_processing(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_id,
8400: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
8405: );
8406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8407: x_return_status := l_return_status;
8408: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8409: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8410: ' RETURN_STATUS = ' || x_return_status);
8411: END IF;
8412: RETURN;
8413: END IF;
8422:
8423: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8424: x_return_status := l_return_status;
8425: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8426: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8427: ' RETURN_STATUS = ' || x_return_status);
8428: END IF;
8429: RETURN;
8430: END IF;
8438:
8439: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8440: x_return_status := l_return_status;
8441: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8442: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8443: ' RETURN_STATUS = ' || x_return_status);
8444: END IF;
8445: RETURN;
8446: END IF;
8464:
8465: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8466: x_return_status := l_return_status;
8467: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8468: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8469: ' RETURN_STATUS = ' || x_return_status);
8470: END IF;
8471: RETURN;
8472: END IF;
8484:
8485: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8486: x_return_status := l_return_status;
8487: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8488: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8489: ' RETURN_STATUS = ' || x_return_status);
8490: END IF;
8491: RETURN;
8492: END IF;
8505:
8506: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8507: x_return_status := l_return_status;
8508: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8509: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8510: ' RETURN_STATUS = ' || x_return_status);
8511: END IF;
8512: RETURN;
8513: END IF;
8529:
8530: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8531: x_return_status := l_return_status;
8532: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8533: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8534: ' RETURN_STATUS = ' || x_return_status);
8535: END IF;
8536: RETURN;
8537: END IF;
8546:
8547: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8548: x_return_status := l_return_status;
8549: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8550: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8551: ' RETURN_STATUS = ' || x_return_status);
8552: END IF;
8553: RETURN;
8554: END IF;
8560: END LOOP;
8561:
8562: --END IF;/*Commented condition, because for sales order both the flags would be 'N'*/
8563: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8564: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'(-)');
8565: END IF;
8566:
8567: EXCEPTION
8568: WHEN OTHERS THEN
8567: EXCEPTION
8568: WHEN OTHERS THEN
8569: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8570: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
8571: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
8572: END IF;
8573: END ptnr_calculate_tax_pvt;
8574:
8575: /* =============================================================*
8583: l_event_class_rec zx_api_pub.event_class_rec_type;
8584: l_api_name CONSTANT VARCHAR2(30) := 'PTNR_BULK_CALC_TAX_PVT';
8585: BEGIN
8586: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8587: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
8588: END IF;
8589:
8590: x_return_status := FND_API.G_RET_STS_SUCCESS;
8591:
8610: x_return_status => l_return_status
8611: );
8612: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8613: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8614: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,G_PKG_NAME||': ptnr_calculate_tax_pvt returned errors');
8615: END IF;
8616: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
8617: delete_from_lines_det_gt(p_event_class_rec => l_event_class_rec ,
8618: x_return_status => l_return_status);
8630: --Commented by ssohal : Call API to dump into zx_errors_gt
8631: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
8632: --ZX_API_PUB.dump_msg;
8633: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
8634: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
8635: END IF;
8636: END; -- End of Bug fix 5524869
8637:
8638: END LOOP;
8637:
8638: END LOOP;
8639:
8640: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8641: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
8642: END IF;
8643:
8644: EXCEPTION
8645:
8646: WHEN OTHERS THEN
8647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8648:
8649: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8650: FND_LOG.STRING(g_level_unexpected,
8651: G_MODULE_NAME||l_api_name,
8652: 'Error: '|| SUBSTR(SQLERRM, 1, 80)
8653: );
8654: END IF;
8662: ) IS
8663: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_FROM_LINES_DET_GT';
8664: BEGIN
8665: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8666: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'(+)');
8667: END IF;
8668: x_return_status := FND_API.G_RET_STS_SUCCESS;
8669:
8670: delete from zx_lines_det_factors
8691: AND event_class_code = p_event_class_rec.event_class_code
8692: AND trx_id = p_event_class_rec.trx_id;
8693:
8694: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
8695: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME || ': ' || l_api_name||'(-)');
8696: END IF;
8697: EXCEPTION
8698:
8699: WHEN OTHERS THEN
8699: WHEN OTHERS THEN
8700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8701:
8702: IF (g_level_unexpected >= g_current_runtime_level ) THEN
8703: FND_LOG.STRING(g_level_unexpected,
8704: G_MODULE_NAME||l_api_name,
8705: 'Error: '|| SUBSTR(SQLERRM, 1, 80)
8706: );
8707: END IF;
8750: -- bug fix 5417887 end
8751: l_no_of_trx NUMBER;
8752:
8753: BEGIN
8754: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8755: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8756: END IF;
8757: --Initialise local variables
8758: l_lines_passed := 1;
8751: l_no_of_trx NUMBER;
8752:
8753: BEGIN
8754: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
8755: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
8756: END IF;
8757: --Initialise local variables
8758: l_lines_passed := 1;
8759: l_update_index := 0; --store index upto which records need to updated
8775: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
8776: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
8777: END IF;
8778: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8779: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8780: ' RETURN_STATUS = ' || x_return_status);
8781: END IF;
8782: RETURN;
8783: END IF;
8834:
8835: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8836: x_return_status := l_return_status;
8837: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8838: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8839: ' RETURN_STATUS = ' || x_return_status);
8840: END IF;
8841: RETURN;
8842: END IF;
8848:
8849: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8850: x_return_status := l_return_status;
8851: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8852: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8853: ' RETURN_STATUS = ' || x_return_status);
8854: END IF;
8855: RETURN;
8856: END IF;
8875:
8876: IF l_no_of_trx = 0 THEN
8877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8878: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
8879: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
8880: 'No record found in Headers GT Table.');
8881: END IF;
8882: RETURN;
8883: END IF;
9417:
9418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9419: x_return_status := l_return_status;
9420: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9421: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9422: ' RETURN_STATUS = ' || x_return_status);
9423: END IF;
9424: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9425: RAISE FND_API.G_EXC_ERROR;
9437: );
9438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9439: x_return_status := l_return_status;
9440: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9441: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9442: ' RETURN_STATUS = ' || x_return_status);
9443: END IF;
9444: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9445: RAISE FND_API.G_EXC_ERROR;
9457: );
9458: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9459: x_return_status := l_return_status;
9460: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9461: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9462: ' RETURN_STATUS = ' || x_return_status);
9463: END IF;
9464: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9465: RAISE FND_API.G_EXC_ERROR;
9480:
9481: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9482: x_return_status := l_return_status;
9483: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9484: 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');
9485: END IF;
9486: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9487: RAISE FND_API.G_EXC_ERROR;
9488: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9503:
9504: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9505: x_return_status := l_return_status;
9506: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9507: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9508: ' RETURN_STATUS = ' || x_return_status);
9509: END IF;
9510: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9511: RAISE FND_API.G_EXC_ERROR;
9521:
9522: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9523: x_return_status := l_return_status;
9524: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9525: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9526: ' RETURN_STATUS = ' || x_return_status);
9527: END IF;
9528: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9529: RAISE FND_API.G_EXC_ERROR;
9549:
9550: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9551: x_return_status := l_return_status;
9552: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9553: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9554: ' RETURN_STATUS = ' || x_return_status);
9555: END IF;
9556: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9557: RAISE FND_API.G_EXC_ERROR;
9574:
9575: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9576: x_return_status := l_return_status;
9577: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9578: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9579: ' RETURN_STATUS = ' || x_return_status);
9580: END IF;
9581: -- Raise exception depending upon return_status
9582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9597:
9598: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9599: x_return_status := l_return_status;
9600: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9601: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9602: ' RETURN_STATUS = ' || x_return_status);
9603: END IF;
9604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9605: END IF;
9610: WHEN FND_API.G_EXC_ERROR THEN
9611: ROLLBACK TO Calculate_Tax;
9612: l_flag := FALSE;
9613: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
9614: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
9615: END IF;
9616:
9617: -- Handling single trx and multiple trxs processing
9618: IF l_no_of_trx IS NULL then
9623:
9624: IF l_no_of_trx = 0 THEN
9625: -- Return
9626: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9627: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9628: 'No record found in Headers GT Table.');
9629: END IF;
9630: RETURN;
9631: ELSIF l_no_of_trx = 1 THEN
9675: );
9676: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9677: x_return_status := l_return_status;
9678: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9679: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9680: ' RETURN_STATUS = ' || x_return_status);
9681: END IF;
9682: RETURN;
9683: END IF;
9690: );
9691: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9692: x_return_status := l_return_status;
9693: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9694: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9695: ' RETURN_STATUS = ' || x_return_status);
9696: END IF;
9697: RETURN;
9698: END IF;
9705: );
9706: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9707: x_return_status := l_return_status;
9708: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9709: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9710: ' RETURN_STATUS = ' || x_return_status);
9711: END IF;
9712: RETURN;
9713: END IF;
9719: );
9720: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9721: x_return_status := l_return_status;
9722: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9723: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9724: ' RETURN_STATUS = ' || x_return_status);
9725: END IF;
9726: RETURN;
9727: END IF;
9756: );
9757: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9758: x_return_status := l_return_status;
9759: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9760: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9761: ' RETURN_STATUS = ' || x_return_status);
9762: END IF;
9763: RETURN;
9764: END IF;
9808:
9809: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9810: x_return_status := l_return_status;
9811: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
9812: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9813: ' RETURN_STATUS = ' || x_return_status);
9814: END IF;
9815: RETURN;
9816: END IF;
9840: AND event_class_code = p_event_class_rec.event_class_code
9841: AND trx_id = p_event_class_rec.trx_id
9842: AND tax_processing_completed_flag = 'N';
9843: END;
9844: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
9845: ' p_event_class_rec.application_id = '||p_event_class_rec.application_id
9846: || ' p_event_class_rec.entity_code = '||p_event_class_rec.entity_code
9847: || ' p_event_class_rec.event_class_code = '||p_event_class_rec.event_class_code
9848: || ' p_event_class_rec.trx_id = '||p_event_class_rec.trx_id
10166: );
10167: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10168: x_return_status := l_return_status;
10169: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10170: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10171: ' RETURN_STATUS = ' || x_return_status);
10172: END IF;
10173: RETURN;
10174: END IF;
10184: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10185: x_return_status := l_return_status;
10186: IF get_lines_det_factors%ISOPEN THEN CLOSE get_lines_det_factors; END IF;
10187: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10188: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10189: ' RETURN_STATUS = ' || x_return_status);
10190: END IF;
10191: RETURN;
10192: END IF;
10222: );
10223: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10224: x_return_status := l_return_status;
10225: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10226: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10227: ' RETURN_STATUS = ' || x_return_status);
10228: END IF;
10229: RETURN;
10230: END IF;
10238: );
10239: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10240: x_return_status := l_return_status;
10241: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10242: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10243: ' RETURN_STATUS = ' || x_return_status);
10244: END IF;
10245: RETURN;
10246: END IF;
10253: );
10254: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10255: x_return_status := l_return_status;
10256: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10257: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10258: ' RETURN_STATUS = ' || x_return_status);
10259: END IF;
10260: RETURN;
10261: END IF;
10267: );
10268: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10269: x_return_status := l_return_status;
10270: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10271: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10272: ' RETURN_STATUS = ' || x_return_status);
10273: END IF;
10274: RETURN;
10275: END IF;
10283: );
10284: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10285: x_return_status := l_return_status;
10286: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10287: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10288: ' RETURN_STATUS = ' || x_return_status);
10289: END IF;
10290: RETURN;
10291: END IF;
10300:
10301: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10302: x_return_status := l_return_status;
10303: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10305: ' RETURN_STATUS = ' || x_return_status);
10306: END IF;
10307: RETURN;
10308: END IF;
10325: WHERE rownum=1;
10326: EXCEPTION
10327: WHEN OTHERS THEN
10328: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10329: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10330: 'Not able to find event type code - No transaction lines passed');
10331: END IF;
10332:
10333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10372:
10373: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10374: x_return_status := l_return_status;
10375: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10376: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10377: ' RETURN_STATUS = ' || x_return_status);
10378: END IF;
10379: RAISE FND_API.G_EXC_ERROR;
10380: END IF;
10388: );
10389: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10390: x_return_status := l_return_status;
10391: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10392: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10393: ' RETURN_STATUS = ' || x_return_status);
10394: END IF;
10395: RAISE FND_API.G_EXC_ERROR;
10396: END IF;
10404: );
10405: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10406: x_return_status := l_return_status;
10407: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10408: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10409: ' RETURN_STATUS = ' || x_return_status);
10410: END IF;
10411: RAISE FND_API.G_EXC_ERROR;
10412: END IF;
10441: ELSE
10442:
10443:
10444: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10446: 'Tax Method is LTE. Calling LTE in a loop ');
10447: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10448: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl. Number of records: '||
10449: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST,0)) );
10443:
10444: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10445: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10446: 'Tax Method is LTE. Calling LTE in a loop ');
10447: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10448: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl. Number of records: '||
10449: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST,0)) );
10450: END IF;
10451:
10498: --Commented by ssohal : Call API to dump into zx_errors_gt
10499: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
10500: --ZX_API_PUB.dump_msg;
10501: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
10502: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
10503: END IF;
10504: END; -- End of Bug fix 5524869
10505:
10506: END LOOP;
10509:
10510: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10511: x_return_status := l_return_status;
10512: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10513: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10514: ' RETURN_STATUS = ' || x_return_status);
10515: END IF;
10516: RETURN;
10517: END IF;
10535: -- Added following code to check return status after partner call
10536: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10537: x_return_status := l_return_status;
10538: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10539: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
10540: ' RETURN_STATUS = ' || x_return_status);
10541: END IF;
10542: RETURN;
10543: END IF;
10543: END IF;
10544:
10545: /*******************************PARTNER CODE END ****************************/
10546:
10547: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10548: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
10549: END IF;
10550:
10551: EXCEPTION
10544:
10545: /*******************************PARTNER CODE END ****************************/
10546:
10547: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10548: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
10549: END IF;
10550:
10551: EXCEPTION
10552: WHEN OTHERS THEN
10553: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10554: IF lines%ISOPEN THEN CLOSE lines; END IF;
10555: IF get_lines_det_factors%ISOPEN THEN CLOSE get_lines_det_factors; END IF;
10556: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
10557: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
10558: END IF;
10559: END calculate_tax;
10560:
10561: -----------------------------------------------------------------------
10958: header.trx_date ASC,
10959: header.trx_id ASC;
10960: */
10961: BEGIN
10962: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10963: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
10964: END IF;
10965:
10966: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10959: header.trx_id ASC;
10960: */
10961: BEGIN
10962: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
10963: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
10964: END IF;
10965:
10966: x_return_status := FND_API.G_RET_STS_SUCCESS ;
10967:
10979: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
10980: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
10981: END IF;
10982: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
10983: 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');
10984: END IF;
10985: RETURN;
10986: END IF;
10987:
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,G_PKG_NAME||': '||l_api_name||':ZX_TDS_CALC_SERVICES_PUB_PKG.initialize returned errors');
11518: END IF;
11519: RAISE FND_API.G_EXC_ERROR;
11520: END IF;
11521:
11533:
11534: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11535: x_return_status := l_return_status;
11536: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11537: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11538: ' RETURN_STATUS = ' || x_return_status);
11539: END IF;
11540: RAISE FND_API.G_EXC_ERROR;
11541: END IF;
11568:
11569: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11570: x_return_status := l_return_status;
11571: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11572: 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');
11573: END IF;
11574: RAISE FND_API.G_EXC_ERROR;
11575: END IF;
11576: END IF;
11583:
11584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11585: x_return_status := l_return_status;
11586: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11587: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11588: ' RETURN_STATUS = ' || x_return_status);
11589: END IF;
11590: RAISE FND_API.G_EXC_ERROR;
11591: END IF;
11618:
11619: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11620: x_return_status := l_return_status;
11621: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11622: 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');
11623: END IF;
11624: RAISE FND_API.G_EXC_ERROR;
11625: END IF;
11626: END IF;
11650: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11651: x_return_status := l_return_status;
11652: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
11653: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11654: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11655: ' RETURN_STATUS = ' || x_return_status);
11656: END IF;
11657: RAISE FND_API.G_EXC_ERROR;
11658: END IF;
11668: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11669: x_return_status := l_return_status;
11670: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
11671: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11672: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11673: ' RETURN_STATUS = ' || x_return_status);
11674: END IF;
11675: RAISE FND_API.G_EXC_ERROR;
11676: END IF;
11676: END IF;
11677:
11678: BEGIN
11679: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11680: 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))||
11681: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index)||
11682: ', 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)||
11683: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(l_trx_line_index))||
11684: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(l_trx_line_index))||
11741: ', BILL_FROM_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.BILL_FROM_PARTY_ID(l_trx_line_index))||
11742: ', MERCHANT_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.MERCHANT_PARTY_ID(l_trx_line_index)));
11743: END IF;
11744: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11745: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11746: ', SHIP_TO_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_TO_PARTY_SITE_ID(l_trx_line_index))||
11747: ', SHIP_FROM_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.SHIP_FROM_PARTY_SITE_ID(l_trx_line_index))||
11748: ', POA_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POA_PARTY_SITE_ID(l_trx_line_index))||
11749: ', POO_PARTY_SITE_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POO_PARTY_SITE_ID(l_trx_line_index))||
11816: --', PAYING_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.PAYING_PARTY_ID(l_trx_line_index))
11817: );
11818: END IF;
11819: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11820: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11821: --', OWN_HQ_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.OWN_HQ_PARTY_ID(l_trx_line_index))||
11822: --', TRADING_HQ_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.TRADING_HQ_PARTY_ID(l_trx_line_index))||
11823: --', POI_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POI_PARTY_ID(l_trx_line_index))||
11824: --', POD_PARTY_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.POD_PARTY_ID(l_trx_line_index))||
11874: --', DATE10: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.DATE10(l_trx_line_index))
11875: );
11876: END IF;
11877: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11878: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11879: ', FIRST_PTY_ORG_ID: '|| to_char( zx_global_structures_pkg.trx_line_dist_tbl.FIRST_PTY_ORG_ID(l_trx_line_index))||
11880: ', TAX_EVENT_CLASS_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_CLASS_CODE(l_trx_line_index)||
11881: ', TAX_EVENT_TYPE_CODE: '|| zx_global_structures_pkg.trx_line_dist_tbl.TAX_EVENT_TYPE_CODE(l_trx_line_index)||
11882: ', DOC_EVENT_STATUS: '|| zx_global_structures_pkg.trx_line_dist_tbl.DOC_EVENT_STATUS(l_trx_line_index)||
11929: ', CTRL_TOTAL_LINE_TX_AMT: '|| zx_global_structures_pkg.trx_line_dist_tbl.CTRL_TOTAL_LINE_TX_AMT(l_trx_line_index)||
11930: ', DIST_LEVEL_ACTION: '|| zx_global_structures_pkg.trx_line_dist_tbl.DIST_LEVEL_ACTION(l_trx_line_index));
11931: END IF;
11932: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
11933: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
11934: ', ADJUSTED_DOC_TAX_DIST_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.ADJUSTED_DOC_TAX_DIST_ID(l_trx_line_index)) ||
11935: ', APPLIED_FROM_TAX_DIST_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.APPLIED_FROM_TAX_DIST_ID(l_trx_line_index)) ||
11936: ', TASK_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TASK_ID(l_trx_line_index)) ||
11937: ', AWARD_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.AWARD_ID(l_trx_line_index)) ||
12028: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12029: x_return_status := l_return_status;
12030: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
12031: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12032: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12033: ' RETURN_STATUS = ' || x_return_status);
12034: END IF;
12035: RAISE FND_API.G_EXC_ERROR;
12036: END IF;
12049: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12050: x_return_status := l_return_status;
12051: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
12052: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12053: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12054: ' RETURN_STATUS = ' || x_return_status);
12055: END IF;
12056: RAISE FND_API.G_EXC_ERROR;
12057: END IF;
12076: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
12077: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
12078: END IF;
12079: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12081: ' RETURN_STATUS = ' || x_return_status);
12082: END IF;
12083: RAISE FND_API.G_EXC_ERROR;
12084: END IF;
12111: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12112: x_return_status := l_return_status;
12113: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
12114: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12115: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12116: ' RETURN_STATUS = ' || x_return_status);
12117: END IF;
12118: RAISE FND_API.G_EXC_ERROR;
12119: END IF;
12126: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12127: x_return_status := l_return_status;
12128: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
12129: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12130: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12131: ' RETURN_STATUS = ' || x_return_status);
12132: END IF;
12133: RETURN;
12134: END IF;
12146: --populate_errors(p_event_class_rec,l_return_status); --this will retest l_return_status
12147: ZX_API_PUB.dump_msg;
12148: l_flag := FALSE;
12149: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12150: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12151: END IF;
12152: END; -- End of Bug fix 5524869
12153:
12154: -- bug fix 5417887 begin
12181:
12182: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12183: x_return_status := l_return_status ;
12184: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12185: 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');
12186: END IF;
12187: RETURN;
12188: END IF;
12189: END IF;
12191:
12192: END LOOP; --l_trx_line_index in 1 .. nvl(zx_global_structures_pkg.trx_line_dist_tbl.internal_organization_id.LAST,0)
12193:
12194: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12196: 'Completed the processing loop. Calling db_insert_line_det_factors..');
12197: END IF;
12198:
12199: /*Merge ruled out by performance due to record of table structure*/
12205:
12206: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12207: x_return_status := l_return_status;
12208: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12209: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12210: ' RETURN_STATUS = ' || x_return_status);
12211: END IF;
12212: RETURN;
12213: END IF;
12226: -- Handle LTE tax method
12227: IF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
12228: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12229:
12230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12231: 'Tax Method is LTE. Calling LTE in a loop ');
12232: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12233: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl. Number of records: '||
12234: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST,0)) );
12228: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12229:
12230: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12231: 'Tax Method is LTE. Calling LTE in a loop ');
12232: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12233: ' Looping over ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl. Number of records: '||
12234: to_char(nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST,0)) );
12235: END IF;
12236:
12253: l_event_class_rec.record_for_partners_flag := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_trx_id_index).record_for_partners_flag;
12254: l_event_class_rec.prod_family_grp_code := ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_trx_id_index).prod_family_grp_code;
12255:
12256: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12257: FND_LOG.STRING(G_LEVEL_STATEMENT,
12258: G_MODULE_NAME||l_api_name,
12259: 'processing trx_id: ' ||
12260: TO_CHAR(l_event_class_rec.trx_id));
12261: END IF;
12289: --Commented by ssohal
12290: --populate_errors(l_event_class_rec,l_return_status); --this will retest l_return_status
12291: ZX_API_PUB.dump_msg;
12292: IF ( G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
12293: FND_LOG.STRING(G_LEVEL_ERROR,G_MODULE_NAME||l_api_name,'');
12294: END IF;
12295: END; -- End of Bug fix 5524869
12296:
12297: END LOOP;
12307:
12308:
12309: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12310:
12311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12312: 'status returned from LTE: ' || l_return_status);
12313: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12314: ' g_ptnr_srvc_subscr_flag : '||
12315: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag );
12309: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12310:
12311: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12312: 'status returned from LTE: ' || l_return_status);
12313: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12314: ' g_ptnr_srvc_subscr_flag : '||
12315: zx_global_structures_pkg.g_ptnr_srvc_subscr_flag );
12316: END IF;
12317:
12334: -- Start : Code added by ssohal
12335: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12336: x_return_status := l_return_status;
12337: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12339: ' RETURN_STATUS = ' || x_return_status);
12340: END IF;
12341: RETURN;
12342: END IF;
12345:
12346:
12347: /*******************************PARTNER CODE END ****************************/
12348:
12349: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
12351: G_PKG_NAME||': '||l_api_name||'()-'||
12352: ' RETURN_STATUS = ' || x_return_status);
12353: END IF;
12346:
12347: /*******************************PARTNER CODE END ****************************/
12348:
12349: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12350: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
12351: G_PKG_NAME||': '||l_api_name||'()-'||
12352: ' RETURN_STATUS = ' || x_return_status);
12353: END IF;
12354:
12356: WHEN OTHERS THEN
12357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12358: IF c_lines%ISOPEN THEN CLOSE c_lines; END IF;
12359: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12360: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12361: END IF;
12362: END import;
12363:
12364: -----------------------------------------------------------------------
12380: l_tax_prof_id NUMBER;
12381: l_return_status VARCHAR2(30);
12382: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12383: BEGIN
12384: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
12386: END IF;
12387:
12388: x_return_status := FND_API.G_RET_STS_SUCCESS ;
12381: l_return_status VARCHAR2(30);
12382: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12383: BEGIN
12384: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12385: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
12386: END IF;
12387:
12388: x_return_status := FND_API.G_RET_STS_SUCCESS ;
12389:
12678: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12679: x_return_status := l_return_status;
12680: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
12681: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12682: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12683: ' RETURN_STATUS = ' || x_return_status);
12684: END IF;
12685: RETURN;
12686: END IF;
12700: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12701: x_return_status := l_return_status;
12702: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
12703: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12704: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
12705: ' RETURN_STATUS = ' || x_return_status);
12706: END IF;
12707: RETURN;
12708: END IF;
12711: EXIT WHEN get_overridden_lines%NOTFOUND;
12712: END LOOP;
12713: CLOSE get_overridden_lines;
12714:
12715: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12716: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
12717: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
12718: END IF;
12719:
12712: END LOOP;
12713: CLOSE get_overridden_lines;
12714:
12715: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12716: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
12717: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
12718: END IF;
12719:
12720: EXCEPTION
12721: WHEN OTHERS THEN
12722: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12723: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
12724: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
12725: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
12726: END IF;
12727: END override_summary_tax_lines;
12728:
12729: -----------------------------------------------------------------------
12746: l_return_status VARCHAR2(30);
12747: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12748:
12749: BEGIN
12750: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12751: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
12752: END IF;
12753:
12754: x_return_status := FND_API.G_RET_STS_SUCCESS ;
12747: l_context_info_rec ZX_API_PUB.context_info_rec_type;
12748:
12749: BEGIN
12750: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
12751: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
12752: END IF;
12753:
12754: x_return_status := FND_API.G_RET_STS_SUCCESS ;
12755:
13046: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13047: x_return_status := l_return_status;
13048: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13049: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13050: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13051: ' RETURN_STATUS = ' || x_return_status);
13052: END IF;
13053: RETURN;
13054: END IF;
13069: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13070: x_return_status := l_return_status;
13071: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13072: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13073: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13074: ' RETURN_STATUS = ' || x_return_status);
13075: END IF;
13076: RETURN;
13077: END IF;
13080: EXIT WHEN get_overridden_lines%NOTFOUND;
13081: END LOOP;
13082: CLOSE get_overridden_lines;
13083:
13084: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13085: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13086: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13087: END IF;
13088:
13081: END LOOP;
13082: CLOSE get_overridden_lines;
13083:
13084: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13085: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13086: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13087: END IF;
13088:
13089: EXCEPTION
13090: WHEN OTHERS THEN
13091: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13092: IF get_overridden_lines%ISOPEN THEN CLOSE get_overridden_lines; END IF;
13093: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13094: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13095: END IF;
13096: END override_detail_tax_lines;
13097:
13098: -----------------------------------------------------------------------
13134: dtl_tax_lines_rec dtl_tax_lines_csr%ROWTYPE;
13135:
13136:
13137: BEGIN
13138: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13139: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13140: END IF;
13141: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13142:
13135:
13136:
13137: BEGIN
13138: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13139: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13140: END IF;
13141: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13142:
13143: /*--------------------------------------------------+
13151: );
13152: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13153: x_return_status := l_return_status;
13154: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13155: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13156: ' RETURN_STATUS = ' || x_return_status);
13157: END IF;
13158: RETURN;
13159: END IF;
13163: );
13164: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13165: x_return_status := l_return_status;
13166: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13167: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13168: ' RETURN_STATUS = ' || x_return_status);
13169: END IF;
13170: RETURN;
13171: END IF;
13196:
13197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13198: x_return_status := l_return_status;
13199: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13200: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13201: ' RETURN_STATUS = ' || x_return_status);
13202: END IF;
13203: RETURN;
13204: END IF;
13204: END IF;
13205:
13206: IF l_ptnr_tax_lines_insert = 0 THEN
13207: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13208: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13209: ' No Tax Partner line needs to be synchronized.');
13210: END IF;
13211: RETURN;
13212: END IF;
13242:
13243: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13244: x_return_status := l_return_status;
13245: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13246: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13247: ' RETURN_STATUS = ' || x_return_status);
13248: END IF;
13249: RETURN;
13250: END IF;
13258:
13259: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13260: x_return_status := l_return_status;
13261: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13262: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13263: ' RETURN_STATUS = ' || x_return_status);
13264: END IF;
13265: RETURN;
13266: END IF;
13274:
13275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13276: x_return_status := l_return_status;
13277: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13278: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13279: ' RETURN_STATUS = ' || x_return_status);
13280: END IF;
13281: RETURN;
13282: END IF;
13289:
13290: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13291: x_return_status := l_return_status;
13292: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13293: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13294: ' RETURN_STATUS = ' || x_return_status);
13295: END IF;
13296: RETURN;
13297: END IF;
13309:
13310: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13311: x_return_status := l_return_status;
13312: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13313: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13314: ' RETURN_STATUS = ' || x_return_status);
13315: END IF;
13316: RETURN;
13317: END IF;
13344:
13345: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13346: x_return_status := l_return_status;
13347: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13348: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13349: ' RETURN_STATUS = ' || x_return_status);
13350: END IF;
13351: RETURN;
13352: END IF;
13350: END IF;
13351: RETURN;
13352: END IF;
13353:
13354: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13355: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13356: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13357: END IF;
13358:
13351: RETURN;
13352: END IF;
13353:
13354: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13355: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
13356: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13357: END IF;
13358:
13359: EXCEPTION
13359: EXCEPTION
13360: WHEN OTHERS THEN
13361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13362: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13363: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13364: END IF;
13365: END override_tax_lines;
13366:
13367: -----------------------------------------------------------------------
13383: l_return_status VARCHAR2(30);
13384: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13385:
13386: BEGIN
13387: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13389: END IF;
13390: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13391:
13384: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13385:
13386: BEGIN
13387: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13388: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13389: END IF;
13390: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13391:
13392: /* --------------------------------------------------------------------------------+
13406:
13407: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13408: x_return_status := l_return_status;
13409: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13410: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13411: ' RETURN_STATUS = ' || x_return_status);
13412: END IF;
13413: RETURN;
13414: END IF;
13437:
13438: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13439: x_return_status := l_return_status;
13440: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13441: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13442: ' RETURN_STATUS = ' || x_return_status);
13443: END IF;
13444: RETURN;
13445: END IF;
13458:
13459: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13460: x_return_status := l_return_status;
13461: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13462: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13463: ' RETURN_STATUS = ' || x_return_status);
13464: END IF;
13465: RETURN;
13466: END IF;
13466: END IF;
13467: END IF;
13468:
13469: /***********************PARTNER CODE END***************************/
13470: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13471: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13472: END IF;
13473:
13474: EXCEPTION
13467: END IF;
13468:
13469: /***********************PARTNER CODE END***************************/
13470: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13471: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13472: END IF;
13473:
13474: EXCEPTION
13475: WHEN OTHERS THEN
13474: EXCEPTION
13475: WHEN OTHERS THEN
13476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13477: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13478: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13479: END IF;
13480: END document_level_changes;
13481:
13482: -----------------------------------------------------------------------
13497: l_return_status VARCHAR2(30);
13498: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13499:
13500: BEGIN
13501: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13502: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13503: END IF;
13504: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13505:
13498: l_context_info_rec ZX_API_PUB.context_info_rec_type;
13499:
13500: BEGIN
13501: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13502: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13503: END IF;
13504: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13505:
13506: /* -------------------------------------------------------+
13510:
13511: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13512: x_return_status := l_return_status;
13513: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13514: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13515: ' RETURN_STATUS = ' || x_return_status);
13516: END IF;
13517: RETURN;
13518: END IF;
13516: END IF;
13517: RETURN;
13518: END IF;
13519:
13520: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13521: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13522: END IF;
13523:
13524: EXCEPTION
13517: RETURN;
13518: END IF;
13519:
13520: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13521: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
13522: END IF;
13523:
13524: EXCEPTION
13525: WHEN OTHERS THEN
13524: EXCEPTION
13525: WHEN OTHERS THEN
13526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
13527: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
13528: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
13529: END IF;
13530: END mark_tax_lines_deleted;
13531:
13532: -----------------------------------------------------------------------
13866: AND zrthgt.reversing_evnt_cls_code = zrtlgt.reversing_evnt_cls_code
13867: AND zrthgt.reversing_trx_id = zrtlgt.reversing_trx_id;
13868:
13869: BEGIN
13870: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13872: END IF;
13873: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13874:
13867: AND zrthgt.reversing_trx_id = zrtlgt.reversing_trx_id;
13868:
13869: BEGIN
13870: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
13871: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
13872: END IF;
13873: x_return_status := FND_API.G_RET_STS_SUCCESS ;
13874:
13875: /* -------------------------------------------------------+
13881:
13882: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13883: x_return_status := l_return_status;
13884: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
13885: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
13886: ' RETURN_STATUS = ' || x_return_status);
13887: END IF;
13888: RETURN;
13889: END IF;
14206:
14207: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14208: x_return_status := l_return_status;
14209: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14210: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14211: ' RETURN_STATUS = ' || x_return_status);
14212: END IF;
14213: RETURN;
14214: END IF;
14225:
14226: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14227: x_return_status := l_return_status;
14228: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14229: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14230: ' RETURN_STATUS = ' || x_return_status);
14231: END IF;
14232: RETURN;
14233: END IF;
14234:
14235: /* Bug 5662795 */
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 available for reversing.');
14240: END IF;
14241: RETURN;
14242: END IF;
14283: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(l_trx_line_index);
14284: ZX_API_PUB.add_msg (p_context_info_rec => l_context_info_rec);
14285: END IF;
14286: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14287: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14288: ' RETURN_STATUS = ' || x_return_status);
14289: END IF;
14290: RETURN;
14291: END IF;
14300:
14301: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14302: x_return_status := l_return_status;
14303: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14304: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14305: ' RETURN_STATUS = ' || x_return_status);
14306: END IF;
14307: RETURN;
14308: END IF;
14318: );
14319: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14320: x_return_status := l_return_status;
14321: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14322: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14323: ' RETURN_STATUS = ' || x_return_status);
14324: END IF;
14325: RETURN;
14326: END IF;
14334:
14335: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14336: x_return_status := l_return_status;
14337: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14338: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14339: ' RETURN_STATUS = ' || x_return_status);
14340: END IF;
14341: RETURN;
14342: END IF;
14348: );
14349: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14350: x_return_status := l_return_status;
14351: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14352: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14353: ' RETURN_STATUS = ' || x_return_status);
14354: END IF;
14355: RETURN;
14356: END IF;
14363: );
14364: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14365: x_return_status := l_return_status;
14366: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14367: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14368: ' RETURN_STATUS = ' || x_return_status);
14369: END IF;
14370: RETURN;
14371: END IF;
14374: END IF;
14375: END IF;
14376:
14377: /***********************PARTNER CODE END***************************/
14378: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14380: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14381: END IF;
14382:
14375: END IF;
14376:
14377: /***********************PARTNER CODE END***************************/
14378: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14379: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14380: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14381: END IF;
14382:
14383: EXCEPTION
14383: EXCEPTION
14384: WHEN OTHERS THEN
14385: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14386: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14387: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14388: END IF;
14389: END reverse_document;
14390:
14391: -----------------------------------------------------------------------
14405: l_return_status VARCHAR2(30);
14406: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14407:
14408: BEGIN
14409: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14411: END IF;
14412: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14413:
14406: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14407:
14408: BEGIN
14409: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14410: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14411: END IF;
14412: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14413:
14414: /* -------------------------------------------------------+
14418:
14419: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14420: x_return_status := l_return_status;
14421: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14422: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14423: ' RETURN_STATUS = ' || x_return_status);
14424: END IF;
14425: RETURN;
14426: END IF;
14424: END IF;
14425: RETURN;
14426: END IF;
14427:
14428: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14429: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14430: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14431: END IF;
14432:
14425: RETURN;
14426: END IF;
14427:
14428: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14429: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14430: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14431: END IF;
14432:
14433: EXCEPTION
14433: EXCEPTION
14434: WHEN OTHERS THEN
14435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14436: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14437: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14438: END IF;
14439: END reverse_distributions;
14440:
14441: -----------------------------------------------------------------------
14456: l_return_status VARCHAR2(30);
14457: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14458:
14459: BEGIN
14460: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14461: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14462: END IF;
14463: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14464: l_return_status := FND_API.G_RET_STS_SUCCESS ;
14457: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14458:
14459: BEGIN
14460: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14461: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14462: END IF;
14463: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14464: l_return_status := FND_API.G_RET_STS_SUCCESS ;
14465:
14473:
14474: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14475: x_return_status := l_return_status;
14476: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14477: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14478: ' RETURN_STATUS = ' || x_return_status);
14479: END IF;
14480: RETURN;
14481: END IF;
14479: END IF;
14480: RETURN;
14481: END IF;
14482:
14483: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14484: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14485: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14486: END IF;
14487:
14480: RETURN;
14481: END IF;
14482:
14483: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14484: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14485: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14486: END IF;
14487:
14488: EXCEPTION
14488: EXCEPTION
14489: WHEN OTHERS THEN
14490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14491: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14492: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14493: END IF;
14494: END determine_recovery;
14495:
14496: -----------------------------------------------------------------------
14511: l_return_status VARCHAR2(30);
14512: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14513:
14514: BEGIN
14515: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14517: END IF;
14518: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14519:
14512: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14513:
14514: BEGIN
14515: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14516: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14517: END IF;
14518: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14519:
14520: ZX_TRD_SERVICES_PUB_PKG.override_recovery(p_event_class_rec,
14523:
14524: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14525: x_return_status := l_return_status;
14526: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14527: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14528: ' RETURN_STATUS = ' || x_return_status);
14529: END IF;
14530: RETURN;
14531: END IF;
14529: END IF;
14530: RETURN;
14531: END IF;
14532:
14533: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14534: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14535: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14536: END IF;
14537:
14530: RETURN;
14531: END IF;
14532:
14533: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14534: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14535: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14536: END IF;
14537:
14538: EXCEPTION
14538: EXCEPTION
14539: WHEN OTHERS THEN
14540: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14541: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14542: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14543: END IF;
14544: END override_recovery;
14545:
14546:
14562: l_return_status VARCHAR2(30);
14563: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14564:
14565: BEGIN
14566: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14567: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14568: END IF;
14569: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14570:
14563: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14564:
14565: BEGIN
14566: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14567: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14568: END IF;
14569: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14570:
14571: /* -------------------------------------------------------+
14577:
14578: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14579: x_return_status := l_return_status;
14580: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14581: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14582: ' RETURN_STATUS = ' || x_return_status);
14583: END IF;
14584: RETURN;
14585: END IF;
14583: END IF;
14584: RETURN;
14585: END IF;
14586:
14587: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14588: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14589: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14590: END IF;
14591:
14584: RETURN;
14585: END IF;
14586:
14587: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14588: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14589: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14590: END IF;
14591:
14592: EXCEPTION
14592: EXCEPTION
14593: WHEN OTHERS THEN
14594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14595: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14596: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14597: END IF;
14598: END freeze_distribution_lines;
14599:
14600: -----------------------------------------------------------------------
14618: l_return_status VARCHAR2(30);
14619: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14620:
14621: BEGIN
14622: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14623: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14624: END IF;
14625: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14626:
14619: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14620:
14621: BEGIN
14622: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14623: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14624: END IF;
14625: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14626:
14627: /* -------------------------------------------------------+
14636:
14637: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14638: x_return_status := l_return_status;
14639: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14640: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14641: ' RETURN_STATUS = ' || x_return_status);
14642: END IF;
14643: RETURN;
14644: END IF;
14642: END IF;
14643: RETURN;
14644: END IF;
14645:
14646: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14647: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14648: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14649: END IF;
14650:
14643: RETURN;
14644: END IF;
14645:
14646: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14647: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14648: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14649: END IF;
14650:
14651: EXCEPTION
14651: EXCEPTION
14652: WHEN OTHERS THEN
14653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14654: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14655: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14656: END IF;
14657: END validate_document_for_tax;
14658:
14659:
14676: l_context_info_rec ZX_API_PUB.context_info_rec_type;
14677:
14678:
14679: BEGIN
14680: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14681: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14682: END IF;
14683: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14684:
14677:
14678:
14679: BEGIN
14680: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14681: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14682: END IF;
14683: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14684:
14685: /* -------------------------------------------------------+
14692:
14693: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14694: x_return_status := l_return_status;
14695: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14696: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14697: ' RETURN_STATUS = ' || x_return_status);
14698: END IF;
14699: RETURN;
14700: END IF;
14726:
14727: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14728: x_return_status := l_return_status;
14729: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14730: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14731: ' RETURN_STATUS = ' || x_return_status);
14732: END IF;
14733: RETURN;
14734: END IF;
14742:
14743: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14744: x_return_status := l_return_status;
14745: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14746: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14747: ' RETURN_STATUS = ' || x_return_status);
14748: END IF;
14749: RETURN;
14750: END IF;
14757:
14758: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14759: x_return_status := l_return_status;
14760: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14761: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14762: ' RETURN_STATUS = ' || x_return_status);
14763: END IF;
14764: RETURN;
14765: END IF;
14776:
14777: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14778: x_return_status := l_return_status;
14779: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14780: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14781: ' RETURN_STATUS = ' || x_return_status);
14782: END IF;
14783: RETURN;
14784: END IF;
14784: END IF;
14785:
14786:
14787: /***********************PARTNER CODE END***************************/
14788: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14789: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14790: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14791: END IF;
14792:
14785:
14786:
14787: /***********************PARTNER CODE END***************************/
14788: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14789: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14790: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14791: END IF;
14792:
14793: EXCEPTION
14793: EXCEPTION
14794: WHEN OTHERS THEN
14795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14796: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
14797: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
14798: END IF;
14799: END discard_tax_only_lines;
14800:
14801:
14820: l_partner_migrated_flag VARCHAR2(1);
14821: l_provider_id NUMBER;
14822:
14823: BEGIN
14824: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14825: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14826: END IF;
14827: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14828:
14821: l_provider_id NUMBER;
14822:
14823: BEGIN
14824: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14825: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
14826: END IF;
14827: x_return_status := FND_API.G_RET_STS_SUCCESS ;
14828:
14829: /* -------------------------------------------------------+
14894: 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)
14895: LOOP
14896:
14897: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14898: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14899: ' at the start of the loop');
14900: END IF;
14901: IF ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.exists(l_regime_index) THEN
14902:
14900: END IF;
14901: IF ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl.exists(l_regime_index) THEN
14902:
14903: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14904: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14905: ' inside the regime index condition');
14906: END IF;
14907: ZX_tpi_services_pkg.get_service_provider(
14908: p_event_class_rec.application_id, p_event_class_rec.entity_code,
14910: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
14911: l_provider_id , l_return_status);
14912:
14913: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14914: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14915: ' Provider Id = ' || to_char(l_provider_id));
14916: END IF;
14917:
14918: IF nvl(l_provider_id,0) > 0 THEN
14916: END IF;
14917:
14918: IF nvl(l_provider_id,0) > 0 THEN
14919: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14920: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14921: ' Before partner pre processing ');
14922: END IF;
14923: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id :=
14924: l_provider_id;
14931: );
14932: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14933: x_return_status := l_return_status;
14934: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14935: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14936: ' RETURN_STATUS = ' || x_return_status);
14937: END IF;
14938: RETURN;
14939: END IF;
14938: RETURN;
14939: END IF;
14940:
14941: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14942: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14943: ' Before derive ext attsr');
14944: END IF;
14945:
14946: ZX_TPI_SERVICES_PKG.derive_ext_attrs (p_event_class_rec,
14952:
14953: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14954: x_return_status := l_return_status;
14955: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14956: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14957: ' RETURN_STATUS = ' || x_return_status);
14958: END IF;
14959: RETURN;
14960: END IF;
14959: RETURN;
14960: END IF;
14961:
14962: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14963: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14964: ' Before call partner service');
14965: END IF;
14966: ZX_TPI_SERVICES_PKG.call_partner_service(ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_regime_code,
14967: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id,
14972:
14973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14974: x_return_status := l_return_status;
14975: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14976: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14977: ' RETURN_STATUS = ' || x_return_status);
14978: END IF;
14979: RETURN;
14980: END IF;
14979: RETURN;
14980: END IF;
14981: END IF;
14982: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14983: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14984: ' after the iteratuion');
14985: END IF;
14986: END IF;
14987: END LOOP;
14985: END IF;
14986: END IF;
14987: END LOOP;
14988: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
14989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
14990: ' After partner code ');
14991: END IF;
14992: END IF; -- bug7115402
14993: END IF; --recording
14992: END IF; -- bug7115402
14993: END IF; --recording
14994:
14995: /***********************PARTNER CODE END***************************/
14996: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14998: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14999: END IF;
15000:
14993: END IF; --recording
14994:
14995: /***********************PARTNER CODE END***************************/
14996: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
14997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
14998: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
14999: END IF;
15000:
15001: EXCEPTION
15001: EXCEPTION
15002: WHEN OTHERS THEN
15003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15004: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15005: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15006: END IF;
15007: END synchronize_tax;
15008:
15009: -----------------------------------------------------------------------
15030: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15031: l_return_status VARCHAR2(1);
15032:
15033: BEGIN
15034: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15035: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15036: END IF;
15037:
15038: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15031: l_return_status VARCHAR2(1);
15032:
15033: BEGIN
15034: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15035: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15036: END IF;
15037:
15038: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15039:
15039:
15040: 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
15041: LOOP
15042: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15043: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15044: ', SHIP_THIRD_PTY_ACCT_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.SHIP_THIRD_PTY_ACCT_ID(l_trx_index)) ||
15045: ', BILL_THIRD_PTY_ACCT_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.BILL_THIRD_PTY_ACCT_ID(l_trx_index)) ||
15046: ', 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)) ||
15047: ', 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)) ||
15073: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
15074: ZX_API_PUB.add_msg(p_context_info_rec => l_context_info_rec);
15075: END IF;
15076: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15077: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15078: ' RETURN_STATUS = ' || x_return_status);
15079: END IF;
15080: RETURN;
15081: END IF;
15108:
15109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15110: x_return_status := l_return_status;
15111: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15112: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15113: ' RETURN_STATUS = ' || x_return_status);
15114: END IF;
15115: RETURN;
15116: END IF;
15114: END IF;
15115: RETURN;
15116: END IF;
15117: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15118: 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))||
15119: ', ENTITY_CODE: '||zx_global_structures_pkg.trx_line_dist_tbl.ENTITY_CODE(l_trx_index)||
15120: ', 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)||
15121: ', TRX_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_ID(l_trx_index))||
15122: ', TRX_LINE_ID: '|| to_char(zx_global_structures_pkg.trx_line_dist_tbl.TRX_LINE_ID(l_trx_index))||
15199: );
15200: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15201: x_return_status := l_return_status;
15202: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15203: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15204: ' RETURN_STATUS = ' || x_return_status);
15205: END IF;
15206: RETURN;
15207: END IF;
15229:
15230: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15231: x_return_status := l_return_status;
15232: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15233: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15234: ' RETURN_STATUS = ' || x_return_status);
15235: END IF;
15236: RETURN;
15237: END IF;
15236: RETURN;
15237: END IF;
15238: END IF;
15239:
15240: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15241: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15242: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15243: END IF;
15244: EXCEPTION
15237: END IF;
15238: END IF;
15239:
15240: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15241: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15242: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15243: END IF;
15244: EXCEPTION
15245: WHEN OTHERS THEN
15244: EXCEPTION
15245: WHEN OTHERS THEN
15246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15247: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15248: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15249: END IF;
15250: END insupd_line_det_factors;
15251:
15252: -----------------------------------------------------------------------
15273: l_context_info_rec ZX_API_PUB.context_info_rec_type;
15274: l_return_status VARCHAR2(1);
15275:
15276: BEGIN
15277: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15278: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15279: END IF;
15280:
15281: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15274: l_return_status VARCHAR2(1);
15275:
15276: BEGIN
15277: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15278: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15279: END IF;
15280:
15281: x_return_status := FND_API.G_RET_STS_SUCCESS ;
15282:
15296: AND trx_id = p_event_class_rec.trx_id
15297: AND tax_regime_code = p_tax_regime_code;
15298: END IF;
15299:
15300: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15301: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15302: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15303: END IF;
15304:
15297: AND tax_regime_code = p_tax_regime_code;
15298: END IF;
15299:
15300: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
15301: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15302: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15303: END IF;
15304:
15305: EXCEPTION
15305: EXCEPTION
15306: WHEN OTHERS THEN
15307: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15308: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15309: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15310: END IF;
15311: END zx_lines_table_handler;
15312:
15313: -----------------------------------------------------------------------
15337: l_return_status VARCHAR2(30);
15338:
15339: BEGIN
15340: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15341: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',
15342: G_PKG_NAME||': '||l_api_name||'()+'||
15343: ', Party_id: '||to_char(p_party_id)||
15344: ', Party Type:'||p_party_type_code ||
15345: ', p_party_loc_id: '||to_char(p_party_loc_id)||
15365:
15366: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15367: x_return_status := l_return_status;
15368: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15369: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15370: ' RETURN_STATUS = ' || x_return_status);
15371: END IF;
15372: RETURN;
15373: END IF;
15390:
15391: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15392: x_return_status := l_return_status;
15393: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15394: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15395: ' RETURN_STATUS = ' || x_return_status);
15396: END IF;
15397: RETURN;
15398: END IF;
15400: END IF;
15401: END IF;
15402:
15403: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15404: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15405: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15406: END IF;
15407: END get_tax_profile_ids;
15408:
15446: l_event_class_rec ZX_API_PUB.event_class_rec_type;
15447: l_upg_trx_info_rec ZX_ON_FLY_TRX_UPGRADE_PKG.zx_upg_trx_info_rec_type;
15448: BEGIN
15449: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15450: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
15451: END IF;
15452:
15453: x_return_status := FND_API.G_RET_STS_SUCCESS;
15454:
15505: );
15506: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15507: x_return_status := l_return_status;
15508: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15509: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15510: ' RETURN_STATUS = ' || x_return_status);
15511: END IF;
15512: RETURN;
15513: END IF;
15584: );
15585: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15586: x_return_status := l_return_status;
15587: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15588: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15589: ' RETURN_STATUS = ' || x_return_status);
15590: END IF;
15591: RETURN;
15592: END IF;
15694: );
15695: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15696: x_return_status := l_return_status;
15697: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15698: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15699: ' RETURN_STATUS = ' || x_return_status);
15700: END IF;
15701: RETURN;
15702: END IF;
15768: );
15769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15770: x_return_status := l_return_status;
15771: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
15772: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
15773: ' RETURN_STATUS = ' || x_return_status);
15774: END IF;
15775: RETURN;
15776: END IF;
15785: END IF;
15786:
15787:
15788: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
15789: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
15790: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15791: END IF;
15792:
15793: EXCEPTION
15793: EXCEPTION
15794: WHEN OTHERS THEN
15795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15796: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
15797: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
15798: END IF;
15799: END default_tax_attrs_wrapper;
15800:
15801: -----------------------------------------------------------------------
16213: ORDER by trxlines.trx_id, trxlines.trx_line_id;
16214:
16215: BEGIN
16216: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16217: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16218: END IF;
16219:
16220: x_return_status := FND_API.G_RET_STS_SUCCESS;
16221:
16577: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16578: x_return_status := l_return_status;
16579: IF lines%ISOPEN THEN CLOSE lines; END IF;
16580: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16581: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16582: ' RETURN_STATUS = ' || x_return_status);
16583: END IF;
16584: RETURN;
16585: END IF;
16600: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16601: x_return_status := l_return_status;
16602: IF lines%ISOPEN THEN CLOSE lines; END IF;
16603: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16604: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16605: ' RETURN_STATUS = ' || x_return_status);
16606: END IF;
16607: RETURN;
16608: END IF;
16624: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16625: x_return_status := l_return_status;
16626: IF lines%ISOPEN THEN CLOSE lines; END IF;
16627: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16628: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16629: ' RETURN_STATUS = ' || x_return_status);
16630: END IF;
16631: RETURN;
16632: END IF;
16651: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16652: x_return_status := l_return_status;
16653: IF lines%ISOPEN THEN CLOSE lines; END IF;
16654: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16655: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16656: ' RETURN_STATUS = ' || x_return_status);
16657: END IF;
16658: RETURN;
16659: END IF;
16698: AND event_class_code = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.event_class_code(i)
16699: AND trx_id = ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.trx_id(i);
16700:
16701: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16702: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
16703: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
16704: END IF;
16705:
16706: EXCEPTION
16707: WHEN OTHERS THEN
16708: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16709: IF lines%ISOPEN THEN CLOSE lines; END IF;
16710: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
16711: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
16712: END IF;
16713: END get_default_tax_det_attrs;
16714:
16715:
16738:
16739: l_api_name CONSTANT VARCHAR2(30):= 'DECIDE_CALL_REDEFAULT_APIS';
16740:
16741: BEGIN
16742: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16743: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16744: END IF;
16745:
16746: /*IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) is null AND
16739: l_api_name CONSTANT VARCHAR2(30):= 'DECIDE_CALL_REDEFAULT_APIS';
16740:
16741: BEGIN
16742: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16743: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16744: END IF;
16745:
16746: /*IF ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DEFAULT_TAXATION_COUNTRY(p_trx_line_index) is null AND
16747: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.DOCUMENT_SUB_TYPE(p_trx_line_index) is null AND
16796: ELSE
16797: RETURN FALSE;
16798: END IF;
16799: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
16800: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',G_PKG_NAME||': '||l_api_name||'()-');
16801: END IF;
16802: END decide_call_redefault_APIs;
16803:
16804: -----------------------------------------------------------------------
16881: OR end_date_active IS NULL)
16882: AND org_id IN ( c_internal_organization_id, -99);
16883:
16884: BEGIN
16885: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16886: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16887: END IF;
16888:
16889: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16882: AND org_id IN ( c_internal_organization_id, -99);
16883:
16884: BEGIN
16885: IF ( G_LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
16886: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
16887: END IF;
16888:
16889: x_return_status := FND_API.G_RET_STS_SUCCESS ;
16890:
16946: );
16947: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16948: x_return_status := l_return_status;
16949: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16950: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16951: ' RETURN_STATUS = ' || x_return_status);
16952: END IF;
16953: RETURN;
16954: END IF;
16965: );
16966: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16967: x_return_status := l_return_status;
16968: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16969: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16970: ' RETURN_STATUS = ' || x_return_status);
16971: END IF;
16972: RETURN;
16973: END IF;
16985:
16986: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
16987: x_return_status := l_return_status;
16988: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
16989: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
16990: ' RETURN_STATUS = ' || x_return_status);
16991: END IF;
16992: RETURN;
16993: END IF;
17007: );
17008: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17009: x_return_status := l_return_status;
17010: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17011: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17012: ' RETURN_STATUS = ' || x_return_status);
17013: END IF;
17014: RETURN;
17015: END IF;
17031:
17032: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17033: x_return_status := l_return_status;
17034: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17035: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17036: ' RETURN_STATUS = ' || x_return_status);
17037: END IF;
17038: RETURN;
17039: END IF;
17076:
17077: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17078: x_return_status := l_return_status;
17079: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17080: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17081: ' RETURN_STATUS = ' || x_return_status);
17082: END IF;
17083: RETURN;
17084: END IF;
17100:
17101: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17102: x_return_status := l_return_status;
17103: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17104: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17105: ' RETURN_STATUS = ' || x_return_status);
17106: END IF;
17107: RETURN;
17108: END IF;
17127:
17128: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17129: x_return_status := l_return_status;
17130: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17131: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17132: ' RETURN_STATUS = ' || x_return_status);
17133: END IF;
17134: RETURN;
17135: END IF;
17155: );
17156: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17157: x_return_status := l_return_status;
17158: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17159: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17160: ' RETURN_STATUS = ' || x_return_status);
17161: END IF;
17162: RETURN;
17163: END IF;
17263:
17264: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
17265: x_return_status := l_return_status;
17266: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17267: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
17268: ' RETURN_STATUS = ' || x_return_status);
17269: END IF;
17270: RETURN;
17271: ELSE
17280:
17281: END IF; --application_id <>222
17282:
17283: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
17284: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.END',
17285: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
17286: END IF;
17287:
17288: EXCEPTION
17288: EXCEPTION
17289: WHEN OTHERS THEN
17290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
17291: IF ( G_LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL) THEN
17292: FND_LOG.STRING(G_LEVEL_EXCEPTION,G_MODULE_NAME||l_api_name,SQLERRM);
17293: END IF;
17294: END call_redefaulting_APIs;
17295:
17296:
17306: l_api_name CONSTANT VARCHAR2(30) := 'pop_src_evnt_cls_info';
17307: BEGIN
17308:
17309: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17310: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
17311: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
17312: ', RETURN_STATUS = ' || x_return_status);
17313: END IF;
17314:
17343: END IF;
17344:
17345:
17346: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17347: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
17348: '.END',G_PKG_NAME||': '||l_api_name||'()-'||
17349: ', RETURN_STATUS = ' || x_return_status);
17350: END IF;
17351:
17352: EXCEPTION
17353: WHEN OTHERS THEN
17354: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17355: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
17356: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
17357: 'Unable to derive the source event calss info ' ||
17358: SQLERRM);
17359: END IF;
17360:
17368: l_context_info_rec ZX_API_PUB.context_info_rec_type;
17369: BEGIN
17370:
17371: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17372: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
17373: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
17374: ', RETURN_STATUS = ' || x_return_status);
17375: END IF;
17376:
17412: END IF;
17413: END IF;
17414:
17415: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17416: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||
17417: '.END',G_PKG_NAME||': '||l_api_name||'()-'||
17418: ', RETURN_STATUS = ' || x_return_status);
17419: END IF;
17420:
17421: EXCEPTION
17422: WHEN OTHERS THEN
17423: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17424: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
17425: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
17426: 'Unable to populate error information ' ||
17427: SQLERRM);
17428: END IF;
17429:
17454: l_trx_level_type VARCHAR(30);
17455:
17456: BEGIN
17457: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17458: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.BEGIN',
17459: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()+');
17460: END IF;
17461: -- Copy the key attributes in the local variables
17462: l_application_id := ZX_Global_Structures_Pkg.trx_line_dist_tbl.Application_id(p_index);
17479: ZX_Global_Structures_Pkg.trx_line_dist_tbl.Trx_line_Id(p_index) := l_trx_line_id;
17480: ZX_Global_Structures_Pkg.trx_line_dist_tbl.Trx_level_type(p_index) := l_trx_level_type;
17481:
17482: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
17483: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name||'.END',
17484: 'ZX_SRVC_TYP_PKG: Pop_Index_Attrbs_To_Null()-');
17485: END IF;
17486:
17487: EXCEPTION
17487: EXCEPTION
17488: WHEN OTHERS THEN
17489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17490: IF ( G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
17491: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,
17492: 'Error occurred in ' || l_api_name || ' : ' ||SQLERRM);
17493: END IF;
17494:
17495: END Pop_Index_Attrbs_To_Null;