SQL> create unique index pk_b on b (b_num, trunc(created,'YYYY'));

Index created.

create or replace procedure calc_rating as
begin
    update
        ratings
    set
        ksi_j = dbms_random.value(- 1 , 1 )
    where
        ( 1  =  1 )
        and id in 
        (
            select
                r.id
            from
                ratings r
            where
                ( 1  =  1 )
                and exists
                (
                    select
                         1 
                    from
                        ratings r1
                    where
                        ( 1  =  1 )
                        and (r1.id = r.id)
                        and (trunc(dbms_random.value( 1 ,  7 )) =  1 )
                )
        );
end;
/
declare i number;
begin
for i in  1 .. 70000  loop
   insert into ratings (id, ksi_j)values (i, 0 );
end loop;
end;
/
begin calc_rating; end;
/
select count(*) from ratings union all select count(*) from ratings where ksi_j !=  0 ;

create table ratings (id number( 10 ) not null, ksi_j number( 10 ,  9 ) not null);

create or replace procedure calc_rating as
begin
    update ratings
    set ksi_j = dbms_random.value(- 1 ,  1 )
    where id in 
        (
        select r.id from ratings r
        where exists 
            (
            select  1  from ratings r1 
            where (r1.id = r.id) and (trunc(dbms_random.value( 1 ,  7 )) =  1 )
            )
        );
end;
/