The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT LOCATION_ID
, PARTY_SITE_NUMBER
, orig_system_reference
, party_site_name
, language
, addressee
, global_location_number
INTO p_party_site_rec.location_id
, p_party_site_rec.party_site_number
, p_party_site_rec.orig_system_reference
, p_party_site_rec.party_site_name
, p_party_site_rec.language
, p_party_site_rec.addressee
, p_party_site_rec.global_location_number
FROM hz_party_sites
WHERE party_site_id = p_old_party_site_id;
SELECT PARTY_ID INTO p_party_site_rec.party_id
FROM HZ_CUST_ACCOUNTS_ALL HCA
WHERE HCA.CUST_ACCOUNT_ID = p_cust_acct_id;
SELECT NVL(FND_PROFILE.VALUE('HZ_GENERATE_PARTY_SITE_NUMBER'), 'Y') INTO l_prof_value FROM DUAL;
SELECT COMMENTS
, SITE_USE_TYPE
, PRIMARY_PER_TYPE
, STATUS
INTO p_party_site_use_rec.COMMENTS
, p_party_site_use_rec.SITE_USE_TYPE
, p_party_site_use_rec.PRIMARY_PER_TYPE
, p_party_site_use_rec.STATUS
FROM HZ_PARTY_SITE_USES
WHERE PARTY_SITE_USE_ID = p_old_party_site_use_id;
SELECT 1
FROM HZ_CUST_ACCOUNTS_ALL HCA1
, HZ_CUST_ACCOUNTS_ALL HCA2
WHERE HCA1.CUST_ACCOUNT_ID = l_orig_cust_acct_id
AND HCA2.CUST_ACCOUNT_ID = l_new_cust_acct_id
AND HCA1.PARTY_ID = HCA2.PARTY_ID;
SELECT HPSN.PARTY_SITE_ID
FROM HZ_PARTY_SITES HPS
, HZ_CUST_ACCOUNTS_ALL HCA
, HZ_PARTY_SITES HPSN
WHERE HPS.PARTY_SITE_ID = l_old_party_site_id
AND HCA.CUST_ACCOUNT_ID = l_new_cust_acct_id
AND HCA.PARTY_ID = HPSN.PARTY_ID
AND HPSN.LOCATION_ID = HPS.LOCATION_ID
AND ROWNUM < 2;
SELECT HPSUN.PARTY_SITE_USE_ID
FROM HZ_PARTY_SITES HPS
, HZ_CUST_ACCOUNTS_ALL HCA
, HZ_PARTY_SITES HPSN
, HZ_PARTY_SITE_USES HPSU
, HZ_PARTY_SITE_USES HPSUN
WHERE HPSU.PARTY_SITE_USE_ID = l_old_party_site_use_id
AND HPS.PARTY_SITE_ID = HPSU.PARTY_SITE_ID
AND HCA.CUST_ACCOUNT_ID = l_new_cust_acct_id
AND HCA.PARTY_ID = HPSN.PARTY_ID
AND HPSN.LOCATION_ID = HPS.LOCATION_ID
AND HPSUN.PARTY_SITE_ID = HPSN.PARTY_SITE_ID
AND HPSUN.SITE_USE_TYPE = HPSU.SITE_USE_TYPE
AND ROWNUM < 2;
PROCEDURE UPDATE_ASSET_LOCATION(
p_init_msg_list IN VARCHAR2,
p_cust_acct_id IN NUMBER,
p_parent_object_id IN NUMBER,
p_parent_object_code IN VARCHAR2,
p_merge_header_id IN RA_CUSTOMER_MERGE_HEADERS.CUSTOMER_MERGE_HEADER_ID%TYPE,
req_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_api_name VARCHAR2(30) := 'UPDATE_ASSET_LOCATION';
SELECT ASS.ID ASSET_ID
, ASS.INSTALL_SITE_ID
, HPS.PARTY_SITE_ID
FROM OKL_ASSETS_B ASS
, OKL_LEASE_QUOTES_B LSQ
, OKL_LEASE_APPLICATIONS_B LAP
, HZ_PARTY_SITE_USES HPSU
, HZ_PARTY_SITES HPS
WHERE ASS.PARENT_OBJECT_CODE = 'LEASEQUOTE'
AND LSQ.ID = ASS.PARENT_OBJECT_ID
AND LSQ.PARENT_OBJECT_CODE = 'LEASEAPP'
AND LSQ.PARENT_OBJECT_ID = LAP.ID
AND HPSU.PARTY_SITE_USE_ID = ASS.INSTALL_SITE_ID
AND HPSU.PARTY_SITE_ID = HPS.PARTY_SITE_ID
AND LAP.ID = l_lap_id;
SELECT ASS.ID ASSET_ID
, ASS.INSTALL_SITE_ID
, HPS.PARTY_SITE_ID
FROM OKL_ASSETS_B ASS
, OKL_LEASE_QUOTES_B LSQ
, OKL_LEASE_OPPORTUNITIES_B LOP
, HZ_PARTY_SITE_USES HPSU
, HZ_PARTY_SITES HPS
WHERE ASS.PARENT_OBJECT_CODE = 'LEASEQUOTE'
AND LSQ.ID = ASS.PARENT_OBJECT_ID
AND LSQ.PARENT_OBJECT_CODE = 'LEASEOPP'
AND LSQ.PARENT_OBJECT_ID = LOP.ID
AND HPSU.PARTY_SITE_USE_ID = ASS.INSTALL_SITE_ID
AND HPSU.PARTY_SITE_ID = HPS.PARTY_SITE_ID
AND LOP.ID = l_lop_id;
L_MODULE := 'OKL.PLSQL.OKL_PARTY_MERGE_PUB.UPDATE_ASSET_LOCATION';
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
)VALUES(
HZ_CUSTOMER_MERGE_LOG_S.nextval,
'OKL_ASSETS_B',
p_merge_header_id,
ASSET_ID_LIST(I),
IS_ID_LIST(I),
NEW_IS_ID_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE OKL_ASSETS_B SET
INSTALL_SITE_ID = NEW_IS_ID_LIST(I)
, LAST_UPDATE_DATE = SYSDATE
, last_updated_by = arp_standard.profile.user_id
, last_update_login = arp_standard.profile.last_update_login
WHERE ID = ASSET_ID_LIST(I);
END UPDATE_ASSET_LOCATION;
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_INS_POLICIES_ALL_B IPYB
SET IPYB.ISU_ID = p_to_fk_id
, IPYB.object_version_number = IPYB.object_version_number + 1
, IPYB.last_update_date = SYSDATE
, IPYB.last_updated_by = arp_standard.profile.user_id
, IPYB.last_update_login = arp_standard.profile.last_update_login
WHERE IPYB.ISU_ID = p_from_fk_id
AND IPY_TYPE = 'THIRD_PARTY_POLICY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_INS_POLICIES_ALL_B IPYB
SET IPYB.AGENCY_SITE_ID = p_to_fk_id
, IPYB.object_version_number = IPYB.object_version_number + 1
, IPYB.last_update_date = SYSDATE
, IPYB.last_updated_by = arp_standard.profile.user_id
, IPYB.last_update_login = arp_standard.profile.last_update_login
WHERE IPYB.AGENCY_SITE_ID = p_from_fk_id
AND IPY_TYPE = 'THIRD_PARTY_POLICY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_INS_POLICIES_ALL_B IPYB
SET IPYB.INT_ID = p_to_fk_id
, IPYB.object_version_number = IPYB.object_version_number + 1
, IPYB.last_update_date = SYSDATE
, IPYB.last_updated_by = arp_standard.profile.user_id
, IPYB.last_update_login = arp_standard.profile.last_update_login
WHERE IPYB.INT_ID = p_from_fk_id
AND IPY_TYPE = 'THIRD_PARTY_POLICY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_INS_POLICIES_ALL_B IPYB
SET IPYB.AGENT_SITE_ID = p_to_fk_id
, IPYB.object_version_number = IPYB.object_version_number + 1
, IPYB.last_update_date = SYSDATE
, IPYB.last_updated_by = arp_standard.profile.user_id
, IPYB.last_update_login = arp_standard.profile.last_update_login
WHERE IPYB.AGENT_SITE_ID = p_from_fk_id
AND IPY_TYPE = 'THIRD_PARTY_POLICY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_OPEN_INT_ALL opi
SET opi.party_ID = p_to_fk_id
,opi.party_name = (select party_name from hz_parties where party_id = p_to_fk_id)
,opi.party_type = (select party_type from hz_parties where party_id = p_to_fk_id)
,opi.object_version_number = opi.object_version_number + 1
,opi.last_update_date = SYSDATE
,opi.last_updated_by = arp_standard.profile.user_id
,opi.last_update_login = arp_standard.profile.last_update_login
WHERE opi.party_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT merge_reason_code
INTO l_merge_reason_code
FROM hz_merge_batch
WHERE batch_id = p_batch_id;
UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
SET RAB.PAC_ID = p_to_fk_id,
RAB.object_version_number = RAB.object_version_number + 1,
RAB.last_update_date = SYSDATE,
RAB.last_updated_by = arp_standard.profile.user_id,
RAB.last_update_login = arp_standard.profile.last_update_login
WHERE RAB.PAC_ID = p_from_fk_id ;
ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
SELECT merge_reason_code
INTO l_merge_reason_code
FROM hz_merge_batch
WHERE batch_id = p_batch_id;
UPDATE OKL_RELOCATE_ASTS_ALL_B RAB
SET RAB.IST_ID = p_to_fk_id,
RAB.object_version_number = RAB.object_version_number + 1,
RAB.last_update_date = SYSDATE,
RAB.last_updated_by = arp_standard.profile.user_id,
RAB.last_update_login = arp_standard.profile.last_update_login
WHERE RAB.IST_ID = p_from_fk_id ;
ARP_MESSAGE.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE okl_txl_itm_insts iti
SET iti.object_id1_old = p_to_fk_id
, iti.object_version_number = iti.object_version_number + 1
, iti.last_update_date = SYSDATE
, iti.last_updated_by = arp_standard.profile.user_id
, iti.last_update_login = arp_standard.profile.last_update_login
WHERE iti.object_id1_old = p_from_fk_id
AND JTOT_OBJECT_CODE_OLD = 'OKX_PARTSITE';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TXL_ITM_INSTS TAB
SET TAB.object_id1_new = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.object_id1_new = p_from_fk_id
AND JTOT_OBJECT_CODE_NEW = 'OKX_PARTSITE';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_ASSETS_B TAB
SET TAB.INSTALL_SITE_ID = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.INSTALL_SITE_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_LEASE_APPS_ALL_B TAB
SET TAB.PROSPECT_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PROSPECT_ID = p_from_fk_id;
UPDATE OKL_LEASE_APPS_ALL_B TAB
SET TAB.PROSPECT_ADDRESS_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PROSPECT_ADDRESS_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_LEASE_OPPS_ALL_B TAB
SET TAB.PROSPECT_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PROSPECT_ID = p_from_fk_id ;
UPDATE OKL_LEASE_OPPS_ALL_B TAB
SET TAB.PROSPECT_ADDRESS_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PROSPECT_ADDRESS_ID = p_from_fk_id ;
UPDATE OKL_LEASE_OPPS_ALL_B TAB
SET TAB.INSTALL_SITE_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.INSTALL_SITE_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_LEASE_OPPS_ALL_B TAB
SET TAB.USAGE_LOCATION_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.USAGE_LOCATION_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TAX_SOURCES TAB
SET TAB.BILL_TO_PARTY_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.BILL_TO_PARTY_ID = p_from_fk_id ;
UPDATE OKL_TAX_SOURCES TAB
SET TAB.BILL_TO_PARTY_SITE_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.BILL_TO_PARTY_SITE_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TAX_SOURCES TAB
SET TAB.SHIP_TO_PARTY_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.SHIP_TO_PARTY_ID = p_from_fk_id ;
UPDATE OKL_TAX_SOURCES TAB
SET TAB.SHIP_TO_PARTY_SITE_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.SHIP_TO_PARTY_SITE_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TAX_SOURCES_T TAB
SET TAB.BILL_TO_PARTY_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.BILL_TO_PARTY_ID = p_from_fk_id ;
UPDATE OKL_TAX_SOURCES_T TAB
SET TAB.BILL_TO_PARTY_SITE_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.BILL_TO_PARTY_SITE_ID = p_from_fk_id ;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TAX_SOURCES_T TAB
SET TAB.SHIP_TO_PARTY_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.SHIP_TO_PARTY_ID = p_from_fk_id ;
UPDATE OKL_TAX_SOURCES_T TAB
SET TAB.SHIP_TO_PARTY_SITE_ID = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.SHIP_TO_PARTY_SITE_ID = p_from_fk_id;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TRX_CONTRACTS_ALL TAB
SET TAB.PARTY_REL_ID2_NEW = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_REL_ID2_NEW = to_char(p_from_fk_id); -- MGAAP 7263041
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_QUOTE_PARTIES TAB
SET TAB.PARTY_OBJECT1_ID1 = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_OBJECT1_ID1 = to_char(p_from_fk_id)
AND PARTY_JTOT_OBJECT1_CODE = 'OKX_PARTY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_QUOTE_PARTIES TAB
SET TAB.CONTACT_OBJECT1_ID1 = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.CONTACT_OBJECT1_ID1 = to_char(p_from_fk_id)
AND CONTACT_JTOT_OBJECT1_CODE = 'OKX_PARTY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TERMNT_INTF_PTY TAB
SET TAB.PARTY_OBJECT_ID1 = p_to_fk_id
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_OBJECT_ID1 = to_char(p_from_fk_id)
AND PARTY_OBJECT_CODE = 'OKX_PARTY';
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT party_name FROM hz_parties WHERE party_id = p_party_id;
SELECT CHR.CONTRACT_NUMBER
, CHR.ID
, NULL CLE_ID
, CHR.SCS_CODE
, SC.MEANING SCS_MEANING
, CPRS.RLE_CODE
, RLE.MEANING RLE_MEANING
, CPRS.ID CPRS_CPL_ID
, CPRD.ID CPRD_CPL_ID
, CPRS.OBJECT1_ID1 CPRS_OBJECT1_ID1
, CPRD.OBJECT1_ID1 CPRD_OBJECT1_ID1
FROM OKC_K_HEADERS_ALL_B CHR
, OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
, OKC_SUBCLASSES_V SC
, FND_LOOKUPS RLE
WHERE CPRS.CHR_ID = CHR.ID
AND CPRS.DNZ_CHR_ID = CPRD.DNZ_CHR_ID
AND CPRS.CHR_ID = CPRD.CHR_ID
AND CPRS.RLE_CODE = CPRD.RLE_CODE
AND CPRS.OBJECT1_ID1 <> CPRD.OBJECT1_ID1
AND CPRS.OBJECT1_ID1 = p_src_party_id
AND CPRD.OBJECT1_ID1 = p_des_party_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_PARTY'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_PARTY'
AND CHR.SCS_CODE = SC.CODE
AND SC.CLS_CODE = 'OKL'
AND RLE.LOOKUP_TYPE = 'OKC_ROLE'
AND RLE.LOOKUP_CODE = CPRS.RLE_CODE
AND CPRS.CLE_ID IS NULL
AND CPRD.CLE_ID IS NULL
UNION
SELECT CHR.CONTRACT_NUMBER
, CHR.ID
, CPRD.CLE_ID
, CHR.SCS_CODE
, SC.MEANING SCS_MEANING
, CPRS.RLE_CODE
, RLE.MEANING RLE_MEANING
, CPRS.ID CPRS_CPL_ID
, CPRD.ID CPRD_CPL_ID
, CPRS.OBJECT1_ID1 CPRS_OBJECT1_ID1
, CPRD.OBJECT1_ID1 CPRD_OBJECT1_ID1
FROM OKC_K_HEADERS_ALL_B CHR
, OKC_K_PARTY_ROLES_B CPRS
, OKC_K_PARTY_ROLES_B CPRD
, OKC_SUBCLASSES_V SC
, FND_LOOKUPS RLE
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_party_id
AND CPRD.OBJECT1_ID1 = p_des_party_id
AND CPRS.JTOT_OBJECT1_CODE = 'OKX_PARTY'
AND CPRD.JTOT_OBJECT1_CODE = 'OKX_PARTY'
AND CHR.SCS_CODE = SC.CODE
AND SC.CLS_CODE = 'OKL'
AND RLE.LOOKUP_TYPE = 'OKC_ROLE'
AND RLE.LOOKUP_CODE = CPRS.RLE_CODE
AND CPRS.CHR_ID IS NULL
AND CPRD.CHR_ID IS NULL
ORDER BY CONTRACT_NUMBER;
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_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);
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKC_K_PARTY_ROLES_B TAB
SET TAB.OBJECT1_ID1 = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.OBJECT1_ID1 = TO_CHAR(p_from_fk_id)
AND JTOT_OBJECT1_CODE = 'OKL_PARTYSITE'
AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
, ID
, CUST_ACCT_ID
FROM OKL_LEASE_OPPORTUNITIES_B yt, ra_customer_merges m
WHERE (yt.CUST_ACCT_ID = m.DUPLICATE_ID)
AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
SELECT PARTY_ID INTO PROSPECT_ID_LIST(I)
FROM HZ_CUST_ACCOUNTS_ALL
WHERE CUST_ACCOUNT_ID = NUM_COL1_NEW_LIST(I);
SELECT PROSPECT_ID
, PROSPECT_ADDRESS_ID
, INSTALL_SITE_ID
, USAGE_LOCATION_ID
INTO PROSPECT_OLD_ID_LIST(I)
, PROSPECT_ADD_OLD_ID_LIST(I)
, IS_OLD_ID_LIST(I)
, UL_OLD_ID_LIST(I)
FROM OKL_LEASE_OPPORTUNITIES_B
WHERE ID = PRIMARY_KEY_ID_LIST(I);
SELECT PARTY_SITE_ID INTO l_party_site_id
FROM HZ_PARTY_SITE_USES
WHERE PARTY_SITE_USE_ID = IS_OLD_ID_LIST(I);
SELECT PARTY_SITE_ID INTO l_party_site_id
FROM HZ_PARTY_SITE_USES
WHERE PARTY_SITE_USE_ID = UL_OLD_ID_LIST(I);
,'begin debug call UPDATE_ASSET_LOCATION');
UPDATE_ASSET_LOCATION(
p_init_msg_list => FND_API.G_FALSE,
p_cust_acct_id => NUM_COL1_NEW_LIST(I),
p_parent_object_id => PRIMARY_KEY_ID_LIST(I),
p_parent_object_code => 'LEASEOPP',
p_merge_header_id => MERGE_HEADER_ID_LIST(I),
req_id => req_id,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
,'end debug call UPDATE_ASSET_LOCATION');
,L_MODULE || ' Result of UPDATE_ASSET_LOCATION'
,' result status ' || l_return_status ||
' x_msg_data ' || x_msg_data);
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
NUM_COL3_ORIG,
NUM_COL3_NEW,
NUM_COL4_ORIG,
NUM_COL4_NEW,
NUM_COL5_ORIG,
NUM_COL5_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES(
HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_LEASE_OPPORTUNITIES_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
PROSPECT_OLD_ID_LIST(I),
PROSPECT_ID_LIST(I),
PROSPECT_ADD_OLD_ID_LIST(I),
PROSPECT_ADDRESS_ID_LIST(I),
IS_OLD_ID_LIST(I),
IS_ID_LIST(I),
UL_OLD_ID_LIST(I),
UL_ID_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE OKL_LEASE_OPPORTUNITIES_B yt SET
CUST_ACCT_ID=NUM_COL1_NEW_LIST(I)
, PROSPECT_ID = PROSPECT_ID_LIST(I)
, PROSPECT_ADDRESS_ID = PROSPECT_ADDRESS_ID_LIST(I)
, INSTALL_SITE_ID = IS_ID_LIST(I)
, USAGE_LOCATION_ID = UL_ID_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
, ID
, CUST_ACCT_ID
FROM OKL_LEASE_APPLICATIONS_B yt, ra_customer_merges m
WHERE (yt.CUST_ACCT_ID = m.DUPLICATE_ID)
AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
SELECT PARTY_ID INTO PROSPECT_ID_LIST(I)
FROM HZ_CUST_ACCOUNTS_ALL
WHERE CUST_ACCOUNT_ID = NUM_COL1_NEW_LIST(I);
SELECT PROSPECT_ID
, PROSPECT_ADDRESS_ID
INTO PROSPECT_OLD_ID_LIST(I)
, PROSPECT_ADD_OLD_ID_LIST(I)
FROM OKL_LEASE_APPLICATIONS_B
WHERE ID = PRIMARY_KEY_ID_LIST(I);
,'begin debug call UPDATE_ASSET_LOCATION');
UPDATE_ASSET_LOCATION(
p_init_msg_list => FND_API.G_FALSE,
p_cust_acct_id => NUM_COL1_NEW_LIST(I),
p_parent_object_id => PRIMARY_KEY_ID_LIST(I),
p_parent_object_code => 'LEASEAPP',
p_merge_header_id => MERGE_HEADER_ID_LIST(I),
req_id => req_id,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
,'end debug call UPDATE_ASSET_LOCATION');
,L_MODULE || ' Result of UPDATE_ASSET_LOCATION'
,' result status ' || l_return_status ||
' x_msg_data ' || x_msg_data);
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
NUM_COL3_ORIG,
NUM_COL3_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
)VALUES(
HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_LEASE_APPLICATIONS_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
PROSPECT_OLD_ID_LIST(I),
PROSPECT_ID_LIST(I),
PROSPECT_ADD_OLD_ID_LIST(I),
PROSPECT_ADDRESS_ID_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE OKL_LEASE_APPLICATIONS_B yt SET
CUST_ACCT_ID=NUM_COL1_NEW_LIST(I)
, PROSPECT_ID = PROSPECT_ID_LIST(I)
, PROSPECT_ADDRESS_ID = PROSPECT_ADDRESS_ID_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,yt.ID
,yt.CUSTOMER_ID
,yt.CUSTOMER_ADDRESS_ID
FROM OKL_EXT_SELL_INVS_B yt, ra_customer_merges m
WHERE (
yt.CUSTOMER_ID = m.DUPLICATE_ID
OR yt.CUSTOMER_ADDRESS_ID = m.DUPLICATE_ADDRESS_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_EXT_SELL_INVS_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
NUM_COL2_ORIG_LIST(I),
NUM_COL2_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_EXT_SELL_INVS_B yt SET
CUSTOMER_ID=NUM_COL1_NEW_LIST(I)
,CUSTOMER_ADDRESS_ID=NUM_COL2_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,BILL_TO_CUST_ACCT_ID
,BILL_TO_CUST_ACCT_SITE_USE_ID
,SHIP_TO_CUST_ACCT_SITE_USE_ID
FROM OKL_TAX_SOURCES_T yt, ra_customer_merges m
WHERE (
yt.BILL_TO_CUST_ACCT_ID = m.DUPLICATE_ID
OR yt.BILL_TO_CUST_ACCT_SITE_USE_ID = m.DUPLICATE_SITE_ID
OR yt.SHIP_TO_CUST_ACCT_SITE_USE_ID = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
SELECT BILL_TO_PARTY_ID
, BILL_TO_PARTY_SITE_ID
, BILL_TO_LOCATION_ID
, SHIP_TO_PARTY_ID
, SHIP_TO_PARTY_SITE_ID
, SHIP_TO_LOCATION_ID
FROM OKL_TAX_SOURCES_T
WHERE id = l_tax_src_id;
SELECT HPS.PARTY_ID
, HPS.PARTY_SITE_ID
, HPS.LOCATION_ID
FROM HZ_PARTY_SITES HPS
, HZ_CUST_ACCT_SITES_ALL CAS
, HZ_CUST_SITE_USES_ALL CSU
WHERE CSU.CUST_ACCT_SITE_ID = CAS.CUST_ACCT_SITE_ID
AND CAS.PARTY_SITE_ID = HPS.PARTY_SITE_ID
AND CSU.SITE_USE_ID = l_site_use_id;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
NUM_COL3_ORIG,
NUM_COL3_NEW,
NUM_COL4_ORIG,
NUM_COL4_NEW,
NUM_COL5_ORIG,
NUM_COL5_NEW,
NUM_COL6_ORIG,
NUM_COL6_NEW,
NUM_COL7_ORIG,
NUM_COL7_NEW,
NUM_COL8_ORIG,
NUM_COL8_NEW,
VCHAR_COL1_ORIG,
VCHAR_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_TAX_SOURCES_T',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
NUM_COL2_ORIG_LIST(I),
NUM_COL2_NEW_LIST(I),
NUM_COL3_ORIG_LIST(I),
NUM_COL3_NEW_LIST(I),
BT_PAR_ID_ORIG_LIST(I),
BT_PAR_ID_NEW_LIST(I),
BT_PAR_SITE_ID_ORIG_LIST(I),
BT_PAR_SITE_ID_NEW_LIST(I),
BT_LOC_ID_ORIG_LIST(I),
BT_LOC_ID_NEW_LIST(I),
ST_PAR_ID_ORIG_LIST(I),
ST_PAR_ID_NEW_LIST(I),
ST_PAR_SITE_ID_ORIG_LIST(I),
ST_PAR_SITE_ID_NEW_LIST(I),
ST_LOC_ID_ORIG_LIST(I),
ST_LOC_ID_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_TAX_SOURCES_T yt SET
BILL_TO_CUST_ACCT_ID=NUM_COL1_NEW_LIST(I)
, BILL_TO_CUST_ACCT_SITE_USE_ID=NUM_COL2_NEW_LIST(I)
, SHIP_TO_CUST_ACCT_SITE_USE_ID=NUM_COL3_NEW_LIST(I)
, BILL_TO_PARTY_ID = BT_PAR_ID_NEW_LIST(I)
, BILL_TO_PARTY_SITE_ID = BT_PAR_SITE_ID_NEW_LIST(I)
, BILL_TO_LOCATION_ID = BT_LOC_ID_NEW_LIST(I)
, SHIP_TO_PARTY_ID = ST_PAR_ID_NEW_LIST(I)
, SHIP_TO_PARTY_SITE_ID = ST_PAR_SITE_ID_NEW_LIST(I)
, SHIP_TO_LOCATION_ID = ST_LOC_ID_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,BILL_TO_CUST_ACCT_ID
,BILL_TO_CUST_ACCT_SITE_USE_ID
,SHIP_TO_CUST_ACCT_SITE_USE_ID
FROM OKL_TAX_SOURCES yt, ra_customer_merges m
WHERE (
yt.BILL_TO_CUST_ACCT_ID = m.DUPLICATE_ID
OR yt.BILL_TO_CUST_ACCT_SITE_USE_ID = m.DUPLICATE_SITE_ID
OR yt.SHIP_TO_CUST_ACCT_SITE_USE_ID = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
SELECT BILL_TO_PARTY_ID
, BILL_TO_PARTY_SITE_ID
, BILL_TO_LOCATION_ID
, SHIP_TO_PARTY_ID
, SHIP_TO_PARTY_SITE_ID
, SHIP_TO_LOCATION_ID
FROM OKL_TAX_SOURCES
WHERE id = l_tax_src_id;
SELECT HPS.PARTY_ID
, HPS.PARTY_SITE_ID
, HPS.LOCATION_ID
FROM HZ_PARTY_SITES HPS
, HZ_CUST_ACCT_SITES_ALL CAS
, HZ_CUST_SITE_USES_ALL CSU
WHERE CSU.CUST_ACCT_SITE_ID = CAS.CUST_ACCT_SITE_ID
AND CAS.PARTY_SITE_ID = HPS.PARTY_SITE_ID
AND CSU.SITE_USE_ID = l_site_use_id;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
NUM_COL3_ORIG,
NUM_COL3_NEW,
NUM_COL4_ORIG,
NUM_COL4_NEW,
NUM_COL5_ORIG,
NUM_COL5_NEW,
NUM_COL6_ORIG,
NUM_COL6_NEW,
NUM_COL7_ORIG,
NUM_COL7_NEW,
NUM_COL8_ORIG,
NUM_COL8_NEW,
VCHAR_COL1_ORIG,
VCHAR_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_TAX_SOURCES',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
NUM_COL2_ORIG_LIST(I),
NUM_COL2_NEW_LIST(I),
NUM_COL3_ORIG_LIST(I),
NUM_COL3_NEW_LIST(I),
BT_PAR_ID_ORIG_LIST(I),
BT_PAR_ID_NEW_LIST(I),
BT_PAR_SITE_ID_ORIG_LIST(I),
BT_PAR_SITE_ID_NEW_LIST(I),
BT_LOC_ID_ORIG_LIST(I),
BT_LOC_ID_NEW_LIST(I),
ST_PAR_ID_ORIG_LIST(I),
ST_PAR_ID_NEW_LIST(I),
ST_PAR_SITE_ID_ORIG_LIST(I),
ST_PAR_SITE_ID_NEW_LIST(I),
ST_LOC_ID_ORIG_LIST(I),
ST_LOC_ID_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_TAX_SOURCES yt SET
BILL_TO_CUST_ACCT_ID=NUM_COL1_NEW_LIST(I)
, BILL_TO_CUST_ACCT_SITE_USE_ID=NUM_COL2_NEW_LIST(I)
, SHIP_TO_CUST_ACCT_SITE_USE_ID=NUM_COL3_NEW_LIST(I)
, BILL_TO_PARTY_ID = BT_PAR_ID_NEW_LIST(I)
, BILL_TO_PARTY_SITE_ID = BT_PAR_SITE_ID_NEW_LIST(I)
, BILL_TO_LOCATION_ID = BT_LOC_ID_NEW_LIST(I)
, SHIP_TO_PARTY_ID = ST_PAR_ID_NEW_LIST(I)
, SHIP_TO_PARTY_SITE_ID = ST_PAR_SITE_ID_NEW_LIST(I)
, SHIP_TO_LOCATION_ID = ST_LOC_ID_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,IBT_ID
,IXX_ID
FROM OKL_TRX_AR_INVOICES_B yt, ra_customer_merges m
WHERE (
yt.IBT_ID = m.DUPLICATE_SITE_ID
OR yt.IXX_ID = m.DUPLICATE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_TRX_AR_INVOICES_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
NUM_COL2_ORIG_LIST(I),
NUM_COL2_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_TRX_AR_INVOICES_B yt SET
IBT_ID=NUM_COL1_NEW_LIST(I)
,IXX_ID=NUM_COL2_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,ILE_ID
FROM OKL_TXL_RCPT_APPS_B yt, ra_customer_merges m
WHERE (
yt.ILE_ID = m.DUPLICATE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_TXL_RCPT_APPS_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_TXL_RCPT_APPS_B yt SET
ILE_ID=NUM_COL1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,IXX_ID
,IBT_ID
FROM OKL_CNSLD_AR_HDRS_B yt, ra_customer_merges m
WHERE (
yt.IXX_ID = m.DUPLICATE_ID
OR yt.IBT_ID = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
NUM_COL2_ORIG,
NUM_COL2_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_CNSLD_AR_HDRS_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
NUM_COL2_ORIG_LIST(I),
NUM_COL2_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_CNSLD_AR_HDRS_B yt SET
IXX_ID=NUM_COL1_NEW_LIST(I)
,IBT_ID=NUM_COL2_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,ICA_ID
FROM OKL_CNTR_LVLNG_GRPS_B yt, ra_customer_merges m
WHERE (
yt.ICA_ID = m.DUPLICATE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_CNTR_LVLNG_GRPS_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_CNTR_LVLNG_GRPS_B yt SET
ICA_ID=NUM_COL1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,REC_SITE_USES_PK
FROM OKL_ACCT_SOURCES yt, ra_customer_merges m
WHERE (
yt.REC_SITE_USES_PK = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_ACCT_SOURCES',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_ACCT_SOURCES yt SET
REC_SITE_USES_PK=NUM_COL1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
, REQUEST_ID=req_id
, PROGRAM_APPLICATION_ID=arp_standard.profile.program_application_id
, PROGRAM_ID=arp_standard.profile.program_id
, PROGRAM_UPDATE_DATE=SYSDATE
WHERE ID=PRIMARY_KEY_ID_LIST(I)
;
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,SHIPPING_ADDRESS_ID1
FROM OKL_SUPP_INVOICE_DTLS yt, ra_customer_merges m
WHERE (
yt.SHIPPING_ADDRESS_ID1 = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_SUPP_INVOICE_DTLS',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE OKL_SUPP_INVOICE_DTLS yt SET
SHIPPING_ADDRESS_ID1=NUM_COL1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
--NISINHA Bug#6655434 removed extra attributes
WHERE ID=PRIMARY_KEY_ID_LIST(I)
;
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct CUSTOMER_MERGE_HEADER_ID
,ID
,SHIPPING_ADDRESS_ID1
FROM OKL_SUPP_INVOICE_DTLS_H yt, ra_customer_merges m
WHERE (
yt.SHIPPING_ADDRESS_ID1 = m.DUPLICATE_SITE_ID
) AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num;
INSERT INTO HZ_CUSTOMER_MERGE_LOG (
MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY
) VALUES ( HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKL_SUPP_INVOICE_DTLS_H',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_COL1_ORIG_LIST(I),
NUM_COL1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY
);
UPDATE OKL_SUPP_INVOICE_DTLS_H yt SET
SHIPPING_ADDRESS_ID1=NUM_COL1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
--NISINHA Bug#6655434 removed extra attributes
WHERE ID=PRIMARY_KEY_ID_LIST(I)
;
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TRX_CONTRACTS_ALL TAB
SET TAB.PARTY_REL_ID1_NEW = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_REL_ID1_NEW = p_from_fk_id; -- MGAAP 7263041
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TRX_CONTRACTS_ALL TAB
SET TAB.PARTY_REL_ID1_OLD = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_REL_ID1_OLD = p_from_fk_id; -- MGAAP 7263041
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code
into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKL_TRX_CONTRACTS_ALL TAB
SET TAB.PARTY_REL_ID2_OLD = p_to_fk_id
,TAB.object_version_number = TAB.object_version_number + 1
,TAB.last_update_date = SYSDATE
,TAB.last_updated_by = arp_standard.profile.user_id
,TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.PARTY_REL_ID2_OLD = to_char(p_from_fk_id); -- MGAAP 7263041
arp_message.set_name('AR','AR_ROWS_UPDATED');
select merge_reason_code into l_merge_reason_code
from hz_merge_batch
where batch_id = p_batch_id;
UPDATE OKC_RULES_B TAB
SET TAB.OBJECT1_ID1 = p_to_fk_id
, TAB.object_version_number = TAB.object_version_number + 1
, TAB.last_update_date = SYSDATE
, TAB.last_updated_by = arp_standard.profile.user_id
, TAB.last_update_login = arp_standard.profile.last_update_login
WHERE TAB.OBJECT1_ID1 = TO_CHAR(p_from_fk_id)
AND JTOT_OBJECT1_CODE = 'OKL_PARTYSITE'
AND DNZ_CHR_ID IN (SELECT ID FROM OKL_K_HEADERS);
arp_message.set_name('AR','AR_ROWS_UPDATED');
SELECT distinct m.CUSTOMER_MERGE_HEADER_ID
, rul.ID
, yt.CUST_ACCT_ID
, rul.object1_id1
FROM OKC_RULES_B rul
, OKC_RG_PARTY_ROLES rgpr
, OKC_RULE_GROUPS_B rgp
, OKC_K_PARTY_ROLES_B yt
, RA_CUSTOMER_MERGES m
WHERE yt.cust_acct_id = m.duplicate_id
AND rgpr.cpl_id = yt.id
AND rgp.id = rgpr.rgp_id
AND rgp.rgd_code = 'LAVENB'
AND rul.rgp_id = rgp.id
AND rul.rule_information_category = 'LAVENC'
AND m.process_flag = 'N'
AND m.request_id = req_id
AND m.set_number = set_num
AND EXISTS( SELECT 1
FROM OKL_K_HEADERS KHR
WHERE yt.DNZ_CHR_ID = KHR.ID);
SELECT PARTY_ID
FROM HZ_CUST_ACCOUNTS
WHERE CUST_ACCOUNT_ID = cp_cust_acct_id;
INSERT INTO HZ_CUSTOMER_MERGE_LOG
(MERGE_LOG_ID,
TABLE_NAME,
MERGE_HEADER_ID,
PRIMARY_KEY_ID1,
NUM_COL1_ORIG,
NUM_COL1_NEW,
ACTION_FLAG,
REQUEST_ID,
CREATED_BY,
CREATION_DATE,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
(HZ_CUSTOMER_MERGE_LOG_s.nextval,
'OKC_RULES_B',
MERGE_HEADER_ID_LIST(I),
PRIMARY_KEY_ID_LIST(I),
NUM_RUL_OBJ1_ORIG_LIST(I),
NUM_RUL_OBJ1_NEW_LIST(I),
'U',
req_id,
hz_utility_pub.CREATED_BY,
hz_utility_pub.CREATION_DATE,
hz_utility_pub.LAST_UPDATE_LOGIN,
hz_utility_pub.LAST_UPDATE_DATE,
hz_utility_pub.LAST_UPDATED_BY);
UPDATE OKC_RULES_B yt SET
OBJECT1_ID1=NUM_RUL_OBJ1_NEW_LIST(I)
, LAST_UPDATE_DATE=SYSDATE
, last_updated_by=arp_standard.profile.user_id
, last_update_login=arp_standard.profile.last_update_login
WHERE ID=PRIMARY_KEY_ID_LIST(I);
arp_message.set_name('AR','AR_ROWS_UPDATED');