[Home] [Help]
1638: ,nvl(h.ADD_REQUESTED_AMOUNT, 0)
1639: ,CUSTOM_SCHED_DESC
1640: ,nvl(t.CAPITALIZE_INT, 'N')
1641: FROM lns_loan_headers_all h
1642: ,lns_terms t
1643: ,fnd_currencies curr
1644: WHERE h.loan_id = p_loan_id
1645: AND h.loan_id = t.loan_id
1646: AND curr.currency_code = h.loan_currency;
3507: l_CUSTOM_TBL LNS_CUSTOM_PUB.CUSTOM_TBL;
3508: l_CUSTOM_SET_REC LNS_CUSTOM_PUB.custom_settings_type;
3509: l_custom_rec LNS_CUSTOM_PUB.custom_sched_type;
3510: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
3511: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
3512:
3513: l_custom_sched_id number;
3514: l_object_version number;
3515: l_term_id number;
3527: SELECT trunc(max(DUE_DATE)),
3528: max(term.first_payment_date)
3529: FROM lns_amortization_scheds am,
3530: lns_loan_headers_all loan,
3531: lns_terms term
3532: WHERE loan.loan_id = P_LOAN_ID
3533: AND loan.loan_id = term.loan_id
3534: AND loan.loan_id = am.loan_id(+)
3535: AND (am.REVERSED_FLAG is null or am.REVERSED_FLAG = 'N')
3746: end if;
3747:
3748: -- getting terms version for future update
3749: select term_id, object_version_number into l_term_id, l_object_version
3750: from lns_terms
3751: where loan_id = p_loan_id;
3752:
3753: -- Updating terms
3754: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3750: from lns_terms
3751: where loan_id = p_loan_id;
3752:
3753: -- Updating terms
3754: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3755:
3756: l_term_rec.TERM_ID := l_term_id;
3757: l_term_rec.LOAN_ID := p_loan_id;
3758: l_term_rec.PAYMENT_CALC_METHOD := 'CUSTOM';
3770: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ORIG_PAY_CALC_METHOD = ' || l_term_rec.ORIG_PAY_CALC_METHOD);
3771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NEXT_PAYMENT_DUE_DATE = ' || l_term_rec.NEXT_PAYMENT_DUE_DATE);
3772: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CUSTOM_SCHED_DESC = ' || l_term_rec.CUSTOM_SCHED_DESC);
3773:
3774: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_object_version,
3775: p_init_msg_list => FND_API.G_FALSE,
3776: p_loan_term_rec => l_term_rec,
3777: X_RETURN_STATUS => l_return_status,
3778: X_MSG_COUNT => l_msg_count,
3780:
3781: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
3782:
3783: IF l_return_status = 'S' THEN
3784: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3785: ELSE
3786: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3787: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3788: FND_MSG_PUB.Add;
3782:
3783: IF l_return_status = 'S' THEN
3784: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3785: ELSE
3786: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3787: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3788: FND_MSG_PUB.Add;
3789: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3790: RAISE FND_API.G_EXC_ERROR;
3875: l_msg_data VARCHAR2(32767);
3876:
3877: l_loan_details LNS_CUSTOM_PUB.LOAN_DETAILS_REC;
3878: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
3879: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
3880:
3881: l_object_version number;
3882: l_term_id number;
3883: l_BASED_ON_TERMS varchar2(30);
3963: end if;
3964:
3965: -- getting terms version for future update
3966: select term_id, object_version_number into l_term_id, l_object_version
3967: from lns_terms
3968: where loan_id = p_loan_id;
3969:
3970: -- Updating terms
3971: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3967: from lns_terms
3968: where loan_id = p_loan_id;
3969:
3970: -- Updating terms
3971: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3972:
3973: l_term_rec.TERM_ID := l_term_id;
3974: l_term_rec.LOAN_ID := p_loan_id;
3975: l_term_rec.PAYMENT_CALC_METHOD := P_ST_AMORT_METHOD;
3975: l_term_rec.PAYMENT_CALC_METHOD := P_ST_AMORT_METHOD;
3976: l_term_rec.CUSTOM_CALC_METHOD := FND_API.G_MISS_CHAR;
3977: l_term_rec.ORIG_PAY_CALC_METHOD := FND_API.G_MISS_CHAR;
3978:
3979: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_object_version,
3980: p_init_msg_list => FND_API.G_FALSE,
3981: p_loan_term_rec => l_term_rec,
3982: X_RETURN_STATUS => l_return_status,
3983: X_MSG_COUNT => l_msg_count,
3985:
3986: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
3987:
3988: IF l_return_status = 'S' THEN
3989: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3990: ELSE
3991: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3992: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3993: FND_MSG_PUB.Add;
3987:
3988: IF l_return_status = 'S' THEN
3989: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3990: ELSE
3991: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3992: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3993: FND_MSG_PUB.Add;
3994: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3995: RAISE FND_API.G_EXC_ERROR;
4167: IF l_return_status <> 'S' THEN
4168: RAISE FND_API.G_EXC_ERROR;
4169: END IF;
4170: /*
4171: -- getting CUSTOM_CALC_METHOD from lns_terms
4172: select CUSTOM_CALC_METHOD into l_AMORT_METHOD
4173: from lns_terms
4174: where loan_id = P_LOAN_ID;
4175: */
4169: END IF;
4170: /*
4171: -- getting CUSTOM_CALC_METHOD from lns_terms
4172: select CUSTOM_CALC_METHOD into l_AMORT_METHOD
4173: from lns_terms
4174: where loan_id = P_LOAN_ID;
4175: */
4176: select lh.loan_status into l_loan_status
4177: from lns_loan_headers_all lh
4531: l_msg_data VARCHAR2(32767);
4532:
4533: l_loan_details LNS_CUSTOM_PUB.LOAN_DETAILS_REC;
4534: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
4535: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
4536:
4537: l_object_version number;
4538: l_term_id number;
4539: l_BASED_ON_TERMS varchar2(30);