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 Inicial Data Final 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 as devidas verificações nos parâmetros de datas e do código do livro. Sobre o código do livrodos 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:

1.  Controle da régua 

    

   oText:

1.  Controle da régua 

    

   oDlg:

1.  Janela                                          

1.    

    

   lEnd = .T.

    

   cArqtmp: pode passar em branco

    

   dDataIni:

1. a data inicial vai depender do parâmetro escolhido.

    

   dDataFim: MV_

1. 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_

1. par02)

    

   cSegmento:

1.  pode passar em branco
   cSegIni: ""

    

   cSegFim: Repl("Z", 20)

    

   cFiltSegm: Space(30)

    

   lNImpMov:

1.  pode passar em branco

    

   lImpConta:

1.  pode passar em branco

    

   nGrupo:pode passar em branco

    

   cHeader:

1.  pode passar em branco

    

   lImpAntLP: .F. 

    

   dDataLP:

1.  pode passar em branco 
   nDivide:

1.  pode passar em branco

    

   lVlrZerado: .T.

    

   cFiltroEnt:

1.  pode passar em branco

    

   cCodFilEnt:

1.  pode passar em branco

    

   cSegmentoG:

1.  pode passar em branco

    

   cSegIniG:

1.  pode passar em branco

    

   cSegFimG:

1.  pode passar em branco

    

   cFiltSegmG:

1.  pode passar em branco
   lUsGaap:

1.  pode passar em branco

    

   cMoedConv:

1.  pode passar em branco

    

   cConsCrit:

1.  pode passar em branco

    

   dDataConv:

1.  pode passar em branco

    

   nTaxaConv:

1.  pode passar em branco

    

   aGeren:

1.  pode passar em branco

    

   lImpMov:

1.  pode passar em branco

    

   lImpSint:

1.  pode passar em branco

    

   cFilUSU:

1.  pode passar em branco

    

   lRecDesp0:

1.  pode passar em branco
   cRecDesp:

1.  pode passar em branco

    

   dDtZeraRD:

1.  pode passar em branco

    

   lImp3Ent:

1.  pode passar em branco

    

   lImp4Ent:

1.  pode passar em branco

    

   lImpEntGer:

1.  pode passar em branco

    

   lFiltraCC:

1.  pode passar em branco

    

   lFiltraIt:

1.  pode passar em branco

    

   lFiltraCV:

1.  pode passar em branco

    

   cMoedaDsc:

1.  pode passar em branco

    

   lMovPeriodo:

1.  pode passar em branco

    

   aSelFil:

1.  pode passar em branco

    

   dDtCorte:

1.  pode passar em branco

    

   lPlGerSint:

1.  pode passar em branco

    

   lConsSaldo: .T.

    

   lCompEnt:

1.  pode passar em branco

    

   cArqAux:

1.  pode passar em branco

    

   lUsaNmVis:

1.  pode passar em branco

    

   cNomeVis:

1.  pode passar em branco

    

   lCttSint:

1.  pode passar em branco
   lTodasFil:

1.  pode passar em branco

    

   cQuadroCTB:

1.  pode passar em branco

    

   aEntidades:

1.  pode passar em branco

    

   cCodEntidade:

1.  pode passar em branco

    
   
2. Sendo assim para saber o valor da conta, deverá fazer o seguinte rastro:
3. Código de configuração de livro (CTN) de acordo com o conteúdo do parâmetro;
4. Visão gerencial (CTS) de acordo com o código de configuração do livro;
5. Contas relacionadas (CT1) à Visão Gerencial;
Verificar os lançamentos contabilizados na conta encontrada (exemplo: 3111...) no período informado.
6. A chamada da rotina CTGERPLAN, será executada duas vezes. Ou seja, uma para gerar dados para contraprestações e outra para Eventos. 
7. Criar função para gerar o arquivo CSV com o seguinte layout

1. • • Descrição da Conta 

1. • • 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

Tamanho

1

Descrição

Tipo de Conta Diops

Título

Tp. Cta. Diops

• • CTN 
  • CTS 
  • CT1 
  • CT2 
  • CVN 

Dicionário de Dados

Campo

CTS_DIOPS

Tipo

C

Propriedade

Help de Campo

Identifica tipo de Conta DIOPS: Contraprestação ou Eventos

Grupo de Perguntas 

Nome: PLSDSOLV