63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_trn_date: '|| p_trn_date);
64: END IF;
65:
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
68: END IF;
69: -- Get the contract product details
70: OKL_AM_UTIL_PVT.get_contract_product_details(
71: p_khr_id => p_contract_id,
66: IF (is_debug_statement_on) THEN
67: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_product_details');
68: END IF;
69: -- Get the contract product details
70: OKL_AM_UTIL_PVT.get_contract_product_details(
71: p_khr_id => p_contract_id,
72: x_deal_type => l_deal_type,
73: x_rev_rec_method => l_rev_rec_method,
74: x_int_cal_basis => l_int_cal_basis,
74: x_int_cal_basis => l_int_cal_basis,
75: x_tax_owner => l_tax_owner,
76: x_return_status => l_return_status);
77: IF (is_debug_statement_on) THEN
78: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_product_details , return status: ' || l_return_status);
79: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_deal_type: ' || l_deal_type);
80: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_rev_rec_method: ' || l_rev_rec_method);
81: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_int_cal_basis: ' || l_int_cal_basis);
82: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_tax_owner: ' || l_tax_owner);
1849:
1850:
1851: -- RMUNJULU -- 11-DEC-02 Bug # 2484327 -- Added variables for checking
1852: -- related to asset level termination
1853: lx_trn_tbl OKL_AM_UTIL_PVT.trn_tbl_type;
1854: i NUMBER;
1855:
1856: -- RMUNJULU 18-DEC-02 2484327 -- Added variable for checking
1857: -- related to asset level termination
1854: i NUMBER;
1855:
1856: -- RMUNJULU 18-DEC-02 2484327 -- Added variable for checking
1857: -- related to asset level termination
1858: lx_quote_tbl OKL_AM_UTIL_PVT.quote_tbl_type;
1859:
1860:
1861:
1862: BEGIN
1988: -- *****************
1989:
1990:
1991: IF (is_debug_statement_on) THEN
1992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
1993: END IF;
1994: -- Get all the unprocessed transactions for the contract
1995: OKL_AM_UTIL_PVT.get_contract_transactions (
1996: p_khr_id => k_header_rec.id,
1991: IF (is_debug_statement_on) THEN
1992: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
1993: END IF;
1994: -- Get all the unprocessed transactions for the contract
1995: OKL_AM_UTIL_PVT.get_contract_transactions (
1996: p_khr_id => k_header_rec.id,
1997: x_trn_tbl => lx_trn_tbl,
1998: x_return_status => l_return_status);
1999: IF (is_debug_statement_on) THEN
1996: p_khr_id => k_header_rec.id,
1997: x_trn_tbl => lx_trn_tbl,
1998: x_return_status => l_return_status);
1999: IF (is_debug_statement_on) THEN
2000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2001: END IF;
2002:
2003:
2004: -- Check the return status
2030: -- IF NO accepted quote with no trn exists for contract then error
2031: -- *****************
2032:
2033: IF (is_debug_statement_on) THEN
2034: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2035: END IF;
2036: -- Get accepted quote for contract with no trn
2037: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2038: p_khr_id => k_header_rec.id,
2033: IF (is_debug_statement_on) THEN
2034: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2035: END IF;
2036: -- Get accepted quote for contract with no trn
2037: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2038: p_khr_id => k_header_rec.id,
2039: x_quote_tbl => lx_quote_tbl,
2040: x_return_status => l_return_status);
2041: IF (is_debug_statement_on) THEN
2038: p_khr_id => k_header_rec.id,
2039: x_quote_tbl => lx_quote_tbl,
2040: x_return_status => l_return_status);
2041: IF (is_debug_statement_on) THEN
2042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2043: END IF;
2044:
2045: -- Check the return status
2046: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2098: -- IF unprocessed FULL termination trn exists for the contract then error
2099: -- *****************
2100:
2101: IF (is_debug_statement_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
2103: END IF;
2104: -- Get all the unprocessed transactions for the contract
2105: OKL_AM_UTIL_PVT.get_contract_transactions (
2106: p_khr_id => k_header_rec.id,
2101: IF (is_debug_statement_on) THEN
2102: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_contract_transactions');
2103: END IF;
2104: -- Get all the unprocessed transactions for the contract
2105: OKL_AM_UTIL_PVT.get_contract_transactions (
2106: p_khr_id => k_header_rec.id,
2107: x_trn_tbl => lx_trn_tbl,
2108: x_return_status => l_return_status);
2109: IF (is_debug_statement_on) THEN
2106: p_khr_id => k_header_rec.id,
2107: x_trn_tbl => lx_trn_tbl,
2108: x_return_status => l_return_status);
2109: IF (is_debug_statement_on) THEN
2110: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_contract_transactions , return status: ' || l_return_status);
2111: END IF;
2112:
2113: -- Check the return status
2114: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
2791: l_partial_yn VARCHAR2(1) := 'N';
2792:
2793: -- RMUNJULU 18-DEC-02 2484327
2794: l_qte_rec l_qte_csr%ROWTYPE;
2795: lx_quote_tbl OKL_AM_UTIL_PVT.quote_tbl_type;
2796:
2797: -- RMUNJULU 3061751 27-AUG-2003
2798: l_service_integration_needed VARCHAR2(3) := 'N';
2799:
2919: -- Get accepted quote with no trn if exists for contract
2920: -- *****************
2921:
2922: IF (is_debug_statement_on) THEN
2923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2924: END IF;
2925: -- Get accepted quote for contract with no trn
2926: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2927: p_khr_id => lp_term_rec.p_contract_id,
2922: IF (is_debug_statement_on) THEN
2923: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_non_trn_contract_quotes');
2924: END IF;
2925: -- Get accepted quote for contract with no trn
2926: OKL_AM_UTIL_PVT.get_non_trn_contract_quotes (
2927: p_khr_id => lp_term_rec.p_contract_id,
2928: x_quote_tbl => lx_quote_tbl,
2929: x_return_status => l_return_status);
2930: IF (is_debug_statement_on) THEN
2927: p_khr_id => lp_term_rec.p_contract_id,
2928: x_quote_tbl => lx_quote_tbl,
2929: x_return_status => l_return_status);
2930: IF (is_debug_statement_on) THEN
2931: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_non_trn_contract_quotes , return status: ' || l_return_status);
2932: END IF;
2933:
2934: -- Check the return status
2935: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4973: l_quote_eff_date := p_termination_date;
4974: END IF;
4975:
4976: IF (is_debug_statement_on) THEN
4977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_transaction_id');
4978: END IF;
4979: okl_am_util_pvt.get_transaction_id (
4980: p_try_name => 'CREDIT MEMO',
4981: x_return_status => l_return_status,
4975:
4976: IF (is_debug_statement_on) THEN
4977: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling okl_am_util_pvt.get_transaction_id');
4978: END IF;
4979: okl_am_util_pvt.get_transaction_id (
4980: p_try_name => 'CREDIT MEMO',
4981: x_return_status => l_return_status,
4982: x_try_id => l_cm_try_id);
4983: IF (is_debug_statement_on) THEN
4980: p_try_name => 'CREDIT MEMO',
4981: x_return_status => l_return_status,
4982: x_try_id => l_cm_try_id);
4983: IF (is_debug_statement_on) THEN
4984: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called okl_am_util_pvt.get_transaction_id , return status : ' || l_return_status);
4985: END IF;
4986:
4987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
4988: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5206: IF lx_accrual_adjustment_tbl.COUNT > 0 THEN
5207:
5208: -- rmunjulu TNA Brought the below code into this IF
5209: /* -- rmunjulu TNA Not needed
5210: okl_am_util_pvt.get_transaction_id (
5211: p_try_name => 'TERMINATION',
5212: x_return_status => l_return_status,
5213: x_try_id => l_trmnt_try_id);
5214:
5543: END IF;
5544:
5545: -- get excess loan payment amount
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_excess_loan_payment');
5548: END IF;
5549: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5545: -- get excess loan payment amount
5546: IF (is_debug_statement_on) THEN
5547: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_excess_loan_payment');
5548: END IF;
5549: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5552: IF (is_debug_statement_on) THEN
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5549: l_loan_refund_amount := OKL_AM_UTIL_PVT.get_excess_loan_payment(
5550: x_return_status => l_return_status,
5551: p_khr_id => p_term_rec.p_contract_id);
5552: IF (is_debug_statement_on) THEN
5553: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_excess_loan_payment , return status : ' || l_return_status);
5554: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'l_loan_refund_amount : ' || l_loan_refund_amount);
5555: END IF;
5556:
5557: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5564:
5565: IF l_loan_refund_amount <> 0 THEN
5566:
5567: IF (is_debug_statement_on) THEN
5568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_transaction_id');
5569: END IF;
5570: OKL_AM_UTIL_PVT.get_transaction_id (
5571: p_try_name => 'CREDIT MEMO',
5572: x_return_status => l_return_status,
5566:
5567: IF (is_debug_statement_on) THEN
5568: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_AM_UTIL_PVT.get_transaction_id');
5569: END IF;
5570: OKL_AM_UTIL_PVT.get_transaction_id (
5571: p_try_name => 'CREDIT MEMO',
5572: x_return_status => l_return_status,
5573: x_try_id => l_cm_try_id);
5574: IF (is_debug_statement_on) THEN
5571: p_try_name => 'CREDIT MEMO',
5572: x_return_status => l_return_status,
5573: x_try_id => l_cm_try_id);
5574: IF (is_debug_statement_on) THEN
5575: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'called OKL_AM_UTIL_PVT.get_transaction_id , return status : ' || l_return_status);
5576: END IF;
5577:
5578: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS
5579: OR NVL (l_cm_try_id, OKL_API.G_MISS_NUM) = OKL_API.G_MISS_NUM
5587:
5588: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5589: END IF;
5590:
5591: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
5592:
5593: IF (is_debug_statement_on) THEN
5594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency');
5595: END IF;