Olá
Abaixo um exemplo para gerar números aleatórios de 1 a 100. Se você precisar de números de 4 digitos pode colocar de 1000 a 9999, por exemplo.
declare
numero number;
begin
-- Test statements here
dbms_random.initialize(to_number(to_char(systimestamp, 'HH24missFF4')));
numero := trunc(dbms_random.value(1,100));
dbms_random.terminate;
Dbms_Output.put_line('Numero gerado:'|| numero);
end;