Árvore de páginas

Versões comparadas

Chave

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

...

  • Para o ponto de chamada "ANT-TEM-SERIOUS", dentro do programa API-RECEBE-PTU70PTU91.P antes P antes de qualquer utilização da variável lg-tem-serious-aux;
  • Para o ponto de chamada "ORDEM-SERVICO", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "APOS-CANCEL", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "DPS-TRATA-INS", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "DPS-CRIA-GUIA", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "DPS-TRATA-RESP", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "ATRIBUI-MENS", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "ANTE-CRIA-ORDEM", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "ALTERA-ALT-CUST", dentro do programa API-RECEBE-PTU70PTU91.P;
  • Para o ponto de chamada "APOS-DADOS-BENE", dentro do programa API-RECEBE-PTU70PTU91.P após efetuar a leitura dos dados do beneficiário.
  • Para o ponto de chamada "ALTERA-PREST", dentro do programa API-RECEBE-PTU91.P.

Ponto de Utilização

  • "ANT-TEM-SERIOUS"
  • "ORDEM-SERVICO"

  • "APOS-CANCEL"

  • "DPS-TRATA-INS"

  • "DPS-CRIA-GUIA"

  • "DPS-TRATA-RESP"

  • "ATRIBUI-MENS"

  • "ANTE-CRIA-ORDEM"

  • "ALTERA-ALT-CUST"

  • "APOS-DADOS-BENE"
  • "ALTERA-PREST" -  a partir da versão 12.1.2311.

Include das definições das tabelas temporárias

...

              def temp-table tmp-cpc-api-recebe-ptu91-entrada no-undo
                    field in-evento-programa            as char format "x(06)"                     
                    field nm-ponto-chamada-cpc          as char format "x(15)"
                   field cd-unidade                    like guiautor.cd-unidade
                   field aa-guia-atendimento           like guiautor.aa-guia-atendimento
                   field nr-guia-atendimento           like guiautor.nr-guia-atendimento
                   field cd-carteira-usuario           as dec
                   field lg-tem-serious                as log
                   field r-procguia                    as rowid
                  field  field ds-denial-mens                as char
                  field  field cd-prestador                  as int
                  field  field h-tmp-guiautor                as handle
                   field h-tmp-procguia                as handle
                  field  field h-tmp-insuguia                as handle
                  field  field h-buffer-tmp-guiautor         as handle.

...

              def temp-table tmp-cpc-api-recebe-ptu70-saida no-undo
                    field  field lg-undo-retry                 as logical
                    field  field ds-mensagem                   as char format "x(75)"
                   field lg-tem-serious                as log
                   field nm-grupo                      as char
                   field id-autoriza                   as int
                   field lg-alto-custo                 as log
                   field cd-prestador                  as int.

...