Галактика в вопросах и ответах

Код: Выделить всё

create or replace function REAL_APP(pnrec in char, adate in number) return char
is
  out_st char(16);
begin
select 
  apnrec into out_st
from (
  select t.fnrec as apnrec, (adate - t.fappointdate) as mind
  from gal.appointments  t
  where t.fperson = pnrec and (adate - t.fappointdate) > 0
  order by mind
)
  where rownum=1;

  return(out_st);
end REAL_APP;