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 |