store_gene(character varying)

DECLARE

    pname                ALIAS FOR $1;

​

    pkeyid INTEGER;

  BEGIN

    SELECT INTO pkeyid gene_id

      FROM gene

      WHERE gene.name = pname;

    IF NOT FOUND THEN

      INSERT INTO gene 

       (name)

         VALUES

       (pname);

      RETURN currval('gene_pk_seq');

    END IF;

    UPDATE gene

      SET

      WHERE

         gene.name = pname

​

    RETURN pkeyid;

  END;