Histórico da Página
...
- "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 as char
field h-tmpBosauPackageSoftwareInp as handle
field h-tmpPackageSoftware as handle
field h-tmpPackageComposition as handle
field h-tmpPackage as handle
field h-tmpMedicalSupplies as handle
field h-tmpProcedures 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 lg-undo-retry as logical
field lg-continua-proc as logical
field ds-mensagem as char
field lg-valida-status 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 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.