Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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                              repasse                                          like  like moviproc.qt-repasse..

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.

 

...


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-principalauxiliar
field vl-auxiliar-taxa-out-uni-prin                               like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi                                 like moviproc.vl-auxiliar
field vl-taxa-out-uni-prin   auxi
field lg-undo-retry                                            like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxias log 
field lg-cpc-ant-inc-pacote-restr                    as log
field lg-bloqueia-qt-repasse-cob                  as log
field qt-repasse-cob                                    like moviproc.vlqt-taxa-out-uni-auxi
field lg-undo-retry               repasse-cob
field lg-calcula-vl-glosado                            as log logical initial yes
field lg-
cpcatualiza-antvl-inc-pacote-restr prin-tela                          as loglogical
field lg-
bloqueiaatualiza-qtvl-repasseauxi-cob tela                   as log
field qt-repasse-cob                                    like moviproc.qt-repasse-cobas 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