The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x'
FROM okc_contacts
WHERE cpl_id = p_ctcv_rec.CPL_ID
AND cro_code = p_ctcv_rec.CRO_CODE
AND NVL(jtot_object1_code,'X') = NVL(p_ctcv_rec.JTOT_OBJECT1_CODE,'X')
AND NVL(object1_id1,'X') = NVL(p_ctcv_rec.OBJECT1_ID1,'X')
AND NVL(object1_id2,'X') = NVL(p_ctcv_rec.OBJECT1_ID2,'X')
AND id <> NVL(p_ctcv_rec.ID,-9999);
PROCEDURE update_contact(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_ctcv_rec IN ctcv_rec_type,
x_ctcv_rec OUT NOCOPY ctcv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_contact';
OKL_OKC_MIGRATION_PVT.update_contact(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_ctcv_rec,
x_ctcv_rec);
END update_contact;
PROCEDURE update_contact(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_ctcv_tbl IN ctcv_tbl_type,
x_ctcv_tbl OUT NOCOPY ctcv_tbl_type) IS
i NUMBER;
update_contact(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_return_status,
x_msg_count=>x_msg_count,
x_msg_data=>x_msg_data,
p_ctcv_rec=>p_ctcv_tbl(i),
x_ctcv_rec=>x_ctcv_tbl(i));
END update_contact;
PROCEDURE delete_contact(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_ctcv_rec IN ctcv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_contact';
SELECT dnz_chr_id
FROM okc_contacts
WHERE id = p_ctcv_rec.id;
OKL_OKC_MIGRATION_PVT.delete_contact(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_ctcv_rec);
END delete_contact;
PROCEDURE delete_contact(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_ctcv_tbl IN ctcv_tbl_type) IS
i NUMBER;
delete_contact(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_return_status,
x_msg_count=>x_msg_count,
x_msg_data=>x_msg_data,
p_ctcv_rec=>p_ctcv_tbl(i));
END delete_contact;
SELECT id
FROM okc_k_party_roles_b
WHERE chr_id = p_chr_id
AND rle_code = p_rle_code
AND jtot_object1_code = p_jtot_object1_code
AND object1_id1 = p_object1_id1
AND object1_id2 = p_object1_id2;
PROCEDURE update_k_party_role(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_cplv_rec IN cplv_rec_type,
x_cplv_rec OUT NOCOPY cplv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_k_party_role';
OKL_OKC_MIGRATION_PVT.update_k_party_role(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_cplv_rec,
x_cplv_rec);
END update_k_party_role;
procedure update_k_party_role(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_cplv_tbl IN cplv_tbl_type,
x_cplv_tbl OUT NOCOPY cplv_tbl_type) is
i NUMBER;
update_k_party_role(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_return_status,
x_msg_count=>x_msg_count,
x_msg_data=>x_msg_data,
p_cplv_rec=>p_cplv_tbl(i),
x_cplv_rec=>x_cplv_tbl(i));
END update_k_party_role;
PROCEDURE delete_k_party_role(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_cplv_rec IN cplv_rec_type) IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_k_party_role';
SELECT 'x'
FROM OKC_CONTACTS_V
WHERE CPL_ID = p_cplv_rec.id;
SELECT rle_code
FROM OKC_K_PARTY_ROLES_B
WHERE ID = p_cplv_rec.id;
SELECT dnz_chr_id
FROM okc_k_party_roles_v
WHERE id = p_cplv_rec.id;
SELECT okl_vp_jtf_party_name_pub.get_party_name(pr.rle_code,chr.buy_or_sell,pr.object1_id1,pr.object1_id2) party_name
FROM okc_k_party_roles_b pr
,okc_k_headers_b chr
,okc_rules_b rule
WHERE pr.id = cp_cpl_id
AND rule.rule_information1 = pr.id
AND rule.rule_information_category = 'VGLRSP'
AND rule.dnz_chr_id = cp_chr_id
AND pr.dnz_chr_id = chr.id
AND chr.id = cp_chr_id;
OKL_OKC_MIGRATION_PVT.delete_k_party_role(p_api_version,
p_init_msg_list,
x_return_status,
x_msg_count,
x_msg_data,
p_cplv_rec);
END delete_k_party_role;
PROCEDURE delete_k_party_role(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_cplv_tbl IN cplv_tbl_type) IS
i NUMBER;
delete_k_party_role(p_api_version=>p_api_version,
p_init_msg_list=>OKC_API.G_FALSE,
x_return_status=>l_return_status,
x_msg_count=>x_msg_count,
x_msg_data=>x_msg_data,
p_cplv_rec=>p_cplv_tbl(i));
END delete_k_party_role;