232: FUNCTION initial_intrest_rate (x_resultout OUT NOCOPY VARCHAR2,
233: x_errormsg OUT NOCOPY VARCHAR2 ) RETURN VARCHAR2 IS
234: l_cr_loan_id NUMBER := to_number(OCM_ADD_DATA_POINTS.pg_ocm_add_dp_param_rec.P_source_column1 ) ;
235:
236: l_initial_interest_rate lns_rate_schedules.current_interest_rate%TYPE ;
237:
238:
239: BEGIN
240:
241: x_resultout := FND_API.G_RET_STS_SUCCESS;
242: BEGIN
243: SELECT lrs.current_interest_rate
244: INTO l_initial_interest_rate
245: FROM lns_rate_schedules lrs,
246: lns_loan_headers_all llh ,
247: lns_terms lt
248: WHERE llh.loan_id = l_cr_loan_id
249: AND lt.loan_id = llh.loan_id