CPC-BOGENERATEDSIB.p

• Rotina utilizada para permitir que a data limite de envio para beneficiários sem CNS seja alterada.
• Rotina utilizada para permitir realizar a consistência da modalidade na geração do SIB.
• Rotina utilizada para permitir realizar a validação do envio de cancelamento na geração do SIB.
• Rotina utilizada para permitir realizar a consistência do beneficiário na geração do SIB.
• Rotina utilizada para permitir realizar a consistência do CNPJ/CEI do contratante na geração do SIB.
• Rotina utilizada para permitir alterar a data de contratação na geração do SIB.
• Rotina utilizada para permitir alterar os beneficiários dependentes na geração do SIB - inclusão/retificação.
• Rotina utilizada para permitir alterar os beneficiários dependentes na geração do SIB - alteração contratual.
• Caso o cliente não queira executar a chamada da CPC no seu programa deve colocar CPC Ativo como não.
• Rotina utilizada para permitir ignorar a validação de cartão nacional de saúde do beneficiário.

Localização

• Inclusão de ponto antes da validação da data de verificação de beneficiários sem CNS no programa bogeneratedsib.p.
• Inclusão de ponto na seleção das informações que serão consideradas no programa bogeneratedsib.p.
• Inclusão de ponto dentro da rotina de validação do cancelamento no programa bogeneratedsib.p.
• Inclusão de ponto na seleção das informações que serão consideradas no programa bogeneratedsib.p.
• Inclusão de ponto na seleção das informações que serão consideradas no programa bogeneratedsib.p.
• Inclusão de ponto dentro da rotina de validação da proposta no programa bogeneratedsib.p.
• Inclusão de ponto dentro da rotina de inclusão e retificação no programa bogeneratedsib.p.
• Inclusão de ponto dentro da rotina de alteração contratual no programa bogeneratedsib.p.
• Inclusão de ponto antes validação de beneficiários sem CNS no programa bogeneratedsib.p.

Ponto de Utilização

• "VALIDA-CNS"
• "VALIDA-MODALID"
• "VALIDATE-CAN"
• "VALIDA-BENEF"
•  "CONS-CNPJ-CEI"
• "ALT-DATA"
• "ANTES-INCRET"
• "ANTES-ALTCONT"
• "ATUALIZA-ESPEC"
• "REGRA-ESPEC"
• "ANT-VALID-CNS" - disponível a partir da versão 12.1.2407.

Include das definições das tabelas temporárias

• cpc-bogeneratedsib.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-bogeneratedsib-entrada

def temp-table tmp-cpc-bogeneratedsib-entrada no-undo

field in-evento-programa         as char format "x(06)"   
    field nm-ponto-chamada-cpc       as char format "x(15)"   
    field cd-erro                    as int
    field cd-modalidade              like modalid.cd-modalidade
    field cd-reg-propost             like reg-plano-saude.cdn-plano-ans
    field cd-mod-usuario             like usuario.cd-modalidade
    field cd-reg-usuario             like reg-plano-saude.cdn-plano-ans
    field in-registro-plano          like propost.in-registro-plano
    field nr-ter-adesao              like propost.nr-ter-adesao
    field nr-proposta                like propost.nr-proposta
    field cd-usuario                 like usuario.cd-usuario
    field nm-usuario                 like usuario.nm-usuario
    field nm-contratante             like contrat.nm-contratante
    field ds-erro                    as char format "x(81)"
    field ds-status                  as char format "x(13)"
    field ds-acao-registro           as char format "x(14)"
    field r-usuario                  as rowid
    field ds-tipo-ponto              as char
    field tp-movimento               as char
    field id-registro                like hist-movto-usuario.id-registro
    field cod-livre-1                like hist-movto-usuario.cod-livre-1
    field cco-complementar           like usuario.cd-controle-oper-ans
    field cd-carteira                like sib-mov-inc-ret.cod-carteira.       

Definição campo a campo da tabela de entrada

• • • mm-ponto-chamada-cpc - Nome do ponto de chamada da CPC dentro do programa que a utiliza.
    • cd-erro – Codigo de erro.
    • cd-modalidade – Código da modalidade
    • cd-reg-propost – Código do registro da proposta
    • cd-mod-usuario – Código da modalidade do usuário
    • cd-reg-usuario – Código do registro do usuário
    • in-registro-plano – Início do registro do plano
    • nr-ter-adesao – Número do termo de adesão
    • nd-usuario – Código do usuário
    • nm-usuario – Nome do usuário
    • nm-contratante – Nome do Contratante
    • ds-erro – Descrição do erro
    • ds-status – Descrição do status
    • ds-acao-registro – Descrição da ação do registro
    • r-usuario - Rowid do usuário
    • ds-tipo-ponto - Nome da função do ponto
    • tp-movimento - Tipo do movimento
    • id-registro - Id de registro do histórico de movimentação do usuário
    • cod-livre-1 - Atributo livre para uso interno
    • cco-complementar - Código de controle
    • cd-carteira - Código da carteira do beneficiario
      
      

