function getPlayerByWinsSum(
  pACCOUNT                STORED_TRANSACTION.ACCOUNT%TYPE,
  pSUBACCOUNT_CASH_BET    STORED_TRANSACTION.SUBACCOUNT%TYPE,
  pSUBACCOUNT_BONUS_BET   STORED_TRANSACTION.SUBACCOUNT%TYPE,
  pSUBACCOUNT_PAYOUT      STORED_TRANSACTION.SUBACCOUNT%TYPE,
  pTRAN_DATE_FROM         STORED_TRANSACTION.TRAN_DATE%TYPE,
  pTRAN_DATE_TO           STORED_TRANSACTION.TRAN_DATE%TYPE,
  pWIN_SUM_FROM           STORED_BALANCE.D_ACC%TYPE,
  pWIN_SUM_FROM_CURRENCY  VARCHAR2,
  pWIN_SUM_TO             STORED_BALANCE.D_ACC%TYPE,
  pWIN_SUM_TO_CURRENCY    VARCHAR2,
  pLOSS_SUM_FROM          STORED_BALANCE.D_ACC%TYPE,
  pLOSS_SUM_FROM_CURRENCY VARCHAR2,
  pLOSS_SUM_TO            STORED_BALANCE.D_ACC%TYPE,
  pLOSS_SUM_TO_CURRENCY   VARCHAR2,
  pPLAYER_TABLE           STRING_TABLE default NULL
) return TYPES_PKG.REFCURSOR is
  c_Player       TYPES_PKG.REFCURSOR;
  v_PLAYER_ID    STORED_TRANSACTION.SUBCONTO1%TYPE;
  c_Result       TYPES_PKG.REFCURSOR;
  v_Player_Table PLAYER_WINS_TABLE := PLAYER_WINS_TABLE();
  v_Player_wins  player_wins;
  v_Can_Add      boolean;
  v_WinsSumRec   WinsSumRec;
  AccRow         balance;
  curBalance     TYPES_PKG.REFCURSOR;
  v_playerCashBet   number;
  v_playerBonusBet   number;
  v_playerPayout   number;
  v_playerGame   number;
begin
  if (pPLAYER_TABLE is NULL) then
    open c_Player for
      select SUBCONTO1
        from ACCOUNT_BALANCE ab
       where ab.ACCOUNT = pACCOUNT
         and ab.SUBCONTO1 is not NULL
         and ab.SUBACCOUNT is NULL
         and ab.SUBCONTO2 is NULL
    group by SUBCONTO1;
  else
    open c_Player for
      select column_value
        from table(cast(pPLAYER_TABLE as STRING_TABLE));
  end if;

  fetch c_Player into v_PLAYER_ID;
  while c_Player%FOUND loop
    v_playerGame :=  0 ;
    curBalance := getPeriodStoredBalance(pACCOUNT, pSUBACCOUNT_CASH_BET, v_PLAYER_ID, NULL, NULL, pTRAN_DATE_FROM, pTRAN_DATE_TO);
    fetch curBalance into AccRow;
    close curBalance;
    v_playerCashBet := AccRow.END_C_AMOUNT_VALUE - AccRow.START_C_AMOUNT_VALUE;
    v_playerGame := -v_playerCashBet;

    curBalance := getPeriodStoredBalance(pACCOUNT, pSUBACCOUNT_BONUS_BET, v_PLAYER_ID, NULL, NULL, pTRAN_DATE_FROM, pTRAN_DATE_TO);
    fetch curBalance into AccRow;
    close curBalance;
    v_playerBonusBet := AccRow.END_C_AMOUNT_VALUE - AccRow.START_C_AMOUNT_VALUE;
    v_playerGame := v_playerGame - v_playerBonusBet;

    curBalance := getPeriodStoredBalance(pACCOUNT, pSUBACCOUNT_PAYOUT, v_PLAYER_ID, NULL, NULL, pTRAN_DATE_FROM, pTRAN_DATE_TO);
    fetch curBalance into AccRow;
    close curBalance;
    v_playerPayout := AccRow.END_D_AMOUNT_VALUE - AccRow.START_D_AMOUNT_VALUE;
    v_playerGame := v_playerGame + v_playerPayout;

    if  (pWIN_SUM_FROM is NULL and pWIN_SUM_TO is NULL and pLOSS_SUM_FROM is NULL and pLOSS_SUM_TO is NULL) then
      v_Can_Add := true;
    else
      v_Can_Add := false;
      if (v_playerGame <= pWIN_SUM_TO or pWIN_SUM_TO is NULL) then
        v_Can_Add := true;
      end if;

      if (v_playerGame >= pWIN_SUM_FROM or pWIN_SUM_FROM is NULL) then
        v_Can_Add := true;
      end if;

      if (-v_playerGame <= pLOSS_SUM_TO or pLOSS_SUM_TO is NULL) then
        v_Can_Add := true;
      end if;

      if (-v_playerGame >= pLOSS_SUM_FROM or pLOSS_SUM_TO is NULL) then
        v_Can_Add := true;
      end if;
    end if;
    if v_Can_Add then
      v_Player_Table.extend;
      v_Player_wins := player_wins(v_PLAYER_ID, v_playerGame,
        v_playerCashBet, v_playerBonusBet, v_playerPayout);
      v_Player_Table(v_Player_Table.count) := v_Player_wins;
    end if;

    fetch c_Player into v_PLAYER_ID;
  end loop;
  close c_Player;

  open c_Result for
    select PLAYER_ID, WINS_SUM WINS_SUM_VALUE, 'CHP' WINS_SUM_CURRENCY,
           CASH_BET_SUM CASH_BET_SUM_VALUE, 'CHP' CASH_BET_SUM_CURRENCY,
           BONUS_BET_SUM BONUS_BET_SUM_VALUE, 'CHP' BONUS_BET_SUM_CURRENCY,
           PAYOUT_SUM PAYOUT_SUM_VALUE, 'CHP' PAYOUT_SUM_CURRENCY
      from table(cast(v_Player_Table as PLAYER_WINS_TABLE));
  return c_Result;
end;