Localização
Dentro do programa rtabrapre.p antes da validação da abrangência por prestador.
Ponto de Utilização
"ABRA-PROCED"
"ABRA-USUARIO"
"BLOQ-ABRA-PROCE"
Include das definições das tabelas temporárias
cpc-rtabrapre.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtabrapre-entrada
def temp-table tmp-cpc-rtabrapre-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade-destino like abrauni.cd-unidade-destino
field cd-abrangencia-plano like abrauni.cd-abrangencia-plano
field in-tipo-prestador like abrauni.in-tipo-prestador
field cd-unidade-prestador-exec like abrauni.cd-unidade-prestador-exec
field cd-prestador-exec like abrauni.cd-prestador-exec
field lg-mens-tela as log
field cd-procedimento like ambcbhpm.cd-amb
field r-usuario as recid
field lg-possui-abrapre-aux as log.
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
nm-ponto-chamada-cpc – Ponto de chamada de cpc que deve ser "ABRA-PROCED"
cd-unidade-destino – Identifica a Unidade de Negociação.
cd-abrangencia-plano – Identifica o código da abrangência a ser considerado para permissão do prestador e procedimento.
in-tipo-prestador – Identifica se o prestador é 0=Executante, 1=Principal ou 2=Ambos.
cd-unidade-prestador-exec – – Identifica a unidade do prestador parametrizada para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão consideradas todas as unidades de prestador para a validação de abrangência por prestador e procedimento.
cd-prestador-exec – Identifica o prestador parametrizado para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão considerados todos os prestadores para a validação de abrangência por prestador e procedimento.
lg-mens-tela - Variável que indica se a mensagem pode ser exibida na tela ou não.
cd-procedimento – Identifica o procedimento parametrizado para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão considerados todos os procedimentos para a validação de abrangência por prestador e procedimento.
R-usuario – recid da tabela usuário.
Lg-possui-abrapre-aux – Recebe valor lógico que informa se prestador possui abrangência.
Tabela de saída tmp-cpc-rtabrapre-saida
def temp-table tmp-cpc-rtabrapre-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field lg-achei-abrangencia as log
Field lg-possui-abrapre-ret 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 – Variável que recebe a descrição dos erros que ocorreram na CPC.
lg-abrapre-achei-abrangencia – Variável que indica se a rotina encontrou parametrização de Abrangência, conforme regra da operadora.
Lg-possui-abrapre-ret – Variável de retorno que indica se prestador possui abrangência ou não.