cpc-atconstrans.p1

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-IE
APOS-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.