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.

Âncora__RefHeading__23641_2053127524__RefHeading__23641_2053127524 Âncora__RefHeading__9796_486694287__RefHeading__9796_486694287 Âncora__RefHeading__5007_213273755__RefHeading__5007_213273755 Âncora__RefHeading__14405_644533341__RefHeading__14405_644533341 Âncora__RefHeading__90303_1756225838__RefHeading__90303_1756225838Localização

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

;
Âncora__RefHeading__23643_2053127524__RefHeading__23643_2053127524 Âncora__RefHeading__9798_486694287__RefHeading__9798_486694287 Âncora__RefHeading__5009_213273755__RefHeading__5009_213273755 Âncora__RefHeading__14407_644533341__RefHeading__14407_644533341 Âncora__RefHeading__90305_1756225838__RefHeading__90305_1756225838Ponto de Utilização

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

...

Include das definições das tabelas temporárias

• CPC-RTPROPRE.I

...

__RefHeading__23647_2053127524__RefHeading__23647_2053127524 Âncora__RefHeading__9802_486694287__RefHeading__9802_486694287 Âncora__RefHeading__5013_213273755__RefHeading__5013_213273755 Âncora__RefHeading__14411_644533341__RefHeading__14411_644533341 Âncora__RefHeading__90309_1756225838__RefHeading__90309_1756225838Tabelas de entrada e saída
Âncora__RefHeading__23649_2053127524__RefHeading__23649_2053127524 Âncora__RefHeading__9804_486694287__RefHeading__9804_486694287 Âncora__RefHeading__5015_213273755__RefHeading__5015_213273755 Âncora__RefHeading__14413_644533341__RefHeading__14413_644533341 Âncora__RefHeading__90311_1756225838__RefHeading__90311_1756225838

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.

...