Histórico da Página

Tempo aproximado para leitura: 00 min

01. DADOS GERAIS

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

02. SITUAÇÃO/REQUISITO

Implementar no sistema o exame de acuidade visual na rotina de Exames, onde se possa criar exames do tipo Snellen e Ortho Rater.

03. SOLUÇÃO

A implementação macro no sistema se baseia no Exame Oftalmológico, para isso, foi implementado na rotina de Exames (MDTA020) no campo Ind. Result. (TM4_INDRES) a indicativa de resultado 5-Oftalmológico. Ao selecionar a opção 5-Oftalmológico, o sistema habilita o campo criado Tipo Oftalm. (TM4_OFTIPO) onde o usuário pode escolher entre Ortho Rater ou Snellen.

Informações

title	Tipo Oftalmológico

A escolha entre um dos dois tipos de exames Ortho Rater ou Snellen é obrigatória!

Para contemplar todos os requisitos, na rotina de Exames do Func. (MDTA120) em Outras Ações/Resultados, foi definido e detalhado todos os aspectos necessários para que o resultado possa ser compatível com o Ortho Rater ou com o Snellen, de acordo com o que foi cadastrado na rotina de Exames (MDTA020). Também foram implementados os relatórios de Ortho Rater e Snellen afim de atender a impressão do resultado dos exames realizados.

Totvs custom tabs box

tabs	Passo 01, Passo 02, Passo 03, Passo 04
ids	passo1,passo2

Totvs custom tabs box items

default	yes
referencia	passo1

Entrar no módulo de Medicina e Segurança do Trabalho (SIGAMDT).
Em Atualizações \ Cadastros Gerais \ Funcionários. Incluir um funcionário.
Em Atualizações \ Atendimento Médico \ Ficha Médica. Incluir uma ficha médica para o funcionário .
Em Atualizações \ Pcmso \ Exames:
- Incluir um exame onde o campo Ind. Result. como 5=Oftalmológico e preencher o campo Tipo Oftalm. como 1-Ortho Rater.
- Incluir um exame onde o campo Ind. Result. como 5=Oftalmológico e preencher o campo Tipo Oftalm. como 2-Snellen.
Em Atualizações \ Pcmso \ Fornecedor Exames. Relacionar os dois exames a um fornecedor.
Em Atualizações \ Pcmso \ Exames do Func.. Adicionar os dois exames para o funcionário:
- Selecionar o exame de Ortho Rater e ir em Ações Relacionadas \ Resultado. Preencher o resultado do exame.
- Selecionar o exame de Snellen e ir em Ações Relacionadas \ Resultado. Preencher o resultado do exame.
Em Relatórios \ Exames - Resultad. \ Ortho Rater. Realizar a impressão e verificar que o relatório é impresso com o resultado do exame.
Em Relatórios \ Exames - Resultad. \ Snellen. Realizar a impressão e verificar que o relatório é impresso com o resultado do exame.

04. DEMAIS INFORMAÇÕES

Card documentos

Informacao	Use esse box para destacar informações relevantes e/ou de destaque.
Titulo	IMPORTANTE!

Criação de Perguntas no arquivo SX1 – Cadastro de Perguntes:

Pergunte	De Ficha Medica ?	Ate Ficha Medica ?	De Exame ?	Ate Exame ?	De Data Result. ?	Ate Data Result. ?	Modelo de Imp. ?
Grupo	MDT485	MDT485	MDT485	MDT485	MDT485	MDT485	MDT485
Ordem	1	2	3	4	5	6	7
Tipo	Caracter	Caracter	Caracter	Caracter	Data	Data	Numérico
Tamanho	9	9	6	6	8	8	1
Validação	If(Empty(Mv_par01), .t.,ExistCpo('TM0',Mv_par01))	If(AteCodigo('TM0', Mv_par01,Mv_par02, nTamTM0 ),.t.,.f.)	MDT485VX1('03')	MDT485VX1('04')	NaoVazio()	NaoVazio() .And. Mv_Par06 >= Mv_par05
Lista de Opções							1=Gráfico; 2=Word
Consulta Padrão	TM0	TM0	TM4OR	TM4OR
Grupo de Campos			048	048
Help	Código da ficha médica. O campo pode permanecer vazio para considerar desde o primeiro código.	Código da ficha médica. O campo pode ser preenchido com a letra 'Z' até o final para considerar o último código.	Código do exame. O campo pode permanecer vazio para considerar desde o primeiro código.	Código do exame. O campo pode ser preenchido com a letra 'Z' até o final para considerar o último código.	Data mínima dos resultados dos exames que serão apresentados.	Data máxima dos resultados dos exames que serão apresentados.	Determina em qual modelo será realizado a impressão, 1=Gráfico ou 2=Word.

