cpc-rc0311b6.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.
  • Bloquear a 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 apenas um registro na tabela temporária de saída. Caso possuir mais de um registro ou não possuir nenhum registro um erro será reportado.

Localização
Dentro do programa rc0311b6.P na inclusão de movimentos no Revisão de Contas.
Após validação de RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
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"
"ENTIDADE"
"HORA-URGENCIA"
"MOSTRA-NORMA"
"VAL-QTDE-PROC"
"VALIDA-ANEST"
"VALIDA-GLOSA"
"MOSTRA-MENSAGEM"
"APOS-VALORIZA"
"ANT-INC-PACOTE"
Include das definições das tabelas temporárias
cpc-rc0311b6.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0311b6-entrada
def temp-table tmp-cpc-rc0311b6-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 nr-rowid-moviproc as rowid
field nr-rowid-docrecon as rowid
field qt-digitos-proced as handle
field lg-anestesista as log
field cd-proc-insu like presmovt.cd-proc-insu
field cd-unidade-carteira like car-ide.cd-unimed
field lg-urgencia as log
field qt-procedimento as int
field cd-tab-preco-proc like propost.cd-tab-preco-proc
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
field cd-unidade-prest-principal like unimed.cd-unimed
field cd-prestador-principal like moviproc.cd-prestador
field lg-inclui-pacote as log.
Definição campo a campo da tabela de entrada
in-evento-programa– Evento do programa que chama cpc-rc0311b6.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
nr-rowid-moviproc – Rowid da tabela de movimentos de procedimentos.
nr-rowid-docrecon – Rowid da tabela de movimentos de documentos.
qt-digitos-proced – número de dígitos aceito no campo quantidade de procedimentos.
lg-anestesista – Variável que indica se possui anestesista.
cd-proc-insu – Código do insumo.
cd-unidade-carteira – Unidade da carteira.
lg-urgencia – Log que indica se o procedimento é de Urgência.
qt-procedimento – Quantidade do procedimento.
cd-tab-preco-proc – Código da tabela de preços 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
cd-unidade-prest-principal - Código da unidade do prestador principal
cd-prestador-principal - Código do prestador principal
lg-inclui-pacote - indica se o movimento está sendo incluído por um pacote.
Tabela de saída tmp-cpc-rc0311b6-saida
def temp-table tmp-cpc-rc0311b6-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 lg-anestesiologista as log
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 lg-mostra-mensagem as log
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 lg-undo-retry as log
field lg-cpc-ant-inc-pacote-restr as log.


Definição campo a campo da tabela de saída
cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante
lg-undo-retry – 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.
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".
Lg-anestesiologista – Variável de retorno do valor do campo anestesiologista.
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.
lg-mostra-mensagem – Indica se será exibida mensagem.
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.

• • lg-undo-retry - Indica se o programa deve executar o comando undo-retry no retorno da cpc.
  • lg-cpc-ant-inc-pacote-restr - indica se o movimento deve ser restringido.