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 |