CPC-PP0412C.P

• 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).