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';
SELECT count('X')
FROM okc_rule_groups_b
WHERE rgd_code = p_rgpv_rec.rgd_code
AND (dnz_chr_id = p_rgpv_rec.chr_id and cle_id IS NULL)
AND id <> NVL(p_rgpv_rec.id,-1);
OKL_OKC_MIGRATION_A_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);
PROCEDURE update_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
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
-- gboomina: Added for bug 4723775 to populate mandatory values
-- which are getting nullified in the pl/sql rosetta wrapper call
-- START of code changes
l_rgpv_rec rgpv_rec_type := p_rgpv_rec;
SELECT chr_id,
dnz_chr_id,
created_by,
creation_date
FROM okc_rule_groups_b
WHERE ID = p_id ;
OKL_OKC_MIGRATION_A_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 => l_rgpv_rec,
x_rgpv_rec => x_rgpv_rec);
END update_rule_group;
PROCEDURE delete_rule_group(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
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 to_char(rgd.dnz_chr_id)
FROM okc_rule_groups_b rgd
WHERE rgd.id = p_rgd_id;
OKL_OKC_MIGRATION_A_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);
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;
SELECT ID
FROM OKC_RULE_GROUPS_B
WHERE CHR_ID = P_CHR_ID AND
DNZ_CHR_ID = P_CHR_ID AND
CLE_ID IS NULL AND
RGD_CODE = P_RGD_CODE;
SELECT RULE_INFORMATION1
FROM OKC_RULES_B
WHERE ID = P_RUL_ID;
SELECT RLE_CODE
FROM OKC_K_PARTY_ROLES_B
WHERE ID = TO_NUMBER(P_CPL_ID);
p_msg_name => 'OKL_INVALID_ROLE_UPDATE');
OKL_RULE_PUB.update_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_rec => lp_vrs_rulv_rec,
x_rulv_rec => lx_vrs_rulv_rec);
PROCEDURE delete_vrs_rule(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_chr_id IN NUMBER,
p_rul_id IN NUMBER) IS
l_api_name VARCHAR2(30) := 'delete_vrs_rule';
SELECT RULE_INFORMATION1
FROM OKC_RULES_B
WHERE ID = P_RUL_ID;
SELECT RLE_CODE
FROM OKC_K_PARTY_ROLES_B
WHERE ID = TO_NUMBER(P_CPL_ID);
p_msg_name => 'OKL_INVALID_ROLE_DELETE');
OKL_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_rec => lp_vrs_rulv_rec
);
SELECT sum(to_number(nvl(RULE_INFORMATION2,0)))
FROM OKC_RULES_B rul,
okc_rule_groups_b rgp
WHERE rgp.ID = rul.rgp_id
AND rgp.dnz_chr_id = rul.dnz_chr_id
AND rgp.chr_id = p_chr_id;