Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

 Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico.                                                             

  

Informações Gerais

 

Especificação

Produto

Microsiga Protheus

Módulo

SIGAPLS

Segmento Executor

Saúde

Chamado2

TULEO2

País

(x ) Brasil  (  ) Argentina  (  ) Mexico  (  ) Chile  (  ) Paraguai  (  ) Equador

(  ) USA  (  ) Colombia   (  ) Outro _____________.

Outros

<Caso necessário informe outras referências que sejam pertinentes a esta especificação. Exemplo: links de outros documentos ou subtarefas relacionadas>.

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

TULEO2 _ER_DIOPS_SOLVÊNCIA

Objetivo

 

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. 

Rotina

Tipo de Operação

Opção de Menu

Regras de Negócio

PLSDSOLV 

Inclusão

Miscelânea -> ANS -> Relatórios DIOPS -> Solvência

 

 

  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 CtbSetOfpara 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 

X1_ORDEM

01

X1_PERGUNT

Data Referência

X1_TIPO

D

X1_TAMANHO

8

X1_GSC

G

X1_VAR01

MV_PAR01

X1_HELP

Data referência do intervalo para emissão do DIOPS de Solvência
X1_ORDEM02
X1_PERGUNTCód. Conf. Livros Contraprestação
X1_TIPOC
X1_TAMANHO3
X1_GSCG
X1_VAR01MV_PAR02
X1_HELPCódigo da configuração do livro que será considerado na busca de ativos vinculados para o DIOPS.
X1_F3CTN
X1_ORDEM03
X1_PERGUNTQtd Meses Contraprestação
X1_TIPOC
X1_TAMANHO1
X1_GSCC
X1_VAR01MV_PAR03
X1_DEF01"12"
X1_DEF02"36"
X1_HELPInforma a quantidade de meses Contraprestação: 12 (1) ou 36 (2).
X1_ORDEM04
X1_PERGUNTCód. Conf. Livros Eventos
X1_TIPOC
X1_TAMANHO3
X1_GSCG
X1_VAR01MV_PAR04
X1_HELPCódigo da configuração do livro que será considerado na busca de ativos vinculados para o DIOPS.
X1_F3CTN

 

 

X1_ORDEM05
X1_PERGUNTQtd Meses Eventos
X1_TIPOC
X1_TAMANHO1
X1_GSCC
X1_VAR01MV_PAR05
X1_DEF01"12"
X1_DEF02"36"
X1_HELPInforma a quantidade de meses Eventos: 12 (1) ou 36 (2).

 


 

 Este documento é material de especificação dos requisitos de inovação, trata-se de conteúdo extremamente técnico.