Ponto de entrada PLTISESP

Descrição

Realizada implementação do Ponto de Entrada PLTISESP em submissão/importação de arquivos XML TISS superiores ou iguais à versão 3.

Ponto de Entrada

Implementação

Na submissão, o ponto de entrada serve tanto para manipular o tratamento padrão das criticas referente ao CBOS dos Profissionais (maiores informações nesse artigo ), quanto na criação de novas críticas. Para isso o usuário deve configurar um novo registro na rotina Motivos Críticas (Atualizações\Cadastro Contas\Motivos de Críticas (PLSA505)) inserindo um item filho na tabela BVN () com as seguintes informações:

BCT - Cabeçalho 

Exemplo:

#Include 'Protheus.ch'

User Function PLSTISESP()
Local cCodCbo := paramixb[3]
Local cCodEsp := ""
Local lRet          := .F. 

If cCodCbo == "225125" .And. paramixb[1] == "1"
       cCodEsp := "001"
       lRet           := .T.
Endif

/*O retorno deve ser um Array com três posições

      [1] - Codigo da Especialidade
      [2] - Codigo do CBOS
      [3] - Retorno da Validação

Critica criado como auxilio na implementação desse ponto de entrada: 

BVN_TISVER - Versão TISS
Versão do arquivo que a crítica deve ser submetida

BVN_CAMTAG - Caminho Tag
Caminho da TAG da critica a ser avaliada. O caminho é importante apenas quando é necessário diferenciar TAGS exclusivas de determinado tipo de arquivo. Ex.:
SADT: \GUIASP-SADT\PROCEDIMENTOSEXECUTADOS\PROCEDIMENTOEXECUTADO\EQUIPESADT
GRI: \GUIARESUMOINTERNACAO\PROCEDIMENTOSEXECUTADOS\PROCEDIMENTOEXECUTADO\IDENTEQUIPE

BVN_TAG - Tag XML
Tag a ser validada

BVN_TPVLD - Tipo Validação
Existem 4 tipos de validação: 
1=Busca Registro;2=Valida Terminologia;3=Expressão;4=Existencia da TAG 
Essa implementação entra somente no mérito do tipo 3 pois a validação será realizada através de uma expressão 

BVN_DADEXP - Dado/Express
Aqui pode ser cadastrada tanto uma expressão criada pelo usuário (User Function) quanto a função PlTrCBOSUB que é utilizada no padrão de tratamento do CBOS.
A função cadastrada nesse campo será executada no momento que a TAG estiver em validação. Para utilizar a função padrão basta informar o parâmetro cCodGlo que se refere ao código da glosa customizada que está sendo validada e os demais parâmetros utilizados na função conforme exemplo abaixo:

PlTrCBOSUB('791',_CCBOEXE,_CCBOSOL,_CCODESP,_CESPEXE,_CESPSOL,ADADUSR,ADADRDA,CCODPAD,CCODPRO) 

BVN_TAGMSG - Tag Mensagem (Opcional)
Valor da TAG a ser informado no LOG caso o arquivo não seja acatado. O padrão é que o sistema exiba o valor da TAG informada no campo BVN_TAG. No exemplo abaixo me interessa saber o valor da TAG CODIGOPROCEDIMENTO no momento da validação.

BVN_MSGAUX - Msg. Aux. (Opcional)
Mensagem auxiliar a ser informada no LOG caso o arquivo não seja acatado. 
IMPORTANTE: Informar somente expressões nesse campo, caso seja uma mensagem de texto, utilizar aspas para iniciar e terminar o texto conforme exemplo abaixo