The following lines contain the word 'select', 'insert', 'update' or 'delete':
Following procedure will update the vendor_id and
vendor_site_id in JL tables.
Parameters: p_vendor_id is supplier to
p_dup_vendor_id supplier from
*******************************************************************/
Procedure Merge_Vendor
(p_api_version IN NUMBER
,p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
,p_commit IN VARCHAR2 default FND_API.G_FALSE
,p_validation_level IN NUMBER default FND_API.G_VALID_LEVEL_FULL
,p_return_status OUT NOCOPY VARCHAR2
,p_msg_count OUT NOCOPY NUMBER
,p_msg_data OUT NOCOPY VARCHAR2
,p_vendor_id IN NUMBER --> Represents Merge To Vendor
,p_dup_vendor_id IN NUMBER --> Represents Merge From Vendor
,p_vendor_site_id IN NUMBER --> Represents Merge To Vendor Site
,p_dup_vendor_site_id IN NUMBER --> Represents Merge From Vendor Site
,p_party_id IN NUMBER --> Represents Merge To Party
,P_dup_party_id IN NUMBER --> Represents Merge From Party
,p_party_site_id IN NUMBER --> Represents Merge To Party Site
,p_dup_party_site_id IN NUMBER --> Represents Merge From Party Site
) IS
l_api_name CONSTANT VARCHAR2(50) := 'Merge_Vendor';
Select segment1
From ap_suppliers
Where vendor_id = p_vendor_id;
Select segment1
From ap_suppliers
Where vendor_id = p_dup_vendor_id;
Update JL_ZZ_AP_SUPP_AWT_TYPES
set vendor_id = p_vendor_id
where vendor_id = p_dup_vendor_id;
Update JL_BR_AP_COLLECTION_DOCS_ALL
set vendor_id = p_vendor_id
where vendor_id = p_dup_vendor_id;
Update JL_BR_AP_CONSOLID_INVOICES_ALL
set vendor_id = p_vendor_id
where vendor_id = p_dup_vendor_id;
Update JG_ZZ_ENTITY_ASSOC
set associated_entity_id = p_vendor_id
where associated_entity_id = p_dup_vendor_id;
Update JL_BR_AP_COLLECTION_DOCS_ALL
set vendor_id = p_vendor_id,
vendor_site_id = p_vendor_site_id
where vendor_id = p_dup_vendor_id
and vendor_site_id = p_dup_vendor_site_id;
Update JL_BR_AP_CONSOLID_INVOICES_ALL
set vendor_id = p_vendor_id,
vendor_site_id = p_vendor_site_id
where vendor_id = p_dup_vendor_id
and vendor_site_id = p_dup_vendor_site_id;
Update ap_invoice_distributions_all
Set global_attribute2 = NewSuppNumRec.segment1
Where global_attribute2 = OldSuppNumRec.segment1
And global_attribute_category = 'JL.CO.APXINWKB.DISTRIBUTIONS';