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';
OKC_COP_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_copv_rec => l_copv_rec,
x_copv_rec => x_copv_rec);
OKC_COP_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_copv_tbl => p_copv_tbl,
x_copv_tbl => x_copv_tbl);
PROCEDURE Update_Class_Operation (
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_copv_rec IN OKC_COP_PVT.copv_rec_type,
x_copv_rec OUT NOCOPY OKC_COP_PVT.copv_rec_type) IS
BEGIN
OKC_COP_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_copv_rec => p_copv_rec,
x_copv_rec => x_copv_rec);
END Update_Class_Operation;
PROCEDURE Update_Class_Operation (
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_copv_tbl IN OKC_COP_PVT.copv_tbl_type,
x_copv_tbl OUT NOCOPY OKC_COP_PVT.copv_tbl_type) IS
BEGIN
OKC_COP_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_copv_tbl => p_copv_tbl,
x_copv_tbl => x_copv_tbl);
END Update_Class_Operation;
PROCEDURE Delete_Class_Operation (
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_copv_rec IN OKC_COP_PVT.copv_rec_type) IS
BEGIN
OKC_COP_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_copv_rec => p_copv_rec);
END Delete_Class_Operation;
PROCEDURE Delete_Class_Operation (
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_copv_tbl IN OKC_COP_PVT.copv_tbl_type) IS
BEGIN
OKC_COP_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_copv_tbl => p_copv_tbl);
END Delete_Class_Operation;
OKC_OIE_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_oiev_rec => l_oiev_rec,
x_oiev_rec => x_oiev_rec);
OKC_OIE_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_oiev_tbl => p_oiev_tbl,
x_oiev_tbl => x_oiev_tbl);
PROCEDURE Update_Operation_Instance (
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_oiev_rec IN OKC_OIE_PVT.oiev_rec_type,
x_oiev_rec OUT NOCOPY OKC_OIE_PVT.oiev_rec_type) IS
BEGIN
OKC_OIE_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_oiev_rec => p_oiev_rec,
x_oiev_rec => x_oiev_rec);
END Update_Operation_Instance;
PROCEDURE Update_Operation_Instance (
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_oiev_tbl IN OKC_OIE_PVT.oiev_tbl_type,
x_oiev_tbl OUT NOCOPY OKC_OIE_PVT.oiev_tbl_type) IS
BEGIN
OKC_OIE_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_oiev_tbl => p_oiev_tbl,
x_oiev_tbl => x_oiev_tbl);
END Update_Operation_Instance;
PROCEDURE Delete_Operation_Instance (
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_oiev_rec IN OKC_OIE_PVT.oiev_rec_type) IS
l_olev_tbl OKC_OPER_INST_PUB.olev_tbl_type;
SELECT id
FROM okc_operation_lines
WHERE oie_id = p_oiev_rec.id;
SELECT id
FROM okc_masschange_req_dtls
WHERE oie_id = p_oiev_rec.id;
-- Delete all children (operation lines) before deleting instance
--
FOR ole_rec IN ole_csr
LOOP
i := i + 1;
OKC_OPER_INST_PUB.Delete_Operation_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_olev_tbl => l_olev_tbl);
-- Delete all children (masschange) before deleting instance
--
If (x_return_status = OKC_API.G_RET_STS_SUCCESS) Then
FOR oie_rec IN ole1_csr
LOOP
j := j + 1;
OKC_OPER_INST_PUB.Delete_Masschange_Dtls (
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_mrdv_tbl => l_mrdv_tbl);
OKC_OIE_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_oiev_rec => p_oiev_rec);
END Delete_Operation_Instance;
PROCEDURE Delete_Operation_Instance (
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_oiev_tbl IN OKC_OIE_PVT.oiev_tbl_type) IS
BEGIN
OKC_OIE_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_oiev_tbl => p_oiev_tbl);
END Delete_Operation_Instance;
OKC_OLE_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_olev_rec => l_olev_rec,
x_olev_rec => x_olev_rec);
OKC_OLE_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_olev_tbl => p_olev_tbl,
x_olev_tbl => x_olev_tbl);
PROCEDURE Update_Operation_Line (
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_olev_rec IN OKC_OLE_PVT.olev_rec_type,
x_olev_rec OUT NOCOPY OKC_OLE_PVT.olev_rec_type) IS
BEGIN
OKC_OLE_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_olev_rec => p_olev_rec,
x_olev_rec => x_olev_rec);
END Update_Operation_Line;
PROCEDURE Update_Operation_Line (
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_olev_tbl IN OKC_OLE_PVT.olev_tbl_type,
x_olev_tbl OUT NOCOPY OKC_OLE_PVT.olev_tbl_type) IS
BEGIN
OKC_OLE_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_olev_tbl => p_olev_tbl,
x_olev_tbl => x_olev_tbl);
END Update_Operation_Line;
PROCEDURE Delete_Operation_Line (
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_olev_rec IN OKC_OLE_PVT.olev_rec_type) IS
l_mrdv_tbl OKC_MRD_PVT.mrdv_tbl_type;
SELECT object_chr_id, subject_chr_id, object_cle_id, subject_cle_id
FROM okc_operation_lines
WHERE id = p_olev_rec.ID
AND active_yn = 'Y';
SELECT id
FROM okc_masschange_req_dtls
WHERE ole_id = p_olev_rec.ID;
UPDATE okc_k_lines_b
SET date_renewed = null
WHERE id = ole_rec.object_cle_id;
UPDATE okc_k_headers_b
SET date_renewed = null
WHERE id = ole_rec.object_chr_id;
-- Delete all children (masschange) before deleting operation line
--
FOR oie_rec IN ole1_csr
LOOP
j := j + 1;
OKC_OPER_INST_PUB.Delete_Masschange_Dtls (
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_mrdv_tbl => l_mrdv_tbl);
OKC_OLE_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_olev_rec => p_olev_rec);
END Delete_Operation_Line;
PROCEDURE Delete_Operation_Line (
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_olev_tbl IN OKC_OLE_PVT.olev_tbl_type) IS
BEGIN
OKC_OLE_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_olev_tbl => p_olev_tbl);
END Delete_Operation_Line;
OKC_MRD_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_mrdv_rec => l_mrdv_rec,
x_mrdv_rec => x_mrdv_rec);
OKC_MRD_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_mrdv_tbl => p_mrdv_tbl,
x_mrdv_tbl => x_mrdv_tbl);
PROCEDURE Update_Masschange_Dtls (
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_mrdv_rec IN OKC_MRD_PVT.mrdv_rec_type,
x_mrdv_rec OUT NOCOPY OKC_MRD_PVT.mrdv_rec_type) IS
BEGIN
OKC_MRD_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_mrdv_rec => p_mrdv_rec,
x_mrdv_rec => x_mrdv_rec);
END Update_Masschange_Dtls;
PROCEDURE Update_Masschange_Dtls (
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_mrdv_tbl IN OKC_MRD_PVT.mrdv_tbl_type,
x_mrdv_tbl OUT NOCOPY OKC_MRD_PVT.mrdv_tbl_type) IS
BEGIN
OKC_MRD_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_mrdv_tbl => p_mrdv_tbl,
x_mrdv_tbl => x_mrdv_tbl);
END Update_Masschange_Dtls;
PROCEDURE Delete_Masschange_Dtls (
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_mrdv_rec IN OKC_MRD_PVT.mrdv_rec_type) IS
BEGIN
OKC_MRD_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_mrdv_rec => p_mrdv_rec);
END Delete_Masschange_Dtls;
PROCEDURE Delete_Masschange_Dtls (
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_mrdv_tbl IN OKC_MRD_PVT.mrdv_tbl_type) IS
BEGIN
OKC_MRD_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_mrdv_tbl => p_mrdv_tbl);
END Delete_Masschange_Dtls;