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

• Ponto "TROCA-TAB": no final do programa "rtp/rttbpres.p";
• Ponto "ANTES-TBPREPRO": antes de buscar a tabela de quantidade de moedas (tabela "tbprepro").

Ponto de Utilização

"TROCA-TAB"

"ANTES-TBPREPRO"

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
field cd-tipo-aplic                                as char format "x(1)"
field r-unicamco                                  as rowid.

Definição campo a campo da tabela de 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.
    • cd-tipo-aplic - tipo de movimento ("P" = procedimento; "I" = insumo);
    • r-unicamco - rowid da tabela "unicamco".

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
field cd-tab-preco-proc                            like moviproc.cd-tab-preco-proc
field lg-continua                                       as logical initial yes.

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.
    • cd-tab-preco-proc - código da tabela de preço para pagamento.
    • lg-continua - indica se deve continuar o processo de produto ou retornar para o programa chamador.