CPC-RC0312A9.P
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | cpc-rc0312a9.p |
Rotina utilizada:
- 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.
- Carregar o tipo de vínculo cadastrado em um movimento quando da sua modificação.
- 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 rc0312a9.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.
- Antes do selection-list dos tipos de vínculo do prestador executante.
- APOS-BUSCA-TAB - após a chamada do programa "rtp/rtprestp.p" e antes da busca da tabela "precproc", na procedure "modifi-insumos".
Ponto de Utilização
- "SUBST-PRES-EXEC"
- "LIMITA-DIGITOS"
- "ADICIONAL-URGE"
- "DEFAULT-ANEST"
- "CONTA-ANEST"
- "HORA-URGENCIA"
- "MOSTRA-NORMA"
- "VAL-QTDE-PROC"
- "VALIDA-GLOSA"
- "APOS-VALORIZA"
- "ANTES-TIPO-VINC"
- "APOS-BUSCA-TAB"
- "ANTES-QT-COB"
- "FIM-VL-PROCED": liberação a partir da 12.1.2301
"ANT-LIM-PARTIC": 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-rc0312a9.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0312a9-entrada
def temp-table tmp-cpc-rc0312a9-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 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 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-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-tipo-vinculo as char format "x(1)"
field dt-val-esp-vinculo like moviproc.dt-realizacao
field cd-tp-vinc like tipovinc.cd-tipo-vinculo
field ds-tp-vinc like tipovinc.ds-tipo-vinculo
field cd-unid-prestador like prestpro.cd-unidade
field cd-prestador like prestpro.cd-prestador
field cd-tipo-movto like prestpro.cd-tipo-proc-insu
field cd-tipo-insumo like procpres.cd-tipo-insumo
field cd-proc-insu like pl-mo-am.cd-amb
field cd-modalidade like prestpro.cd-modalidade
field cd-plano like prestpro.cd-plano
field cd-tipo-plano like prestpro.cd-tipo-plano
field cd-modulo like prestpro.cd-modulo
field dt-limite like prestpro.dt-limite
field cd-forma-pagto like formpaga.cd-forma-pagto
field r-precproc as recid
field nr-lote-imp like docrecon.nr-lote-imp
field nr-sequencia-imp like docrecon.nr-sequencia-imp
field qt-repasse like moviproc.qt-repasse
field cd-local-atendimento like locaaten.cd-local-atendimento
field vl-valorizado like moviproc.vl-principal
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-rc0312a7.p;
- 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;
- cd-esp-prest-executante – Código da especialidade do prestador executante;
- dt-realizacao – Data de realização do movimento;
- qt-digitos-proced – Quantidade do procedimento;
- nr-rowid-docrecon – rowid da tabela docrecon;
- lg-anestesista – Campo que indica se o prestador é anestesista;
- cd-unidade-carteira – Código da unidade da carteira;
- lg-urgencia – Campo que indica se o procedimento é/foi 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 do movimento;
- 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;
- vl-auxiliar – Valor auxiliar;
- vl-taxa-out-uni-prin – Valor da taxa de intercâmbio principal;
- vl-taxa-out-uni-auxi – Valor da taxa de intercâmbio auxiliar;
- cd-tipo-vinculo – Código do tipo de vínculo;
- dt-val-esp-vinculo – Data a ser considerada para a especialidade;
- cd-tp-vinc – Código do tipo de vínculo;
- ds-tp-vinc – Descrição do tipo de vínculo.
- cd-unid-prestador – Código da unidade do prestador origem.
- cd-prestador - Código do prestador origem.
- cd-tipo-movto - Indicador I para insumo, P para procedimento.
- cd-tipo-insumo - Código do insumo.
- cd-proc-insu – Código do procedimento.
- cd-modalidade - Código da modalidade.
- cd-plano - Código do plano.
- cd-tipo-plano - Tipo de plano.
- cd-modulo - Módulo.
- dt-limite - Data limite da validade da cobertura dos procedimentos.
- cd-forma-pagto – Forma de pagamento.
- r-precproc - Identificador da tabela de preços dos procedimentos (precproc).
- nr-lote-imp – Numero do lote de importação.
- nr-sequencia-imp - Número da sequência de importação do documento
- qt-repasse - Valor do campo Qt Repasse.
- cd-local-atendimento - Local de atendimento.
- vl-valorizado - valor calculado pelo sistema
- field 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 realização inicial.
- hr-realizacao-fim - Hora realização final.
Tabela de saída tmp-cpc-rc0312a9-saida
def temp-table tmp-cpc-rc0312a9-saida no-undo
field lg-erro as log
field ds-mensagem as char format "x(100)"
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 cd-classe-erro like movrcglo.cd-classe-erro
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 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 r-precproc as recid
field lg-bloqueia-qt-repasse-cob as log
field qt-repasse-cob like moviproc.qt-repasse-cob
field lg-calcula-vl-glosado as logical initial yes
field lg-atualiza-vl-valorizado as logical
field vl-valorizado like moviproc.vl-principal
field lg-atu-vl-val-prin-tela as logical
field lg-atu-vl-val-auxi-tela as logical
field lg-undo-retry as log.
Definição campo a campo da tabela de saída
- lg-erro – Campo que indica se houve erro 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-urgencia – Campo que indica se o procedimento é/foi de urgência;
- lg-adicional-urgencia – Campo que indica se há adicional de urgência;
- lg-solicita-urgencia – Campo que indica se há solicitação de adicional;
- lg-espec-anest – Campo que indica se a especialidade do prestador é anestesiologia;
- cd-classe-erro – Código da classe de erro;
- 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;
- vl-auxiliar – Valor auxiliar;
- vl-taxa-out-uni-prin – valor da taxa de intercâmbio principal do procedimento;
- vl-taxa-out-uni-auxi – valor da taxa de intercâmbio auxiliar do procedimento.
- r-precproc - Identificador da tabela de preços dos procedimentos (precproc).
- 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-valorizado - indica se deve atualizar a variável que armazena o valor calculado pelo sistema
- vl-valorizado - valor calculado pelo sistema
- lg-atu-vl-val-prin-tela - indica se deve atualizar o valor principal do procedimento na tela
- lg-atu-vl-val-auxi-tela - indica se deve atualizar o valor auxiliar do procedimento na tela
- lg-undo-retry - Indica se deve abortar o processo.