The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select party_id, 'PAYABLES_DISB',
NVL(vendor_type_lookup_code,'NON EMPLOYEE') /* bug 13005713 */
Into Iby_Trxn_Attributes_Rec.Payee_Party_Id,
Iby_Trxn_Attributes_Rec.Payment_Function,
l_vendor_type_lookup_code
From Ap_Suppliers
Where vendor_id = X_Vendor_Id;
Select party_site_id
Into Iby_Trxn_Attributes_Rec.Payee_Party_Site_Id
From Ap_Supplier_Sites_All
Where vendor_site_id = X_Vendor_Site_Id;