Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Saúde Planos

Linha de Produto:

Linha Protheus

Segmento:

Saúde

Módulo:SIGAPLS - Plano de Saúde
Função:PLSUA500X
País:Brasil
Ticket:12383311 
Requisito/Story/Issue (informe o requisito relacionado) :DSAUPC-16379


02. SITUAÇÃO/REQUISITO

Solicitado a criação de um Ponto de Entrada (P.E.), para manipular o CNES na exportação do PTU A500 XML, devido à necessidades específicas das Operadoras.


03. SOLUÇÃO

Realizado a criação do P.E. PLU5CNES no fonte PLSUA500X, para a manipulação do CNES.  No caso, o P.E. foi adicionado nos pontos onde existe a exportação do CNES pelo sistema, nas funções/métodos Honorário() (quando guia de honorário) ou contratadoexecutante(), que podem ser exportadas ou não, de acordo com o arquivo selecionado.

Dessa forma, a Operadora pode manipular o CNES para a sua escolha, conforme suas necessidades operacionais.


04. DEMAIS INFORMAÇÕES

Definições sobre o Ponto de Entrada PLU5CNES:

Informações de entrada do P.E.
NomeTipoDescrição
cCnesCaractereO CNES encontrado e que será utilizado pelo sistema, para sair na tag CNES.
cCodRDACaractereO código da RDA no cabeçalho da guia.

cAlias

CaractereAlias temporário da rotina, que contêm outras informações utilizadas para o processamento do A500.
Informações de saída do P.E.
NomeTipoDescrição
cCnesPECaractere

O retorno do P.E. deve ser obrigatoriamente um caractere, que deve constar o número do CNES retornado pelo ponto de entrada. 


OBS 1: Se o retorno do P.E. for diferente de caractere, o sistema irá usar o valor padrão do sistema, que foi passado nas informações de entrada do P.E.
Exemplo de uso do P.E. PLU5CNES 
USER FUNCTION PLU5CNES()
local cCNESPLS 	:= paramixb[1]  //CNES encontrado pelo SIGAPLS
local cCodRDA	:= paramixb[2]  //Código da RDA 
local aAliSis	:= paramixb[3]  //Alias da query de dados
local lOrigCham	:= iif( IsInCallStack("contratadoExecutante"), .t., .f. )  //verifico se a informação está vindo da função/método contratadoExecutante ou Honorario
local cCnesPE	:= iif( lOrigCham, "ABC963147", "HON760" )  //se estiver na função contratadoExecutante, retorno "ABC963147", se não - em honorários - retorno "HON760"

MsgAlert("ENTREI no P.E. PLU5CNES" + CRLF + ;
			"CNES PLS:  " 		+ cvaltochar(cCNESPLS)  + CRLF +;
			"Código RDA: "   	+ cvaltochar(cCodRDA)   + CRLF +;
			"Alias Rotina:  "  	+ cvaltochar(aAliSis)   + CRLF +;
			"Função Chamada: "	+ upper( iif(lOrigCham, "contratadoExecutante", "honorário" ) ) + CRLF +;
			"CNES alterado: "   + cCnesPE, "Atenção")

RETURN cCnesPE


Para maiores informações, consulte a documentação de referência no link: PTU A500 - PLSUA500X


05. ASSUNTOS RELACIONADOS

Não aplicável.