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.

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, 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 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 de acordo com o layout abaixo:

Descrição da conta;valor

Exemplo:

Recebimentos de Plano Saúde;22664.00 

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ódigo do livro
   4. Cód. Config. LivrosPeríodo: 1 - Diário; 2 - Mensal
       
3. Criar novas funções no fonte para montar arquivo temporário com os valores de recebimentos e pagamentos, seguindo exemplo do relatório CTBR560(Contabilidade Gerencial - Relatórios - Demonstrativos - Dem. Fluxo Caixa).:
   
   1. Utilizar a função CTBSetOf, passando como parâmetro o código do livro. O retorno é um array que contém as informações necessárias para serem usadas na função CtGerPlan.
   2. Utilizar a mesma função do relatório (CTBR560) - CtGerPlan. Essa função gera um alias temporário com todas as informações contábeis informadas na visão gerencial.  Usar a CTGerPlan com a função MsgMeter, como no exemplo: 

      1. MsgMeter({| oMeter, oText, oDlg, lEnd | ;
         CTGerPlan( oMeter, oText, oDlg, @lEnd, @cArqTmp, dFinalA+1, dFinal;
         , "", "", "", Repl( "Z", Len( CT1->CT1_CONTA )), ""; 
         , Repl( "Z", Len(CTT->CTT_CUSTO)), "", Repl("Z", Len(CTD->CTD_ITEM));
         , "", Repl("Z", Len(CTH->CTH_CLVL)), mv_par03, /*MV_PAR15*/cSaldos, aSetOfBook, Space(2);
         , Space(20), Repl("Z", 20), Space(30),,,,, mv_par04=1, mv_par05;
         , ,lVlrZerado,,,,,,,,,,,,,,,,,,,,,,,,,cMoedaDesc,lMovPeriodo,aSelFil,,.T.,MV_PAR17==1)};
         ,STR0006, STR0001)

      2. Para usar a função CTGerPlan é necessário passar como parâmetros alguns dados como:
         
         

         oMeter: Controle da régua 

          

         oText: Controle da régua 

          

         oDlg: Janela                                              

          

         lEnd = .T.

          

         cArqtmp: pode passar em branco

          

         dDataIni: MV_PAR01

          

         dDataFim: MV_PAR02

          

         cAlias: "CT7"

          

         cIdent: ""

          

         cContaIni: ""

          

         cContaFim: Repl( "Z", Len( CT1->CT1_CONTA ))

          

         cCCIni: ""

          

         cCCFim: Repl( "Z", Len(CTT->CTT_CUSTO))

          

         cItemIni: ""

          

         cItemFim: Repl("Z", Len(CTD->CTD_ITEM))

          

         cClvlIni: ""

          

         cClVlFim: Repl("Z", Len(CTH->CTH_CLVL))

          

         cMoeda: "01"

          

         cSaldos: CT510TRTSL()

          

         aSetOfBook: CTBSetOf(mv_par03)

          

         cSegmento: pode passar em branco
         cSegIni: ""

          

         cSegFim: Repl("Z", 20)

          

         cFiltSegm: Space(30)

          

         lNImpMov: pode passar em branco

          

         lImpConta: pode passar em branco

          

         nGrupo:pode passar em branco

          

         cHeader: pode passar em branco

          

         lImpAntLP: .F. 

          

         dDataLP: pode passar em branco 
         nDivide: pode passar em branco

          

         lVlrZerado: .T.

          

         cFiltroEnt: pode passar em branco

          

         cCodFilEnt: pode passar em branco

          

         cSegmentoG: pode passar em branco

          

         cSegIniG: pode passar em branco

          

         cSegFimG: pode passar em branco

          

         cFiltSegmG: pode passar em branco
         lUsGaap: pode passar em branco

          

         cMoedConv: pode passar em branco

          

         cConsCrit: pode passar em branco

          

         dDataConv: pode passar em branco

          

         nTaxaConv: pode passar em branco

          

         aGeren: pode passar em branco

          

         lImpMov: pode passar em branco

          

         lImpSint: pode passar em branco

          

         cFilUSU: pode passar em branco

          

         lRecDesp0: pode passar em branco
         cRecDesp: pode passar em branco

          

         dDtZeraRD: pode passar em branco

          

         lImp3Ent: pode passar em branco

          

         lImp4Ent: pode passar em branco

          

         lImpEntGer: pode passar em branco

          

         lFiltraCC: pode passar em branco

          

         lFiltraIt: pode passar em branco

          

         lFiltraCV: pode passar em branco

          

         cMoedaDsc: pode passar em branco

          

         lMovPeriodo: pode passar em branco

          

         aSelFil: pode passar em branco

          

         dDtCorte: pode passar em branco

          

         lPlGerSint: pode passar em branco

          

         lConsSaldo: .T.

          

         lCompEnt: pode passar em branco

          

         cArqAux: pode passar em branco

          

         lUsaNmVis: pode passar em branco

          

         cNomeVis: pode passar em branco

          

         lCttSint: pode passar em branco
         lTodasFil: pode passar em branco

          

         cQuadroCTB: pode passar em branco

          

         aEntidades: pode passar em branco

          

         cCodEntidade: pode passar em branco

   3. Com o resultado da função CtGerPlan, percorrer todos os registros do alias temporário e gravar no array as informações da DIOPS: Descrição da conta e o saldo atual respectivo.
   4. Seguindo o exemplo CTBR560, criar função PLSDFLCXTR() similar a CtbR560(), modificando os parâmetros utilizando o pergunte criado anteriormente (PLSDFLCXTR), além de alterar o cTitulo para "Fluxo de Caixa Trimestral";
   5. Criar nova função similar a função CTBR560R3() para verificação se os parâmetros Data Inicial e Data Final estão dentro do calendário cadastrado na CTG;
   6. Criar nova função similar a função Ctr560Det() para criação dos detalhes do relatório, como as linhas do relatório não são contas contábeis, deverá fazer um rastro para identificar os títulos correspondentes a cada linha.
      Exemplo: Recebimentos de plano de saúde
      Na visão gerencial será criado esta linha “Recebimentos de Plano de Saúde” e vinculada a conta contábil 3111...,  porém nesta conta contábil totaliza todas as Contraprestações emitidas. Sendo assim para saber o valor  somente dos recebidos desta  conta, deverá fazer o seguinte rastro:
   7. Código de configuração de livro (CTN) de acordo com o conteúdo do parâmetro;
   8. Visão gerencial (CTS) de acordo com o código de configuração do livro;
   9. Contas relacionadas (CT1) à Visão Gerencial;
   10. Verificar os lançamento contabilizados na conta encontrada (exemplo: 3111...) no período informado.
   11. Verificar o campo CT5_ATIVCR que será o número do lote de cobrança.
   12. Ir na BM1 e verificar todos os títulos vinculados neste lote de cobrança. Campo BM1_PREFIX + BM1_NUMTITI.
   Ir na SE5 e verificar se este títulos estão baixados, não considerando os títulos que estão baixados por FAT, DAC, LIQ.
   

   Criar laço while para percorrer todos os registros localizados pela query e somar os valores localizados, seguindo o exemplo existente na função Ctr560Det:
    

   Bloco de código
   language delphi title Repetição query
   Do Case Case nPosCol = 1 nSaldo := cArqTmp->SALDOATU If cArqTmp->TIPOCONTA == "1" .AND. Empty( cArqTmp->SUPERIOR ) .AND. cArqTmp->TOTVIS == "1" nSaldoAtu += nSaldo EndIf Case nPosCol = 2 nSaldo := cArqTmp->SALDOANT If cArqTmp->TIPOCONTA == "1" .AND. Empty( cArqTmp->SUPERIOR ) .AND. cArqTmp->TOTVIS == "1" nSaldoAnt += nSaldo EndIf Case nPosCol = 3 nSaldo := GetVarEnt(cArqTmp->CONTA,cCodVis,cArqTmp->ORDEM)//cArqTmp->(SALDOATU-SALDOANT) If cArqTmp->TIPOCONTA == "1" .AND. Empty( cArqTmp->SUPERIOR ) .AND. cArqTmp->TOTVIS == "1" nSaldoVar += nSaldo EndIf EndCase

    
   13. Utilizar a função (PLSGerCSV) para geração do arquivo CSV, passando os seguintes parâmetros:
       - Nome do arquivo
       - cabeçalho do arquivo
       - array com os dados. Ex: {Recebimentos de Plano Saúde;22664.00 }
   Image Removed
   1. 
      
      Exemplo da DIOPS de Fluxo Trimestral:
      
      Image Added

Tabelas Utilizadas

• CTN
• CTS
• CT1
• CT2
• CVN
• CVD
  

Grupo de Perguntas

Nome: PLSDFLCXTR