Tabela
TMJ Agenda de Consultas Medicas
Campo Tipo Tamanho Decimal Titulo Formato Validacao F3 Contexto Lista Condicao PYME
TMJ_FILIAL C 2 0 Filial N
TMJ_CODUSU C 12 0 Atendente @! EXISTCPO('TMK',M->TMJ_CODUSU) .And. MDT161AGE() TMKAGE cPrograma == 'MDTA410' .Or. cPrograma == 'MDTA161' N
TMJ_NOMUSU C 20 0 Nome @! V N
TMJ_DTCONS D 8 0 Data Cons. N
TMJ_HRCONS C 5 0 Hora Cons. 99:99 NGVALHORA(M->TMJ_HRCONS,,.T.) .And. VALHORA(M->TMJ_HRCONS) .And. MDT076CONS( M->TMJ_HRCONS ) N
TMJ_NUMFIC C 9 0 Ficha Medica 999999999 If(!Empty(M->TMJ_NUMFIC),SitFunFicha(M->TMJ_NUMFIC,.t.,.t.,.t.),.T.) TM0 N
TMJ_NOMFIC C 20 0 Nome @! V N
TMJ_MAT C 6 0 Matricula 999999 SRA N
TMJ_EXAME C 6 0 Exame @! If(!Empty(M->TMJ_EXAME),EXISTCPO("TM4",M->TMJ_EXAME) .AND. MD075VAL(),.T.) TM4 N
TMJ_NOMEXA C 20 0 Nome Exame @! V N
TMJ_MOTIVO C 2 0 Motivo @! If(!Empty(M->TMJ_MOTIVO),EXISTCPO("TMS",M->TMJ_MOTIVO),.T.) TMS N
TMJ_NOMOTI C 20 0 Descricao @! V N
TMJ_CONVOC C 4 0 Convocacao 9999 N
TMJ_DTPROG D 8 0 Data Progr. N
TMJ_DTATEN D 8 0 Data Atend. N
TMJ_OBSCON C 50 0 Observacao @! N
TMJ_PCMSO C 6 0 PCMSO 999999 N
TMJ_FILFUN C 2 0 Filial Func. R N
TMJ_USERGI C 17 0 Log de Inclu R N
TMJ_ATEENF C 1 0 Atend.Enfe.? @! R 1=Sim;2=Nao If(IsInCallStack('MDTA161'),.F.,.T.) S
TMJ_CODENF C 12 0 Atend.Ambul. @! If(VAZIO(),.T.,EXISTCPO('TMK',M->TMJ_CODENF)) TMK R If(IsInCallStack('MDTA161'),.F.,.T.) S
TMJ_DESENF C 12 0 Nome Atend. @! V S
TMJ_DTENFE D 8 0 Data Enferm. R If(IsInCallStack('MDTA161'),.F.,.T.) S
TMJ_HRENFE C 5 0 Hora Enferm. 99:99 NgValHora(M->TMJ_HRENFE, .T.) R If(IsInCallStack('MDTA161'),.F.,.T.) S
TMJ_INDENF C 1 0 Tipo R #RetBoxTL5() If(IsInCallStack('MDTA161'),.F.,.T.) S
TMJ_QTDHRS C 5 0 Quant. Horas 99:99 NGVALHORA(M->TMJ_QTDHRS,,.T.) .And. MDT160VHR(M->TMJ_QTDHRS) R S
TMJ_HRCHGD C 5 0 Hora Chegada 99:99 NGVALHORA(M->TMJ_HRCHGD,,.T.) .And. MDT076CHG( M->TMJ_HRCHGD ) R S
TMJ_HRSAID C 5 0 Hora Saida 99:99 NGVALHORA(M->TMJ_HRSAID,,.F.) R S