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.
Bloquear a digitação do campo Cob.

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"
"ANTES-QT-COB"
"APOS-EXIBE-VAL": liberação a partir da 12.1.2301.
"FIM-INC-PROCED": liberação a partir da 12.1.2307.
"ANT-GRAVA-PROC" - a partir da versão 12.1.2407.

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
field qt-repasse like moviproc.qt-repasse
field cd-local-atendimento like locaaten.cd-local-atendimento
field cd-pacote like moviproc.cd-pacote
field h-buffer-moviproc as handle
field nm-prestador-exec as char
field cd-conselho-pre-exec as char
field nr-conselho-exec as char
field en-uf-conselho-exec    as char
field cd-cpf-exec as char
field hr-realizacao-ini    as char

field hr-realizacao-fim as char.

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.
qt-repasse - Valor do campo Qt Repasse.
cd-local-atendimento - Local de atendimento.
cd-pacote - Código do pacote
h-buffer-moviproc - Handle da tabela referente aos movimentos (procedimentos).
nm-prestador-exec - Nome prestador executante.
cd-conselho-pre-exec - Código conselho prestador executante.
nr-conselho-exe - Número conselho prestador executante.
en-uf-conselho-exec - UF conselho prestador executante.
cd-cpf-exec - CPF prestador executante.
hr-realizacao-ini - Hora realizacao inicial.

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
field lg-bloqueia-qt-repasse-cob    as log
field qt-repasse-cob                    like moviproc.qt-repasse-cob
field lg-calcula-vl-glosado as logical initial yes
field lg-atualiza-vl-prin-tela as logical
field lg-atualiza-vl-auxi-tela as logical.

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.
lg-bloqueia-qt-repasse-cob - Campo que indica se o campo Qt COB.: (moviproc.qt-repasse-cob) deve ser somente leitura.
qt-repasse-cob - Valor modificado na CPC para o valor do campo Qt COB.
lg-calcula-vl-glosado - indica para considerar valor glosado.
lg-atualiza-vl-prin-tela - indica se deve atualizar o valor principal do procedimento na tela
lg-atualiza-vl-auxi-tela - indica se deve atualizar o valor auxiliar do procedimento na tela