cpc-rc0210g.p1

Rotina utilizada para permitir a operadora de Saúde desconsiderar a criação de registros na tabela PREPADIN.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Localização
No momento da gravação/atualização da tabela PREPADIN, Dentro do programa RC0210G.P.
Ponto de Utilização
"VERIF-PREST".
Include das definições das tabelas temporárias
CPC-RC0210G.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0210g-entrada
def temp-table tmp-cpc-rc0210g-entrada no-undo
field nm-ponto-chamada-cpc as char format "x(15)"
field in-evento-programa as char format "x(10)"
field cd-tab-preco-proc like prepadin.cd-tab-preco-proc
field cd-tipo-insumo like prepadin.cd-tipo-insumo
field cd-insumo like prepadin.cd-insumo
field dt-limite like prepadin.dt-limite.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa RC0210G.P:
"VERIF-PREST".
in-evento-programa – Evento do programa que chama a CPC-RC0210G.P. Os valores desse campo podem ser:
"DUPLICA-PRECO", "COPIA-PRECO" e "GERA-PRECO".
cd-tab-preco-proc – Código da tabela de quantidade de moedas (tabela médica) de pagamento
cd-tipo-insumo – Código do Tipo de Insumo.
cd-insumo – Código do Inasumo.
dt-limite – Data limite da estrutura a ser gerada/atualizada na tabela PREPADIN;
Tabela de saída tmp-cpc-rc0210g-saida
def temp-table tmp-cpc-rc0210g-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)".
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. Ressalta-se que se o parâmetro lg-undo-retry estiver com valor igual a "YES", então não será criado/atualizado o movimento na tabela PREPADIN.
ds-mensagem – Mensagem que será retornada ao programa RC0210G.P, conforme a atuação da CPC.