The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag IN VARCHAR2,
p_batch_id IN NUMBER,
p_merge_type IN VARCHAR2,
p_from_party_id IN NUMBER,
p_to_party_id IN NUMBER,
p_merge_reason_code IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2);
PROCEDURE insert_party_details(cp_batch_party_id IN NUMBER,
cp_from_party_id IN NUMBER,
cp_to_party_id IN NUMBER);
PROCEDURE insert_reln_parties(cp_batch_party_id IN NUMBER,
cp_batch_id IN NUMBER);
HZ_MERGE_PARTIES_PKG.INSERT_ROW(
px_BATCH_PARTY_ID => x_batch_party_id,
p_batch_id => p_batch_id,
p_merge_type => p_merge_type,
p_from_party_id => p_from_party_id,
p_to_party_id => p_to_party_id,
p_merge_reason_code => p_MERGE_REASON_CODE,
p_merge_status => 'PENDING',
p_CREATED_BY => HZ_UTILITY_PUB.CREATED_BY,
p_CREATION_DATE => HZ_UTILITY_PUB.CREATION_DATE,
p_LAST_UPDATE_LOGIN => HZ_UTILITY_PUB.LAST_UPDATE_LOGIN,
p_LAST_UPDATE_DATE => HZ_UTILITY_PUB.LAST_UPDATE_DATE,
p_LAST_UPDATED_BY => HZ_UTILITY_PUB.LAST_UPDATED_BY);
PROCEDURE insert_party_details( cp_batch_party_id IN NUMBER,
cp_from_party_id IN NUMBER,
cp_to_party_id IN NUMBER) IS
BEGIN
-----Insert Party Site details
hz_merge_util.insert_party_site_details(
cp_from_party_id,
cp_to_party_id,
cp_batch_party_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);
hz_merge_util.insert_party_reln_details(
cp_from_party_id,
cp_to_party_id,
cp_batch_party_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);
END insert_party_details;
PROCEDURE insert_reln_parties( cp_batch_party_id IN NUMBER,
cp_batch_id IN NUMBER)IS
CURSOR merged_relns(cp_batch_party_id NUMBER) IS
SELECT merge_from_entity_id, merge_to_entity_id,
HZ_MERGE_UTIL.get_reln_party_id(merge_from_entity_id) from_reln_party_id,
HZ_MERGE_UTIL.get_reln_party_id(merge_to_entity_id) to_reln_party_id
FROM hz_merge_party_details
WHERE batch_party_id = cp_batch_party_id
AND entity_name = 'HZ_PARTY_RELATIONSHIPS'
AND merge_to_entity_id IS NOT NULL
AND merge_from_entity_id IS NOT NULL
AND merge_from_entity_id <> merge_to_entity_id;
HZ_MERGE_PARTIES_PKG.Insert_Row(
l_batch_party_id,
cp_BATCH_ID,
'PARTY_MERGE',
l_from_reln_party_id,
l_to_reln_party_id,
'DUPLICATE_RELN_PARTY',
'PENDING',
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);
END insert_reln_parties;
SELECT batch_party_id
FROM HZ_MERGE_PARTIES
WHERE (from_party_id = cp_from_party_id OR
to_party_id = cp_to_party_id OR
from_party_id = cp_to_party_id OR
to_party_id = cp_from_party_id)
AND batch_id = cp_batch_id;
SELECT 1
FROM HZ_RELATIONSHIPS --4500011
WHERE content_source_type = 'DNB'
AND subject_id = cp_from_party_id
AND object_id = cp_to_party_id
AND RELATIONSHIP_CODE = 'HEADQUARTERS_OF'
AND subject_table_name = 'HZ_PARTIES'
AND object_table_name = 'HZ_PARTIES'
AND directional_flag = 'F';
p_create_update_flag IN VARCHAR2,
p_batch_id IN NUMBER,
p_merge_type IN VARCHAR2,
p_from_party_id IN NUMBER,
p_to_party_id IN NUMBER,
p_merge_reason_code IN VARCHAR2,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
IF p_create_update_flag = 'C' AND p_merge_reason_code is NOT NULL
THEN
HZ_UTILITY_V2PUB.validate_lookup (
p_column => 'merge_reason_code',
p_lookup_type => 'MERGE_REASON_CODE',
p_column_value => p_merge_reason_code,
x_return_status => x_return_status );
insert_party_details(x_batch_party_id,
l_from_party_id ,
l_to_party_id );
insert_reln_parties(x_batch_party_id ,
l_batch_id );