CPC-PR0111P1.p

• Rotina utilizada no processo de geração (F6) do programa de manutenção do Tipo de Plano x Módulo x Procedimento (pr0110p).
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa pr0111p1.p.

Ponto de Utilização

• "GRAVA-PL-MO-AM"

Include das definições das tabelas temporárias

• cpc-pr0111p1.i

Tabelas de entrada e saída:

    Tabela de entrada tmp-cpc-pr0111p1-entrada

    def temp-table tmp-cpc-pr0111p1-entrada no-undo
               field nm-ponto-chamada-cpc       as char format "x(15)"
               field in-evento-programa              as char
               field in-aut-auditor                        as integer 
               field lg-aut-auditor                        as logical 
               field lg-autoriza                             as logical.

    Definição campo a campo da tabela de entrada

• • nm-ponto-chamda-cpc - Nome do ponto de chamada da cpc
  • in-evento-programa - Nome do evento do ponto de cpc
  • in-aut-auditor - Informação do campo "Para Aut. Auditor" para geração do pr0110p (F6-Geração) - Opções: 1. Informar / 2.Buscar do Procedimento
  • lg-aut-auditor - Informação do campo lógico "Aut. Auditor" (pr0110p-F6-Geração) que é habilitado somente quando o campo "Para Aut. Auditor" está com a opção "1.Informar"
  • lg-autoriza - Informação do campo lógico "Necessita Autor. Auditor" (hcg.procedure/PR0110H - Manutenção de Procedimentos) que é habilitado somente quando o campo "Para Aut. Auditor" (pr0110p-F6-Geração) está com a opção "2.Buscar do Procedimento"

    Tabela de entrada tmp-cpc-pr0111p1-saida

    def temp-table tmp-cpc-pr0111p1-saida   no-undo
               field lg-undo-retry                        as log
               field ds-mensagem-erro               as char
               field log-2                                     as log.

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

• • lg-undo-retry - Indica se ocorreu erro no processo.
  • ds-mensagem-erro - Mensagem com a descrição do erro ocorrido no processamento da CPC.
  • log-2 - o retorno do valor vai alimentar o campo "Pede Autorização" (pl-mo-am-log-2 / pr0110p)