CPC-AC0216A.p

• Rotina utilizada para listar as Clínicas (Função F5) 
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa ac0216a.p.

Ponto de Utilização

• "ANTES-F-CLASSIF"

Include das definições das tabelas temporárias

• cpc-ac0216a.i

Tabelas de entrada e saída:

    Tabela de entrada tmp-cpc-ac0216a-entrada

    def temp-table tmp-cpc-ac0216a-entrada no-undo
    field in-evento-programa            as char format "x(06)"
    field nm-ponto-chamada-cpc          as char format "x(15)".

    Definição campo a campo da tabela de entrada

• in-evento-programa – Nome do evento do ponto de chamada da cpc.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.

    Tabela de entrada tmp-cpc-ac0216a-saida

    def temp-table tmp-cpc-ac0216a-saida   no-undo
    field lg-undo-retry                 as log
    field ds-mensagem                   as char format "x(75)"
    field lg-grava-in-classif           as log
    field in-classif                    as int
    field lg-exec-frame-f-classif       as log init yes
    field cd-clinica                    as int
    field lg-grava-clinica              as log
    field lg-leave                      as log
    field lg-retorno                    as log.

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

• lg-undo-retry  – Indicador de erro retornado pela cpc.
• ds-mensagem – Mensagem de erro retornada pela cpc.
• lg-grava-in-classif  – Indica se deve ou não gravar a nova classificação.
• in-classif  – Indicador de classificação.  
• lg-exec-frame-f-classif  – Indica se deve ou não executar o frame com a nova classificação.
• cd-clinica  – Indica o código da clínica.
• lg-grava-clinica  –  Indica se grava ou não a clínica.
• lg-leave  – Indica se deve ou não sair do programa.     
• lg-retorno  –  Indicador de retorno da cpc.