Pergunte	De Ficha Medica ?	Ate Ficha Medica ?	De Exame ?	Ate Exame ?	De Data Result. ?	Ate Data Result. ?
Grupo	MDT481	MDT481	MDT481	MDT481	MDT481	MDT481
Ordem	1	2	3	4	5	6
Tipo	Caracter	Caracter	Caracter	Caracter	Data	Data
Tamanho	9	9	6	6	8	8
Validação	If(Empty(Mv_par01) ,.t.,ExistCpo('TM0',Mv_par01))	If(AteCodigo('TM0' ,Mv_par01,Mv_par02),.t.,.f.)	MDT481VX1('03')	MDT481VX1('04')	NaoVazio()	NaoVazio() .And. Mv_Par06 >= Mv_par05
Consulta Padrão	TM0	TM0	TM4SN	TM4SN
Grupo de Campos			048	048
Help	Código da ficha médica. O campo pode permanecer vazio para considerar desde o primeiro registro.	Código da ficha médica. O campo pode ser preenchido com a letra ‘Z’ até o final para considerar até o último registro.	Código do exame. O campo pode permanecer vazio para considerar desde o primeiro registro.	Código do exame. O campo pode ser preenchido com a letra ‘Z’ até o final para considerar até o último registro.	Data mínima dos resultados dos exames que serão apresentados.	Data máxima dos resultados dos exames que serão apresentados.

2. Criação de tabela no arquivo SX2– Tabelas:

Chave	Nome	Modo	PYME
TYB	Result. Exame Acuidade Visual	Exclusivo	N

Chave	Nome	Modo	PYME
TYC	Resultados Exame Snellen	Exclusivo	N

3. Alteração de Campos no arquivo SX3 – Campos:

Tabela TM4 - Exames

Campo	TM4_INDRES
Tipo	Caracter
Tamanho	1
Decimal	0
Formato	@!
Título	Ind. Result.
Descrição	Indica Tipo Resultado
Nível	1
Usado	Sim
Obrigatório	Sim
Browse	Sim
Inic. Padrão	IF (INCLUI,"1",TM4->TM4_INDRES)
Opções	1=Normal;2=IBMP;3=Itens Exame;4=Audiometrico;5=Oftalmológico
Val. Sistema	Pertence('123456') .And. MDT020OFV()
Help	Indica qual o tipo de resultado do exame. 1-Normal; 2-Tabela IBMP; 3-Itens do Exame; 4-Audiometria; 5-Oftalmológico.

4. Criação de Campos no arquivo SX3 – Campos:

Tabela TM4 - Exames

Campo	TM4_OFTIPO
Tipo	Caracter
Tamanho	1
Decimal	0
Formato	@!
Título	Tipo Oftalm.
Descrição	Tipo Oftalmológico
Nível	1
Usado	Sim
Obrigatório	Não
Browse	Não
Opções	1=Ortho Rater;2=Snellen
Lista Opções	1=Ortho Rater;2=Snellen
Modo Edição	MDT020OFW()
Val. Sistema	PERTENCE("12")
Help	Indica se o tipo de exame Oftalmológico, será 1-Ortho Rater ou 2-Snellen.

Tabela TYB - Resultados Exame Ortho Rater

