Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

CPC-AC0011R.P

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

cpc-ac0011r.p


  • Rotina utlizada no momento da verificação de erro de sistema durante a gravação de procedimentos, após a verificação do controle de reconsulta pelo sistema e após a valorização do procedimento.
  • Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
  • Será permitido para esta CPC apenas um registro na tabela temporária de saída.


Localização

  • Dentro do programa ac0011r.p no momento da leitura da tabelas de erros do sistema, onde por meio da tabela temporaria de saída (tmp-cpc-ac0011r-saida), o campo "lg-continua" indicará o retorno ou não do processamento.
  • Após o tratamento da reconsulta pelas rotinas do sistema. O campo cd-erro-sistema indicará o retorno do processamento da CPC.
  • Após a valorização do procedimento. O campo lg-continua indicará se será verificado as regras de autorização com o valor de cobrança.


Pontos de Utilização

  • "GERA-ERRO"
  • "HORA-URGENCIA"
  • "GLOSA-PRO"
  • "APOS-RTAPI058"
  • "INICIO-RECONS"
  • "INI-CONS-GUIA"
  • "APOS-VALIDA"
  • "APOS-CONS-GUIA"
  • "ANTES-VALORIZA"
  • "ANTES-GRAVAR"
  • "TRATA-RECON"
  • "VERIFICA-ERRO"
  • "VL-MINIMO-COB"
  • "APOS-BUSCATABPG" - a partir da versão 12.1.2301
  • "ANT-COB-PADRAO" - a partir da versão 12.1.2407

Include das definições das tabelas temporárias

  • CPC-AC0011R.I


Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac0011r-entrada

def temp-table tmp-cpc-ac0011r-entrada no-undo

    field in-evento-programa          as char format "x(06)"
    field nm-ponto-chamada-cpc        as char format "x(15)"
    field cd-erro-sistema             as int
    field nr-rowid-usuario            as rowid
    field nr-rowid-out-uni            as rowid
    field cd-unidade                  like previesp.cd-unidade
    field cd-prestador                like previesp.cd-prestador
    field cd-vinculo                  like previesp.cd-vinculo
    field cd-especialid               like previesp.cd-especialid
    field cd-procedimento             like ambcbhpm.cd-amb
    field qt-procedimento             as int  format "9999" 
    field cd-uni-cli                  like moviproc.cd-unidade-clinica
    field cd-clinica                  like moviproc.cd-clinica        
    field dt-realizacao               as date format "99/99/9999"
    field hr-realizacao               as char format "x(08)"
    field cd-unidade-prest-princ      like paproins.cd-unidade
    field cd-prestador-princ          like paproins.cd-prestador
    field cd-pacote                   like paproins.cd-pacote
    field aa-guia-atendimento         like guiautor.aa-guia-atendimento
    field nr-guia-atendimento         like guiautor.nr-guia-atendimento
    field r-beneficiario              as recid
    field r-docusos                   as recid
    field lg-urgencia                 as log
    field nr-processo                 as int
    field nr-sequencia                as int
    field lg-registro-atual           as log
    field ds-mensagem                 as char format "x(75)"
    field cd-esp-amb                  like ambproce.cd-esp-amb        
    field cd-grupo-proc-amb           like ambproce.cd-grupo-proc-amb 
    field cd-procedimento-amb         like ambproce.cd-procedimento   
    field dv-procedimento             like ambproce.dv-procedimento
    field cd-erro                     as char format "9999"
    field in-tipo-movto               as char format "x(01)"
    field cd-glosa                    as int
    field cd-classe-erro              as int
    field lg-reconsulta-aux           as log    
    field cd-unidade-ant              like paproins.cd-unidade 
    field cd-transacao-ant            like tranrevi.cd-transacao
    field cd-unidade-prestadora-ant   like moviproc.cd-unidade-prestadora
    field nr-serie-doc-original-ant   like moviproc.nr-serie-doc-original
    field nr-doc-original-ant         like moviproc.nr-doc-original
    field nr-doc-sistema-ant          like moviproc.nr-doc-sistema
    field lg-continua                 as log
    field vl-cobrado                  like procusos.vl-cobrado           
    field vl-taxa-out-uni-cobrado     like procusos.vl-taxa-out-uni-prin 
    field vl-taxa-out-principal       like procusos.vl-taxa-out-uni-prin 
    field vl-taxa-out-uni-auxi        like procusos.vl-taxa-out-uni-auxi 
    field vl-principal                like procusos.vl-principal           
    field vl-auxiliar                 like procusos.vl-auxiliar
    field cd-unidade-prest-exec       like preserv.cd-unidade
    field cd-prestador-executante     like preserv.cd-prestador
    field cd-unidade-prestadora       like procusos.cd-unidade-prestadora
    field cd-transacao                like procusos.cd-transacao
    field nr-serie-doc-original       like procusos.nr-serie-doc-original
    field nr-doc-original             like procusos.nr-doc-original
    field nr-doc-sistema              like procusos.nr-doc-sistema
    field nr-seq-digitacao            like procusos.nr-seq-digitacao
    field cd-local-atendimento        like locaaten.cd-local-atendimento
    field vl-servico                  like procusos.vl-principal
    field h-mensagens                 as handle
    field in-res-div                  as char
    field lg-div-hon                  as logical
    field h-ac0011r-proced            as handle
    field cd-pos-equipe               like moviproc.cd-pos-equipe
    field cd-tab-preco-proc           like moviproc.cd-tab-preco-proc
    field hr-realizacao-fim        as char
    field h-wk-handle               as handle.

