begin
  FOR SELECT ... бла бла ...
    FROM ... бла бла ...
    WHERE ... бла бла ...
    ORDER BY ... бла бла ...
    INTO :msg                            // Тут вернули сообщение от отправителя получателю
  DO
    BEGIN
      execute procedure upd_message_readed(:pmy_id, :precep_id);  // Здесь ОЧЕНЬ ХОЧЕТСЯ отметить что сообщение было прочитано.
      SUSPEND;
    END
end.

  UPDATE chat SET Msg_state=1
  WHERE Msg_to=:puser_id AND Msg_from=:precep_id;