The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT sts_code,
currency_code
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT id
INTO l_clev_rec.lse_id
FROM okc_line_styles_b
WHERE lty_code = 'SOLD_SERVICE';
SELECT id
INTO l_sub_clev_rec.lse_id
FROM okc_line_styles_b
WHERE lty_code = 'LINK_SERV_ASSET';
PROCEDURE update_service_line(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_cplv_rec IN cplv_rec_type,
x_clev_rec OUT NOCOPY clev_rec_type,
x_klev_rec OUT NOCOPY klev_rec_type,
x_cimv_rec OUT NOCOPY cimv_rec_type,
x_cplv_rec OUT NOCOPY cplv_rec_type) IS
l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'update_service_line';
l_api_name CONSTANT VARCHAR2(30) := 'update_service_line';
okl_contract_top_line_pub.update_contract_top_line(p_api_version => G_API_VERSION,
p_init_msg_list => G_FALSE,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
p_cplv_rec => p_cplv_rec,
x_clev_rec => x_clev_rec,
x_klev_rec => x_klev_rec,
x_cimv_rec => x_cimv_rec,
x_cplv_rec => x_cplv_rec,
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END update_service_line;
PROCEDURE delete_service_line(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
p_cimv_rec IN cimv_rec_type,
p_cplv_rec IN cplv_rec_type) IS
l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'delete_service_line';
l_api_name CONSTANT VARCHAR2(30) := 'delete_service_line';
okl_contract_top_line_pub.delete_contract_top_line(p_api_version => G_API_VERSION,
p_init_msg_list => G_FALSE,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
p_cimv_rec => p_cimv_rec,
p_cplv_rec => p_cplv_rec,
x_return_status => lx_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END delete_service_line;