Linha Microsiga Protheus

Page tree

Ponto de Entrada PLSXMLVLR

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Saúde

Módulo:

Plano de Saúde

Rotina:

Rotina

Nome Técnico

PLSA974

Gerenciador de Arquivos XML TISS

 

PLSXMLVLR

País(es):Brasil
Banco(s) de Dados:Todos
Tabelas Utilizadas:Todos
Sistema(s) Operacional(is):Todos

Descrição

Criado ponto de entrada na importação de arquivos XML TISS, para que seja possível manipular o valor unitário e total das despesas e procedimentos enviados no arquivo.

 

Ponto de Entrada

Localização:

Atualizações/Proc. Contas/Gerenciador XML TISS

Eventos:

Ações relacionadas->Importar
Ações relacionadas->Submeter 

Programa Fonte:

PLSA973.PRW

Função:

PLSLGSP3

Parâmetros:
NomeTipoDescrição
dDatReaDataData de execução do Procedimento
cHorIniCaracterHora inicial da execução do Procedimento
cHorFinCaracterHora final da execução do Procedimento
cSlvPadCaracterCodigo da Tabela do Procedimento
cSlvProCaracterCodigo do Procedimento
cCodDesCaracterCodigo da Despesa
cUnidMedCaracterUnidade de medida da Despesa
nQtdNuméricoQuantidade apresentada
cViaAcesCaracterVia de acesso do procedimento
cTecUtiCaracterTécnica Utilizada
nVlrAprNuméricoValor apresentado do procedimento
nVlrTotNuméricoValor total do Procedimento
nRedAcrCaracterFator de redução/acréscimo
cTpProcCaracter

Tipo de processamento em execução:

1 - Submissão
2 - Importação 

aDadosArrayDados do XML.

Retorno:

Nome

Tipo

Descrição

Obrigatório

 aRet

Array

Array com as informações de valor do procedimento

Sim

 

Exemplo
#include 'protheus.ch'
#include 'parmtype.ch'
user function PLSXMLVLR()
local dDatRea    := ParamIXB[01]
local cHorIni    := ParamIXB[02]
local cHorFin    := ParamIXB[03]
local cSlvPad    := ParamIXB[04]
local cSlvPro    := ParamIXB[05]
local cCodDes    := ParamIXB[06]
local cUnidMed   := ParamIXB[07]
local nQtd       := ParamIXB[08]
local cViaAces   := ParamIXB[09]
local cTecUti    := ParamIXB[10]
local nVlrApr    := ParamIXB[11]
local nVlrTotPrc := ParamIXB[12]
local cRedAcr    := ParamIXB[13]
local aDados     := ParamIXB[14]
local cTpProc	 := ParamIXB[15]
local aRet		 := {nVlrApr,nVlrTotPrc}

MsgInfo(;
		 		"<dataExecucao>" + AllTrim(DtoC(dDatRea)) 	+ "</dataExecucao>" + CRLF +;
		 		 "<horaInicial>" + AllTrim(cHorIni) 		+ "</horaInicial>" + CRLF +;
		 		   "<horaFinal>" + AllTrim(cHorFin) 		+ "</horaFinal>" + CRLF +;
		 		"<codigoTabela>" + AllTrim(cSlvPad) 		+ "</codigoTabela>" + CRLF +;
		  "<codigoProcedimento>" + AllTrim(cSlvPro) 		+ "</codigoProcedimento>" + CRLF +;
		 	   "<codigoDespesa>" + AllTrim(cCodDes) 		+ "</codigoDespesa>" + CRLF +;
		 	   "<unidadeMedida>" + AllTrim(cUnidMed) 		+ "</unidadeMedida>" + CRLF +;
		 "<quantidadeExecutada>" + AllTrim(STR(nQtd)) 		+ "</quantidadeExecutada>" + CRLF +;
		 		   "<viaAcesso>" + AllTrim(cViaAces) 		+ "</viaAcesso>" + CRLF +;
		 	"<tecnicaUtilizada>" + AllTrim(cTecUti) 		+ "</tecnicaUtilizada>" + CRLF +;
		 	"<reducaoAcrescimo>" + AllTrim(cRedAcr) 		+ "</reducaoAcrescimo>" + CRLF +;
		 	   "<valorUnitario>" + AllTrim(STR(nVlrApr)) 	+ "</valorUnitario>" + CRLF +;
		 		  "<valorTotal>" + AllTrim(STR(nVlrTotPrc)) + "</valorTotal>" + CRLF;
		)

return aRet