CPC-FICHA-CADASTRAL.P

Pontos de Utilização

• "FICHA-CADASTRAL" - A partir da 12.1.28

• "FIM-FICHA-CADAS" - A partir da Versão 12.1.2305

Exemplo de chamada da cpc

 run cpc/cpc-ficha-cadastral.p(
        input-output  table tmp-cpc-ficha-cadastral-entrada,
        input-output  table tmp-cpc-dependentes,
        output        table tmp-cpc-ficha-cadastral-saida) no-error.
   

Include das definições das tabelas temporárias

cpc-ficha-cadastral.i

Tabela de entrada e saída da CPC referente ao relatório

def temp-table tmp-cpc-ficha-cadastral-entrada  no-undo

         field nm-ponto-chamada       as char 
         field blb-report             as blob
         field nm-beneficiario        as char serialize-name "nmBeneficiario" 
         field cd-beneficiario        as char serialize-name "cdBeneficiario"
         field cd-funcionario         as char serialize-name "cdFuncionario "
         field cd-carteira            as char serialize-name "cdCarteira"
         field dt-nascimento          as char serialize-name "dtNascimento"
         field nm-sexo                as char serialize-name "nmSexo"
         field nm-estado-civil        as char serialize-name "nmEstadoCivil"
         field nm-mae                 as char serialize-name "nmMae"
         field nm-pai                 as char serialize-name "nmPai"
         field cd-cpf                 as char serialize-name "cdCpf"
         field cd-rg                  as char serialize-name "cdRg"
         field nm-orgao-emissor       as char serialize-name "nmOrgaoEmissor"
         field cd-cns                 as char serialize-name "cdCns"
         field nm-genero-social       as char serialize-name "nmGeneroSocial"
         field nm-nome-social         as char serialize-name "nmNomeSocial"
         field nm-endereco            as char serialize-name "nmEndereco"
         field nm-bairro              as char serialize-name "nmBairro"
         field nm-cidade              as char serialize-name "nmCidade"
         field nm-estado              as char serialize-name "nmEstado"
         field cd-cep                 as char serialize-name "cdCep"
         field cd-fone-01             as char serialize-name "cdFone01"
         field cd-fone-02             as char serialize-name "cdFone02"
         field nm-email               as char serialize-name "nmEmail"
         field cd-cbo                 as char serialize-name "cdCBO"
         field nm-cbo                 as char serialize-name "nmCBO"
         field cd-modalidade          as char serialize-name "cdModalidade"
         field cd-proposta            as char serialize-name "cdProposta"
         field cd-contrato            as char serialize-name "cdContrato"
         field nm-parentesco          as char serialize-name "nmParentesco"
         field nm-contratante         as char serialize-name "nmContratante"
         field cgc-cpf-contratante    as char serialize-name "cgcCpfContratante"
         field caepf-contratante      as char serialize-name "caepfContratante"
         field nm-abrangencia         as char serialize-name "nmAbrangencia"
         field nm-acomodacao          as char serialize-name "nmAcomodacao "
         field nm-operadora-bairro    as char serialize-name "nmOperadoraBairro" 
         field nm-operadora-uf        as char serialize-name "nmOperadoraUF" 
         field nm-operadora-cep       as char serialize-name "nmOperadoraCep" 
         field nm-operadora-endereco  as char serialize-name "nmOperadoraEndereco" 
         field nm-operadora-site      as char serialize-name "nmOperadoraSite" 
         field nm-operadora-telefone  as char serialize-name "nmOperadoraTelefone" 
         field nm-cidade-operadora    as char serialize-name "nmCidadeOperadora" 
         field nm-operadora           as char serialize-name "nmOperadora" 
         field susep-operadora        as char serialize-name "susepOperadora" 
         field nm-tipo-plano          as char serialize-name "nmTipoPlano"
         field cd-plano-ans           as char serialize-name "cdPlanoAns"
         field nm-tipo-plano-ans      as char serialize-name "nmTipoPlanoAns"
         field nm-forma-pagamento     as char serialize-name "nmFormaPagamento"
         field ds-data-geracao        as char serialize-name "dsDataGeracao"
         field ds-especifico-01       as char serialize-name "dsEspecifico01"
         field ds-especifico-02       as char serialize-name "dsEspecifico02"
         field ds-especifico-03       as char serialize-name "dsEspecifico03"
         field ds-especifico-04       as char serialize-name "dsEspecifico04"
         field ds-especifico-05       as char serialize-name "dsEspecifico05"
         field ds-especifico-06       as char serialize-name "dsEspecifico06"
         field ds-especifico-07       as char serialize-name "dsEspecifico07"
         field ds-especifico-08       as char serialize-name "dsEspecifico08"
         field ds-especifico-09       as char serialize-name "dsEspecifico09"
         field ds-especifico-10       as char serialize-name "dsEspecifico10".

