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.

...

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"

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.

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.

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.

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-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).

...