CPC-RTVALESP.P

• Rotina utilizada para devolver uma especialidade valida para o prestador, se existir.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro da rotina rtvalesp.p no inicio do processo.

Ponto de Utilização

"PROC-PREST"

Include das definições das tabelas temporárias

• cpc-rtvalesp.i

Tabela de entrada e saída

Tabela de entrada tmp-cpc-rtvalesp-entrada

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

field nm-ponto-chamada                   as char format "x(10)"
field cd-local-atendimento                 like locaaten.cd-local-atendimento
field cd-unidade                                like preserv.cd-unidade
field cd-prestador                              like preserv.cd-prestador
field cd-vinculo                                  like previesp.cd-vinculo
field cd-especialid                              like previesp.cd-especialid
field cd-procedimento                        as int format "99999999"
field dt-ativo                                      as date

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc - Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rtvalesp.p:
    • "PROC-PREST ".
    • cd-local-atendimento – Indica o local de atendimento.
    • cd-unidade – Indica o código da unidade.
    • cd-prestador – Indica o código do prestador.
    • cd-vinculo – Indica o código do vinculo.
    • cd-especialid – Indica o código da especialidade do prestador.
    • cd-procedimento – Indica o código do procedimento.
    • dt-ativo – Indica a data ativa.

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

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

field cd-especialid               like pres-amb.cd-especialid
field lg-acres-proced           as log
field lg-erro                         as log
field ds-mensagem             as char format "x(75)"

field lg-continuar                               as log.

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

• • • cd-especialid – Indica o código da especilaidade.
    • lg-acres-proced – Indica se houve ou não acréscimo de procedimento.
    • lg-erro – Indica se houve erro no processamento da cpc-rtvalesp.p.
    • ds-mensagem – Contém a mensagem de retorno da rotina.
    • lg-continuar - Variável para indicar se o programa deve continuar após retornar do programa CPC.