- Rotina utilizada para:
- Efetuar a substituição do Prestador Executante no Modulo de Revisão de Contas.
- Permitir ou não efetuar glosa manual de movimentos (Insumos) que estejam pendentes da informação Tipo de Saída.
- Carregar o tipo de vínculo cadastrado em um movimento quando da sua modificação.
- 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 no máximo um registro na tabela temporária de saída.
Localização
Dentro do programa rc0312a7.P na inclusão de movimentos no Revisão de Contas, para o ponto de chamada "SUBST-PRES-EXEC";
Quando da seleção da opção F7 - Glosa Manual, dentro do processo de modificação do(s) insumo(s), para o ponto de chamada "CONS-TP-SAIDA".
Antes da chamada da rotina de validação de glosas. Ponto de chamada "VALIDA-GLOSA".
Após a valorização do insumo, antes do lançamento da glosa 34.
Antes do selection-list dos tipos de vínculo do prestador executante.
APOS-BUSCA-TAB - após a chamada do programa "rtp/rtprestp.p" e antes da busca da tabela "precproc", na procedure "modifi-insumos".
Ponto de Utilização
"SUBST-PRES-EXEC" e "CONS-TP-SAIDA".
"MODIF-NRLOTE"
"VALIDA-GLOSA"
"APOS-VALORIZA"
"ANTES-TIPO-VINC"
"APOS-BUSCA-TAB"
Include das definições das tabelas temporárias
cpc-rc0312a7.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a7-entrada
def temp-table tmp-cpc-rc0312a7-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 cd-unidade-carteira like docrecon.cd-unidade-carteira
field cd-carteira-usuario like docrecon.cd-carteira-usuario
field cd-unidade-pre-princ like preserv.cd-unidade
field cd-prestador-princ like preserv.cd-prestador
field cd-unidade-pre-solic like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-unidade-pre-execu like preserv.cd-unidade
field cd-prestador-execu like preserv.cd-prestador
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field qt-insumo like insuguia.qt-insumo
field cd-unidade-executante like moviproc.cd-unidade-prestador
field cd-prestador-executante like moviproc.cd-prestador
field lg-movto-sem-tp-saida as logical
field nr-rowid-mov-insu as rowid
field lg-rtvalglo-cpc as log
field cd-unidade-guia like guiautor.cd-unidade
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field nr-rowid-tranrevi as rowid
field cd-tipo-cob-cpc like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc like moviproc.cd-validacao
field cd-user-validacao-cpc like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc like moviproc.cd-tipo-pagamento
field cd-tipo-insumo-cpc like mov-insu.cd-tipo-insumo
field cd-insumo-cpc like mov-insu.cd-insumo
field cd-unidade-cpc like mov-insu.cd-unidade
field cd-unidade-prestadora-cpc like mov-insu.cd-unidade-prestadora
field cd-transacao-cpc like mov-insu.cd-transacao
field nr-serie-doc-original-cpc like mov-insu.nr-serie-doc-original
field nr-doc-original-cpc like mov-insu.nr-doc-original
field nr-doc-sistema-cpc like mov-insu.nr-doc-sistema
field nr-processo-cpc like mov-insu.nr-processo
field nr-seq-digitacao-cpc like mov-insu.nr-seq-digitacao
field vl-cobrado like mov-insu.vl-cobrado
field lg-trab-cooperado as log
field pc-taxa-acp like unicamco.pc-taxa-acp
field pc-taxa-aca like unicamco.pc-taxa-aca
field vl-insumo like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field cd-tipo-vinculo as char format "x(1)"
field dt-val-esp-vinculo like moviproc.dt-realizacao
field cd-tp-vinc like tipovinc.cd-tipo-vinculo
field ds-tp-vinc like tipovinc.ds-tipo-vinculo
field cd-unid-prestador like prestpro.cd-unidade
field cd-prestador like prestpro.cd-prestador
field cd-tipo-movto like prestpro.cd-tipo-proc-insu
field cd-proc-insu like pl-mo-am.cd-amb
field cd-modalidade like prestpro.cd-modalidade
field cd-plano like prestpro.cd-plano
field cd-tipo-plano like prestpro.cd-tipo-plano
field cd-modulo like prestpro.cd-modulo
field dt-limite like prestpro.dt-limite
field cd-forma-pagto like formpaga.cd-forma-pagto
field r-precproc as recid
field nr-lote-imp like docrecon.nr-lote-imp
field nr-sequencia-imp like docrecon.nr-sequencia-imp.
Definição campo a campo da tabela de entrada
in-evento-programa– Evento do programa que chama cpc-rc0312a7.P.
"INCLUI".
"ALTERA".
"ALTERA".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0312a7.p:
"SUBST-PRES-EXEC".
"MODIF-NRLOTE".
"VALIDA-GLOSA"
lg-mensagem-na-tela – Campo para indicar se as mensagens devem ser mostradas em tela;
cd-unidade-carteira – Código da unidade da carteira;
cd-carteira-usuario – Código da carteira do beneficiário;
cd-unidade-pre-princ – Código da unidade do prestador principal;
cd-prestador-princ – Código do prestador principal;
cd-unidade-pre-solic – Código da unidade do prestador solicitante;
cd-prestador-solic – Código do prestador solicitante;
cd-unidade-pre-execu – Código da unidade do prestador executante;
cd-prestador-execu – Código do prestador executante;
cd-tipo-insumo – Código do tipo do insumo;
cd-insumo – Código do insumo;
qt-insumo – Quantidade do insumo;
cd-unidade-executante – Código da unidade do prestador executante;
cd-prestador-executante – Código do prestador executante;
lg-movto-sem-tp-saida - Indicador de existência de movimento pendente da informação Tipo de Saída;
nr-rowid-mov-insu – rowid da tabela mov-insu;
cd-procedimento – Código do procedimento;
lg-rtvalglo-cpc - Campo que informa se o movimento foi validado ou não;
cd-unidade-guia - Código da unidade da guia;
aa-guia-atendimento - Ano da guia de atendimento;
nr-guia-atendimento - Número da guia de atendimento;
nr-rowid-tranrevi - Campo que envia o registro completo da tabela tranrevi;
cd-tipo-cob-cpc - Tipo de cobrança;
vl-uso-indevido-cpc - Valor do uso indevido pelo beneficiário;
cd-validacao-cpc - Código de validação do movimento;
cd-user-validacao-cpc - Código do usuário de validação;
cd-forma-pagto-cob-cpc - Forma de pagamento;
cd-tipo-pagamento-cpc - Tipo de pagamento;
cd-tipo-insumo-cpc - Código do tipo de insumo;
cd-insumo-cpc - Código do insumo;
cd-unidade-cpc - Código da unidade da operadora que esta digitando o movimento;
cd-unidade-prestadora-cpc - Código da unidade da operadora que prestou o serviço;
cd-transacao-cpc - Código da transação;
nr-serie-doc-original-cpc - Número de série do documento original;
nr-doc-original-cpc - Número do documento original;
nr-doc-sistema-cpc - Número do documento;
nr-processo-cpc - Número do processo;
nr-seq-digitacao-cpc - Número da sequência da digitação;
vl-cobrado – Contém o valor cobrado do insumo;
lg-trab-cooperado – Indica prestador cooperado;
pc-taxa-acp – Percentual de taxa cobrada sobre os atos médicos principais;
pc-taxa-aca – Percentual de taxa cobrada sobre os atos médicos auxiliares;
vl-insumo – Valor do insumo;
vl-taxa-out-insumo – Valor da taxa de intercambio do insumo;
cd-tipo-vinculo – Código do tipo de vínculo;
dt-val-esp-vinculo - Data a ser considerada para a especialidade;
cd-tp-vinc – Código do tipo de vínculo;
ds-tp-vinc – Descrição do tipo de vínculo.
cd-unid-prestador – Código da unidade do prestador.
cd-prestador - Código do prestador.
cd-tipo-movto – Identificador: P – procedimento. I – insumo.
cd-proc-insu – Código completo do insumo.
cd-modalidade – Código da modalidade.
cd-plano – Código do plano.
cd-tipo-plano – Tipo de plano.
cd-modulo - Módulo
dt-limite - Data limite da validade da cobertura dos procedimentos
cd-forma-pagto – Forma de pagamento.
r-precproc - Identificador da tabela de preços dos procedimentos (precproc)
nr-lote-imp – Numero do lote de importação.
nr-sequencia-imp – Sequencia da importação.
Tabela de saída tmp-cpc-rc0312a7-saida
def temp-table tmp-cpc-rc0312a7-saida no-undo
fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields cd-unidade-encaminhamento like moviproc.cd-unidade-prestador
fields cd-prestador-encaminhamento like moviproc.cd-prestador
field lg-rtvalglo-cpc as log
field cd-tipo-cob-cpc like moviproc.cd-tipo-cob
field vl-uso-indevido-cpc like moviproc.vl-perc-usu-indevido
field cd-validacao-cpc like moviproc.cd-validacao
field cd-user-validacao-cpc like moviproc.cd-user-validacao
field cd-forma-pagto-cob-cpc like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpc like moviproc.cd-tipo-pagamento
field vl-insumo like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field lg-erro-cpc as log
fields cd-classe-erro like moviproc.cd-classe-erro
field qt-glosado like mov-insu.qt-glosado
field r-precproc as recid.
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-relatorio – Variável que retornar mensagem de erro, se ocorrido dentro da CPC;
- cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante;
- cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante;
- lg-rtvalglo-cpc - Campo que informa se o movimento foi validado ou não;
- cd-tipo-cob-cpc - Tipo de cobrança;
- vl-uso-indevido-cpc - Valor do uso indevido pelo beneficiário;
- cd-validacao-cpc - Código de validação do movimento;
- cd-user-validacao-cpc - Código do usuário de validação;
- cd-forma-pagto-cob-cpc - Forma de pagamento;
- cd-tipo-pagamento-cpc - Tipo de pagamento;
- vl-insumo – Valor do insumo;
- vl-taxa-out-insumo – valor da taxa de intercambio do insumo;
- lg-erro-cpc – campo que indica se houve erro na CPC.
- r-precproc - Identificador da tabela de preços dos procedimentos (precproc).
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas