CPC-AC2002D.p

• Rotina utilizada para mudar o id-autorizacao e ou mensagens que devem ir no arquivo de retorno do ac2002d.p (resposta).
• 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 ac2002d.p no final do programa antes da resposta.

Ponto de Utilização

• "ANTES-RESPOSTA"

Include das definições das tabelas temporárias

• cpc-ac2002d.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac2002d-entrada

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

fields in-evento-programa               as char format "x(06)"
fields nm-ponto-chamada-cpc         as char format "x(15)"
fields lg-mensagem-na-tela             as logical
fields cd-modalidade                      like moviproc.cd-modalidade
fields nr-ter-adesao                        like moviproc.nr-ter-adesao
fields cd-usuario                            like moviproc.cd-usuario
fields cd-tipo-guia                          like tip-guia.cd-tipo-guia
fields cd-tipo-insumo                      like mov-insu.cd-tipo-insumo
fields cd-movimento                       like pl-mo-am.cd-amb
fields dt-realizacao                        like moviproc.dt-realizacao
fields tp-transacao                         as char format "x(08)"
fields cd-unidade-prest-exec           like moviproc.cd-unidade-prestador
fields cd-prestador-exec                 like moviproc.cd-prestador
fields cd-esp-prest-executante        like moviproc.cd-esp-prest-executante
fields cd-modulo                           like moviproc.cd-modulo
fields tp-tabela                             as char format "x(01)"
fields id-autoriza                           as char format "x(01)"
fields cd-erro-servico                     as char format "x(04)".

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac2002d.p.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza.
• lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
• cd-modalidade – Modalidade do beneficiário
• nr-ter-adesao – Numero do termo de adesão do beneficiário (contrato).
• cd-usuario – Código do beneficiário.
• cd-tipo-guia – Tipo da guia utilizado na geração da guia de atendimento (intercambio).
• cd-tipo-insumo – Código do tipo de insumo.
• cd-insumo – Código do Insumo.
• cd-movimento – Código do procedimento.
• dt-realizacao – Data da realização do movimento.
• tp-transacao – Código da transação utilizada nos arquivos de entrada e saída ex."80110010".
• cd-unidade-prest-exec – Código da unidade do prestador executante.
• cd-prestador-exec – Código do prestador executante.
• cd-esp-prest-executante – Código da especialidade do prestador executante.
• cd-modulo – Código do modulo na qual o movimento foi realizado.
• tp-tabela – Tipo da tabela 0 (procedimento) 1 (insumo).
• id-autoriza – Tipo da autorização 1 – autorizado 2 – negado 3 – Auditoria (estudo).
• cd-erro-servico – Código do erro encontrado nas consistências do sistema.

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

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

fields lg-undo-retry                        as logical
fields ds-mensagem-relatorio          as char format "x(75)"
fields ds-mensagem-livre               as char format "x(120)"
fields id-autoriza                           as char format "x(01)"
fields cd-erro-servico                     as char format "x(04)".

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-relatorio – Deve conter mensagens de erro ou qualquer outro tipo de mensagem. Utilizado em conjunto com a entrada lg-mensagem-na-tela. Se lg-mensagem-na-tela for Não então esse campo deve ser preenchido.
• ds-mensagem-livre – Mensagem descritiva de ate 120 posições para retorno no arquivo de resposta.
• id-autoriza – Tipo da autorização 1 – autorizado 2 – negado 3 – Auditoria (estudo).
• cd-erro-servico – Código do erro encontrado nas consistências do sistema.