cpc-rtvalida.p1

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-originallike 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-digitacaolike 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-prioridadelike 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.