CPC-RTPROPRE.P

• Rotina utilizada para permitir alterar a tabela de preço do procedimento na valorização do procedimento e insumos.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Para o ponto de chamada ATRIBUI-TAB-PRE", no programa rtprpre.p.

Ponto de Utilização

" ATRIBUI-TAB-PRE",.
"BUSCA-MOEDA"

Include das definições das tabelas temporárias

• CPC-RTPROPRE.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- rtpropre-entrada

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

field in-evento-programa                                as char format "x(06)"
field nm-ponto-chamada-cpc                         as char format "x(15) "
field lg-mensagem-na-tela                             as logical
field in-tipo-movimento                                   as char format "x(01)"
field cd-unidade-prestador                              like preserv.cd-unidade
field cd-prestador                                            like preserv.cd-prestador
field cd-modalidade                                        like propost.cd-modalidade
field nr-proposta                                              like propost.nr-proposta
field cd-plano                                                  like propost.cd-plano
field cd-tipo-plano                                           like propost.cd-tipo-plano
field cd-modulo                                               like mod-cob.cd-modulo
field cd-proced                                                like pl-mo-am.cd-amb
field cd-local-atend                                          like locaaten.cd-local-atend
field dt-base-valor                                           like procguia.dt-realizacao
field r-usuario-par                                            as rowid
field r-unicamco                                               as rowid
field in-tipo-operacao                                       as char format "x(03) "

Definição campo a campo da tabela de entrada

• • • in-evento-programa: O valor desse campo deve ser "INLCUI".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza: " ATRIBUI-TAB-PRE".
    • lg-mensagem-na-tela – Indica se a rotina emitira as mensagens ocorridas em tela ou em campo da tabela temporária de saída.
    • In-tipo-movimento – Indica se o movimento será "P" procedimento ou insumo "I".
    • Cd-unidade-prestador – Indica o codigo da unidade do prestar executante do movimento.
    • Cd-prestador – Indica o codigo do prestador executante do movimento.
    • cd-modalidade – Código da modalidade de comercialização do plano do beneficiario.
    • r-usuario – Recid do usuário que está utilizando o procedimento.
    • Nr-proposta – Numero da proposta do beneficiário.
    • Cd-plano – Código do plano de saúde do beneficiário.
    • Cd-tipo-plano – Código do tipo de plano do beneficiário.
    • Cd-modulo – Modulo de cobertura que o movimento será incluso.
    • Cd-proced – Código do procedimento na qual será selecionada a tabela de preço.
    • Cd-local-atendimento – Código do local de atendimento que o movimento foi executado.
    • Dt-base-valor – Data base da valorização do movimento.
    • r-usuario-par – Indica o ROWID do registro da tabela (ponteiro no banco de dados) usuário para usuário da Base da área de ação.
    • r-unicamco-par – Indica o ROWID do registro da tabela (ponteiro no banco de dados) de negociação, para usuário de intercâmbio.
    • in-tipo-operacao Indica o tipo de processo que esta sendo realizado (PAG – Pagamento e COB – Cobranca).
      
      

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

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

field lg-undo-retry                                 as logical
field ds-mensagem-relatorio                 as char format "x(75)"
field cd-tab-preco                                 like moviproc.cd-tab-preco

Definição campo a campo da tabela de saída

• • • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
    • Ds-mensagem-retorno – Variável que recebe a descrição dos erros que ocorreram na CPC.
    • Cd-tab-preco – indica a tabela de preço de valorização do procedimento que será considerada após a eucao desta CPC.