The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_EXCEPTION_CANNOT_DELETE EXCEPTION;
G_CANNOT_DELETE_MASTER CONSTANT VARCHAR2(200) := 'OKC_CANNOT_DELETE_MASTER';
G_CANNOT_DELETE_RULE_DEF CONSTANT VARCHAR2(200) := 'OKC_CANNOT_DELETE_RULE_DEF';
OKC_RGR_PVT.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rgrv_rec,
x_rgrv_rec);
PROCEDURE update_rg_def_rule(
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_rgrv_rec IN rgrv_rec_type,
x_rgrv_rec OUT NOCOPY rgrv_rec_type) IS
BEGIN
OKC_RGR_PVT.update_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rgrv_rec,
x_rgrv_rec);
END update_rg_def_rule;
PROCEDURE delete_rg_def_rule(
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_rgrv_rec IN rgrv_rec_type) IS
l_dummy_var VARCHAR(1) := NULL;
SELECT /*+ FIRST_ROWS */
'x'
FROM OKC_RULES_B rul,
OKC_RULE_GROUPS_B rgp
WHERE rul.rule_information_category = p_rgrv_rec.rdf_code
AND rul.rgp_id = rgp.id
AND rgp.rgd_code = p_rgrv_rec.rgd_code
AND rownum < 2;
RAISE G_EXCEPTION_CANNOT_DELETE;
OKC_RGR_PVT.delete_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rgrv_rec);
WHEN G_EXCEPTION_CANNOT_DELETE THEN
-- store SQL error message on message stack
OKC_API.SET_MESSAGE(
p_app_name => G_APP_NAME,
p_msg_name => G_CANNOT_DELETE_RULE_DEF);
END delete_rg_def_rule;
OKC_RDS_PVT.insert_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rdsv_rec,
x_rdsv_rec);
PROCEDURE update_rd_source(
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_rdsv_rec IN rdsv_rec_type,
x_rdsv_rec OUT NOCOPY rdsv_rec_type) IS
BEGIN
OKC_RDS_PVT.update_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rdsv_rec,
x_rdsv_rec);
END update_rd_source;
PROCEDURE delete_rd_source(
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_rdsv_rec IN rdsv_rec_type) IS
BEGIN
OKC_RDS_PVT.delete_row(
p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_rdsv_rec);
END delete_rd_source;