CPC-RTPROEXC.P

• Rotina utilizada para permitir a operadora tratar os procedimentos com combinação não permitida.
• 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.

Localização

• Para o ponto de chamada "TRATA-PROC", no início do programa rtproexc.p.

Ponto de Utilização

"TRATA-PROC"

Include das definições das tabelas temporárias

• CPC-RTPROEXC.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- rtproexc-entrada

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

field in-evento-programa                      as char format "x(10)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field cd-amb-excludente                       as int format "99999999"
field r-usuario                                       as recid
field in-modulo                                     as char

Definição campo a campo da tabela de entrada

• • • in-evento-programa: O valor desse campo deve ser "CONSULTA".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza: "TRATA-PROC".
    • cd-amb-excludente – Código do procedimentos excludente, procedimento combinação não permitida.
    • r-usuario – Recid do usuário que está utilizando o procedimento.
    • In-modulo – Indicador do módulo que está sendo verificado (AT, RC).

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

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

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

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-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC.
    • Lg-glosa – indica se ocorreu glosa.