Tabela de saída tmp-cpc-bogeneratedsib-saida

def temp-table tmp-cpc-bogeneratedsib-saida no-undo

field lg-undo-retry              as log
    field lg-erro                    as log
    field ds-mensagem                as char format "x(80)"
    field lg-considera-erro          as log
    field lg-invalida-modalidade     as log
    field lg-invalida-proposta       as log
    field lg-invalida-usuario        as log
    field lg-agregado                as log
    field lg-titular-agregado        as log
    field cd-cnpj                    like contrat.nr-cgc-cpf  
    field nr-cei                     like contrat.nr-cei
    field cod-carteira-titular       like sib-mov-inc-ret.cod-carteira-titular
    field dt-cns-obrigatorio         as date format 99/99/9999
    field dt-contratacao             as date
    field cod-carteira-inteira       like sib-mov-inc-ret.cod-carteira-titular
    field idi-plano-ans-propost      like propost.idi-plano-ans
    field idi-plano-ans-usuario      like usuario.idi-plano-ans
    field nr-insc-contratante        like propost.nr-insc-contratante
    field cd-contratante             like propost.cd-contratante
    field cd-modalidade              like usuario.cd-modalidade
    field nr-proposta                like usuario.nr-proposta
    field lg-next                    as logical
    field cd-motivo                  as int
    field cd-retorno                 as log
    field lg-permite-cns-zerado      as log.

Definição campo a campo da tabela de saída

• • • lg-undo-retry - Campo 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.
    • lg-erro - Campo que informa condição de erro
    • ds-mesagem - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
    • lg-considera-erro – Log para considerar erro ou não
    • lg-invalida-modalidade – Log para invalidar a modalidade
    • lg-invalida-proposta – Log para invalidar a proposta
    • lg-invalida-usuario – Log para invalidar o usuário
    • lg-agregado - Log para indicar agregado
    • lg-titular-agregado - Log para indicar titular agregado
    • cd-cnpj – Código do cnpj
    • nr-cei – Número do CEI
    • cod-carteira-titular - Código da carteira do titular
    • dt-cns-obrigatorio - Variável de controle da data da CNS.
    • dt-contratacao - Data de contratação
    • cod-carteira-inteira - Código inteiro da carteira
    • idi-plano-ans-propost - Indicador Vinculo Plano
    • idi-plano-ans-usuario - Indicador Vinculo Plano
    • nr-insc-contratante - Número de inscrição contratante
    • cd-contratante - Código do cliente associado ao administrativo
    • cd-modalidade - Código da Modalidade
    • nr-proposta - Número da Proposta
    • lg-next - Log
    • cd-motivo - 
    • cd-retorno - Log que retorna se a alteração será executada ou não.
    • lg-permite-cns-zerado - Log que retorna se permite cns do beneficiário zerado

Ponto de Utilização

• "BENEF-AGREG"

Include das definições das tabelas temporárias

• cpc-bogeneratedsib.i
• bogeneratedsib.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-bogeneratedsib-entrada

def temp-table tmp-cpc-bogeneratedsib-entrada no-undo

field in-evento-programa                   as char format "x(06)" 
field nm-ponto-chamada-cpc            as char format "x(15)" 
field cd-erro                                        as int
field cd-modalidade                           like modalid.cd-modalidade
field cd-reg-propost                           like reg-plano-saude.cdn-plano-ans
field cd-mod-usuario                         like usuario.cd-modalidade
field cd-reg-usuario                           like reg-plano-saude.cdn-plano-ans
field in-registro-plano                        like propost.in-registro-plano
field nr-ter-adesao                             like propost.nr-ter-adesao
field cd-usuario                                 like usuario.cd-usuario
field nm-usuario                                like usuario.nm-usuario
field nm-contratante                          like contrat.nm-contratante
field ds-erro                                      as char format "x(81)"
field ds-status                                   as char format "x(13)"
field ds-acao-registro                      as char format "x(14)"
field r-usuario                                  as rowid
field ds-tipo-ponto                           as char
filed tp-movimento                           as char
field id-registro                                 like hist-movto-usuario.id-registro
field cod-livre-1                                like hist-movto-usuario.cod-livre-1
field cco-complementar                   like usuario.cd-controle-oper-ans
field cd-carteira                               like sib-mov-inc-ret.cod-carteira

Definição campo a campo da tabela de entrada

