The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT kleb.percent_stake percent_stake
FROM okl_k_lines kleb,
okc_k_lines_b cles
WHERE kleb.id = cles.id
AND cles.dnz_chr_id = p_khr_id
AND cles.cle_id IS NOT NULL
AND kleb.sty_id = p_sty_id
AND kleb.id <> p_szr_rec.id;
SELECT kleb.percent_stake percent_stake
FROM okl_k_lines kleb,
okc_k_lines_b cles
WHERE kleb.id = cles.id
AND cles.dnz_chr_id = p_khr_id
AND cles.cle_id IS NOT NULL
AND kleb.stream_type_subclass = p_sty_subclass
AND kleb.id <> p_szr_rec.id;
SELECT '1'
FROM okl_k_lines kleb,
okc_k_lines_b cles
WHERE kleb.id = cles.id
AND cles.dnz_chr_id = p_khr_id
AND cles.cle_id = p_top_line_id
AND kleb.stream_type_subclass = p_sty_subclass
AND kleb.id <> p_szr_rec.id;
SELECT clet.start_date
,clet.end_date
,clet.currency_code
FROM okc_k_lines_b clet
,okc_line_styles_b lseb
WHERE clet.id = p_tl_id
AND clet.lse_id = lseb.id
AND lseb.lty_code = 'INVESTMENT';
SELECT ID
FROM okc_line_styles_v
WHERE lty_code = p_lty_code;
SELECT '1'
FROM
OKL_K_LINES KLEB,
OKC_K_LINES_B CLET,
OKC_K_LINES_B CLES
WHERE
KLEB.ID = CLES.ID
AND CLES.CLE_ID = CLET.ID
AND CLET.ID = p_cle_id
AND KLEB.STY_ID = p_sty_id;
SELECT '1'
FROM
OKL_K_LINES KLEB,
OKC_K_LINES_B CLET,
OKC_K_LINES_B CLES
WHERE
KLEB.ID = CLES.ID
AND CLES.CLE_ID = CLET.ID
AND CLET.ID = p_cle_id
AND KLEB.stream_type_subclass = p_sty_subclass;
SELECT CLET.START_DATE
FROM
OKL_K_LINES KLEB,
OKC_K_LINES_B CLET,
OKC_K_LINES_B CLES
WHERE
KLEB.ID = CLES.ID
AND CLES.CLE_ID = CLET.ID
AND CLET.ID = p_cle_id;
PROCEDURE UPDATE_INVESTOR_REVENUE(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_szr_rec IN szr_rec_type,
x_szr_rec OUT NOCOPY szr_rec_type)
IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INVESTOR_REVENUE';
OKL_CONTRACT_PUB.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec,
x_clev_rec => lx_clev_rec,
x_klev_rec => lx_klev_rec);
END UPDATE_INVESTOR_REVENUE;
PROCEDURE DELETE_INVESTOR_REVENUE(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_szr_rec IN szr_rec_type)
IS
l_clev_rec clev_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INVESTOR_REVENUE';
OKL_CONTRACT_PUB.delete_contract_line(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => l_clev_rec,
p_klev_rec => l_klev_rec);
END DELETE_INVESTOR_REVENUE;
PROCEDURE UPDATE_INVESTOR_REVENUE(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_szr_tbl IN szr_tbl_type,
x_szr_tbl OUT NOCOPY szr_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_INVESTOR_REVENUE_TBL';
update_investor_revenue(
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_szr_rec => p_szr_tbl(rec_num),
x_szr_rec => x_szr_tbl(rec_num) );
END UPDATE_INVESTOR_REVENUE;
PROCEDURE DELETE_INVESTOR_REVENUE(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_szr_tbl IN szr_tbl_type)
IS
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INVESTOR_REVENUE_TBL';
DELETE_INVESTOR_REVENUE(
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_szr_rec => p_szr_tbl(rec_num));
END DELETE_INVESTOR_REVENUE;