Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 50

changes.mady.by.user Renan Marinho Espindula

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Renan Marinho Espindula

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Tags x Campos  (Nota fiscal do fornecedor)

Campo ProtheusRegra
BD5_GUIPRInr_GuiaTissPrincipal
BD6_NRAOPE/BD5_SENHAnr_Autorizacao
BD6_MATCOBcd_Unimed+id_Benef
BD6_NFnr_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 ProtheusRegra
BD5_SENHAidReembolso
BD5_DATPROdt_Reembolso
BD5_TIPADMcaraterAtendimento (De-para Tabela 23)

Procedimentos  (Honorários Médicos)

Campo ProtheusRegra

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

DefaultDescriçã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

CaractereUnidades de honorário médicoSim

cAux

CaractereUnidades de auxiliarSim

cAnest

CaractereUnidades de porta anestésicoSim

cCusOpe

CaractereUnidades de custo operacionalSim

cFilm

CaractereUnidades de filmeSim



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 "0405" saberá que deve validar nos schemas da versão atual  2.12.

    IMPORTANTE

  • Para isso será necessário a criação da subpasta  V2_1 2 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 2 os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_12

...


11. MENU

  • 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

SubmenuImportaçã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

    TipoCaracter

    Tamanho

    12

    Contexto

    Real

    Propriedade

    Visualizar

    TítuloSeq.Import.
    DescriçãoSequencia 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_UNICOB6L_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
    titleCampos BX6 - Tabela BX6 - Inf. Adic. Event. Proc. Contas

    Tabela BX6 - Inf. Adic. Event. Proc. Contas    
    SX3 - Informações dos Campos
    CampoDescrição
    CampoBX6_REAPRE
    TipoCaractere
    Tamanho1
    Decimal0
    Formato@!
    TítuloItem reapres
    DescriçãoItem de reapresentação?
    UsadoSim
    ObrigatórioNão
    BrowseSim
    Ordem27
    Opções0=Não;1=Sim
    ContextoReal
    PropriedadeVisualizar

    CampoDescrição
    CampoBX6_DOC1GL
    TipoCaractere
    Tamanho20
    Decimal0
    Formato@!
    TítuloDoc. Glosa 1
    DescriçãoNúm. Doc. 1 glosado AJIUS
    UsadoSim
    ObrigatórioNão
    BrowseSim
    ContextoReal
    PropriedadeVisualizar
    Ordem28

    CampoDescrição
    CampoBX6_DOC2GL
    TipoCaractere
    Tamanho20
    Decimal0
    Formato@!
    TítuloBX6_DOC2GL
    DescriçãoNúm. Doc. 2 glosado AJIUS
    UsadoSim
    ObrigatórioNão
    BrowseSim
    ContextoReal
    PropriedadeVisualizar
    Ordem29

...