Campo	TYB_FILIAL	TYB_NUMFIC	TYB_NOMFIC	TYB_EXAME	TYB_HRPROG	TYB_DTPROG	TYB_OFTIPO	TYB_OLHOEL
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter	Data	Caracter	Numérico
Tamanho	8	9	20	6	5	8	1	3
Decimal	0	0	0	0	0	0	0	0
Formato		999999999	@!	@!	99:99		@!	999
Título	Filial	Ficha Médica	Nome	Exame	Hora Prog.	Data Exame	Tipo Oftalm.	Olho Esq.
Descrição	Filial do Sistema	Número da Ficha Médica	Nome Ficha Médica	Exame	Hora Programada	Data Exame	Tipo Oftalmológico	Olho Esquerdo
Nível	1	1	1	1	1	1	1	1
Usado	Não	Sim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Sim	Sim	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Inic. Padrão		TM5->TM5_NUMFIC	Posicione('TM0',1,xFILIAL('TM0')+ TYB→TYB_NUMFIC,'TM0_NOMFIC')				1=Acuidade Visual;2=Snellen
Val. Sistema		EXISTCHAV('TM0',M->TM0_NUMFIC)		EXISTCPO('TM4',M->TYB_EXAME) .AND. EXISTCHAV('TYB',M->TYB_NUMFIC+M->TYB_DTPROG+M->TYB_HRPROG+M->TYB_EXAME)	VALHORA( M->TYB_HRPROG )		PERTENCE("12")	MDT120OFT(M->TYB_OLHOEL)
Help	Filial do Sistema.	Número da Ficha Médica utilizada.	Nome da Ficha Médica utilizada.	Exame Oftálmico de Acuidade Visual.	Hora programada para realização do exame.	Data programada para realização do exame.	Determina do tipo do exame oftalmológico, sendo 1=Ortho Rater e 2=Snellen.	Determina o valor que será considerado para o olho esquerdo. Valores permitidos: 10, 20, 30, 40, 50, 60, 70, 80, 90 ou 100

Campo	TYB_OLHODL	TYB_OLHOAL	TYB_FORILL	TYB_FORIVL	TYB_FORRPL	TYB_FORIFL	TYB_ESTREL	TYB_ESTERL
Tipo	Numérico	Numérico	Numérico	Numérico	Caracter	Caracter	Caracter	Caracter
Tamanho	3	3	3	3	1	80	1	80
Decimal	0	0	1	1	0	0	0	0
Formato	999	999	@E 9.9	@E 9.9	@!	@!	@!	@!
Título	Olho Dir.	Ambos	Foria Lat.	Foria Vert.	Resposta	Fusão	Resposta	Estereopsia
Descrição	Olho Direito	Ambos Olhos	Foria Lateral	Foria Vertical	Resposta da Fusão	Fusão	Resposta da Estereopsia	Estereopsia
Nível	1	1	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Val. Sistema	MDT120OFT(M->TYB_OLHODL)	MDT120OFT(M->TYB_OLHOAL)	MDT120OFT(M->TYB_FORILL,2)	MDT120OFT(M->TYB_FORIVL,2)	Pertence('123')		Pertence('123')
Lista Opções					1=Reprovado; 2=Aceitável; 3=Normal		1=Reprovado; 2=Aceitável; 3=Normal
Help	Determina o valor que será considerado para o olho direito.Valores permitidos: 10, 20, 30, 40, 50, 60, 70, 80, 90 ou 100	Determina o valor que será considerado para ambos os olhos.Valores permitidos: 10, 20, 30, 40, 50,60, 70, 80, 90 ou 100	Define se na posição horizontal os olhos tendem a apontar para dentro ou para fora do normal. São definidos por índices que indicam uma falta de coordenação entre os olhos. Informe os valores coletados. Termos: Exoforia: É o nome dado quando os olhos tendem a virar para fora. Esoforia: É o nome dado quando os olhos tendem a virar para dentro.	Define como os olhos são posicionados com relação um ao outro em um eixo vertical, se eles tendem a apontar para cima ou para baixo. São definidos por índices que indicam uma falta de coordenação entre os olhos. Informe os valores coletados. Termos: Hiperforia Direita: É o nome dado quando os olhos tendem a virar para cima. Hiperforia Esquerda: É o nome dado quando os olhos tendem a virar para baixo.	Define quanto ao resultado coletado no campo de Fusão. Selecione uma entre as opções: 1-Reprovado, 2-Aceitável ou 3-Normal.	Define se ambos os olhos trabalham deforma a combinar as imagens com ligeiras diferenças que cada um vê em uma única imagem com coerência. A fusão é medida através do córtex cerebral e localiza objetos em duas dimensões.	Define quanto ao resultado coletado no campo de Estereopsia. Selecione uma entre as opções: 1-Reprovado,2-Aceitável ou 3-Normal.	Define o conhecimento tridimensional do espaço (visão de profundidade). É capaz de medir as diferenças na imagem captada por cada olho e fundir em uma imagem só.

