CPC-RTVALGLO.P

Rotina para glosar movimentos:

• 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. Caso possuir mais de um registro um erro será reportado.
• Ponto de chamada de cpc para verificar permissão do usuário para validação de glosas.

Localização

• Dentro do programa rrtvalglo.p, o ponto de chamada "TIPO-COBRANCA" após selecionar o tipo de cobrança.
• Antes de abrir o browse de seleção de validações, o ponto de chamada "ANTES-SELECAO" é acionado.
• Antes da validação da glosa, o ponto de chamada "ANTES-VALIDAÇAO" é acionado.
• Ponto de CPC chamado antes de listar as telas com as informações da cobrança;

Ponto de Utilização

"TIPO-COBRANCA"
"ANTES-SELECAO"
"ANTES-VALIDACAO"

"ANTES-COBRANCA"

Include das definições das tabelas temporárias

• cpc-rtvalglo.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtvalglo-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field cd-tipo-cobranca                           as int
field lista-tipo-cob                                 as char format "x(500)"
field nm-usuario-validacao                   as char format "x(12)"
filed nr-rowid-preserv-par                      as rowid

field in-tipo-movto                                as char

Definição campo a campo da tabela de entrada

• • • in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada.
    • nm-ponto-chamada-cpc – Ponto de chamada da cpc.
    • cd-tipo-cobranaca- Tipo de cobrança do movimento.
    • lista-tipo-cob – Lista com os tipos de cobrança.
    • nm-usuario-validacao – Recebe o usuário conrrente do sistema.
    • nr-rowid-preserv-par - Recebe o prestador para o acesso a tabela específica.
    • in-tipo-movto - Recebe o índice do tipo de movimento (Insumo ou Procedimento).

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

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

field lg-undo-retry-y                       as log
field ds-mensagem-retorno           as char format "x(75)"
field ds-opcao                               as char format "x(50)"

field cd-validacao                         as int.

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

• • • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
    • ds-mensagem– Variável que recebe a descrição dos erros que ocorreram na CPC.
    • ds-opcao – Variável que recebe a opção de tipos de cobraça selecionado.
    • cd-validacao - Variável que recebe o código de validação selecionado.