Histórico da Página

Informações Gerais

   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 ",".

 Premissa: para emissão do arquivo, as configurações contábeis devem estar configuradas. E o rastro da tabela CTL para gravar na CV3 cadastrado de acordo com os lançamentos padrões que serão utilizados.

1. Criar novo fonte PLSDINTER cuja funcionalidade é gerar o arquivo CSV resultante desta especificação.
2. Criar novo grupo de perguntas PLSDINTER contendo as seguintes opções:
1. Data Referência
2. Cód. Config. Livros 
3. Tipo: A Receber, A Pagar ou Ambos
   
   
3. Realizar verificações no parâmetro do código do livro, utilizar a função CtbSetOf, para retornar os dados do Livro; 
4. Através das informações dos parâmetros, é possível buscar os dados seguindo a seguinte busca:
   
   1. Código de configuração de livro (CTN) de acordo com o conteúdo do parâmetro;
   2. Visão gerencial (CTS) de acordo com o código de configuração do livro;
   3. Contas relacionadas (CT1) à Visão Gerencial. A partir da data informada e o Alias ("BD5", "BD6" e "BD7"), deverá localizar os lançamentos contábeis na CV3. Realizar um relacionamento com a tabela "CT2", para filtrar somente os registros da tabela CV3 que tenham as contas configuradas na visão (CV3_RECDES). Com base nos registros encontrados na tabela CV3, será possível buscar as Guias (através dos conteúdos dos campos CV3_TABORI e CV3_KEY ou buscar pelo Recno - CV3_RECORI). Para localizar os títulos (Receber e/ou Pagar), primeiro é necessário verificar o contrato do beneficiário. 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"), respeitando o que foi informado na pergunta (Tipo: A Receber, A Pagar ou Ambos). Caso encontre o título, deve considerar somente se o mesmo estiver em aberto, ou seja, com o campo saldo maior que zero. Gravar na posição de saldo, o conteúdo do campo: BD7_VLRMAN.
   4. 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.
   5. Para identificar o tipo de Cobertura ("H" ou "O"), será necessário verificar na tabela padrão - BR8 - (para realizar a busca, utilizar os campos: BD7_CODPAD+BD7_CODPRO). Verificar o campo BR8_ODONTO == "1", gravar "O", para outros casos gravar "H". Ratear o valor total da operadora em Hospitalar e Odontológico.
   6. Verificar a Reciprocidade (Assumida ou Cedida) para gravar o código da operadora do intercâmbio:
      Assumida: Com base nas informações da Guia (beneficiário), buscar no contrato se é intercâmbio (BT5_TIPOIN = "1"). Em caso afirmativo, considerar o código da operadora no campo BT5_CODANS (campo novo que armazena o código da operadora junto a ANS). 
      Cedida: Com base nas informações da Guia (beneficiário), buscar no contrato se não é intercâmbio (BT5_TIPOIN = "0"). Em caso afirmativo, considerar o código do prestador. Se a classe do prestador (BAU_TIPPRE) for igual ao conteúdo do parâmetro (MV_PLSTPIN), buscar no cadastro de Operados ("BA0") com o código do campo BAU_CODOPE e gravar no arquivo o campo BA0_SUSEP.
       
5. 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
    
    

Dicionário de Dados

Arquivo ou Código do Script: BT5– Grupo de Empresa Contrato

Grupo de Perguntas

 Nome: PLSDINTER