CPC-

...

RT_REVALORIZA_MOVIMENTO.P

...

Tabela de entrada tmp-cpc-rt-valreval-movto-entrada

def temp-table tmp-cpc-rt-reval-movto-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 -
Nome
• Indica o nome do ponto de
cpc.
• chamada;
• in-evento-programa
- Nome do evento do ponto de cpc.
• – 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
• in-tipo-movimento
vl-desconto-
• – 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 temp-table tmp-cpc-rt-reval-movto-saida

def temp-table tmp-cpc-rt-reval-movto-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
deve retornar SIM se
• . Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e
NÃO se
• se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• ds-mensagem –
Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com lg-undo-retry.
• 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
• lg-continua
vl-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