CPC-RTPACOTE.P

• Rotina utilizada para permitir a operadora visualizar somente a descrição auxiliar do pacote.
• 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 rotina RTPACOTE.

Pontos de Utilização

"BROWSE-PACOTE"

"ANT-CRIA-TMPPAC" - a partir da versão 12.1.2301.

Include das definições das tabelas temporárias

• CPC-RTPACOTE.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtpacote-entrada

def temp-table tmp-cpc-rtpacote-entrada no-undo
         field nm-ponto-chamada-cpc as char format "x(15)"
         field cd-pacote like paproins.cd-pacote
         field cd-unidade like paproins.cd-unidade
         field cd-prestador like paproins.cd-prestador
         field cd-modalidade like paproins.cd-modalidade
         field cd-plano like paproins.cd-plano
         field cd-tipo-plano like paproins.cd-tipo-plano
         field dt-inicio-vigencia like paproins.dt-inicio-vigencia
         field dt-limite like paproins.dt-limite
         field cd-modalidade-benef like ti-pl-sa.cd-modalidade
         field cd-plano-benef like ti-pl-sa.cd-plano
         field cd-tipo-plano-benef like ti-pl-sa.cd-tipo-plano.

Definição campo a campo da tabela de entrada

• • • nm-ponto-chamada-cpc: nome do ponto de chamada da CPC
    • cd-pacote: código do pacote
    • cd-unidade: unidade do prestador do pacote
    • cd-prestador: prestador do pacote
    • cd-modalidade: modalidade do pacote
    • cd-plano: plano do pacote
    • cd-tipo-plano: tipo de plano do pacote
    • dt-inicio-vigencia: início da vigência do pacote
    • dt-limite: fim da vigência do pacote
    • cd-modalidade-benef: modalidade do beneficiário
    • cd-plano-benef: plano do beneficiário
    • cd-tipo-plano-benef: tipo de plano do beneficiário
      
      

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

def temp-table tmp-cpc-rtpacote-saida no-undo
         field lg-erro as log
         field ds-mensagem as char format "x(75)"
         field lg-desc-pacote as log
         field lg-continua as logical initial yes.

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

• • • lg-erro: indica se ocorreu algum erro durante o processamento da CPC
    • ds-mensagem: retorna a mensagem da CPC
    • lg-desc-pacote: indica se o browse-pacote estará visível ou não na tela
    • lg-continua: indica se deve continuar o processamento