The following lines contain the word 'select', 'insert', 'update' or 'delete':
select ams.LOAN_ID,
loan.loan_number,
loan.org_id,
ams.AMORTIZATION_SCHEDULE_ID,
del.transaction_id
from
lns_loan_headers_all loan,
lns_amortization_scheds ams,
IEX_DELINQUENCIES_ALL del
where
del.request_id = P_REQUEST_ID and
del.transaction_id in (ams.PRINCIPAL_TRX_ID, ams.INTEREST_TRX_ID, ams.FEE_TRX_ID) and
ams.loan_id = loan.loan_id;
l_num_del_upd := p_event.GetValueForParameter('NOOFDELUPDATED');
LogMessage(FND_LOG.LEVEL_STATEMENT, 'number of updated del: ' || l_num_del_upd);
UPDATE_LOAN_STATUS_FROM_IEX(
P_API_VERSION => 1.0,
P_INIT_MSG_LIST => FND_API.G_FALSE,
P_COMMIT => FND_API.G_FALSE,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_LOAN_ID => l_loan_id,
P_SCORING_ENGINE_ID => l_scoring_engine,
X_NEW_STATUS => l_status,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
PROCEDURE UPDATE_LOAN_STATUS_FROM_IEX(
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2,
P_COMMIT IN VARCHAR2,
P_VALIDATION_LEVEL IN NUMBER,
P_LOAN_ID IN NUMBER,
P_SCORING_ENGINE_ID IN NUMBER,
X_NEW_STATUS OUT NOCOPY VARCHAR2,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2)
IS
/*-----------------------------------------------------------------------+
| Local Variable Declarations and initializations |
+-----------------------------------------------------------------------*/
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_LOAN_STATUS_FROM_IEX';
select OBJECT_VERSION_NUMBER, LOAN_STATUS
from LNS_LOAN_HEADERS_ALL
where LOAN_ID = P_LOAN_ID;
SAVEPOINT UPDATE_LOAN_STATUS_FROM_IEX;
LNS_LOAN_HEADER_PUB.UPDATE_LOAN(P_OBJECT_VERSION_NUMBER => l_version_number,
P_LOAN_HEADER_REC => l_loan_header_rec,
P_INIT_MSG_LIST => FND_API.G_TRUE,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
LogMessage(FND_LOG.LEVEL_STATEMENT, 'Successfully update LNS_LOAN_HEADERS_ALL with status ' || l_status);
ROLLBACK TO UPDATE_LOAN_STATUS_FROM_IEX;
ROLLBACK TO UPDATE_LOAN_STATUS_FROM_IEX;
ROLLBACK TO UPDATE_LOAN_STATUS_FROM_IEX;