Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: PLSTMLLIB - Importação XML TISS

Abrangências:Microsiga Protheus 10 , Microsiga Protheus 11
Versões:Microsiga Protheus 10 , Microsiga Protheus 11
Compatível Países:Brasil
Sistemas Operacionais:Linux
Compatível às Bases de Dados:Todas TotvsDbAccess
Idiomas:Português (Brasil)


Descrição:

É utilizado no processo de importação do arquivo XML, para tratar o campo do arquivo NUMEROGUIAPRESTADOR.

Programa Fonte

PLSA973.PRW

Sintaxe

PLSTMLLIB - Importação XML TISS ( [ cNumAut ], [ cOpeMov ], [ cCodRP ], [ cNumSen ], [ cNumSolInt ], [ cTipo ], [ cMatric ], [ cGuiPri ], [ lHonor ], [ lEvolu ] ) --> cNumAut

Parâmetros:


Nome

Tipo

Descrição

Default

Obrigatório

Referência

cNumAut

Caracter

Número Guia Prestador ou Número Guia Operadora










cOpeMov

Array of Record

Operadora de Movimento










cCodRP

Array of Record

Código da RDA










cNumSen

Array of Record

Conteúdo do arquivo "SENHAAUTORIZACAO"










cNumSolInt

Array of Record

Número da solicitação da internação










cTipo

Array of Record

Tipo de guia










cMatric

Array of Record

Matrícula do usuário










cGuiPri

Array of Record

Número da guia principal










lHonor

Array of Record

Se é um honorário










lEvolu

Array of Record

Se é uma prorrogação de internação









Retorno

cNumAut

    (caracter)
  • Número Guia Prestador ou Número Guia Operadora

Observações

Este ponto de entrada tem mais duas chamadas, uma na importação de cancelamento de guia, recebendo os três primeiros parâmetros documentados e a terceira chamada ocorre na solicitação do status da autorização, recebendo os dois primeiros parâmetros.

Exemplos

#Include "Protheus.ch"User Function PLSTMLLIB()Local cNumAut    := paramixb[1]  // "Numero Guia Prestador" ou "Numero Guia Operadora"Local cOpeMov    := paramixb[2]  // Operadora de MovimentoLocal cCodRP     := paramixb[3]  // Codigo da RdaLocal cNumSen    := paramixb[4]  // Conteúdo do arquivo "SENHAAUTORIZACAO"Local cNumSolInt := paramixb[5]  // Numero da Solicitação de InternacaoLocal cTipo      := paramixb[6]  // Tipo de guiaLocal cMatric    := paramixb[7]  // Matricula do usuarioLocal cGuiPri    := paramixb[8]  // Numero da Guia PrincipalLocal lHonor     := paramixb[9]  // Se e um honorarioLocal lEvolu     := paramixb[10] // Se e uma prorrogacao de internacaoIf lHonor .Or. lEvolu	BE4->( DbSetOrder(2) )	If !BE4->( MsSeek( xFilial("BE4")+cNumAut ) )		MsgInfo("Guia de solicitacao nao encontrada!")	Else		MsgInfo("Guia de solicitacao encontrada!")	EndIfEndIfReturn cNumAut