CPC-RTBUSCATABELAS

• Rotina responsável por buscar a regra utilizada para a valorização dos serviços, tanto para pagamento quanto faturamento.

Localização

• Dentro do programa rtp/rtbuscatabelas.p.

Ponto de Utilização

• "ALTERA-REGRA"

Include das definições das tabelas temporárias

• cpc/cpc-rtbuscatabelas.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtbuscatabelas-entrada

def temp-table tmp-cpc-rtbuscatabelas-entrada  no-undo
    field nm-ponto-chamada-cpc                 as char format "x(15) "
    field cd-unidade-carteira                  as int
    field cd-carteira-usuario                  as dec
    field in-tipo-tabela                       as char format "x(3)"
    field lg-altera-tab-mo-care                as log
    field cd-tab-preco                         like moviproc.cd-tab-preco-proc
    field lg-altera-tab-qt-moeda               as log
    field cd-tab-preco-proc                    like moviproc.cd-tab-preco
    field id-regra                             as int
    field in-tipo-servico                      as char format "x(01)"
    field cd-grupo-serv                        as int 
    field cd-servico                           as int
    field cd-unidade-principal                 as int
    field cd-prestador-principal               as int
	field cd-unidade-prestador-exec            as int 
    field cd-prestador-exec                    as int
    field cd-local-atendimento                 as int 
	field cd-transacao                         as int
	field h-tmp-rtbuscatabela                  as handle.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc - Ponto de chamada da CPC.
• cd-unidade-carteira - Código da unidade da carteira do beneficiário.
• cd-carteira-usuario - Carteira do beneficiário.
• in-tipo-tabela - Indica o tipo da busca: Faturamento - "COB", Pagamento "PAG".
• lg-altera-tab-mo-care - Indica se altera a tabela de moedas e carências.
• cd-tab-preco - Nova tabela de moedas e carências.
• lg-altera-tab-qt-moeda - Indica se altera a tabela de quantidade de moedas.
• cd-tab-preco-proc - Nova tabela de quantidade de moedas.
• id-regra - Código da regra de pagamento ou faturamento.
• in-tipo-servico - Indica o tipo de serviço: Procedimento - "P", Insumo - "I".
• cd-grupo-serv - Código do grupo do procedimento ou tipo de Insumo.
• cd-servico - Código do procedimento/insumo.
• cd-unidade-principal - Unidade do prestador principal.
• cd-prestador-principal - Código do prestador principal.
• cd-unidade-prestador-exec - Unidade do prestador executante.
• cd-prestador-exec - Código do prestador executante.
• cd-local-atendimento - Código do local de atendimento.
• cd-transacao - Código da transação.
• h-tmp-rtbuscatabela - Handle de tabela.

Tabela de saida tmp-cpc-rtbuscatabelas-saida

def temp-table tmp-cpc-rtbuscatabelas-saida    no-undo
    field lg-undo-retry                        as logical
    field ds-mensagem-relatorio                as char    format "x(75)"
    field lg-altera-tab-mo-care                as log
    field cd-tab-preco                         like moviproc.cd-tab-preco-proc
    field lg-altera-tab-qt-moeda               as log
    field cd-tab-preco-proc                    like moviproc.cd-tab-preco
    field id-regra                             as int. 

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

• lg-undo-retry – Indica se ocorreu algum erro na CPC.
• ds-mensagem-relatorio – Aponta a mensagem de erro que ocorreu na CPC.
• lg-altera-tab-mo-care - Indica se altera a tabela de moedas e carências.
• cd-tab-preco - Nova tabela de moedas e carências.
• lg-altera-tab-qt-moeda - Indica se altera a tabela de quantidade de moedas.
• cd-tab-preco-proc - Nova tabela de quantidade de moedas.
• id-regra - Código da regra de pagamento ou faturamento.