Histórico da Página

...

• "SUBST-PRES-EXEC"
• "CONTA-ANEST"
• "HORA-URGENCIA"
• "DATA-BASE-MOVTO"
• "MUDA-VEZES-TAB": Utilizado para modificar a quantidade de vezes que será aplicada a tabela de moedas.
• "ALTERA-VALOR": Utilizado para modificar o valor do procedimento
• "MODULO-COBERT": Permitir valorizar determinados procedimentos de pediatria, considerando o modulo de cobertura relacionado a outro procedimento.
• "APOS-VALORIZA"
• "CONS-PRESTADOR"
• "CONS-PRAZO"
• "ANTES-CARENCIA"
• "VERIF-ANEST"
• "ANTES-GLOSAR"
• "APOS-GLOSA-53"
• "CONTR-QUANT": Utilizado para indicar se será feito o controle quantitativo do movimento.
• "COMPL-MOVTO" :Utilizado para criar complemento do movimento.
• "ALT-VALOR-COB" :Utilizado para alterar o valor de cobrança do movimento.
• "ANTES-GLO-BASE"
• "ANTES-GLO-PROC"
• "TRAB-COOPERADO"

Include das definições das tabelas temporárias

• cpc-rcapi021.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rcapi021-entrada

def temp-table tmp-cpc-rcapi021-entrada no-undo

• "ANT-RTVIGENCIA"
• "ANT-VERI-DUPLO": liberação a partir da 12.1.2301.
• "APOS-CRIA-COMPL": liberação a partir da 12.1.2301.
• "ANT-HR-URG-PAG" - a partir da versão 12.1.2301.
• "FIM-MANUTENCAO" - a partir da versão 12.1.2407.

• "ANTES-RTAPI025" - a partir da versão 12.1.2411.

Include das definições das tabelas temporárias

• cpc-rcapi021.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rcapi021-entrada

def temp-table tmp-cpc-rcapi021-entrada no-undo

