cpc-rtpropre.p1

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) ".
/* ----------------------------------- TEMP TABLE DE ENTRADA DE DADOS — */
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.