CPC-RTVALIDA.P

Rotina utilizada para:

• Interagir na validação dos procedimentos no que diz respeito a dias de validade. (reconsulta).
• Interagir na validação da execução de procedimentos em uma mesma clinica/dia/hora.
• Validar glosa no at / wac.
• 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 da rotina rtvalida.p no final do processo.
• Dentro da rotina rtvalida.p antes do tratamento da classe de erro 49.
• Dentro da rotina rtvalida.p antes de gravar a glosa.
• Dentro da rotina rtvalida.p depois de dar mensagem de glosa.

Ponto de Utilização

"FIM-PROGRAMA"
"RESTRI-CLINICA"
"ANTES-GLOSAR"
"VERIF-VALID-AT"

Include das definições das tabelas temporárias

• cpc-rtvalida.i

Tabela de entrada e saída

Tabela de entrada tmp-cpc-rtvalida-entrada

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

field in-evento-programa                               as char format "x(10)"
field nm-ponto-chamada-cpc                         as char format "x(15)"
field lg-mens-tela                                           as log
field in-entidade                                            as char format "x(02)"
field dt-realizacao                                          like moviproc.dt-realizacao
field hr-realizacao                                          like moviproc.hr-realizacao
field nr-dias-validade                                      like pl-mo-am.nr-dias-validade
field nr-recid-proposta                                    as recid
field cd-unidade                                             like moviproc.cd-unidade
field cd-unidade-carteira                                 like moviproc.cd-unidade-carteira
field cd-carteira-usuario                                  like moviproc.cd-carteira-usuario
field cd-unidade-prestador                              like moviproc.cd-unidade-prestador
field cd-prestador                                           like moviproc.cd-prestador
field cd-esp-amb                                            like moviproc.cd-esp-amb
field cd-grupo-proc-amb                                 like moviproc.cd-grupo-proc-amb
field cd-procedimento                                    like moviproc.cd-procedimento
field dv-procedimento                                    like moviproc.dv-procedimento
field cd-modalidade                                       like moviproc.cd-modalidade
field nr-ter-adesao                                         like moviproc.nr-ter-adesao
field cd-usuario                                              like moviproc.cd-usuario
field cd-transacao                                          like moviproc.cd-transacao
field in-operacao                                           as char format "x(03)"
field nr-recid-movto                                        as recid
field cd-especialid                                          like moviproc.cd-esp-prest-executante
field cd-unida-clinica                                      like moviproc.cd-unidade-clinica
field cd-clinica                                                like moviproc.cd-clinica
field cd-modulo                                             like moviproc.cd-modulo
field qt-procedimento                                    like moviproc.qt-procedimento
Field cd-classe-erro                                       like moviproc.cd-classe-erro
field cliprova-rowid                                        as rowid
field cd-unidade-prest-ant                             like moviproc.cd-unidade-prestador
field cd-prestador-ant                                    like moviproc.cd-prestador

Definição campo a campo da tabela de entrada

• • • in-evento-programa - Evento do programa que chama a cpc-rtvalida. Este campo terá como valor inicial:
    • "INCLUI".
    • nm-ponto-chamada-cpc - Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtvalida. p:
    • "FIM-PROGRAMA","RESTRI-CLINICA" , "ANTES-GLOSAR" e "VALID-VERIF-AT".
    • lg-mens-tela – Indica se a mensagem deve ser exibida na tela ou não.
    • in-entidade – Indica qual o modulo foi chamado pela cpc, neste caso somente "RC".
    • dt-realizacao – Data da realização do procedimento.
    • hr-realizacao – Hora da realização do procedimento.
    • nr-dias-validade – dias de validade oriundos da parametrização da estrutura do produto.
    • nr-recid-proposta – Contém o recid da propost. É o campo que identifica a posição do registro da tabela proposta no momento da execução da cpc.
    • cd-unidade – Indica o código da unidade na qual o sistema esta implantado.
    • cd-unidade-carteira – Código da unidade da carteira do beneficiário.
    • cd-carteira-usuario – Indica o código da carteira do usuário.
    • cd-unidade-prestador – Indica o código da unidade do prestador.
    • cd-prestador – Indica o código do prestador.
    • cd-esp-amb – Indica o código da especialidade do procedimento.
    • cd-grupo-proc-amb – Indica o código do grupo do procedimento.
    • cd-procedimento – Indica o código do procedimento.
    • dv-procedimento – Indica o dígito verificador do procedimento.
    • cd-modalidade – Indica o código da modalidade da proposta do beneficiário.
    • nr-ter-adesao – Indica o número do termo de adesão.
    • cd-usuario – Indica o código do beneficiário no sistema.
    • cd-transacao – Indica o código da transação.
    • in-operacao – Sempre "INC".
    • nr-recid-movto – Contém o recid do moviproc. É o campo que identifica a posição do registro da tabela de movimentos no momento da execução da cpc.
    • cd-especialid – Indica o código da especialidade do prestador executante.
    • cd-unida-clinica – Indica o código da unidade clinica.
    • cd-clinica – Indica o código da clínica.
    • cd-modulo – Indica o módulo de cobertura do beneficiário.
    • qt-procedimento – Quantidade de procedimentos realizados.
    • cd-classe-erro – Indica a classe de erro.
    • cliprova-rowid – Recebe a rowed da cliprova.
    • cd-unidade-prest-ant – recebe a unidade do primeiro prestador a efetuar uma consulta no dia.
    • cd-prestador-ant - recebe o primeiro prestador a efetuar uma consulta no dia.
      
      

