Árvore de páginas

Versões comparadas

Chave

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

...

Ponto de Utilização

  • "AN-BUSCA-SISPAC"
  • "AP-BUSCA-SISPAC" - liberação a partir da 12.1.2301
  • "ANT-VAL-STATUS" - liberação a partir da 12.1.2411

Include das definições das tabelas temporárias

...

def temp-table tmp-bosau-pack-softw-entrada no-undo
    field nm-ponto-chamada-cpc                  as char format "x(15)"
    field nm-evento  evento                             as char
    field h-tmpBosauPackageSoftwareInp         as char as handle
    field h-tmpBosauPackageSoftwareInp  tmpPackageSoftware                  as handle
    field h-tmpPackageSoftware      tmpPackageComposition               as handle
    field h-tmpMedicalSupplies  tmpPackage                          as handle
    field h-tmpProcedures  tmpMedicalSupplies                  as handle
    field h-tmpProcedures                    as handle    as handle
    field id-status                             as char.

Definição campo a campo da tabela de entrada

      • nm-ponto-chamada-cpc – Ponto ponto de chamada da CPC;
      • in-evento-programa – Nome nome do evento;
      • h-tmpBosauPackageSoftwareInp – handle da temp com os parâmetros da requisição;
      • h-tmpPackageSoftware - handle da temp com os parâmetros da requisição;
      • h-tmpPackageComposition - handle da temp com a composição do pacote;
      • h-tmpPackage – handle da temp com os dados do pacote;
      • h-tmpMedicalSupplies  – handle da temp com todos os insumos convertido e no formato do GPS;
      • h-tmpProcedures – handle da temp com todos os procedimentos no formato do GPS;
      • id-status - status da consulta retornado pelo Sispac.


Tabela de saida

def temp-table tmp-bosau-pack-softw-saida no-undo
    field  field lg-undo-retry retry                as logical
   field lg-continua-proc           as logical
  field  field ds-mensagem mensagem               as char
   field lg-valida-status         as char as logical initial yes.

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

    • lg-undo-retry – Indica indica que ocorreu algum erro durante o processamento.;
    • lg-continua-proc - indica se o programa continuará na procedure de consulta aos pacotes;
    • ds-mensagem – Retorna retorna a mensagem da cpc;
    • lg-valida-status - indica se deve validar o status da consulta retornado pelo Sispac.