2983: P_X_Error_Status);
2984: ELSIF P_Vendor_Id IS NOT NULL AND P_Vendor_Contact_Id IS NOT NULL THEN
2985: BEGIN
2986: SELECT vendor_contact_id INTO l_vendor_contact_id
2987: FROM po_vendor_contacts
2988: WHERE vendor_site_id = P_Vendor_Site_Id
2989: AND vendor_contact_id = P_Vendor_Contact_Id
2990: AND NVL(inactive_date, sysdate+1) > sysdate;
2991: EXCEPTION WHEN NO_DATA_FOUND THEN