CPC-AC0012R.P

• Rotina utlizada no momento da verificação de erro/restrição.
• 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 ac0012r.p, no momento da leitura da tabelas de erros do sistema onde, por meio da tabela temporária de saída (tmp-cpc-ac0012r-saida) o campo "lg-continua" indicará o retorno ou não do processamento.

Pontos de Utilização

• "VERIFICA-ERRO".
• "HORA-URGENCIA".
• "ANTES-GRAVAR".
• "GERA-ERRO".
• "APOS-RTAPI058".

Include das definições das tabelas temporárias

• CPC-AC0012R.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac0012r-entrada

def temp-table tmp-cpc-ac0012r-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 nr-recid-pres-exec                             as recid
field nr-recid-pres-sol                                as recid
field nr-recid-pres-pri                                 as recid
field cd-tipo-insumo                                  like insumos.cd-tipo-insumo
field cd-insumo                                         like insumos.cd-insumo
field qt-insumo                                         like mov-insu.qt-insumo
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-pacote                                         like paproins.cd-pacote
field aa-guia-atendimento                        like guiautor.aa-guia-atendimento
field nr-guia-atendimento                         like guiautor.nr-guia-atendimento
field cd-procedimento                              as int format '99999999'
field cd-unidade-carteira                           like car-ide.cd-unimed
field cd-unidade-executante                     like preserv.cd-unidade
field cd-prestador-executante                   like preserv.cd-prestador
field lg-urgencia                                       as log
field nr-processo                                      as int
field nr-sequencia                                    as int
field in-tipo-movto                                    as char format "x(01)"
field lg-registro-atual                                as log
field ds-mensagem                                  as char format "x(75)"
field cd-unidade-ant                                 like docrecon.cd-unidade-ant
field cd-unidade-prestadora-ant               like docrecon.cd-unidade-prestadora-ant
field cd-transacao-ant                              like docrecon.cd-transacao-ant
field nr-serie-doc-original-ant                    like docrecon.nr-serie-doc-original-ant
field nr-doc-original-ant                             like docrecon.nr-doc-original-ant
field nr-doc-sistema-ant                            like docrecon.nr-doc-sistema-ant
field lg-continua                                       as log
field vl-cobrado                                        like insuusos.vl-cobrado
field vl-taxa-out-uni-cobrado                     like insuusos.vl-taxa-out-insumo
field vl-insumo                                          like insuusos.vl-insumo
field vl-taxa-out-insumo                            like insuusos.vl-taxa-out-insumo
field cd-unidade-prestadora                     like insuusos.cd-unidade-prestadora
field cd-transacao                                    like insuusos.cd-transacao
field nr-serie-doc-original                          like insuusos.nr-serie-doc-original
field nr-doc-original                                  like insuusos.nr-doc-original
field nr-doc-sistema                                 like insuusos.nr-doc-sistema
field nr-seq-digitacao                               like insuusos.nr-seq-digitacao
field cd-unidade                                      like docusos.cd-unidade

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";
• cd-erro-sistema – Código gerado pelo sistema de erro de processamento;
• nr-rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da base;
• nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio;
• nr-recid-pres-exec – RECID de acesso a tabela PRESERV do prestador executante;
• nr-recid-pres-sol – RECID de acesso a tabela PRESERV do prestador solicitante;
• nr-recid-pres-pri – RECID de acesso a tabela PRESERV do prestador principal;
• cd-tipo-insumo – Código do tipo do insumo;
• cd-insumo – Código do insumo;
• qt-insumo – Quantidade do insumo;
• cd-uni-cli – Unidade da clínica onde é utilizado o insumo;
• cd-clinica – Código da clínica onde é utilizado o insumo;
• dt-realizacao – Data de utilizado o insumo;
• hr-realizacao - Hora de utilizado o insumo;
• cd-pacote – Código do pacote;
• aa-guia-atendimento – Ano da guia de atendimento (autorização);
• nr-guia-atendimento – Número da guia de atendimento (autorização);
• cd-procedimento – Código do procedimento;
• cd-unidade-carteira – Código da unidade da Carteira do Beneficiário;
• cd-unidade-executante – Código da unidade do Executante;
• cd-prestador-executante – Código do prestador Executante;
• lg-urgencia – Log que informa se será Urgência 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-insumo  - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

• vl-insumo - Valor do movimento. 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-unidade - Unidade do prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

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

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

field lg-continua                       as log initial yes
field ds-mensagem                 as char format "x(50)"
field lg-urgencia                       as log
field cd-erro-sistema                as int
field vl-insumo                         like insuusos.vl-insumo
field vl-taxa-out-insumo            like insuusos.vl-taxa-out-insumo
field lg-troca-valores                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).
• ds-mensagem – Mensagem retornada da CPC.
• lg-urgencia – Log que informa se será um procedimento de Urgência ou não. 
• vl-insumo - Valor 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-insumo - Valor da taxa 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".