field in-evento-programa                            as char format "x(10)"
field nm-ponto-chamada-cpc                     as char format "x(15)"
field in-entidade                                         as char format "x(02)"
field dt-realizacao                                       like moviproc.dt-base-valor
field dt-emissao                                          like moviproc.dt-base-valor
field r-recid-periodo                                    as recid
field r-recid-transacao                                 as recid
field cd-uni-cart-ben         field in-evento-programa                            as char format "x(10)"
field nm-ponto-chamada-cpc like previesp.cd-unidade
field cd-uni-pres-exec                                 as char format "x(15)"
field in-entidade like previesp.cd-unidade
field cd-pres-exec                                         as char format "x(02)" like previesp.cd-prestador
field dt-realizacao base-valor                                       like  like moviproc.dt-base-valor
field dt-emissao informada                                          like moviproc.dt-base-valor
field rcd-recidunidade-periodo executante                                    as recid
field r-recid-transacao        like moviproc.cd-unidade-prestador
field cd-prestador-executante                           as recid like moviproc.cd-prestador
field cd-uni-cart-ben procedimento                                   like previesp.cd-unidade  as int format 99999999
field cd-uni-pres-exec lg-urgencia                                         like previesp.cd-unidade as log
field cdlg-pres-exec anestesista                                      like previesp.cd-prestador as log
field dt-base-valor cd-unidade                                          like moviproclike docrecon.dtcd-base-valorunidade
field dtcd-unidade-informada prestadora                       like docrecon.cd-unidade-prestadora
field cd-transacao                like moviproc.dt-base-valor
field cd-unidade-executante                        like moviprocdocrecon.cd-unidade-prestadortransacao
field cdnr-serie-prestador-executante doc-original                            like moviproc.cd-prestador
field cd-procedimento docrecon.nr-serie-doc-original
field nr-doc-original                                    as int format 99999999
field lg-urgencia  like docrecon.nr-doc-original
field nr-doc-sistema                                         as log
field lg-anestesista like docrecon.nr-doc-sistema
field qt-fat-rep-urg                                      as log like precproc.qt-fat-rep-urgencia
field cdvl-unidade principal                                         like docrecon like moviproc.cdvl-unidade principal
field cdvl-base-unidadevalor-prestadora sistema                         like docrecon.cd-unidade-prestadora
field cd-transacao  like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos                        like moviproc.vl-honorarios-medicos
field qt-repasse                like docrecon.cd-transacao
field nr-serie-doc-original                            like docreconmoviproc.nr-serie-doc-original qt-repasse
field nrqt-docrepasse-original cob                                    like docreconlike moviproc.nrqt-docrepasse-original cob
field nrlg-muda-docqt-sistema repasse                                   like docrecon.nr-doc-sistema
field qt-fat-rep-urg    like tranrevi.lg-muda-qt-repasse
field nr-rowid-precproc                                    like precproc.qt-fat-rep-urgencia as rowid
field vl-principal cobrado                                            like like moviproc.vl-principalcobrado
field vl-base-valor-sistema auxiliar                                              like like moviproc.vl-base-valor-sistema auxiliar
field vl-honorarios-medicos taxa-out-uni-prin                              like moviproc.vl-taxa-out-honorariosuni-medicos prin
field qt-repasse           vl-taxa-out-uni-auxi                                like moviproc.qt-repassevl-taxa-out-uni-auxi
field qtaa-repasseguia-cob atendimento                                   like moviprocdocrecon.qtaa-repasseguia-cobatendimento
field lgnr-mudaguia-qt-repasse atendimento                            like tranrevidocrecon.lgnr-mudaguia-qt-repasseatendimento
field nrlg-rowidtrab-precproc cooperado                                as rowid like moviproc.lg-trab-cooperado
field vlpc-taxa-cobrado acp                                           like moviproc.vlpc-cobradoaplicado
field vlpc-taxa-auxiliar aca                                             like moviproc.vlpc-auxiliaraplicado
field vl-taxa-out-uni-prin nr-processo                              like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi                              like moviproc.vl-taxa-out-uni-auxinr-processo
field aanr-guia-atendimento seq-digitacao                                   like docreconmoviproc.aanr-guiaseq-atendimentodigitacao
field nr-guia-atendimento     vl-taxa-out-uni-cobrado                        like docrecon.nr-guia-atendimento
field lg-trab-cooperado moviproc.vl-taxa-out-uni-cobrado
field cd-local-atendimento                                 like moviproc.lg-trab-cooperado
field pc-taxa-acp         like locaaten.cd-local-atendimento
field vl-cobrado-div-hono                                    like moviproc.pcvl-aplicadocobrado
field pcvl-principal-taxadiv-aca hono                                         like moviproc.pcvl-aplicadoprincipal
field nr-processo vl-auxiliar-div-hono                                          like like moviproc.nrvl-processo auxiliar
field nr-seq-digitacao                     vl-taxa-out-uni-cobrado-div-hono               like moviproc.nr-seq-digitacaovl-taxa-out-uni-cobrado
field vl-taxa-out-uni-prin-cobrado div-hono                        like    like moviproc.vl-taxa-out-uni-cobradoprin
field cd-local-atendimento              vl-taxa-out-uni-auxi-div-hono               like locaaten.cd-local-atendimento.field vl-cobrado-div-hono moviproc.vl-taxa-out-uni-auxi
field lg-simula                                 like moviproc.vl-cobrado
field vl-principal-div-hono                   as logical
field cd-esp-amb            like moviproc.vl-principal
field vl-auxiliar-div-hono                               like  like moviproc.vlcd-esp-auxiliaramb
field vlcd-taxa-out-uni-cobrado-div-hono proce-amb                                      like  like moviproc.vl-taxa-out-uni-cobradocd-procedimento
field vl-taxa-out-uni-prin-div-hono dv-procedimento                                     like moviproc.vl-taxa-out-uni-prin
field vl-taxa-out-uni-auxi-div-hono dv-procedimento
field cd-motivo-alta                                      like moviprocdocrecon.vlcd-taxa-out-uni-auximotivo-alta
field lgcd-simula  faturamento                                                as logical
field cd-esp-amb   like docrecon.cd-faturamento
field nm-decl-nasc-viv                                           like moviproc.cd-esp-amb
field cd-proce-amb  like docrecon.nm-decl-nasc-viv
field nm-decl-obito                                       like moviproclike docrecon.cdchar-procedimento5
field dvcd-unidade-procedimento  pagamento                       like moviproc.cd-unidade-pagamento
field cd-prestador-pagamento              like        like moviproc.dvcd-prestador-procedimentopagamento
field cdtp-motivo-alta  tec-util                                              like docreconmoviproc.cdtp-motivotec-altautil
field cd-faturamento  h-moviproc                                           like docrecon.cd-faturamento as handle
field nm-decl-nasc-viv  r-movto                                                like docrecon.nm-decl-nasc-viv
field nm-decl-obito   as rowid
field h-buffer-tmp-docrecon                        as handle
field h-buffer-tmp-moviproc                        like docrecon.char-5as handle
field cdh-unidade-pagamento  buffer-moviproc                                 like moviproc.cd-unidade-pagamentoas handle
field h-buffer-movimen-proced-compl        as handle
field cd-prestadortab-preco-pagamento  proc                    like moviproc.cd-tab-prestadorpreco-pagamentoproc

