CPC-PP0411C.P

Rotina utilizada para:

• Busca do produto/consistências quando das opções de inclusão e alteração no cadastro de Pagto Extra/Desconto de Prestadores;
• 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 incluir 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 pp0411c.p antes de informar os dados do produto (Modalidade, Plano e Tipo de Plano), para o ponto de chamada "BUSCA-PRODUTO" e "CAMPOS-ESPEC"
• No programa pp0411c.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".

Ponto de Utilização

• "BUSCA-PRODUTO"
• "TIPO-MOVTO"
• "CAMPOS-ESPEC"
• "PRESTADOR" - disponível a partir da versão 12.1.2503.

Include das definições das tabelas temporárias

• cpc-pp0411c.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-pp0411c-entrada

def temp-table tmp-cpc-pp0411c-entrada no-undo

def temp-table tmp-cpc-pp0411c-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 r-movipres                      as rowid
    field cd-unidade                    like preserv.cd-unidade
    field cd-prestador                  like preserv.cd-prestador
    field cd-evento                     like movipres.cd-evento
    field dt-anoref                     like docrecon.dt-anoref
    field nr-perref                     like docrecon.nr-perref.

Definição campo a campo da tabela de entrada

• in-evento-programa – Indica o evento de chamada da CPC. Poderá ser "PESQUISA" ou "INCLUI".
• nm-ponto-chamada-cpc – Indica o ponto de chamada da CPC. 
• vl-movimento – Valor do movimento. 
• r-movipres - Ponteiro (rowid) da tabela de Eventos Extras (movipres).
• cd-unidade – Código da Unidade do prestador;
• cd-prestador – Código do Prestador;
• cd-evento – Código do evento;
• dt-anoref  – Ano do período do revisão de contas.
• nr-perref  – Número do período do revisão de contas.

Tabela de saída tmp-cpc-pp0411c-saida

def temp-table tmp-cpc-pp0411c-saida no-undo

field lg-undo-retry                          as log
field ds-mensagem                       as char
field cd-modalidade                       like modalid.cd-modalidade
field cd-plano                                 like pla-sau.cd-plano
field cd-tipo-plano                          like ti-pl-sa.cd-tipo-plano
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 será mostrada caso o lg-undo-retry = yes.
• cd-modalidade – Código da Modalidade. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";
• cd-plano – Código do Plano. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";
• cd-tipo-plano – Código do tipo de plano. Utilizado quando ponto de chamada da CPC for "BUSCA-PRODUTO";
• lg-permite-procedimento – Indicação de que o evento poderá ser vinculado a procedimentos. Utilizado quando ponto de chamada da CPC for "TIPO-MOVTO";
• lg-permite-insumo – Indicação de que o evento poderá ser vinculado a Insumos. Utilizado quando ponto de chamada da CPC for "TIPO-MOVTO";
• lg-permite-qualquer – Indicação de que o evento poderá ser vinculado a qualquer tipo de movimento (Procedimento e/ou insumo). Utilizado quando ponto de chamada da CPC for "TIPO-MOVTO";