10: -- Start of comments
11: --
12: -- Function Name : check_int_calc_done.
13: -- Description : Returns 'Y' if last int calc was after last scheduled calculation
14: -- Business Rules : Called from OKL_AM_CREATE_QUOTE_PVT, OKL_AM_TERMNT_QUOTE_PVT and OKL_AM_LEASE_TRMNT_PVT
15: -- Parameters :
16: -- Version : 1.0
17: -- History : RMUNJULU LOANS_ENHACEMENT
18: -- : SECHAWLA 20-JAN-06 4970009 : Added the interest calculation check for lease contracts
1398: -- Start of comments
1399: --
1400: -- Function Name : check_billing_done.
1401: -- Description : Returns 'Y' if BILLING DONE, Else 'N' or NULL
1402: -- Business Rules : Called from OKL_AM_TERMNT_QUOTE_PVT and OKL_AM_LEASE_TRMNT_PVT
1403: -- Parameters :
1404: -- Version : 1.0
1405: -- History : RMUNJULU 3061751 23-SEP-2003 Created
1406: -- RMUNJULU 05-JAN-04 SERVICE K UPDATES
3047:
3048: ELSIF (l_lease_or_loan = 'LEASE') THEN
3049:
3050: IF (is_debug_statement_on) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.lease_termination');
3052: END IF;
3053: OKL_AM_LEASE_TRMNT_PVT.lease_termination(
3054: p_api_version => p_api_version,
3055: p_init_msg_list => p_init_msg_list,
3049:
3050: IF (is_debug_statement_on) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.lease_termination');
3052: END IF;
3053: OKL_AM_LEASE_TRMNT_PVT.lease_termination(
3054: p_api_version => p_api_version,
3055: p_init_msg_list => p_init_msg_list,
3056: x_return_status => l_return_status,
3057: x_msg_count => x_msg_count,
3058: x_msg_data => x_msg_data,
3059: p_term_rec => lp_term_rec,
3060: p_tcnv_rec => l_tcnv_rec);
3061: IF (is_debug_statement_on) THEN
3062: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.lease_termination , return status: ' || l_return_status);
3063: END IF;
3064:
3065: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3066: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3441: p_term_rec IN term_rec_type,
3442: p_call_origin IN VARCHAR2 DEFAULT NULL,
3443: p_termination_date IN DATE) IS
3444:
3445: p_asset_tbl_k OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
3446: l_asset_tbl_l OKL_AM_CNTRCT_LN_TRMNT_PVT.klev_tbl_type;
3447: l_asset_tbl OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
3448: l_asbv_tbl okl_subsidy_process_pvt.asbv_tbl_type;
3449: l_sty_id NUMBER;
3443: p_termination_date IN DATE) IS
3444:
3445: p_asset_tbl_k OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
3446: l_asset_tbl_l OKL_AM_CNTRCT_LN_TRMNT_PVT.klev_tbl_type;
3447: l_asset_tbl OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
3448: l_asbv_tbl okl_subsidy_process_pvt.asbv_tbl_type;
3449: l_sty_id NUMBER;
3450: l_parent_line_id NUMBER;
3451: l_date_accepted DATE;
3781:
3782: ELSE -- Full Termination
3783:
3784: IF (is_debug_statement_on) THEN
3785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
3786: END IF;
3787: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3788: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3789: p_api_version => p_api_version,
3783:
3784: IF (is_debug_statement_on) THEN
3785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
3786: END IF;
3787: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3788: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3789: p_api_version => p_api_version,
3790: p_init_msg_list => OKL_API.G_FALSE,
3791: x_return_status => l_return_status,
3784: IF (is_debug_statement_on) THEN
3785: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
3786: END IF;
3787: -- get line details from OKL_AM_LEASE_TRMNT_PVT
3788: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
3789: p_api_version => p_api_version,
3790: p_init_msg_list => OKL_API.G_FALSE,
3791: x_return_status => l_return_status,
3792: x_msg_count => l_msg_count,
3793: x_msg_data => l_msg_data,
3794: p_term_rec => p_term_rec,
3795: x_klev_tbl => l_asset_tbl);
3796: IF (is_debug_statement_on) THEN
3797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status: ' || l_return_status);
3798: END IF;
3799:
3800: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3801: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4815: l_api_version CONSTANT NUMBER := 1;
4816: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS; -- rmunjulu TNA Defaulted
4817: l_msg_count NUMBER;
4818: l_msg_data VARCHAR2(2000);
4819: lx_asset_tbl OKL_AM_LEASE_TRMNT_PVT.klev_tbl_type;
4820: l_taiv_rec taiv_rec_type;
4821: lx_taiv_rec taiv_rec_type;
4822: l_tilv_rec tilv_rec_type;
4823: lx_tilv_rec tilv_rec_type;
4981: IF p_term_rec.p_quote_type = 'TER_RELEASE_WO_PURCHASE'
4982: AND p_call_origin = 'FULL'
4983: THEN
4984: IF (is_debug_statement_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
4986: END IF;
4987: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4988: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4989: p_api_version => p_api_version,
4983: THEN
4984: IF (is_debug_statement_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
4986: END IF;
4987: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4988: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4989: p_api_version => p_api_version,
4990: p_init_msg_list => OKL_API.G_FALSE,
4991: x_return_status => l_return_status,
4984: IF (is_debug_statement_on) THEN
4985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_LEASE_TRMNT_PVT.get_contract_lines');
4986: END IF;
4987: -- get line details from OKL_AM_LEASE_TRMNT_PVT
4988: OKL_AM_LEASE_TRMNT_PVT.get_contract_lines(
4989: p_api_version => p_api_version,
4990: p_init_msg_list => OKL_API.G_FALSE,
4991: x_return_status => l_return_status,
4992: x_msg_count => l_msg_count,
4993: x_msg_data => l_msg_data,
4994: p_term_rec => p_term_rec,
4995: x_klev_tbl => lx_asset_tbl);
4996: IF (is_debug_statement_on) THEN
4997: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_LEASE_TRMNT_PVT.get_contract_lines , return status : ' || l_return_status);
4998: END IF;
4999:
5000: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)
5001: THEN