- 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"
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.
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 movimento
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.
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-cpc-ant-inc-pacote-restr as log. .
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-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas