CPC-RC0311A7.P

Produto:	Gestão de Planos de Saúde
Módulo:	Todos
Versão:	12.x.x
Assuntos:	cpc-rc0311a7.p

Rotina utilizada para:
- Efetuar a consistência da quantidade de insumos digitados para um determindado contratante/prestador e
- Inicializar a hora (inicial e final) de utilização dos movimentos.
- Alteraração de informações da file-mov-insu.
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 de inclusão de insumos do processo de inclusão de movimentos do RC.
Após Validação de RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
Antes do término do processo de inclusão de glosa manual.
Antes da chamada da rotina de validação de glosas.
Após a valorização do insumo, antes do lançamento da glosa 34.

Pontos de Utilização

"SUBST-PRES-EXEC", "APÓS-QUANTIDADE", "CONS-ESPECIALID", "HORA-REALIZACAO", "CONSULTA-MODULO", "ALTERA-VALOR"
"ENTIDADE"
"VALIDA-GLOSA"
"MOSTRA-MENSAGEM"
"APOS-VALORIZA"
"ANT-INC-PACOTE"
"INCLUI-NRLOTE"
"CONS-PRESTDOR" - disponível a partir da versão 12.1.2503

Include das definições das tabelas temporárias

cpc-rc0311a7.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0311a7-entrada

def temp-table tmp-cpc-rc0311a7-entrada no-undo

field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field lg-mensagem-na-tela as logical
field cd-unidade-carteira like docrecon.cd-unidade-carteira
field cd-carteira-usuario like docrecon.cd-carteira-usuario
field cd-unidade-pre-princ like preserv.cd-unidade
field cd-prestador-princ like preserv.cd-prestador
field cd-unidade-pre-solic like preserv.cd-unidade
field cd-prestador-solic like preserv.cd-prestador
field cd-unidade-pre-execu like preserv.cd-unidade
field cd-prestador-execu like preserv.cd-prestador
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field qt-insumo like insuguia.qt-insumo
field cd-tipo-vinculo like esp-med.cd-especialid
field lg-trabalho-medico like moviproc.lg-trab-cooperado
field cd-esp-prest-exec like tipovinc.cd-tipo-vinculo
field cd-unidade-prestador-ant like moviproc.cd-unidade-prestador
field cd-prestador-ant       like moviproc.cd-prestador
field cd-transacao     like docrecon.cd-transacao
field dt-realizacao    like moviproc.dt-realizacao
field cd-unidade-executante    like moviproc.cd-unidade-prestador
field cd-prestador-executante   like moviproc.cd-prestador
field nr-dias-validade     like pl-mo-am.nr-dias-validade
field in-cobra-partic     as int format "99"
field lg-proc-modulo       as log
field cd-tab-preco-caren like precproc.cd-tab-preco
field ds-mensagem-relatorio as char format "x(75)"
field qt-caren-eletiva       like partinsu.qt-caren-eletiva
field qt-caren-urgencia     like partinsu.qt-caren-urgencia
field nr-recid-modulo       as recid
field nr-recid-formpaga   as recid
field nr-rowid-mov-insu     as rowed
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 cd-tipo-insumo-cpc    like mov-insu.cd-tipo-insumo
field cd-insumo-cpc    like mov-insu.cd-insumo
field cd-unidade-cpc     like mov-insu.cd-unidade
field cd-unidade-prestadora-cpc     like mov-insu.cd-unidade-prestadora
field cd-transacao-cpc    like mov-insu.cd-transacao
field nr-serie-doc-original-cpc    like mov-insu.nr-serie-doc-original
field nr-doc-original-cpc    like mov-insu.nr-doc-original
field nr-doc-sistema-cpc     like mov-insu.nr-doc-sistema
field nr-processo-cpc       like mov-insu.nr-processo
field nr-seq-digitacao-cpc     like mov-insu.nr-seq-digitacao
field vl-cobrado    like mov-insu.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-insumo    like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field lg-inclui-pacote   as log
field cd-classe-erro like moviproc.cd-classe-erro
field vl-principal like moviproc.vl-principal
field vl-taxa-out-uni-cobrado like mov-insu.vl-taxa-out-uni-cobrado
field rw-docrecon as rowid

field dt-anoref like docrecon.dt-anoref
field nr-perref like docrecon.nr-perref.

Definição campo a campo da tabela de entrada

