CPC-CG0312S.p

• Rotina utilizada para permitir alterar campo específico por 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 CG0312S.P,  após informar os campos da tela.

Ponto de Utilização

• "TRATA-MOD-COD" → Após informar os campos da tela de alteração.

Include das definições das tabelas temporárias

• cpc-cg0312s.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0312s-entrada

def temp-table tmp-cpc-cg0312s-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: "MODIFICA-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-cg0312s-saida

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

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.
  • cd-especialidade - Código da Especialidade.