CPC-WAC0034A.P

• Rotina UTILIZADA PARA EETUAR A CONVERSÃO DE PROCEDIMENTOS AMB X CBHPM nos processos de digitação de procedimentos de REGISTRO DE SP/SADT TISS, SOLICITAÇÃO DE SP/SADT TISS e SOLICITAÇÃO DE INTERNAÇÃO TISS. Essa rotina irá devolver o código do procedimento convertido (de AMB para CBHPM) ou um brower com os procedimentos CBHPM associados ao procedimento AMB informado, para que o usuário informe o procedimento desejado.
• Verifica se o médico logado pode registrar os procedimentos da guia direcionada.
• Verifica se a guia digitada no campo senha é do usuário logado e se está autorizada.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída.
• Permite montar um XML de retorno a partir da tabela de saída da cpc-wac0034a.p.

Localização

• Dentro da rotina WAC0034A.W.

Ponto de Utilização

"CONV-PROC"
"DIR-VEREXECLOG"
"AJAX-ESPECIFICO"
"DESC-PACOTE"

Include das definições das tabelas temporárias

• CPC-WAC0034A.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0034a-entrada

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

field in-evento-programa                     as char format "x(06)"
field nm-ponto-chamada-cpc               as char format "x(15)"
field in-tipo-consulta                             as char format "x(20)"
field cd-procedimento                          as int format 99999999
field cd-unidade-prestador-aux            as int
field cd-prestador-aux                          as int
field cd-clinica-aux                                as int
field aa-guia-atend-aux                        as int
field nr-guia-atend-aux                         as int
field id-beneficiario-aux                        as dec format "99999999999999999"
field rw-paproins                                   as rowid
field id-tabela                                       as char

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a rotina WAC0034A, na qual será passada para a cpc-wac0034a.p.
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para a rotina wac0034a.p:
    • "CONV-PROC";
    • "DIR-VEREXECLOG";
    • In-tipo-consulta - Descrição do tipo de consulta.
    • cd-procedimento – Código do procedimento com 8 posições (completo).
    • cd-unidade-prestador-aux – Código da unidade do prestador.
    • cd-prestador-aux - Código do prestador.
    • cd-clinica-aux – Código da Clinica do prestador.
    • aa-guia-atend-aux – Ano da Guia de Atendimento.
    • nr-guia-atend-aux – Número da Guia de atendimento.
    • id-beneficiario-aux – Carteira do beneficiário logado.
    • rw-paproins – Rowid da tabela paproins.
    • id-tabela – Valor da variável Id-tabela-aux parametrizada no programa WAC0034A.W.

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

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

field lg-undo-retry                            as log
field ds-mensagem                         as char format "x(75)"
field cd-procedimento                     as int format 99999999
field dt-limite                                   as date

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

• • • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
    • ds-mensagem– Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
    • cd-procedimento – Código do procedimento convertido com 8 posições (completo).
    • dt-limite – data limite de validade do procedimento.
    • cd-unidade – Código da unidade.
    • cd-prestador – Código do prestador.
    • nm-prestador – Nome do prestador.
    • ds-pacote – Descrição do pacote.