The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y'
INTO l_dummy
FROM hz_parties hzp
WHERE hzp.party_id = P_DISB_TBL(i).PAYEE_PARTY_ID
AND hzp.status = 'A';
SELECT
begin_installment_number,
end_installment_number,
index_date,
index_rate,
spread,
INTEREST_ONLY_FLAG
FROM lns_rate_schedules
WHERE end_date_active IS NULL
AND term_id = termId
AND PHASE = 'TERM'
order by begin_installment_number;
g_errors_rec.delete;
SELECT loan_type.loan_class_code
INTO l_loan_class
from lns_loan_types loan_type,
lns_loan_products_all loan_product
where loan_product.loan_product_id = P_Loan_Details_Rec.product_id AND
loan_type.loan_type_id = loan_product.loan_type_id ;
SELECT 'Y'
INTO l_dummy
from lns_loan_types loan_type,
lns_loan_products_all loan_product
where loan_product.loan_product_id = P_Loan_Details_Rec.product_id AND
loan_type.loan_type_id = loan_product.loan_type_id AND
loan_type.loan_class_code = 'ERS';
p_LOAN_PART_TBL.delete;
p_LOAN_RATES_TBL.delete;
p_loan_cust_sched_tbl.delete;
SELECT
'Y' INTO l_dummy
FROM
jtf_rs_role_relations rel ,
jtf_rs_roles_b rol
WHERE
rel.role_id = rol.role_id
and rel.delete_flag <> 'Y'
and rol.role_type_code = 'LOANS'
and rol.role_code = 'LOAN_MGR'
and rol.active_flag = 'Y'
and rol.manager_flag = 'Y'
and rel.role_resource_id = P_Loan_Details_Rec.loan_approved_by;
select lns_disb_headers_s.NEXTVAL into l_DISB_HEADER_REC.DISB_HEADER_ID from dual;
LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling INSERT_DISB_HEADER...');
LNS_FUNDING_PUB.INSERT_DISB_HEADER(
P_API_VERSION => 1.0,
P_INIT_MSG_LIST => FND_API.G_TRUE,
P_COMMIT => FND_API.G_FALSE,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_DISB_HEADER_REC => l_DISB_HEADER_REC,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
logmessage(fnd_log.level_unexpected, 'Call to INSERT_DISB_HEADER failed');
select lns_disb_lines_s.NEXTVAL into l_DISB_LINE_REC.DISB_LINE_ID from dual;
LogMessage(FND_LOG.LEVEL_STATEMENT, 'Calling INSERT_DISB_LINE...');
LNS_FUNDING_PUB.INSERT_DISB_LINE(
P_API_VERSION => 1.0,
P_INIT_MSG_LIST => FND_API.G_TRUE,
P_COMMIT => FND_API.G_FALSE,
P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
P_DISB_LINE_REC => l_DISB_LINE_REC,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
logmessage(fnd_log.level_unexpected, 'Call to INSERT_DISB_LINE failed');
UPDATE LNS_LOAN_LINES
SET ADJUSTMENT_DATE = P_Loan_Details_Rec.LOAN_START_DATE,
STATUS = 'APPROVED'
WHERE LOAN_ID = l_loan_id;
logmessage(fnd_log.level_unexpected, 'Updated loan lines');
SELECT object_version_number, loan_number
INTO l_version_number, l_loan_number
FROM lns_loan_headers_all
WHERE loan_id = l_loan_id;
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_FALSE,
X_RETURN_STATUS => l_return_status,
X_MSG_COUNT => l_msg_count,
X_MSG_DATA => l_msg_data);
logmessage(fnd_log.level_unexpected, 'Loan object updated successfully');
l_bill_headers_tbl.delete;
l_bill_lines_tbl.delete;
UPDATE lns_amortization_scheds
SET parent_amortization_id = NULL,
REAMORTIZE_TO_INSTALLMENT = -1 -- marking this record as IMPORTED (-1); for original installments this field is always null
(SELECT last_amortization_id
FROM lns_loan_headers_all
WHERE loan_id = l_loan_id);
logmessage(fnd_log.level_statement, 'Updated lns_amortization_scheds');
UPDATE lns_amortization_scheds
SET REAMORTIZE_TO_INSTALLMENT = -1 -- marking this record as IMPORTED (-1); for original installments this field is always null
(SELECT last_amortization_id
FROM lns_loan_headers_all
WHERE loan_id = l_loan_id);
logmessage(fnd_log.level_statement, 'Updated lns_amortization_scheds');
SELECT principal_trx_id,
interest_trx_id,
fee_trx_id
INTO l_principal_trx_id,
l_interest_trx_id,
l_fee_trx_id
FROM lns_amortization_scheds
WHERE amortization_schedule_id =
(SELECT last_amortization_id
FROM lns_loan_headers_all
WHERE loan_id = l_loan_id);
SELECT object_version_number, term_id
INTO l_version_number, l_term_id
FROM lns_terms
WHERE loan_id = l_loan_id;
lns_terms_pub.update_term(p_object_version_number => l_version_number
, p_init_msg_list => fnd_api.g_false
, p_loan_term_rec => l_term_rec
, x_return_status => l_return_status
, x_msg_count => l_msg_count
, x_msg_data => l_msg_data);
logmessage(fnd_log.level_unexpected, 'Term object updated successfully');
LNS_INDEX_RATES_PUB.UPDATE_LOAN_FLOATING_RATE(
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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
logmessage(fnd_log.LEVEL_UNEXPECTED, 'Floating rate schedule updated successfully');
p_LOAN_RATES_TBL.delete;