MS SQL Server a FIrebird

[rgabigonz]

Uno de los SP (Stored Procedures) que tengo en MS_SQL es el siguiente:

CREATE PROCEDURE ImprimeTurnos
(IDProfesional int, Dia varchar(10))
returns (TipodeTurno char(1), Hora varchar(10), ApellidoyNombre varchar(40),
Telefono varchar(20), Obra varchar(50), Nro_Afiliado varchar(50), igno varchar(4),
Observaciones varchar(50), Llego smallint, Hora_Llegada varchar(10),
Recibio varchar(4), Abono varchar(10), Orden varchar(2), Atendido smallint)
as
begin
for
SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente,
P.Telefono ,O.Obra, PO.Nro_Afiliado, T.Asigno, T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM Turnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente
and PO.ID_Obra = O.ID_Obra And T.ID_Profesional = :IDProfesional AND T.Dia = ia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente,
'' as Telefono , '' as Obra, '' as Nro_Afiliado, T.Asigno, T.Observaciones,
'' as Llego, '' as Hora_Llegada, '' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM Turnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = ia and Bloqueado = 1
UNION SELECT DISTINCT 'ST' as Tipo_de_Turno, T.Hora, P.Apellido + ', ' + P.Nombre as Paciente ,
P.Telefono, O.Obra, PO.Nro_Afiliado, T. igno , T.Observaciones, T.Llego, T.Hora_Llegada,
T.Recibio, T.Abono, T.Orden, T.Atendido
FROM SobreTurnos T, Paciente P, Obrasocial O, PacienteObra PO
WHERE P.ID_Paciente =T.ID_Paciente And P.ID_Paciente=PO.ID_Paciente and PO.ID_Obra = O.ID_Obra
And T.ID_Profesional = :IDProfesional AND T.Dia = ia
UNION SELECT DISTINCT 'T' as Tipo_de_Turno, T.Hora, 'BLOQUEADO' as Paciente, '' as Telefono,
'' as Obra, '' as Nro_Afiliado, T. igno, T.Observaciones, '' as Llego, '' as Hora_Llegada,
'' as Recibio, '' as Abono, '' as Orden, '' as Atendido
FROM SobreTurnos T
WHERE T.ID_Profesional = :IDProfesional AND T.Dia = ia and Bloqueado = 1
into :TipodeTurno, :Hora, :ApellidoyNombre, :Telefono, :Obra, :Nro_Afiliado,
:Asigno, :Observaciones, :Llego, :Hora_Llegada, :Recibio, :Abono, :Orden, :Atendido
do
suspend;
end

Ya verifique la sintaxis y esta bien, pero me sale el siguiente error:

Unsuccessful execution caused by a system error that precludes successful execution of subsequent statements.

Alguien me pude ayudar?

Gracias.