Fix the Oracle sequences

CHECK_TABLES.sql

select * from all_sequences where sequence_owner = sys_context('USERENV', 'SESSION_USER')

FIX_SEQUENCES.sql

CREATE OR REPLACE PROCEDURE fix_sequence(tbl VARCHAR, field VARCHAR, seq VARCHAR) 
IS
  current_id  NUMBER; 
  current_seq NUMBER; 
BEGIN
  EXECUTE immediate 'select max(' || field || ') from ' || tbl into current_id;
  EXECUTE immediate 'select ' || seq || '.nextval from dual' into current_seq;  
  IF (current_id > current_seq) THEN
    EXECUTE immediate 'alter sequence ' || seq || ' increment by ' || to_char(current_id - current_seq);   
    EXECUTE immediate 'select ' || seq || '.nextval from dual' into current_seq;
    EXECUTE immediate 'alter sequence ' || seq || ' increment by 1';
  END IF;
END;
/
  
CALL fix_sequence('A2_DESIGNELEMENT', 'DESIGNELEMENTID', 'A2_DESIGNELEMENT_SEQ');
CALL fix_sequence('A2_GENEGPV', 'GENEGPVID', 'A2_GENEGPV_SEQ');
CALL fix_sequence('A2_GENEPROPERTYVALUE', 'GENEPROPERTYVALUEID', 'A2_GENEPROPERTYVALUE_SEQ');
CALL fix_sequence('A2_GENEPROPERTY', 'GENEPROPERTYID', 'A2_GENEPROPERTY_SEQ');
CALL fix_sequence('A2_GENE', 'GENEID', 'A2_GENE_SEQ');
CALL fix_sequence('A2_ONTOLOGYTERM', 'ONTOLOGYTERMID', 'A2_ONTOLOGYTERM_SEQ');
CALL fix_sequence('A2_ORGANISM', 'ORGANISMID', 'A2_ORGANISM_SEQ');
CALL fix_sequence('A2_PROPERTYVALUE', 'PROPERTYVALUEID', 'A2_PROPERTYVALUE_SEQ');
CALL fix_sequence('A2_PROPERTY', 'PROPERTYID', 'A2_PROPERTY_SEQ');
CALL fix_sequence('A2_SAMPLEPV', 'SAMPLEPVID', 'A2_SAMPLEPV_SEQ');
/