Функция PL / SQL плохо компилируется

Question

Мне нужно создать функцию, используя PL / SQL , и я должен проверить, что тип пользователя, который я хочу вставить в новую строку, равен 'A' (функция вернет 'S')или «N», если тип пользователя «P».Я не знаю, в чем проблема.

create or replace function aser10_correcta
  (v_user in NUMBER)
  RETURN VARCHAR2(1)
  is
    v_tipo VARCHAR2(1);
    v_devuelve VARCHAR2(1);
  begin
      select tipo into v_tipo 
      from usuarios 
      where id = v_user;
      if v_tipo = 'A'
      then
        v_devuelve := 'S';
        return v_devuelve;
      else
        v_devuelve := 'N';
        return v_devuelve;
      end if;
  end;
  /