[Home] [Help]
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;
1713:
1714: -- Insert records in ZX_LINES_DET_FACTORS
1715: FORALL i IN INDICES OF p_trx_line_dist_tbl.application_id
1716: INSERT INTO ZX_LINES_DET_FACTORS(
2325: END IF;
2326:
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;
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;
2372:
2373: /* In case of UPDATE, then if line_level_action in (UPDATE/DISCARD/CANCEL/SYNCHRONIZE) then UPDATE
2374: if line_level_action in (CREATE/CREATE_TAX_ONLY/APPLY_FROM/UNAPPLY_FROM/LINE_INFO_TAX_ONLY) then INSERT
2375: */
2385: NULL,
2386: NULL,
2387: l_return_status
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;
3007: END IF;
3008:
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;
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;
3045:
3046: BEGIN
3047: INSERT INTO ZX_DETAIL_TAX_LINES_GT(
3048: tax_line_id,
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;
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:
3999: OPEN fetch_det_factors_for_lte(p_event_class_rec);
4000: LOOP
4001: FETCH fetch_det_factors_for_lte BULK COLLECT INTO
4301: x_return_status => l_return_status
4302: );
4303:
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;
4322: END IF;
4323:
4324: EXCEPTION
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;
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:
4361: IF p_event_class_rec.TAX_EVENT_TYPE_CODE = 'UPDATE' THEN
4362: /*Lock trx line det factors*/
4363: SELECT *
4384: WHEN NO_DATA_FOUND THEN
4385: null;
4386: WHEN OTHERS THEN
4387: IF (SQLCODE = 54) THEN
4388: x_return_status := FND_API.G_RET_STS_ERROR ;
4389: FND_MESSAGE.SET_NAME('ZX','ZX_RESOURCE_BUSY');
4390: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
4391: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
4392: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
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
4403: FND_LOG.STRING(G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_api_name,SQLERRM);
4404: END IF;
4405: END IF;
4500: END IF;
4501:
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;
4590: END IF;
4591:
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;
4775: END IF;
4776:
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;
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
5012: END IF;
5013:
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;
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:
5067: --Get the ptp ids from zx_lines_det_factors
5068: SELECT ship_to_party_tax_prof_id,
5069: bill_to_party_tax_prof_id,
5329: END IF;
5330:
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;
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:
5366: IF p_location_type = 'SHIP_FROM' THEN
5367: IF p_loc_idx = 1 THEN
5368: l_ptnr_loc_tbl.ship_from_geography_type1(p_ptnr_idx) := p_geo_type;
5562: END IF;
5563:
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;
5686: location_type_tbl => l_location_type_tbl,
5687: location_id_tbl => l_location_id_tbl,
5688: x_return_status => l_return_status
5689: );
5690: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5691: x_return_status := l_return_status;
5692: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5693: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(p_trx_line_index);
5694: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index);
5688: x_return_status => l_return_status
5689: );
5690: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5691: x_return_status := l_return_status;
5692: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
5693: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(p_trx_line_index);
5694: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index);
5695: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
5696: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
5712: END IF;
5713:
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;
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;
5772:
5773: /*
5774: 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)
6521: END IF;
6522:
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;
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:
6585: /*
6586: The global variable ZX_TAX_PARTNER_PKG.G_BUSINESS_FLOW is usually populated while determining the service provider.
6587: But, when only DELETE action is taken on item line, ZX_TAX_PARTNER_PKG.G_BUSINESS_FLOW is not populated
6656: END IF;
6657:
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;
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:
6723:
6724: /***********************PARTNER CODE START***************************/
6725: IF p_event_class_rec.record_flag ='Y' AND
6757: p_event_class_rec,
6758: l_return_status
6759: );
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);
6774: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id,
6775: 'DERIVE_HDR_ATTRS',
6776: l_return_status
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);
6790: 'DERIVE_LINE_ATTRS',
6791: l_return_status
6792: );
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);
6827: p_event_class_rec,
6828: l_return_status
6829: );
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);
6843: p_event_class_rec,
6844: l_return_status
6845: );
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);
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;
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:
6914: IF p_event_class_rec.prod_family_grp_code = 'O2C' AND
6915: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_party_id(p_trx_line_index) IS NULL THEN
6916: IF p_event_class_rec.application_id = 222 THEN
7028: END IF;
7029:
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;
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:
7070: IF p_event_class_rec.prod_family_grp_code = 'O2C' AND
7071: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_id(p_trx_line_index) IS NULL THEN
7072: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_id(p_trx_line_index) :=
7081: END IF;
7082:
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;
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:
7123: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.first_pty_org_id(p_trx_line_index) := p_event_class_rec.first_pty_org_id;
7124: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_class_code(p_trx_line_index) := p_event_class_rec.tax_event_class_code;
7125: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.tax_event_type_code(p_trx_line_index):= p_event_class_rec.tax_event_type_code;
7149: NULL,
7150: l_tax_prof_id
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;
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
7160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7161: RETURN;
7162: ELSE /* Return Status is SUCCESS */
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
7160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7161: RETURN;
7162: ELSE /* Return Status is SUCCESS */
7163: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_to_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7160: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7161: RETURN;
7162: ELSE /* Return Status is SUCCESS */
7163: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_to_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7164: END IF;
7176: l_tax_prof_id,
7177: l_return_status
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;
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
7187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7188: RETURN;
7189: ELSE /* Return Status is success */
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
7187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7188: RETURN;
7189: ELSE /* Return Status is success */
7190: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.hq_estb_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
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
7187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7188: RETURN;
7189: ELSE /* Return Status is success */
7190: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.hq_estb_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7191: END IF;
7207: NULL,
7208: l_tax_prof_id
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;
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
7218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7219: RETURN;
7220: ELSE /* Return Status is success */
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
7218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7219: RETURN;
7220: ELSE /* Return Status is success */
7221: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_from_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7219: RETURN;
7220: ELSE /* Return Status is success */
7221: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_from_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7222: END IF;
7248: NULL,
7249: l_tax_prof_id
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;
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
7259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7260: RETURN;
7261: ELSE -- Return status is success
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
7259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7260: RETURN;
7261: ELSE -- Return status is success
7262: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7259: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7260: RETURN;
7261: ELSE -- Return status is success
7262: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7263: END IF;
7288: NULL,
7289: l_tax_prof_id
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;
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
7299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7300: RETURN;
7301: ELSE -- Return status is success
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
7299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7300: RETURN;
7301: ELSE -- Return status is success
7302: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7300: RETURN;
7301: ELSE -- Return status is success
7302: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7303: END IF;
7322: NULL,
7323: l_tax_prof_id
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;
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
7333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7334: RETURN;
7335: ELSE /* Return status is success */
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
7333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7334: RETURN;
7335: ELSE /* Return status is success */
7336: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_to_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7334: RETURN;
7335: ELSE /* Return status is success */
7336: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_to_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7337: END IF;
7357: NULL,
7358: l_tax_prof_id
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;
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
7368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7369: RETURN;
7370: ELSE /* Return status is success */
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
7368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7369: RETURN;
7370: ELSE /* Return status is success */
7371: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_from_party_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7369: RETURN;
7370: ELSE /* Return status is success */
7371: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_from_party_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7372: END IF;
7392: zx_global_structures_pkg.trx_line_dist_tbl.ship_to_party_site_id(p_trx_line_index) ,
7393: l_tax_prof_id
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;
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
7403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7404: RETURN;
7405: ELSE /* Return status is success */
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
7403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7404: RETURN;
7405: ELSE /* Return status is success */
7406: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_to_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7404: RETURN;
7405: ELSE /* Return status is success */
7406: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_to_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7407: END IF;
7427: zx_global_structures_pkg.trx_line_dist_tbl.ship_from_party_site_id(p_trx_line_index),
7428: l_tax_prof_id
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;
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
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: RETURN;
7440: ELSE /* Return status is success */
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
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: RETURN;
7440: ELSE /* Return status is success */
7441: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_from_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7439: RETURN;
7440: ELSE /* Return status is success */
7441: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ship_from_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7442: END IF;
7458: zx_global_structures_pkg.trx_line_dist_tbl.poa_party_site_id(p_trx_line_index),
7459: l_tax_prof_id
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;
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
7469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7470: RETURN;
7471: ELSE /* Return status is success */
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
7469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7470: RETURN;
7471: ELSE /* Return status is success */
7472: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7470: RETURN;
7471: ELSE /* Return status is success */
7472: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poa_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7473: END IF;
7486: zx_global_structures_pkg.trx_line_dist_tbl.poo_party_site_id(p_trx_line_index) ,
7487: l_tax_prof_id
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;
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
7497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7498: RETURN;
7499: ELSE /* Return status is success */
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
7497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7498: RETURN;
7499: ELSE /* Return status is success */
7500: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7498: RETURN;
7499: ELSE /* Return status is success */
7500: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.poo_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7501: END IF;
7518: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_to_party_site_id(p_trx_line_index),
7519: l_tax_prof_id
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;
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
7529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7530: RETURN;
7531: ELSE /* Return status is success */
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
7529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7530: RETURN;
7531: ELSE /* Return status is success */
7532: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_to_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7530: RETURN;
7531: ELSE /* Return status is success */
7532: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_to_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7533: END IF;
7553: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_from_party_site_id(p_trx_line_index),
7554: l_tax_prof_id
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;
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
7564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7565: RETURN;
7566: ELSE /* Return status is success */
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
7564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7565: RETURN;
7566: ELSE /* Return status is success */
7567: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_from_site_tax_prof_id(p_trx_line_index) := l_tax_prof_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
7564: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7565: RETURN;
7566: ELSE /* Return status is success */
7567: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.bill_from_site_tax_prof_id(p_trx_line_index) := l_tax_prof_id;
7568: END IF;
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;
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);
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
7655: x_return_status := FND_API.G_RET_STS_ERROR ;
7656: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(p_trx_line_index);
7657: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index);
7658: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
7651: END IF;
7652:
7653: EXCEPTION
7654: WHEN FND_API.G_EXC_ERROR THEN
7655: x_return_status := FND_API.G_RET_STS_ERROR ;
7656: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(p_trx_line_index);
7657: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(p_trx_line_index);
7658: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(p_trx_line_index);
7659: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(p_trx_line_index);
7660: l_context_info_rec.TRX_LINE_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LINE_ID(p_trx_line_index);
7661: l_context_info_rec.TRX_LEVEL_TYPE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_LEVEL_TYPE(p_trx_line_index);
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;
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:
7705: --Bugfix 4420279 - Stamp line level action as CREATE in case of quote call
7706: IF nvl(p_event_class_rec.quote_flag,'N') = 'Y' THEN
7707: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.line_level_action(p_trx_line_index) := 'CREATE';
7720: p_trx_level_type => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.adjusted_doc_trx_level_type(p_trx_line_index),
7721: x_return_status => l_return_status
7722: );
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);
7746: p_event_class_rec => p_event_class_rec,
7747: x_return_status => l_return_status
7748: );
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);
7773: 'LINE',
7774: l_return_status
7775: );
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);
7790: p_trx_line_index,
7791: p_event_class_rec
7792: );
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);
8092: ,p_event_class_rec
8093: ,l_return_status
8094: );
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);
8111: ,p_trx_line_index
8112: ,l_return_status
8113: );
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);
8128: ,p_event_class_rec
8129: ,l_return_status
8130: );
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);
8158: ,p_event_class_rec
8159: ,l_return_status
8160: );
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);
8175: END IF;
8176:
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;
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
8216:
8217: /*Commented following condition, because for sales order both the flags would be 'N'*/
8218: -- IF p_event_class_rec.record_flag ='Y'
8358:
8359: partner_location_population (p_event_class_rec => p_event_class_rec,
8360: x_return_status => l_return_status);
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);
8371: IF nvl(l_deleted_line_exists,'N') = 'Y' THEN
8372:
8373: get_regimes_for_del_item_lines (p_event_class_rec => p_event_class_rec,
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);
8402: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag,
8403: p_event_class_rec,
8404: l_return_status
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);
8419: 'DERIVE_HDR_ATTRS',
8420: l_return_status
8421: );
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);
8435: 'DERIVE_LINE_ATTRS',
8436: l_return_status
8437: );
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);
8461: p_event_class_rec,
8462: l_return_status
8463: );
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);
8481: p_provider_id => ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id,
8482: x_return_status => l_return_status
8483: );
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);
8502: p_trx_level_type => null,
8503: x_return_status => l_return_status
8504: );
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);
8526: p_event_class_rec,
8527: l_return_status
8528: );
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);
8543: p_event_class_rec,
8544: l_return_status
8545: );
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);
8565: END IF;
8566:
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;
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:
8592: FOR l_trx_id_index IN nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.FIRST,0) .. nvl(ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl.LAST,-99)
8593: LOOP
8594:
8608: );
8609: ptnr_calculate_tax_pvt(p_event_class_rec => l_event_class_rec ,
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
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);
8619: RAISE FND_API.G_EXC_ERROR;
8620: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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);
8619: RAISE FND_API.G_EXC_ERROR;
8620: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8622: END IF;
8623: 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);
8619: RAISE FND_API.G_EXC_ERROR;
8620: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8622: END IF;
8623: END IF;
8624:
8617: delete_from_lines_det_gt(p_event_class_rec => l_event_class_rec ,
8618: x_return_status => l_return_status);
8619: RAISE FND_API.G_EXC_ERROR;
8620: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8622: END IF;
8623: END IF;
8624:
8625: END IF; -- 5711466
8624:
8625: END IF; -- 5711466
8626:
8627: EXCEPTION
8628: WHEN FND_API.G_EXC_ERROR THEN
8629: ROLLBACK TO Ptnr_Bulk_Calc_Tax_Pvt;
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;
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,
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
8671: WHERE application_id = p_event_class_rec.application_id
8672: AND entity_code = p_event_class_rec.entity_code
8696: END IF;
8697: EXCEPTION
8698:
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,
8757: --Initialise local variables
8758: l_lines_passed := 1;
8759: l_update_index := 0; --store index upto which records need to updated
8760:
8761: x_return_status := FND_API.G_RET_STS_SUCCESS ;
8762:
8763: --Call get_location of TCM to get the location of internal organization
8764: ZX_TCM_PTP_PKG.get_location_id(p_event_class_rec.internal_organization_id,
8765: l_internal_org_location_id,
8765: l_internal_org_location_id,
8766: l_return_status
8767: );
8768:
8769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8770: x_return_status := l_return_status;
8771: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8772: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
8773: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
8767: );
8768:
8769: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8770: x_return_status := l_return_status;
8771: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
8772: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
8773: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
8774: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
8775: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
8831: l_return_status,
8832: l_error_buffer
8833: );
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);
8845: ZX_TDS_CALC_SERVICES_PUB_PKG.get_process_for_appl_flg (p_tax_prof_id => ZX_TDS_CALC_SERVICES_PUB_PKG.g_rnd_lvl_party_tax_prof_id,
8846: x_return_status => l_return_status
8847: );
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);
8873: l_no_of_trx := 0;
8874: END;
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;
9283: p_event_class_rec => p_event_class_rec,
9284: x_return_status => l_return_status);
9285: END IF;
9286:
9287: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9288: x_return_status := l_return_status;
9289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9290: RAISE FND_API.G_EXC_ERROR;
9291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9285: END IF;
9286:
9287: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9288: x_return_status := l_return_status;
9289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9290: RAISE FND_API.G_EXC_ERROR;
9291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9293: END IF;
9286:
9287: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9288: x_return_status := l_return_status;
9289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9290: RAISE FND_API.G_EXC_ERROR;
9291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9293: END IF;
9294: END IF;
9287: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9288: x_return_status := l_return_status;
9289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9290: RAISE FND_API.G_EXC_ERROR;
9291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9293: END IF;
9294: END IF;
9295:
9288: x_return_status := l_return_status;
9289: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9290: RAISE FND_API.G_EXC_ERROR;
9291: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9293: END IF;
9294: END IF;
9295:
9296: /* ----------------------------------------------------------------------+
9300: l_effective_date,
9301: l_return_status
9302: );
9303:
9304: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9305: x_return_status := l_return_status;
9306: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9307: RAISE FND_API.G_EXC_ERROR;
9308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9302: );
9303:
9304: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9305: x_return_status := l_return_status;
9306: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9307: RAISE FND_API.G_EXC_ERROR;
9308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9310: END IF;
9303:
9304: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9305: x_return_status := l_return_status;
9306: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9307: RAISE FND_API.G_EXC_ERROR;
9308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9310: END IF;
9311: END IF;
9304: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9305: x_return_status := l_return_status;
9306: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9307: RAISE FND_API.G_EXC_ERROR;
9308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9310: END IF;
9311: END IF;
9312:
9305: x_return_status := l_return_status;
9306: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9307: RAISE FND_API.G_EXC_ERROR;
9308: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9309: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9310: END IF;
9311: END IF;
9312:
9313: IF l_legal_entity_id <> zx_global_structures_pkg.trx_line_dist_tbl.legal_entity_id(l_trx_line_index) THEN
9318: l_effective_date,
9319: l_return_status
9320: );
9321:
9322: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9323: x_return_status := l_return_status;
9324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9325: RAISE FND_API.G_EXC_ERROR;
9326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9320: );
9321:
9322: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9323: x_return_status := l_return_status;
9324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9325: RAISE FND_API.G_EXC_ERROR;
9326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9328: END IF;
9321:
9322: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9323: x_return_status := l_return_status;
9324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9325: RAISE FND_API.G_EXC_ERROR;
9326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9328: END IF;
9329: END IF;
9322: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9323: x_return_status := l_return_status;
9324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9325: RAISE FND_API.G_EXC_ERROR;
9326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9328: END IF;
9329: END IF;
9330: ELSE
9323: x_return_status := l_return_status;
9324: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9325: RAISE FND_API.G_EXC_ERROR;
9326: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9328: END IF;
9329: END IF;
9330: ELSE
9331: zx_security.g_effective_date := l_effective_date;
9344: ,p_event_class_rec.tax_event_type_code
9345: ,p_event_class_rec.doc_status_code
9346: );
9347:
9348: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9349: x_return_status := l_return_status;
9350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9351: RAISE FND_API.G_EXC_ERROR;
9352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9346: );
9347:
9348: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9349: x_return_status := l_return_status;
9350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9351: RAISE FND_API.G_EXC_ERROR;
9352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9354: END IF;
9347:
9348: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9349: x_return_status := l_return_status;
9350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9351: RAISE FND_API.G_EXC_ERROR;
9352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9354: END IF;
9355: END IF;
9348: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9349: x_return_status := l_return_status;
9350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9351: RAISE FND_API.G_EXC_ERROR;
9352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9354: END IF;
9355: END IF;
9356:
9349: x_return_status := l_return_status;
9350: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9351: RAISE FND_API.G_EXC_ERROR;
9352: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9354: END IF;
9355: END IF;
9356:
9357: /*----------------------------------+
9370: l_effective_date,
9371: p_event_class_rec
9372: );
9373:
9374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9375: x_return_status := l_return_status;
9376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9377: RAISE FND_API.G_EXC_ERROR;
9378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9372: );
9373:
9374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9375: x_return_status := l_return_status;
9376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9377: RAISE FND_API.G_EXC_ERROR;
9378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9380: END IF;
9373:
9374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9375: x_return_status := l_return_status;
9376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9377: RAISE FND_API.G_EXC_ERROR;
9378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9380: END IF;
9381: END IF;
9374: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9375: x_return_status := l_return_status;
9376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9377: RAISE FND_API.G_EXC_ERROR;
9378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9380: END IF;
9381: END IF;
9382: END IF;
9375: x_return_status := l_return_status;
9376: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9377: RAISE FND_API.G_EXC_ERROR;
9378: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9380: END IF;
9381: END IF;
9382: END IF;
9383:
9389: p_trx_line_index => l_trx_line_index,
9390: x_return_status => l_return_status
9391: );
9392:
9393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9394: x_return_status := l_return_status;
9395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9396: RAISE FND_API.G_EXC_ERROR;
9397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9391: );
9392:
9393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9394: x_return_status := l_return_status;
9395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9396: RAISE FND_API.G_EXC_ERROR;
9397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9399: END IF;
9392:
9393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9394: x_return_status := l_return_status;
9395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9396: RAISE FND_API.G_EXC_ERROR;
9397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9399: END IF;
9400: END IF;
9393: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9394: x_return_status := l_return_status;
9395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9396: RAISE FND_API.G_EXC_ERROR;
9397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9399: END IF;
9400: END IF;
9401:
9394: x_return_status := l_return_status;
9395: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9396: RAISE FND_API.G_EXC_ERROR;
9397: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9399: END IF;
9400: END IF;
9401:
9402: zx_global_structures_pkg.g_event_class_rec := p_event_class_rec;
9414: x_return_status => l_return_status,
9415: x_error_buffer => l_error_buffer
9416: );
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);
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;
9426: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9428: END IF;
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;
9426: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9428: END IF;
9429: END IF;
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;
9426: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9428: END IF;
9429: END IF;
9430:
9423: END IF;
9424: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9425: RAISE FND_API.G_EXC_ERROR;
9426: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9427: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9428: END IF;
9429: END IF;
9430:
9431: ZX_TRL_SUMMARY_OVERRIDE_PKG.lock_summ_tax_lines_for_doc(p_application_id => p_event_class_rec.application_id,
9434: p_trx_id => p_event_class_rec.trx_id,
9435: x_return_status => l_return_status,
9436: x_error_buffer => l_error_buffer
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);
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;
9446: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9448: END IF;
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;
9446: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9448: END IF;
9449: END IF;
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;
9446: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9448: END IF;
9449: END IF;
9450:
9443: END IF;
9444: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9445: RAISE FND_API.G_EXC_ERROR;
9446: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9448: END IF;
9449: END IF;
9450:
9451: ZX_TRL_DISTRIBUTIONS_PKG.lock_rec_nrec_dist_for_doc (p_application_id => p_event_class_rec.application_id,
9454: p_trx_id => p_event_class_rec.trx_id,
9455: x_return_status => l_return_status,
9456: x_error_buffer => l_error_buffer
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);
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;
9466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9468: END IF;
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;
9466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9468: END IF;
9469: END IF;
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;
9466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9468: END IF;
9469: END IF;
9470:
9463: END IF;
9464: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9465: RAISE FND_API.G_EXC_ERROR;
9466: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9468: END IF;
9469: END IF;
9470:
9471: END IF; --tax event type ='UPDATE'
9477: 'HEADER',
9478: l_return_status
9479: );
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;
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
9489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9490: END IF;
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
9489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9490: END IF;
9491: END IF;
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
9489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9490: END IF;
9491: END IF;
9492:
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
9489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9490: END IF;
9491: END IF;
9492:
9493: --Bugfix 4322369 - Call rounding API at document level
9500: l_return_status,
9501: l_error_buffer
9502: );
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);
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;
9512: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514: END IF;
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;
9512: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514: END IF;
9515: END IF;
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;
9512: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514: END IF;
9515: END IF;
9516:
9509: END IF;
9510: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9511: RAISE FND_API.G_EXC_ERROR;
9512: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9514: END IF;
9515: END IF;
9516:
9517: --Bugfix 4718307 - Call TDS to get the applicability flag for the party
9518: ZX_TDS_CALC_SERVICES_PUB_PKG.get_process_for_appl_flg (p_tax_prof_id => ZX_TDS_CALC_SERVICES_PUB_PKG.g_rnd_lvl_party_tax_prof_id,
9519: x_return_status => l_return_status
9520: );
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);
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;
9530: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9532: END IF;
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;
9530: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9532: END IF;
9533: END IF;
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;
9530: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9532: END IF;
9533: END IF;
9534:
9527: END IF;
9528: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9529: RAISE FND_API.G_EXC_ERROR;
9530: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9532: END IF;
9533: END IF;
9534:
9535: END IF; -- End of Trx Id Change check
9546: p_event_class_rec,
9547: l_return_status
9548: );
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);
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;
9558: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9560: END IF;
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;
9558: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9560: END IF;
9561: END IF;
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;
9558: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9560: END IF;
9561: END IF;
9562:
9555: END IF;
9556: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9557: RAISE FND_API.G_EXC_ERROR;
9558: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9560: END IF;
9561: END IF;
9562:
9563: IF zx_global_structures_pkg.trx_line_dist_tbl.INSERT_UPDATE_FLAG(l_trx_line_index) is not null AND
9571: l_trx_line_index,
9572: l_return_status
9573: );
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);
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
9583: RAISE FND_API.G_EXC_ERROR;
9584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9586: END IF;
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
9583: RAISE FND_API.G_EXC_ERROR;
9584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9586: END IF;
9587: END IF;
9580: END IF;
9581: -- Raise exception depending upon return_status
9582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9583: RAISE FND_API.G_EXC_ERROR;
9584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9586: END IF;
9587: END IF;
9588:
9581: -- Raise exception depending upon return_status
9582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
9583: RAISE FND_API.G_EXC_ERROR;
9584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9585: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9586: END IF;
9587: END IF;
9588:
9589: ELSIF l_flag = FALSE THEN
9594: +--------------------------------------------------------------*/
9595: Pop_Index_Attrbs_To_Null ( p_index => l_trx_line_index,
9596: x_return_status => l_return_status);
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);
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;
9606:
9607: END IF; -- End of Bug fix 5524869
9608:
9606:
9607: END IF; -- End of Bug fix 5524869
9608:
9609: EXCEPTION
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,'');
9672: p_event_class_rec => p_event_class_rec,
9673: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
9674: x_return_status => l_return_status
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);
9687: p_event_class_rec => p_event_class_rec,
9688: p_update_index => l_update_index,
9689: x_return_status => l_return_status
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);
9702: p_event_class_rec => p_event_class_rec,
9703: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
9704: x_return_status => l_return_status
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);
9716: p_event_class_rec => p_event_class_rec,
9717: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
9718: x_return_status => l_return_status
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);
9753: lock_line_det_facts (l_trx_line_index,
9754: p_event_class_rec,
9755: l_return_status
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);
9805: l_trx_line_index,
9806: l_return_status
9807: );
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);
10163: lock_line_det_facts(l_trx_line_index,
10164: p_event_class_rec,
10165: l_return_status
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);
10180: l_trx_line_index,
10181: l_return_status
10182: );
10183:
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,
10219: p_event_class_rec => p_event_class_rec,
10220: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
10221: x_return_status => l_return_status
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);
10235: p_event_class_rec => p_event_class_rec,
10236: p_update_index => l_update_index,
10237: x_return_status => l_return_status
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);
10250: p_event_class_rec => p_event_class_rec,
10251: p_insert_index => l_update_index+1,
10252: x_return_status => l_return_status
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);
10264: p_event_class_rec => p_event_class_rec,
10265: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
10266: x_return_status => l_return_status
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);
10280: p_event_class_rec => p_event_class_rec,
10281: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
10282: x_return_status => l_return_status
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);
10297: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
10298: x_return_status => l_return_status
10299: );
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);
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;
10334:
10335: END;
10336: /* ----------------------------------------------------------------------+
10337: | Get Tax Event Type |
10345: ,p_event_class_rec.tax_event_type_code
10346: ,p_event_class_rec.doc_status_code
10347: );
10348:
10349: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10350: x_return_status := l_return_status;
10351: Return;
10352: END IF;
10353:
10369: x_return_status => l_return_status,
10370: x_error_buffer => l_error_buffer
10371: );
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);
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;
10381:
10382: ZX_TRL_SUMMARY_OVERRIDE_PKG.lock_summ_tax_lines_for_doc(p_application_id => p_event_class_rec.application_id,
10383: p_entity_code => p_event_class_rec.entity_code,
10385: p_trx_id => p_event_class_rec.trx_id,
10386: x_return_status => l_return_status,
10387: x_error_buffer => l_error_buffer
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);
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;
10397:
10398: ZX_TRL_DISTRIBUTIONS_PKG.lock_rec_nrec_dist_for_doc (p_application_id => p_event_class_rec.application_id,
10399: p_entity_code => p_event_class_rec.entity_code,
10401: p_trx_id => p_event_class_rec.trx_id,
10402: x_return_status => l_return_status,
10403: x_error_buffer => l_error_buffer
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);
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;
10413:
10414: END IF; --tax event type ='UPDATE'
10415: -- nipatel
10432: call_lte (p_event_class_rec => p_event_class_rec,
10433: x_return_status => l_return_status
10434: );
10435:
10436: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10437: x_return_status := l_return_status;
10438: Return;
10439: END IF;
10440:
10477: ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_trx_id_index).effective_date,
10478: l_return_status
10479: );
10480:
10481: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10482: x_return_status := l_return_status;
10483: RAISE FND_API.G_EXC_ERROR;
10484: END IF;
10485:
10479: );
10480:
10481: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10482: x_return_status := l_return_status;
10483: RAISE FND_API.G_EXC_ERROR;
10484: END IF;
10485:
10486: call_lte (p_event_class_rec => l_event_class_rec,
10487: x_return_status => l_return_status
10486: call_lte (p_event_class_rec => l_event_class_rec,
10487: x_return_status => l_return_status
10488: );
10489:
10490: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10491: x_return_status := l_return_status;
10492: RAISE FND_API.G_EXC_ERROR;
10493: END IF;
10494:
10488: );
10489:
10490: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10491: x_return_status := l_return_status;
10492: RAISE FND_API.G_EXC_ERROR;
10493: END IF;
10494:
10495: EXCEPTION
10496: WHEN FND_API.G_EXC_ERROR THEN
10492: RAISE FND_API.G_EXC_ERROR;
10493: END IF;
10494:
10495: EXCEPTION
10496: WHEN FND_API.G_EXC_ERROR THEN
10497: ROLLBACK TO Calculate_Tax_LTE;
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;
10506: END LOOP;
10507:
10508: END IF;
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);
10532: END IF;
10533: END IF;
10534:
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);
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);
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:
10968: ZX_TCM_PTP_PKG.get_location_id(p_event_class_rec.internal_organization_id,
10969: l_internal_org_location_id,
10970: l_return_status
10969: l_internal_org_location_id,
10970: l_return_status
10971: );
10972:
10973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10974: x_return_status := l_return_status;
10975: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10976: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
10977: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
10971: );
10972:
10973: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
10974: x_return_status := l_return_status;
10975: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10976: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
10977: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
10978: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
10979: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
11414: p_event_class_rec => p_event_class_rec,
11415: x_return_status => l_return_status);
11416: END IF;
11417:
11418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11419: x_return_status := l_return_status;
11420: RAISE FND_API.G_EXC_ERROR;
11421: END IF;
11422:
11416: END IF;
11417:
11418: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11419: x_return_status := l_return_status;
11420: RAISE FND_API.G_EXC_ERROR;
11421: END IF;
11422:
11423:
11424: /* ----------------------------------------------------------------------+
11428: l_effective_date,
11429: l_return_status
11430: );
11431:
11432: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11433: x_return_status := l_return_status;
11434: RAISE FND_API.G_EXC_ERROR;
11435: END IF;
11436:
11430: );
11431:
11432: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11433: x_return_status := l_return_status;
11434: RAISE FND_API.G_EXC_ERROR;
11435: END IF;
11436:
11437: IF l_legal_entity_id <> zx_global_structures_pkg.trx_line_dist_tbl.legal_entity_id(l_trx_line_index) THEN
11438: /* ----------------------------------------------------------------------+
11442: l_effective_date,
11443: l_return_status
11444: );
11445:
11446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11447: x_return_status := l_return_status;
11448: RAISE FND_API.G_EXC_ERROR;
11449: END IF;
11450: ELSE
11444: );
11445:
11446: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11447: x_return_status := l_return_status;
11448: RAISE FND_API.G_EXC_ERROR;
11449: END IF;
11450: ELSE
11451: zx_security.g_effective_date := l_effective_date;
11452: zx_security.name_value('EFFECTIVEDATE',to_char(l_effective_date));
11464: ,p_event_class_rec.tax_event_type_code
11465: ,p_event_class_rec.doc_status_code
11466: );
11467:
11468: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11469: x_return_status := l_return_status;
11470: RAISE FND_API.G_EXC_ERROR;
11471: END IF;
11472:
11466: );
11467:
11468: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11469: x_return_status := l_return_status;
11470: RAISE FND_API.G_EXC_ERROR;
11471: END IF;
11472:
11473: IF l_legal_entity_id <> zx_global_structures_pkg.trx_line_dist_tbl.legal_entity_id(l_trx_line_index) THEN
11474: /* ----------------------------------------------------------------------+
11478: l_effective_date,
11479: p_event_class_rec
11480: );
11481:
11482: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11483: x_return_status := l_return_status;
11484: RAISE FND_API.G_EXC_ERROR;
11485: END IF;
11486: END IF;
11480: );
11481:
11482: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11483: x_return_status := l_return_status;
11484: RAISE FND_API.G_EXC_ERROR;
11485: END IF;
11486: END IF;
11487:
11488: /* ----------------------------------------------------------------------+
11494: p_trx_line_index => l_trx_line_index,
11495: x_return_status => l_return_status
11496: );
11497:
11498: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11499: x_return_status := l_return_status;
11500: RAISE FND_API.G_EXC_ERROR;
11501: END IF;
11502:
11496: );
11497:
11498: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
11499: x_return_status := l_return_status;
11500: RAISE FND_API.G_EXC_ERROR;
11501: END IF;
11502:
11503: zx_global_structures_pkg.g_event_class_rec := p_event_class_rec;
11504:
11510: l_return_status
11511: );
11512:
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;
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:
11522:
11523:
11530: l_return_status,
11531: l_error_buffer
11532: );
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);
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;
11542:
11543: --bug#6334533
11544: --need to call prorate_imported_sum_tax_lines for the whole document if any line
11565: ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines (p_event_class_rec,
11566: l_return_status
11567: );
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;
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;
11577: */
11578:
11580: ZX_TDS_CALC_SERVICES_PUB_PKG.get_process_for_appl_flg (p_tax_prof_id => ZX_TDS_CALC_SERVICES_PUB_PKG.g_rnd_lvl_party_tax_prof_id,
11581: x_return_status => l_return_status
11582: );
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);
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;
11592:
11593: END IF; -- trx header changed
11594:
11615: ZX_TDS_CALC_SERVICES_PUB_PKG.prorate_imported_sum_tax_lines (p_event_class_rec,
11616: l_return_status
11617: );
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;
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;
11627: END IF;
11628: END IF;
11646: 'LINE',
11647: l_return_status
11648: );
11649:
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,
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;
11659:
11660: /* ----------------------------------------------------+
11661: | Derive Internal_Flag Parameters |
11664: l_trx_line_index,
11665: p_event_class_rec
11666: );
11667:
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,
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;
11677:
11678: BEGIN
11679: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
12024: p_event_class_rec,
12025: l_return_status
12026: );
12027:
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,
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;
12037: END IF; --line level action is CREATE
12038: /**************************PARTNER CODE START - Point 1b****************************/
12039: /*Stamp the provider information on the regimes table returned by the get_tax_regimes procedure
12045: ,l_trx_line_index
12046: ,l_return_status
12047: );
12048:
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,
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;
12058:
12059: /* -----------------------------------------------+
12060: | Call TCM Location Caching API |
12064: ,p_event_class_rec
12065: ,l_return_status
12066: );
12067:
12068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12069: x_return_status := l_return_status;
12070: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12071: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index);
12072: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index);
12066: );
12067:
12068: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12069: x_return_status := l_return_status;
12070: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12071: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index);
12072: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index);
12073: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
12074: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
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;
12085:
12086: END IF; -- zx_global_structures_pkg.g_ptnr_srvc_subscr_flag = 'Y'
12087:
12107: ZX_TDS_CALC_SERVICES_PUB_PKG.calculate_tax_for_import(l_trx_line_index,
12108: p_event_class_rec,
12109: l_return_status
12110: );
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,
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;
12120:
12121: /* Handle LTE outside the loop
12122: ELSIF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
12122: ELSIF nvl(p_event_class_rec.TAX_METHOD_CODE,'EBTAX') = 'LTE' THEN
12123: ZX_PRODUCT_INTEGRATION_PKG.import_document_with_tax(p_event_class_rec => p_event_class_rec,
12124: x_return_status => l_return_status
12125: );
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,
12139:
12140: END IF; -- End of Bug fix 5524869
12141:
12142: EXCEPTION
12143: WHEN FND_API.G_EXC_ERROR THEN
12144: ROLLBACK TO Import_Doc;
12145: --Commented by ssohal
12146: --populate_errors(p_event_class_rec,l_return_status); --this will retest l_return_status
12147: ZX_API_PUB.dump_msg;
12178: IF ( ZX_TDS_CALC_SERVICES_PUB_PKG.g_detail_tax_lines_tbl.LAST >= 1000) THEN
12179:
12180: ZX_TDS_CALC_SERVICES_PUB_PKG.dump_detail_tax_lines_into_gt(x_return_status => l_return_status );
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;
12202: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
12203: x_return_status => l_return_status
12204: );
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);
12268: ZX_GLOBAL_STRUCTURES_PKG.ptnr_tax_regime_tbl(l_trx_id_index).effective_date,
12269: l_return_status
12270: );
12271:
12272: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12273: x_return_status := l_return_status;
12274: RAISE FND_API.G_EXC_ERROR;
12275: END IF;
12276:
12270: );
12271:
12272: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12273: x_return_status := l_return_status;
12274: RAISE FND_API.G_EXC_ERROR;
12275: END IF;
12276:
12277: call_lte (p_event_class_rec => l_event_class_rec,
12278: x_return_status => l_return_status
12277: call_lte (p_event_class_rec => l_event_class_rec,
12278: x_return_status => l_return_status
12279: );
12280:
12281: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12282: x_return_status := l_return_status;
12283: RAISE FND_API.G_EXC_ERROR;
12284: END IF;
12285:
12279: );
12280:
12281: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
12282: x_return_status := l_return_status;
12283: RAISE FND_API.G_EXC_ERROR;
12284: END IF;
12285:
12286: EXCEPTION
12287: WHEN FND_API.G_EXC_ERROR THEN
12283: RAISE FND_API.G_EXC_ERROR;
12284: END IF;
12285:
12286: EXCEPTION
12287: WHEN FND_API.G_EXC_ERROR THEN
12288: ROLLBACK TO Calculate_Tax_LTE;
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;
12300: -- been handled by the exception already, end of this
12301: -- loop set status to successful to commit other
12302: -- invoices that went through fine w/o error
12303:
12304: x_return_status := FND_API.G_RET_STS_SUCCESS;
12305:
12306: END IF;
12307:
12308:
12331: ELSE
12332: ptnr_bulk_calc_tax_pvt(x_return_status => l_return_status);
12333: END IF;
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);
12353: END IF;
12354:
12355: EXCEPTION
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;
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:
12390: OPEN get_overridden_lines(p_event_class_rec.event_id);
12391: LOOP
12392: FETCH get_overridden_lines BULK COLLECT INTO
12674: ZX_TDS_CALC_SERVICES_PUB_PKG.initialize (p_event_class_rec ,
12675: 'LINE' ,
12676: l_return_status
12677: );
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,
12696: ,p_event_class_rec
12697: ,l_return_status
12698: );
12699:
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,
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;
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:
12756: OPEN get_overridden_lines(p_event_class_rec.event_id);
12757: LOOP
12758: FETCH get_overridden_lines BULK COLLECT INTO
13042: 'LINE' ,
13043: l_return_status
13044: );
13045:
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,
13065: ,p_event_class_rec
13066: ,l_return_status
13067: );
13068:
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,
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;
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: /*--------------------------------------------------+
13144: | Call Service Type Override Summary or Override |
13145: | Detail Tax Lines depending of the overriding |
13148: IF p_override_level = 'SUMMARY_OVERRIDE' THEN
13149: override_summary_tax_lines(p_event_class_rec,
13150: l_return_status
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);
13160: ELSIF p_override_level = 'DETAIL_OVERRIDE' THEN
13161: override_detail_tax_lines(p_event_class_rec,
13162: l_return_status
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;
13172: END IF;
13173: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
13174: x_return_status := l_return_status;
13175: RETURN;
13176: END IF;
13177:
13193: p_ptnr_tax_lines_insert => l_ptnr_tax_lines_insert,
13194: x_return_status => l_return_status
13195: );
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);
13239: , p_ptnr_processing_flag => ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag
13240: , p_event_class_rec => p_event_class_rec
13241: , x_return_status => l_return_status);
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);
13255: 'DERIVE_HDR_ATTRS',
13256: l_return_status
13257: );
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);
13271: p_event_class_rec,
13272: l_return_status
13273: );
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);
13286: p_event_class_rec,
13287: l_return_status
13288: );
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);
13306: p_provider_id => null,
13307: x_return_status => l_return_status
13308: );
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);
13341: partner_inclusive_tax_override(p_event_class_rec,
13342: l_return_status
13343: );
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);
13357: END IF;
13358:
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;
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: /* --------------------------------------------------------------------------------+
13393: |For tax event type UNFREEZE FOR TAX, confirmation from partner is first required |
13394: |since partner may have already reported tax to authority. Hence call to TRL |
13403: p_event_class_rec,
13404: p_tax_hold_released_code
13405: );
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);
13434: p_event_class_rec,
13435: l_return_status
13436: );
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);
13455: p_event_class_rec,
13456: p_tax_hold_released_code
13457: );
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);
13472: END IF;
13473:
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;
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: /* -------------------------------------------------------+
13507: | Mark Tax Lines Delete |
13508: + -------------------------------------------------------*/
13507: | Mark Tax Lines Delete |
13508: + -------------------------------------------------------*/
13509: ZX_TRL_PUB_PKG.mark_tax_lines_delete(l_return_status,p_trx_line_rec);
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);
13522: END IF;
13523:
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;
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: /* -------------------------------------------------------+
13876: | Reverse Document |
13877: + -------------------------------------------------------*/
13878: ZX_TDS_CALC_SERVICES_PUB_PKG.reverse_document(p_event_class_rec,
13879: l_return_status
13880: );
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);
14203: p_insert_index => zx_global_structures_pkg.trx_line_dist_tbl.APPLICATION_ID.FIRST,
14204: x_return_status => l_return_status
14205: );
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);
14222: p_ptnr_tax_lines_insert => l_ptnr_tax_lines_insert,
14223: x_return_status => l_return_status
14224: );
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);
14271: ,p_event_class_rec
14272: ,l_return_status
14273: );
14274:
14275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14276: x_return_status := l_return_status;
14277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
14278: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index);
14279: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index);
14273: );
14274:
14275: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
14276: x_return_status := l_return_status;
14277: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
14278: l_context_info_rec.APPLICATION_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.APPLICATION_ID(l_trx_line_index);
14279: l_context_info_rec.ENTITY_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ENTITY_CODE(l_trx_line_index);
14280: l_context_info_rec.EVENT_CLASS_CODE := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.EVENT_CLASS_CODE(l_trx_line_index);
14281: l_context_info_rec.TRX_ID := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TRX_ID(l_trx_line_index);
14297:
14298: partner_location_population (p_event_class_rec => p_event_class_rec,
14299: x_return_status => l_return_status);
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);
14315: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag,
14316: p_event_class_rec,
14317: l_return_status
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);
14331: 'DERIVE_HDR_ATTRS',
14332: l_return_status
14333: );
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);
14345: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).tax_provider_id,
14346: 'DERIVE_LINE_ATTRS',
14347: l_return_status
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);
14360: 'CALCULATE_TAX',
14361: p_event_class_rec,
14362: l_return_status
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);
14381: END IF;
14382:
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;
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: /* -------------------------------------------------------+
14415: | Reverse Distributions |
14416: + -------------------------------------------------------*/
14415: | Reverse Distributions |
14416: + -------------------------------------------------------*/
14417: ZX_TRD_SERVICES_PUB_PKG.reverse_distributions(l_return_status);
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);
14431: END IF;
14432:
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;
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:
14466: /* -------------------------------------------------------+
14467: | Determine recovery |
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:
14466: /* -------------------------------------------------------+
14467: | Determine recovery |
14468: + -------------------------------------------------------*/
14470: ZX_TRD_SERVICES_PUB_PKG.determine_recovery(p_event_class_rec,
14471: l_return_status
14472: );
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);
14486: END IF;
14487:
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;
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,
14521: x_return_status
14522: );
14520: ZX_TRD_SERVICES_PUB_PKG.override_recovery(p_event_class_rec,
14521: x_return_status
14522: );
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);
14536: END IF;
14537:
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;
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: /* -------------------------------------------------------+
14572: | Freeze tax distributions |
14573: + -------------------------------------------------------*/
14574: ZX_TRL_PUB_PKG.freeze_taxdistributions(l_return_status,
14575: p_event_class_rec
14576: );
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);
14590: END IF;
14591:
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;
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: /* -------------------------------------------------------+
14628: | Validate document for tax |
14629: + -------------------------------------------------------*/
14633: x_validate_status => x_validation_status,
14634: x_return_status => l_return_status
14635: );
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);
14649: END IF;
14650:
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;
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: /* -------------------------------------------------------+
14686: | Discard tax only lines |
14687: + -------------------------------------------------------*/
14689: ZX_TRL_PUB_PKG.discard_tax_only_lines(l_return_status,
14690: p_event_class_rec
14691: );
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);
14723: 'DERIVE_HDR_ATTRS',
14724: l_return_status
14725: );
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);
14739: p_event_class_rec,
14740: l_return_status
14741: );
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);
14754: p_event_class_rec,
14755: l_return_status
14756: );
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);
14773: p_provider_id => null,
14774: x_return_status => l_return_status
14775: );
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);
14791: END IF;
14792:
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;
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: /* -------------------------------------------------------+
14830: | Discard tax only lines |
14831: + -------------------------------------------------------*/
14928: ZX_GLOBAL_STRUCTURES_PKG.tax_regime_tbl(l_regime_index).partner_processing_flag,
14929: p_event_class_rec,
14930: l_return_status
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);
14949: 'DERIVE_HDR_ATTRS',
14950: l_return_status
14951: );
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);
14969: p_event_class_rec,
14970: l_return_status
14971: );
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);
14999: END IF;
15000:
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;
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:
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
15063: ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.INTERNAL_ORG_LOCATION_ID(l_trx_index),
15064: l_return_status
15065: );
15066:
15067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15068: x_return_status := l_return_status;
15069: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
15070: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
15071: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
15065: );
15066:
15067: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
15068: x_return_status := l_return_status;
15069: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
15070: l_context_info_rec.APPLICATION_ID := p_event_class_rec.APPLICATION_ID;
15071: l_context_info_rec.ENTITY_CODE := p_event_class_rec.ENTITY_CODE;
15072: l_context_info_rec.EVENT_CLASS_CODE := p_event_class_rec.EVENT_CLASS_CODE;
15073: l_context_info_rec.TRX_ID := p_event_class_rec.TRX_ID;
15105: l_trx_index,
15106: p_event_class_rec
15107: );
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);
15196: p_event_class_rec => p_event_class_rec,
15197: p_insert_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.FIRST,
15198: x_return_status => l_return_status
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);
15226: p_update_index => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.application_id.LAST,
15227: x_return_status => l_return_status
15228: );
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);
15242: G_PKG_NAME||': '||l_api_name||'()-'||' RETURN_STATUS = ' || x_return_status);
15243: END IF;
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;
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:
15283: IF p_event ='UPDATE' THEN
15284: UPDATE ZX_LINES
15285: SET sync_with_prvdr_flag ='N'
15303: END IF;
15304:
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;
15346: ', p_party_site_id: '||to_char(p_party_site_id)
15347: );
15348: END IF;
15349:
15350: x_return_status := FND_API.G_RET_STS_SUCCESS;
15351:
15352: IF p_party_id IS NOT NULL THEN
15353: l_party_index := p_party_type_code||to_char(p_party_id);
15354: IF (p_party_tax_prof_id_tbl.EXISTS(l_party_index)) THEN
15362: ,x_tax_prof_id
15363: ,l_return_status
15364: );
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);
15387: ,x_tax_prof_id
15388: ,l_return_status
15389: );
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);
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:
15455: --Defaulting Automation accepts event class rec as IN OUT parameter while it is a IN parameter here
15456: --Hence need to populate event class details into intermediate record l_event_class_rec
15457: --Populating only those used by the defaulting automation API
15502: l_upg_trx_info_rec.trx_id := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.adjusted_doc_trx_id(p_trx_line_index);
15503: ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(p_upg_trx_info_rec => l_upg_trx_info_rec,
15504: x_return_status => l_return_status
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);
15581: l_upg_trx_info_rec.trx_id := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.applied_from_trx_id(p_trx_line_index);
15582: ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(p_upg_trx_info_rec => l_upg_trx_info_rec,
15583: x_return_status => l_return_status
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);
15691: l_upg_trx_info_rec.trx_id := ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.source_trx_id(p_trx_line_index);
15692: ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(p_upg_trx_info_rec => l_upg_trx_info_rec,
15693: x_return_status => l_return_status
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);
15765: p_tax_invoice_number=> ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TAX_INVOICE_NUMBER(p_trx_line_index),
15766: p_tax_invoice_date => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.TAX_INVOICE_DATE(p_trx_line_index),
15767: x_return_status => l_return_status
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);
15791: END IF;
15792:
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;
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:
16222: OPEN lines(p_event_class_rec);
16223: LOOP
16224: FETCH lines BULK COLLECT INTO
16573: call_redefaulting_APIs(p_event_class_rec => p_event_class_rec,
16574: p_trx_line_index => l_trx_line_index,
16575: x_return_status => l_return_status
16576: );
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,
16596: ZX_DEFAULT_AUTOMATION_PKG.default_tax_attributes_for_po(p_trx_line_index => l_trx_line_index,
16597: x_return_status => l_return_status
16598: );
16599:
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,
16620: p_event_class_rec => p_event_class_rec,
16621: x_return_status => l_return_status
16622: );
16623:
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,
16647: p_line_amt => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.LINE_AMT(l_trx_line_index),
16648: x_assessable_value => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ASSESSABLE_VALUE(l_trx_line_index),
16649: x_return_status => l_return_status
16650: );
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,
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;
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:
16891: -- Bug#7045194
16892: l_tcc_valid := 0;
16893:
16943: l_upg_trx_info_rec.trx_id := p_event_class_rec.trx_id;
16944: ZX_ON_FLY_TRX_UPGRADE_PKG.upgrade_trx_on_fly(p_upg_trx_info_rec => l_upg_trx_info_rec,
16945: x_return_status => l_return_status
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);
16962: p_item_org_id => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.PRODUCT_ORG_ID(p_trx_line_index) ,
16963: x_intended_use => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.LINE_INTENDED_USE(p_trx_line_index),
16964: x_return_status => l_return_status
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);
16982: x_prod_fisc_class_code => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.PRODUCT_FISC_CLASSIFICATION(p_trx_line_index),
16983: x_return_status => l_return_status
16984: );
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);
17004: p_line_amt => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.LINE_AMT(p_trx_line_index),
17005: x_assessable_value => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ASSESSABLE_VALUE(p_trx_line_index),
17006: x_return_status => l_return_status
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);
17028: p_default_code => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.PRODUCT_TYPE(p_trx_line_index),
17029: p_return_status => l_return_status
17030: );
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);
17073: x_intended_use => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.LINE_INTENDED_USE(p_trx_line_index),
17074: x_return_status => l_return_status
17075: );
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);
17097: p_default_code => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.PRODUCT_TYPE(p_trx_line_index),
17098: p_return_status => l_return_status
17099: );
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);
17124: x_prod_fisc_class_code => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.PRODUCT_FISC_CLASSIFICATION(p_trx_line_index),
17125: x_return_status => l_return_status
17126: );
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);
17152: p_line_amt => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.LINE_AMT(p_trx_line_index),
17153: x_assessable_value => ZX_GLOBAL_STRUCTURES_PKG.trx_line_dist_tbl.ASSESSABLE_VALUE(p_trx_line_index),
17154: x_return_status => l_return_status
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);
17260: p_return_status => l_return_status,
17261: p_error_buffer => l_error_buffer
17262: );
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);
17286: END IF;
17287:
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;
17311: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
17312: ', RETURN_STATUS = ' || x_return_status);
17313: END IF;
17314:
17315: x_return_status := FND_API.G_RET_STS_SUCCESS;
17316:
17317: IF zx_global_structures_pkg.trx_line_dist_tbl.source_event_class_code(p_trx_line_index)
17318: <> 'INTERCOMPANY_TRX'
17319: THEN
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);
17373: '.BEGIN',G_PKG_NAME||': '||l_api_name||'()+'||
17374: ', RETURN_STATUS = ' || x_return_status);
17375: END IF;
17376:
17377: x_return_status := FND_API.G_RET_STS_SUCCESS;
17378:
17379: FOR i IN 1 .. ZX_API_PUB.errors_tbl.application_id.COUNT LOOP
17380: IF ZX_API_PUB.errors_tbl.application_id(i) IS NULL THEN
17381: ZX_API_PUB.errors_tbl.application_id(i) := p_event_class_rec.APPLICATION_ID;
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);
17485: END IF;
17486:
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;