Planilha exames de audiometria

[meurehelp]

Boa tarde, alguém possui planilha do RM (OU SQL) que traga os dados de exame de audiometria do RM VITAE, não conseguir buscar a tela anexa

[Guilherme José Silva]

5 horas atrás, meurehelp disse:

Boa tarde, alguém possui planilha do RM (OU SQL) que traga os dados de exame de audiometria do RM VIATAE, não conseguir buscar a tela anexa

Tenta nessa tela usar o atalho control + alt + F9 para ver se lhe apresenta as tabelas envolvidas nesse DataServer.

[luisgustavogomes]

@meurehelp,Boa noite! 

 

Normalmente, a dica @Guilherme José Silva funciona nestes casos, porém, neste caso a informação é pelo trace/profile.

SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
SET NOCOUNT ON;


SELECT
       EP.CODCOLIGADA 
       ,EP.IDCONSULTA
       ,EP.DATAEXAME 
	   ,YEAR(EP.DATAEXAME ) AS 'ANO'
	   ,MONTH(EP.DATAEXAME) AS 'MÊS'
       ,CP.CODPESSOA
       ,CP.CHAPA
       ,P.NOME 
       ,HF.CODFUNCAO_HIST
       ,HF.NOME_FUNCAO_HIST
       ,HS.CODSECAO_HIST
       ,HS.DESC_SECAO_HIST
       ,CASE 
             WHEN ICC.NOMETPINFCLINICA LIKE '%OE/VA' THEN 'AEREA_ESQUERDO'
             WHEN ICC.NOMETPINFCLINICA LIKE '%OD/VA' THEN 'AEREA_DIREITO'
             WHEN ICC.NOMETPINFCLINICA LIKE '%OE/VO' THEN 'OSSEA_ESQUERDO'
             WHEN ICC.NOMETPINFCLINICA LIKE '%OD/VO' THEN 'OSSEA_DIREITO'
             WHEN ICC.NOMETPINFCLINICA LIKE 'WEBER%' THEN 'WEBER'
       ELSE NULL
       END AS 'TIPO'
       ,ICC.NOMETPINFCLINICA AS 'FREQUENCIA'
       ,TRY_CAST(SUBSTRING(ICC.NOMETPINFCLINICA, 1,CHARINDEX(' ',ICC.NOMETPINFCLINICA)-1) AS INT) AS 'NROFREQUENCIA'
       ,V.VALOR
FROM DBO.VEXAMESPRONT EP
JOIN DBO.VCONSULTASPRONT CP ON (EP.CODCOLIGADA = CP.CODCOLIGADA AND EP.IDCONSULTA = CP.IDCONSULTA)
LEFT JOIN DBO.PFUNC P ON (CP.CODCOLIGADA = P.CODCOLIGADA AND CP.CHAPA = P.CHAPA)
OUTER APPLY [dbo].[FOP_GET_HSTFUNCAO] (P.CODCOLIGADA , P.CHAPA, IIF(EP.DATAEXAME < P.DATAADMISSAO ,P.DATAADMISSAO ,EP.DATAEXAME)) HF
OUTER APPLY [dbo].[FOP_GET_HSTSECAO] (P.CODCOLIGADA , P.CHAPA, IIF(EP.DATAEXAME < P.DATAADMISSAO ,P.DATAADMISSAO ,EP.DATAEXAME)) HS
JOIN DBO.VEXAMESPRONTINFCLINICA IC ON (IC.CODCOLIGADA = EP.CODCOLIGADA AND IC.CODPESSOA = EP.CODPESSOA AND IC.IDCONSULTA = EP.IDCONSULTA AND IC.CODEXAME = EP.CODEXAME AND IC.DATAEXAME = EP.DATAEXAME )
JOIN DBO.VINFCLINICA ICC ON (ICC.CODCOLIGADA = IC.CODCOLIGADA AND ICC.CODTPINFCLINICA = IC.CODTPINFCLINICA) 
CROSS APPLY 
(
       SELECT TRY_CAST(G1.DESCRICAO AS INT) AS 'VALOR' 
       FROM DBO.GCONSIST G1
       WHERE G1.CODTABELA = IC.CODTABELA
       AND G1.CODCLIENTE  = IC.CODCLIENTE

) V
WHERE EP.CODCOLIGADA = 1 
AND EP.CODEXAME = '00002'
AND 
       (
                    ICC.NOMETPINFCLINICA LIKE '%OE/VA'
             OR     ICC.NOMETPINFCLINICA LIKE '%OD/VA'
             OR     ICC.NOMETPINFCLINICA LIKE '%OE/VO'
             OR     ICC.NOMETPINFCLINICA LIKE '%OD/VO'
             OR     ICC.NOMETPINFCLINICA LIKE 'WEBER%'
       )
ORDER BY TIPO, NROFREQUENCIA

 

Funções 

TOTVS-RM/RH/FOP_GET_HSTFUNCAO.sql at master · luisgustavogomes/TOTVS-RM · GitHub

TOTVS-RM/RH/FOP_GET_HSTSECAO.sql at master · luisgustavogomes/TOTVS-RM · GitHub

 

Espero lhe ajudar! 

Abraços.

 

 

[meurehelp]

Luiz boa tarde.

 

 

obrigado valeu demais