Âncora__RefHeading__21663_2053127524__RefHeading__21663_2053127524 Âncora__RefHeading__7818_486694287__RefHeading__7818_486694287 Âncora__RefHeading__3029_213273755__RefHeading__3029_213273755 Âncora__RefHeading__12427_644533341__RefHeading__12427_644533341 Âncora__RefHeading__88325_1756225838__RefHeading__88325_1756225838Localização
Dentro do programa ac0011r.p no momento da leitura da tabelas de erros do sistema onde através da tabela temporais de saída (tmp-cpc-ac0011r-saida) o campo "lg-continua" indicara o retorno ou não do processamento.
Após o tratamento da reconsulta pelas rotinas do sistema. O campo cd-erro-sistema indicará o retorno do processamento da CPC.
Após a valorização do procedimento. O campo lg-continua indicará se será verificado as regras de autorização com o valor de cobrança.
Âncora__RefHeading__21665_2053127524__RefHeading__21665_2053127524 Âncora__RefHeading__7820_486694287__RefHeading__7820_486694287 Âncora__RefHeading__3031_213273755__RefHeading__3031_213273755 Âncora__RefHeading__12429_644533341__RefHeading__12429_644533341 Âncora__RefHeading__88327_1756225838__RefHeading__88327_1756225838Pontos de Utilização
"VERIFICA-ERRO".
"TRATA-RECON",
"VL-MINIMO-COB".
"HORA-URGENCIA"
Âncora__RefHeading__21667_2053127524__RefHeading__21667_2053127524 Âncora__RefHeading__7822_486694287__RefHeading__7822_486694287 Âncora__RefHeading__3033_213273755__RefHeading__3033_213273755 Âncora__RefHeading__12431_644533341__RefHeading__12431_644533341 Âncora__RefHeading__88329_1756225838__RefHeading__88329_1756225838Include das definições das tabelas temporárias
CPC-AC0011R.I
Âncora__RefHeading__21669_2053127524__RefHeading__21669_2053127524 Âncora__RefHeading__7824_486694287__RefHeading__7824_486694287 Âncora__RefHeading__3035_213273755__RefHeading__3035_213273755 Âncora__RefHeading__12433_644533341__RefHeading__12433_644533341 Âncora__RefHeading__88331_1756225838__RefHeading__88331_1756225838Tabelas de entrada e saída
Âncora__RefHeading__21671_2053127524__RefHeading__21671_2053127524 Âncora__RefHeading__7826_486694287__RefHeading__7826_486694287 Âncora__RefHeading__3037_213273755__RefHeading__3037_213273755 Âncora__RefHeading__12435_644533341__RefHeading__12435_644533341 Âncora__RefHeading__88333_1756225838__RefHeading__88333_1756225838Tabela de entrada tmp-cpcac0011r-entrada
def temp-table tmp-cpc-ac0011r-entrada no-undo
field in-evento-programa as char format "x(06)
field nm-ponto-chamada-cpc as char format "x(15)
field cd-erro-sistema as int
field nr-rowid-usuario as rowid
field nr-rowid-out-uni as rowid
field cd-unidade like previesp.cd-unidade
field cd-prestador like previesp.cd-prestador
field cd-vinculo like previesp.cd-vinculo
field cd-especialid like previesp.cd-especialid
field cd-procedimento like ambcbhpm.cd-amb
field qt-procedimento as int format "9999"
field cd-uni-cli like moviproc.cd-unidade-clinica
field cd-clinica like moviproc.cd-clinica
field dt-realizacao as date format "99/99/9999"
field hr-realizacao as char format "x(08)"
field cd-unidade-prest-princ like paproins.cd-unidade
field cd-prestador-princ like paproins.cd-prestador
field cd-pacote like paproins.cd-pacote
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field r-beneficiario as recid
field lg-urgencia as log.
Âncora__RefHeading__21673_2053127524__RefHeading__21673_2053127524 Âncora__RefHeading__7828_486694287__RefHeading__7828_486694287 Âncora__RefHeading__3039_213273755__RefHeading__3039_213273755 Âncora__RefHeading__12437_644533341__RefHeading__12437_644533341 Âncora__RefHeading__88335_1756225838__RefHeading__88335_1756225838Definição campo a campo da tabela de entrada

  • in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que

