CPC-AC1006D.p

Rotina utilizada para:

• Verificar se o documento anterior, se informado, é de consulta;
• Indicar se deve ou não ser solicitado o prestador da Divisão de Honorários e;
• Permtir trocar o código do procedimento informado pelo usuário.
• Indicar se processamento do programa deve ou não continuar quando da ocorrência de erro/restrição.
• Permitir a operadora liberar o processo de simulação de registro de SP/SADT, quando da ocorrência de restrição por uso obrigatório de carteira do beneficiário. Ressalto que está CPC funciona em conjunto com a CPC-WAC0012A1 (Ponto de Chamada PERMITE-SIMUL), e que para o correto funcionamento da mesma as duas CPC deverão estar ativas em conjunto.
• 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.
• Validar o limite de quantidade de pacote por transação no ponto "PROCESSOFINAL", comparando a quantidade digitada pelo usuário e a quantidade cadastrada no banco (paproins.u-int-1).

Localização

• Dentro do programa ac1006d.p.

...

• "CON-DOC-ANT", "CON-PRE-DIV", "TRANS-PROCED", "VERIFICA-ERRO" , "PERMITE-SIMUL", "VALIDA-GUIA", "CON-TIP-GUIA",  "PROCESSOFINAL" e "PROCESSOFINALANTES-EXCLUI".

...

Include das definições das tabelas temporárias

...

• nr-processo – Número do processo, do documento;
• nr-sequencia – Número da seqüência, no documento;
• cd-procedimento – Código do procedimento. Quando utilizada no ponto de chamada "VERIFICA-ERRO" conterá o código do pacote e não o código do procedimento.

...

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

...

field lg-undo-retry                        as log
field ds-mensagem                      as char format "x(50)"
field cd-erro-sistema                    as char format "x(04)"
field lg-aplica-divisao                   as log
field cd-procedimento-saida        like ambcbhpm.cd-cbhpm
field lg-continua                           as log initial yes
field lg-permite-simulacao           as log
field cd-tipo-guia                          like guiautor.cd-tipo-guia.  

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

...