field tpdt-tecpublicacao-util  pacote                                             like moviproc.tp-tec-util   as date.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc-rcapi021.p. 
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
  • in-entidade – Identifica o modulo do sistema SERIOUS que esta efetuando acesso a rotina;
  • dt-realização – Data de realização do movimento;
  • dt-emissão – Data de emissão do movimento, se controle por fatura.
  • r-recid-periodo – Recid da tabela PERIMOVI (Períodos de Movimentação);
  • r-recid-transacao – Recid da tabela TRANREVI (Transação);
  • cd-uni-cart-ben – Unidade da carteira do beneficiário;
  • cd-uni-pres-exec – Unidade do prestador executante;
  • cd-pres-exec – Prestador executante;
  • dt-base-valor – Data base de valorização, selecionda pelo sistema;
  • dt-informada – Data base para calculo informada.
  • cd-unidade-executante – Código da unidade do prestador Executante.
  • cd-prestador-executante – Código do prestador Executante.
  • cd-procedimento – Código do procedimento atual.
  • lg-urgencia – Log que define se o movimento é de urgência.
  • cd-unidade – Código da unidade do beneficiário.
  • cd-unidade-prestadora – Código da unidade prestadora.
  • cd-transacao – Código da Transação.
  • nr-serie-doc-original – Número da Série do documento Original.
  • nr-doc-original – Número do documento Original.
  • nr-doc-sistema – Número do documento no sistema.
  • qt-fatrep-urgencia – Quantidade de vezes de pagamento da tabela quando estiver em urgência
  • vl-principal – Valor do procedimento após a valorização do mesmo
  • vl-base-valor-sistema - Valor que o sistema valorizou.
  • vl-honorarios-medicos - Valor para honorários médicos.
  • qt-repasse – Quantidade de vezes da tabela de moedas foi aplicada no procedimento
  • qt-repasse-cob – Quantidade de vezes da tabela de moedas foi aplicada no procedimento para cobrança
  • lg-muda-qt-repasse – Parâmetro da transação que informa se permite a modificação da quantidade da tabela
  • nr-rowid-precproc – ROWID da tabela de moedas e carências utilizada
  • vl-cobrado - Valor cobrado pelo prestador no procedimento.
  • vl-auxiliar – Valor auxiliar cobrado pelo prestador no procedimento.
  • vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
  • vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades.
  • aa-guia-atendimento – Ano da guia de atendimento.
  • nr-guia-atendimento – N° da guia de atendimento.
  • lg-trab-cooperado – Parâmetro de informação de trabalho cooperado.
  • pc-taxa-acp – Percentual da taxa principal.
  • pc-taxa-aca – Percentual da taxa auxiliar.
  • nr-processo – Número do processo do movimento.
  • nr-seq-digitacao – Número seqüencial de digitação do movimento.
  • vl-taxa-out-uni-cobrado - Valor da taxa.
  • dt-digitacao – Data de digitação do movimento.
  • hr-realizacao – Hora de realização do movimento.
  • cd-local-atendimento - Local de atendimento.
  • vl-cobrado-div-hono - Valor cobrado referente à divisão de honorários.
  • vl-principal-div-hono - Valor principal referente à divisão de honorários.
  • vl-auxiliar-div-hono - Valor auxiliar referente à divisão de honorários.           
  • vl-taxa-out-uni-cobrado-div-hono - Valor cobrado referente à da taxa referente ao valor cobrado da divisão de honorários.
  • vl-principal-taxa-out-uni-prin-div-hono hono - Valor principal referente à da taxa referente ao valor principal da divisão de honorários.
  • vl-auxiliar-taxa-out-uni-auxi-div-hono - Valor auxiliar referente à da taxa referente ao valor auxiliar da divisão de honorários.           
  • vl-taxa-out-uni-cobrado-div-hono - Valor da taxa referente ao valor cobrado da divisão de honorários.
  • vl-taxa-out-uni-prin-div-hono - Valor da taxa referente ao valor principal da divisão de honorários.
  • vl-taxa-out-uni-auxi-div-hono - Valor da taxa referente ao valor auxiliar da divisão de honorários.
  • lg-simula - Indica se o processo é uma simulação.
  • cd-esp-amb - os dígitos 1-2 do código do procedimento;
  • cd-proce-amb - os dígitos 5-7 do código do procedimento;
  • dv-procedimento - dígito verificador do código do procedimento;
  • cd-motivo-alta - código do motivo de alta;
  • cd-faturamento - código do tipo de faturamento;
  • nm-decl-nasc-viv - declaração de nascido vivo;
  • nm-decl-obito - declaração de óbito;
  • cd-unidade-pagamento - código da unidade do prestador de pagamento;
  • cd-prestador - pagamento - código do prestador de pagamento;
  • lg-simula - Indica se o processo é uma simulação.
  • cd-esp-amb - os dígitos 1-2 do código do procedimento;
  • cd-proce-amb - os dígitos 5-7 do código do procedimento;
  • dv-procedimento - dígito verificador do código do procedimento;
  • cd-motivo-alta - código do motivo de alta;
  • cd-faturamento - código do tipo de faturamento;
  • nm-decl-nasc-viv - declaração de nascido vivo;
  • nm-decl-obito - declaração de óbito;
  • cd-unidade-pagamento - código da unidade do prestador de pagamento;
  • cd-prestador - pagamento - código do prestador de pagamento;
  • tp-tec-util - código da técnica utilizada
  • h-moviproc - handle para a tabela temporária tmp-moviproc
  • r-movto - rowid do procedimento (tabela ambproce)
  • h-buffer-tmp-docrecon - handle para o buffer do registro corrente da tabela temporária tmp-docrecon
  • h-buffer-tmp-moviproc - handle para o buffer do registro corrente da tabela temporária tmp-moviproc
  • h-buffer-moviproc - handle para o buffer do registro corrente da tabela moviproc
  • h-buffer-movimen-proced-compl - handle para o buffer do registro corrente da tabela movimen-proced-compl
  • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento
  • dt-publicacao-pacote - data do pacote sispactp-tec-util - código da técnica utilizada.

