CPC-RC0716L.P

• Rotina utilizada para validar a entidade do módulo no cadastro.

Localização

• Após Validação do tipo de movimento.

Ponto de Utilização

• "ENTIDADE".

Include das definições das tabelas temporárias

• cpc-rc0716l.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rc0716l-entrada

tmp-cpc-rc0716l-entrada no-undo

field in-evento-programa                     as char format "x(15)"
field nm-ponto-chamada-cpc

...

             as char format "x(15)"
field cd-unidade-pres                           like presmovt.cd-unidade-pres
field cd-prestador                                 like presmovt.cd-prestador
field in-tipo-movimento

...

                       like presmovt.in-tipo-movimento
field cd-tipo-insumo                             like presmovt.cd-tipo-insumo
field cd-proc-insu                                 like presmovt.cd-proc-insu.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa que chama a cpc- rc0716l.p.
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0716l.i:
  • "ENTIDADE"
  • cd-unidade-pres – Código da unidade do prestador.
  • cd-prestador – Código do Prestador.
  • in-tipo-movimento – Tipo de movimento.
  • cd-tipo-mimento – Código do Tipo de Movimento.
  • cd-proc-insu – Código do insumo/procedimento.

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

def temp-table tmp-cpc-rc0716l-saida no-undo

field lg-undo-retry                             as log
field ds-mensagem

...

                         as char format "x(75)"
field in-entidade                               like presmovt.int-2.

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

• • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
  • ds-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com lg-undo-retry.
  • in-Entidade – Entidade (Módulo).