Tabela de glosas do RC tmp-cpc-rtvalida-movrcglo

def temp-table tmp-cpc-rtvalida-movrcglo no-undo

field cd-unidade                             like movrcglo.cd-unidade
field cd-unidade-prestadora           like movrcglo.cd-unidade-prestadora
field cd-transacao                          like movrcglo.cd-transacao
field nr-serie-doc-origina                 llike movrcglo.nr-serie-doc-original
field nr-doc-original                        like movrcglo.nr-doc-original
field nr-doc-sistema                       like movrcglo.nr-doc-sistema
field nr-processo                            like movrcglo.nr-processo
field nr-seq-digitacao                     like movrcglo.nr-seq-digitacao
field cd-classe-erro                        like movrcglo.cd-classe-erro
field in-origem-glosa                      like movrcglo.in-origem-glosa
field cd-cod-glo                              like movrcglo.cd-cod-glo
field in-nivel-prioridade                   like claserro.in-nivel-prioridade
index t-movrcglo1
is primary
is unique cd-unidade
cd-unidade-prestadora
cd-transacao
nr-serie-doc-original
nr-doc-original
nr-doc-sistema
nr-processo
nr-seq-digitacao
cd-classe-erro ascending
index t-movrcglo2
cd-unidade
cd-unidade-prestadora
cd-transacao
nr-serie-doc-original
nr-doc-original
nr-doc-sistema
nr-processo
nr-seq-digitacao ascending
in-nivel-prioridade descending
cd-classe-erro ascending

Definição campo a campo da tabela de glosas do RC

• • • cd-unidade – Indica a unidade do prestador.
    • cd-prestador – Indica o prestador (código).
    • cd-transacao – Indica a transação.
    • nr-serie-doc-original – Indica o numero de serie do documento original.
    • nr-doc- original – Indica o numero do documento original.
    • nr-doc-sistema – Indica o numero do documento do sistema (sequencia).
    • nr-processo – Indica o número do processo.
    • nr-seq-digitacao – Indica a seqüência de digitação dos itens do documento.
    • cd-classe-erro – Indica o código da classe de erro (restrição).
    • in-origem-glosa – Indica a origem da glosa ("P" – Procedimento e "I" – Insumo).
    • cd-cod-glo – Indica o código da glosa.
    • in-nivel-prioridade – Indica o nível de prioridade da glosa.
      
      

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

def temp-table tmp-cpc-rtvalida-saida no-undo

field lg-undo-retry                              as log
field ds-mensagem-relatorio             as char format "x(75)"
field cd-classe-erro                            like moviproc.cd-classe-erro
field lg-glosou-mvto                          as log
field lg-restricao                                as log

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

• • • lg-undo-retry – Indica se houve erro no processamento da cpc-rtvalida.p.
    • ds-mensagem-relatorio – Contém a mensagem de retorno da rotina.
    • cd-classe-erro – Contém a classe de erro se houve glosa.
    • lg-glosou-mvto – Indica se o movimento sofreu ou não glosa.
    • lg-restricao – Indica se ocorreu restrição referente a realização do movimento.