Histórico da Página

...

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

...

08. PARAMETROS

CONFIGURAÇÃO DE PARÂMETROS

...

Nome:	MV_081CRI
Tipo:	Lógico
Cont.Port:	.F. (Default) / .T.
Descrição:	Ignora o valor do campo BR8_RISCO, e se caso ativo realiza a validação das liberações (senha de autorização) de todos procedimentos.

...

09. PONTOS DE ENTRADA

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.

...

10. ALTERAÇÕES DA VERSÃO 2.1

O sistema identificará de forma automática qual versão deve validar através da tag nrVerTra_PTU, se quando estiver lendo o arquivo, identificar que o valor da tag esta como "04" saberá que deve validar nos schemas da versão atual 2.1.
IMPORTANTE
Para isso será necessário a criação da subpasta V2_1 dentro da pasta de Schemas já existente: Protheus_data\plsptu\schemas ,para armazenar os novos Schemas.
Portanto para funcionamento correto da versão 2.1 os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_1

...

No Configurador (SIGACFG), acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opção de menu do SIGAPLS, conforme instruções a seguir:

Menu	Miscelânea
Submenu	Unimed
Submenu	Importação
Nome da Rotina	PTU A500
Programa	PLSP500X
Módulo	Plano de Saúde

...

12. ALTERAÇÕES DICIONÁRIO

No Configurador (SIGACFG), acesse Banco de Dados/Dicionário/Bases de Dados, expanda o menu a esquerda, clique em Dicionário de Dados, clique na Lupa(Pesquisar) e procure por BCI clique em Editar, expanda o menu a esquerda, clique em Campos, clique em Incluir, preencha os dados conforme tabela abaixo
Campo
Valor
Campo
BCI_LOTEDI
Tipo Caracter
Tamanho
12
Contexto
Real
Propriedade
Visualizar
Título Seq.Import.
Descrição Sequencia da Importacao
É necessário alterar o X2_UNICO da tabela B6L - PTU Online x Pacote, para adicionar os campos B6L_CODPEG + B6L_NUMERO na chave, devendo ficar:
Tabela B6L - X2_UNICO
X2_UNICO B6L_FILIAL+B6L_OPEMOV+B6L_ANOAUT+B6L_MESAUT+B6L_NUMAUT+B6L_SEQUEN+B6L_ALIAS+B6L_NRTROL +B6L_CODPEG + B6L_NUMERO
Nota
É necessário realizar a alteração do X2_UNICO da tabela BRJ, incluindo o seguinte valor: BRJ_FILIAL+BRJ_CODIGO+BRJ_REGPRI

Criação dos campos novos na BX6, referente a reapresentação de itens glosados.

Expandir

title	Campos BX6 - Tabela BX6 - Inf. Adic. Event. Proc. Contas

SX3 - Informações dos Campos

Tabela BX6 - Inf. Adic. Event. Proc. Contas
Campo	Descrição
Campo	BX6_REAPRE
Tipo	Caractere
Tamanho	1
Decimal	0
Formato	@!
Título	Item reapres
Descrição	Item de reapresentação?
Usado	Sim
Obrigatório	Não
Browse	Sim
Ordem	27
Opções	0=Não;1=Sim
Contexto	Real
Propriedade	Visualizar

Campo	Descrição
Campo	BX6_DOC1GL
Tipo	Caractere
Tamanho	20
Decimal	0
Formato	@!
Título	Doc. Glosa 1
Descrição	Núm. Doc. 1 glosado AJIUS
Usado	Sim
Obrigatório	Não
Browse	Sim
Contexto	Real
Propriedade	Visualizar
Ordem	28

Campo	Descrição
Campo	BX6_DOC2GL
Tipo	Caractere
Tamanho	20
Decimal	0
Formato	@!
Título	BX6_DOC2GL
Descrição	Núm. Doc. 2 glosado AJIUS
Usado	Sim
Obrigatório	Não
Browse	Sim
Contexto	Real
Propriedade	Visualizar
Ordem	29

...

Árvore de páginas

Versões comparadas

Versão antiga 51

Nova versão 52

Chave