...

  • é chamada;
  • nm-ponto-chamada-cpc –

...

  • Nome do ponto de chamada da cpc";
  • cd-erro-sistema – Código gerado pelo sistema de erro de processamento. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "VERIFICA-ERRO";
  • nr-rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da base. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" ou "HORA-URGENCIA" e o beneficiário for da base;
  • nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando o beneficiário de intercâmbio. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO

...

  • " ou "HORA-URGENCIA" e o beneficiário for de intercâmbio.
  • cd-unidade - Unidade do prestador executante. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-prestador - Prestador executante. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-vinculo -

...

  • Vínculo do prestador executante. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-especialid – Especialidade do prestador executante. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-procedimento – Código do procedimento. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • qt-procedimento – Quantidade do procedimento. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-uni-cli – Unidade da clínica onde

...

  • é realizado o procedimento. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-clinica – Código da

...

  • clínica onde

...

  • é realizado o procedimento. Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • dt-realizacao – Data de realização do procedimento.

...

  • Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • hr-realizacao - Hora de realização do procedimento

...

  • . Esta variável somente terá conteúdo

...

  • válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-unidade-prest-princ – Código da unidade do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-prestador-princ – Código do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-pacote – Código do pacote. Somente será diferente de zeros quando o procedimento for oriundo de pacote e se o ponto de chamada da CPC for "VERIFICA-ERRO".
  • aa-guia-atendimento – Ano da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-guia-atendimento – Número da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO".
  • r-beneficiario – recID do beneficiário.
  • r-docusos - RecID do documento de usos.
  • lg-urgencia – Log que informa se é urgência ou não.

...

  • lg-reconsulta-aux - Log que informa se é reconsulta ou não.
  • cd-unidade-ant - Código da unidade do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-transacao-ant - Código da transação do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-unidade-prestadora-ant - Código da unidade prestadora do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-serie-doc-original-ant - Número da série do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-doc-original-ant - Número do documento original anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-doc-sistema-ant - Número do documento sistema do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • lg-continua - Indicador recebido do programa ac0011r.p, indicando se o erro gerado pelo programa é restritivo ou não. Ou seja, quando recebe o valor "no" o erro gerado não permite o programa continuar, e quando recebe "yes" o erro é apenas um alerta. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • vl-cobrado - Valor cobrado do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-uni-cobrado - Taxa cobrada do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-principal  - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-uni-auxi - Taxa auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-principal - Valor principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-auxiliar - Valor auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-unidade-prest-exec - Unidade do prestador executante . Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-prestador-executante - Prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-unidade-prestadora - Unidade prestadora. Somente será informado quando

...

  • o ponto de chamada da CPC for "

...

  • ANTES-

...

  • GRAVAR".

...

  • cd-transacao - Código da transação. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-serie-doc-original -  Série do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-doc-original - Número do documento original. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-doc-sistema - Número do documento sistema. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-seq-digitacao - Número da sequência do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-local-atendimento - Local de atendimento.
  • vl-servico - Valor do procedimento. 
  • h-mensagens - Tabela temporária referente as mensagens.
  • in-res-div - campo que identifica "qual" o prestador de uma divisão de honorários;
  • lg-div-hon - campo que indica se o movimento possui divisão de honorários;
  • h-ac0011r-proced - handle para a temp-table "ac0011r-proced";
  • cd-pos-equipe - campo que identifica a posição do prestador na equipe;
  • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento.
  • hr-realizacao-fim - hora de realização final do procedimento.
  • h-wk-handle - handle da temp-table wk.


