Det kanske inte är mycket mindre utförligt, men denna PL/SQL är ett alternativ:
begin
for r in (select *
from table_name
where pk_id = 'original_primary_key')
loop
r.pk := pk_seq.nextval;
r.fk := 'foreign-key';
insert into table_name values r;
end loop;
end;