Tabela de saída tmp-cpc-rcapi021-saida

def temp-table tmp-cpc-rcapi021-saida no-undo-cpc-rcapi021-saida no-undo

field dt-base-valor                                          like moviproc.dt-base-valor
field lg-undo-retry                                           as log
field ds-mensagem field dt-base-valor                                       as char
field cd-unidade-encaminhamento                like moviproc.dt-base-valorcd-unidade-prestador
field cd-prestador-encaminhamento              like moviproc.cd-prestador
field lg-undoespec-retry     anest                                       as log
field ds-mensagem cd-classe-erro                                         as charlike movrcglo.cd-classe-erro
field cd-unidade-encaminhamento lg-urgencia                                  like moviproc.cd-unidade-prestador
field cd-prestador-encaminhamento              like moviproc.cd-prestadoras log
field lg-espec-anest qt-repasse                                             as log like moviproc.qt-repasse
field cdqt-classerepasse-erro cob                                         like movrcglomoviproc.cdqt-classerepasse-errocob
field lgvl-urgencia principal                                             as log like moviproc.vl-principal
field qt-repasse vl-base-valor-sistema                              like moviproc.vl-base-valor-sistema
field vl-honorarios-medicos                              like like moviproc.qtvl-honorarios-repassemedicos
field qt-repasse-cob vl-cobrado                                               like moviproc.qtvl-repasse-cobcobrado
field vlcd-principal modulo                                                like like moviproc.vlcd-principalmodulo.
field vl-base-valor-sistema auxiliar                                                  like like moviproc.vl-base-valor-sistemaauxiliar
field vl-honorarios-medicos taxa-out-uni-prin                                   like moviproc.vl-honorarios-medicos.vl-taxa-out-uni-prin
field vl-cobrado     -taxa-out-uni-auxi                                           like moviproc.vl-cobradotaxa-out-uni-auxi
field cd-controla-modulo quantitativo                                               like  like moviproc.cd-controla-modulo.quantitativo
field vllg-auxiliar continua                                                 like moviproc.vl-auxiliar as log
field vl-taxa-out-uni-prin       cobrado                             like  like moviproc.vl-taxa-out-uni-princobrado
field vl-taxa-out-uni-auxi dt-digitacao                                             like  like moviproc.vldt-taxa-out-uni-auxibase-valor
field cd-controla-quantitativo hr-realizacao                                            like moviproc.cdhr-controla-quantitativorealizacao
field lg-continua prossegue                                               as logas logical initial yes
field vllg-taxaaltera-out-uniclasse-cobrado erro                             like moviproc.vl-taxa-out-uni-cobrado
field dt-digitacao       as logical
field lg-calcula-vl-glosado                                               like moviproc.dt-base-valor
field hr-realizacao  as logical initial yes
field lg-trab-cooperado                                             like moviproc.hr-realizacao
field lg-prossegue     as logical
field r-movto-saida                                            as logical initial yesrowid
field lg-alt-cd-alteratab-classepreco-erro    proc    as logical
field cd-tab-preco-proc           like moviproc.cd-tab-preco-proc

