Histórico da Página
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
- "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. 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
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";.nr
- -rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da basecd-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" e o beneficiário for da base;nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando .
- qt-procedimento – Quantidade do procedimento 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" e o beneficiário for de intercâmbio.
- cd-unidade uni- Unidade do prestador executantecli – 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-prestador - 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".cd
- -vinculo - Vínculo do prestador executantedt-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".cd
- -especialid – Especialidade do prestador executantehr-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-procedimento prest-princ – Código da unidade do procedimento. Esta variável somente terá conteúdo válido se prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".qt
- cd-prestador-procedimento princ – Quantidade Código do procedimento. Esta variável somente terá conteúdo válido se prestador principal. Somente será diferente de zeros quando 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 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".cd
- aa-guia-clinica atendimento – Código da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se 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".dt
- nr-guia-realizacao atendimento – Data de realização do procedimento. Esta variável somente terá conteúdo válido se 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 "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"
- 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-prestant - 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-transacao-prestadorant - 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 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 anteriorcobrado - Valor cobrado do movimento. Somente será informado quando o ponto de chamada da CPC for "
VERIFICAANTES-
ERROGRAVAR".
nr vl-taxa-
docout-
originaluni-
antcobrado -
Número do documento original anteriorTaxa cobrada do movimento. Somente será informado quando o ponto de chamada da CPC for "
VERIFICAANTES-
ERROGRAVAR".
nrvl-
doctaxa-
sistemaout-
antprincipal -
Número do documento sistema do documento anteriorTaxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "
VERIFICAANTES-
ERROGRAVAR".
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 "
VERIFICAANTES-
ERROGRAVAR".
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-taxa-
cd-prestador-executante - Prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".
cd-unidade-prestadora - Unidade prestadoraout-principal - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".vl
cd-taxa-out-uni-auxi - Taxa auxiliar do movimentotransacao - Código da transação. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".
vl-principal - Valor principal do movimentonr-serie-doc-original - Série do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".vl
nr-doc-auxiliar original - Valor auxiliar Número do movimentodocumento original. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".
cdnr-unidadedoc-prestsistema - exec - Unidade do prestador executante Número do documento sistema. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".
cdnr-prestadorseq-executante - Prestador executantedigitacao - Número da sequência do documento. 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".
- -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;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.