Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 39

changes.mady.by.user Renan Martins de Almeida

Gravado em

comparado com

Nova versão 40

changes.mady.by.user Thiago Rodrigues da Silva

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • Se a participação do evento ficar como 0 ou O - Não se aplica, a tag equipe_Profissional não será exportada para o evento em questão;
  • Se a guia for diferente de Honorários, será verificado na tabela BD7 os campos o campo tipo de participação e executante do evento. Se ambos estiverem vaziosestiver vazio, a tag equipe_Profissional não será exportada.

...

Nome:

PTUDEPARA

Descrição:

Este Ponto de Entrada permite a manipulação do código de tabela e procedimento a serem exportados.

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X/PLSUA550X

Função:

dePara

Parâmetros:

 BD6_CODPAD,BD6_CODPRO,BD6_DATPRO,BD6_CODRDA

Retorno:

aRet

aRet[1] - lAchou - Variável lógica, se retornar .T. irá considerar o retorno do PE e não fará o de-para padrão na BTU, se retornar .F. irá realizar o de-para padrão do sistema.

aRet[2]- cCodPad - Código da tabela padrão tiss (00,18,19,20,22 e etc)

aRet[3] - cCodPro - Código de procedimento.

Exemplo:

user function PTUDEPARA()


cCodPad := paramixb[1]
cCodPro := paramixb[2]
cDatPro := paramixb[3]


return {.t.,"22","10101012"}

Nome:

PLU5CNES

Descrição:

O Ponto de Entrada permite manipular o CNES, que será exportado nas tags quando "honorário" e "contratadoexecutante"

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X

Função:

 Honorário() e contratadoexecutante()

Parâmetros:

cCnes (CNES localizado pelo sistema), cCodRDA (código RDA do cabeçalho da guia), cAlias (alias da query que manipula os dados da exportação)

Retorno:

cCNESPE (Caractere)

Deve retornar obrigatoriamente um valor do tipo caractere, que deve conter o valor do CNES desejado.

Exemplo:

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 CNES da função contratadoExecutante ou Honorario
local cCnesPE     := iif( lOrigCham, "ABC963147", "HON760" ) //se função contratadoExecutante, retorna "ABC963147", se não - honorários - HON760"

RETURN cCnesPE     

07. LOG DE ERROS

Foi implementado na rotina um sistema de validação do XML gerado com o schema disponibilizado pela Unimed do Brasil, sendo assim garantimos que o XML gerado está dentro do mínimo esperado pelo padrão.

...