Rotina utilizada para permitir a operadora de Saúde EFETUAR a criação/atualização automatica de registros na tabela PREPADIN, ou mesmo desconsiderar a criação/atualizaçã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 CG0210G.P.
Ponto de Utilização
"ATUAL-TAB-PRECO" e "VERIF-PREST".
Include das definições das tabelas temporárias
CPC-CG0210G.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-cg0210g-entrada
def temp-table tmp-cpc-cg0210g-entrada no-undo
field nm-ponto-chamada as char format "x(15)"
field in-evento-programa as char format "x(10)"
field cd-tipo-insumo like prepadin.cd-tipo-insumo
field cd-insumo like prepadin.cd-insumo
field dt-limite like prepadin.dt-limite
field qt-moeda-insumo like prepadin.qt-moeda-insumo
field lg-manual like prepadin.lg-manual
field cd-tab-preco-proc like prepadin.cd-tab-preco-proc.
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 CG0210G.P:
"ATUAL-TAB-PRECO" e "VERIF-PREST".
in-evento-programa – Evento do programa que chama a CPC-CG0210G.P. Os valores desse campo podem ser:
"INCLUI" ou "ALTERA".
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;
qt-moeda-insumo – Quantidade de Moeda do insumo ( do prestador ) na tabela PREPADIN;
lg-manual – Indica se a digitacao do preco do insumo no módulo RC será ou não manual;
cd-tab-preco-proc – Tabela de quantidade de moedas (tabela medica) pagamento.
Tabela de saída tmp-cpc-cg0210g-saida
def temp-table tmp-cpc-cg0210g-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 para o ponto de chamada da CPC "VERIF-PREST", 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 CG0210G.P, conforme a atuação da CPC.