cpc-ac0012r.p1

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 através da tabela temporais de saída (tmp-cpc-ac0012r-saida) o campo "lg-continua" indicara o retorno ou não do processamento.
Pontos de Utilização
"VERIFICA-ERRO".
"HORA-URGENCIA".
Include das definições das tabelas temporárias
CPC-AC0012R.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpcac0012r-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 insumo.cd-tipo-insumo
field cd-insumo like insumo.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.
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";
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 esta sendo utilizado o insumo;
cd-clinica – Código da clinica onde esta sendo 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.
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.
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).
ds-mensagem – Mensagem retornada da CPC.
lg-urgencia – Log que informa se será um procedimento de Urgência ou não.