Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

A rotina visa a importação do resultado da negociação das contestações no AJIUS seguindo o padrão Unimed PTU A550.

Cada importação terá no máximo a criação de 4 protocolos, um para cada tipo de guia.

Ao importar um PTU A550, sendo identificada uma diferença nos valores, será criada uma nova guia clonando a original e incluindo a diferença dos valores na nova guia.

O rastreio de uma guia clonada pode ser feita utilizando o campo BD6_GUIORI.


02. PROCESSO UNIMED EXECUTORA

Esta parte é referente a Unimed responsável pelo prestador, atendendo o beneficiário da coirmã.

  1. Após realizar todo o processo de exportação do PTU A500.

  2. No Plano de Saúde (SIGAPLS), acesse Miscelânea / Unimed / Importação / PTU 550 Executora (PLSP550EX). 
  3. Realize a importação do arquivo gerado pelo AJIUS.
  4. Se houveram glosas acatadas, iremos criar até 4 novos protocolos(Um para cada tipo de guia) para a RDA referente a operadora.
  5. Os protocolos serão criados com a fase "Pronta" e devem ter o lote de pagamento gerado para que seja pago a diferença a Unimed credora.
  6. Após isto, o processo poderá ser repetido até encerrar a negociação.(Parcial 1, parcial 2 e fechamento)

03. TELA VISUALIZAR

Na importação do arquivo, todos os registros que não possuírem a critica "99-Não contestado", serão gravados na tabela B2A para consulta posterior.

Esta tabela será vinculada ao lote do PTU A500 e será exibida ao clicar em "Visualizar".


04. PARAMETROS

CONFIGURAÇÃO DE PARÂMETROS

  1. No Configurador (SIGACFG), acesse Ambiente/Cadastros/Parâmetros. Crie o(s) parâmetro(s) a seguir:


Nome:MV_PTUCONE
Tipo:Caractere
Cont.Port:0005
Descrição:Local de digitação da guia clonada pelo processo de contestação sendo unimed executora.

05. 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 A550 Executora

Programa

PLSP550EX

Módulo

Plano de Saúde



06. PONTOS DE ENTRADA

Nome:

PLSR556

Descrição:

Este Ponto de Entrada permite posicionar o registro A550 em casos onde a operadora manipula o nr_Doc_1_A500/nr_Doc_2_A500 exportado no PTU A500.

Localização:

Importação PTU A550 Executora

Programa Fonte:

PLSUA550EX

Função:

P550Proc

Parâmetros:

cNumFat - Carácter - Conteúdo da tag nr_Doc_1_A500

cNumNDC - Carácter - Conteúdo da tag nr_Doc_2_A500

Retorno:

lCritica - Lógico - Caso retorne .T. indica que o registro não foi encontrado e o processo será abortado, caso retorne .F. a rotina irá prosseguir com o BTO posicionado.

Exemplo:

user function PLSR556()
local cNumFat := paramixb[1]
local cNumNDC := paramixb[2]
local cSql := ""
local lCritica := .t.

cSql:= " SELECT BTO.R_E_C_N_O_ Recno FROM " + RetSqlName("NFT") + " NFT "
cSql+= " INNER JOIN " + RetSqlName("BTO") + " BTO "
cSql+= " ON BTO_FILIAL ='"+xFilial("BTO")+"' "
cSql+= " AND BTO_NUMERO = NFT_NUM "
cSql+= " AND BTO.D_E_L_E_T_ = ' ' "
cSql+= " WHERE NFT_FILIAL ='"+xFilial("NFT") + "' "
cSql+= " AND NFT_NUMNF ='"+cNumFat+"' "
cSql+= " AND NFT.D_E_L_E_T_ = ' ' "

dbUseArea(.T.,"TOPCONN",TCGENQRY(,,cSql),"TRBNF",.F.,.T.)

if !TRBNF->(eof())
  lCritica := .f.
  BTO->(dbgoto(TRBNF->Recno))
endif

TRBNF->(dbclosearea())

return lCritica


07. Alterações PTU 2.1


  • O sistema identificará de forma automática qual versão deve validar através do cabeçalho do xml: "/schemas/V2_1", se quando estiver lendo o arquivo, identificar este  valor :"/schemas/V2_1" 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