CPC-PP0411C.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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 e pp0412c.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" e "CAMPOS-ESPEC"
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
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 "PESQUISA" ou "INCLUI".
- nm-ponto-chamada-cpc – Indica o ponto de chamada da CPC. Poderá ser "BUSCA-PRODUTO" ou "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-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 sera 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";