cpc-rtsuspen.p1

Rotina chamada no programa que consulta prestadores.
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 no máximo um registro na tabela temporária de saída.
Localização
Dentro do programa rtsuspen.p, ao chamar a função "F6-Modificar".
Dentro do programa rtsuspen.p, ao chamar a função "F8-Apagar".
Ponto de Utilização
"CONS-USUARIO"
Include das definições das tabelas temporárias
cpc-rtsuspen.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtsuspen -entrada
def temp-table tmp-cpc-rtsuspen-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador.
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 – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtsuspen.p:
"CONS-USUARIO"
cd-unidade – Código da unidade.
cd-prestador –Código do prestador.
Tabela de saída tmp-cpc-rtsuspen-saida
def temp-table tmp-cpc-rtsuspen-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field lg-continua as log.
Definição campo a campo da tabela de saída
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 e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
lg-continua – Variável que retorna a permissão de liberar ou restringir o usuário.