cpc-at0113c.p0

• Rotina utilizada para:
  • Permitir regra específica do cliente na restrição de usuários quanto à exclusão de guias de autorização.

• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização
Quando da solicitação da autorização origem, dentro do programa AT0113C.P
Ponto de Utilização
"REGRAS-EXCLUSAO"
"VER-CANCEL-GUIA"
"ANTES-ENVIA-IE"
Include das definições das tabelas temporárias
CPC-AT0113C.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc- at0113c-entrada
def temp-table tmp-cpc-at0113c-entrada no-undo
field in-evento-programa as char format "x(15)"
field nm-ponto-chamada-cpc as char format "x(15)"
field r-guia-atendimento as rowid
field cd-userid as char format "x(12)".
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama CPC-AT0113C.P. O valor desse campo pode ser "GRUPO-AUDITORIA;
nm-ponto-chamada-cpc – "REGRAS-EXCLUSAO"
r-guia-atendimento – Rowid da tabela guiautor;
cd-userid – Usuário logado ao sistema para a digitação da Guia de Atendimento;
Tabela de saída tmp-cpc-at0112c-saida
def temp-table tmp-cpc-at0113c-saida no-undo
field lg-permite-excluir as log
field ds-mensagem as char format "x(75)"
field lg-undo-retry as log
field cd-unidade-carteira like guiautor.cd-unidade-carteira.
Definição campo a campo da tabela de saída
lg-undo-retry – Indica a ocorrência de erro no processo de exclusão da guia;
ds-mensagem – É a mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro/restrição no processo de verificação/consistencia de exclusão da guia;
lg-permite-excluir – Quando ativo, permite ao usuário excluir a guia sem validar seu grupo de usuários. Quando inativo, nada é feito;
cd-unidade-carteira – Codigo da unidade da carteira do beneficiário.