Histórico da Página
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"
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
- "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 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.
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.
Tabela de saída tmp-cpc-rc0311b6-saida
def temp-table tmp-cpc-rc0311b6-saida no-undo
field qt-repasse like moviproc.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 field lg-erro as log
field ds-mensagem lg-adicional-urgencia as char format "x(75)"
field cd-unidade-encaminhamento as log
field lg-solicita-adicional like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento like moviproc.cd-prestadoras log
field lg-urgencia espec-anest as as log
field lg-adicional-urgencia anestesiologista as as log
field lg-solicita-adicional rtvalglo-cpc as log
field lgcd-tipo-especcob-anestcpc as log
field lg-anestesiologistalike moviproc.cd-tipo-cob
field vl-uso-indevido-cpc as loglike moviproc.vl-perc-usu-indevido
field lgcd-rtvalglovalidacao-cpc as log like moviproc.cd-validacao
field cd-tipouser-cobvalidacao-cpc like moviproc.cd-tipouser-cobvalidacao
field vlcd-forma-usopagto-indevidocob-cpc like moviprocformpaga.vlcd-percforma-usu-indevidopagto
field cd-validacaotipo-pagamento-cpc like moviproc.cd-tipo-validacaopagamento
field cdlg-usermostra-validacao-cpcmensagem like moviproc.cd-user-validacao as log
field cd-forma-pagto-cob-cpcvl-principal like formpagamoviproc.cdvl-forma-pagtoprincipal
field cd-tipo-pagamento-cpcvl-auxiliar like moviproc.cdvl-tipo-pagamentoauxiliar
field lg-mostra-mensagem vl-taxa-out-uni-prin like moviproc.vl-taxa-out-uni-prinas log
field vl-principal -taxa-out-uni-auxi like moviproc.vl-principal-taxa-out-uni-auxi
field vllg-undo-auxiliarretry like moviproc.vl-auxiliaras log
field vllg-cpc-taxaant-outinc-unipacote-prin restr like moviproc.vl-taxa-out-uni-prinas log
field vllg-taxabloqueia-outqt-unirepasse-auxicob 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 logical initial yes
field lg-atualiza-vl-prin-tela as log logical
field lg-cpcatualiza-ant-incvl-pacoteauxi-restr tela as loglogical.
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 – Variável que retornar mensagem de erro, se ocorrido dentro da CPCde 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-adicionalespec-urgencia – Variável de retorno do valor do adicional de urgênciaanes – 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-urgencia anestesiologista – 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.
- 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 pagamentolg-rtvalglo-cpc - Campo que informa se o movimento foi validado ou não.
- cd-tipo-cobpagamento-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.
- 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 telalg-cpc-ant-inc-pacote-restr - indica se o movimento deve ser restringido.