Histórico da Página

...

• 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

• "VERIFICAGERA-ERRO".
• "TRATAHORA-RECONURGENCIA",
• "VL-MINIMO-COB".
• "HORA-URGENCIA"
• "ANTES-GRAVAR"

Include das definições das tabelas temporárias

• CPC-AC0011R.I

...

Tabela de entrada tmp-cpcac0011r-entrada

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

...

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

Definiçã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

field cd-local-atendimento                                    like locaaten.cd-local-atendimento

Definição campo a campo da tabela de entrada

• in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que é chamada – pode assumir o valor " INCLUI";
• nm-ponto-chamada-cpc – "VERIFICA-ERRO", "APOS-VALIDACAO" e "VL-MINIMO-COB";
• 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 "APOS-VALIDACAO" ou "VERIFICA-ERRO";.
• nrcd-rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da basevinculo - 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" 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.
• 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" ou "HORA-URGENCIA" e o beneficiário for de intercâmbio.
• cd-unidade - Unidade do prestador executanteprocedimento – 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".cd-prestador -
• Prestador executanteqt-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-vinculo - Vínculo do prestador executanteuni-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-especialid – Especialidade do prestador executanteclinica – 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".
• cddt-procedimento realizacao – Código 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".qt-procedimento –
• Quantidade 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-uniprest-cli princ – Unidade da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se Código da unidade do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
• cd-prestador-clinica princ – Código da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".dt
• cd-realizacao – Data de realização do procedimento. Esta variável somente terá conteúdo válido 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 "APOS-VALIDACAO" ou "VERIFICA-ERRO".hr
• aa-realizacao - Hora de realização do procedimento. Esta variável somente terá conteúdo válido se 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 "APOS-VALIDACAO" ou "VERIFICA-ERRO".
• cdnr-unidadeguia-prest-princ atendimento – Código da unidade do prestador principalNúmero da guia de atendimento (autorização). Somente será diferente de zeros quando 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-prestadorant - princ – Código da unidade do prestador principaldocumento anterior. Somente  Somente será diferente de zeros informado 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 transacao-ant - Código da transação do documento anterior. Somente será informado quando 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 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-guia-atendimento – Número da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e -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".
• r-beneficiario – recID do beneficiário.
• 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 nr-doc-original-ant - Número do documento original anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".cd
• nr-doc-transacaosistema-ant - Código da transação Número do documento sistema do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".cd
• lg-unidade-prestadora-ant - Código da unidade prestadora do documento anteriorcontinua - 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".
• nr

  vl-

  serie-doc-original-ant - Número da série do documento anterior

  cobrado - Valor cobrado do movimento. Somente será informado quando o ponto de chamada da CPC for "

  VERIFICA

  ANTES-

  ERRO

  GRAVAR".

  nr

• vl-taxa-

  doc

  out-

  original

  uni-

  ant

  cobrado -

  Número do documento original anterior

  Taxa cobrada do movimento. Somente será informado quando o ponto de chamada da CPC for "

  VERIFICA

  ANTES-

  ERRO

  GRAVAR".

  nr

• vl-

  doc

  taxa-

  sistema

  out-

  ant

  principal  -

  Número do documento sistema do documento anterior

  Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "

  VERIFICA

  ANTES-

  ERRO

  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

  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

  ANTES-

  ERRO

  GRAVAR".

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

• cd-taxaunidade-outprest-uni-cobrado - Taxa cobrada do movimentoexec - Unidade do prestador executante . Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".vl

• cd-taxaprestador-out-principal  - Taxa principal do movimentoexecutante - Prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".vl

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

• vlcd-principal - Valor principal do movimento. Somente transacao - Código da transação. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".vl-auxiliar - Valor auxiliar do

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

• nr-unidadedoc-prestoriginal - exec - Unidade do prestador executante Número do documento original. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

• cdnr-prestadordoc-executante - Prestador executantesistema - Número do documento sistema. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

• cdnr-unidadeseq-prestadora - Unidade prestadoradigitacao - Número da sequência do documento. 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".

• -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.cd-local-atendimento - Local de atendimento 

Tabela de entrada tmp-cpc-ac0011r-insumo

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

...

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;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-cpccpc-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 as char
field lg-urgencia                           as log
field lg-clinica-fisio                        as as log
field cd-erro                                 as char format "x(04)"
field lg-valoriza                            as as log
field vl-honorarios                        as dec
field vl-operacional                      as as dec
field vl-operacional as dec
field vl-filme                                 as dec
field cd-moeda                            as as int
field qt-repasse                           as dec
field cd-glosa                              as as int
field cd-classe-erro                      as 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

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

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 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.
• "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 errolg-urgencia – Log que informa se é urgência ou não.
• 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-principal auxi - Taxa principal 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
• lg-taxatroca-out-uni-auxi - Taxa auxiliar do movimentovalores - Indica se os valores serão ou não alterados. 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""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.