declare 
  -- Non-scalar parameters require additional processing 
  p_personal_account common.t_number_15_0;
CURSOR pa_spisok IS select pa from temp s ;

 p_cur_balances sys_refcursor;

begin
  OPEN pa_spisok;
     LOOP
     FETCH pa_spisok BULK COLLECT INTO p_personal_account;
     EXIT WHEN p_personal_account.COUNT = 0;
     FOR indx IN 1 .. p_personal_account.COUNT 
    loop
  -- Call the procedure
  balance_info.get_hot_balance(p_personal_account ,
                               p_cur_balances => :p_cur_balances); -- результат 
                              
                               end loop;
                               END LOOP;
    CLOSE pa_spisok;
end;

declare
  -- Non-scalar parameters require additional processing 
  p_personal_account common.t_number_15_0;
  p_cur_balances     sys_refcursor;
  L_rec              balance_delivery%rowtype;
  CURSOR pa_spisok IS
    select pa from temp s;

begin
  OPEN pa_spisok;
  LOOP
    FETCH pa_spisok BULK COLLECT INTO p_personal_account;
    EXIT WHEN p_personal_account.COUNT = 0;
    
    FOR indx IN 1 .. p_personal_account.COUNT loop
      -- Call the procedure
      balance_info.get_hot_balance(p_personal_account, p_cur_balances);
      loop
      fetch p_cur_balances into L_rec;
    
      exit when sql%notfound;
    INSERT INTO sabelov_balance_delivery VALUES L_rec;
    end loop;
  end loop;
 
  END LOOP;

  CLOSE pa_spisok;
end;

declare
  -- Non-scalar parameters require additional processing 
  p_personal_account common.t_number_15_0;
  p_cur_balances     sys_refcursor;
  type tbl is table of sabelov_balance_delivery%rowtype
  index by binary_integer;
  
  L_rec tbl;

  CURSOR pa_spisok IS
    select pa from sabelov_temp s;

begin
  OPEN pa_spisok;

  FETCH pa_spisok BULK COLLECT
    INTO p_personal_account;

  -- Call the procedure
  balance_info.get_hot_balance(p_personal_account, p_cur_balances);
  fetch p_cur_balances BULK COLLECT INTO L_rec;

  --  
  FORALL i in L_rec.first .. L_rec.last
    INSERT INTO sabelov_balance_delivery VALUES L_rec (i);

  CLOSE pa_spisok;
end;