The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT K.end_date
FROM OKL_K_HEADERS_FULL_V K
WHERE K.id = p_khr_id;
SELECT SYSDATE INTO l_db_date FROM DUAL;
SELECT K.id,
K.contract_number
FROM OKL_TRX_QUOTES_V Q,
OKL_K_HEADERS_FULL_V K
WHERE Q.id = p_qte_id
AND Q.khr_id = K.id;
SELECT accepted_yn
FROM OKL_TRX_QUOTES_B
WHERE id = p_qte_id;
SELECT DEAL_TYPE
FROM OKL_K_HEADERS
WHERE id = p_khr_id;
l_control_flag_update VARCHAR2(200) := 'RESTR_QUOTE_UPDATE';
ELSIF (p_call_flag = 'UPDATE') THEN
IF p_quot_rec.khr_id IS NOT NULL AND p_quot_rec.khr_id <> OKL_API.G_MISS_NUM THEN
l_khr_id := p_quot_rec.khr_id;
p_control_flag => l_control_flag_update,
x_contract_status => lx_contract_status);
PROCEDURE validate_updated_quote(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_quot_rec IN quot_rec_type) IS
-- Cursor to get the database values for the quote being updated
CURSOR k_dets_csr ( p_id NUMBER) IS
SELECT OTQV.khr_id,
OTQV.accepted_yn,
OTQV.date_effective_from,
OTQV.date_effective_to,
OKHV.contract_number,
OTQV.quote_number,
OTQV.id qte_id,
OTQV.qtp_code
FROM OKL_TRX_QUOTES_V OTQV,
OKL_K_HEADERS_FULL_V OKHV
WHERE OTQV.id = p_id
AND OTQV.khr_id = OKHV.id;
SELECT contract_number
FROM OKL_K_HEADERS_FULL_V K
WHERE K.id = p_khr_id;
SELECT SYSDATE INTO db_sysdate FROM DUAL;
p_call_flag => 'UPDATE');
END validate_updated_quote;
SELECT SYSDATE INTO l_sys_date FROM DUAL;
OKL_TRX_QUOTES_PUB.insert_trx_quotes (
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_qtev_rec => lp_quot_rec,
x_qtev_rec => lx_quot_rec,
x_return_status => l_return_status);
PROCEDURE update_restructure_quote(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_quot_rec IN quot_rec_type,
x_quot_rec OUT NOCOPY quot_rec_type) AS
--Get the database value of the updating quote
-- RMUNJULU 31-JAN-03 2779255 Added khr_id
CURSOR okl_get_qte_db_vals_csr ( p_qte_id IN NUMBER) IS
SELECT QTE.accepted_yn,
QTE.khr_id
FROM OKL_TRX_QUOTES_V QTE
WHERE QTE.id = p_qte_id;
l_api_name CONSTANT VARCHAR2(30) := 'update_restructure_quote';
SELECT SYSDATE INTO db_sysdate FROM DUAL;
validate_updated_quote(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_quot_rec => lp_quot_rec);
OKL_TRX_QUOTES_PUB.update_trx_quotes(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_qtev_rec => lp_quot_rec,
x_qtev_rec => lx_quot_rec);
END update_restructure_quote;
PROCEDURE update_restructure_quote(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_quot_tbl IN quot_tbl_type,
x_quot_tbl OUT NOCOPY quot_tbl_type) AS
l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
l_api_name CONSTANT VARCHAR2(30) := 'update_restructure_quote';
update_restructure_quote (
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_quot_rec => p_quot_tbl(i),
x_quot_rec => x_quot_tbl(i));
END update_restructure_quote;