Tabela de entrada tmp-cpc-ac0011r-insumo

def temp-table tmp-cpc-ac0011r-insumo no-undo

field cd-tipo-insumo like pacinsu.cd-tipo-insumo
field cd-insumo like pacinsu.cd-insumo
field cd-pacote like pacinsu.cd-pacote
field dt-realizacao like mov-insu.dt-realizacao


Definição campo a campo da tabela de entrada "tmp-cpc-ac0011r-insumo"

  • cd-tipo-insumo – Código do tipo de insumo;
  • cd-insumo – Código do Insumo";
  • cd-pacote – Código do pacote. Somente será diferente de zeros quando o insumo estiver sendo incluído por meio de pacote;
  • dt-realizacao – Data de realização do insumo.

Observação: A Tabela de entrada tmp-cpc-ac0011r-insumo somente possuirá registros quando o documento incluído possuir insumos e o ponto de chamada da CPC for "VERIFICA-ERRO".


Tabela de saída tmp-cpc-ac0011r-saida

def temp-table tmp-cpc-ac0011r-saida no-undo

field lg-continua as log initial yes
field lg-undo-retry as log
field cd-erro-sistema as int
field ds-mensagem as char
field lg-urgencia as log
field lg-clinica-fisio as log
field cd-erro as char format "x(04)"
field lg-valoriza as log
field vl-honorarios as dec
field vl-operacional as dec
field vl-filme as dec
field cd-moeda as int
field qt-repasse as dec
field cd-glosa as int
field cd-classe-erro as int
field lg-reconsulta-aux as log
field vl-principal like procusos.vl-principal
field vl-auxiliar like procusos.vl-auxiliar
field vl-taxa-out-principal like procusos.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like procusos.vl-taxa-out-uni-auxi
field lg-troca-valores as log
field lg-alt-cd-tab-preco-proc    as logical
field cd-tab-preco-proc  like moviproc.cd-tab-preco-proc
field lg-cobertura-padrao as log.


Definição campo a campo da tabela de saída

  • lg-continua – Indica se o processamento deverá ou não prosseguir, a partir do código de erro passado para a CPC por meio da tabela temporária de entrada (cd-erro-sistema). Esta variável somente deverá retornar o valor, quando o ponto de chamada da CPC for igual a "VERIFICA-ERRO" ou "VL-MINIMO-COB".
  • lg-undo-retry – Indica se erros ocorreram durante a execução da CPC-AC0011R.P.
  • cd-erro-sistema - código de erro gerado pela lógica do cliente na CPC. Esta variável somente deverá retornar valor quando o ponto de chamada da CPC for igual a "APOS-VALIDACAO".
  • ds-mensagem – Mensagem de retorno da rotina, quando da ocorrência de erro na execução da CPC-AC0011R.P.
  • lg-urgencia – Log que informa se é urgência ou não.
  • lg-clinica-fisio - Indica se Clinica Fisioterapica
  • cd-erro - Código do erro
  • lg-valoriza - Log que informa se valoriza ou não.
  • vl-honorarios - Valor dos honorários
  • vl-operacional - Valor do operacional
  • vl-filme - Valor filme
  • cd-moeda - Indica código da moeda
  • qt-repasse - Indica campo a quantidade de vezes que a tabela será aplicada para cálculo do valor de pagamento ou cobrança de procedimentos 
  • cd-glosa - Código da glosa
  • cd-classe-erro - Código da classe de erro
  • lg-reconsulta-aux - Log que informa se é reconsulta ou não.
  • vl-principal - Valor principal do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES".
  • vl-auxiliar - Valor auxiliar do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES".
  • vl-taxa-out-principal - Taxa principal do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES".
  • vl-taxa-out-uni-auxi - Taxa auxiliar do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES".
  • lg-troca-valores - Indica se os valores serão ou não alterados. Variável utilizada no ponto "ANTES-GRAVAR".
  • lg-alt-cd-tab-preco-proc - indica se a tabela de quantidade de moedas para pagamento deve ser alterada com a retornada da CPC;
  • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento.
  • lg-cobertura-padrao - Indica se o código deve entrar na rotina de cobertura padrão para alterar o módulo.

...