Pls Bt Ressarcimento Sus Bra Tdpvn9

1

Boletim Tcnico

SIGAPLS Ressarcimento ao SUS

Produto : Microsiga Protheus Plano de Sade Verso 11

Chamado : TDPVN9 Data da publicao : 07/06/13

Pas(es) : Todos Banco(s) de Dados : Todos Relacionais

Implementadas as rotinas Imp. Atendimento SUS. (PLSA553) para importao dos atendimentos efetuados pelo SUS aos beneficirios do Plano de sade e Transf. Ressarcimento SUS (PLSA552) para controle de ressarcimento e transferncia para Contas Mdicas destes atendimentos. Para complementar as funcionalidades deste processo, foram implementadas outras duas rotinas como Imp. Procedimento SUS (PLSA554) que facilita a importao dos cdigos e procedimentos estabelecidos pelo SUS e da rotina Rels. Ressarc. SUS (PLSR552) que emitir relatrios de controle sobre os atendimentos importados. Ressarcimento ao SUS quando as operadoras de planos privados de assistncia sade restituem as despesas no atendimento pelo SUS aos seus beneficirios, desde que os servios prestados sejam cobertos pelo contrato do plano de sade, conforme disposto no artigo 32, da Lei n 9.656, de 1998. Denomina-se atendimento a ser ressarcido pela operadora de plano privado de assistncia sade OPS, a utilizao de servios de atendimento sade por beneficirio em prestador pblico ou privado, conveniado ou contratado, integrante do SUS, desde que cobertos pelo plano privado de assistncia sade ao qual est vinculado o beneficirio, ainda que o prestador no integre a rede assistencial da OPS.

O sistema atualizado logo aps a aplicao do pacote de atualizaes (Patch) deste chamado.

Antes de executar o compatibilizador UPDPLSB5 imprescindvel:

a) Realizar o backup da base de dados do produto que ser executado o compatibilizador (diretrio \PROTHEUS11_DATA\DATA) e dos dicionrios de dados SXs (diretrio \PROTHEUS11_DATA\SYSTEM).

b) Os diretrios acima mencionados correspondem instalao padro do Protheus, portanto, devem ser alterados conforme o produto instalado na empresa.

c) Essa rotina deve ser executada em modo exclusivo, ou seja, nenhum usurio deve estar utilizando o sistema.

d) Se os dicionrios de dados possurem ndices personalizados (criados pelo usurio), antes de executar o compatibilizador, certifique-se de que esto identificados pelo nickname. Caso o compatibilizador necessite criar

Procedimento para Implementao

Esta melhoria depende de execuo do update de base UPDPLSB5, conforme Procedimentos para Implementao.

Ressarcimento ao SUS

2

Boletim Tcnico


ndices, ir adicion-los a partir da ordem original instalada pelo Protheus, o que poder sobrescrever ndices personalizados, caso no estejam identificados pelo nickname.

e) O compatibilizador deve ser executado com a Integridade Referencial desativada*.

O procedimento a seguir deve ser realizado por um profissional qualificado como Administrador de Banco de Dados (DBA) ou equivalente! A ativao indevida da Integridade Referencial pode alterar drasticamente o relacionamento entre tabelas no banco de dados. Portanto, antes de utiliz-la, observe atentamente os procedimentos a seguir:

i. No Configurador (SIGACFG), veja se a empresa utiliza Integridade Referencial, selecionando a opo

Integridade/Verificao (APCFG60A).

ii. Se no h Integridade Referencial ativa, so relacionadas em uma nova janela todas as empresas e

filiais cadastradas para o sistema e nenhuma delas estar selecionada. Neste caso, E SOMENTE NESTE,

no necessrio qualquer outro procedimento de ativao ou desativao de integridade, basta

finalizar a verificao e aplicar normalmente o compatibilizador, conforme instrues.

iii. Se h Integridade Referencial ativa em todas as empresas e filiais, exibida uma mensagem na janela

Verificao de relacionamento entre tabelas. Confirme a mensagem para que a verificao seja

concluda, ou;

iv. Se h Integridade Referencial ativa em uma ou mais empresas, que no na sua totalidade, so

relacionadas em uma nova janela todas as empresas e filiais cadastradas para o sistema e, somente,

a(s) que possui(em) integridade est(aro) selecionada(s). Anote qual(is) empresa(s) e/ou filial(is)

possui(em) a integridade ativada e reserve esta anotao para posterior consulta na reativao (ou

ainda, contate nosso Help Desk Framework para informaes quanto a um arquivo que contm essa

informao).

v. Nestes casos descritos nos itens iii ou iv, E SOMENTE NESTES CASOS, necessrio desativar tal

integridade, selecionando a opo Integridade/ Desativar (APCFG60D).

vi. Quando desativada a Integridade Referencial, execute o compatibilizador, conforme instrues.

vii. Aplicado o compatibilizador, a Integridade Referencial deve ser reativada, SE E SOMENTE SE tiver sido

desativada, atravs da opo Integridade/Ativar (APCFG60). Para isso, tenha em mos as informaes

da(s) empresa(s) e/ou filial(is) que possua(m) ativao da integridade, selecione-a(s) novamente e

confirme a ativao.

Contate o Help Desk Framework EM CASO DE DVIDAS!

1. Em TOTVS Smart Client, digite U_UPDPLSB5 no campo Programa Inicial.

2. Clique em OK para continuar.

3. Aps a confirmao exibida uma tela para a seleo da empresa em que o dicionrio de dados ser modificado.

