SELECT Ocorrencia.CodOcorrencia, NULL AS CodOcorrenciaAnt, CONVERT(VARCHAR(20), Ocorrencia.DataAbre, 103) AS DataAbre, SUBSTRING(Ocorrencia.HoraAbre,1,2) + ':' + SUBSTRING(HoraAbre,3,2) HoraAbre, DateDiff(DAY, Ocorrencia.DataAbre, GetDate()) AS [Qtd_Dias],
Unidade_Origem.CNES CNES_Origem, Unidade_Origem.CodUnidade CodUnidOrigem, Unidade_Origem.NmUnidade NmUnidOrigem, Unidade_Origem.SiglaUnidade SiglaUnidadeOrigem, Paciente.CodPac, Paciente.NmPac, NrCNS, Paciente.Idade, Paciente.Idade_Mes, Paciente.Idade_Dia, Sexo.DescSexo,
Paciente.CodTipoDocumento, Documento, FlagSurem, Encaminhamento.CodMotivoSol, MotivoSolicitacao.DescMotivoSol, GrpMotivoSolicitacao.DescGrpMotivoSol, EspecMotivoSolicitacao.DescEspecMotivoSol,
Unidade_Destino.CNES CNES_Destino, Unidade_Destino.CodUnidade CodUnidDestino, Unidade_Destino.NmUnidade NmUnidDestino, Unidade_Destino.SiglaUnidade SiglaUnidadeDestino, Encaminhamento.CodResolutividade, Resolutividade.DescResolutividade, Encaminhamento.CodMotivoRes, MotivoResolutividade.DescMotivoRes,
DataEnc, SUBSTRING(HoraEnc,1,2) + ':' + SUBSTRING(HoraEnc,3,2) HoraEnc, DataFecha, DescTipoAmbulancia, NmMun, MacroRegiao.DescMacroReg, Municipio.CODIBGE, MacroRegiao.CodMacroReg,
EncStatus AS Acomodado, Encaminhamento.CodMotivoAcom, DescMotivoAcom, Ocorrencia.CodUnidadeReg,
CASE FlagSurem WHEN 'U' THEN 'Urgência/Emergência' WHEN 'L' THEN 'Lista de Espera' WHEN 'E' THEN 'Contratos' WHEN 'R' THEN 'Leito Retaguarda' WHEN 'M' THEN 'Mutirão' END AS TipoOcorrencia
FROM Ocorrencia
INNER JOIN Paciente
ON (Ocorrencia.CodPac = Paciente.CodPac)
INNER JOIN Sexo
ON (Paciente.CodSexo = Sexo.CodSexo)
INNER JOIN Unidade Unidade_Origem
ON (Ocorrencia.CodUnidOrigem = Unidade_Origem.CodUnidade)
LEFT JOIN TipoDocumento
ON (Paciente.CodTipoDocumento = TipoDocumento.CodTipoDocumento)
INNER JOIN Encaminhamento
ON (Ocorrencia.CodOcorrencia = Encaminhamento.CodOcorrencia AND Encaminhamento.EncValid = 'S')
INNER JOIN MotivoSolicitacao
ON (Encaminhamento.CodMotivoSol = MotivoSolicitacao.CodMotivoSol)
LEFT JOIN MotivoSolicitacaoGrupo
ON (MotivoSolicitacao.CodMotivoSol = MotivoSolicitacaoGrupo.CodMotivoSol)
LEFT JOIN GrpMotivoSolicitacao
ON (MotivoSolicitacaoGrupo.CodGrpMotivoSol = GrpMotivoSolicitacao.CodGrpMotivoSol)
LEFT JOIN MotivoSolicitacaoEspec
ON (MotivoSolicitacao.CodMotivoSol = MotivoSolicitacaoEspec.CodMotivoSol)
LEFT JOIN EspecMotivoSolicitacao
ON (MotivoSolicitacaoEspec.CodEspecMotivoSol = EspecMotivoSolicitacao.CodEspecMotivoSol)
LEFT JOIN Unidade Unidade_Destino
ON (Encaminhamento.CodUnidadeDest = Unidade_Destino.CodUnidade)
LEFT JOIN Municipio
ON (Unidade_Origem.codIBGE = Municipio.CodIBGE)
LEFT JOIN MicroRegiao
ON (MicroRegiao.CodMicroReg = Municipio.CodMicroReg)
LEFT JOIN MacroRegiao
ON (MicroRegiao.CodMacroReg = MacroRegiao.CodMacroReg)
LEFT JOIN TipoAmbulancia
ON (Encaminhamento.CodTipoAmbulancia = TipoAmbulancia.CodTipoAmbulancia)
LEFT JOIN Resolutividade
ON (Encaminhamento.CodResolutividade= Resolutividade.CodResolutividade)
LEFT JOIN MotivoResolutividade
ON (Encaminhamento.CodMotivoRes = MotivoResolutividade.CodMotivoRes)
LEFT JOIN MotivoAcomodacao
ON (Encaminhamento.CodMotivoAcom = MotivoAcomodacao.CodMotivoAcom)
UNION
SELECT OcorrenciaHist.CodOcorrencia, OcorrenciaHist.CodOcorrenciaAnt, CONVERT(VARCHAR(20), OcorrenciaHist.DataAbre, 103) AS DataAbre, SUBSTRING(OcorrenciaHist.HoraAbre,1,2) + ':' + SUBSTRING(HoraAbre,3,2) HoraAbre, DateDiff(DAY, OcorrenciaHist.DataAbre, GetDate()) AS [Qtd_Dias],
Unidade_Origem.CNES CNES_Origem, Unidade_Origem.CodUnidade CodUnidOrigem, Unidade_Origem.NmUnidade NmUnidOrigem, Unidade_Origem.SiglaUnidade SiglaUnidadeOrigem, Paciente.CodPac, Paciente.NmPac, NrCNS, Paciente.Idade, Paciente.Idade_Mes, Paciente.Idade_Dia, Sexo.DescSexo,
Paciente.CodTipoDocumento, Documento, FlagSurem, EncaminhamentoHist.CodMotivoSol, MotivoSolicitacao.DescMotivoSol, GrpMotivoSolicitacao.DescGrpMotivoSol, EspecMotivoSolicitacao.DescEspecMotivoSol,
Unidade_Destino.CNES CNES_Destino, Unidade_Destino.CodUnidade CodUnidDestino, Unidade_Destino.NmUnidade NmUnidDestino, Unidade_Destino.SiglaUnidade SiglaUnidadeDestino, EncaminhamentoHist.CodResolutividade, Resolutividade.DescResolutividade, EncaminhamentoHist.CodMotivoRes, MotivoResolutividade.DescMotivoRes,
DataEnc, SUBSTRING(HoraEnc,1,2) + ':' + SUBSTRING(HoraEnc,3,2) HoraEnc, DataFecha, DescTipoAmbulancia, NmMun, MacroRegiao.DescMacroReg, Municipio.CODIBGE, MacroRegiao.CodMacroReg,
EncStatus AS Acomodado, EncaminhamentoHist.CodMotivoAcom, DescMotivoAcom, OcorrenciaHist.CodUnidadeReg,
CASE FlagSurem WHEN 'U' THEN 'Urgência/Emergência' WHEN 'L' THEN 'Lista de Espera' WHEN 'E' THEN 'Contratos' WHEN 'R' THEN 'Leito Retaguarda' WHEN 'M' THEN 'Mutirão' END AS TipoOcorrencia
FROM OcorrenciaHist
INNER JOIN Paciente
ON (OcorrenciaHist.CodPac = Paciente.CodPac)
INNER JOIN Sexo
ON (Paciente.CodSexo = Sexo.CodSexo)
INNER JOIN Unidade Unidade_Origem
ON (OcorrenciaHist.CodUnidOrigem = Unidade_Origem.CodUnidade)
LEFT JOIN TipoDocumento
ON (Paciente.CodTipoDocumento = TipoDocumento.CodTipoDocumento)
INNER JOIN EncaminhamentoHist
ON (OcorrenciaHist.CodOcorrencia = EncaminhamentoHist.CodOcorrencia AND EncaminhamentoHist.EncValid = 'S')
INNER JOIN MotivoSolicitacao
ON (EncaminhamentoHist.CodMotivoSol = MotivoSolicitacao.CodMotivoSol)
LEFT JOIN MotivoSolicitacaoGrupo
ON (MotivoSolicitacao.CodMotivoSol = MotivoSolicitacaoGrupo.CodMotivoSol)
LEFT JOIN GrpMotivoSolicitacao
ON (MotivoSolicitacaoGrupo.CodGrpMotivoSol = GrpMotivoSolicitacao.CodGrpMotivoSol)
LEFT JOIN MotivoSolicitacaoEspec
ON (MotivoSolicitacao.CodMotivoSol = MotivoSolicitacaoEspec.CodMotivoSol)
LEFT JOIN EspecMotivoSolicitacao
ON (MotivoSolicitacaoEspec.CodEspecMotivoSol = EspecMotivoSolicitacao.CodEspecMotivoSol)
LEFT JOIN Unidade Unidade_Destino
ON (EncaminhamentoHist.CodUnidadeDest = Unidade_Destino.CodUnidade)
LEFT JOIN Municipio
ON (Unidade_Origem.codIBGE = Municipio.CodIBGE)
LEFT JOIN MicroRegiao
ON (MicroRegiao.CodMicroReg = Municipio.CodMicroReg)
LEFT JOIN MacroRegiao
ON (MicroRegiao.CodMacroReg = MacroRegiao.CodMacroReg)
LEFT JOIN TipoAmbulancia
ON (EncaminhamentoHist.CodTipoAmbulancia = TipoAmbulancia.CodTipoAmbulancia)
LEFT JOIN Resolutividade
ON (EncaminhamentoHist.CodResolutividade= Resolutividade.CodResolutividade)
LEFT JOIN MotivoResolutividade
ON (EncaminhamentoHist.CodMotivoRes = MotivoResolutividade.CodMotivoRes)
LEFT JOIN MotivoAcomodacao
ON (EncaminhamentoHist.CodMotivoAcom = MotivoAcomodacao.CodMotivoAcom)
WHERE DataFecha >= '01/01/2015'