CPC-CG0211B.p

Rotina utilizada para:

• Tratar a tabela dos módulos da proposta, realizando algumas verificações antes de gravar a tabela de módulos opcionais do usuário no programa de inclusão da manutenção de beneficiários de migração: : Quando utilizada no Ponto de Utilização "TRATA-PRO-PLA".
• Recebimento da indicação da forma do Segmento Assistencial: Quando utilizada no Ponto de Utilização "GERA-SEG-ASSIST".
• Rotina utilizada para alterar o Percentual de Desconto da Proposta de acordo com a quantidade de beneficiários com situação entre 5 e 7.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa cg0211b.p antes de gravar a tabela de módulos opcionais do usuário. 

Ponto de Utilização

• "TRATA-PRO-PLA".
• "GERA-SEG-ASSIST".
• "FINAL-INCLUI"

Include das definições das tabelas temporárias

• cpc-cg0211b.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-cg0211b -entrada

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

field in-evento-programa                     as char format "x(10)"
field nm-ponto-chamada-cpc              as char format "x(15)"
field r-pro-pla                                       as rowid
field dt-inicio                                        like usumodu.dt-inicio
field in-est-civil                                    like usuario.in-est-civil
field cd-grau-parentesco                     like usuario.cd-grau-parentesco
field r-proposta                                    as rowid
field cd-modalidade                            like propost.cd-modalidade
field nr-proposta                                 like propost.nr-proposta
field cd-usuario                                   like usuario.cd-usuario
field nm-usuario                                 like usuario.nm-usuario.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-cg0211b.p. Os valores desse campo podem ser:
• "INCLUI".
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.:
• "TRATA-PRO-PLA"
• "GERA-SEG-ASSIST"
• "FINAL-INCLUI"
• r-pro-pla – Recid da tabela pro-pla (Módulos da proposta).
• dt-inicio – Data de inicio do módulo que será gravado.
• in-est-civil – Indicação do estado civil do beneficiário.
• cd-grau-parentesco – Código do Grau de parantesco do beneficiário.
• r-proposta - Rowid da tabela propost (proposta).
• cd-modalidade – Código da Modalidade.
• nr-proposta – Numero da Proposta.
• cd-usuario – Código do Usuario.
• nm-usuario – Nome do Usuario.

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

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

field lg-undo-retry                               as log
field ds-mensagem                            as char
field lg-continua                                  as log initial yes
field in-seg-assist                              as int.

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-mensagem – descrição da mensagem de erro caso ocorra, dentro na cpc.
• lg-continua – Log que informa se continua o processo ou não, conforme tratitiva na cpc.
• in-seg-assist – Deverá conter o código do Segmento Assistencial. Este parâmetro somente é utilizado quando do acesso a CPC com o ponto de chamada "GERA-SEG-ASSIST". Ressalto que o segmento assistência a ser retornado deverá estar dentro do intervalo 01 até 14 (01 – AMBULATORIAL, 02 - HOSPITALAR C/ OBSTETRICIA, 03 - HOSPITALAR S/ OBSTETRICIA, 04 – ODONTOLOGICO, 05 – REFERENCIA, 06 - AMBULATORIAL + HOSPITALAR C/OBSTETRICIA, 07 - AMBULATORIAL + HOSPITALAR S/OBSTETRICIA, 08 - AMBULATORIAL + ODONTOLOGICO, 10 - HOSPITALAR C/ OBSTETRICIA + ODONTOLOGICO, 11 - HOSPITALAR S/ OBSTETRICIA + ODONTOLOGICO, 13 - AMBULAT. + HOSPIT. C/ OBSTETR. + ODONTO. ou 14 - AMBULAT. + HOSPIT. S/ OBSTETR. + ODONTO.)