4. Ao confirmar exibida uma mensagem de advertncia sobre o backup e a necessidade de sua execuo em modo exclusivo.

5. Clique em Processar para iniciar o processamento. O primeiro passo da execuo a preparao dos arquivos. apresentada uma mensagem explicativa na tela.

3

Boletim Tcnico


6. Em seguida, exibida a janela Atualizao concluda com o histrico (log) de todas as atualizaes processadas. Nesse log de atualizao so apresentados somente os campos atualizados pelo programa. O compatibilizador cria os campos que ainda no existem no dicionrio de dados.

7. Clique em Gravar para salvar o histrico (log) apresentado.

8. Clique em OK para encerrar o processamento.

1. Criao de tabela no arquivo SX2 Tabelas:

Chave Nome Modo PYME

B0R Atendimento Ressarcimento SUS C N


B0W Procedimento Ressarcimento SUS C N


B0O Andamento Arquivo SUS Importad. C N

2. Criao de Campos no arquivo SX3 Campos:

Tabela B0R- Atendimento Ressarcimento SUS:

Campo B0R_FILIAL

Tipo C

Tamanho FWSizeFilial()

Decimal 0

Formato @!

Ttulo Filial

Descrio Filial do Sistema

Nvel 1

Usado No

Obrigatrio No

Browse Sim

Help Filial do Sistema

Campo B0R_CODOPE

Atualizaes do compatibilizador

4

Boletim Tcnico


Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Operadora

Descrio Operadora

Nvel 1

Usado No

Obrigatrio No

Browse No

Relao PLSINTPAD(RETCODUSR())

Help Cdigo da Operadora

Campo B0R_IDANS

Tipo C

Tamanho 14

Decimal 0

Formato @!

Ttulo Ident. ANS.

Descrio Identificador ANS

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Identificador da ANS

Campo B0R_OFICIO

Tipo C

Tamanho 6

Decimal 0

Formato @!

Ttulo Num. Oficio

Descrio Numero do Oficio

5

Boletim Tcnico


Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Numero do Oficio

Campo B0R_NUMPRO

Tipo C

Tamanho 12

Decimal 0

Formato @!

Ttulo Num.Processo

Descrio Numero do Processo

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Numero do Processo

Campo B0R_CODIGO

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Atendimento

Descrio Cdigo do Atendimento

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Cdigo do Atendimento

Campo B0R_STATUS

6

Boletim Tcnico


Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Status

Descrio Status Transferncia

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Opes 1=Autorizada;2=Atendimento Incompleto;3=Cancelado;4=Gerado C.Medicas

Help Status de Transferncia

Campo B0R_CODCCO

Tipo C

Tamanho 12

Decimal 0

Formato @!

Ttulo Cod. CCO

Descrio Codigo CCO

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Cdigo CCO do beneficirio

Campo B0R_MESPRO

Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Ms Processo

7

Boletim Tcnico


Descrio Ms do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ms do Processo

Campo B0R_ANOPRO

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Ano Processo

Descrio Ano do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ano do Processo

Campo B0R_DATPRO

Tipo D

Tamanho 8

Decimal 0

Formato @D

Ttulo Dt.Processo

Descrio Data do Processo

Nvel 1

Usado Sim

Obrigatrio Sim

Browse No

Val. Sistema dtos(M->B0R_DATPRO)

8

Boletim Tcnico


Campo B0R_HORPRO

Tipo C

Tamanho 4

Decimal 0

Formato @R !!:!!

Ttulo Hr. Processo

Descrio Hora do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Val. Sistema Empty(M->B0R_HORPRO) .OR. PLSVLDHOR(M->B0R_HORPRO)

Help Hora do Processo

Campo B0R_TIPADM

Tipo C

Tamanho 2

Decimal 0

Formato @C

Ttulo Tp Admisso

Descrio Tipo de Admisso

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao GETNEWPAR('MV_PLSTPAD','6')

Val. Sistema BDR->(ExistCpo('BDR',PLSINTPAD()+M->B0R_TIPADM,1))

Help Tipo de Admisso

Campo B0R_DATEVE

Tipo D

Tamanho 8

9

Boletim Tcnico


Decimal 0

Formato @D

Ttulo Dt. Evento

Descrio Data do Evento

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Data do Evento

Campo B0R_VALOR

Tipo C

Tamanho 17

Decimal 2

Formato @E 999,999,999.99

Ttulo Vlr. Servio

Descrio Valor do Ressarcimento

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Valor atendimento para ressarcimento

Campo B0R_OPEUSR

Tipo C

Tamanho 4

Decimal 0

Formato @R !.!!!

Ttulo Oper. Usr

Descrio Operadora do Usurio

Nvel 1

Usado Sim

Obrigatrio Sim

10

Boletim Tcnico


Browse No

Relao PLSINTPAD(RETCODUSR())

Val. Sistema If(Empty(M->B0R_OPEUSR),.T.,PLSVLDINT(M->B0R_OPEUSR))

Help Operadora do usurio

Campo B0R_CGC

Tipo C

Tamanho 14

Decimal 0

Formato

Ttulo CNPJ/CPF Prf

Descrio CNPJ do Prestador do Serv

Nvel 1

Usado No

Obrigatrio Sim

Browse No

Help CNPJ do Prestador do Servio

Campo B0R_AIHAPA

Tipo C

Tamanho 13

Decimal 0

Formato @!

Ttulo AIH/APAC N.

Descrio Numero da AIH/APAC

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Numero da AIH/APAC

Campo B0R_OPERDA

