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.

  Âncora__RefHeading__21685_2053127524__RefHeading__21685_2053127524 Âncora__RefHeading__7840_486694287__RefHeading__7840_486694287 Âncora__RefHeading__3051_213273755__RefHeading__3051_213273755 Âncora__RefHeading__12449_644533341__RefHeading__12449_644533341 Âncora__RefHeading__88347_1756225838__RefHeading__88347_1756225838

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

  Âncora__RefHeading__21689_2053127524__RefHeading__21689_2053127524 Âncora__RefHeading__7844_486694287__RefHeading__7844_486694287 Âncora__RefHeading__3055_213273755__RefHeading__3055_213273755 Âncora__RefHeading__12453_644533341__RefHeading__12453_644533341 Âncora__RefHeading__88351_1756225838__RefHeading__88351_1756225838

Include das definições das tabelas temporárias

• CPC-AC0012R.I

...

Tabelas de entrada e saída
Âncora__RefHeading__21693_2053127524__RefHeading__21693_2053127524 Âncora__RefHeading__7848_486694287__RefHeading__7848_486694287 Âncora__RefHeading__3059_213273755__RefHeading__3059_213273755 Âncora__RefHeading__12457_644533341__RefHeading__12457_644533341 Âncora__RefHeading__88355_1756225838__RefHeading__88355_1756225838

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.

Âncora__RefHeading__21695_2053127524__RefHeading__21695_2053127524 Âncora__RefHeading__7850_486694287__RefHeading__7850_486694287 Âncora__RefHeading__3061_213273755__RefHeading__3061_213273755 Âncora__RefHeading__12459_644533341__RefHeading__12459_644533341 Âncora__RefHeading__88357_1756225838__RefHeading__88357_1756225838 

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.

Âncora__RefHeading__21697_2053127524__RefHeading__21697_2053127524 Âncora__RefHeading__7852_486694287__RefHeading__7852_486694287 Âncora__RefHeading__3063_213273755__RefHeading__3063_213273755 Âncora__RefHeading__12461_644533341__RefHeading__12461_644533341 Âncora__RefHeading__88359_1756225838__RefHeading__88359_1756225838Tabela 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.

Âncora__RefHeading__21699_2053127524__RefHeading__21699_2053127524 Âncora__RefHeading__7854_486694287__RefHeading__7854_486694287 Âncora__RefHeading__3065_213273755__RefHeading__3065_213273755 Âncora__RefHeading__12463_644533341__RefHeading__12463_644533341 Âncora__RefHeading__88361_1756225838__RefHeading__88361_1756225838Definiçã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.

...