Tabela
TM4 Exames
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TM4_FILIAL C 2 0 Filial S
TM4_EXAME C 6 0 Exame @! EXISTCHAV("TM4",M->TM4_EXAME) S
TM4_NOMEXA C 40 0 Nome Exame @! NAOVAZIO() MDT020WHEN("TM4_NOMEXA") S
TM4_DESEXA C 100 0 Descricao @! S
TM4_INDRES C 1 0 Ind. Result. @! Pertence('123456') .And. MDT020OFV() 1=Normal;2=IBMP;3=Itens Exame;4=Audiometrico;5=Oftalmologico S
TM4_ADMISS C 1 0 Admissional? @! PERTENCE("12") 1=Sim;2=Nao S
TM4_DEMISS C 1 0 Demissional? @! PERTENCE("12") 1=Sim;2=Nao S
TM4_RETORN C 1 0 Ret. Trab. ? @! PERTENCE("12") 1=Sim;2=Nao S
TM4_PREPAR C 6 0 Prep. Exame @! NaoVazio() R N
TM4_MEMOPR M 80 0 Prep. Exame V N
TM4_USERGI C 17 0 Log de Inclu R N
TM4_TUSS C 8 0 TUSS @! If(!Empty(M->TM4_TUSS),ExistCPO('TY2',M->TM4_TUSS),.T.) TY2 R S
TM4_DESTUS C 200 0 Desc. TUSS @! V S
TM4_PROCRE C 4 0 Proc. Realiz @! If(!Empty(M->TM4_PROCRE),EXISTCPO("V2K",M->TM4_PROCRE,2),.T.) MDTV2K R S
TM4_OFTIPO C 1 0 Tipo Oftalm. @! PERTENCE("12") R 1=Ortho Rater;2=Snellen MDT020OFW() N