CPC-API-SET0006.p

• 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 da api-set0006.p, possuindo 6 Pontos de Utilização.

Pontos de Utilização

• "CHAMA-APIVP0002"
• Antes da chamada da api-vp0002.p.
• Rotina utilizada para mudar qualquer informação do registro da tabela tmp-vp0002-usuario após a criação da tabela.
• "CALC-CARENCIA"
• Após calcular carência do beneficiário.
• Rotina utilizada para identificar conforme decisão do cliente se o processo deve ser abortado ou não quando a carência recebida no arquivo for diferente da calculada pelo sistema para o beneficiário.
• Esta rotina somente será utilizada caso o campo "Considera Carência" dos parâmetros de importação do contratante possuir valor "0-Arquivo".
• "GRAVA-TEMP"
• Antes da chamada da api-vp0002.p.
• Utilizada para gravação de tabela e campos específicos de cliente.
• "TRATA-MOV-BENEF"
• "GRAVA-MEN-BENEF"
•  "ANTES-IMPORTA"

Include das definições das tabelas temporárias

• cpc-api-set0006.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-api-set0006-entrada

def temp-table tmp-cpc-api-set0006-entrada no-undo

fields in-evento-programa                as char format "x(06)"
fields nm-ponto-chamada-cpc         as char format "x(15) "
fields lg-mensagem-na-tela             as logical
fields nr-rowid-tmprpben                  as rowid
fields in-tipo-movimento                  as char
fields in-cobe-care-base                  as char
fields dt-fim-carencia-base              as date
fields dt-fim-carencia-arq                 as date
fields cd-modulo                             like mod-cob.cd-modulo

fields cd-modalidade                      like usuario.cd-modalidade

fields nr-proposta                           like usuario.nr-proposta

fields cd-contratante                      like tmprpben.cd-contratante

fields nr-lote-imp                            like tmprpben.nr-lote-imp

fields nr-linha                                 as int

fields nr-cpf                                   as char

fields nm-usuario                         as char

fields cd-funcionario                    as char

fields ds-mensagem                   as char

fields ds-complemento               as char.

.

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-api-set0006. Os valores desse campo podem ser:
    • "INCLUI".
    • "CARENC".
    • "GRAVA-TEMP"
    • "APOS-GRAVA-CAMPOS".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa api-set0006.p:
    • "CHAMA-APIVP0002"
    • "CALC-CARENCIA"
    • "GRAVA-TEMP"
    • "TRATA-MOV-BENEF"
    • "GRAVA-MEN-BENEF"
    • "ANTES-IMPORTA".
    • lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
    • r-rowid-tmprpben – Rowid da tabela tmprpben – temporária de importação do beneficiário.
    • In-tipo-movimento – tipo de movimento do beneficiário que está sendo consistido no momento. Pode ser "I" (inclusão) ou "A" (alteração).
    • In-cobe-care-base – indica a situação de carência do beneficiário na base. Pode ser "S" (beneficiário não possui cobertura para o módulo), "P" (permitido – carência já cumprida) ou "C" (com carência a ser cumprida).
    • Dt-fim-carencia-base – data de fim de carência calculada para o beneficiário. Este campo somente terá valor quando o campo in-cobe-care-base tiver valor "C".
    • Dt-fim-carencia-arq – data de fim de carência recebida para o módulo no arquivo de importação.
    • Cd-modulo – código do módulo tendo carência calculada no momento.
    • cd-modalidade - código da modalidade.
    • nr-proposta - número da proposta.
    • cd-contratante - código do contratante.
    • nr-lote-imp - número do lote de importação.
    • nr-linha - número da linha do arquivo.
    • nr-cpf - número do cpf do usuário.    
    • nm-usuario - nome do usuário.
    • cd-funcionario - código do funcionário - modalidade empresarial.
    • ds-mensagem - mensagem do sistema.
    • ds-complemento - complemento da mensagem do sistema.
    • Tabela de entrada tmp-vp0002-usuario
    • Like a tabela tmp-vp0002-usuario que consta no include api/apivp0002.i.

Tabela de saída tmp-cpc-api-set0006-saida

def temp-table tmp-cpc-api-set0006-saida no-undo

fields lg-undo-retry                       as logical
fields ds-mensagem-relatorio       as char format "x(75)"
field char-1                                  as char format "x(30)"
field char-2                                  as char format "x(30)"
field char-3                                  as char format "x(30)"
field char-4                                  as char format "x(30)"
field char-5                                  as char format "x(30)"
field char-6                                  as char format "x(60)"
field char-7                                  as char format "x(60)"
field char-8                                  as char format "x(60)"
field char-9                                  as char format "x(60)"
field char-10                                as char format "x(60)".

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-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
    • char-1 – utilizados como reserva
    • char-2 – utilizados como reserva
    • char-3 – utilizados como reserva
    • char-4 – utilizados como reserva
    • char-5 – utilizados como reserva
    • char-6 – utilizados como reserva
    • char-7 – utilizados como reserva
    • char-8 – utilizados como reserva
    • char-9 – utilizados como reserva
    • char-10 – utilizados como reserva