Fórum procedure não retorna resultado apos if #275628

tenho essa procedure

CREATE PROCEDURE VALIDA_USUARIO (
PAR_NOME_USUARIO VARCHAR(10),
PAR_SENHA_USUARIO VARCHAR(10))
RETURNS (
R_CODIGO INTEGER,
R_NOME VARCHAR(10),
R_SENHA VARCHAR(10),
R_ATIVO VARCHAR(1),
R_DATA_EXP DATE,
R_VALIDO VARCHAR(1))
AS
begin
FOR SELECT USUARIOS.codigo,
usuarios.nome,
usuarios.senha,
USUARIOS.ativo,
USUARIOS.data_expiracao

FROM usuarios

WHERE USUARIOS.NOME = :par_nome_usuario AND USUARIOS.senha = :par_senha_usuario

INTO :R_CODIGO,
:R_NOME,
:R_SENHA,
:R_ATIVO,
:R_DATA_EXP

DO
suspend;

BEGIN
IF (:R_NOME is null) then
BEGIN
EXCEPTION USUARIO_SENHA_INVALIDO;
END
ELSE
BEGIN
IF (:R_ATIVO <> ´S´) THEN
BEGIN
EXCEPTION USUARIO_DESATIVADO;
END
ELSE
BEGIN
IF (:R_DATA_EXP is null) then
begin
r_valido = ´S´;
end
else
begin
if (:R_DATA_EXP < CURRENT_TIMESTAMP) then
BEGIN
EXCEPTION usuario_expirado;
END
else
begin
r_valido = ´S´;
end
end
END
END
END
end

todos os if onde uso o EXCEPTION retorna a EXCEPTION mas onde tem r_valido = ´S´ não é incluido o resultado ficando o campo como null

o que pode estar a contecendo???

Valeu
Uilian Gurjon