Implementado PE PLTISESP em Arquivos XML TISS v3++

Linha de Produto:

Microsiga Protheus

Segmento:

Saúde

Módulo:

Plano de Saúde

Rotina:

Rotina

Nome Técnico

Gerenciador de Arquivos XML

PLSA974

 

Parâmetro(s):

NomeTipoDescrição
cTpTranCaracterTipo de ação em execução ("1" - Submissão, "2" - importação)
cTipProCaracterTipo de profissional em validação ("S" - Solicitante, "E" - Executante)
cNomProfCaracterNome do profissional de Saúde
cCboXCaracterCBO enviado no arquivo
cEspXCaracterEspecialidade retornada após realizar o De/Para
cCodGloCaracterCodigo da glosa em validação (Caso a variável cTpTran for igual a "2", o conteúdo dessa será sempre em branco)

Ponto de Entrada:

PLTISESP

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Versões/Release:

11.80

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

Descrição:

Utilizado na rotina de submissão de arquivos XML para que seja possível realizar o De/Para para associar mais de um CBO-s para uma especialidade.

Localização:

Atualizações\Proc de Contas\Gerenciador XML TISS

Eventos:

Submissão e Importação de Arquivos XML TISS

Programa Fonte:

RotinaNome Técnico
Funções Genéricas de Gravação de ArquivosPLSXMOV
Processamento do XMLPLSA973L
Gravação do XMLPLSA973

Função:

Programa FonteFunção
PLSA973PlTrCBOIMP
PLSA973LPlTrCBOSUB

Retorno:

Nome

Tipo

Descrição

Obrigatório

cCodEsp

CaracterNovo código de Especialidade que sera utilizado após as validações do Ponto de EntradaSim

cCodCbo

Caracter

Novo código do CBO que sera utilizado após as validações do Ponto de Entrada

Sim

lRet

Lógico

Retorno de validação da crítica de Submissão do XML.

Somente se o conteúdo da variável cTpTran for igual a "1"

 

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

*/
Return {cCodEsp,cCodCbo,lRet}