[Pgsql-ayuda] Invocacion de una funcion

[Edwin Quijada]

Estoy haciendo mi primera funcion con pl/sql y cuando la ejecuto me da el
sigte error
 Error occurred while executing PL/pgSQL function get_secuencia
WARNING:  line 6 at SQL statement
ERROR:  SELECT query has no destination for result data.
        If you want to discard the results, use PERFORM instead.
`
Esta funcion genera secuencias para documentos de una tabla en especifico
Le paso como parametro un identificador del documento y ella lo asigna
No entiendo cual sea el problema, aqui le pongo el codigo de mi funcion:

DROP FUNCTION  Get_Secuencia(CHAR);
CREATE OR REPLACE FUNCTION Get_Secuencia(char) RETURNS int4 AS '
DECLARE
       tipodoc ALIAS FOR $1;
       secuencia int4;
BEGIN
    secuencia :=1;
    select * from t_secuencias  --Haciendo la busqyueda con el tipo doc
    where f_tipo_documento = $1 for update;
    if Not found then --Insertando si es un doc. nuevo
       INSERT INTO t_secuencias (f_tipo_documento, f_secuencia)
       VALUES (tipodoc,secuencia);
    else
        secuencia:=f_secuencia+secuencia;
        UPDATE t_secuencias SET f_secuencia = secuencia
        WHERE f_tipo_documento = $1;
    end if;
    return secuencia;
END;'
LANGUAGE 'plpgsql';