[Pgsql-ayuda] Invocacion de una funcion

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';