Campo	TYB_CORREL	TYB_OLHOEP	TYB_OLHODP	TYB_OLHOAP	TYB_FORILP	TYB_FORIVP	TYB_FORRPP	TYB_FORIFP
Tipo	Caracter	Numérico	Numérico	Numérico	Numérico	Numérico	Caracter	Caracter
Tamanho	1	3	3	3	3	3	1	80
Decimal	0	0	0	0	1	1	0	0
Formato	@!	999	999	999	@E 9.9	@E 9.9	@!	@!
Título	C/ Correção	Olho Esq.	Olho Dir.	Ambos	Foria Lat.	Foria Vert.	Resposta	Fusão
Descrição	Com Correção	Olho Esquerdo	Olho Direito	Ambos Olhos	Foria Lateral	Foria Vertical	Resposta da Fusão	Fusão
Nível	1	1	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Não	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Val. Sistema	Pertence('12')	MDT120OFT(M->TYB_OLHOEP)	MDT120OFT(M->TYB_OLHODP)	MDT120OFT(M->TYB_OLHOAP)	MDT120OFT(M->TYB_FORILP,2)	MDT120OFT(M->TYB_FORIVP,2)	Pertence('123')
Lista Opções	1=Sim;2=Não						1=Reprovado; 2=Aceitável; 3=Normal	Determina o valor da fusão.
Help	Determina se utiliza alguma correção para longe.	Determina o valor que será considerado para o olho esquerdo.	Determina o valor que será considerado para o olho direito.Valores permitidos: 10, 20, 30, 40, 50,60, 70, 80, 90 ou 100	Determina o valor que será considerado para ambos os olhos.Valores permitidos: 10, 20, 30, 40, 50,60, 70, 80, 90 ou 100	Define se na posição horizontal os olhos tendem a apontar para dentro ou para fora do normal. São definidos por índices que indicam uma falta de coordenação entre os olhos. Informe os valores coletados. Termos: Exoforia: É o nome dado quando os olhos tendem a virar para fora. Esoforia: É o nome dado quando os olhos tendem a virar para dentro.	Define como os olhos são posicionados com relação um ao outro em um eixo vertical, se eles tendem a apontar para cima ou para baixo. São definidos por índices que indicam uma falta de coordenação entre os olhos. Informe os valores coletados. Termos: Hiperforia Direita: É o nome dado quando os olhos tendem a virar para cima. Hiperforia Esquerda: É o nome dado quando os olhos tendem a virar para baixo.	Define quanto ao resultado coletado no campo de Fusão. Selecione uma entre as opções: 1-Reprovado, 2-Aceitável ou 3-Normal.	Define se ambos os olhos trabalham deforma a combinar as imagens com ligeiras diferenças que cada um vê em uma única imagem com coerência. A fusão é medida através do córtex cerebral e localiza objetos em duas dimensões.

Campo	TYB_ESTREP	TYB_ESTERP	TYB_CORREP	TYB_COR1	TYB_COR2	TYB_COR3	TYB_COR4	TYB_VISUE
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	1	80	1	1	1	1	1	1
Decimal	0	0	0	0	0	0	0	0
Formato	@!	@!	@!	@!	@!	@!	@!	@!
Título	Resposta	Estereopsia	C/ Correção	92	56	79	23	Olho Esq.
Descrição	Resposta da Estereopsia	Estereopsia	Com Correção	92	56	79	23	Olho Esquerdo
Nível	1	1	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Lista Opções	1=Reprovado; 2=Aceitável; 3=Normal		1=Sim;2=Não	1=Sim;2=Não	1=Sim;2=Não	1=Sim;2=Não	1=Sim;2=Não	1=Nasal; 2=55%; 3=70%; 4=85%
Val. Sistema	Pertence('123')		Pertence('12')	Pertence('12')	Pertence('12')	Pertence('12')	Pertence('12')	Pertence('1234')
Help	Define quanto ao resultado coletado no campo de Estereopsia. Selecione uma entre as opções: 1-Reprovado,2-Aceitável ou 3-Normal.	Define o conhecimento tridimensional do espaço (visão de profundidade). É capaz de medir as diferenças na imagem captada por cada olho e fundir em uma imagem só.	Determina se utiliza alguma correção para perto.	Define a visão colorida (azul/violeta) suave. A pessoa deverá identificar o número 92. Informe se foi identificado o número: 1-Sim ou 2-Não.	Define a visão colorida (azul/violeta) suave. A pessoa deverá identificar o número 56. Informe se foi identificado o número: 1-Sim ou 2-Não.	Define a visão colorida (vermelha/verde) grave. A pessoa deverá identificar o número 79. Informe se foi identificado o número: 1-Sim ou 2-Não.	Define a visão colorida (vermelha/verde) grave. A pessoa deverá identificar o número 23. Informe se foi identificado o número: 1-Sim ou 2-Não.	Define se o olho possui o nervo óptico com um feixe de neurônios proveniente da retina nasal ou proveniente da retina temporal. Termos:Nasal: Considera o campo nasal com ângulo de 45°. Temporal: Considera o campo temporal com ângulos de 85°, 70° e 55°.

