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';
PROCEDURE update_minor_version(p_chr_id NUMBER) IS
l_api_version NUMBER := 1;
l_proc varchar2(72) := g_package||'update_minor_version';
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);
END update_minor_version;
Select application_id
from okc_k_headers_b
where id = p_id;
SELECT application_id,meaning
FROM okc_rule_defs_v
where rule_code = P_rule_code;
SELECT chr.*
FROM OKC_K_HEADERS_B chr
WHERE chr.id = p_rulv_rec.dnz_chr_id;
OKC_RUL_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_rulv_rec => l_rulv_rec,
x_rulv_rec => x_rulv_rec);
update_minor_version(p_rulv_rec.dnz_chr_id);
PROCEDURE update_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_rulv_rec IN rulv_rec_type,
x_rulv_rec OUT NOCOPY rulv_rec_type) IS
--
l_proc varchar2(72) := g_package||'update_rule';
OKC_RUL_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_rulv_rec => p_rulv_rec,
x_rulv_rec => x_rulv_rec);
update_minor_version(p_rulv_rec.dnz_chr_id);
END update_rule;
PROCEDURE delete_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_rulv_rec IN rulv_rec_type) IS
l_dummy_var VARCHAR(1) := NULL;
SELECT *
FROM OKC_COVER_TIMES_V ctiv
WHERE ctiv.RUL_ID = p_rulv_rec.id;
SELECT 'x'
FROM OKC_ARTICLE_TRANS_V atnv
WHERE atnv.RUL_ID = p_rulv_rec.id;
SELECT *
FROM OKC_REACT_INTERVALS_V rilv
WHERE rilv.RUL_ID = p_rulv_rec.id;
SELECT RULE_INFORMATION_CATEGORY
FROM OKC_RULES_B
WHERE ID = p_rulv_rec.id;
l_proc varchar2(72) := g_package||'delete_rule';
RAISE G_EXCEPTION_CANNOT_DELETE;
OKC_RULE_PUB.delete_cover_time(
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_ctiv_tbl => l_ctiv_tbl);
OKC_RULE_PUB.delete_react_interval(
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_rilv_tbl => l_rilv_tbl);
okc_time_pub.delete_timevalues_n_tasks(
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_tve_id => l_col_vals(i).col_value);
OKC_RUL_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_rulv_rec => p_rulv_rec);
update_minor_version(p_rulv_rec.dnz_chr_id);
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_MASTER);
END delete_rule;
OKC_RGP_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_rgpv_rec => p_rgpv_rec,
x_rgpv_rec => x_rgpv_rec);
update_minor_version(p_rgpv_rec.dnz_chr_id);
PROCEDURE update_rule_group(
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_rgpv_rec IN rgpv_rec_type,
x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
--
l_proc varchar2(72) := g_package||'update_rule_group';
OKC_RGP_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_rgpv_rec => p_rgpv_rec,
x_rgpv_rec => x_rgpv_rec);
update_minor_version(p_rgpv_rec.dnz_chr_id);
END update_rule_group;
PROCEDURE delete_rule_group(
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_rgpv_rec IN rgpv_rec_type) IS
i NUMBER;
SELECT rgp_type
FROM OKC_RULE_GROUPS_B rgpv
WHERE rgpv.ID = p_rgpv_rec.id;
SELECT id
FROM OKC_RULE_GROUPS_B rgpv
WHERE rgpv.PARENT_RGP_ID = p_rgpv_rec.id;
SELECT id
FROM OKC_RULES_B rulv
WHERE rulv.RGP_ID = p_rgpv_rec.id;
SELECT id
FROM OKC_RG_PARTY_ROLES_V rmpv
WHERE rmpv.RGP_ID = p_rgpv_rec.id;
l_proc varchar2(72) := g_package||'delete_rule_group';
RAISE G_EXCEPTION_CANNOT_DELETE;
OKC_RULE_PUB.delete_rg_mode_pty_role(
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_rmpv_tbl => l_rmpv_tbl);
OKC_RULE_PUB.delete_rule(
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_rulv_tbl => l_rulv_tbl);
OKC_RGP_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_rgpv_rec => p_rgpv_rec);
update_minor_version(p_rgpv_rec.dnz_chr_id);
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_MASTER);
END delete_rule_group;
OKC_RMP_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_rmpv_rec => p_rmpv_rec,
x_rmpv_rec => x_rmpv_rec);
update_minor_version(p_rmpv_rec.dnz_chr_id);
PROCEDURE update_rg_mode_pty_role(
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_rmpv_rec IN rmpv_rec_type,
x_rmpv_rec OUT NOCOPY rmpv_rec_type) IS
--
l_proc varchar2(72) := g_package||'update_rg_mode_pty_role';
OKC_RMP_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_rmpv_rec => p_rmpv_rec,
x_rmpv_rec => x_rmpv_rec);
update_minor_version(p_rmpv_rec.dnz_chr_id);
END update_rg_mode_pty_role;
PROCEDURE delete_rg_mode_pty_role(
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_rmpv_rec IN rmpv_rec_type) IS
--
l_proc varchar2(72) := g_package||'delete_rg_mode_pty_role';
OKC_RMP_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_rmpv_rec => p_rmpv_rec);
update_minor_version(p_rmpv_rec.dnz_chr_id);
END delete_rg_mode_pty_role;
OKC_CTI_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_ctiv_rec => p_ctiv_rec,
x_ctiv_rec => x_ctiv_rec);
update_minor_version(p_ctiv_rec.dnz_chr_id);
PROCEDURE update_cover_time(
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_ctiv_rec IN ctiv_rec_type,
x_ctiv_rec OUT NOCOPY ctiv_rec_type) IS
--
l_proc varchar2(72) := g_package||'update_cover_time';
OKC_CTI_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_ctiv_rec => p_ctiv_rec,
x_ctiv_rec => x_ctiv_rec);
update_minor_version(p_ctiv_rec.dnz_chr_id);
END update_cover_time;
PROCEDURE delete_cover_time(
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_ctiv_rec IN ctiv_rec_type) IS
--
l_proc varchar2(72) := g_package||'delete_cover_time';
OKC_CTI_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_ctiv_rec => p_ctiv_rec);
update_minor_version(p_ctiv_rec.dnz_chr_id);
END delete_cover_time;
OKC_RIL_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_rilv_rec => p_rilv_rec,
x_rilv_rec => x_rilv_rec);
update_minor_version(p_rilv_rec.dnz_chr_id);
PROCEDURE update_react_interval(
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_rilv_rec IN rilv_rec_type,
x_rilv_rec OUT NOCOPY rilv_rec_type) IS
--
l_proc varchar2(72) := g_package||'update_react_interval';
OKC_RIL_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_rilv_rec => p_rilv_rec,
x_rilv_rec => x_rilv_rec);
update_minor_version(p_rilv_rec.dnz_chr_id);
END update_react_interval;
PROCEDURE delete_react_interval(
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_rilv_rec IN rilv_rec_type) IS
--
l_proc varchar2(72) := g_package||'delete_react_interval';
OKC_RIL_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_rilv_rec => p_rilv_rec);
update_minor_version(p_rilv_rec.dnz_chr_id);
END delete_react_interval;