MDTA1605 - Incrementa opção no Histórico Corrido do Paciente

Descrição

O ponto de entrada MDTA1605 adiciona uma opção no Histórico Corrido do Paciente.

Exemplos

#INCLUDE "MDTA155.ch"

User Function MDTA1605(cChaveTMT)
 

Local cTempDes

Local cChavep := ""

If ValType("cChave") =="C"

cChavep := cChaveTMT

Endif

dbSelectArea( "TMT" )

dbSetOrder( 1 )

dbSeek( xFilial("TMT") + "cChavep" )

cTempDes := "Olhos: " + M->TMT_OLHOS

cTempDes += CHR(13)+CHR(10) 

Return cTempDes