Histórico da Página
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
---|
Informações Gerais
Especificação | |||
Produto | Microsiga Protheus | Módulo | SIGAPLS |
Segmento Executor | Saúde | ||
Chamado2 | TUTGB8 | ||
País | (x) Brasil ( ) Argentina ( ) Mexico ( ) Chile ( ) Paraguai ( ) Equador ( ) USA ( ) Colombia ( ) Outro _____________. | ||
Outros | <Caso necessário informe outras referências que sejam pertinentes a esta especificação. Exemplo: links de outros documentos ou subtarefas relacionadas>. |
Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos).
Objetivo
O DIOPS é o Documento de Informações Periódicas das Operadoras de Planos de Saúde, que devem ser enviados trimestralmente à ANS. As informações que compõem este documento são: quadros cadastrais, quadros financeiros, quadros gerenciais e informações gerais. O documento tem por objetivo fornecer condições para que a DIOPS (ANS) possa efetuar o controle, o monitoramento e o acompanhamento das operadoras.
Um novo padrão foi estabelecido pela ANS para recebimento dessas informações. O padrão definido segue os conceitos da Troca de Informação em Saúde Suplementar (TISS), cujos dados são enviados pelas operadoras para a ANS em arquivos XML.
A ANS verifica e valida o conteúdo desses arquivos através do seu site, no entanto, algumas ferramentas estão disponíveis para execução dessa tarefa antes do envio, como o DIOPS X-Press. Com esta ferramenta, não é necessário submeter o XML ao site da ANS, permitindo que erros sejam corrigidos antes do envio à ANS.
Além disso, a ferramenta permite a importação de arquivos com layouts pré-definidos ou digitação das informações manualmente em todos os quadros. Essa especificação contempla todas as informações necessárias para o desenvolvimento do relatório para preenchimento da Intercâmbio Eventual no DIOPS X-Press.
Definição da Regra de Negócio
Intercâmbio Eventual corresponde à troca de atendimentos, aos beneficiários, realizados entre operadoras. A ANS, desde 2013, exige a identificação dos totais dos intercâmbios eventuais a receber e a pagar (Médico Hospitalar e Odontológica).
Deverá ser criado um arquivo em formato CSV de acordo com Layout abaixo:
Código Operadora/CNPJ;Tipo Cobertura;Saldo;Data Vencimento;Tipo
Exemplo:
000583;H;200,27;31/03/2013;AP
Onde:
- Código Operadora /CNPJ= Código da Operadora ou CNPJ
- Tipo Cobertura = Tipo de Cobertura (H Hospitalar ou O Odontológica)
- Saldo = Valor do Saldo
- Data Vencimento = Data de Vencimento
- Tipo = "AR" para a Receber, e "AP" para a Pagar
Os campos deverão ser separados por ";", os campos numéricos não deverão ter caracter separador de milhar e a parte decimal deverá ser separada por ",".
Rotina | Tipo de Operação | Opção de Menu | Regras de Negócio |
PLSDINTER | Inclusão | Miscelânea -> ANS -> Relatórios DIOPS -> Solvência |
Premissa: para emissão do arquivo, as configurações contábeis devem estar configuradas.
- Criar novo fonte PLSDINTER cuja funcionalidade é gerar o arquivo CSV resultante desta especificação.
- Criar novo grupo de perguntas PLSDINTER contendo as seguintes opções:
- Data Referência
- Cód. Config. Livros
- Tipo: A Receber, A Pagar ou Ambos
- Imprime Cabeçalho: Sim ou Não
- Somar Automático: Sim ou Não
- Realizar verificações no parâmetro do código do livro, utilizar a função CtbSetOf, para retornar os dados do Livro;
- Através das informações dos parâmetros, é possível buscar os dados seguindo a seguinte busca:
- Código de configuração de livro (CTN) de acordo com o conteúdo do parâmetro;
- Visão gerencial (CTS) de acordo com o código de configuração do livro;
- Contas relacionadas (CT1) à Visão Gerencial. Deverá buscar o total das contas e demonstrar cada cobrança ou pagamento em aberto. A partir da data informada deverá localizar os lançamentos contábeis na CV3. Com base nos registros encontrados na tabela CV3, verificar o conteúdo do campo campo CV3_TABORI. Com base no conteúdo desse campo e localizar os títulos referentes a movimentação. Verificar se os títulos estão abertos e totalizar por operadora de intercâmbio. O tipo do lançamento (pagar ou receber) está identificado na tabela CV3 através da tabela original (SE1 ou SE2).a chave que está no campo CV3_KEY, localizar as guias. Com as informações da guia, verificar se possui títulos. Caso encontre o título, deve considerar somente se o mesmo estiver em aberto, ou seja, com o campo saldo maior que zero. Para saber se o título é a receber ou a pagar, através das informações do beneficiário, é necessário localizar o contrato. Com base nas informações do contrato, verificar se o campo BT5_TIPOIN está igual a "1", nesse caso a busca das informações no título, deve ser feita na tabela do contas a receber ("SE1") caso contrário a busca será na tabela do contas a pagar ("SE2"). O campo de valor a ser considerado é o BD5_VLRBPR.
Para casos de PDD, verificar se o título "pai" já foi baixado como "FT", e aí buscar os títulos "filhos" e realizar a mesma verificação de títulos em aberto. - Para identificar o tipo de Cobertura ("H" ou "O"), será necessário verificar o tipo da Guia. Caso tipo da Guia for Odontológica, gravar "O", para outros casos gravar "H". Ratear o valor total da operadora em Hospitalar e Odontológico.
- Verificar a Reciprocidade (Assumida ou Cedida):
Assumida: Com base nas informações do título, buscar na Guia as informações do contrato. No contrato verificar a operadora do intercâmbio e após isso buscar a informação do seu número de registro na ANS.
Cedida: om base nas informações do título, buscar na Guia as informações do prestador. Verificar o código do prestador com o código do parâmetro e após isso buscar a informação do seu número de registro na ANS.
- Criar função para gerar o arquivo CSV, com o layout já definido:
Exemplo de função para montagem do CSV:
cDirCsv := cGetFile("TOTVS","Selecione o diretorio",,"",.T.,GETF_OVERWRITEPROMPT + GETF_NETWORKDRIVE + GETF_LOCALHARD + GETF_RETDIRECTORY)
nFileCsv := FCreate(cDirCsv+"NOME_ARQUIVO.csv",0,,.F.)
If nFileCsv > 0
FWrite(nFileCSV,"Coluna 1;Coluna 2"+CRLF)
For nI := 1 TO Len(aFluxo)
FWrite(nFileCSV,aFluxo[nI,1]+";"+aFluxo[nI,2]+CRLF)
Next nI
FClose(nFileCSV)
Else
MsgInfo("Não foi possível criar o arquivo " + cDirCsv+cFileRPX,"TOTVS")
EndIf
Tabelas Utilizadas
- CTN
- CTS
- CT1
- CT2
- CVN
- SE1
- SE2
- CV3
Grupo de Perguntas
Nome: PLSDINTER
X1_ORDEM | 01 |
X1_PERGUNT | Data Inicial |
X1_TIPO | D |
X1_TAMANHO | 8 |
X1_GSC | G |
X1_VAR01 | MV_PAR01 |
X1_HELP | Data Inicial do intervalo para emissão do DIOPS de Intercâmbio Eventual |
X1_ORDEM | 02 |
X1_PERGUNT | Cód. Conf. Livros |
X1_TIPO | C |
X1_TAMANHO | 3 |
X1_GSC | G |
X1_VAR01 | MV_PAR03 |
X1_HELP | Código da configuração do livro que será considerado na busca de ativos vinculados para o DIOPS. |
X1_ORDEM | 03 |
X1_PERGUNT | Tipo |
X1_TIPO | C |
X1_TAMANHO | 1 |
X1_GSC | C |
X1_VAR01 | MV_PAR04 |
X1_HELP | |
X1_ORDEM | 05 |
X1_PERGUNT | Somar automático |
X1_TIPO | C |
X1_TAMANHO | 1 |
X1_GSC | C |
X1_VAR01 | MV_PAR06 |
X1_HELP | Informa o tipo de arquivo que será gerado: A Receber(1) ou A Pagar(2) ou Ambos(3) |
X1_ORDEM | 04 |
X1_PERGUNT | Imprime Cabeçalho |
X1_TIPO | C |
X1_TAMANHO | 1 |
X1_GSC | C |
X1_VAR01 | MV_PAR05 |
X1_HELP | Imprime cabeçalho? Sim(1) ou Não(2) |
Somar Automático? Sim(1) ou Não(2) |
Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico. |
---|