CPC-RC0312A7.P

Produto:

Gestão de Planos de Saúde

Módulo:Todos
Versão:12.x.x
Assuntos:

cpc-rc0312a7.p

Rotina utilizada para:


Localização

Ponto de Utilização

Include das definições das tabelas temporárias


Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0312a7-entrada

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

field in-evento-programa                       as char format "x(06)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field lg-mensagem-na-tela                     as logical
field cd-unidade-carteira                        like docrecon.cd-unidade-carteira
field cd-carteira-usuario                         like docrecon.cd-carteira-usuario
field cd-unidade-pre-princ                      like preserv.cd-unidade
field cd-prestador-princ                          like preserv.cd-prestador
field cd-unidade-pre-solic                       like preserv.cd-unidade
field cd-prestador-solic                           like preserv.cd-prestador
field cd-unidade-pre-execu                    like preserv.cd-unidade
field cd-prestador-execu                        like preserv.cd-prestador
field cd-tipo-insumo                               like insuguia.cd-tipo-insumo
field cd-insumo                                     like insuguia.cd-insumo
field qt-insumo                                      like insuguia.qt-insumo
field cd-unidade-executante                 like moviproc.cd-unidade-prestador
field cd-prestador-executante               like moviproc.cd-prestador
field lg-movto-sem-tp-saida                  as logical
field nr-rowid-mov-insu                         as rowid
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 cd-tipo-insumo-cpc                        like mov-insu.cd-tipo-insumo
field cd-insumo-cpc                              like mov-insu.cd-insumo
field cd-unidade-cpc                             like mov-insu.cd-unidade
field cd-unidade-prestadora-cpc           like mov-insu.cd-unidade-prestadora
field cd-transacao-cpc                          like mov-insu.cd-transacao
field nr-serie-doc-original-cpc                like mov-insu.nr-serie-doc-original
field nr-doc-original-cpc                        like mov-insu.nr-doc-original
field nr-doc-sistema-cpc                       like mov-insu.nr-doc-sistema
field nr-processo-cpc                           like mov-insu.nr-processo
field nr-seq-digitacao-cpc                    like mov-insu.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-insumo                                   like mov-insu.vl-insumo
field vl-taxa-out-insumo                      like mov-insu.vl-taxa-out-insumo
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-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


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

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

fields lg-undo-retry                                   as logical
fields ds-mensagem-relatorio                   as char format "x(75)"
fields cd-unidade-encaminhamento         like moviproc.cd-unidade-prestador
fields cd-prestador-encaminhamento       like moviproc.cd-prestador
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-insumo                                          like mov-insu.vl-insumo
field vl-taxa-out-insumo                            like mov-insu.vl-taxa-out-insumo
field lg-erro-cpc                                       as log
fields cd-classe-erro                                like moviproc.cd-classe-erro
field qt-glosado                                       like mov-insu.qt-glosado
field r-precproc                                       as recid

field lg-calcula-vl-glosado                            as logical initial yes.

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