cpc-rc0312a8.p1

• Rotina utilizada para:
  • 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.
• 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 rc0312a8.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.
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"
Include das definições das tabelas temporárias
cpc-rc0312a8.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a8-entrada
def temp-table tmp-cpc-rc0312a8-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 moviproc.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.
Definição campo a campo da tabela de entrada
in-evento-programa– Evento do programa que chama cpc-rc0312a8.P.
"INCLUI".
"PROC".
"INSU".
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/insumo.
cd-esp-prest-executante – Código da especialidade do prestador executante do procedimento.
dt-realizacao – Data de realização do movimento.
qt-digitos-proced – número de dígitos aceito no campo quantidade de procedimentos.
lg-anestesista – Indica se é anestesista.
cd-unidade-carteira – Código da Unidade da Carteira.
lg-urgencia – indica se o procedimento é 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.
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 do procedimento
Vl-auxiliar – Valor auxiliar do procedimento
Vl-taxa-out-uni-prin – Valor da taxa de intercambio sobre o valor principal do procedimento
Vl-taxa-out-uni-auxi – Valor da taxa de intercambio sobre o valor auxiliar do procedimento
Tabela de saída tmp-cpc-rc0312a8-saida
def temp-table tmp-cpc-rc0312a8-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(75)"
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.
Definição campo a campo da tabela de saída
lg-erro – Variável que controla os erros que podem ocorrer 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-adicional-urgencia – Variável de retorno do valor do adicional de urgência.
Lg-urgencia – Variável de retorno do valor do campo que identifica urgência.
Lg-solicita-adicional – Variável de retorno se deve solicitar na tela os campos lg-urgencie e lg-adicional-urgencia.
Lg-espec-anes – Indica qual o valor defaul para o campo Anestesiologista quando da inclusão do procedimento via RC com o ponto de chamada da CPC "DEFAULT-ANEST".
cd-classe-erro – retorna a classe de erro do movimento.
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 do procedimento
Vl-auxiliar – Valor auxiliar do procedimento
Vl-taxa-out-uni-prin – Valor da taxa de intercambio sobre o valor principal do procedimento

• • Vl-taxa-out-uni-auxi – Valor da taxa de intercambio sobre o valor auxiliar do procedimento.