Histórico da Página

Informações Gerais

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 ferramente 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 do quadro financeiro - Fluxo Caixa Trimestral no DIOPS X-Press.

Definição da Regra de Negócio

Os dados do Fluxo de Caixa Trimestral devem ser exportados através do Protheus em formato CSV e, posteriormente, incluídos manualmente no DIOPS X-Press, pois não existe a importação automática do arquivo para essa modalidade na ferramenta.

Premissa: para emissão do arquivo deverá ser criada uma Visão Gerencial com o Plano de Contas da ANS e uma configuração de Livro vinculando esta visão.

1. Criar novo fonte PLSDFLCXTR cuja funcionalidade é gerar o arquivo CSV resultante desta especificação.
2. Criar novo grupo de perguntas PLSDFLCXTR contendo as seguintes opções:
   1. Data Inicial
   2. Data Final
   3. Cód. Config. Livros
   4. Período: 1 - Diário; 2 - Mensal
   5. Período anterior: 1 - Sim; 2 - Não
       
3. Criar nova função no fonte para buscar todos os , vinculados à ANS, até a data de referência informada. Para busca dos registros, a query deve:
   
   1. Considerar o parâmetro "Cód. Config. Livros" para buscar a tabela CTN, em seguida será verificada a visão do quadro da DIOPS associada à configuração do livro, sendo possível encontrar as visões gerenciais e as contas contábeis (tabela CTS).
   2. Através da visão gerencial(CTS) serão localizadas as movimentações contábeis (Tabela CT2) das contas definidas e a partir destas movimentações deverá localizar os ativos e verificar quais são Ativos Vinculados (Tabela SN1 e SN3).
   3. A query de busca dos registros deve ser alterada de acordo com o conteúdo do parâmetro "Tipo Bem?", de acordo com as regras abaixo:
      
      1. Se o parâmetro "Tipo Bem?" for igual a 1 - Investimento:
         1. Localizar os registros cujo conteúdo do campo N1_TPCUSTD seja diferente de vazio.
      2. Se o parâmetro "Tipo Bem?" for igual a 2 - Imóvel:
         1. Localizar os registros cujo conteúdo do campo N1_TPCUSTD seja vazio e o conteúdo do campo N1_TPBEM possua algum valor.

   4. Para a "Data de Avaliação" considerar o Max do campo N3_AQUISIC, ou seja, a maior data, com N3_TIPO (Tipo Ativo) somente com conteúdo = "02" (Avaliação positiva).

   5. Considerar apenas os N3_TIPO (Tipo Ativo) que sejam: "01" (Depreciação Fiscal); ou "10" (Depreciação Gerencial/Contábil).

   6. Utilizar como exemplo a query da função ATFDIOPS localizada no fonte ATFXFUN.PRX. Essa função tem como objetivo localizar os investimentos e imóveis, no entanto, será necessário realizar as alterações acima citadas, além de incluir os seguintes campos no retorno:
      1. Código do Ativo - N1_CBASE
      2. Data Venda - N4_DATA (incluir JOIN com a tabela SN4 - objetivo: encontrar movimentação de venda de imóvel).
      3. Data Vencimento - N1_DTBLOQ

   7. Exemplo: função ATFDIOPS localizada em ATFXFUN.PRX:

      Query Busca Ativos

       

4. Criar função para gerar o arquivo CSV com o seguinte layout:
   
   • Descrição da Conta

   • Valor

     Exemplo de função para montagem do CSV (adaptar a função para que o cabeçalho respeite a ordem acima citada, de acordo com o tipo do ativo):

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;Coluna 3;Coluna 4;Coluna 5;"+CRLF)
    For nI := 1 TO Len(aAtivos)
        FWrite(nFileCSV,aAtivos[nI,1]+";"+aAtivos[nI,2]+";"+aAtivos[nI,3]+";"+aAtivos[nI,4]+";"+aAtivos[nI,5]+CRLF)
    Next nI
    FClose(nFileCSV)
Else
    MsgInfo("Não foi possível criar o arquivo " + cDirCsv+cFileRPX,"TOTVS")
EndIf

aaa

Tabelas Utilizadas

• SN1
• SN3
• CTS
• CTN
• CT2

Grupo de Perguntas

Nome: FINSRF2