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)".
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