Tabela
TM5 Exames do Funcionario
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TM5_FILIAL C 2 0 Filial N
TM5_NUMFIC C 9 0 Ficha Medica 999999999 EXISTCPO("TM0",M->TM5_NUMFIC) TM0 LENUMFIC N
TM5_NOMFIC C 40 0 Nome @! V N
TM5_EXAME C 6 0 Cod. Exame @! EXISTCPO("TM4",M->TM5_EXAME) TM4 N
TM5_NOMEXA C 20 0 Nome Exame @! V N
TM5_DTPROG D 8 0 Data Exame 99/99/9999 N
TM5_FORNEC C 6 0 Fornecedor @! CARRELOJA() NGE N
TM5_LOJA C 2 0 Loja Fornec. @! EXISTCPO("SA2",M->TM5_FORNEC+M->TM5_LOJA) .AND. FORNEXA() N
TM5_FILFUN C 2 0 Filial Func. .F. N
TM5_MAT C 6 0 Matricula 999999 ExCpoMDT("SRA",M->TM5_MAT) .F. N
TM5_ORIGEX C 1 0 Origem Exame @! NUMPCMSO() 1=Assistencial;2=Ocupacional N
TM5_PCMSO C 6 0 Num.PCMSO @! If(M->TM5_ORIGEX == "2",EXISTCPO("TMW",M->TM5_PCMSO),NUMPCMSO()) TMW MDT120WHE(1) N
TM5_DTRESU D 8 0 Data Result. MDT120VLDR() N
TM5_CODRES C 4 0 Conclusao @! If(Vazio(),.T.,EXISTCPO("TMU",M->TM5_CODRES)) TMU N
TM5_RESULT C 20 0 Descricao @! V N
TM5_INDRES C 1 0 Ind. Result. @! 1=Normal;2=Alterado N
TM5_NATEXA C 1 0 Natureza @! PERTENCE("12345") 1=Admissional;2=Periodico;3=Mudanca Funcao;4=Retorno Trabalho;5=Demissional M->TM5_ORIGEX = "2" N
TM5_OBSERV C 80 0 Obs. Result. @! N
TM5_CC C 9 0 Centro Custo @! .F. N
TM5_CODFUN C 5 0 Cod. Funcao @! N
TM5_CBO C 6 0 C.B.O. 999999 .F. N
TM5_NUMASO C 6 0 Num. ASO 999999 N
TM5_TNOTRA C 3 0 Turno Trab. @! N
TM5_DESRES M 10 0 Det. Resum. @! N
TM5_EXAREF C 1 0 Referencial? @! PERTENCE("12") 1=Sim;2=Nao N
TM5_INDAGR C 1 0 Agravamento? @! 1=Sim;2=Nao NG120WNAG() N
TM5_ORIAGR C 1 0 Origem Agrav @! 1=Ocupacional;2=Nao Ocupacional M->TM5_INDAGR='1' N
TM5_HRPROG C 5 0 Hor. Prog. 99:99 VALHORA(M->TM5_HRPROG) .AND. MDT120PK() R S
TM5_USERGI C 17 0 Log de Inclu R N
TM5_USERGA C 17 0 Log de Alter R N
TM5_CODDET C 17 0 Cod.DENATRAN @! R N
TM5_USUARI C 12 0 Med. Exam. @! ExistCPO("TNP",M->TM5_USUARI) TNP R M->TM5_ORIGEX == "1" .And. !Empty( M->TM5_CODDET ) N
TM5_NOMMED C 80 0 Nome Med. @! V N