The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_NO_UPDATE_ALLOWED_EXCEPTION exception;
G_NO_UPDATE_ALLOWED CONSTANT VARCHAR2(200) := 'OKC_NO_UPDATE_ALLOWED';
FUNCTION Update_Minor_Version(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
l_api_version NUMBER := 1;
OKC_CVM_PVT.update_contract_version(
p_api_version => l_api_version,
p_init_msg_list => l_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cvmv_rec => l_cvmv_rec,
x_cvmv_rec => x_out_rec);
OKC_SCN_PVT.Insert_Row(
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_scnv_rec => l_scnv_rec,
x_scnv_rec => x_scnv_rec);
x_return_status := Update_Minor_Version(p_scnv_rec.chr_id);
OKC_SCN_PVT.Insert_Row(
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_scnv_tbl => p_scnv_tbl,
x_scnv_tbl => x_scnv_tbl);
PROCEDURE update_section(
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_scnv_rec IN OKC_SCN_PVT.scnv_rec_type,
x_scnv_rec OUT NOCOPY OKC_SCN_PVT.scnv_rec_type) IS
BEGIN
OKC_SCN_PVT.Update_Row(
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_scnv_rec => p_scnv_rec,
x_scnv_rec => x_scnv_rec);
x_return_status := Update_Minor_Version(p_scnv_rec.chr_id);
END update_section;
PROCEDURE update_section(
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_scnv_tbl IN OKC_SCN_PVT.scnv_tbl_type,
x_scnv_tbl OUT NOCOPY OKC_SCN_PVT.scnv_tbl_type) IS
BEGIN
OKC_SCN_PVT.Update_Row(
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_scnv_tbl => p_scnv_tbl,
x_scnv_tbl => x_scnv_tbl);
END update_section;
PROCEDURE delete_section(
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_scnv_rec IN OKC_SCN_PVT.scnv_rec_type) IS
l_chr_id NUMBER;
SELECT chr_id
FROM okc_sections_b
WHERE id = p_scnv_rec.ID;
OKC_SCN_PVT.Delete_Row(
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_scnv_rec => p_scnv_rec);
x_return_status := Update_Minor_Version(l_chr_id);
END delete_section;
PROCEDURE delete_section(
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_scnv_tbl IN OKC_SCN_PVT.scnv_tbl_type) IS
BEGIN
OKC_SCN_PVT.Delete_Row(
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_scnv_tbl => p_scnv_tbl);
END delete_section;
SELECT chr_id
FROM okc_sections_b
WHERE id = p_scn_id;
OKC_SCC_PVT.Insert_Row(
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_sccv_rec => l_sccv_rec,
x_sccv_rec => x_sccv_rec);
x_return_status := Update_Minor_Version(l_chr_id);
OKC_SCC_PVT.Insert_Row(
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_sccv_tbl => p_sccv_tbl,
x_sccv_tbl => x_sccv_tbl);
PROCEDURE update_section_content(
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_sccv_rec IN OKC_SCC_PVT.sccv_rec_type,
x_sccv_rec OUT NOCOPY OKC_SCC_PVT.sccv_rec_type) IS
l_chr_id NUMBER := -1;
OKC_SCC_PVT.Update_Row(
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_sccv_rec => p_sccv_rec,
x_sccv_rec => x_sccv_rec);
x_return_status := Update_Minor_Version(l_chr_id);
END update_section_content;
PROCEDURE update_section_content(
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_sccv_tbl IN OKC_SCC_PVT.sccv_tbl_type,
x_sccv_tbl OUT NOCOPY OKC_SCC_PVT.sccv_tbl_type) IS
BEGIN
OKC_SCC_PVT.Update_Row(
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_sccv_tbl => p_sccv_tbl,
x_sccv_tbl => x_sccv_tbl);
END update_section_content;
PROCEDURE delete_section_content(
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_sccv_rec IN OKC_SCC_PVT.sccv_rec_type) IS
l_chr_id NUMBER;
OKC_SCC_PVT.Delete_Row(
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_sccv_rec => p_sccv_rec);
x_return_status := Update_Minor_Version(l_chr_id);
END delete_section_content;
PROCEDURE delete_section_content(
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_sccv_tbl IN OKC_SCC_PVT.sccv_tbl_type) IS
BEGIN
OKC_SCC_PVT.Delete_Row(
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_sccv_tbl => p_sccv_tbl);
END delete_section_content;