CPC-RC0312A8.P

 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.