Histórico da Página

...

• "INICIO-PROCESSO"
• "TRATA-VL-INSUMO"
• "ANTES-PTUINSUM"
• "APOS-CARENCIA"

Include das definições das tabelas temporárias

...

def temp-table tmp-cpc-atapi022-entrada no-undo
    field nm-ponto-chamada      

...

as char format "x(15)"
    field cd-unidade-

...

prestador    like preserv.cd-unidade
    field cd-

...

prestador                 

...

 like preserv.cd-prestador
    field cd-

...

vinculo                     

...

 like previesp.cd-vinculo
    field dt-emissao-

...

guia              like guiautor.dt-emissao-guia
    field cd-tipo-

...

insumo             

...

 like insuguia.cd-tipo-insumo
    field cd-

...

insumo                     

...

 like insuguia.cd-insumo
    field cd-unid-prest-

...

exec       

...

 like insuguia.cd-unidade-prestador
    field cd-prestador-

...

exec         

...

like insuguia.cd-prestador
    field vl-insumo-

...

cob               

...

like insuguia.vl-insumo-cob
    field qt-

...

insumo                     

...

 like insuguia.qt-insumo
    field vl-insumo-inf 

...

                like insuguia.vl-insumo-inf
    field cd-unidade-principal 

...

...

like guiautor.cd-unidade-principal
    field cd-prestador-principal    like guiautor.cd-prestador-principal
    field cd-unidade-carteira       like guiautor.

...

cd-unidade-carteira
    field cd-pacote                      like insuguia.cd-pacote
    field cd-cid                            like guiautor.cd-cid
    field cd-cid1                         

...

like guiautor.

...

cd-cid1
    field cd-cid2                          like guiautor.cd-cid2
    field cd-cid3                          like guiautor.cd-cid3
    field cd-modalidade             like insuguia.cd-modalidade
    field nr-proposta                  like propost.nr-proposta
    field cr-internacao                like guiautor.cr-internacao
    field cd-usuario                    like usuario.cd-

...

usuario .

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada – Nome do ponto de cpc;
  • cd-unidade-prestador – Código da unidade do prestador principal;
  • cd-prestador – Código do prestador principal;
  • cd-vinculo – Código do vinculo do principal;
  • dt-emissao-guia – Data de emissão da Guia (AIH) ;
  • cd-tipo-insumo – Código do tipo do insumo;
  • cd-insumo – Código do insumo;
  • cd-unid-prest-exec – Código da unidade do prestador executante;
  • cd-prestador-exec – Código do prestador executante.
  • vl-insumo-cob – Valor do insumo cobrado;
  • qt-insumo – quantidade de insumos;
  • vl-insumo-inf – valor do insumo informado;
  • cd-unidade-principal - código da unidade do prestador principal;
  • cd-prestador-principal - código do prestador principal;
  • cd-unidade-carteira - código da unidade da carteira do beneficiário;
  • cd-pacote - código do pacote.
  • cd-cid - Código internacional de doenças principal.
  • cd-cid1 - Código internacional de doenças 1.
  • cd-cid2 - Código internacional de doenças 2.
  • cd-cid3 - Código internacional de doenças 3.
  • cd-modalidade - Modalidade da proposta
  • nr-proposta - Numero da proposta
  • cr-internaçao - Caráter da Internação "E" Eletiva/"U" Urgência
  • cd-usuario - código do usuário.

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

def temp-table tmp-cpc-atapi022-saida no-undo
    field lg-

...

erro                          as log
    field ds-

...

erro                         as char format "x(100)"
    field cd-unidade-

...

prestador  like preserv.cd-unidade
    field cd-

...

prestador               

...

like preserv.cd-prestador
    field cd-

...

vinculo                   

...

like previesp.cd-vinculo
    field cd-

...

especialid             

...

 like previesp.cd-especialid
    field vl-insumo-

...

cob           

...

 like insuguia.vl-insumo-cob
    field vl-insumo-uni 

...

            like insuguia.dec-15
    field lg-busca-ptuinsum     as logical initial yes
    field lg-insumo-generico    as logical

...

    field lg-

...

erro-glosa              as logical.

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

• • lg-erro – Indica a ocorrência de erro no processamento da CPC;
  • ds-erro – A mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
  • cd-unidade-prestador – Código da unidade do prestador executante;
  • cd-prestador – Código do prestador executante;
  • cd-vinculo – Código do vinculo do prestador executante;
  • cd-especialid – Código da especialidade do prestador executante.
  • Vl-insumo-cob – Valor do insumo cobrado.
  • Vl-insumo-inf – Valor do insumo informado;
  • lg-busca-ptuinsum - Indica se deve fazer a busca de produto na tabela "ptuinsum";
  • lg-insumo-generico - Indica se deve considerar o insumo como genérico.
  • lg-erro-glosa - Indica se deve ser gerado glosa ou não.