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.

Localização

• Quando da verificação da existência do procedimento autorizado na guia (AIH), dentro da rotina rtveraut.p

Ponto de Utilização

"VERIF-GLOSA-EXI"

"ANTES-GLOSA"

"APOS-GLOSA"

Include das definições das tabelas temporárias

• cpc-rtveraut.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtveraut-entrada

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 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. 
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
    • 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 - Indica ano da guia
    • nr-guia-atendimento - Indica número da guia
    • cd-unidade  - Código da unidade
    • cd-esp-amb - Código da especialidade do procedimento
    • cd-grupo-proc - Codigo do grupo do procedimento
    • cd-procedimento - Código do procedimento
    • dv-procedimento - Dígito verificador do procedimento
    • cd-tipo-insumo - Tipo do Insumo
    • cd-insumo - Código do Insumo
    • cd-classe-erro - Código da 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 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 - Código da classe de erro