cpc-pp0412c.p1

Rotina utilizada para indicar quais são os tipos de movimentos possíveis (Procedimentos, Insumos e Quaisquer) quando da inclusão de um evento que não seja correspondente a um pagamento indevido.
Ao alterar um Movimento Extra, nas opções de Código e de Navegação a cpc é chamada passando o ponteiro (rowid) da tabela de Eventos Extras (movipres).
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será utilizado para esta CPC apenas um registro na tabela temporária de saída.
Localização
No programa pp0412c.p, após informar o código do evento, sendo que o evento não seja referente a pagamento indevido, para o ponto de chamada "TIPO-MOVTO" e "CAMPOS-ESPEC".
Ponto de Utilização
"TIPO-MOVTO" e "CAMPOS-ESPEC"
Include das definições das tabelas temporárias
cpc-pp0412c.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-pp0412c-entrada
def temp-table tmp-cpc-pp0412c-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field vl-movimento as decimal format ">>>,>>>,>>9.99"
field cd-unidade like preserv.cd-unidade
field cd-prestador like preserv.cd-prestador
field cd-evento like movipres.cd-evento
field r-movipres as rowid.
Definição campo a campo da tabela de entrada
in-evento-programa – Indica o evento de chamada da CPC. Poderá ser "MODIFICA".
nm-ponto-chamada-cpc – Indica o ponto de chamada da CPC. Poderá ser "TIPO-MOVTO";
cd-unidade – Código da Unidade do prestador;
cd-prestador – Código do Prestador;
cd-evento – Código do evento;
r-movipres - Ponteiro (rowid) da tabela de Eventos Extras (movipres).
vl-movimento – Valor do movimento.
Tabela de saída tmp-cpc-pp0412c-saida
def temp-table tmp-cpc-pp0411c-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char
field lg-permite-procedimento as log
field lg-permite-insumo as log
field lg-permite-qualquer as log.
Definição campo a campo da tabela saída
lg-undo-retry – Indica se ocorreu erro durante processamento da cpc.
ds-mensagem – Descrição de mensagem de erro que sera mostrada caso o lg-undo-retry = yes.
lg-permite-procedimento – Indicação de que o evento poderá ser vinculado a procedimentos.
lg-permite-insumo – Indicação de que o evento poderá ser vinculado a Insumos.
lg-permite-qualquer – Indicação de que o evento poderá ser vinculado a qualquer tipo de movimento (Procedimento e/ou insumo).