The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_DELETE_VER_ERROR CONSTANT VARCHAR2(200) := 'OKL_LLA_DELETE_VER_ERROR ';
G_DELETE_BASE_ERROR CONSTANT VARCHAR2(200) := 'OKL_LLA_DELETE_BASE_ERROR';
SELECT contract_number
FROM OKC_K_HEADERS_B
WHERE id = p_ctr_id1;
SELECT cle.id,
cle.dnz_chr_id,
cim.object1_id1,
cim.object1_id2
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_v cle
WHERE cle.dnz_chr_id = p_dnz_chr_id
AND cle.id = cim.cle_id
AND cim.dnz_chr_id = cle.dnz_chr_id
AND lse1.id = cle.lse_id
AND lse1.lty_code = G_FA_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE);
SELECT *
FROM OKX_ASSETS_V
WHERE id1 = p_object1_id1
AND id2 = p_object1_id2;
select fab.asset_key_ccid
from fa_additions_b fab
where fab.asset_id = p_asset_id;
SELECT cle.id,
cle.dnz_chr_id,
cim.object1_id1,
cim.object1_id2
FROM okc_subclass_top_line stl,
okc_line_styles_b lse3,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_items_v cim,
okc_k_lines_b cle
WHERE cle.lse_id = lse1.id
AND cle.id = cim.cle_id
AND cle.dnz_chr_id = cim.dnz_chr_id
AND lse1.lty_code = G_IB_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_INST_LINE_LTY_CODE
AND lse2.lse_parent_id = lse3.id
AND lse3.lty_code = G_FIN_LINE_LTY_CODE
AND lse3.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE)
AND cle.cle_id in (SELECT cle.id
FROM okc_subclass_top_line stl,
okc_line_styles_b lse2,
okc_line_styles_b lse1,
okc_k_lines_b cle
WHERE cle.dnz_chr_id = p_dnz_chr_id
AND cle.lse_id = lse1.id
AND lse1.lty_code = G_INST_LINE_LTY_CODE
AND lse1.lse_parent_id = lse2.id
AND lse2.lty_code = G_FIN_LINE_LTY_CODE
AND lse2.id = stl.lse_id
AND stl.scs_code in (G_LEASE_SCS_CODE,G_LOAN_SCS_CODE));
SELECT *
FROM OKX_INSTALL_ITEMS_V
WHERE id1 = p_object1_id1
AND id2 = p_object1_id2;
PROCEDURE delete_base(
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_chr_id IN NUMBER) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_BASE';
DELETE FROM OKL_K_HEADERS
WHERE id = p_chr_id;
DELETE FROM OKL_K_LINES
WHERE id IN (SELECT id
FROM OKC_K_LINES_B
WHERE dnz_chr_id = p_chr_id);
DELETE FROM OKL_SUPP_INVOICE_DTLS_H
WHERE cle_id in (select id from okc_k_lines_b where dnz_chr_id = p_chr_id);
DELETE FROM OKL_CONTRACT_ASSET_H
WHERE DNZ_CHR_ID = p_chr_id;
DELETE FROM OKL_CONTRACT_IB_H
WHERE DNZ_CHR_ID = p_chr_id;
p_msg_name => G_DELETE_BASE_ERROR);
p_msg_name => G_DELETE_BASE_ERROR);
END delete_base;
PROCEDURE delete_version (
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_chr_id IN NUMBER,
p_major_version IN NUMBER,
p_minor_version IN NUMBER,
p_called_from IN VARCHAR2) IS
l_major_version NUMBER := p_major_version;
l_api_name CONSTANT VARCHAR2(30) := 'OKL_DELETE_VERSION';
DELETE FROM OKL_K_HEADERS_H
WHERE id= p_chr_id
AND ((MAJOR_VERSION = -1
AND p_called_from = 'ERASE_SAVED_VERSION') OR
(p_called_from = 'RESTORE_VERSION'
AND (major_version >= l_major_version OR
major_version = -1)));
DELETE FROM OKL_K_LINES_H
WHERE ID in (select id from okc_k_lines_b where dnz_chr_id = p_chr_id)
AND ((MAJOR_VERSION = -1
AND p_called_from = 'ERASE_SAVED_VERSION') OR
(p_called_from = 'RESTORE_VERSION'
AND (major_version >= l_major_version OR
major_version = -1)));
DELETE FROM OKL_SUPP_INVOICE_DTLS_H
WHERE cle_id in (select id from okc_k_lines_b where dnz_chr_id = p_chr_id)
AND ((MAJOR_VERSION = -1
AND p_called_from = 'ERASE_SAVED_VERSION') OR
(p_called_from = 'RESTORE_VERSION'
AND (major_version >= l_major_version OR
major_version = -1)));
DELETE FROM OKL_CONTRACT_ASSET_H
WHERE DNZ_CHR_ID = p_chr_id
AND ((MAJOR_VERSION = -1
AND p_called_from = 'ERASE_SAVED_VERSION') OR
(p_called_from = 'RESTORE_VERSION'
AND (major_version >= l_major_version OR
major_version = -1)));
DELETE FROM OKL_CONTRACT_IB_H
WHERE DNZ_CHR_ID = p_chr_id
AND ((MAJOR_VERSION = -1
AND p_called_from = 'ERASE_SAVED_VERSION') OR
(p_called_from = 'RESTORE_VERSION'
AND (major_version >= l_major_version OR
major_version = -1)));
p_msg_name => G_DELETE_VER_ERROR);
p_msg_name => G_DELETE_VER_ERROR);
END delete_version;
SELECT st.ste_code
FROM OKC_K_HEADERS_V chr,
okc_statuses_b st
WHERE chr.id = p_chr_id
and st.code = chr.sts_code;
delete_version(p_api_version => l_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_chr_id => p_chr_id,
p_major_version => -1,
p_minor_version => null,
p_called_from => 'ERASE_SAVED_VERSION');
delete_version(p_api_version => l_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_chr_id => p_chr_id,
p_major_version => -1,
p_minor_version => null,
p_called_from => 'ERASE_SAVED_VERSION');
SELECT object_version_number,
minor_version
FROM okc_k_vers_numbers_h
WHERE chr_id= p_chr_id
AND MAJOR_VERSION = -1;
delete_base(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_chr_id => p_chr_id);
delete_version(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_chr_id => p_chr_id,
p_major_version => l_major_version,
p_minor_version => l_minor_version,
p_called_from => 'RESTORE_VERSION');