field lg-altera-campos            as log
field fat-via-acesso-pag            as logicaldec
field lgfat-calculavia-vl-glosado as logical initial yesacesso-cob          as dec.

Definição campo a campo da tabela de saída

• • • dt-base-valor – Data base para valorização do movimento. Esta data somente será considerada, quando retornada da CPC, se for válida;
    • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.cd-unidade-encaminhamento – Unidade a ser substituída pela Unidade Executante
    • ds-mensagem – Variável que retornar mensagem de erro, se ocorrido dentro da CPC.
    • cd-prestador-encaminhamento – Prestador a ser substituído pelo Prestador Executante.
    • lg-espec-anest – Indicador de anestesista.
    • cd-classe-erro – Código da classe de erro referente.
    • lg-urgencia – Log que define se o movimento é de urgência.
    • qt-repasse – Retorna a nova quantidade da tabela para ser aplicada
    • qt-repasse-cob – Retorna a nova quantidade da tabela para ser aplicada para cobrança
    • vl-principal – Retorna o novo valor do procedimento
    • vl-base-valor-sistema - Valor que o sistema valorizou
    • vl-honorarios-medicos - Valor para honorários médicos
    • vl-cobrado – Retorna o novo valor cobrado pelo prestador para o procedimento
    • cd-modulo – Retorna o novo modulo.
    • vl-auxiliar – Valor auxiliar cobrado pelos prestadores.
    • vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
    • vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades
    • cd-controla-quantitativo – Indicador de controle quantitativo.
    • lg-continua – Indica se deve continuar ou na a inclusão do movimento.
    • vl-taxa-out-uni-cobrado – Valor da taxa.
    • lg-prossegue - Indica se continua a execução ou não.
    • lg-altera-classe-erro - Indica se irá alterar a classe de erro com a classe de erro informada na tabela de saída.
    • valor do procedimento
    • vl-base-valor-sistema - Valor que o sistema valorizou
    • vl-honorarios-medicos - Valor para honorários médicos
    • vl-cobrado – Retorna o novo valor cobrado pelo prestador para o procedimento
    • cd-modulo – Retorna o novo modulo.
    • vl-auxiliar – Valor auxiliar cobrado pelos prestadores.
    • vl-taxa-out-uni-prin – Valor da taxa quando prestador de outras unidades.
    • vl-taxa-out-uni-auxi – Valor da taxa auxiliar quando prestador de outras unidades
    • cd-controla-quantitativo – Indicador de controle quantitativo.
    • lg-continua – Indica se deve continuar ou na a inclusão do movimento.
    • vl-taxa-out-uni-cobrado – Valor da taxa.
    • lg-prossegue - Indica se continua a execução ou não.
    • lg-altera-classe-erro - Indica se irá alterar a classe de erro com a classe de erro informada na tabela de saída.
    • lg-calcula-vl-glosado - indica para considerar valor glosado.
    • lg-trab-cooperado - indica se o procedimento foi realizado por um médico cooperado
    • r-movto-saida - rowid do procedimento (tabela ambproce)
    • lg-alt-cd-tab-preco-proc - indica se a tabela de quantidade de moedas para pagamento deve ser alterada com a retornada da CPC
    • cd-tab-preco-proc - tabela de quantidade de moedas para pagamento
    • lg-altera-campos - indica se os fatores da via de acesso serão alterados
    • fat-via-acesso-pag - fator da via de acesso de pagamento
    • fat-via-acesso-cob - fator da via de acesso de cobrança   lg-calcula-vl-glosado - indica para considerar valor glosado.