• Rotina utilizada :
  • Efetuar a substituição do Prestador Executante no Modulo de Revisão de Contas.
  • Limitar dígitos na quantidade no campo quantidade de procedimentos na digitação de movimentos do contas.
  • Permitir o bloqueio da digitação dos campos de adicional de urgência.
  • Permitir a operadora efetuar o tratamento do campo Anestesiologista (definir valor default) quando da inclusão de procedimento via RC.
  • Fazer controle da quantidade máxima aceita nos procedimentos.
  • 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 rc0312a9.P na inclusão de movimentos no Revisão de Contas.
Antes da chamada da rotina de validação de glosas.
Após a valorização do procedimento, 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"
"LIMITA-DIGITOS"
"ADICIONAL-URGE"
"DEFAULT-ANEST"
"CONTA-ANEST"
"HORA-URGENCIA"
"MOSTRA-NORMA"
"VAL-QTDE-PROC"
"VALIDA-GLOSA"
"APOS-VALORIZA"
"ANTES-TIPO-VINC"
"APOS-BUSCA-TAB"
Include das definições das tabelas temporárias
cpc-rc0312a9.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a9-entrada
def temp-table tmp-cpc-rc0312a9-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade-executante like moviproc.cd-unidade-prestador
field cd-prestador-executante like moviproc.cd-prestador
field cd-procedimento as int format 99999999
field cd-esp-prest-executante like moviproc.cd-esp-prest-executante
field dt-realizacao like moviproc.dt-realizacao
field qt-digitos-proced as handle
field nr-rowid-docrecon as rowid
field lg-anestesista as log
field cd-unidade-carteira like car-ide.cd-unimed
field lg-urgencia as log
field qt-procedimento as int
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 dt-realizacao-cpc like moviproc.dt-realizacao
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 moviproc.cd-unidade
field cd-unidade-prestadora-cpc like moviproc.cd-unidade-prestadora
field cd-transacao-cpc like moviproc.cd-transacao
field nr-serie-doc-original-cpc like moviproc.nr-serie-doc-original
field nr-doc-original-cpc like moviproc.nr-doc-original
field nr-doc-sistema-cpc like moviproc.nr-doc-sistema
field nr-processo-cpc like moviproc.nr-processo
field nr-seq-digitacao-cpc like moviproc.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-principal like moviproc.vl-principal
field vl-auxiliar like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like moviproc.vl-taxa-out-uni-auxi
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-tipo-insumo like procpres.cd-tipo-insumo
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;
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza;
cd-unidade-executante – Código da unidade do prestador executante;
cd-prestador-executante – Código do prestador executante;
cd-procedimento – Código do procedimento;
cd-esp-prest-executante – Código da especialidade do prestador executante;
dt-realizacao – Data de realização do movimento;
qt-digitos-proced – Quantidade do procedimento;
nr-rowid-docrecon – rowid da tabela docrecon;
lg-anestesista – Campo que indica se o prestador é anestesista;
cd-unidade-carteira – Código da unidade da carteira;
lg-urgencia – Campo que indica se o procedimento é/foi de urgência;
qt-procedimento – Quantidade 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;
dt-realizacao-cpc – Data de realização do movimento;
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-principal – Valor principal;
vl-auxiliar – Valor auxiliar;
vl-taxa-out-uni-prin – Valor da taxa de intercâmbio principal;
vl-taxa-out-uni-auxi – Valor da taxa de intercâmbio auxiliar;
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 origem.
cd-prestador - Código do prestador origem.
cd-tipo-movto - Indicador I para insumo, P para procedimento.
cd-tipo-insumo - Código do insumo.
cd-proc-insu – Código do procedimento.
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 - Número da sequência de importação do documento.
Tabela de saída tmp-cpc-rc0312a9-saida
def temp-table tmp-cpc-rc0312a9-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(100)"
field cd-unidade-encaminhamento like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento like moviproc.cd-prestador
field lg-urgencia as log
field lg-adicional-urgencia as log
field lg-solicita-adicional as log
field lg-espec-anest as log
field cd-classe-erro like movrcglo.cd-classe-erro
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-principal like moviproc.vl-principal
field vl-auxiliar like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi like moviproc.vl-taxa-out-uni-auxi
field r-precproc as recid.
Definição campo a campo da tabela de saída

• lg-erro – Campo que indica se houve erro na CPC.
• ds-mensagem – 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-urgencia – Campo que indica se o procedimento é/foi de urgência;
• lg-adicional-urgencia – Campo que indica se há adicional de urgência;
• lg-solicita-urgencia – Campo que indica se há solicitação de adicional;
• lg-espec-anest – Campo que indica se a especialidade do prestador é anestesiologia;
• cd-classe-erro – Código da classe de erro;
• 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-principal – Valor principal;
• vl-auxiliar – Valor auxiliar;
• vl-taxa-out-uni-prin – valor da taxa de intercâmbio principal do procedimento;
• vl-taxa-out-uni-auxi – valor da taxa de intercâmbio auxiliar do procedimento.
• r-precproc - Identificador da tabela de preços dos procedimentos (precproc).