1: PACKAGE BODY OKL_BLK_AST_UPD_PVT AS
2: /* $Header: OKLRBAUB.pls 120.18 2008/05/28 01:18:55 sechawla noship $ */
3:
4: G_MODULE VARCHAR2(255) := 'okl.stream.esg.okl_esg_transport_pvt';
5: G_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
309: IF (G_DEBUG_ENABLED = 'Y') THEN
310: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
311: END IF;
312: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
313: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location','Begin(+)');
314: END IF;
315:
316: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
317: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Input variables in Update Location');
971: IF (p_loc_tbl.COUNT > 0) THEN
972: i := p_loc_tbl.FIRST;
973: --Print Input Variables
974: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
975: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
976: 'parent_line_id :'||p_loc_tbl(i).parent_line_id);
977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
978: 'loc_id :'||p_loc_tbl(i).loc_id);
979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
973: --Print Input Variables
974: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
975: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
976: 'parent_line_id :'||p_loc_tbl(i).parent_line_id);
977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
978: 'loc_id :'||p_loc_tbl(i).loc_id);
979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
980: 'party_site_id :'||p_loc_tbl(i).party_site_id);
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
975: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
976: 'parent_line_id :'||p_loc_tbl(i).parent_line_id);
977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
978: 'loc_id :'||p_loc_tbl(i).loc_id);
979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
980: 'party_site_id :'||p_loc_tbl(i).party_site_id);
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
982: 'newsite_id1 :'||p_loc_tbl(i).newsite_id1);
983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
977: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
978: 'loc_id :'||p_loc_tbl(i).loc_id);
979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
980: 'party_site_id :'||p_loc_tbl(i).party_site_id);
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
982: 'newsite_id1 :'||p_loc_tbl(i).newsite_id1);
983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
984: 'newsite_id2 :'||p_loc_tbl(i).newsite_id2);
985: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
979: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
980: 'party_site_id :'||p_loc_tbl(i).party_site_id);
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
982: 'newsite_id1 :'||p_loc_tbl(i).newsite_id1);
983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
984: 'newsite_id2 :'||p_loc_tbl(i).newsite_id2);
985: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
986: 'oldsite_id1 :'||p_loc_tbl(i).oldsite_id1);
987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
981: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
982: 'newsite_id1 :'||p_loc_tbl(i).newsite_id1);
983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
984: 'newsite_id2 :'||p_loc_tbl(i).newsite_id2);
985: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
986: 'oldsite_id1 :'||p_loc_tbl(i).oldsite_id1);
987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
988: 'oldsite_id2 :'||p_loc_tbl(i).oldsite_id2);
989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
983: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
984: 'newsite_id2 :'||p_loc_tbl(i).newsite_id2);
985: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
986: 'oldsite_id1 :'||p_loc_tbl(i).oldsite_id1);
987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
988: 'oldsite_id2 :'||p_loc_tbl(i).oldsite_id2);
989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
990: 'date_from :'||p_loc_tbl(i).date_from);
991: END IF;
985: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
986: 'oldsite_id1 :'||p_loc_tbl(i).oldsite_id1);
987: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
988: 'oldsite_id2 :'||p_loc_tbl(i).oldsite_id2);
989: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'OKL_BLK_AST_UPD_PVT.Update_Location',
990: 'date_from :'||p_loc_tbl(i).date_from);
991: END IF;
992: LOOP
993: update_location (
1015: raise OKL_API.G_EXCEPTION_ERROR;
1016: End If;
1017: OKL_API.END_ACTIVITY (x_msg_count, x_msg_data);
1018: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location ','End(-)');
1020: END IF;
1021: EXCEPTION
1022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1023: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1020: END IF;
1021: EXCEPTION
1022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1023: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1024: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
1025: 'EXCEPTION :'|| 'OKL_API.G_EXCEPTION_ERROR');
1026: END IF;
1027: x_return_status := OKL_API.G_RET_STS_ERROR;
1028: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1026: END IF;
1027: x_return_status := OKL_API.G_RET_STS_ERROR;
1028: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1029: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1030: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
1031: 'EXCEPTION :'|| 'OKL_API.G_EXCEPTION_UNEXPECTED_ERROR');
1032: END IF;
1033: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1034: WHEN OTHERS THEN
1032: END IF;
1033: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1034: WHEN OTHERS THEN
1035: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'OKL_BLK_AST_UPD_PVT.Update_Location ',
1037: 'EXCEPTION :'||sqlerrm);
1038: END IF;
1039: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1040: -- unexpected error
1390: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1391: END IF;
1392:
1393: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1394: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Create_Upfront_Tax_Accounting','Begin(+)');
1395: END IF;
1396:
1397: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1398:
1701:
1702: END IF; -- AMB Check
1703:
1704: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1705: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Create_Upfront_Tax_Accounting','End(+)');
1706: END IF;
1707:
1708: EXCEPTION
1709: WHEN upfront_tax_acct_exception
1820: IF (G_DEBUG_ENABLED = 'Y') THEN
1821: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1822: END IF;
1823: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1824: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,'OKL_BLK_AST_UPD_PVT.Update_Location','Begin(+)');
1825: END IF;
1826:
1827: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1828: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'Input variables in Update Location');
2024: RAISE OKC_API.G_EXCEPTION_ERROR;
2025: END IF;
2026:
2027: --Bug# 6619311
2028: OKL_BLK_AST_UPD_PVT.create_upfront_tax_accounting(
2029: p_api_version => p_api_version
2030: ,p_init_msg_list => p_init_msg_list
2031: ,p_contract_id => l_chr_id
2032: ,p_line_id => p_kle_id
2154: '_PVT');
2155:
2156: END process_update_location;
2157:
2158: END OKL_BLK_AST_UPD_PVT;