Campo	TYB_VISUD	TYB_REFERE	TYB_AGRAVA	TYB_ORIGEM	TYB_USACOR	TYB_TIPO	TYB_DTRESU	TYB_CODRES
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter	Caracter	Data	Caracter
Tamanho	1	1	1	1	1	1	8	4
Decimal	0	0	0	0	0	0	0	0
Formato	@!	@!	@!	@!	@!	@!		@!
Título	Olho Dir.	Referencial	Agravamento	Origem	Usa Correção?	Tipo	Data Result.	Resultado
Descrição	Olho Direito	Referencial	Agravamento	Origem	Usa Correção?	Tipo de Correção	Data do Resultado	Código Resultado
Nível	1	1	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Lista Opções	1=Nasal; 2=Temporal	1=Sim;2=Não	1=Sim;2=Não	1=Assistencial; 2=Ocupacional; 3=NA	1=Sim;2=Não	1=Perto; 2=Longe; 3=Ambos; 4=NA
Val. Sistema	Pertence('1234')		MDT120VLD ('TYB_AGRAVA')	Pertence('123')	MDT120VLD ('TYB_USACOR')	Pertence('1234')	MDT120VLD ('TYB_DTRESU')	If(Vazio(),.T.,EXISTCPO('TMU',M->TYB_CODRES))
Cons. Padrão								TMU
Modo Edição				M->TYB_AGRAVA == '1'		M->TYB_USACOR == '1'
Help	Define se o olho possui o nervo óptico com um feixe de neurônios proveniente da retina nasal ou proveniente da retina temporal. Termos: Nasal: Considera o campo nasal com ângulo de 45°. Temporal: Considera o campo temporal com ângulos de 85°, 70° e 55°.	Define se o exame servirá como referência para comparação de exames posteriores. Selecione entre a opção 1-Sim ou 2-Não.	Define se o exame servirá como referência para comparação de exames posteriores. Selecione entre a opção 1-Sim ou 2-Não. Caso haja agravamento, é necessário a seleção do campo Origem com as opções 1-Assistencial ou 2-Ocupacional.	Caso haja Agravamento o campo de Origem é habilitado para que seja selecionado o tipo de Exame: 1-Assistencial ou 2-Ocupacional.	Define se há correção com a utilização de óculos ou lentes de contato. Selecione a opção 1-Sim ou 2-Não.	Campo habilitado apenas se o campo Usa Correção estiver habilitado. Define se o funcionário utiliza uma correção para perto, longe ou para ambos (monofocal ou bifocal). Selecione a opção 1-Perto,2-Longe ou Ambos.	Data do resultado do exame.	Código do resultado do exame. Pressione as teclas [Enter]+[F3] para selecionar um Resultado do Exame.

Campo	TYB_INDRES	TYB_EQUIPA	TYB_NOMEQ	TYB_DTAFER	TYB_CALIBR	TYB_ATENDE	TYB_NOMATE	TYB_DETALH
Tipo	Caracter	Caracter	Caracter	Data	Data	Caracter	Caracter	Caracter
Tamanho	1	6	20	8	8	12	20	6
Decimal	0	0	0	0	0	0	0	0
Formato	@!	@!	@!			@!	@!	@!
Título	Ind. Result.	Equipamento	Nome Equip.	Aferição	Calibração	Atendente	Nome Atend.	Detalhes
Descrição	Indica Tipo Resultado	Equipamento	Nome do Equipamento	Data Aferição	Data Calibração	Atendente	Nome do Atendente	Detalhes
Nível	1	1	1	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não	Não	Não	Não
Inic. Padrão			TM7->(VDISP(TYB->TYB_EQUIPA,'TM7_NOEQTO'))				TMK->(VDISP(TYB->TYB_ATENDE,'TMK_NOMUSU'))
Opções	1=Normal; 2=Alterado
Val. Sistema	PERTENCE("12")	EXISTCPO('TM7',M->TYB_EQUIPA)
Cons. Padrão		TM7				TMK
Help	Informe o indicador do resultado do exame 1=Normal; 2=Alterado.	Código do Equipamento utilizado para obter o resultado do exame. Pressione as teclas [Enter]+[F3] para selecionar um Equipamento.	Determina o nome do equipamento utilizado.	Data de aferição do equipamento.	Data de calibração do equipamento.	Código do Atendente responsável pelo Exame Oftalmológico.	Determina o nome do atendente responsável.	Detalhamento do exame.

