CPC-RTCARPRO.P

• Rotina chamada para calcular carência por 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 rtcarpro.p, antes de começar a calcular a carência a nível de procedimento.

Pontos de Utilização

"ANTES-MAIOR-CAR"

"INICIO-CAREN"

Include das definições das tabelas temporárias

• cpc-rtcarpro.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtcarpro-entrada

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

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

field dt-controle-par                                  as date

field nr-rowid-usuario                               as rowid
field nr-rowid-pro-pla                                as rowid

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 rtcarpro.p.
    • dt-controle-par – Data que será considerada para o cálculo da carência.
    • nr-rowid-usuario – ROWID da tabela usuario.
    • nr-rowid-pro-pla – ROWID da tabela pro-pla. 
      
      

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

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

field lg-undo-retry                          as log

field ds-mensagem                        as char format "x(75)" 
field lg-continua                             as log
field ds-mensagem-carencia         as char format "x(18)"

field dt-inicio-carencia                   as date 

field in-cobertura-carencia            as char format "x(01)"

Definição campo a campo da tabela de saída tmp-cpc-rtcarpro-saida

• • • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
    • ds-mensagem – Deve conter mensagem de erro, caso ocorram ou qualquer outro tipo de mensagem da cpc.
    • lg-continua – caso indique NÃO é para dar return no programa rtcarpro.p.
    • ds-mensagem-carencia  – Deve conter mensagem referente á carência: "PERMITIDO", "CARENCIA TOTAL", "CARENCIA URGENCIAS", "CARENCIA ELETIVAS".
    • dt-inicio-carencia –  Data que será considerada para o cálculo da carência.
    • in-cobertura-carencia – Indica a cobertura referente à carência: "S" - Sem Cobertura, "C" - Com Carencia, "P" - Permitido.