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.

...

__RefHeading__87121_1756225838Localização

• Dentro da rotina WAC0034A.W.

Âncora__RefHeading__20461_2053127524__RefHeading__20461_2053127524 Âncora__RefHeading__6616_486694287__RefHeading__6616_486694287 Âncora__RefHeading__1827_213273755__RefHeading__1827_213273755 Âncora__RefHeading__11225_644533341__RefHeading__11225_644533341 Âncora__RefHeading__87123_1756225838__RefHeading__87123_1756225838Ponto de Utilização

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

...

__RefHeading__87125_1756225838Include das definições das tabelas temporárias

• CPC-WAC0034A.I

...

Tabelas de entrada e saída
anchor__RefHeading__20467_2053127524__RefHeading__20467_2053127524 Âncora__RefHeading__6622_486694287__RefHeading__6622_486694287 Âncora__RefHeading__1833_213273755__RefHeading__1833_213273755 Âncora__RefHeading__11231_644533341__RefHeading__11231_644533341 Âncora__RefHeading__87129_1756225838__RefHeading__87129_1756225838

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

...

field cd-tipo-insumo                            as int format 99
field cd-insumo                                    as int64 format 9999999999.

...

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

...

• • • .
    • cd-tipo-insumo – Código do tipo do insumo.
    • cd-insumo – Código do insumo.

...

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.

...