11

Boletim Tcnico


Tipo C

Tamanho 4

Decimal 0

Formato @R !.!!!

Ttulo Operad. RDA

Descrio Operadora RDA

Nvel 1

Usado Sim

Obrigatrio Sim

Browse No

Relao IF(INCLUI,PLSINTPAD(),B0R->B0R_OPERDA)

Val. Sistema If(Empty(M->B0R_OPERDA),.T.,PLSA092VR2())

Help Operadora da Rede de Atendimento

Campo B0R_CODRDA

Tipo C

Tamanho 6

Decimal 0

Formato @!

Ttulo Cod. Prest.

Descrio Codigo do prestador

Nvel 1

Usado Sim

Obrigatrio Sim

Browse No

Relao GETNEWPAR('MV_RDASUS','000001')

Val. Sistema PLS550VLD(GetNewPar('MV_RDASUS','000001'))

Help Cdigo da Rede de Atendimento

Campo B0R_NOMRDA

Tipo C

Tamanho 40

Decimal 0

12

Boletim Tcnico


Formato @!

Ttulo Nome RDA

Descrio Nome da RDA

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao IF(INCLUI,POSICIONE('BAU',1,XFILIAL('BAU')+GETMV('MV_RDASUS'),'BAU_NOME'),B0R->B0R_NOMRDA)

Help Nome da Rede de Atendimento

Campo B0R_LOCATE

Tipo C

Tamanho 6

Decimal 0

Formato @R !!!.!!!

Ttulo Local

Descrio Local de Atendimento

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao IF(INCLUI,POSICIONE('BB8',1,XFILIAL('BAU')+GETMV('MV_RDASUS'),'BB8_CODLOC+BB8_LOCAL'),B0R->B0R_LOCATE)

Help Local de Atendimento

Campo B0R_DESLOC

Tipo C

Tamanho 40

Decimal 0

Formato @!

Ttulo Desc. Local

Descrio Descricao local

Nvel 1

13

Boletim Tcnico


Usado Sim

Obrigatrio No

Browse No

Relao IF(INCLUI,POSICIONE('BB8',1,XFILIAL('BAU')+GETMV('MV_RDASUS'),'BB8_DESLOC'),B0R->B0R_DESLOC)

Help Descrio do Local de Atendimento

Campo B0R_CODLOC

Tipo C

Tamanho 3

Decimal 0

Formato @R !!!.!!!

Ttulo Local

Descrio Localidade

Nvel 1

Usado No

Obrigatrio No

Browse No

Relao IF(INCLUI,POSICIONE('BB8',1,XFILIAL('BAU')+GETMV('MV_RDASUS'),'BB8_CODLOC'),B0R->B0R_LOCATE)

Help Cdigo do Local de Atendimento

Campo B0R_CODESP

Tipo C

Tamanho 3

Decimal 0

Formato @!

Ttulo Especialidad

Descrio Especialidade

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Val. Sistema PLS550ESP()

14

Boletim Tcnico


Help Cdigo da Especialidade

Campo B0R_DESESP

Tipo C

Tamanho 40

Decimal 0

Formato @!

Ttulo Desc. Espec.

Descrio Descricao Especialidade

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Descrio da Especialidade

Campo B0R_TIPPRE

Tipo C

Tamanho 3

Decimal 0

Formato @!

Ttulo Tipo da RDA

Descrio Tipo da RDA

Nvel 1

Usado Sim

Obrigatrio No

Browse No

When PLSA550WHE()

Relao IF(INCLUI,POSICIONE('BAU',1,XFILIAL('BAU')+GETMV('MV_RDASUS'),'BAU_TIPPRE'),B0R->B0R_TIPPRE)

Val. Sistema If(Empty(M->B0R_TIPPRE),.T.,BAG->(ExistCpo('BAG')))

Help Tipo da Rede de Atendimento

Campo B0R_ESTSOL

15

Boletim Tcnico


Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo UF Solic.

Descrio Est. Solicitante

Nvel 1

Usado Sim

Obrigatrio Sim

Browse No

Relao GETMV('MV_PLSESPD')

Val. Sistema ExistCpo('SX5','12'+M->B0R_ESTSOL,1)

Help Estado do Solicitante

Campo B0R_OPESOL

Tipo C

Tamanho 4

Decimal 0

Formato @R !.!!!

Ttulo Operad. Sol.

Descrio Operadora Solicitante

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao IF(INCLUI,PLSINTPAD(),B0R->B0R_OPESOL)

Val. Sistema BA0->(ExistCpo('BA0',M->B0R_OPESOL,1))

Help Operadora do Solicitante

Campo B0R_SIGLA

Tipo C

Tamanho 7

Decimal 0

16

Boletim Tcnico


Formato @!

Ttulo Sigla C.R.

Descrio Conselho Sol

Nvel 1

Usado Sim

Obrigatrio Sim

Browse No

Relao GETMV('MV_PLSIGLA')

Val. Sistema ExistCpo('SX5','B7'+M->B0R_SIGLA,1)

Help Sigla do Conselho do Solicitante

Campo B0R_REGSOL

Tipo C

Tamanho 10

Decimal 0

Formato @R !!!!!!!!!!

Ttulo C.R. Solic.

Descrio C.R Solicita

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Val. Sistema M->B0R_OPESOL PLSINTPAD() .or. BB0->(PLVLDPFS('BB0',M->B0R_ESTSOL+M->B0R_REGSOL+M->B0R_SIGLA,4,dDataBase))

