Simular una función almacenada en Firebird

[santiago14]

Buenas, tengo un procedimiento almacenado y estoy intentando hacer lo siguiente:

Código SQL [-]
CREATE PROCEDURE FECHA_HORA_SERVIDOR 
returns (
    fechahora timestamp)
as
begin
  /* Devuelve la fecha y hora del servidor (marca de tiempo)*/
  --select distinct current_time from entorno
  --into :fechahora;
    
  fechahora = current_timestamp;
  suspend;
end

Ahora mi consulta...

Código SQL [-]
Select fecha_hora_servidor From rdb$database

Así como está no funciona el Select, el error me dice:
An error was found in the application program input parameters for the SQL statement.
Dynamic SQL Error.
SQL error code = -804.
Function unknown.
FECHA_HORA_SERVIDOR;

Lo que quisiera es poder lograr que a un procedimiento almacenado lo pueda poner como expresión dentro del Select...
Si no se puede de esta manera, ¿qué otra forma tengo para lograrlo?

Gracias.