Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • PLSXMLLIB - Importação XML TISS
  • Criado por Usuário desconhecido (cristiane.melo), última alteração por admin em 24 jun, 2012

Ponto-de-Entrada: PLSXMLLIB - 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

PLSXMLLIB - 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 PLSXMLLIB()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
Variáveis
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não