Campo	TYB_DETALM	TYB_OBSERV	TYB_OBSERM
Tipo	Caracter	Caracter	Caracter
Tamanho	80	6	80
Decimal	0	0	0
Formato	@!	@!	@!
Título	Detalhes	Observação	Observação
Descrição	Detalhes	Observação	Observação
Nível	1	1	1
Usado	Sim	Sim	Sim
Obrigatório	Não	Não	Não
Browse	Não	Não	Não
Inic. Padrão	IF( !INCLUI,MSMM( TYB->TYB_DETALH ),'' )
Relação			If( !INCLUI,MSMM( TYB->TYB_OBSERM ),'' )
Help	Detalhamento do exame.	Observações para o exame.	Observações para o exame.

Tabela TYC - Resultado Exame Snellen

Campo	TYC_FILIAL	TYC_NUMFIC	TYC_NOMFIC	TYC_EXAME	TYC_HRPROG
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	8	9	20	6	5
Decimal	0	0	0	0	0
Formato		999999999	@!	@!	99:99
Título	Filial	Ficha Médica	Nome	Exame	Hora Prog.
Descrição	Filial do Sistema	Número da Ficha Médica	Nome Ficha Médica	Exame	Hora Programada
Nível	1	1	1	1	1
Usado	Não	Sim	Sim	Sim	Sim
Obrigatório	Não	Sim	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Inic. Padrão		TM5->TM5_NUMFIC	Posicione('TM0',1,xFILIAL('TM0')+TM5->TM5_NUMFIC,'TM0_NOMFIC')		VALHORA( M->TYC_HRPROG )
Val. Sistema		EXISTCHAV('TM0',M->TM0_NUMFIC)		EXISTCPO('TM4',M->TYC_EXAME) .AND. EXISTCHAV('TYC',M->TYC_NUMFIC+M->TYC_DTPROG+M->TYC_HRPROG+M->TYC_EXAME)
Help	Filial do Sistema.	Número da Ficha Médica utilizada.	Nome da Ficha Médica utilizada.	Exame Oftálmico Snellen.	Hora programada para realização do exame.

Campo	TYC_DTPROG	TYC_OLHOEL	TYC_OLHODL	TYC_OLHOAL	TYC_CORREL
Tipo	Data	Numérico	Numérico	Numérico	Caracter
Tamanho	8	3	3	3	1
Decimal	0	0	0	0	0
Título	Data Exame	999	999	999	@!
Descrição	Data Exame	Olho Esq.	Olho Dir.	Ambos	C/ Correção
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Lista Opções				1=Sim;2=Não
Val. Sistema		MDT120OFT(M->TYC_OLHOEL)	MDT120OFT(M->TYC_OLHODL)	MDT120OFT(M->TYC_OLHOAL)	Pertence('12')
Help	Data programada para realização do exame.	Determina o valor que será considerado para o olho esquerdo.	Determina o valor que será considerado para o olho direito.	Determina o valor que será considerado para ambos os olhos.	Determina se utiliza alguma correção para longe.

Campo	TYC_REFERE	TYC_AGRAVA	TYC_ORIGEM	TYC_USACOR	TYC_TIPO
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	1	1	1	1	1
Decimal	0	0	0	0	0
Formato	@!	@!	@!	@!	@!
Título	Referencial	Agravamento	Origem	Usa Correção?	Tipo
Descrição	Referencial	Agravamento	Origem	Usa Correção?	Tipo de Correção
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Opções	1=Sim;2=Não	1=Normal; 2=Alterado	1=Assistencial; 2=Ocupacional; 3=NA	1=Sim;2=Não	1=Perto; 2=Longe; 3=Ambos; 4=NA
Val. Sistema	Pertence('12')	MDT120VLD('TYC_AGRAVA')	Pertence('123')	MDT120VLD('TYC_USACOR')	Pertence('1234')
Modo Edição			M->TYC_AGRAVA == '1'		M->TYC_USACOR == '1'
Help	Determina se o exame será considerado como um exame referencial.	Determina se a condição oftalmológica possui algum agravamento, podendo ser ocupacional ou assistencial.	Determina a origem do agravamento podendo ser 1=Assistencial ou 2=Ocupacional.	Determina se o paciente utiliza algum tipo de correção oftalmológica.	Determina o tipo de correção oftalmológica, sendo 1=Perto e 2=Longe.

