select 
  tblResult.id,
  case when Какое-то условие then tblResult.sPeriod2 else dCalcPeriod end date1,
  case when Какое-то условие then tblResult.sPeriod3 else dCalcPeriod + interval '1' day end date2,
  ...
from 
  tblResult,
  fnc(idUser, dPeriod1) dCalcPeriod --Есть строки когда результат может и не понадобится, 
--но чаще всего будет нужен сразу для обоих столбцов date1 и date2
where 
  tblResult.dPeriod between trunc(:CurrentPeriod,'YYYY') and :CurrentPeriod

  declare 
    dvRes date;
  begin
     begin
       select dDate2 into strict dvRes from fnc_cache where idUser = idpUser and dDate1 = dpDate;
       return dvRes;
     exception
        when no_data_found then perform null;
        when others then 
          create temp table fnc_cache (idUser number(15), dDate1 date, dDate2 date) on commit drop;
          create index ix_fnc_cache on fnc_cache(idUser, dDate1);
     end;

     dvRes := fnc(idpUser, dpDate);
     insert into fnc_cache values(idpUser, dpDate, dvRes );
     return dvRes;
  end;

declare 
    dvRes date;
    idvuser number;
  begin
       select dDate2, iduser into dvRes, idvuser from fnc_cache where idUser = idpUser and dDate1 = dpDate;
       
  if idvuser is null then --результат может быть пустым
     dvRes := fnc(idpUser, dpDate);
     insert into fnc_cache values(idpUser, dpDate, dvRes );
 end if;

     return dvRes;
  end;