FUNCTION some_proc() RETURN INTEGER
IS
   x INTEGER;
BEGIN

   SELECT <что-то> INTO x 
       FROM <много-много таблиц>
       WHERE( <много-много условий> )
       AND EXISTS(
            SELECT <огромадный вложенный запрос на 100 строк кода...>
       ...
       <и т.д.>
            )

   RETURN x;
END some_proc;

DECLARE
  PROCEDURE BuildIntervalSeq(p_att_User  IN 
                             p_date_from IN TIMESTAMP := NULL,
                             p_date_to   IN TIMESTAMP := NULL) IS
                             
    v_priority_idz    isa_att.TimeTableType.idz%TYPE;
    v_time_table_idz  isa_att.TimeTable.idz%TYPE;
    v_index           BINARY_INTEGER;
    v_date_offset     TIMESTAMP;
    v_interval_offset TIMESTAMP;
    v_time_step       INTERVAL DAY TO SECOND := p_att_common.GetSingleAdjustment('STUD_RASP_DUR');
    
    TYPE IntervalArray IS TABLE OF isa_att.TimeInterval%ROWTYPE;
    v_intervalArray  IntervalArray;
    
    -- Выбрать типы расписаний по приоритетам.
    CURSOR cTimeTablePriority IS
      SELECT idz
        FROM isa_att.TimeTableType
       ORDER BY priority ASC;
    
    -- Выбираем расписания, принадлежащие
    -- иерархическим группам студентов.
    CURSOR cTimeTableCur IS
      SELECT TimeTable_view.*
        FROM isa_att.TimeTable_view,
             isa_att.HierarchyGroup
       WHERE HierarchyGroup.s_HierarchyType = p_att_common.GetSingleAdjustment('STUD_HIERARCHY')
         AND TimeTable_view.s_Timetabletype = v_priority_idz
         AND TimeTable_view.s_HierarchyGroup = HierarchyGroup.Idz
         AND SYSTIMESTAMP BETWEEN TimeTable_view.Validfrom
                              AND NVL(TimeTable_view.ValidTo, SYSTIMESTAMP);
    
    CURSOR cTimeIntervals IS
      SELECT *
        FROM isa_att.TimeInterval
       WHERE s_TimeTable = v_time_table_idz
       ORDER BY fl_nad_chertoy DESC, TimeOffset;
       
    -- Выбираем расписание и валидных
    -- юзеров для этого времени
    CURSOR cTimeTableValidView IS
      SELECT *
        FROM isa_att.TimetableValid_View
       WHERE s_TimeTable = v_time_table_idz
         AND s_attUser = (SELECT idz FROM isa_att.AttUser where s_teksost = 40351);
  BEGIN
    v_intervalArray := IntervalArray();
    
    FOR curPriority IN cTimeTablePriority LOOP
      v_priority_idz := curPriority.Idz;
      FOR curTimeTable IN cTimeTableCur LOOP
        v_time_table_idz := curTimeTable.Idz;

        -- Выбираем в массив для многократного использования
        OPEN cTimeIntervals;
        FETCH cTimeIntervals BULK COLLECT INTO v_intervalArray;
        CLOSE cTimeIntervals;
        
        FOR curUserValidView IN cTimeTableValidView LOOP
          -- Получили временную метку начала расписания: отступаем "назад" до понедельника,
          -- т.к. занятия начинаются не обязательно в понедельник, а отсчет
          -- временных интервалов начинается с понедельника.
          v_date_offset := curTimeTable.ValidFrom - TO_NUMBER(TO_CHAR(curTimeTable.Validfrom, 'D')) + 1;
          
          -- <Перебираем даты>
          LOOP
            EXIT WHEN v_date_offset > curTimeTable.ValidTo;
            
            -- <Перебираем интервалы>
            v_index := v_intervalArray.FIRST;
            LOOP
              EXIT WHEN v_index IS NULL;
             
              v_interval_offset := v_intervalArray(v_index).TimeOffset + v_date_offset;
              IF  v_intervalArray(v_index).fl_nad_chertoy = 0 THEN
                v_interval_offset := v_interval_offset + 7;
              END IF;
               
              IF v_interval_offset  >= curTimeTable.ValidFrom THEN
                --dbms_output.put_line(TO_CHAR(v_interval_offset, 'DD.MM.YYYY HH24:MI'));
                DoLogic (v_interval_offset,
                     v_intervalArray(v_index).Duration,
                     curUserValidView.s_AttUser,
                     curUserValidView.Validfrom,
                     curUserValidView.Validto,
                     curTimeTable.s_Hierarchygroup,
                     curTimeTable.Idz,
                     v_intervalArray(v_index).idz);
              END IF;
                         
              v_index := v_intervalArray.NEXT(v_index);
            END LOOP; -- </Перебираем интервалы>
            
            v_date_offset := v_date_offset + v_time_step;
          END LOOP; -- </Перебираем даты>
        END LOOP; -- </Перебираем пользователей>
      END LOOP;
    END LOOP;
  END;
  
BEGIN
  BuildIntervalSeq;
END;