in-evento-programa – Evento do programa de chamada da CPC (inclui);
nm-ponto-chmada-cpc – Ponto de chamada da CPC;
Lg-mensagem-tela – indica se as mensagens de erro, que ocorreram dentro da cpc, serão ou não visualizadas em tela;
Cd-unidade-carteira – unidade da carteira do beneficiário;
Cd-carteira-usuario – código da carteira do beneficiário;
Cd-unidade-pre-princ – unidade do prestador principal;
Cd-prestador-princ – código do prestador principal
Cd-unidade-pre-solic – unidade do prestador solicitante;
Cd-prestador-solic - código do prestador solicitante
Cd-unidade-pre-execu – unidade do prestador executante;
Cd-prestador-execu - código do prestador executante
Cd-tipo-insumo – código do tipo de insumo
Cd-insumo – código do insumo
Qt-insumo – quantidade do insumo
Cd-tipo-vinculo – tipo de vinculo
Lg-trabalho-medico – Inidicador trabalhjo médico
cd-esp-prest-exec – Espedie do prestador executante
cd-unidade-prestador-ant – Unidade do prestador
cd-prestador-ant – Codigo do prestador
Cd-transacao – Código da transacao
Dt-realizacao – data de realização do movimento.
Cd-unidade-executante – Código da unidade executante do movimento
Cd-prestador-executante – código do prestador executante do movimeno
Nr-dias-validade – número de dias de validade do movimento
In-cobra-participacao – indica se cobra participação
Lg-proc-modulo – Inidica se calcula por modulo
Cd-tab-preco-caren – tabela de preço de carência
ds-mensagem-relatorio – descrição da mensagem do relatório
qt-caren-eletiva – Quantidade de carencia eletiva
qt-caren-urgencia - Quantidade de carência urgência
nr-recid-modulo - Recid do modulo
nr-recid-formpaga - Recid da forma de pagamento
nr-rowid-mov-insu – Rowid do insumo
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
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-insumo – Valor do insumo
Vl-taxa-out-insumo – valor da taxa de intercambio do insumo
lg-inclui-pacote - indica se o movimento está sendo incluído por um pacote
cd-classe-erro - Classe de erro do procedimento
vl-principal - Valor principal do procediemento
vl-taxa-out-uni-cobrado - Valor de taxa do intercâmbio para insumo
rw-docrecon - Rowid do documento.
dt-anoref – Ano do período do revisão de contas.
nr-perref – Número do período do revisão de contas.

Tabela de saída tmp-cpc-rc0311a7-saida

def temp-table tmp-cpc-rc0311a7-saida no-undo

fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields cd-tipo-vinculo like esp-med.cd-especialid
fields lg-trabalho-medico like moviproc.lg-trab-cooperado
fields cd-esp-prest-exec like tipovinc.cd-tipo-vinculo
field hr-realizacao-ini like moviproc.hr-realizacao
field hr-realizacao-fim like moviproc.hr-realizacao
fields cd-unidade-encaminhamento like moviproc.cd-unidade-prestador
fields cd-prestador-encaminhamento like moviproc.cd-prestador
field nr-dias-validade like pl-mo-am.nr-dias-validade
field in-cobra-partic as int format "99"
field lg-proc-modulo as log
field cd-tab-preco-caren like precproc.cd-tab-preco
field ds-mensrelat as char format "x(75)"
field qt-caren-eletiva like partinsu.qt-caren-eletiva
field qt-caren-urgencia like partinsu.qt-caren-urgencia
field nr-recid-modulo as recid
field nr-recid-formpaga as recid
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-insumo like mov-insu.vl-insumo
field vl-taxa-out-insumo like mov-insu.vl-taxa-out-insumo
field lg-erro-cpc as log
field cd-classe-erro like moviproc.cd-classe-erro
field lg-cpc-ant-inc-pacote-restr as log
field nr-cpc-ant-inc-pacote-restr as int
field lg-continua as log
field vl-principal like moviproc.vl-principal
field vl-taxa-out-uni-cobrado like moviproc.vl-taxa-out-uni-cobrado
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-troca-valores as log
field lg-desconsidera-glosa as log

field lg-calcula-vl-glosado as logical initial yes.

Definição campo a campo da tabela de saída

lg-undo-retry – indica que ocorreu algum erro durante o processamento.
Ds-mensagem-relatorio – retorna a mensagem correspondente ao erro, caso o campo lg-erro esteja ligado.
Cd-tipo-vinculo – tipo de vinculo
Lg-trabalho-medico – Inidicador trabalhjo médico
cd-esp-prest-exec – Espedie do prestador executante
Hr-realizacao-ini – Hora de realização inicial;
Hr-realizacao-fim – Hora de realização final.
Cd-unidade-encaminhamento – unidade de encaminhamento
Cd-prestador-encaminhamento – código do prestador que foi encaminhado
Nr-dias-validade – número de dias de validade do movimento
In-cobra-participacao – indica se cobra participação
Lg-proc-modulo – Inidica se calcula por modulo
Cd-tab-preco-caren – tabela de preço de carência
ds-mensagem-relatorio – descrição da mensagem do relatório
qt-caren-eletiva – Quantidade de carencia eletiva
qt-caren-urgencia - Quantidade de carência urgência
nr-recid-modulo - Recid do modulo
nr-recid-formpaga - Recid da forma de pagamento
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-insumo – Valor do insumo
Vl-taxa-out-insumo – valor da taxa de intercambio do insumo
lg-erro-cpc - indica se ocorreu erro na cpc
cd-classe-erro - indica classe de erro para o procedimento
lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido
nr-cpc-ant-inc-pacote-restr - indica número do movimento restringido
lg-continua - indica continuidade
vl-principal - valor principal do movimento de procedimento
vl-taxa-out-uni-cobrado - valor de taxa de intercâmbio cobrado de procedimento
vl-auxiliar - valor auxiliar do movimento de procedimento
vl-taxa-out-uni-prin - valor de taxa de intercâmbio principal de procedimento
vl-taxa-out-uni-auxi - valor de taxa de intercâmbio auxiliar de procedimento
lg-troca-valores - indica troca de valores
lg-desconsidera-glosa - indica para desconsiderar glosa.
lg-calcula-vl-glosado - indica para considerar valor glosado.