The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_WF_EVT_KHR_SERV_DELETED CONSTANT VARCHAR2(65) := 'oracle.apps.okl.la.lease_contract.remove_service_fee';
SELECT bill_to_site_use_id
FROM okc_k_headers_b
WHERE id = p_chr_id;
SELECT 1
FROM okc_class_operations
WHERE cls_code = 'SERVICE'
AND opn_code = 'CHECK_RULE';
SELECT contract_number,
currency_code,
customer_id,
bill_to_id
FROM okl_la_link_service_uv
WHERE chr_id = p_chr_id;
SELECT contract_number,
currency_code,
customer_id,
bill_to_id
FROM okl_la_link_service_uv9
WHERE chr_id = p_chr_id;
SELECT contract_number,
currency_code
FROM okc_k_headers_v
WHERE id = p_chr_id;
SELECT role.object1_id1
FROM okc_k_party_roles_v role
WHERE role.chr_id = p_chr_id
AND role.rle_code = 'LESSEE';
SELECT rule.object1_id1
FROM okc_rule_groups_v rgp,
okc_rules_v rule
WHERE rgp.chr_id = p_chr_id
AND rgp.id = rule.rgp_id
AND rgp.rgd_code = 'LABILL'
AND rule.rule_information_category = 'BTO';
SELECT chr_id
FROM okc_k_rel_objs_v
WHERE chr_id <> p_okl_chr_id
AND object1_id1 = p_oks_chr_id
AND rty_code = 'OKLSRV';
SELECT id
FROM okc_line_styles_v
WHERE lty_code = p_style;
SELECT currency_code
FROM okc_k_headers_v
WHERE id = p_chr_id;
SELECT srv_prod.inventory_item_id item_id,
srv_prod.name item_name,
srv_line.price_negotiated,
okl_fin_line.id fin_line_id,
okl_fin_line.name asset_number,
okl_item.number_of_items okl_no_of_item,
srv_item.number_of_items srv_no_of_item
FROM okc_k_lines_b srv_line,
okc_line_styles_b srv_style,
okc_k_items srv_item,
okx_customer_products_v srv_prod,
okc_k_items okl_item,
mtl_system_items_b okl_mtl,
okc_k_lines_b okl_item_line,
okc_k_lines_v okl_fin_line,
okc_line_styles_b okl_style
WHERE srv_line.lse_id = srv_style.id
AND srv_line.id = srv_item.cle_id
AND srv_item.object1_id1 = srv_prod.id1
AND srv_prod.inventory_item_id = okl_mtl.inventory_item_id
AND srv_prod.organization_id = okl_mtl.organization_id
AND okl_item.object1_id1 = okl_mtl.inventory_item_id
AND okl_item.object1_id2 = TO_CHAR(okl_mtl.organization_id) -- Bug# 2887948
AND okl_item.cle_id = okl_item_line.id
AND okl_item_line.lse_id = okl_style.id
AND okl_item_line.cle_id = okl_fin_line.id
AND okl_style.id = okl_item_line.lse_id
AND okl_style.lty_code = 'ITEM'
AND okl_item_line.dnz_chr_id = p_chr_id
AND srv_style.lty_code = 'COVER_PROD'
AND srv_line.sts_code = 'ACTIVE'
AND srv_line.cle_id = p_srv_line_id;
SELECT nvl(sum(l.price_negotiated),0) tot_amount
FROM okc_k_lines_v l,
okc_line_styles_v s,
okc_k_items_v item,
okx_install_items_v prod
WHERE l.lse_id = s.id
AND l.id = item.cle_id
AND item.object1_id1 = prod.id1
AND EXISTS (
SELECT 'Y'
FROM okc_k_items_v item,
okx_system_items_v mtl,
okc_k_lines_v line,
okc_line_styles_v style
WHERE item.object1_id1 = mtl.id1
AND item.object1_id2 = TO_CHAR(mtl.id2) -- Bug# 2887948
AND item.cle_id = line.id
AND line.lse_id = style.id
AND line.dnz_chr_id = p_chr_id
AND mtl.id1 = prod.inventory_item_id
AND style.lty_code = 'ITEM'
)
AND s.lty_code = 'COVER_PROD'
AND l.sts_code = 'ACTIVE'
--Bug# :
--AND l.cle_id = p_srv_line_id;
SELECT start_date,
end_date
FROM okc_k_lines_v
WHERE id = p_line_id;
SELECT start_date,
end_date,
sts_code
FROM okc_k_headers_v
WHERE id = p_chr_id;
SELECT object1_id1,
object1_id2,
uom_code
FROM okc_k_items_v
WHERE cle_id = p_cle_id
AND jtot_object1_code = 'OKX_SERVICE';
PROCEDURE delete_service_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_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type
) IS
l_api_name VARCHAR2(35) := 'delete_service_link';
l_proc_name VARCHAR2(35) := 'DELETE_SERVICE_LINK';
SELECT id
FROM okc_k_rel_objs_v
WHERE cle_id = p_okl_service_line_id
AND rty_code = 'OKLSRV' -- ???
AND jtot_object1_code = 'OKL_SERVICE_LINE';
SELECT id
FROM okc_k_rel_objs_v t1
WHERE chr_id = p_okl_chr_id
AND cle_id IS NULL
AND NOT EXISTS (SELECT 'Y'
FROM okc_k_rel_objs t2
WHERE t2.cle_id IS NOT NULL
AND t2.chr_id = t1.chr_id
AND t2.rty_code = 'OKLSRV'
AND t2.jtot_object1_code = 'OKL_SERVICE_LINE'
);
SELECT rlobj.object1_id1
FROM okc_k_rel_objs_v rlobj
WHERE rlobj.chr_id = p_clev_rec.dnz_chr_id
AND rlobj.cle_id = p_clev_rec.id
AND rlobj.rty_code = 'OKLSRV'
AND rlobj.jtot_object1_code = 'OKL_SERVICE_LINE';
SELECT dnz_chr_id
FROM okc_k_lines_b
WHERE id = p_oks_service_line_id;
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 1');
IF (l_line_rel_id IS NOT NULL) THEN -- Link exists, delete it
l_crjv_rec.id := l_line_rel_id;
OKC_K_REL_OBJS_PUB.delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_crjv_rec => l_crjv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 2');
OKC_K_REL_OBJS_PUB.delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_crjv_rec => l_crjv_rec
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 3');
okl_contract_pub.delete_contract_line(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec,
p_delete_cascade_yn => 'Y'
);
OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,'DELETE 4');
p_event_name => G_WF_EVT_KHR_SERV_DELETED,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
END delete_service_line;
PROCEDURE update_service_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_okl_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Lease Contract Header ID
p_oks_chr_id IN OKC_K_HEADERS_V.ID%TYPE, -- Service Contract Header ID
p_oks_service_line_id IN OKC_K_LINES_V.ID%TYPE, -- Service Contract Service Top Line ID
p_supplier_id IN NUMBER,
p_clev_rec IN clev_rec_type,
p_klev_rec IN klev_rec_type,
x_okl_service_line_id OUT NOCOPY OKC_K_LINES_V.ID%TYPE
) IS
l_api_name VARCHAR2(35) := 'update_service_link';
l_proc_name VARCHAR2(35) := 'UPDATE_SERVICE_LINK';
okl_service_integration_pvt.delete_service_line(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_TRUE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_rec => p_clev_rec,
p_klev_rec => p_klev_rec
);
END update_service_line;
SELECT object1_id1
FROM okc_k_rel_objs_v
WHERE chr_id = p_chr_id
AND cle_id IS NULL
AND rty_code = 'OKLSRV'; -- ???
SELECT 'Y' answer
FROM okc_k_rel_objs_v
WHERE chr_id = p_chr_id
AND object1_id1 = p_line_id
AND jtot_object1_code = 'OKL_SERVICE_LINE';
PROCEDURE update_jtf_code (
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_okl_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
p_oks_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
p_jtf_code IN VARCHAR2
) IS
l_api_name VARCHAR2(35) := 'update_jtf_code';
l_proc_name VARCHAR2(35) := 'UPDATE_JTF_CODE';
SELECT id
FROM okc_k_rel_objs_v
WHERE chr_id = p_okl_chr_id
AND object1_id1 = p_oks_chr_id
AND rty_code = 'OKLSRV'
AND jtot_object1_code = 'OKL_SERVICE_CONNECTOR';
OKC_K_REL_OBJS_PUB.DELETE_ROW(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_crjv_rec => l_crjv_rec
);
END update_jtf_code;
SELECT object1_id1
FROM okc_k_rel_objs_v
WHERE chr_id = p_chr_id
AND cle_id IS NULL
AND rty_code = 'OKLSRV'; -- ???
SELECT cle_id,
object1_id1
FROM okc_k_rel_objs_v
WHERE chr_id = p_okl_chr_id
AND cle_id IS NOT NULL
AND rty_code = 'OKLSRV'
AND jtot_object1_code = 'OKL_COV_PROD';
SELECT install_location_id location_id,
install_location_type_code location_type_code
FROM csi_item_instances
WHERE instance_id = p_instance_id;
SELECT csi.install_location_id
FROM csi_item_instances csi,
hz_locations hl
WHERE install_location_type_code = 'HZ_LOCATIONS'
AND csi.owner_party_source_table = 'HZ_PARTIES'
AND hl.location_id = csi.install_location_id
AND NOT EXISTS (SELECT 1
FROM hz_party_sites hps,
hz_party_site_uses hpsu
WHERE hps.location_id = hl.location_id
AND hps.party_id = csi.owner_party_id
AND hpsu.party_site_id = hps.party_site_id
AND hpsu.site_use_type = 'INSTALL_AT'
AND NVL(hpsu.status,'X') = 'A'
)
AND csi.instance_id = p_instance_id;
SELECT hps.location_id
FROM csi_item_instances csi,
hz_party_sites hps
WHERE install_location_type_code = 'HZ_PARTY_SITES'
AND csi.owner_party_source_table = 'HZ_PARTIES'
AND csi.install_location_id = hps.party_site_id
AND csi.owner_party_id = hps.party_id
AND NOT EXISTS (SELECT 1
FROM hz_party_site_uses hpsu
WHERE hpsu.party_site_id = hps.party_site_id
AND hpsu.site_use_type = 'INSTALL_AT'
AND NVL(hpsu.status, 'X') = 'A'
)
AND csi.instance_id = p_instance_id;
SELECT
substr(arp_addr_label_pkg.format_address(null,hl.address1,hl.address2,hl.address3,
hl.address4,hl.city,hl.county,hl.state,hl.province,hl.postal_code,null,hl.country,null,
null,null,null,null,null,null,'n','n',80,1,1),1,80) loc_address
FROM hz_locations hl
WHERE hl.location_id = p_location_id;
SELECT ID
FROM okc_k_rel_objs_v
WHERE cle_id = p_okl_line_id
AND object1_id1 = p_oks_line_id
AND jtot_object1_code = 'OKL_COV_PROD'
AND rty_code = 'OKLSRV';
OKC_K_REL_OBJS_PUB.delete_row (
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_crjv_rec => l_crjv_rec
);
SELECT 'Y',
item_description,
srv_prod_instance_id
FROM okl_la_cov_asset_uv
WHERE chr_id = p_chr_id
AND serv_top_line_id = p_srv_top_id
AND name = p_asset;
PROCEDURE update_cov_asset_line(
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_clev_tbl IN clev_tbl_type,
p_klev_tbl IN klev_tbl_type,
p_cimv_tbl IN cimv_tbl_type,
p_cov_tbl IN srv_cov_tbl_type,
x_clev_tbl OUT NOCOPY clev_tbl_type,
x_klev_tbl OUT NOCOPY klev_tbl_type,
x_cimv_tbl OUT NOCOPY cimv_tbl_type
) IS
l_api_name VARCHAR2(35) := 'update_cov_asset_line';
l_proc_name VARCHAR2(35) := 'UPDATE_COV_ASSET_LINE';
SELECT 'Y'
FROM okl_la_cov_asset_uv
WHERE chr_id = p_chr_id
AND serv_top_line_id = p_srv_top_id
AND name = p_asset;
OKL_CONTRACT_LINE_ITEM_PUB.UPDATE_CONTRACT_LINE_ITEM (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => p_clev_tbl,
p_klev_tbl => p_klev_tbl,
p_cimv_tbl => p_cimv_tbl,
x_clev_tbl => x_clev_tbl,
x_klev_tbl => x_klev_tbl,
x_cimv_tbl => x_cimv_tbl
);
END update_cov_asset_line;
PROCEDURE update_oks_ar_intf(
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_oks_chr_id IN OKC_K_HEADERS_B.ID%TYPE,
p_ar_intf_val IN VARCHAR2
)IS
l_api_name VARCHAR2(35) := 'update_oks_arintf';
l_proc_name VARCHAR2(35) := 'UPDATE_OKS_ARINTF';
SELECT rule.id
FROM okc_rules_v rule,
okc_rule_groups_v rg
WHERE rule.rgp_id = rg.id
AND rule.rule_information_category = 'SBG'
AND rule.jtot_object1_code = 'OKS_TRXTYPE'
AND rg.chr_id = p_chr_id;
okc_rule_pub.update_rule(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_TRUE,
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
);
END update_oks_ar_intf;
SELECT ib_line.id,
ib_item.id,
ib_item.object1_id1,
ib_item.object1_id2
FROM okc_k_lines_b ib_line,
okc_line_styles_b ib_style,
okc_k_items ib_item,
okc_k_lines_b cov_line,
okc_k_items cov_item,
okc_k_lines_b inst_line,
okc_line_styles_b inst_style,
okc_k_rel_objs rel
WHERE rel.cle_id = cov_line.id
AND rel.chr_id = cov_line.dnz_chr_id
AND cov_line.id = cov_item.cle_id
AND cov_line.dnz_chr_id = rel.chr_id
AND cov_item.object1_id1 = inst_line.cle_id
AND cov_item.jtot_object1_code = 'OKX_COVASST'
AND inst_style.lty_code = 'FREE_FORM2'
AND inst_line.lse_id = inst_style.id
AND inst_line.id = ib_line.cle_id
AND inst_line.dnz_chr_id = ib_line.dnz_chr_id
AND ib_line.lse_id = ib_style.id
AND ib_style.lty_code = 'INST_ITEM'
AND ib_line.id = ib_item.cle_id
AND ib_item.dnz_chr_id = ib_line.dnz_chr_id
AND ib_item.jtot_object1_code = 'OKX_IB_ITEM'
AND rel.cle_id = p_okl_cov_line_id
AND rel.chr_id = p_okl_chr_id
AND ib_item.object1_id1 IS NULL
AND ROWNUM < 2; -- to ensure first line with null instance_id
SELECT object1_id1,
object1_id2
FROM okc_k_items
WHERE cle_id = p_oks_cov_line_id
AND dnz_chr_id = p_oks_chr_id;
SELECT
csi.instance_id,
csi.inventory_item_id,
csi.inv_master_organization_id,
csi.install_location_id location_id,
csi.install_location_type_code location_type_code,
csi.instance_number
FROM okc_k_rel_objs krel,
okc_k_items kitem,
csi_item_instances csi,
okc_k_lines_b line,
okc_line_styles_b style,
OKC_STATUSES_B sts
WHERE krel.rty_code = 'OKLSRV'
AND krel.jtot_object1_code = 'OKL_COV_PROD'
AND kitem.cle_id = krel.object1_id1
AND kitem.jtot_object1_code = 'OKX_CUSTPROD'
AND csi.instance_id = kitem.object1_id1
AND krel.cle_id = line.id
AND line.lse_id = style.id
AND style.lty_code = 'LINK_SERV_ASSET'
AND line.dnz_chr_id = p_chr_id
AND sts.code = line.sts_code
AND sts.ste_code NOT IN ('HOLD', 'TERMINATED', 'EXPIRED', 'CANCELLED');
SELECT description
FROM mtl_system_items
WHERE inventory_item_id = p_inv_id
AND organization_id = p_org_id;
update_jtf_code(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_okl_chr_id => p_okl_chr_id,
p_oks_chr_id => l_oks_chr_id,
p_jtf_code => 'OKL_SERVICE'
);
update_oks_ar_intf(
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_oks_chr_id => l_oks_chr_id,
p_ar_intf_val => 'N'
);
okc_contract_item_pub.update_contract_item(
p_api_version => 1.0,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec
);
SELECT *
FROM okl_la_cov_asset_uv
WHERE serv_top_line_id = p_srv_line_id
AND id1 = p_asset_id
AND serial_number_control_code <> 1;
l_cov_prod_tbl.DELETE;
SELECT 1
FROM okc_class_operations
WHERE cls_code = 'SERVICE'
AND opn_code = 'CHECK_RULE';
SELECT DISTINCT cle_id
FROM okl_la_link_service_uv
WHERE chr_id = p_oks_chr_id;
SELECT DISTINCT cle_id
FROM okl_la_link_service_uv9
WHERE chr_id = p_oks_chr_id;
SELECT line.id,
line.price_negotiated
FROM okc_k_lines_b line,
okc_line_styles_v style
WHERE line.lse_id = style.id
AND cle_id = p_oks_serv_id
AND lty_code = 'COVER_PROD'
AND NOT EXISTS (SELECT 'Y'
FROM okc_k_rel_objs rel
WHERE TO_CHAR(line.id) = rel.object1_id1
AND jtot_object1_code = 'OKL_COV_PROD'
AND rty_code = 'OKLSRV'); -- to pickup only non-linked lines
SELECT name,
id1,
id2 --,
--lease_item_qty,
--service_item_qty
FROM okl_la_cov_asset_uv cov_asset
WHERE oks_cov_line_id = p_oks_cov_line_id
AND serv_top_line_id = p_okl_serv_line_id
-- bug 4889070. START
AND lease_item_qty = service_item_qty
-- bug 4889070. END
AND NOT EXISTS (SELECT 'Y'
FROM okc_k_items cov_item,
okc_k_lines_b line
WHERE cov_item.object1_id1 = cov_asset.id1
AND cov_item.jtot_object1_code = 'OKX_COVASST'
AND line.id = cov_item.cle_id
AND line.id = cov_asset.serv_top_line_id
AND line.sts_code <> 'ABANDONED');
SELECT distinct id1
FROM okl_la_cov_asset_uv
WHERE serv_top_line_id = p_okl_service_id
AND serial_number_control_code <> 1; -- serial item
l_line_item_tbl.delete;
l_line_item_tbl.delete;
SELECT id,
object1_id1,
cle_id
FROM okc_k_rel_objs_v
WHERE chr_id = p_okl_chr_id
AND rty_code = 'OKLSRV';
l_clev_tbl.DELETE;
l_klev_tbl.DELETE;
OKC_K_REL_OBJS_PUB.delete_row (
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_crjv_tbl => l_crjv_tbl
);
okl_contract_pub.update_contract_line(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_clev_tbl => l_clev_tbl,
p_klev_tbl => l_klev_tbl,
x_clev_tbl => x_clev_tbl,
x_klev_tbl => x_klev_tbl
);
select transaction_type_id
from CSI_TXN_TYPES
where source_transaction_type = p_transaction_type;
SELECT kitem.object1_id1
FROM okc_k_rel_objs rel,
okc_k_items kitem
WHERE rel.cle_id = kitem.cle_id
AND rel.rty_code = 'OKLSRV'
AND rel.jtot_object1_code = 'OKL_COV_PROD'
AND kitem.jtot_object1_code = 'OKX_COVASST'
AND rel.chr_id = p_chr_id;
SELECT kitem.id,
kitem.object1_id1,
kitem.cle_id
FROM okc_k_lines_b form2,
okc_line_styles_b f2_style,
okc_k_lines_b inst,
okc_line_styles_b inst_style,
okc_k_items_v kitem
WHERE form2.lse_id = f2_style.id
AND f2_style.lty_code = 'FREE_FORM2'
AND inst.lse_id = inst_style.id
AND inst_style.lty_code = 'INST_ITEM'
AND inst.id = kitem.cle_id
AND kitem.jtot_object1_code = 'OKX_IB_ITEM'
AND form2.id = inst.cle_id
AND form2.dnz_chr_id = p_chr_id
AND form2.cle_id = p_cle_id;
SELECT DECODE(count(1),0,'N','Y') ib_exists
FROM okc_k_items
WHERE object1_id1 = p_instance_id
AND jtot_object1_code = 'OKX_CUSTPROD';
l_cimv_rec.object1_id1 := NULL; -- Update with IB instance from OKS contract later
okl_okc_migration_pvt.update_contract_item(
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_cimv_rec => l_cimv_rec,
x_cimv_rec => x_cimv_rec
);