function getOperations(
  pStartID  OPERATION.ID%TYPE,
  pLIMIT    NUMBER,
  pNUMBER   NUMBER
) return TYPES_PKG.REFCURSOR is
  v_Operations            T_OPERATION_TABLE := T_OPERATION_TABLE();
  v_ReturnedOperations    T_OPERATION_TABLE := T_OPERATION_TABLE();
  c_Operation             TYPES_PKG.REFCURSOR;
  v_StartOpNumber         NUMBER :=  0 ;
  i                       NUMBER; 
  cursor c_Operations is
    select ID, OPERATION_TYPE_CODE, OP_NUMBER, AMOUNT, OP_CREATE_DATE
      from OPERATION
     where OP_NUMBER > v_startOpNumber
       and (OP_NUMBER < pNUMBER or pNUMBER is NULL);
  r_Operations            OPERATION%ROWTYPE;
  v_CurrentOperation      T_OPERATION := T_OPERATION(NULL, NULL, NULL, NULL, NULL);
begin
  if pStartID is not NULL then
     select OP_NUMBER
       into v_startOpNumber
       from OPERATION
      where ID = pStartID;
  end if;
  open c_Operations;
  fetch c_Operations into r_Operations;
  while (c_Operations%FOUND) loop
    v_CurrentOperation.ID := r_Operations.ID;
    v_CurrentOperation.OPERATION_TYPE_CODE := r_Operations.OPERATION_TYPE_CODE; 
    v_CurrentOperation.OP_NUMBER := r_Operations.OP_NUMBER;
    v_CurrentOperation.AMOUNT := r_Operations.AMOUNT;
    v_CurrentOperation.OP_CREATE_DATE := r_Operations.OP_CREATE_DATE;
    v_Operations.extend();
    v_Operations(v_Operations.count) := v_CurrentOperation;
    fetch c_Operations into r_Operations;
  end loop;
  close c_Operations;
  for i in  1 ..v_Operations.count loop
    if (i <= pLIMIT) then
      v_ReturnedOperations.extend;
      v_ReturnedOperations(v_ReturnedOperations.count) := v_Operations(i);
    end if;  
  end loop; 

  open c_Operation for
    select ID, OPERATION_TYPE_CODE, OP_NUMBER,
           OP_CREATE_DATE, AMOUNT AMOUNT_VALUE, NULL AMOUNT_CURRENCY
      from TABLE(cast(v_ReturnedOperations as T_OPERATION_TABLE))
      order by OP_NUMBER;
  return c_Operation;
end;

function getOperations(
   pStartID OPERATION.ID%TYPE,
   pLIMIT NUMBER,
   pNUMBER NUMBER
) return sys_refcursor
is
   v_StartOpNumber NUMBER :=  0 ;   
   c_Operation sys_refcursor;
begin
   if pStartID is not NULL then
      select OP_NUMBER into v_startOpNumber
      from OPERATION
      where ID = pStartID;
   end if;
   
   open c_Operation for
         select ID, OPERATION_TYPE_CODE, OP_NUMBER, AMOUNT, OP_CREATE_DATE
         from OPERATION
         where OP_NUMBER > v_startOpNumber
            and (OP_NUMBER < pNUMBER or pNUMBER is NULL)
            and rownum <= pLIMIT;
         order by OP_NUMBER;
   return c_Operation;
end;