Campo	TYC_DTRESU	TYC_CODRES	TYC_INDRES	TYC_EQUIPA	TYC_NOMEQ
Tipo	Data	Caracter	Caracter	Caracter	Caracter
Tamanho	8	4	1	6	20
Decimal	0	0	0	0	0
Formato		@!	@!	@!	@!
Título	Data Result.	Cod. Result.	Ind. Result.	Equipamento	Nome Equip.
Descrição	Data do Resultado	Código Resultado	Indica Tipo Resultado	Equipamento	Nome do Equipamento
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Val. Sistema		If(Vazio(),.T.,EXISTCPO('TMU',M->TYC_CODRES))	Pertence('12')	EXISTCPO('TM7',M->TYC_EQUIPA)	TM7->(VDISP(TYC->TYC_EQUIPA,'TM7_NOEQTO'))
Cons. Padrão		TMU		TM7
Lista Opções			1=Normal; 2=Alterado
Help	Data do resultado do exame.	Código do resultado do exame. Pressione as teclas [Enter]+[F3] para selecionar um Resultado do Exame.	Informe o indicador do resultado do exame 1=Normal; 2=Alterado.	Código do Equipamento utilizado para obter o resultado do exame. Pressione as teclas [Enter]+[F3] para selecionar um Equipamento.	Determina o nome do equipamento utilizado.

Campo	TYC_DTAFER	TYC_CALIBR	TYC_ATENDE	TYC_NOMATE	TYC_DETALH
Tipo	Data	Data	Caracter	Caracter	Caracter
Tamanho	8	8	12	20	6
Decimal	0	0	0	0	0
Formato			@!	@!	@!
Título	Aferição	Calibração	Atendente	Nome Atend.	Detalhes
Descrição	Data Aferição	Data Calibração	Atendente	Nome do Atendente	Detalhes
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Inic. Padrão				TMK->(VDISP(TYC->TYC_ATENDE,'TMK_NOMUSU'))
Val. Sistema	MDT120VLD('TYC_DTAFER')	MDT120VLD('TYC_CALIBR')	MDT120VLD('TYC_ATENDE')
Cons. Padrão			TMK
Help	Data de aferição do equipamento.	Data de calibração do equipamento.	Código do Atendente responsável pelo Exame.	Determina o nome do atendente responsável.	Detalhamento do exame.

Campo	TYC_DETALH	TYC_DETALM	TYC_OBSERV	TYC_OBSERM	TYC_OFTIPO
Tipo	Caracter	Caracter	Caracter	Caracter	Caracter
Tamanho	6	80	6	80	1
Decimal	0	0	0	0	0
Formato	@!	@!	@!	@!	@!
Título	Detalhes	Detalhes	Observação	Observação	Tipo Oftalm.
Descrição	Detalhes	Detalhes	Observação	Observação	Tipo Oftalmológico
Nível	1	1	1	1	1
Usado	Sim	Sim	Sim	Sim	Sim
Obrigatório	Não	Não	Não	Não	Não
Browse	Não	Não	Não	Não	Não
Inic. Padrão		If( !INCLUI,MSMM( TYC->TYC_DETALH ),'' )		If( !INCLUI,MSMM( TYC->TYC_OBSERM ),'' )	1=Ortho Rater;2=Snellen
Val. Sistema					PERTENCE("12")
Help	Detalhamento do exame.	Detalhamento do exame.	Observações para o exame.	Observações para o exame.	Determina do tipo do exame oftalmológico, sendo 1=Ortho Rater e 2=Snellen.

Informações

title	Importante

O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.

5. Criação de Consulta Padrão no arquivo SXB – Consulta Padrão:

Pesquisa TM4OR - Exame

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Alias	TM4OR	TM4OR	TM4OR	TM4OR	TM4OR	TM4OR	TM4OR	TM4OR	TM4OR
Tipo	1	2	2	4	4	4	4	5	6
Sequência	01	01	02	01	01	02	02	01	01
Coluna	DB	01	02	01	02	03	04
Descrição	Ortho Rater	Código	Nome	Código	Nome	Nome	Código
Contém	TM4			TM4_EXAME	TM4_NOMEXA	TM4_NOMEXA	TM4_EXAME	TM4_EXAME	TM4->TM4_INDRES == '5' .AND. TM4->TM4_OFTIPO == '1'

