CPC-CG0310S.p

• Rotina utilizada para permitir visualizar campo específico na Consulta de Prestadores x Inst. Acreditadora.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída.

Localização

• Dentro do programa CG0310S.P, na opção Código, após passar pelos campos da tela.

Ponto de Utilização

• "TRATA-ESPEC-COD" → Após informar os campos da tela de busca. 

Include das definições das tabelas temporárias

• cpc-cg0310s.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0310s-entrada

def temp-table tmp-cpc-cg0310s-entrada     no-undo
      field nm-ponto-chamada-cpc as char format "x(15)"
      field in-evento-programa        as char format "x(10)"
      field cd-unidade                      like prestdor-end-instit.cd-unidade
      field cd-prestador                   like prestdor-end-instit.cd-prestador
      field cod-instit                         like prestdor-end-instit.cod-instit
      field cdn-seq-ender                like prestdor-end-instit.cdn-seq-ender.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc  - Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • in-evento-programa        - Nome do evento de chamada da cpc dentro do programa que a utiliza. Evento: "INFO-ESPEC"
  • cd-unidade                     - Código da unidade do prestador.
  • cd-prestador                   - Código do Prestador.
  • cod-instit                         - Instituição Acreditadora.
  • cdn-seq-ender                - Sequencia Endereço.

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

def temp-table tmp-cpc-cg0310s-saida       no-undo
      field lg-undo-retry    as log
      field ds-mensagem as char format "x(75)".

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

• • lg-undo-retry    - Informa ao programa se deve continuar ou voltar e desfazer.
  • ds-mensagem - Mensagem de erro.