CPC-API-GERA-CARTA-PORTAB-CARENCIA.p

Observação: Esta CPC somente é utilizada no Gestão de Planos 2.00.

• Rotina para executar operações referentes a geração da carta de portabilidade de carência.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro da api-gera-carta-portab-carencia.p.

Pontos de Utilização

• "ANTES-IMPRIMIR".

Include das definições das tabelas temporárias

• cpc-api-gera-carta-portab-carencia.i

Tabelas de entrada e saída

      Tabela tmp-cpc-api-gera-carta-entrada

def temp-table tmp-cpc-api-gera-carta-entrada no-undo
    field cd-modalidade          as integer
    field nr-proposta            as integer
    field cd-benef               as integer
    field nm-benef               as char format "x(70)"
    field dt-port-ini            as date format "99/99/9999"
    field dt-port-fim            as date format "99/99/9999"
    field vl-ult-mensalid        as dec format ">>>>99,99"
    field dt-inclusao-plano      like usuario.dt-inclusao-plano
    field dt-exclusao-plano      like usuario.dt-exclusao-plano
    field dt-fim-carencia-cpt    as date format "99/99/9999"
    field lg-inadimplente        as log
    field cd-cpf                 like usuario.cd-cpf
    field dt-nascimento          like usuario.dt-nascimento
    field lg-portabilidade       as log
    field lg-ampliou-cobertura   as log
    field ds-tipo-regulamentacao as char
    field cod-plano              as char format "x(30)"
    field nom-plano              like reg-plano-saude.nom-plano-ans.

      Tabela tmp-cpc-api-gera-carta-saida

def temp-table tmp-cpc-api-gera-carta-saida no-undo
         field lg-undo-retry                     as logical
         field cd-mensagem                       as int
         field ds-mensagem-erro                  as char format "x(75)"
         field dt-exclusao-plano                 like usuario.dt-exclusao-plano
         field lg-atualiza                       as logical
         field lg-continua                       as logical     initial yes.