cpc-at0112c.p4

Rotina utilizada para restringir a criação da guia caso exista um insumo cujo módulo não se encontra dentre os módulos dos procedimentos desta mesma guia.
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. Caso possuir mais de um registro um erro será reportado.
Localização
Dentro do programa at0112c.p ao pressionar F1 no browse de procedimentos.
Ponto de Utilização
"BLOQ-MOD-INS"
Include das definições das tabelas temporárias
cpc-at0112c.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-at0112c-entrada
def temp-table tmp-cpc-at0112c-entrada no-undo
field tp-inter like guiautor.tp-inter.
Definição campo a campo da tabela de entrada
tp-inter – Indica o tipo de internação da guia

Tabela de movimentos (procedimentos) tmp-cpc-at0112c-procguia
def temp-table tmp-cpc-at0112c-procguia no-undo
field cd-modulo like insuguia.cd-modulo.
Definição campo a campo da tabela de saída
cd-modulo– Código do modulo do insumo.
Tabela de movimentos (insumos) tmp-cpc-at0112c-insuguia
def temp-table tmp-cpc-at0112c-insuguia no-undo
field cd-modulo like insuguia.cd-modulo.
Definição campo a campo da tabela de saída
cd-modulo– Código do modulo do insumo.
Tabela de saída tmp-cpc-at0112c-saida
def temp-table tmp-cpc-at0112c-saida no-undo
field lg-bloq-mod-insu as log.
Definição campo a campo da tabela de saída
lg-bloq-mod-insu– Variável que indica se a criação da guia será bloqueada devido ao modulo do insumo não existir dentre os módulos dos procedimentos da guia.