cpc-rc0716l.p1

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).