...

CPC-AT0110C.p

...

• "TELE-ATEND"
• "FINAL-REGUA"
• "ALTERA-COR"
• "DADOS-GUIA"
• "MOSTRA-PROC" - a partir da 12.1.2209.

Include das definições das tabelas temporárias

...

def temp-table tmp-cpc-at0110c-entrada no-undo

field in-evento-programa        as programa        as char format "x(10)"
field nm-ponto-chamada-cpc      as cpc      as char format "x(15)"
field aa-guia-atendimento       atendimento       like guiautor.aa-guia-atendimento
field nr-guia-atendimento       atendimento       like guiautor.nr-guia-atendimento
field cd-cod-glo                like glo                like procguia.cd-cod-glo
field h-temp-procguia           as handle.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Nome do evento do ponto da cpc;
    • nm-ponto-chamada – Nome do ponto de chamada da cpc dentro do programa que a utiliza;
    • aa-guia-atendimento - Ano da guia;
    • nr-guia-atendimento - número Número da guia;
    • cd-cod-glo - Código da glosa. 
    • h-temp-procguia - Handle para a tabela temporária de procedimentos.

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

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

...