Help Registro do Conselho do Solicitante

Campo B0R_NOMSOL

Tipo C

Tamanho 30

Decimal 0

Formato @!

Ttulo Solicitante

Descrio Solicitante

17

Boletim Tcnico


Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao IF(INCLUI,'',BB0->(POSICIONE('BB0',4,XFILIAL('B0R')+B0R->(B0R_ESTSOL+B0R_REGSOL+B0R_SIGLA),'BB0_NOME')))

Help Nome do Solicitante

Campo B0R_CDPFSO

Tipo C

Tamanho 6

Decimal 0

Formato @!

Ttulo Cd.Prf.Solic

Descrio Cod.Prof.Solidario

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo do Profissional Solidrio

Campo B0R_USUARI

Tipo C

Tamanho 17

Decimal 0

Formato @!

Ttulo Matric. Usr.

Descrio Matric. Usr.

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Matricula do Usurio

18

Boletim Tcnico


Campo B0R_CODEMP

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Grp/Empresa

Descrio Grupo/Empresa

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo do grupo empresa

Campo B0R_MATRIC

Tipo C

Tamanho 6

Decimal 0

Formato @!

Ttulo Matricula

Descrio Matricula

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Matrcula

Campo B0R_TIPREG

Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Tipo de Reg.

19

Boletim Tcnico


Descrio Tipo Registro

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Tipo de Registro

Campo B0R_CPFUSR

Tipo C

Tamanho 11

Decimal 0

Formato @!

Ttulo CPF Usurio

Descrio CPF Usurio

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help CPF do Usurio

Campo B0R_IDUSR

Tipo C

Tamanho 11

Decimal 0

Formato @!

Ttulo Iden Usurio

Descrio Identidade Usurio

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Identidade do Usurio

20

Boletim Tcnico


Campo B0R_DATNAS

Tipo D

Tamanho 8

Decimal 0

Formato @D

Ttulo Dt.Nasc.Usr.

Descrio Data Nascimento Usurio

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Data de Nascimento do Usurio

Campo B0R_DIGITO

Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Digito

Descrio Digito

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Digito Verificador

Campo B0R_CONEMP

Tipo C

Tamanho 12

Decimal 0

Formato @!

Ttulo Cont.Empresa

Descrio Contrato Empresa

21

Boletim Tcnico


Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo Contrato Empresa

Campo B0R_VERCON

Tipo C

Tamanho 3

Decimal 0

Formato @!

Ttulo Verso Emp.

Descrio Verso Empresa

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Verso do Contrato Empresa

Campo B0R_SUBCON

Tipo C

Tamanho 9

Decimal 0

Formato @!

Ttulo Subcontrato

Descrio Subcontrato

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo do Subcontrato

Campo B0R_VERSUB

22

Boletim Tcnico


Tipo C

Tamanho 3

Decimal 0

Formato @!

Ttulo Verso Subc.

Descrio Verso Subcontrato

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Verso do Subcontrato

Campo B0R_MATVID

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Matric.Vida

Descrio Matricula Vida

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Matricula da Vida

Campo B0R_MATUSA

Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Matr.Usada

Descrio Matricula Usada no Movto

Nvel 1

23

Boletim Tcnico


Usado Sim

Obrigatrio No

Browse No

Opes 1=Matricula Principal;2=Matricula Antiga

Help Matricula Usada no Movimento

Campo B0R_CODLDP

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Cd.Local Dig

Descrio Cdigo Local Digitao

Nvel 1

Usado No

Obrigatrio No

Browse No

Help Cdigo do Local da Digitao

Campo B0R_CODPEG

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Cd.PEG

Descrio Codigo PEG

Nvel 1

Usado No

Obrigatrio No

Browse No

Help Codigo da PEG

Campo B0R_NUMERO

24

Boletim Tcnico


Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Numero Guia

Descrio Numero da Movimentao

Nvel 1

Usado No

Obrigatrio No

Browse Sim

Help Numero da Movimentao

Campo B0R_DTALTA

Tipo D

Tamanho 8

Decimal 0

Formato @!

Ttulo Data Sada

