CPC-AT0110B.p

• 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 At0110b.p.
• Dentro do programa at0110b.p antes de montar a régua dos botões padrão.

Ponto de Utilização

• " DROP-SEQ-ORA" - CPC funcionará apenas com Banco de Dados Oracle.
• "TELE-ATEND"
• "CONS-CLIENTE"
• "PROC-PREST"
• "MOSTRA-TELA"

Include das definições das tabelas temporárias

• CPC-AT0110B.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0110b-entrada

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

field nm-ponto-chamada-cpc         as char format "x(15)"
    field cd-unidade                   like preserv.cd-unidade
    field cd-prestador                 like preserv.cd-prestador
    field cd-esp-amb                   like ambproce.cd-esp-amb      
    field cd-grupo-proc-amb            like ambproce.cd-grupo-proc-amb
    field cd-procedimento              like ambproce.cd-procedimento 
    field dv-procedimento              like ambproce.dv-procedimento
    field lg-cons-prest-exc            as log
    field cd-unidade-seccional         like preserv.cd-unidade-seccional
    fields in-evento-programa          as char format "x(10)"                                     
    fields nm-ponto-chamada            as char format "x(15)"
    fields lg-mensagem-na-tela         as logical
    fields cd-clinica                  like clinica.cd-clinica
    fields cd-modalidade               like usuario.cd-modalidade                                 
    fields nr-proposta                 like usuario.nr-proposta                                   
    fields cd-usuario                  like usuario.cd-usuario
    field cd-cep-aux                   as char format "99.999-999"          
    field in-logradouro-aux            as char
    field ds-log-rua-aux               as char format "x(100)"  
    field nr-rua-aux                   as int  format ">>>>>>>>9"
    field ds-comp-rua-aux              as char format "x(100)"
    field ds-bairro-aux                as char format "x(60)"
    field cd-cidade-aux                as int  format 999999
    field ds-uf-aux                    as char format "x(2)"
    field h-frame-regua                as handle.

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc - Indica o nome do ponto de chamada;
  • cd-unidade - Código da unidade;
  • cd-prestador - Código do prestador
  • cd-esp-amb - Especialidade do procedimento.
  • cd-grupo-proc-amb - Identifica a que grupo de procedimento
  • cd-procedimento  -É o código do procedimento
  • dv-procedimento - É o dígito verificador do código do procedimento
  • lg-cons-prest-exc - Considera prestadores excluidos
  • cd-unidade-seccional - Código da unidade seccional
  • in-evento-programa - Evento da cpc
  • lg-mensagem-na-tela - Indicador de mensagem na tela
  • cd-clinica - Código da clínica
  • cd-modalidade - Código da modalidade
  • nr-proposta - Número da proposta
  • cd-usuário - Código do usuário
  • cd-cep-aux - Número do CEP
  • in-logradouro-aux - Tipo do logradouro
  • ds-log-rua-aux - Nome da rua
  • nr-rua-aux - Número referente ao endereço
  • ds-comp-rua-aux - Complemento do endereço
  • ds-bairro-aux - Nome do bairro
  • cd-cidade-aux - Código da cidade
  • ds-uf-aux - Unidade federativa
  • h-frame-regua - Handle

Tabela de saida tmp-cpc-at0110b-saida

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

    field lg-erro                        as log
    field ds-mensagem                    as char format "x(75)"
    field cd-unidade                     like preserv.cd-unidade 
    field cd-prestador                   like preserv.cd-prestador
    field tp-prestador                   as char
    field lg-acres-proc                  as log
    fields lg-tem-mensagem               as logical                                               
    fields ds-mensagem-retorno           as char format "x(75)"
    fields lg-continua                   as log     initial yes
    fields lg-undo-retry                 as log
    fields lg-atribui-fator              as log
    fields lg-fator                      as log
    field cd-cep-aux                     as char format "99.999-999"          
    field in-logradouro-aux              as char
    field ds-log-rua-aux                 as char format "x(100)"  
    field nr-rua-aux                     as int  format ">>>>>>>>9"
    field ds-comp-rua-aux                as char format "x(100)"

    field ds-bairro-aux                  as char format "x(60)"
    field cd-cidade-aux                  as int  format 999999
    field ds-uf-aux                      as char format "x(2)".

Definição campo a campo da tabela de movimento

• lg-erro - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
• cd-unidade - Código da unidade;
• cd-prestador - Código do prestador
• tp-prestador - Tipo Prestador:  "Solicitante", "Executante",  "Principal"  
• lg-acres-proc - Indicador que serve para adicionar ou retirar procedimentos, isto é, caso o indicador for SIM então aquele prestador naquela especialidade poderá executar o procedimento, porém o mesmo não deve estar cadastrado na Procedimento X Especialidade. Caso o Indicador for Não então aquele prestador naquela especialidade não poderá executar o procedimento, porém o cadastramento do mesmo no Procedimento X Especialidade é obrigatório.
• lg-tem-mensagem - Indicador de mensagem
• ds-mensagem-retorno - Mensagem da ocorrência do erro no processamento da CPC.
• lg-continua - Indica se deve continua o processo ou não 
• lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC.
• lg-atribui-fator 
• lg-fator      
• cd-cep-aux - Número do CEP
• in-logradouro-aux - Tipo do logradouro
• ds-log-rua-aux  - Nome da rua
• nr-rua-aux - Número referente ao endereço      
• ds-comp-rua-aux - Complemento do endereço
• ds-bairro-aux - Nome do bairro
• cd-cidade-aux - Código da cidade
• ds-uf-aux - Unidade federativa