CPC-FICHA-CADASTRAL.p
Produto: | TOTVS Saúde Planos (Linha Datasul) |
Módulo: | HVP |
Versão: | 12.1.29 |
Assuntos: | cpc-ficha-cadastral.p |
Observação: Esta CPC somente é utilizada no Gestão de Planos 2.00.
- Rotina para executar operações referentes a geração da ficha cadastral.
- 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 bosau-report.p.
Pontos de Utilização
- "FICHA-CADASTRAL".
Include das definições das tabelas temporárias
- cpc-ficha-cadastral.i
Tabelas de entrada e saída
Tabela tmp-cpc-ficha-cadastral-entrada
def temp-table tmp-cpc-ficha-cadastral-entrada 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 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".
Tabela tmp-cpc-dependentes
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 tmp-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)".