Tabela
TM0 Ficha Medica
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TM0_FILIAL C 2 0 FILIAL N
TM0_NUMFIC C 9 0 Ficha Medica 999999999 EXISTCHAV("TM0",M->TM0_NUMFIC) N
TM0_CANDID C 6 0 Candidato @! VERCANDID() N
TM0_FILFUN C 2 0 Filial Func. N
TM0_MAT C 6 0 Matricula 999999 MDT005MAVD(M->TM0_MAT) SRA N
TM0_NUMDEP C 2 0 Dependente @! CHECKDEP() NGC N
TM0_NOMFIC C 40 0 Nome @! MDT005VALC(TM0->TM0_NOMFIC, M->TM0_NOMFIC) Type('lChamTKD') == 'U' N
TM0_DTIMPL D 8 0 Data Impl. MDT005DT(M->TM0_DTIMPL) N
TM0_DOADOR C 1 0 Doador @! 1=Sim;2=Nao N
TM0_DTDOAC D 8 0 Data Doacao MDT005DT(M->TM0_DTDOAC) N
TM0_SANGUE C 1 0 Tipo Sangue @! 1=A;2=B;3=AB;4=O;5=NI N
TM0_FATORH C 1 0 Fator RH @! 1=Positivo;2=Negativo N
TM0_FICANT C 12 0 Ficha Anter. @! N
TM0_DTNASC D 8 0 Data Nasc. NAOVAZIO() .And. ChkDtNa(dDataBase,M->TM0_DTNASC) MDT005WHEN(2) N
TM0_SEXO C 1 0 Sexo @! 1=Masculino;2=Feminino MDT005WHEN(2) N
TM0_PESO N 7 3 Peso @E 999.999 NG005IMC() N
TM0_ALTURA N 4 2 Altura @E 9.99 NG005IMC() N
TM0_MASSA C 20 0 Massa Corp. @! R N
TM0_ALTOLH N 4 2 Altura Olhos @E 9.99 N
TM0_LMAMIL N 4 2 Lin. Mamilar @E 9.99 N
TM0_ALTPUB N 4 2 Altura Pubis @E 9.99 N
TM0_ALTJOE N 4 2 Alt. Joelho @E 9.99 N
TM0_ALTCOT N 4 2 Alt.Cotovelo @E 9.99 N
TM0_TAMBRA N 4 2 Tam. Braco @E 9.99 N
TM0_TAMANT N 4 2 Tam. Ante-B. @E 9.99 N
TM0_TAMMAO N 4 2 Tamanho Mao @E 9.99 N
TM0_COMPPE N 4 2 Comp. Perna @E 9.99 N
TM0_NUMCAL N 2 0 Num. Calcado 99 N
TM0_TIPFIS C 20 0 Tipo Fisico @! N
TM0_FUMA C 1 0 Fuma @! 1=Sim;2=Nao N
TM0_QTCIG N 3 0 Quant. Cig. @E 999 If(M->TM0_FUMA =='2',.F.,.T.) N
TM0_QTTEMP N 2 0 Quantos Anos 99 If(M->TM0_FUMA =='2',.F.,.T.) N
TM0_RG C 15 0 R.G. @! N
TM0_LOCFIC C 30 0 Local Ficha @! N
TM0_DESCRI M 10 0 Historico N
TM0_CODFUN C 5 0 Funcao @! IF(EMPTY(M->TM0_CODFUN),.T.,EXISTCPO("SRJ",M->TM0_CODFUN)) SRJ MDT005WHEN(2) N
TM0_DESCFU C 20 0 Descricao @! NaoVazio() V S
TM0_CC C 9 0 Centro Custo @! IF(VAZIO(),.T.,CTB105CC()) CTT MDT005WHEN(2) N
TM0_CCDESC C 40 0 Descricao @! NaoVazio() V S
TM0_COROLH C 1 0 Cor Olhos @! PERTENCE("12345") 1=Azuis;2=Verdes;3=Castanhos;4=Pretos;5=Outros N
TM0_CORCAB C 1 0 Cor Cabelos @! PERTENCE("123456789") 1=Louro;2=Castanho Claro;3=Castanho Medio;4=Castanho Escuro;5=Preto;6=Ruivo;7=Grisalho;8=Branco;9=Outros N
TM0_CORPEL C 1 0 Cor Pele @! 1=Branco;2=Preto;3=Pardo;4=Amarelo;5=Indigena N
TM0_NUMCP C 7 0 Num. Cart. @R 999.999 N
TM0_SERCP C 5 0 Serie Cart. 99999 N
TM0_UFCP C 2 0 UF Cart. @! EXISTCPO("SX5","12"+M->TM0_UFCP) 12 N
TM0_CLIENT C 6 0 Cliente @! IF(VAZIO(),.T.,EXISTCPO("SA1",M->TM0_CLIENT) .AND. MA005CliNom() ) SA1 N
TM0_LOJA C 2 0 Loja @! IF(VAZIO(),.T.,EXISTCPO("SA1",M->TM0_CLIENT+M->TM0_LOJA) .AND. MA005LojNom() ) N
TM0_NOMCLI C 20 0 Nome Cliente @! V N
TM0_ESTCIV C 1 0 Estado Civil @! ExistCpo("SX5","33"+M->TM0_ESTCIV) 33 R N
TM0_CPF C 11 0 CPF @R 999.999.999-99 (Empty(M->TM0_CPF) .Or. ChkCPF(M->TM0_CPF)) .AND. FHIST() .AND. MDT005VALC(TM0->TM0_CPF, M->TM0_CPF) R MDT005WHEN(2) S
TM0_BITMAP C 8 0 Foto N
TM0_CODCID C 8 0 CID Defic. @! If(!EMPTY(M->TM0_CODCID),EXISTCPO("TMR",M->TM0_CODCID),.T.) TMR R A155WDEFIC("TM0_CODCID") N
TM0_TIPDEF C 1 0 Tipo Defic. @! Pertence("0123456") R 0=Nao e portador de deficiencia;1=Fisica;2=Auditiva;3=Visual;4=Mental;5=Multipla;6=Reabilitado N
TM0_DOENCA C 150 0 Descricao @! V N
TM0_INDBIO C 1 0 Biometria @! Pertence('12') R 1=Sim;2=Nao EMPTY(M->TM0_CANDID) N
TM0_DEPTO C 9 0 Departamento @! Empty( M->TM0_DEPTO ) .Or. ExistCPO( 'SQB' , M->TM0_DEPTO, 1 ) MDTSQB R MDT005WHEN( 1 ) N
TM0_DESCDP C 30 0 Descricao @! V N
TM0_CTPCD C 1 0 Cota Def. @! VAZIO() .Or. Pertence('12') R 1=Sim;2=Nao N