[Home] [Help]
1475: ,nvl(t.PENAL_INT_RATE, 0)
1476: ,nvl(t.PENAL_INT_GRACE_DAYS, 0)
1477:
1478: FROM lns_loan_headers_all h
1479: ,lns_terms t
1480: ,fnd_currencies curr
1481: WHERE h.loan_id = p_loan_id
1482: AND h.loan_id = t.loan_id
1483: AND curr.currency_code = h.loan_currency;
2830: l_loan_details LNS_CUSTOM_PUB.LOAN_DETAILS_REC;
2831: l_CUSTOM_TBL LNS_CUSTOM_PUB.CUSTOM_TBL;
2832: l_custom_rec LNS_CUSTOM_PUB.custom_sched_type;
2833: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
2834: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
2835:
2836: l_custom_sched_id number;
2837: l_object_version number;
2838: l_term_id number;
3013: end if;
3014:
3015: -- getting terms version for future update
3016: select term_id, object_version_number into l_term_id, l_object_version
3017: from lns_terms
3018: where loan_id = p_loan_id;
3019:
3020: -- Updating terms
3021: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3017: from lns_terms
3018: where loan_id = p_loan_id;
3019:
3020: -- Updating terms
3021: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3022:
3023: l_term_rec.TERM_ID := l_term_id;
3024: l_term_rec.LOAN_ID := p_loan_id;
3025: l_term_rec.PAYMENT_CALC_METHOD := 'CUSTOM';
3032: end if;
3033:
3034: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CUSTOM_CALC_METHOD: ' || l_term_rec.CUSTOM_CALC_METHOD);
3035:
3036: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_object_version,
3037: p_init_msg_list => FND_API.G_FALSE,
3038: p_loan_term_rec => l_term_rec,
3039: X_RETURN_STATUS => l_return_status,
3040: X_MSG_COUNT => l_msg_count,
3042:
3043: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
3044:
3045: IF l_return_status = 'S' THEN
3046: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3047: ELSE
3048: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3049: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3050: FND_MSG_PUB.Add;
3044:
3045: IF l_return_status = 'S' THEN
3046: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3047: ELSE
3048: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3049: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3050: FND_MSG_PUB.Add;
3051: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3052: RAISE FND_API.G_EXC_ERROR;
3122: l_msg_data VARCHAR2(32767);
3123:
3124: l_loan_details LNS_CUSTOM_PUB.LOAN_DETAILS_REC;
3125: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
3126: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
3127:
3128: l_object_version number;
3129: l_term_id number;
3130: l_BASED_ON_TERMS varchar2(30);
3210: end if;
3211:
3212: -- getting terms version for future update
3213: select term_id, object_version_number into l_term_id, l_object_version
3214: from lns_terms
3215: where loan_id = p_loan_id;
3216:
3217: -- Updating terms
3218: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3214: from lns_terms
3215: where loan_id = p_loan_id;
3216:
3217: -- Updating terms
3218: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Updating lns_terms w following values:');
3219:
3220: l_term_rec.TERM_ID := l_term_id;
3221: l_term_rec.LOAN_ID := p_loan_id;
3222: l_term_rec.PAYMENT_CALC_METHOD := P_ST_AMORT_METHOD;
3222: l_term_rec.PAYMENT_CALC_METHOD := P_ST_AMORT_METHOD;
3223: l_term_rec.CUSTOM_CALC_METHOD := FND_API.G_MISS_CHAR;
3224: l_term_rec.ORIG_PAY_CALC_METHOD := FND_API.G_MISS_CHAR;
3225:
3226: LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_object_version,
3227: p_init_msg_list => FND_API.G_FALSE,
3228: p_loan_term_rec => l_term_rec,
3229: X_RETURN_STATUS => l_return_status,
3230: X_MSG_COUNT => l_msg_count,
3232:
3233: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
3234:
3235: IF l_return_status = 'S' THEN
3236: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3237: ELSE
3238: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3239: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3240: FND_MSG_PUB.Add;
3234:
3235: IF l_return_status = 'S' THEN
3236: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
3237: ELSE
3238: -- LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: LNS_TERMS_PUB.update_term returned error: ' || substr(l_msg_data,1,225));
3239: FND_MESSAGE.SET_NAME('LNS', 'LNS_UPD_TERM_FAIL');
3240: FND_MSG_PUB.Add;
3241: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
3242: RAISE FND_API.G_EXC_ERROR;
3716: l_msg_data VARCHAR2(32767);
3717:
3718: l_loan_details LNS_CUSTOM_PUB.LOAN_DETAILS_REC;
3719: l_loan_header_rec LNS_LOAN_HEADER_PUB.LOAN_HEADER_REC_TYPE;
3720: l_term_rec LNS_TERMS_PUB.loan_term_rec_type;
3721:
3722: l_object_version number;
3723: l_term_id number;
3724: l_BASED_ON_TERMS varchar2(30);