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