CPC-RTAUTPRO.P

• Rotina utilizada para:
• Efetuar a consistência do responsável da autorização com lógica especifica do cliente e alterar a mensagem de retorno ao usuário, quando o movimento necessitar autorização do auditor.
• Tratar a obrigatoriedade da autorização de acordo com lógica específica do cliente.
• Tratar o responsável pela autorização de acordo com lógica específica do cliente.
• 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.

Localização

• Dentro da rotina rtautpro e rtapi026 no final do processamento após a consistência do sistema.
• Na rtautpro, logo após a busca pelo responsável da autorização.

Pontos de Utilização

"FIM-PROCESSO"

"MENS-AUDITOR"

"AUTORIZACAO"

"RESP-AUTORIZA"

Include das definições das tabelas temporárias

• cpc-rtautpro.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-rtautpro-entrada

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

field in-evento-programa                                       as char format "x(10)"
field nm-ponto-chamada-cpc                                as char format "x(15)"
field lg-mensagem-tela                                           as logical
field nr-rowid-proposta                                            as rowid
field nr-rowid-usuario                                               as rowid
field nr-rowid-modulo                                               as rowid
field nr-rowid-ambproce                                          as rowid
field cd-proced-inteiro                                              as integer format "99999999"
field dt-realizacao                                                      like guiautor.dt-emissao-guia
field nr-rowid-unicamco                                           as rowid
field cd-local-atendimento                                      as int format '999'
field cd-modalidade                                                  as int format '99'
field cd-plano                                                              as int format '99'
field cd-tipo-plano                                                      as int format '99'
field cd-unidade-prestador                                     as int format '9999'
field cd-prestador                                                       as int format '99999999'
field cd-modulo                                                           as int format '99'
field cd-grau-parentesco                                         as int format '99'
field lg-autor-auditor                                                 as log

Definição campo a campo da tabela de entrada

• • in-evento-programa – Evento do programa de chamada da CPC.
  • "INCLUI".
  • nm-ponto-chmada-cpc – Ponto de chamada da CPC.

• • "FIM-PROCESSO" , "MENS-AUDITOR" , "AUTORIZACAO" e "RESP-AUTORIZA".
  • lg-mensagem-tela – indica se as mensagens de erro, que ocorreram dentro da cpc, serão ou não visualizadas em tela.
  • nr-rowid-proposta – Rowid da tabela propost (proposta do beneficiário).
  • nr-rowid-usuario – Rowid da tabela usuário (beneficiário do plano).
  • nr-rowid-unicamco – Rowid da tabela unicamco (Negociação beneficiários de fora intercambio).
  • nr-rowid-modulo – Rowid da tabela mod-cob (modulo do beneficiário).
  • nr-rowid-ambproce – Rowid da tabela ambproce (Procedimento).
  • cd-proced-inteiro – Código do procedimento com 8 casas ("99999999").
  • dt-realizacao – Data da realização do movimento.
  • cd-local-atendimento – Código do local de atendimento.
  • cd-modalidade – Código da modalidade.
  • cd-plano – Código do plano.
  • cd-tipo-plano – Código do tipo de plano.
  • cd-unidade-prestador – Código da unidade do prestador executante.
  • cd-prestador – Código do prestador executante.
  • cd-modulo – Código do módulo de cobertura.
  • cd-grau-parentesco – Código do grau de parentesco.
  • lg-autor-auditor – Campo que controla a autorização do auditor.
    
    

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

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

field lg-undo-retry                                  as log
field ds-mensagem-relatorio              as char format "x(75)"
field ds-autoriza                                      as char format "x(13)"
field in-responsavel                               as char format "x(01)"
field lg-autor-auditor                             as log
field lg-autoriza                                       as log
field in-responsavel-autorizacao       as char format "x(1)"

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

• • lg-undo-retry – indica que ocorreu algum erro durante o processamento.
  • ds-mensagem-relatorio – Retorna a mensagem de autorização ( EM AMBOS, NA EMPRESA, NA UNIDADE ou DESNECESSARIA) para o ponto de chamada "FIM-PROCESSO" e a mensagem a ser impressa no relatório no ponto de chamada "MENS-AUDITOR";
  • ds-autoriza – Retorna a descrição de autorização ( EM AMBOS, NA EMPRESA, NA UNIDADE ou DESNECESSARIA) para o ponto de chamada "FIM-PROCESSO" e a mensagem a ser apresentada ao usuário no ponto de chamada "MENS-AUDITOR".
  • in-responsavel – Indica o responsável "E" – Empresa – "A" – Ambos – "U" – Unidade – "N" – Nenhum.
  • lg-autor-auditor – indica se necessita de autorização do auditor.
  • lg-autoriza – indica se a autorização não é obrigatória (quando Yes).
  • in-responsavel-autorizacao - Indica o responsável "E" – Empresa – "A" – Ambos – "U" – Unidade – "N" – Nenhum.