Descrio Data de Sada

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Val. Sistema ( dtos(M->B0R_DTALTA) >= dtos(M->B0R_DATPRO) ) .And. ( dtos(M->B0R_DTALTA)

25

Boletim Tcnico


Descrio Ms de Pagamento

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ms de Pagamento

Campo B0R_ANOPAG

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Ano Pagto

Descrio Ano de Pagamento

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ano de Pagamento

Campo B0R_QTDEVE

Tipo N

Tamanho 3

Decimal 999

Formato @!

Ttulo Qtd Eventos

Descrio Qtd de Eventos

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao 1

Help Quantidade de Eventos

26

Boletim Tcnico


Campo B0R_TIPGUI

Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Tipo de Guia

Descrio Tipo de Guia

Nvel 1

Usado No

Obrigatrio No

Browse No

Help Tipo de Guia

Campo B0R_REGINT

Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Regime Inter

Descrio Regime Internao

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Opes 1=Hospitalar;2=Hospital-Dia;3=Domiciliar

Val. Sistema Pertence('123')

Help Regime Internao

Campo B0R_DTDIG1

Tipo D

Tamanho 8

Decimal 0

27

Boletim Tcnico


Formato @D

Ttulo Dt.Digitao

Descrio Data digitao

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao DDATABASE

Help Data de Digitao

Campo B0R_ARQIMP

Tipo C

Tamanho 55

Decimal 0

Formato @!

Ttulo Arq.Imp XML

Descrio Arquivo Importao XML

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Arquivo Importao do XML

Campo B0R_NOMUSR

Tipo C

Tamanho 70

Decimal 0

Formato @!

Ttulo Nome Usurio

Descrio Nome Usurio

Nvel 1

Usado Sim

Obrigatrio No

28

Boletim Tcnico


Browse Sim

Help Nome do Usurio

Tabela B0W - Procedimento Ressarcimento SUS:

Campo B0W_FILIAL

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Filial


Nvel 1

Usado No

Obrigatrio No

Browse No


Campo B0W_IMGSTA

Tipo C

Tamanho 7

Decimal 0

Formato @BMP

Ttulo Img Status

Descrio Imagem Status

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao IF(INCLUI,'DISABLE',IF(B0W->B0W_STATUS=='1','ENABLE','DISABLE'))

Help Imagem do Status

Campo B0W_CODIGO

Tipo C

29

Boletim Tcnico


Tamanho 8

Decimal 0

Formato @!

Ttulo Atendimento

Descrio Codigo do Atendimento

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo do Atendimento

Campo B0W_SEQUEN

Tipo C

Tamanho 3

Decimal 0

Formato @!

Ttulo Sequencia

Descrio Sequencia

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Relao PLS552SEQ()

Help Sequncia do Procedimento

Campo B0W_CDPADP

Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Tab.Pd.TUNEP

Descrio Codigo Tipo Padro TUNEP

Nvel 1

30

Boletim Tcnico


Usado Sim

Obrigatrio Sim

Browse Sim

Opes (X3_CBOX)

When (X3_WHEN)

Relao GETNEWPAR('MV_TABSSUS','10')

Val. Sistema BR4->(ExistCpo('BR4',M->B0W_CDPADP,1))

Help Cdigo Tipo Padro da TUNEP

Campo B0W_TUNEP

Tipo C

Tamanho 16

Decimal 0

Formato @!

Ttulo Cod. Tunep

Descrio Codigo Tabela TUNEP

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Help Cdigo da Tabela da TUNEP

Campo B0W_DSTUNE

Tipo C

Tamanho 50

Decimal 0

Formato @!

Ttulo Desc. TUNEP

Descrio Descricao Codigo TUNEP

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

31

Boletim Tcnico


Relao IF(INCLUI,'',POSICIONE('BR8',1,XFILIAL('BR8')+B0W->B0W_CDPADP+ B0W->B0W_TUNEP ,'BR8_DESCRI'))

Help Descrio da Tabela da TUNEP

Campo B0W_CODPAD

Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Cod. Tab. Pd

Descrio Cod Tabela Padro

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao GETMV('MV_PLSTBPD')

Help Cdigo Tabela Padro

Campo B0W_CODPRO

Tipo C

Tamanho 16

Decimal 0

Formato @!

Ttulo Cod. Proc.

Descrio Codigo Procedimento

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao

Help Cdigo do Procedimento

Campo B0W_DESPRO

32

Boletim Tcnico


Tipo C

Tamanho 50

Decimal 0

Formato @!

Ttulo Desc. Proc.

Descrio Descricao

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao IF(INCLUI,'',POSICIONE('BR8',1,XFILIAL('BR8')+B0W->B0W_CODPAD+ B0W->B0W_CODPRO,'BR8_DESCRI'))

Help Descrio do Procedimento

Campo B0W_QTDPRO

Tipo N

Tamanho 7

Decimal 2

Formato 9999.99

Ttulo Qtd

Descrio Quantidade

Nvel 1

Usado Sim

Obrigatrio Sim

Browse Sim

Relao 1

Val. Sistema PLSA090PRO()

Help Quantidade de Procedimento

Campo B0W_VLRAPR

Tipo N

Tamanho 17

Decimal 2

33

Boletim Tcnico


Formato @E 999,999,999.99

Ttulo Vlr.Apres.

Descrio Vlr Apresentado Pagamento

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Valor Apresentado Pagamento

Campo B0W_DATPRO

Tipo D

Tamanho 8

Decimal 0

Formato @D

Ttulo Data Proced.

Descrio Data Procedimento

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Relao IF(INCLUI,M->B0R_DATEVE,B0W->B0W_DATPRO)

Help Data do Procedimento

Campo B0W_STATUS

Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Status

Descrio Status

Nvel 1

Usado Sim

Obrigatrio No

34

Boletim Tcnico


Browse No

Opes 1=Autorizada;2=Atendimento Incompleto;3=Cancelado;4=Gerado C.Medicas

Relao 1

Help Status do Atendimento

Campo B0W_CODLDP

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Cd Lc Dig PG

Descrio Codigo Local Dig PEG

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo Local Digitao da PEG

Campo B0W_CODPEG

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Codigo PEG

Descrio Codigo PEG

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Cdigo da PEG

Campo B0W_NUMERO

35

Boletim Tcnico


Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Numero Guia

Descrio Numero Guia

Nvel 1

Usado Sim

Obrigatrio No

Browse No

Help Numero da Guia

Campo B0W_OPEMOV

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Operadora

Descrio Operadora

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Cdigo da Operadora

Campo B0W_DESINC

Tipo C

Tamanho 250

Decimal 0

Formato @!

Ttulo Desc Increm.

Descrio Descricao Incremento

Nvel 1

36

Boletim Tcnico


Usado Sim

Obrigatrio No

Browse No

Help Descrio do Incremento do Procedimento XML

Tabela B0O - Andamento Arquivo SUS Importad:

Campo B0O_FILIAL

Tipo C

Tamanho 8

Decimal 0

Formato @!

Ttulo Filial


Nvel 1

Usado No

Obrigatrio No

Browse No


Campo B0O_IDANS

Tipo C

Tamanho 14

Decimal 0

Formato @!

Ttulo Ident. ANS.

Descrio Identificador ANS

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Identificador ANS do XML

Campo B0O_MESPRO

37

Boletim Tcnico


Tipo C

Tamanho 2

Decimal 0

Formato @!

Ttulo Ms Processo

Descrio Ms do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ms do Processamento

Campo B0O_ANOPRO

Tipo C

Tamanho 4

Decimal 0

Formato @!

Ttulo Ano Processo

Descrio Ano do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Ano do Processamento

Campo B0O_QTDPRO

Tipo N

Tamanho 7

Decimal 2

Formato 9999.99

Ttulo Qtd Atend.

Descrio Qtde. Atendimento

Nvel 1

38

Boletim Tcnico


Usado Sim

Obrigatrio No

Browse Sim

Help Quantidade de Processos

Campo B0O_STATUS

Tipo C

Tamanho 1

Decimal 0

Formato @!

Ttulo Status

Descrio Status do Processo

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Opes 1=No Iniciado;2=Parcialmente Transferido;3=Totalmente Transferido

Help Status do Processo

Campo B0O_DTXML

Tipo D

Tamanho 8

Decimal 0

Formato @D

Ttulo Data XML

Descrio Data do XML

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Data do XML

39

Boletim Tcnico


Campo B0O_HRXML

Tipo C

Tamanho 4

Decimal 0

Formato @R !!:!!

Ttulo Hora XML

Descrio Hora do XML

Nvel 1

Usado Sim

Obrigatrio No

Browse Sim

Help Hora do XML

O tamanho dos campos que possuem grupo pode variar conforme ambiente em uso.

3. Criao de Consulta Padro no arquivo SXB Consulta Padro:

Pesquisa B0RBR8:

Alias B0RBB8

Tipo 1

Sequncia 01

Coluna DB

Descrio Locais Atendimentos

Contm BB8

Alias B0RBB8

Tipo 2

Sequncia 01

Coluna 01

Descrio Codigo + Operadora

Contm

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 01

40

Boletim Tcnico


Descrio Codigo Local

Contm BB8_CODLOC

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 02

Descrio Desc. Local

Contm BB8_DESLOC

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 03

Descrio Endereo

Contm BB8_END

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 04

Descrio Numero

Contm BB8_NR_END

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 05

Descrio Complemento

Contm BB8_COMEND

Alias B0RBB8

Tipo 4

Sequncia 01

41

Boletim Tcnico


Coluna 06

Descrio Municpio

Contm BB8_MUN

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 07

Descrio Bairro

Contm BB8_BAIRRO

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 08

Descrio Estado

Contm BB8_EST

Alias B0RBB8

Tipo 4

Sequncia 01

Coluna 09

Descrio Telefone

Contm BB8_TEL

Alias B0RBB8

Tipo 5

Sequncia 01

Coluna

Descrio

Contm BB8->(BB8_CODLOC+BB8_LOCAL)

Alias B0RBB8

Tipo 6

42

Boletim Tcnico


Sequncia

Coluna

Descrio Locais Atendimentos

Contm BB8->(BB8_CODIGO) == M->B0R_CODRDA

Pesquisa B0WBR8:

Alias B0WBB8

Tipo 1

Sequncia 01

Coluna RE

Descrio Tabela Padro

Contm BR8

Alias B0WBB8

Tipo 2

Sequncia 01

Coluna 01

Descrio Descr. Procedimento

Contm PLSPESPROC(M->B0W_CODPAD,.F.)

Alias B0WBB8

Tipo 5

Sequncia 01

Coluna

Descrio

Contm BR8_CODPSA

4. Criao de ndices no arquivo SIX ndices:

ndice B0R

Ordem 1

Chave B0R_FILIAL+B0R_CODOPE+B0R_NUMPRO+B0R_OFICIO+B0R_CODIGO

Descrio Filial+Operadora+Numero Processo+Oficio+Codigo

Proprietrio S

43

Boletim Tcnico


ndice B0R

Ordem 2

Chave B0R_FILIAL+B0R_IDANS+B0R_MESPRO+B0R_ANOPRO+B0R_NUMPRO+B0R_OFICIO+B0R_CODIGO

Descrio Filial+Ident.ANS+Ms Processo+Ano Processo+Num. Processo+Oficio+Codigo

Proprietrio S

ndice B0W

Ordem 1

Chave B0W_FILIAL+B0W_OPEMOV+B0W_CODIGO+B0W_SEQUEN

Descrio Filial+Operadora+Codigo+Sequencia

Proprietrio S

ndice B0O

Ordem 1

Chave B0O_FILIAL+B0O_IDANS+B0O_DTXML+B0O_HRXML+B0O_STATUS

Descrio Filial+Ident. ANS+Data XML+Hora XML+Status

Proprietrio S

ndice B0O

Ordem 2

Chave B0O_FILIAL+B0O_ANOPRO+B0O_MESPRO+B0O_IDANS+B0O_STATUS

Descrio Filial+Ano Processo+Ms Processo+Ident. ANS+Status

Proprietrio S

5. Criao de Parmetros no arquivo SX6 Parmetros:

Nome da Varivel MV_TABSSUS

Tipo C

Descrio Cdigo do Tipo de Tabela de Sade referente Tabela da TUNEP utilizada para valorizar os procedimentos de ressarcimento ao SUS.

Valor Padro

Nome da Varivel MV_CDTUNEP

Tipo C

44

Boletim Tcnico


Descrio Cdigo da Operadora+Tabela Dinmica de Eventos referente tabela da TUNEP utilizada para valorizar os procedimentos do ressarcimento ao SUS.

Valor Padro

Nome da Varivel MV_RDASUS

Tipo C

Descrio Cdigo da RDA correspondente a ANS para onde as guias devero ser geradas no contas medicas e consequentemente o pagamento da mesma.

Valor Padro

Nome da Varivel MV_CDLCSUS

Tipo C

Descrio Cdigo do Local Padro de digitao para as Guias oriundas do processo de Ressarcimento ao SUS.

Valor Padro

6. Criao de Gatilhos no arquivo SX7 Gatilhos:

Tabela B0R Atendimento Ressarcimento SUS:

Campo B0R_REGSOL

Sequncia 001

Campo Domnio B0R_NOMSOL

Tipo P

Regra BB0->BB0_NOME

Posiciona? SIM

Chave xFilial('B0R')+M->B0R_ESTSOL+M->B0R_REGSOL+M->B0R_SIGLA+M->B0R_OPESOL

Condio

Proprietrio SISTEMA

Campo B0R_REGSOL

Sequncia 002

Campo Domnio B0R_CDPFSO

Tipo P

Regra BB0->BB0_CODIGO

Posiciona? NO

Chave

45

Boletim Tcnico


Condio

Proprietrio SISTEMA

Campo B0R_REGSOL

Sequncia 001

Campo Domnio B0R_TIPPRE

Tipo P

Regra BAU->BAU_TIPPRE

Posiciona? NO

Chave

Condio

Proprietrio SISTEMA

1. Ig1.No Configurador (SIGACFG) acesse Ambientes/Cadastros/Parmetros (CFGX017). Configure o(s) parmetro(s) a

seguir:

Itens/Pastas Descrio

Nome MV_TABSSUS

Tipo Caracter

Cont. Por.

Descrio Cdigo do Tipo de Tabela de Sade referente Tabela da TUNEP utilizada para valorizar os procedimentos de ressarcimento ao SUS.


Nome MV_CDTUNEP

Tipo Caracter

Cont. Por.

Descrio

Cdigo da Operadora+Tabela Dinmica de Eventos referente tabela da TUNEP utilizada para valorizar os procedimentos do ressarcimento ao SUS. Importante que esteja cadastrado no sistema.


Nome MV_RDASUS

Tipo Caracter

Cont. Por.

Procedimentos para Configurao

46

Boletim Tcnico


Descrio Cdigo da RDA correspondente a ANS para onde as guias devero ser geradas no contas medicas e consequentemente o pagamento da mesma. Importante que exista a RDA cadastrada.


Nome MV_CDLCSUS

Tipo Caracter

Cont. Por.

Descrio Cdigo do Local Padro de digitao para as Guias oriundas do processo de Ressarcimento ao SUS.

7. No Configurador (SIGACFG) acesse Ambientes/Cadastro/Menu (CFGX013). Informe a nova opo de menu do SIGAPLS, conforme instrues a seguir:

Menu Miscelnea

Submenu Ressarcimento SUS

Nome da Rotina Imp. Procedimento SUS.

Programa PLSA554

Mdulo SIGAPLS

Tipo 01

Tabelas BA8, BR8 e BD4

Menu Miscelnea


Nome da Rotina Imp. Atendimento SUS.

Programa PLSA553

Mdulo SIGAPLS

Tipo 01

Tabelas B0R, B0W e B0O

Menu Miscelnea


Nome da Rotina Transf. Ressarcimento SUS

Programa PLSA552

Mdulo SIGAPLS

Tipo 01


47

Boletim Tcnico


Menu Miscelnea


Nome da Rotina Relatrio Ressarc. SUS

Programa PLSR552

Mdulo SIGAPLS

Tipo 01


1. No Plano de Sade (SIGAPLS) acesse Atualizaes/Procedimento/Tipo de Tabela (PLSA950).

2. Crie um novo Tipo de tabela Padro para corresponder ao Ressarcimento SUS, com apenas 1 nvel contendo 10 dgitos e sem dgito verificador.

3. Acesse Atualizaes/Procedimento/Tabela de honorrios (PLSA390).

4. Crie uma nova Tabela de honorrios referenciando a Tabela referente ao SUS que foi criado.

5. Acesse Atualizaes/Rede de atendimento/RDA - Cadastro (PLSA360).

6. Crie uma nova RDA para relacionar ao SUS para onde as guias e os pagamento devero ser geradas no Contas Mdicas.

7. Atravs da execuo da rotina de Importar os procedimentos do SUS possvel alimentar as tabelas BA8-BR8-BD4. Dever preparar um arquivo CSV contendo os cdigos e as descries dos procedimentos do SUS (TUNEP). Para obter estes dados, acesse o site da ANS e procure por Tabela nica Nacional de Equivalncia de Procedimentos TUNEP.

8. No Plano de Sade (SIGAPLS) acesse Miscelnea/Ressarcimento SUS/ Imp. Procedimento SUS (PLSA554) para importar os dados.

9. Clique em Parmetros e selecione o arquivo CSV que dever estar dentro da raiz do sistema. Aps selecionar clique em OK para carregar os procedimentos.

importante que o arquivo contenha duas colunas sendo a primeira o Cdigo do procedimento e a segunda coluna a descrio do procedimento.

10. Acesse Atualizaes/Procedimento/ De/Para Tabelas (PLSA043).

11. Processe a rotina De/Para dos procedimentos relacionados ao SUS para os procedimentos j cadastrados no Protheus. Nesta rotina o sistema atualizar a tabela BW0. Nos campos BW0_CODPD1 e BW0_CODPR1 inclua os procedimentos relacionados ao SUS e nos campos BW0_CODPD2 e BW0_CODPR2 inclua os procedimentos relacionados ao sistema.

Ao executar o importador do arquivo XML com os atendimentos efetuados pelo SUS e seus valores o sistema ir gerar as tabelas temporrias de Contas Mdicas.

12. No Plano de Sade (SIGAPLS) acesse Miscelnea/Ressarcimento SUS/ Imp. Atendimento SUS (PLSA553).

Procedimentos para Utilizao

48

Boletim Tcnico


13. Clique em Parmetros e selecione o arquivo XML que dever estar dentro da raiz do sistema. Aps selecionar clique em OK para carregar os atendimentos.

14. Poder haver crticas na importao. Estas crticas podem ser:

O sistema no encontrou o beneficirio importado do arquivo XML na base local pelo cdigo CCO.

O sistema no encontrou o cdigo DE/Para do procedimento importado do arquivo XML na base local.

Posteriormente, na rotina Transf. Ressarcimento SUS (PLSA552) pode-se eliminar estas pendncias de forma simples utilizando a opo Analisar Incompletos.

15. No Plano de Sade (SIGAPLS) acesse Miscelnea/Ressarcimento SUS/ Transf. Ressarcimento SUS (PLSA552). Nessa rotina possvel visualizar todos os processos que fazem parte do lote importado do XML e selecionar individualmente ou em Lote (Transferncia em Lote - Aes Relacionadas) para transferi-los para as Contas Mdicas.

16. Selecione um Identificador ANS que corresponde ao ID do arquivo XML importado e clique em Selecionar.

Os registros em amarelo indicam que existem pendncias de cadastro para serem solucionados antes da transferncia dos atendimentos para a rotina de Contas Mdicas. Estas pendncias (crticas) esto relacionadas no item 14 deste Boletim.

17. Para solucionar estas pendncias, clique em Analisar Incompletos (Aes Relacionadas) para visualizar as tarefas que devero ser solucionadas. Aps a anlise, deve ser corrigido ou o cadastro do Beneficirio ou incluso o De/Para de procedimentos descritos no item 10 deste Boletim.

18. Para o status ficar Autorizado (Vermelho), clique novamente em Analisar Incompletos (Aes Relacionadas). Neste momento o atendimento est apto a ser transferido para as Contas Mdicas.

Quando no houver crticas na Importao dos atendimentos ou quando forem solucionadas as crticas, o registro ficar com status de Autorizado (Vermelho) e estar apto a ser transferido para as Contas Mdicas.

19. Aps a transferncia para as Contas Mdicas, o status do atendimento ficar Transferido (Verde).

20. No Plano de Sade (SIGAPLS) acesse Atualizaes/Proc Contas/ Digitao de Contas (PLSA498). A partir desse momento o sistema executar as validaes padres j existentes na Mudana de fase, Analisar Glosas e reconsiderar quando necessrio.

Importante que antes da Mudana de fase, seja revisado todos os campos obrigatrios no preenchidos automaticamente pela rotina de Transf. Ressarcimento SUS (PLSA552) pelo fato de no existirem todas as informaes necessrias no arquivo XML enviadas pelo SUS.

21. No Plano de Sade (SIGAPLS) acesse Miscelnea/Ressarcimento SUS/ Rels. Ressarc. SUS (PLSR552). Esta rotina emitir relatrios de controle sobre os atendimentos importados. Abaixo seguem os parmetros da rotina:

Ident ANS? - Filtra por um Identificador ANS especfico. Ms? - Filtra por um Ms especfico. Ano? - Filtra por um Ano especfico. Status? - Filtra por um Status de atendimento especfico ou podem-se apresentar todos os status no relatrio

atravs da opo Todos. Imprime? - Sinttico apresenta apenas os atendimentos e Analtico apresenta os atendimentos e seus

procedimentos. Evento de? - Filtra as informaes do relatrio por uma data de evento inicial. Evento at? - Filtra as informaes do relatrio por uma data de evento final.

49

Boletim Tcnico


Tabelas Utilizadas

B0R Atendimento Ressarcimento SUS

B0W Procedimento Ressarcimento SUS

B0O Andamento Arquivo SUS Importad.

BA8 Tabela Dinmica de Eventos

BR8 Tabela Padro

BD4 Unidade de Sade

BD5 Contas Mdicas

BD6 Eventos das Contas Medicas

BD7 Part Honorrios Mdicos Itens

Funes Envolvidas

PLSA950 - Tipo de Tabela;

PLSA390 - Tabela de honorrios;

PLSA360 - RDA Cadastro;

PLSA554 - Importar Procedimentos SUS;

PLSA043 - De/Para Procedimentos;

PLSA553 - Importador do XML SUS;

PLSA552 - Transf. Ressarcimento SUS;

PLSR552 - Relatrio Ressarc. SUS;

PLSA498 - Digitao de Contas.

Sistemas Operacionais Windows/Linux

Informaes Tcnicas

Pls Bt Ressarcimento Sus Bra Tdpvn9

Documents

Transcript of Pls Bt Ressarcimento Sus Bra Tdpvn9