CPC-RC0610J.P

• Rotina utilizada na Revalorização dos Movimentos executada nas opções de Simulação e Atualização.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do rc0610j.p, no final da consulta.
• Após a valorização do procedimento e do insumo, antes do lançamento da glosa 34.
• Ponto "APOS-VAL-MOVTO" no final da procedure valorizar movimento, após a revalorização dos procedimentos e insumos.

Ponto de Utilização

• "ALTERA-MOVTO"
• "APOS-VALORIZA"
• "APOS-VAL-MOVTO"
• "APOS-COBVAL"
• "ANTES-SEL-PRO"

Include das definições das tabelas temporárias

• CPC-RC0610J.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-fp0610j-entrada

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

field nm-ponto-chamada               as char format "x(15)"
field in-evento-programa               as char format "x(10)"
field nr-rowid-proc-insu                  as rowed
field cd-unidade-cpc                      like mov-insu.cd-unidade
field aa-guia-atendimento             like guiautor.aa-guia-atendimento
field nr-guia-atendimento              like guiautor.nr-guia-atendimento
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-insumo                              like mov-insu.vl-insumo
field vl-taxa-out-insumo                 like mov-insu.vl-taxa-out-insumo
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 in-tipo-movimento                  as char

field vl-desconto-prestador            like moviproc.vl-desconto-prestador
field nr-rowid-paproins                  as rowid.

Definição campo a campo da tabela de entrada

• nm-ponto-chamada-cpc - Indica o nome do ponto de chamada;
• in-evento-programa – Indica o evento;
• nr-rowid-proc-insu – Rowid da tabela moviproc
• cd-unidade-cpc – Código da unidade do prestador
• aa-guia-atendimento – Ano da guia de atendimento
• nr-guia-atendimento – Número da guia de atendimento
• 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-insumo – Valor do insumo
• vl-taxa-out-insumo – Valor da taxa de intercambio do insumo
• 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
• vl-desconto-prestador - Valor referente ao desconto do prestador
• nr-rowid-paproins - Identificador do registro na tabela de pacotes.

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

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

field lg-undo-retry                             as log
field ds-mensagem                          as char format "x(75)"
field lg-continua                                as log initial yes
field vl-insumo                                  like mov-insu.vl-insumo
field vl-taxa-out-insumo                     like mov-insu.vl-taxa-out-insumo
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 vl-desconto-prestador                like moviproc.vl-desconto-prestador
field cd-tab-preco-proc-cob               like moviproc.cd-tab-preco-proc-cob.

Definição campo a campo da tabela de movimento

• 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.
• ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
• lg-continua - Variável que retorna se o programa continua o processo de alteração do movimento ou não.
• vl-insumo – Valor do insumo
• vl-taxa-out-insumo – Valor da taxa de intercambio do insumo
• 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.
• vl-desconto-prestador - Valor referente ao desconto do prestador
• cd-tab-preco-proc-cob - Tabela de preço de cobrança