Tempo aproximado para leitura: 20 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: | DNG-1484 |
02. SITUAÇÃO/REQUISITO
Implementar no sistema a opção para incluir exames do tipo Oftalmológico. O sistema deve abranger o tipo Ortho Rater e Snellen, sendo que ambos devem ter a possibilidade de serem impressos.
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.
Tipo Oftalmológico
Quando na rotina de Exames, o tipo de indicativa de resultado for 5-Oftalmológico, é de obrigatoriedade fazer a seleção de um entre os dois tipos de exames permitidos.
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.
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
A implementação está disponível apenas a partir da release 12.1.23.
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; | ||||||
| Help | Determina o valor que será considerado para o olho direito.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 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 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 (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. | 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 | 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. |
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
| 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
| Alias | TM4SN | TM4SN | TM4SN | TM4SN | TM4SN | TM4SN | TM4SN | TM4SN | TM4SN |
|---|---|---|---|---|---|---|---|---|---|
| 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 | Snellen | 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 == '2' |
6. Criação de Índices no arquivo SIX – Índices:
| Í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 |
| Í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
| 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
| 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:
| 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
- Ortho Rater: http://tdn.totvs.com/x/mLUQG
Snellen:http://tdn.totvs.com/x/7rUQG
Exames:http://tdn.totvs.com/x/X4m1F
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas