The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT Sum(Nvl(clm_amount, 0))
INTO l_sol_total_amt
FROM pon_auction_item_prices_all
WHERE auction_header_id = p_auction_header_id;
PROCEDURE DELETE_SBCR(p_auction_header_id IN NUMBER,
p_contract_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2)
IS
l_document_rec OKC_IMP_RECORD_TYPES.document_rec_type;
l_api_name VARCHAR2(30) := 'DELETE_SBCR';
OKC_REP_CONTRACT_IMP_PUB.delete_contract(p_api_version => 1.0,
p_document_rec => l_document_rec,
p_contract_type => l_contract_type,
p_contract_id => p_contract_id,
p_commit => fnd_api.g_false,
x_msg_data => l_msg_data,
x_msg_count => l_msg_count,
x_return_status => x_return_status);
message => 'Exited OKC_REP_CONTRACT_IMP_PUB.delete_contract with return status : ' || x_return_status);
END DELETE_SBCR;