CPC-AT0111C.p

• 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 at0111c.p ao pressionar F1 no browse de procedimentos.

Ponto de Utilização

• "BLOQ-MOD-INS"

Include das definições das tabelas temporárias

• cpc-at0111c.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0111c-entrada

def temp-table tmp-cpc-at0111c-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-at0111c-procguia

def temp-table tmp-cpc-at0111c-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-at0111c-insuguia

def temp-table tmp-cpc-at0111c-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-at0111c-saida

def temp-table tmp-cpc-at0111c-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 procediment procedimentos da guia.