Histórico da Página

...

Tags x Campos (Nota fiscal do fornecedor)

Campo Protheus	Regra
BD5_GUIPRI	nr_GuiaTissPrincipal
BD6_NRAOPE/BD5_SENHA	nr_Autorizacao
BD6_MATCOB	cd_Unimed+id_Benef
BD6_NF	nr_NotaFiscalFornecedor
BD5_GUIJUR	id_Liminar

Procedimentos (Infor_OPME)

...

Campos herdados da solicitação de autorização/internação.

Guia	Solicitação
BD5_CDPFSO	BEA_CDPFSO / BE4_CDPFSO
BD5_DATSOL	BEA_DATSOL / BE4_DTDIGI
BD5_ESTSOL	BEA_ESTSOL / BE4_ESTSOL
BD5_INDACI	BEA_INDACI / BE4_INDACI
BD5_NOMSOL	BEA_NOMSOL / BE4_NOMSOL
BD5_NRAOPE	BEA_NRAOPE / BE4_NRAOPE
BD5_NUMIMP	BEA_NUMIMP / BE4_NUMIMP
BD5_OPESOL	BEA_OPESOL / BE4_OPESOL
BD5_REGSOL	BEA_REGSOL / BE4_REGSOL
BD5_SIGLA	BEA_SIGLA / BE4_SIGLA
BD5_TIPADM	BEA_TIPADM / BE4_TIPADM
BD5_TIPATE	BEA_TIPATE / '07' - (internação)
BD5_TIPCON	BEA_TIPCON / BE4_TIPCON
BD5_TIPPAC	BEA_TIPPAC / GetNewPar("MV_PLSTPAA","9")
BD6_NOMEDI	BEA_NOMEDI / BE4_NOMED
BD6_RDAEDI	BEA_RDAEDI / BE4_RDAEDI
BD7_ESTPRE	BEA_ESTEXE / BE4_ESTEXE
BD7_NOMPRE	BEA_NOMEXE / BE4_NOMEXE
BD7_REGPRE	BEA_REGEXE / BE4_REGEXE
BD7_SIGLA	BEA_SIGEXE / BE4_SIGLA

07. Reembolso

Conforme instituído pela unimed do Brasil , o processo consiste em guias de fatura de uma Unimed Prestadora (onde o usuário foi atendido) para a Unimed Origem (detentora do contrato) ao qual foram pagas despesas pelo beneficiário referente a assistência à saúde (honorários médicos), ou seja, o arquivo PTU A500 Cobrança de Reembolso terá os valores repassados pela Unimed Prestadora para o pagamento futuro da Unimed Origem, desde que reembolso realizado para o beneficiário tenha sido feito pela Prestadora de Serviço.

Tags x Campos (Reembolso)

Campo Protheus	Regra
BD5_SENHA	idReembolso
BD5_DATPRO	dt_Reembolso
BD5_TIPADM	caraterAtendimento (De-para Tabela 23)

Procedimentos (Honorários Médicos)

Campo Protheus	Regra
BX6_SEQPTU	seq_item
BX6_IDUNIC	id_itemUnico
BD6_CODPAD	tp_Tabela
BD6_CODPRO	cd_Servico
BD6_DES500	ds_Servico
BD6_DATPRO	dt_Execucao
BD6_VALORI	vl_a_restituir
BD6_QTDPRO	qt_Cobrada
BD6_VLRAPR	vl_a_restituir/ qt_Cobrada

07. PARAMETROS

CONFIGURAÇÃO DE PARÂMETROS

...

Ponto de Entrada

PLS500UNM

Descrição

O Ponto de Entrada (P.E.) PLS500UNM está localizado nos fontes PLSP500X e PLSUA500X, ele é acionado uma única vez quando a tela inicial da rotina é aberta.

Ele permite a manipulação das variáveis que indicam o tipo de unidade (BD7_CODUNM) a serem exportados e importados de acordo com a regra do PTU A500.(vl_ServCobrado, vl_CO_Cobrado ,vl_FilmeCobrado)

Fonte

PLSP500X,PLSUA500X

Parâmetros

O P.E. recebe os seguintes parâmetros:

Parâmetro	Tipo	Default	Descrição
cServ	Caractere	PPM,HM,HMR,VMT,VMD,REA,VTX,VDI	Unidades de honorário médico
cAux	Caractere	AUX,AUR	Unidades de auxiliar
cAnest	Caractere	PAP,PA,PAR	Unidades de porta anestésico
cCusOpe	Caractere	COR,COP,UCO	Unidades de custo operacional
cFilm	Caractere	FIL	Unidades de filme

Retorno

O P.E. deve retornar uma string, contendo os códigos de unidade.

Parâmetro	Variável	Descrição	Obrigatório
cServ	Caractere	Unidades de honorário médico	Sim
cAux	Caractere	Unidades de auxiliar	Sim
cAnest	Caractere	Unidades de porta anestésico	Sim
cCusOpe	Caractere	Unidades de custo operacional	Sim
cFilm	Caractere	Unidades de filme	Sim

Exemplo

#INCLUDE "PROTHEUS.CH"

USER FUNCTION PLS500UNM()
local aParam := paramixb
local cServ := aParam[1]
local cAux := aParam[2]
local cAnest := aParam[3]
local cCusOpe := aParam[4]
local cFilm := aParam[5]

cAnest += "XPA"

Return {cServ,cAux,cAnest,cCusOpe,cFilm}

Nome:

DEPARAIMP

Descrição:

Este Ponto de Entrada permite a manipulação do código de tabela e procedimento a serem importados.

Exemplo:

user function DEPARAIMP()

cCodPad := paramixb[1]
cCodPro := paramixb[2]
cDatPro := paramixb[3]

cCodRda := paramixb[4]

return {.t.,"22","10101012"}

Função:

dePara

Localização:

Importação PTU A500

Parâmetros:

conteúdo das tags: tp_Tabela, cd_Servico, dt_Execucao e BCI_CODRDA

Programa Fonte:

PLSP500X

Retorno:

aRet

aRet[1] - lAchou - Variável lógica, se retornar .T. irá considerar o retorno do PE e não fará o de-para padrão na BTU, se retornar .F. irá realizar o de-para padrão do sistema.

aRet[2]- cCodPad - Código da tabela padrão tiss (00,18,19,20,22 e etc)

aRet[3] - cCodPro - Código de procedimento.

...

Árvore de páginas

Versões comparadas

Versão antiga 50

Nova versão 51

Chave