The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(*)
INTO l_vndrsites_not_merged
FROM ap_supplier_sites_all pav,
ap_duplicate_vendors_all adv
WHERE pav.vendor_site_id = adv.duplicate_vendor_site_id(+)
AND pav.party_site_id = p_from_fk_id
AND nvl(adv.process_flag,'N') <> 'Y';
SELECT COUNT(*)
INTO l_unpaid_invoices
FROM ap_invoices_all ai,
ap_supplier_sites_all pav
WHERE ai.vendor_site_id = pav.vendor_site_id
AND pav.party_site_id = p_from_fk_id
AND nvl(ai.payment_status_flag,'N') <> 'Y';
SELECT COUNT(*)
INTO l_po_unchecked_sites
FROM ap_duplicate_vendors_all adv,
ap_supplier_sites_all pav
WHERE pav.vendor_site_id = adv.duplicate_vendor_site_id
AND pav.party_site_id = p_from_fk_id
AND nvl(adv.process, 'N') = 'I';
SELECT count(*)
INTO l_no_mergedto_site
FROM ap_supplier_sites_all pav
WHERE pav.party_site_id = p_from_fk_id
AND NOT EXISTS
(select vendor_site_id
from ap_supplier_sites_all pav1
where pav1.party_site_id = p_to_fk_id);
SELECT count(*)
INTO l_mismatch_merge_sites
FROM ap_duplicate_vendors_all adv,
ap_supplier_sites_all pav
WHERE pav.party_site_id = p_from_fk_id
AND pav.vendor_site_id = adv.duplicate_vendor_site_id
AND NOT EXISTS
(select adv1.vendor_site_id
from ap_duplicate_vendors_all adv1,
ap_supplier_sites_all pav1
where (adv1.vendor_site_id = pav1.vendor_site_id
or -- when 'from_fk' site is merged to 'to_fk' site
adv1.duplicate_vendor_site_id = pav.vendor_site_id
and adv1.vendor_id = pav1.vendor_id
and adv1.keep_site_flag = 'Y') --8888020
and pav1.party_site_id = p_to_fk_id);
SELECT count(*)
INTO l_vndrsites_not_merged
FROM ap_suppliers pov,
ap_supplier_sites_all pvs,
ap_duplicate_vendors_all adv
WHERE pov.party_id = p_from_fk_id
AND pov.vendor_id = pvs.vendor_id
AND pvs.vendor_site_id = adv.duplicate_vendor_site_id (+)
AND nvl(adv.process_flag, 'N') <> 'Y';
SELECT COUNT(*)
INTO l_unpaid_invoices
FROM ap_invoices_all ai,
ap_suppliers pov,
ap_supplier_sites_all pvs
WHERE ai.vendor_site_id = pvs.vendor_site_id
AND pvs.vendor_id = pov.vendor_id
AND pov.party_id = p_from_fk_id
AND nvl(ai.payment_status_flag,'N') <> 'Y';
SELECT COUNT(*)
INTO l_po_unchecked_sites
FROM ap_duplicate_vendors_all adv,
ap_supplier_sites_all pvs,
ap_suppliers pov
WHERE pov.party_id = p_from_fk_id
and pov.vendor_id = pvs.vendor_id
and pvs.vendor_site_id = adv.duplicate_vendor_site_id
and nvl(adv.process, 'N') = 'I';
SELECT count(*)
INTO l_no_mergedto_site
FROM ap_supplier_sites_all pvs,
ap_suppliers pov
WHERE pov.party_id = p_from_fk_id
AND pov.vendor_id = pvs.vendor_id
AND NOT EXISTS
(select vendor_site_id
from ap_supplier_sites_all pvs1,
ap_suppliers pov1
where pov1.party_id = p_to_fk_id
and pov1.vendor_id = pvs1.vendor_id);
SELECT count(*)
INTO l_mismatch_merge_sites
FROM ap_duplicate_vendors_all adv,
ap_supplier_sites_all apss,
ap_suppliers aps
WHERE aps.party_id = p_from_fk_id
AND aps.vendor_id = apss.vendor_id
AND apss.vendor_site_id = adv.duplicate_vendor_site_id
AND NOT EXISTS
(select adv1.vendor_site_id
from ap_duplicate_vendors_all adv1,
ap_supplier_sites_all apss1,
ap_suppliers aps1
where (adv1.vendor_site_id = apss1.vendor_site_id
or -- when 'from_fk' site is merged to 'to_fk' site
adv1.duplicate_vendor_site_id = apss.vendor_site_id
and adv1.vendor_id = apss1.vendor_id
and adv1.keep_site_flag = 'Y') --8888020
and apss1.vendor_id = aps1.vendor_id
and aps1.party_id = p_to_fk_id);
Procedure Update_PerPartyid
(p_Entity_name IN VARCHAR2,
p_from_id IN NUMBER,
p_to_id IN NUMBER,
p_From_Fk_id IN NUMBER,
p_To_Fk_id IN NUMBER,
p_Parent_Entity_name IN VARCHAR2,
p_batch_id IN NUMBER,
p_Batch_Party_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2) IS
new_per_party_id NUMBER := p_to_fk_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_PerPartyid';
UPDATE ap_supplier_contacts
--po_vendor_contacts
SET per_party_id = new_per_party_id
WHERE per_party_id = old_per_party_id;
END Update_PerPartyid ;
Procedure Update_RelPartyid
(p_Entity_name IN VARCHAR2,
p_from_id IN NUMBER,
p_to_id IN NUMBER,
p_From_Fk_id IN NUMBER,
p_To_Fk_id IN NUMBER,
p_Parent_Entity_name IN VARCHAR2,
p_batch_id IN NUMBER,
p_Batch_Party_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2) IS
new_rel_party_id NUMBER := p_to_fk_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_RelPartyid';
UPDATE ap_supplier_contacts
--po_vendor_contacts
SET rel_party_id = new_rel_party_id
WHERE rel_party_id = old_rel_party_id;
END Update_RelPartyid;
Procedure Update_PartySiteid
(p_Entity_name IN VARCHAR2,
p_from_id IN NUMBER,
p_to_id IN NUMBER,
p_From_Fk_id IN NUMBER,
p_To_Fk_id IN NUMBER,
p_Parent_Entity_name IN VARCHAR2,
p_batch_id IN NUMBER,
p_Batch_Party_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2) IS
new_party_site_id NUMBER := p_to_fk_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_PartySiteid';
UPDATE ap_supplier_contacts
-- po_vendor_contacts
SET party_site_id = new_party_site_id
WHERE party_site_id = old_party_site_id;
END Update_PartySiteid ;
Procedure Update_RelationshipId
(p_Entity_name IN VARCHAR2,
p_from_id IN NUMBER,
p_to_id IN NUMBER,
p_From_Fk_id IN NUMBER,
p_To_Fk_id IN NUMBER,
p_Parent_Entity_name IN VARCHAR2,
p_batch_id IN NUMBER,
p_Batch_Party_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2) IS
new_relship_id NUMBER := p_to_fk_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_RelationshipId';
UPDATE ap_supplier_contacts
SET relationship_id = new_relship_id
WHERE relationship_id = old_relship_id;
END Update_RelationshipId ;
Procedure Update_OrgContactId
(p_Entity_name IN VARCHAR2,
p_from_id IN NUMBER,
p_to_id IN NUMBER,
p_From_Fk_id IN NUMBER,
p_To_Fk_id IN NUMBER,
p_Parent_Entity_name IN VARCHAR2,
p_batch_id IN NUMBER,
p_Batch_Party_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2) IS
new_orgcontact_id NUMBER := p_to_fk_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_OrgContactId';
UPDATE ap_supplier_contacts
SET org_contact_id = new_orgcontact_id
WHERE org_contact_id = old_orgcontact_id;
END Update_OrgContactId ;