cpc-ac0011r.p1

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 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.
Pontos de Utilização
"VERIFICA-ERRO".
"TRATA-RECON",
"VL-MINIMO-COB".
"HORA-URGENCIA"
Include das definições das tabelas temporárias
CPC-AC0011R.I
Tabelas de entrada e saída
Tabela 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.
Definição campo a campo da tabela de entrada
in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo 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 valido 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 valido 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 beneficiário de intercâmbio. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" e o beneficiário for de intercâmbio.
cd-unidade - Unidade do prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
cd-prestador - Prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
cd-vinculo - Vinculo do prestador executante. Esta variável somente terá conteúdo valido 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 valido 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 valido 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 valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
cd-uni-cli – Unidade da clínica onde esta sendo realizado o procedimento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
cd-clinica – Código da clinica onde esta sendo realizado o procedimento. Esta variável somente terá conteúdo valido 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 valido 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 valido 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.
lg-urgencia – Log que informa se é urgência ou não.
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.
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 através de pacote;
OBS: 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
field lg-undo-retry as log
field cd-erro-sistema as int
field ds-mensagem as char
field lg-urgencia 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 através da tabela temporária de entrada (cd-erro-sistema). Esta variável somente deverá retornar 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.