Linha Microsiga Protheus

Árvore de páginas

01. VISÃO GERAL

A rotina visa a exportação das glosas realizadas nas guias de uma importação A500. 


02. EXPORTAÇÃO

A tela vai exibir registros da BRJ (Importação A500), permitindo selecionar um ou mais itens para realizar a exportação e a pasta onde sera salvo os arquivos.

O sistema gera um arquivo XML para cada item selecionado, e caso ocorra algum erro durante o processo, grava um arquivo de LOG na mesma pasta.


03. PROTHEUS x TAGs

Cabeçalho

Tag

Regra Protheus

nrVerTra_PTU

"04"

cd_Uni_Destino

BRJ_OPEORI

cd_Uni_Origem


dt_Geracao

Data do servidor

tp_Cobranca

BRJ_TPCOB

tp_Arquivo

1

nr_Doc_1_A500BRJ_NUMFAT
vl_Tot_Cont_Doc_1BRJ_VLRFAT
vl_Tot_Pago_Doc_1E2_SALDO
Nr_NDC_1"0"
dt_Venc_NDC_1""
nr_Doc_2_A500BRJ_NRNDC
vl_Tot_Cont_Doc_2BRJ_VLRNDC
Nr_NDC_2"0"
dt_Venc_NDC_2""


Questionamento

Tag

Regra Protheus

Observações
cd_UnimedBD6_CODOPE
id_BenefBD6_CODEMP+BD6_MATRIC+BD6_TIPREG+BD6_DIGITO
nm_benefBD6_NOMUSR

nr_Lote

BD6_LOTEDI


nr_Nota

BD6_NUMIMP


nr_LotePrestadorBD6_LOTEDI
nr_GuiaTissPrestadorBD6_NUMIMP
seq_itemTXTBD7_SEQ500
seq_itemXMLBX6_SEQPTU
tp_TabelaBTU_CODTAB

Caso código seja igual ao valor do parâmetro MV_PLPSPXM: BD6_SLVPAD

Caso código seja igual ao valor do parâmetro MV_PLPACPT: "98"

cd_ServicoBTU_CDTERM

Caso código seja igual ao valor do parâmetro MV_PLPSPXM: BD6_SLVPRO

Caso código seja igual ao valor do parâmetro MV_PLPACPT: BD6_CD_PAC

tp_Acordo"11"

Se BD6_VLRGLO igual a 0: "11"

Senão: "00"

qt_ReconhBD6_QTDPRO
qt_Acordada"0"
vl_Reconh_ServSe BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLRPAG

Senão: BD7_VLAPAJ


vl_Reconh_COSe BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLRPAG

Senão: BD7_VLAPAJ
vl_Reconh_FilmeSe BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLRPAG

Senão: BD7_VLAPAJ
vl_Reconh_Adic_Serv

Se BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLTXPG

Senão: BD7_VLADSE


vl_Reconh_Adic_COe BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLTXPG

Senão: BD7_VLADSE
vl_Reconh_Adic_Filmee BD7_VLRGLO > 0  ou BD7_VLRGTX > 0 :BD7_VLTXPG

Senão: BD7_VLADSE
cd_Motivo_QuesBCT_EDI550
ds_Motivo_QuesBDX_OBS


04. 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

SubmenuExportação

Nome da Rotina

PTU A550

Programa

PLSUA550X

Módulo

Plano de Saúde


05. PONTO DE ENTRADA

Ponto de Entrada 

PLS500UNM

Descrição

O Ponto de Entrada (P.E.) PLS500UNM está localizado no fonte PLSUA550X, 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_Reconh_Serv, vl_Reconh_CO, vl_Reconh_Filme)

Fonte

PLSP500X,PLSUA500X,PLSUA550X


Parâmetros

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

Parâmetro

Tipo

Default

Descrição

cServ

Caractere

PPM,HM,HMR

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

UCO,COR,VMT,VMD,REA,COP,VTX,VDI

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:

PTUDEPARA

Descrição:

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

Localização:

Exportação PTU A500/A550

Programa Fonte:

PLSUA500X/PLSUA550X

Função:

dePara

Parâmetros:

 BD6_CODPAD,BD6_CODPRO,BD6_DATPRO,BD6_CODRDA

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.

Exemplo:

user function PTUDEPARA()


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


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


06. ALTERAÇÕES DA VERSÃO 2.1


  • Será necessário a criação da subpasta V2_2 dentro da pasta de schemas, já existente em: Protheus_data\plsptu\schemas, para armazenar os novos schemas. Portanto, para funcionamento correto da versão 2.2, os novos schemas devem ficar no diretório: Protheus_data\plsptu\schemas\V2_2.


  • Ao selecionar o arquivo e clicar no botão exportar, será exibido uma janela de parâmetros para selecionar o caminho que o arquivo será salvo e qual é a Versão do PTU.
  • Se escolhido : 1- PTU 2.2 , o sistema irá validar a versão 2.2, saindo na tag <nrVerTra_PTU> o valor "04", validando com o schema novo, que deve estar no diretório: Protheus_data\plsptu\schemas\V2_2.  Se for necessário exportar na versão anterior (2- PTU 2.1), mantenha selecionado no combo Versão do PTU a versão PTU 2.1 e o sistema irá validar o schema na pasta Protheus_data\plsptu\schemas\V2_1.



Campos obrigatórios

A rotina utiliza campos da rotina A500, os detalhes estão disponíveis na seção 09 da documentação, clique aqui para acessa-la.