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 (Validacao das Criticas TISS) com as seguintes informações:

BCT - Cabeçalho 
Critica criado como auxilio na implementação desse ponto de entrada: 

Image Added 

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

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 
Image Added 

BVN_TAG - Tag XML
Tag a ser validada
Image Added 

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 

Image Added 

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:

Image Added

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.

Image Added 

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 

Image Added 

A partir da parametrização acima podemos desenvolver o ponto de entrada, lembrando que caso as criticas padrão sejam alteradas, a lógica no bloco da importação deve seguir o mesmo princípio da submissão, haja visto que validando uma informação e gravando outra pode ocasionar inconsistência na base de dados. Segue exemplo de desenvolvimento do ponto de entrada que contempla tanto o tratamento para a critica customizada na submissão, quanto a alteração da validação das criticas do padrão e gravação da importação:

#include 'Protheus.ch'

user function PLTISESP()
	local cTpTran 	:= 

ParamIXB[

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

Return {cCodEsp,cCodCbo,lRet}