CPC-RT-VALID-PROCED.p

• Rotina utilizada para verificar se existe exame já realizado e se encontra dentro da validade e se existe solicitação em aberto para o mesmo procedimento.
• 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. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa RT-VALID-PROCED.P.

Ponto de Utilização

• "REALIZ-ANTERIOR" → Ponto de CPC ao encontrar realização anterior.
• "FIM-PROCESSO" → Ponto de CPC ao final da execução da rotina.
• "SOLIC-ANTERIOR" → Liberação a partir da versão 12.1.2301.

Include das definições das tabelas temporárias

• cpc-rt-valid-proced.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rt-valid-proced-entrada

def temp-table tmp-cpc-rt-valid-proced-entrada no-undo
    field in-evento-programa                as char format "x(10)"
    field nm-ponto-chamada-cpc              as char format "x(15)"
    field r-valid-proced                    as rowid
    field r-procguia                        as rowid.
    

Definição campo a campo da tabela de entrada

• • in-evento-programa – Nome do evento de chamada da cpc dentro do programa que a utiliza. 
  • nm-ponto-chamada-cpc - Nome do ponto de chamada da cpc dentro do programa que a utiliza.
  • r-valid-proced - RowId da tabela VALID_PROCED
  • r-procguia - Rowid da tabela procguia.

Tabela de saída tmp-cpc-rt-valid-proced-saida

def temp-table tmp-cpc-pr0410e-saida no-undo
    field lg-undo-retry                     as log
    field ds-mensagem                       as char
    field lg-altera-acao-retorno-realiz     as log
    field in-acao-retorno-realiz            as int
    field lg-altera-cd-classe-erro-realiz   as log
    field cd-classe-erro-realiz             as int
    field lg-altera-possui-anterior-valido  as log
    field lg-possui-anterior-valido         as log
    field lg-desconsidera                   as log.

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

• • lg-undo-retry - Informa ao programa se deve continuar ou voltar e desfazer
  • ds-mensagem - Mensagem de erro

  • lg-altera-acao-retorno-realiz - Indica se no retorno da cpc deverá ser atualizado o respectivo campo da tabela de saída da rotina

  • in-acao-retorno-realiz - Novo valor do campo, a ser atualizado no retorno da cpc

  • lg-altera-cd-classe-erro-realiz - Indica se no retorno da cpc deverá ser atualizado o respectivo campo da tabela de saída da rotina

  • cd-classe-erro-realiz - Novo valor do campo, a ser atualizado no retorno da cpc

  • lg-altera-possui-anterior-valido - Indica se no retorno da cpc deverá ser atualizado o respectivo campo da tabela de saída da rotina

  • lg-possui-anterior-valido - Novo valor do campo, a ser atualizado no retorno da cpc

  • lg-desconsidera - Novo valor do campo, a ser atualizado no retorno da cpc