Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Diagnóstico Médico (MDTA155)
País:Brasil
Ticket:Não há
Issue:Não há.

02. DESCRIÇÃO

Ponto de Entrada MDTA1605 criado para que seja possível adicionar uma opção no Histórico Corrido do Paciente na rotina Diagnóstico Médico (MDTA155).


Ponto de EntradaMDTA1605()

Chamada

Não há.
Pré-RequisitoTabela TMT preenchida corretamente.
EventoPesquisa na tabela TMT que retorna o valor encontrado no campo TMT_OLHOS.
RetornoRetorna o valor encontrado no campo TMT_OLHOS da tabela TMT.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA1605()
Parâmetros

Local cTempDes, String, realiza uma busca na TMT e preenche o campo TMT_OLHOS.

Local cChavep, String, armazena a chave de busca que será utilizada para localizar uma informação específica na tabela TMT.

RetornocTempDes, String, retorna o valor encontrado no campo TMT_OLHOS da tabela TMT.




Exemplo
#include "protheus.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


04. ASSUNTOS RELACIONADOS