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):

cCbos - CBO-s do Profissional enviado no arquivo.

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
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 := ""
Local lRet          := .F. 
If cCodCbo == "225120"
       cCodEsp := "001"
       lRet           := .T.
Endif

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

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

*/
Return {cCodCbo,cCodEsp,lRet}