CPC-RTVERAUT.P

• Rotina utilizada verificar se deve o não ser glosado o movimento com a classe de erro 25.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

...

Ponto de Utilização

"VERIF-GLOSA-EXI"

"ANTES-GLOSA"

Include das definições das tabelas temporárias

...

def temp-table tmp-cpc-rtveraut-entrada no-undo

field in-evento-programa               as char format "x(10)"
field nm-ponto-chamada-cpc         as char format "x(15)"
field nr-recid-movto as recid
field in-tp-movto as char
field lg-mensagem-tela                  as logas log
field aa-guia-atendimento like insuguia.aa-guia-atendimento
field nr-guia-atendimento like insuguia.nr-guia-atendimento
field cd-unidade as int
field cd-esp-amb like procguia.cd-esp-amb
field cd-grupo-proc like procguia.cd-grupo-proc-amb
field cd-procedimento like procguia.cd-procedimento
field dv-procedimento like procguia.dv-procedimento
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field cd-classe-erro like claserro.cd-classe-erro.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-rtveraut.p. O valor deste campo pode ser:
    • "CONS-PROCEDIMENTO".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina rtveraut.p:
    • "VERIF-GLOSA-EXI".
    • lg-mensagem-tela – Indica se deverá ou não ser apresentada mensagem de aviso/erro em tela quando ocorrer alguma restrição, implementada pela operadora, dentro da CPC.
    • aa-guia-atendimento - ano da guia
    • nr-guia-atendimento - numero da guia
    • cd-unidade  - Codigo da unidade
    • cd-esp-amb - Codigo do procedimento
    • cd-grupo-proc - Codigo do procedimento
    • cd-procedimento - Codigo do procedimento
    • dv-procedimento - Codigo do procedimento
    • cd-tipo-insumo - Tipo do Insumo
    • cd-insumo - Codigo do Insumo
    • cd-classe-erro - Classe de erro

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

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

field lg-glosa-movto             as log
field lg-undo-retry                as as log
field ds-mensagem             as char format "x(75)"
field cd-classe-erro like claserro.cd-classe-erro.

Definição campo a campo da tabela de saída

• • • Lg-glosa-movto – Indica se o movimento em questão deverá ou não ser glosado com a classe de erro 25.
    • Lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM indicará que erros aconteceram se se o retorno for igual a NÃO indicará que o processo foi concluído por completo.
    • Ds-mensagem – Mensagem de retorno quando o parâmetro Lg-undo-retry for igual a YES.

...

• • • cd-classe-erro - Classe de erro