CPC-RTHORURG.P

• Rotina para identificar horários de urgência por Local de Atendimento e Prestador.
• 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.

Localização

• Dentro do programa rthorurg.p, no evento programa "VERIFICA-URG" antes de selecionar a tabela de urgência.

Ponto de Utilização

"HORA-ESPEC"

"INIC-VAL-FERIAD" - disponível a partir da versão 12.1.2411.

Include das definições das tabelas temporárias

• cpc-rthorurg.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rthorurg-entrada

def temp-table tmp-cpc-rthorurg-entrada no-undo

field in-evento-programa                    as char format "x(10)"
field nm-ponto-chamada-cpc             as char format "x(15)"
field cd-local-atendimento                  like locaaten.cd-local-atendimento
field cd-unimed                                  like unimed.cd-unimed
field cd-prestador                               like preserv.cd-prestador
field in-tipo-consulta                           as char format "x(3)"

Definição campo a campo da tabela de entrada

• • • in-evento-programa- Identifica qual evento deve ser executado no momento que está sendo chamada.
    • nm-ponto-chamada-cpc – Ponto de chamada da cpc .
    • cd-local-atendimento- Local de Atendimento informado na inclusão do movimento no Revisão de Contas.
    • Cd-unimed – Código da Unidade do Prestador Executante do Procedimento.
    • Cd-prestador – Código do Prestador Executante.
    • In-tipo-consulta – Tipo de consulta "P" Pagamento e "C" Cobrança.
    • cd-unidade-carteira - Código da Unidade do Beneficiário.
    • cd-carteira-usuario - Código da carteira do Beneficiário.
    • cd-tab-preco-proc - Código da Tabela de Preço do Procedimento.

Tabela de saída tmp-cpc-rthorurg-saida

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

field lg-undo-retry                          as logical
field ds-mensagem-relatorio          as char format "x(75)"
field cd-tab-urge                            like horaurge.cd-tab-urge
field cd-tab-preco-proc                  like horaurge.cd-tab-preco-proc

field nm-calendario                        like paramrc.nm-calendario

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– Variável que recebe a descrição dos erros que ocorreram na CPC.
    • Cd-tab-urge - Código da tabela de Urgência utilizada.
    • Cd-tab-preco-proc – Código da tabela de preço do Procedimento.
    • nm-calendario - Nome do calendário fiscal.