Implementado PE PLTISESP em Arquivos XML TISS v3++

Linha de Produto:

 

Segmento:

 

Módulo:

 

Rotina:

Rotina

Nome Técnico

Gerenciador de Arquivos XML

PLSA974

 

Parâmetro(s):

 

Ponto de Entrada:

 

Chamados Relacionados

 

País(es):

 

Banco(s) de Dados:

 

Sistema(s) Operacional(is):

 

Versões/Release:

 

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:

 

Eventos:

 

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
PLSA973PLSLGSP
PLSA973PLSLGSP3
PLSA973LPVldXML
PLSXMOVPLSICAB
PLSXMOVPLSIITE

Retorno:

Nome

Tipo

Descrição

Obrigatório

cCodCbo

Caracter

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

Sim

cCodEsp

Caracter

Novo código de Especialidade 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.

Sim

 

Exemplo:

#Include 'Protheus.ch'
User Function PLSTISESP()
Local cCodCbo := paramixb[1]
Local cCodEsp := ""
If cCodCbo == "225120"
       cCodEsp := "001"
Endif

/*O retorno deve ser um Array com duas posições

      [1] - Codigo do CBOS
      [2] - Codigo da Especialidade
*/
Return {cCodCbo,cCodEsp,lRet}