EXCEPTION
   WHEN NO_DATA_FOUND
   THEN 
      errpkg.record_and_continue (SQLCODE, 
         ' No company for id ' || TO_CHAR (v_id));
   WHEN OTHERS
   THEN 
      errpkg.record_and_stop; 
END;