CPC-RTCONSQT.P

• Rotina que verifica o campo LOG-13 nas tabelas MOVIPROC/MOV-INSU ou LOG-14 na tabela GUIAUTOR, caso este campo esteja marcado, exibe a mensagem para o usuário sobre a alteração do quantitativo.
• 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 programa rtconsqt.p, após verificar se procedimento/insumo possui cobertura.

Ponto de Utilização

• "FINAL-CODIGO"

Include das definições das tabelas temporárias

• cpc-rtconsqt.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtconsqt-entrada

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

                           field nm-ponto-chamada-cpc           as char format "x(15)"

                           field cd-modalidade                         like moviproc.cd-modalidade

                           field nr-ter-adesao                           like moviproc.nr-ter-adesao

                           field cd-usuario                                like moviproc.cd-usuario

                           field cd-esp-amb-par                        like moviproc.cd-esp-amb

                           field cd-grupo-proc-amb-par             like moviproc.cd-grupo-proc-amb

                           field cd-procedimento-par                like moviproc.cd-procedimento

                           field dv-procedimento-par                like moviproc.dv-procedimento

                           field cd-tipo-insu                              like mov-insu.cd-tipo-insumo

                           field cd-insumo                                like mov-insu.cd-insumo

                           field cd-tipo-p                                   as char format "x(1)"

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.:"FINAL-CODIGO".
• cd-modalidade - Número da modalidade.
• nr-ter-adesao - Número do termo de adesão.
• cd-usuario - Número do usuário.
• cd-esp-amb-par - Número da especialidade do procedimento.
• cd-grupo-proc-amb-par - Número do grupo de procedimento.
• cd-procedimento-par - Número do procedimento.
• dv-procedimento-par - Dígito verificador do procedimento.
• cd-tipo-insu - Tipo do insumo
• cd-insumo - Número do insumo
• cd-tipo-p - Indicador "P" para procedimento e "I" para insumo.
  
  

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

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

field lg-undo-retry                          as logical

field ds-mensagem                       as char format "x(75)"

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 não aconteceram é NÃO se o processo foi concluído por completo.
• ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc.