Informações Gerais

   Legenda: 1 – Inovação 2 – Manutenção (Os demais campos devem ser preenchidos para ambos os processos). 

TULEO2 _ER_DIOPS_SOLVÊNCIA

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 Solvência no DIOPS X-Press.

Definição da Regra de Negócio

Os dados da Solvência 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 PLSDSOLV cuja funcionalidade é gerar o arquivo CSV resultante desta especificação.
2. Criar novo grupo de perguntas PLSDSOLV contendo as seguintes opções:
1. Data Referência
2. Cód. Config. Livros ContraPrestação
3. Qtd Meses Contraprestação: 12 - Meses; 36 - Meses
4. Cód. Config. Livros Eventos 
5. Qtd Meses Eventos: 12 - Meses; 36 – Meses 
3. Realizar verificações nos parâmetros dos códigos dos livros, utilizar a função CtbSetOf, para retornar os dados do Livro; 
4. Usar a função CTGerPlan (ou utilizar como base) para montar arquivo temporário com a somatória (débito e crédito) de cada conta filtrado pelos parâmetros, seguindo exemplo do relatório CTBR510 (Contabilidade Gerencial - Relatórios - Demonstrativos - Demons. resultados). Usar a CTGerPlan com a função MsgMeter, como no exemplo: 
   
   
   MsgMeter({| oMeter, oText, oDlg, lEnd | ;

   1. 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: a data inicial vai depender do parâmetro escolhido.

    

   dDataFim: MV_PAR01

    

   cAlias: ""

    

   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_par02)

    

   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

    
   
5. A chamada da rotina CTGERPLAN, será executada duas vezes. Ou seja, uma para gerar dados para contraprestações e outra para Eventos. 
6. 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:

   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 

Grupo de Perguntas 

Nome: PLSDSOLV