cpc-rttbpres.p1

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
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.