cpc-wint0007.p1

Rotina que possibilita a inclusão e manutenção de registros no cadastro de beneficiários de outras unidades.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
No início da execução do programa.
Ponto de Utilização
"GRAVA-BENEF"
Include das definições das tabelas temporárias
cpc-wint0007.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-wint0007-entrada
def temp-table tmp-cpc-wint0007-entrada no-undo
field in-evento-programa as char format "x(6)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade-carteira like out-uni.cd-unidade
field cd-carteira-usuario like out-uni.cd-carteira-usuario
field dt-validade-carteira as date format "99/99/9999"
field in-abrangencia-intercambio as int format "9"
field nm-usuario like out-uni.nm-usuario.
Definição campo a campo da tabela de entrada
in-evento-programa – nome do evento do ponto de chamada dentro do programa que a utiliza. Para o programa wint0007.w:
"INCLUI"
nm-ponto-chamada – nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wint0007.w:
"GRAVA-BENEF"
cd-unidade-carteira – unidade da carteira do beneficiário.
cd-carteira-usuario - código da carteira do beneficário.
dt-validade-carteira – data de validade da carteira do beneficiário.
in-abrangencia-intercambio – identifica a abragência do beneficiário de intercâmbio: "0" Não informado, "1" Nacional, "2" Grupo de Estados, "3" Estadual, "4" Grupo de Municípios ou "5" Municipal.
nm-usuario – nome do beneficiário de intercâmbio.
Tabela de saída tmp-cpc-wint0007-saida
def temp-table tmp-cpc-wint0007-saida no-undo
field lg-undo-retry 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.