CPC-RC0311B6.P

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.x
Assuntos:	cpc-rc0311b6.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.
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.