CPC-AT0110B.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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