• • • Nm-ponto-chamada-cpc - Nome do ponto de chamada da CPC dentro do programa que a utiliza.
    • Cd-erro – Codigo de erro.
    • Cd-modalidade – Código da modalidade
    • Cd-reg-propost – Código do registro da proposta
    • Cd-mod-usuario – Código da modalidade do usuário
    • Cd-reg-usuario – Código do registro do usuário
    • In-registro-plano – Início do registro do plano
    • Nr-ter-adesao – Número do termo de adesão
    • Cd-usuario – Código do usuário
    • Nm-usuario – Nome do usuário
    • Nm-contratante – Nome do Contratante
    • Ds-erro – Descrição do erro
    • Ds-status – Descrição do status
    • Ds-acao-registro – Descrição da ação do registro
    • R-usuario - Rowid do usuário
    • Ds-tipo-ponto - Nome da função do ponto
    • Tp-movimento - Tipo do movimento
    • Id-registro - Id de registro do histório de movimentação do usuário
    • Cod-livre-1 - Atributo livre para uso interno
    • Cco-complementar - Código de controle
    • Cd-carteira - Código da Carteira

Tabela de saída tmp-cpc-bogeneratedsib-saida

def temp-table tmp-cpc-bogeneratedsib-saida no-undo

field lg-undo-retry                       as log
field lg-erro                                 as log
field ds-mensagem                    as char format "x(80)"
field lg-considera-erro               as log
field lg-invalida-modalidade      as log
field lg-invalida-proposta           as log
field lg-invalida-usuario             as log
field cd-cnpj                                like contrat.nr-cgc-cpf
field nr-cei                                  like contrat.nr-cei
field dt-cns-obrigatorio               as date format 99/99/9999.

Definição campo a campo da tabela de saída

• • lg-undo-retry - Campo 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-mesagem - Campo que retorna mensagem de erro, se ocorrido dentro da CPC.
  • lg-considera-erro – Log para considerar erro ou não
  • lg-invalida-modalidade – Log para invalidar a modalidade
  • lg-invalida-proposta – Log para invalidar a proposta
  • lg-invalida-usuario – Log para invalidar o usuário
  • cd-cnpj – Código do cnpj
  • nr-cei – Número do CEI
  • dt-cns-obrigatorio - Variável de controle da data da CNS.
• 
  

      Tabela de entrada/saída tmpSibMovementAgreg

                def temp-table tmpSibMovementeAgreg no-undo like hist-movto-usuario

                               field log-agregado                   as log
                               field log-possui-agregado        as log

                       Definição campo a campo da tabela tmpSibMovementAgreg

•             
  • • log-agregado - Log indicador de agregado
    • log-possui-agregado - Log de indicador possui agregado
• 
  
• Tabela de entrada/saída rowErrorsSib

                 def temp-table rowErrrorsSib no-undo

•            field errorSequence                   as integer
                   field errorNumber                      as integer
                   field errorDescription                 as char format "x(500)"
                   field errorParameters                as char format "x(500)"
                   field errorType                           as char format "x(10)"
                   field errorHelp                            as char format "x(500)"
                   field errorSubType                     as char format "x(12)"
                   field errorMovementType           as char
                   field errorModality                      as int
                   field errorProposal                      as int
                   field errorContract                      as int
                   field errorUser                            as int
                   field errorPersonID                     as dec
                   field errorPlan                             as int
                   field errorPlanType                     as int
                   field errorUnit                              as int
                   field errorCard                             as dec
                   field errorDate                             as char
                   field errorBirthDate                      as char
                   field errorCity                               as int
                   field errorContractorIncription      as int
                   field errorContractorNumber        as int

                        Definição campo a campo da tabela rowErrorsSib

• • • errorSequence - Gera internamente
    • errorNumber - Número da mensagem de erro, caso não venha na mensiste
    • errorDescription - Se preencher, considera, senão busca.
    • errorParameters - Livre. Chave do Registro, etc.
    • errorType - Progress / GP / Outros
    • errorHelp - Se preencher, considera, senão mensiste.ds-mensagem-detalhada
    • errorSubType - Error, Warning ou Information
    • errorMovementType - Tipo de movimento
    • errorModality - Modalidade
    • errorProposal - Proposta
    • errorContract - Contrato
    • errorUser - Usuário
    • errorPersonID - Identificação do usuário
    • errorPlan - Plano
    • errorPlanType - Tipo de Plano
    • errorUnit - Unidade
    • errorCard - Carteira
    • errorDate - Data
    • errorBirthDate - Data de aniversario
    • errorCity - Cidade
    • errorContractorInscription - Inscrição contratnate
    • errorContractorNumber - Número do contratante.