CPC-RC0312A8.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.
• Permitir o bloqueio da 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 no máximo um registro na tabela temporária de saída.
• Permitir o bloqueio da digitação do campo Cob.

Localização

• Dentro do programa rc0312a8.P na inclusão de movimentos no Revisão de Contas.
• Antes da chamada da rotina de validação de glosas.
• Após a valorização do procedimento, antes do lançamento da glosa 34.

...

• "SUBST-PRES-EXEC"
• "LIMITA-DIGITOS"
• "ADICIONAL-URGE"
• "DEFAULT-ANEST"
• "CONTA-ANEST"
• "HORA-URGENCIA"
• "MOSTRA-NORMA"
• "VAL-QTDE-PROC"
• "VALIDA-GLOSA"
• "APOS-VALORIZA"
• "ANTES-QT-COB"

Include das definições das tabelas temporárias

• cpc-rc0312a8.i

...

• "ANTES-EXCL-GLOSA"
• "APOS-EXIBE-VAL": liberação a partir da 12.1.2301
• "FIM-INC-PROCED": liberação a partir da 12.1.2305.
• "ANT-GRAVA-PROC" - a partir da versão 12.1.2407.

Include das definições das tabelas temporárias

• cpc-rc0312a8.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0312a8-entrada

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

field in-evento-programa  

Tabela de entrada tmp-cpc-rc0312a8-entrada

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

field in-evento-programa                            as char format "x(10)"
field nm-ponto-chamada-cpc                      as        as char format "x(1510)"
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 qt-digitos-proced                                 as handle field nr-rowid-docrecon as rowid
field lg-anestesista                                      as log
field cd-unidade-carteira                             like car-ide.cd-unimed
field lg-urgencia                                           as log
field qt-procedimento                                   as int
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 qt-repasse                                          like moviproc.qt-repasse.

Definição campo a campo da tabela de entrada

• in-evento-programa– Evento do programa que chama cpc-rc0312a8.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.
• qt-digitos-proced – número de dígitos aceito no campo quantidade de procedimentos.
• lg-anestesista – Indica se é anestesista.
• cd-unidade-carteira – Código da Unidade da Carteira.
• lg-urgencia – indica se o procedimento é de Urgência
• qt-procedimento – Quantidade 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
• qt-repasse - Valor do campo Qt Repasse.

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

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

field cd-unidade-prest-principal                  like unimed.cd-unimed
field cd-prestador-principal                         like moviproc.cd-prestador
field cd-local-atendimento                          like locaaten.cd-local-atendimento
field r-moviproc                                           as rowid
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-rc0312a8.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.
• qt-digitos-proced – número de dígitos aceito no campo quantidade de procedimentos.
• lg-anestesista – Indica se é anestesista.
• cd-unidade-carteira – Código da Unidade da Carteira.
• lg-urgencia – indica se o procedimento é de Urgência
• qt-procedimento – Quantidade 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
• qt-repasse - Valor do campo Qt Repasse.
• cd-unidade-prest-principal - Código unidade principal.
• cd-prestador-principal - Código do prestador principal.
• cd-local-atendimento - Local de atendimento.
• r-moviproc - rowid da tabela moviproc.
• cd-pacote - código do pacote.
• h-buffer-moviproc - tabela temporária de 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-rc0312a8-saida

def temp-table tmp-cpc-rc0312a8-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 field lg-erro                          as log
field lg-solicita-adicional                            as log
field dslg-espec-mensagem anest                                   as char format "x(75)"  as log
field cd-unidade-encaminhamento classe-erro                        like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento             like moviprocmovrcglo.cd-classe-prestadorerro
field lg-rtvalglo-urgencia cpc                                          as log
field lgcd-tipo-adicional-urgenciacob-cpc                                 as log  like moviproc.cd-tipo-cob
field lgvl-uso-solicitaindevido-adicionalcpc                            as loglike moviproc.vl-perc-usu-indevido
field lgcd-especvalidacao-anest cpc                                   as loglike moviproc.cd-validacao
field cd-user-classe-erro          validacao-cpc                         like movrcglomoviproc.cd-classeuser-errovalidacao
field lg-rtvalglocd-forma-pagto-cob-cpc                                    as log  like formpaga.cd-forma-pagto
field cd-tipo-cobpagamento-cpc                                  like moviproc.cd-tipo-cobpagamento
field vl-uso-indevido-cpcprincipal                                          like moviproc.vl-perc-usu-indevidoprincipal
field cd-validacao-cpc           vl-auxiliar                     like moviproc.cd-validacao
field cd-user-validacao-cpc                        like moviproc.cdvl-user-validacaoauxiliar
field cdvl-formataxa-pagtoout-cob-cpcuni-prin                                like formpaga.cd-forma-pagto
field cd-tipo-pagamento-cpcmoviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi                            like moviproc.cd-tipo-pagamento
field vl-principal vl-taxa-out-uni-auxi
field lg-bloqueia-qt-repasse-cob               as log
field qt-repasse-cob                                                            like moviproc.vlqt-repasse-principal
field cob
field lg-calcula-vl-auxiliarglosado                         as logical initial yes
field lg-atualiza-vl-prin-tela                          like moviproc.vl-auxiliar as logical
field vllg-taxaatualiza-outvl-uniauxi-printela                                like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi  as logical
field lg-undo-retry                                      like moviproc.vl-taxa-out-uni-auxi
field lg-bloqueia-qt-repasse-cob               as log
field qt-repasse-cob                                  like moviproc.qt-repasse-cob.

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

 as log.

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

• lg-erro – 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.
• cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
• cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante
• 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".
• cd-classe-erro – retorna a classe de erro do movimento.
• 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.
• 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-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
• lg-undo-retry - Indica se deve abortar o processo
• lg-erro – 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.
• cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
• cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante
• 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".
• cd-classe-erro – retorna a classe de erro do movimento.
• 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.
• 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-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.