Definição campo a campo da tabela de movimento

• nm-ponto-chamada   - Nome ponto chamada
• blb-report                    – Json com todos os dados enviados para o relatório.

define temp-table tmp-cpc-dependentes no-undo 
         field nm-beneficiario        as char serialize-name "nmBeneficiario" 
         field cd-beneficiario        as char serialize-name "cdBeneficiario"
         field cd-funcionario         as char serialize-name "cdFuncionario "
         field cd-carteira            as char serialize-name "cdCarteira"
         field dt-nascimento          as char serialize-name "dtNascimento"
         field nm-sexo                as char serialize-name "nmSexo"
         field nm-estado-civil        as char serialize-name "nmEstadoCivil"
         field nm-mae                 as char serialize-name "nmMae"
         field nm-pai                 as char serialize-name "nmPai"
         field cd-cpf                 as char serialize-name "cdCpf"
         field cd-rg                  as char serialize-name "cdRg"
         field nm-orgao-emissor       as char serialize-name "nmOrgaoEmissor"
         field cd-cns                 as char serialize-name "cdCns"
         field nm-genero-social       as char serialize-name "nmGeneroSocial"
         field nm-nome-social         as char serialize-name "nmNomeSocial"
         field nm-endereco            as char serialize-name "nmEndereco"
         field nm-bairro              as char serialize-name "nmBairro"
         field nm-cidade              as char serialize-name "nmCidade"
         field nm-estado              as char serialize-name "nmEstado"
         field cd-cep                 as char serialize-name "cdCep"
         field cd-fone-01             as char serialize-name "cdFone01"
         field cd-fone-02             as char serialize-name "cdFone02"
         field nm-email               as char serialize-name "nmEmail"
         field cd-cbo                 as char serialize-name "cdCBO"
         field nm-cbo                 as char serialize-name "nmCBO"
         field cd-modalidade          as char serialize-name "cdModalidade"
         field cd-proposta            as char serialize-name "cdProposta"
         field cd-contrato            as char serialize-name "cdContrato"
         field nm-parentesco          as char serialize-name "nmParentesco"
         field nm-contratante         as char serialize-name "nmContratante"
         field cgc-cpf-contratante    as char serialize-name "cgcCpfContratante"
         field caepf-contratante      as char serialize-name "caepfContratante"
         field nm-abrangencia         as char serialize-name "nmAbrangencia"
         field nm-acomodacao          as char serialize-name "nmAcomodacao "
         field nm-operadora-bairro    as char serialize-name "nmOperadoraBairro" 
         field nm-operadora-uf        as char serialize-name "nmOperadoraUF" 
         field nm-operadora-cep       as char serialize-name "nmOperadoraCep" 
         field nm-operadora-endereco  as char serialize-name "nmOperadoraEndereco" 
         field nm-operadora-site      as char serialize-name "nmOperadoraSite" 
         field nm-operadora-telefone  as char serialize-name "nmOperadoraTelefone" 
         field nm-cidade-operadora    as char serialize-name "nmCidadeOperadora" 
         field nm-operadora           as char serialize-name "nmOperadora" 
         field nm-tipo-plano          as char serialize-name "nmTipoPlano"
         field cd-plano-ans           as char serialize-name "cdPlanoAns"
         field nm-tipo-plano-ans      as char serialize-name "nmTipoPlanoAns"
         field nm-forma-pagamento     as char serialize-name "nmFormaPagamento".

Tabela de saída ttmp-cpc-ficha-cadastral-saida   

        def temp-table tmp-cpc-ficha-cadastral-saida     no-undo
         field lg-undo-retry         as log
         field ds-mensagem           as char format "x(75)"
         field blb-report            as blob
         field lg-alterou-json       as log.

Definição campo a campo da tabela de movimento

• lg-undo-retry - Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
• ds-mensagem – Mensagem da ocorrência do erro no processamento da CPC.
• blb-report - Retorno do Json para gera relatório
• lg-alterou-json - Caso altera json do relatório deve voltar como sim;