The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_last_updated_by NUMBER;
l_last_update_date DATE;
l_last_update_login NUMBER;
SELECT CHR.CONTRACT_NUMBER
, CHR.ID
FROM OKC_K_HEADERS_ALL_B CHR
, OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
WHERE CPRS.CHR_ID = CHR.ID
AND CPRS.DNZ_CHR_ID = CPRD.DNZ_CHR_ID
AND CPRS.OBJECT1_ID1 <> CPRD.OBJECT1_ID1
AND CPRS.OBJECT1_ID1 = p_src_vendor_id
AND CPRD.OBJECT1_ID1 = p_des_vendor_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CHR.SCS_CODE = 'LEASE'
AND CPRS.CLE_ID IS NULL
AND CPRD.CLE_ID IS NULL
AND CPRS.CHR_ID = CPRD.CHR_ID
GROUP BY CHR.CONTRACT_NUMBER, CHR.ID
ORDER BY CHR.CONTRACT_NUMBER;
SELECT CHR.CONTRACT_NUMBER
, CHR.ID
, CPRD.CLE_ID
FROM OKC_K_HEADERS_ALL_B CHR
, OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
WHERE CPRS.DNZ_CHR_ID = CHR.ID
AND CPRS.DNZ_CHR_ID = CPRD.DNZ_CHR_ID
AND CPRS.OBJECT1_ID1 <> CPRD.OBJECT1_ID1
AND CPRS.OBJECT1_ID1 = p_src_vendor_id
AND CPRD.OBJECT1_ID1 = p_des_vendor_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CHR.SCS_CODE = 'LEASE'
AND CPRS.CHR_ID IS NULL
AND CPRD.CHR_ID IS NULL
AND CPRS.CLE_ID = CPRD.CLE_ID
GROUP BY CHR.CONTRACT_NUMBER, CHR.ID, CPRD.CLE_ID
ORDER BY CHR.CONTRACT_NUMBER;
SELECT CPRS.ID CPRS_CPL_ID
, CPRD.ID CPRD_CPL_ID
FROM OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
WHERE CPRS.DNZ_CHR_ID = p_chr_id
AND CPRS.DNZ_CHR_ID = CPRD.DNZ_CHR_ID
AND CPRS.OBJECT1_ID1 <> CPRD.OBJECT1_ID1
AND CPRS.OBJECT1_ID1 = p_src_vendor_id
AND CPRD.OBJECT1_ID1 = p_des_vendor_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRS.CLE_ID IS NULL
AND CPRD.CLE_ID IS NULL
AND CPRS.CHR_ID = CPRD.CHR_ID;
SELECT CPRS.ID CPRS_CPL_ID
, CPRD.ID CPRD_CPL_ID
FROM OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
WHERE CPRS.DNZ_CHR_ID = p_chr_id
AND CPRS.DNZ_CHR_ID = CPRD.DNZ_CHR_ID
AND CPRS.OBJECT1_ID1 <> CPRD.OBJECT1_ID1
AND CPRS.OBJECT1_ID1 = p_src_vendor_id
AND CPRD.OBJECT1_ID1 = p_des_vendor_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPRS.CHR_ID IS NULL
AND CPRD.CHR_ID IS NULL
AND CPRS.CLE_ID = p_cle_id
AND CPRS.CLE_ID = CPRD.CLE_ID;
SELECT 1
FROM OKL_PARTY_PAYMENT_HDR PPH
, OKL_PARTY_PAYMENT_DTLS PPD
WHERE DNZ_CHR_ID = p_chr_id
AND NVL(CLE_ID, -1) = NVL(p_cle_id, NVL(CLE_ID, -1))
AND PPH.ID = PPD.PAYMENT_HDR_ID
AND PPD.CPL_ID = p_src_cpl_id;
SELECT STY.NAME FEE_NAME
FROM OKC_K_ITEMS ITM
, OKL_STRM_TYPE_TL STY
, OKC_K_LINES_B CLE
WHERE ITM.OBJECT1_ID1 = STY.ID
AND ITM.JTOT_OBJECT1_CODE = 'OKL_STRMTYP'
AND STY.LANGUAGE = USERENV('LANG')
AND ITM.CLE_ID = CLE.ID
AND CLE.LSE_ID = 52
AND CLE.ID = p_cle_id
UNION
SELECT NAME
FROM okc_k_lines_v
WHERE id = p_cle_id
AND lse_id = 48;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_date := TRUNC(SYSDATE);
l_last_update_login := FND_GLOBAL.LOGIN_ID;
UPDATE OKL_TAX_ATTR_DEFINITIONS
SET VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_SERVICES_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_ASSET_COMPONENTS_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_COST_ADJUSTMENTS_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_FEES_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_LEASE_OPPS_ALL_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_LEASE_OPPS_ALL_B
SET ORIGINATING_VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE ORIGINATING_VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_LEASE_APPS_ALL_B
SET ORIGINATING_VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE ORIGINATING_VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_CURE_FUND_SUMS_ALL
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_CURE_FUND_TRANS_ALL
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_CURE_REFUND_HEADERS_B
SET VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_CURE_REFUNDS_ALL
SET VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_CURE_REFUND_STAGE
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_CURE_REPORTS_ALL
SET VENDOR_ID = p_vendor_id,
VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id
AND VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_TRX_AP_INVS_ALL_B
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_TRX_AP_INVS_ALL_B
SET IPVS_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE IPVS_ID = p_dup_vendor_site_id;
UPDATE OKL_INS_POLICIES_ALL_B
SET ISU_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE ISU_ID = p_dup_vendor_id;
UPDATE OKL_INS_PRODUCTS_B
SET ISU_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE ISU_ID = p_dup_vendor_id;
UPDATE OKL_INSURER_RANKINGS
SET ISU_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE ISU_ID = p_dup_vendor_id;
UPDATE OKC_RULES_B RUL
SET OBJECT1_ID1 = TO_CHAR(p_vendor_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE OBJECT1_ID1 = TO_CHAR(p_dup_vendor_id)
AND JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND EXISTS (SELECT ID
FROM OKL_K_HEADERS KHR
WHERE KHR.ID = RUL.DNZ_CHR_ID);
UPDATE OKC_RULES_B RUL
SET OBJECT2_ID1 = TO_CHAR(p_vendor_site_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE OBJECT2_ID1 = TO_CHAR(p_dup_vendor_site_id)
AND JTOT_OBJECT2_CODE IN ('OKX_PAYTO', 'OKX_VENDSITE')
AND EXISTS (SELECT ID
FROM OKL_K_HEADERS KHR
WHERE KHR.ID = RUL.DNZ_CHR_ID);
UPDATE OKC_RULES_B RUL
SET OBJECT3_ID1 = TO_CHAR(p_vendor_site_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE OBJECT3_ID1 = TO_CHAR(p_dup_vendor_site_id)
AND JTOT_OBJECT3_CODE IN ('OKX_PAYTO', 'OKX_VENDSITE')
AND EXISTS (SELECT ID
FROM OKL_K_HEADERS KHR
WHERE KHR.ID = RUL.DNZ_CHR_ID);
UPDATE OKL_SUBSIDIES_ALL_B
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_TXL_ASSETS_B
SET SUPPLIER_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE SUPPLIER_ID = p_dup_vendor_id;
UPDATE OKL_TXL_ASSETS_B
SET RESIDUAL_SHR_PARTY_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE RESIDUAL_SHR_PARTY_ID = p_dup_vendor_id;
UPDATE OKL_TRX_SUBSIDY_POOLS
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_EXT_PAY_INVS_ALL_B
SET VENDOR_ID = p_vendor_id,
VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id
AND VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_QUOTE_SUBPOOL_USAGE
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_EXT_BILLING_INTF_ALL
SET TAX_VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE TAX_VENDOR_ID = p_dup_vendor_id;
UPDATE OKL_EXT_BILLING_INTF_ALL
SET TAX_VENDOR_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE TAX_VENDOR_SITE_ID = p_dup_vendor_site_id;
UPDATE OKL_CNSLD_AP_INVS_ALL
SET VENDOR_ID = p_vendor_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id;
,'begin debug call OKL_KPL_PVT.DELETE_ROW');
OKL_KPL_PVT.DELETE_ROW
(p_api_version => l_api_version,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data,
p_kplv_rec => l_kplv_rec);
,'end debug call OKL_KPL_PVT.DELETE_ROW');
,L_MODULE || ' Result of OKL_KPL_PVT.DELETE_ROW'
,'l_return_status ' || l_return_status);
,'begin debug call OKC_CONTRACT_PARTY_PVT.DELETE_K_PARTY_ROLE');
OKC_CONTRACT_PARTY_PVT.DELETE_K_PARTY_ROLE
(p_api_version => l_api_version,
p_init_msg_list => 'F',
x_return_status => l_return_status,
x_msg_count => p_msg_count,
x_msg_data => p_msg_data,
p_cplv_rec => l_cplv_rec);
,'end debug call OKC_CONTRACT_PARTY_PVT.DELETE_K_PARTY_ROLE');
,L_MODULE || ' Result of OKC_CONTRACT_PARTY_PVT.DELETE_K_PARTY_ROLE'
,'l_return_status ' || l_return_status);
UPDATE OKL_QUOTE_PARTIES QPT
SET PARTY_OBJECT1_ID1 = TO_CHAR(p_vendor_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login,
CPL_ID = party_role_dtls_rec.CPRD_CPL_ID
WHERE PARTY_OBJECT1_ID1 = TO_CHAR(p_dup_vendor_id)
AND PARTY_JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND CPL_ID = party_role_dtls_rec.CPRS_CPL_ID
AND EXISTS (SELECT 1
FROM OKL_TRX_QUOTES_ALL_B QTE
WHERE QTE.ID = QPT.QTE_ID
AND QTE.KHR_ID = chk_vendor_chr_rec.id
);
,'begin debug call OKL_JTOT_CONTACT_EXTRACT_PUB.DELETE_PARTY');
OKL_JTOT_CONTACT_EXTRACT_PUB.DELETE_PARTY(
l_api_version
,'F'
,l_return_status
,p_msg_count
,p_msg_data
,chk_vendor_chr_rec.id
,party_role_dtls_rec.CPRS_CPL_ID);
,'end debug call OKL_JTOT_CONTACT_EXTRACT_PUB.DELETE_PARTY');
,L_MODULE || ' Result of OKL_JTOT_CONTACT_EXTRACT_PUB.DELETE_PARTY'
,'l_return_status ' || l_return_status);
UPDATE OKL_QUOTE_PARTIES
SET PARTY_OBJECT1_ID1 = TO_CHAR(p_vendor_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE PARTY_OBJECT1_ID1 = TO_CHAR(p_dup_vendor_id)
AND PARTY_JTOT_OBJECT1_CODE = 'OKX_VENDOR';
UPDATE OKL_PARTY_PAYMENT_DTLS
SET VENDOR_ID = p_vendor_id,
PAY_SITE_ID = p_vendor_site_id,
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE VENDOR_ID = p_dup_vendor_id
AND PAY_SITE_ID = p_dup_vendor_site_id;
UPDATE OKC_K_PARTY_ROLES_B CPR
SET OBJECT1_ID1 = TO_CHAR(p_vendor_id),
LAST_UPDATED_BY = l_last_updated_by,
LAST_UPDATE_DATE = l_last_update_date,
LAST_UPDATE_LOGIN = l_last_update_login
WHERE OBJECT1_ID1 = TO_CHAR(p_dup_vendor_id)
AND JTOT_OBJECT1_CODE = 'OKX_VENDOR'
AND EXISTS (SELECT ID
FROM OKL_K_HEADERS KHR
WHERE KHR.ID = CPR.DNZ_CHR_ID);