| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Enc. Especialista (MDTA925) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
O ponto de entrada MDTA9251 criado na rotina Enc. Especialista (MDTA925) permite realizar a impressão de valores específicos ao final do relatório de encaminhamento.
| Ponto de Entrada | MDTA9251 |
|---|---|
| Chamada | Na impressão do relatório. |
| Pré-Requisito | Ter um encaminhamento ao médico especialista. |
| Evento | Imprime uma mensagem no final do relatório. |
| Retorno | Pode retornar uma mensagem de aviso ou uma observação sobre o relatório de encaminhamento ao médico especialista no final do relatório, por exemplo, solicitando uma urgência no encaminhamento. |
| Função | MDTA9251() |
|---|---|
| Parâmetros | aParam, Array, Contendo duas posições sendo que a primeira é o objeto de impressão e a segunda a linha em que deve ser iniciada a impressão. |
| Retorno | lin, Valor de linha em que encerrou a impressão específica. |
#include 'protheus.ch'
User Function MDTA9251()
Local aParam := PARAMIXB
Local lin := aParam[ 2 ]
Local oPrint := aParam[ 1 ]
Local oFont14 := TFont():New("Arial",13,13,,.F.,,,,.F.,.F.)
lin += 80
oPrint:Say( lin , 280 , "Observação" , oFont14 )
lin += 80
oPrint:Say( lin , 200 , "Favor proceder com urgência" , oFont14 )
Return lin |