cpc-at0111b.p0

Rotina utilizada na Manutenção de Guias opção "beneficiário".
Rotina utilizada para converter a unidade da carteira.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
Dentro do at0111b.p, ao realizar o update no browse procedimentos.
Na inclusão de guias, antes de realizar a consistência da unidade.
Ponto de Utilização
" CONS-CLIENTE"
"CONV-UNID-CART"
Include das definições das tabelas temporárias
CPC-AT0111B.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at0111b-entrada
def temp-table tmp-cpc-at0111b-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-carteira like unimed.cd-unimed
field cd-modalidade like modalid.cd-modalidade
field nr-proposta like propost.nr-proposta
field cd-usuario like usuario.cd-usuario.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento;
nm-ponto-chamada-cpc – Indica o nome do ponto de chamada;
cd-unidade-carteira – Indica unidade da carteira do beneficiário;
cd-modalidade – Indica modalidade do beneficiário;
nr-proposta – Indica número da proposta do beneficiário;
cd-usuario – Indica código do beneficiário;
Tabela de entrada tmp-cpc- at0111b-saida
def temp-table tmp-cpc-at0111b-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)"
field cd-unidade-carteiralike car-ide.cd-unimed.
Definição campo a campo da tabela de saída
lg-erro - 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 – Mensagem da ocorrência do erro no processamento da CPC;
cd-unidade-carteira - Variável que retorna a unidade da carteira do beneficiário.