Pesquisa TM4SN - Exame

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Alias

TM4SN

Alias

TM4SN

Tipo

1

2

4

5

6

Sequência

01

02

01

02

01

Coluna

DB

01

02

01

02

03

04

Descrição

Snellen

Código

Nome

Código

Nome

Código

Contém

TM4

TM4_EXAME

TM4_NOMEXA

TM4_EXAME

TM4->TM4_INDRES == '5' .AND. TM4->TM4_OFTIPO == '2'

6. Criação de Índices no arquivo SIX – Índices:

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Índice	TYB	TYB
Ordem	1	2
Chave	TYB_FILIAL+TYB_NUMFIC+DTOS(TYB_DTPROG)+TYB_HRPROG+TYB_EXAME	TYB_FILIAL+TYB_EXAME
Descrição	Filial + Ficha Médica + Data Programada + Exame	FilialExame
Proprietário	S	S

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Índice	TYC	TYC
Índice	TYC	TYC
Ordem	1	2
Chave	TYC_FILIAL+TYC_NUMFIC+DTOS(TYC_DTPROG)+TYC_HRPROG+TYC_EXAME	TYC_FILIAL+TYC_EXAME
Descrição	Filial + Ficha Médica + Data Programada + Exame	Filial+Exame
Proprietário	S	S

7. Criação de Gatilhos no arquivo SX7 – Gatilhos:

TYB - Resultados Exame Acuidade Visual

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Campo	TYB_EQUIPA	TYB_EQUIPA	TYB_EQUIPA	TYB_ATENDE
Sequência	001	002	003	001
Campo Domínio	TYB_NOMEQ	TYB_DTAFER	TYB_CALIBR	TYB_NOMATE
Tipo	Primário	Primário	Primário	Primário
Regra	TM7->TM7_NOEQTO	TM7->TM7_DTAFER	TM7->TM7_DTCALI	TMK->TMK_NOMUSU
Posiciona?	Sim	Sim	Sim	Sim
Chave	xFilial("TM7")+M->TYB_EQUIPA	xFilial("TM7")+M->TYB_EQUIPA	xFilial("TM7")+M->TYB_EQUIPA	xFilial("TMK")+M->TYB_ATENDE
Proprietário	S	S	S	S

Tabela TYC - Resultados Exame Snellen

")+M->TYB_ATENDE
Proprietário	S	S	S	S

Tabela TYC - Resultados Exame Snellen

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Campo	TYC_EQUIPA	TYC_EQUIPA	TYC_EQUIPA	TYC_ATENDE
Sequência	1	2	3	1
Campo Domínio	TYC_NOMEQ	TYC_DTAFER	TYC_CALIBR	TYC_NOMATE
Tipo	Primário	Primário	Primário	Primário
Regra	TM7->TM7_NOEQTO	TM7->TM7_DTAFER	TM7->TM7_DTCALI	TMK->TMK_NOMUSU
Posiciona?	Sim	Sim	Sim	Sim
Chave	xFilial("TM7")+M->TYC_EQUIPA	xFilial("TM7")+M->TYC_EQUIPA	xFilial("TM7")+M->TYC_EQUIPA	xFilial("TMK")+M->TYC_ATENDE
Proprietário	S	S	S	S

Procedimento para Configuração

1. No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do Medicina e Segurança do Trabalho (SIGAMDT), conforme instruções a seguir:

Linha de Produto:	Protheus
Segmento:	Serviços
Módulo:	Medicina e Segurança do Trabalho (SIGAMDT)
Função:	MDTR485, MDTR481, MDTA020 e MDTA120.
Ticket:	622788
Requisito/Story/Issue:	MNG-1812

Menu	Relatórios	Relatórios
Submenu	Exames - Resultad.	Exames - Resultad.
Nome da Rotina	Ortho Rater	Snellen
Programa	MDTR485	MDTR481
Módulo	Medicina e Segurança do Trabalho	Medicina e Segurança do Trabalho

05. ASSUNTOS RELACIONADOS

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

Chave

Nome

Modo

PYME

Árvore de páginas

Versões comparadas

Versão antiga 35

Nova versão 36

Chave

02. SITUAÇÃO/REQUISITO

03. SOLUÇÃO

04. DEMAIS INFORMAÇÕES

Procedimento para Configuração

05. ASSUNTOS RELACIONADOS