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 2 Pontos de Utilização.

Pontos de Utilização

• "chamaCHAMA-apivp0002APIVP0002"Antes : Antes da chamada da api-vp0002.p.Rotina  Rotina utilizada para mudar qualquer informação do registro da tabela tmp-vp0002-usuario após a criação da tabela.
• "calcCALC-carenciaCARENCIA"Após : Após calcular carência do beneficiário.Rotina  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 : Antes da chamada da api-vp0002.p.Utilizada  Utilizada para gravação de tabela e campos específicos de cliente.
• "TRATA-MOV-BENEF" - Ponto utilizado para tratar o tipo de movimento na importação.
• "GRAVA-MEN-BENEF" - Ponto utilizado para tratar mensagens específicas em nível de beneficiário.
• "ANTES-IMPORTA" - Ponto utilizado antes da importação.
• "TRATA-CAR-ESPEC" - Ponto utilizado para tratar carência específica do módulo do beneficiário.
• "VERIF-SEG-ANS" - Ponto utilizado para tratar segmento assistencial do beneficiário.
• "VAL-DT-REPASSE" - Ponto utilizado para validar data de repasse do beneficiário.
• "VER-APOS-CAR" - Ponto utilizado para verificar carência específica do módulo do beneficiário.
• "FIM-IMP-BENEF" - Ponto utilizado para no final da importação, a partir da versão 12.1.2311.

Include das definições das tabelas temporárias

...

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-modalidade                 

...

 like usuario.cd-modalidade
    fields nr-proposta                        like usuario.nr-proposta
    fields cd-modulo                          like mod-cob.cd-modulo
    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
    fields in-tipo-carencia                   as int

    fields dt-intercambio                   as date

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".
    • 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".
    • 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.
    • Inin-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).
    • Dtdt-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".
    • Dtdt-fim-carencia-arq – data de fim de carência recebida para o módulo no arquivo de importação.
    • Cdcd-modulo – código do módulo tendo carência calculada no momento.Tabela de entrada tmp
    • 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.
    • in-tipo-carencia  - tipo de carência que sera testado na cpc.
    • dt-intercambio - data de início de repasse

Tabela de entrada e saida 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)"

field  lg-cria-temp-relatorio          as logical
field  lg-possui-carencia-espec    as logical

field lg-possui-seg-ans                 as logical

field lg-permite-data-menor as logical
field dt-intercambio 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-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

...

• • • lg-possui-carencia-espec - variável que informa se existe carência específica para o módulo do beneficiário.
    • lg-possui-seg-ans - variável que informa se o beneficiário possui ou não segmento associado.
    • dt-intercambio - data de início de repasse
    • lg-permite-data-menor - variável que controla se é possível alterar carência menor do tipo de registro 4