CPC-BOSAU-PACKAGE-SOFTWARE.P

• Rotina que possibilita alterar o funcionamento da BO de consulta aos pacotes no Software de Pacotes da Unimed do Brasil.

Localização

• Dentro do programa bosau-package-software.p

Ponto de Utilização

• "AN-BUSCA-SISPAC"
• "AP-BUSCA-SISPAC" - liberação a partir da 12.1.2301.

Include das definições das tabelas temporárias

• cpc-bosau-package-software.i

Tabelas de entrada e saída

Tabela de entrada

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.

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc – Ponto de chamada da CPC;
    • in-evento-programa – 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;

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.

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

• • lg-undo-retry – 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 a mensagem da cpc;