CPC-RTTBPRES.P

• Rotina utilizada para procurar tabela de preços do procedimento do prestador fora da base.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• No final do programa rttbpres.p.

Ponto de Utilização

"TROCA-TAB"

Include das definições das tabelas temporárias

• cpc-rttbpres.i

Tabelas de entrada e saída

Tabela de entrada ttt-cpc-rttbpres-entrada

def temp-table tt-cpc-rttbpres-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 nr-rowid-out-uni

...

                         as rowid
field cd-tab-preco-proc                       as character format "xxx/99"
field lg-procedimento                         as logical
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 cd-grupo-prestador                     like gruppres.cd-grupo-prestador
field cd-unidade                                 like unimed.cd-unimed
field cd-prestador                               like preserv.cd-prestador
field dt-realizacao                               like moviproc.dt-realizacao
field cd-unidade-negoc                       as int
field cd-proced-insu

...

                           like uni-taxa.cd-proced-insumo

...

Definição campo a campo da tabela de entrada 

  entrada

• • • in-evento-programa - Evento do programa que chama a CPC.
    • nm-ponto-chamada-cpc - Nome do ponto de chamada da CPC dentro do programa que a utiliza. Para o programa rttbpres.p.
    • lg-mensagem-na-tela – Campo que define onde o usuário deseja mostrar os dados que ele necessita.
    • Cd-modalidade - Campo que recebe o código da modalidade.
    • Cd-plano - Campo que recebe o código do plano.
    • Cd-tipo-plano – Campo que recebe o código de tipo de plano.
    • Cd-grupo-prestador – Campo que recebe o código do grupo de prestador.
    • Cd-unidade – Campo que recebe o código da unidade.
    • Cd-prestador – Campo que recebe o código do prestador.
    • Dt-realização – campo que informa a data de realização e compara se com a data do limite para verificar se não foi ultrapassada.
    • Cd-unidade-negoc – Campo que compara se o usuário pertence a está unidade.
    • Nr-rowid-out-unid - Campo que recebe o indicador do registro da unidade do beneficiário fora da base.
    • Cd-tab-preco-proc - Tabela preço procedimento.

Tabela de saída tt-cpc-rttbpres-saida

def temp-table tt-cpc-rttbpres-saida no-undo

field lg-undo-retry

...

                                   as logical
field ds-mensagem-relatorio                   as char format "x(75)"
field pc-taxa-aca-par                               as dec format ">>9.99999"
field pc-taxa-acp-par                               as dec format ">>9.99999"
field cd-tab-preco-proc-cob                     like moviproc.cd-tab-preco-proc-cob

...

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

• • • lg-undo-retry - Campo que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
    • ds-mensagem-relatorio - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
    • pc-taxa-aca-par - Percentual de taxa a ser cobrada sobre os atos cred. auxiliares.
    • pc-taxa-acp-par - Percentual de taxa a ser cobrada sobre os atos cred. principais.
    • Cd-tab-preco-proc-cob – Código da tabela do preço do processo.