CPC-ATCONSTRANS.p

• Rotina utilizada para permitir ou não a alteração do status da guia quando no recebimento de uma resposta de auditoria;
• Rotina utilizada para alterar o status da guia de atendimento;
• Rotina utilizada para tratar o retorno das guias de intercambio eletrônico
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do atconstrans.p.

Ponto de Utilização

• "ESP-RESP-AUD"
• "STATUS-AUDIT"
• TRATA-RESP-IEA
• POS-AUTORIZA

Include das definições das tabelas temporárias

• CPC-ATCONSTRANS.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc- atconstrans-entrada

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

field nm-ponto-chamada-cpc                       as char format "x(15)"
field in-liberado-guias                                  like guiautor.in-liberado-guias field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento                             like guiautor.nr-guia-atendimento
field ds-transacao-solicitacao                     as char
field id-auditoria                                           as char format "x(1)"
field lg-possui-movtos-nao-autorizados     as log
field ds-recebiemnto                                    as char format "x(1000)".

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada-cpc – " ESP-RESP-AUD ", "STATUS-AUDIT"; "TRATA-RESP-IE"
  • in-liberado-guias – Indicador do status da guia;
  • aa-guia-atendimento – Ano da guia de atendimento;
  • nr-guia-atendimento – Número da guia de atendimento;
  • ds-transacao-solicitacao – Variável que recebe o segmento completo da transação.
  • Id-auditoria – Campo que abriga a id da audotoria realizada.
  • Lg-possui-movtos-não-autorizados-- variável que controla se á ou não movimentos não outrorizados.
  • Ds-recebimento – descrição do recebimento da guia.

Tabela de movimentos da guia

def temp-table tmp-movto-guia o-undo

field in-movto                                       as char format "x(1)"
field cd-unidade                                    like procguia.cd-unidade
field aa-guia-atendimento                    like procguia.aa-guia-atendimento
field nr-guia-atendimento                     like procguia.nr-guia-atendimento
field nr-processo                                  like procguia.nr-processo
field nr-seq-digitacao                           like procguia.nr-seq-digitacao
field cd-tipo-insumo                             like insuguia.cd-tipo-insumo
field cd-movimento                              as int forma "99999999"
field qt-movto                                       as dec
field cd-pacote                                      as int format 99999999
field in-situacao                                    as int
field cd-mensagen1                              as int
field cd-mensagen2                              as int
field cd-mensagen3                              as int
field cd-mensagen4                              as int
field cd-mensagen5                              as int.

Definição campo a campo da tabela de movimentos

• • in-movto – Tipo do movimento
  • cd-unidade – Código da unidade
  • aa-guia-atendimento – ano da Guia
  • nr-guia-atendimento – numero da guia
  • nr-processo – Numero do processo
  • nr-seq-digitacao – numero de seqüência da digitação
  • cd-tipo-insumo - Codigo do tipo de insumo
  • cd-movimento – Codigo do movimento
  • qt-movto – quantidade de movimentos
  • cd-pacote – código do pacote
  • in-situacao – tipo de situação da guia
  • cd-mensagem1 a cd-mensagem5 – Código da mensagem

Tabela de entrada tmp-cpc- atconstrans-saida

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

field in-liberado-guias                                        like guiautor.in-liberado-guias
field lg-undo-retry                                              as log
field ds-mensagem                                            as char
field lg-comunica-resp-auditoria                      as log
field ds-segmento-conexao-solicitacao           as char.

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

• • in-liberado-guias – Indicador do status da guia;
  • lg-undo-retry - Variável 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-mensagem – E a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
  • lg-comunica-resp-auditoria – Variável que indicará se haverá comunicação via intercâmbio eletrônico;
  • ds-segmento-conexao-solicitacao - Segmento conexão solicitação.