declare
 v_msg varchar2(100);
 --create or replace
 function f(p_id number,p_id_k number,p_msg  out varchar2) return boolean as
   v_fio t.fio%type;
   v_id_k  t.id_k%type;
 begin
   select id_k,fio into v_id_k,v_fio from t where id=p_id;
   if v_id_k=p_id_k then
     p_msg := 'Cотрудник '||v_fio||' работает на кафедре с ид='||p_id_k;
     return true;
   else
     p_msg := 'Cотрудник '||v_fio||' НЕ работает на кафедре с ид='||p_id_k;
     return false;
   end if;
 exception when no_data_found then
   p_msg := 'Не найден сотрудник с Ид='||p_id;
   return false;
 end f;
begin
 case when f(111,3,v_msg) then dbms_output.put_line('Ok! '||v_msg);
          else dbms_output.put_line(v_msg); end case;
end;
/
SQL> /
Cотрудник dobriyA НЕ работает на кафедре с ид=3

PL/SQL procedure successfully completed.

SQL> select * from t;

        ID FIO                        ID_K
---------- -------------------- ----------
       111 dobriyA                       2

SQL>