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"

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.

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.

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.