Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • "INICIO-PROCESSO"
  • "TRATA-VL-INSUMO"
  • "ANTES-PTUINSUM"
  • "APOS-CARENCIA" - a apartir da versão 12.1.2301

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

    field cr-solicitacao         like guiautor.cr-solicitacao .

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.
    • cr-solicitacao - Caráter do Atendimento SADT  "E" Eletiva/"U" Urgência


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

...