CPC-AC0080R.p

• Rotina utilizada para permitir a operadora controlar o processo de criação/atualização de documentos via módulos AC/WAC e URA;
• 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 programa ac0080r.p, antes da criação do documento.

Ponto de Utilização

• "TRATA-DOCTO"
• "ANTES-CRIA-DOC"
• "TROCA-NR-DOC"

Include das definições das tabelas temporárias

• cpc-ac0080r.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac0080r-entrada

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

field in-evento-programa                as char format "x(10)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field cd-unidade                            like docusos.cd-unidade
field cd-unidade-prestadora            like docusos.cd-unidade-prestadora
field cd-transacao                          like docusos.cd-transacao
field nr-serie-doc-original                like docusos.nr-serie-doc-original
field nr-doc-original                        like docusos.nr-doc-original
field nr-perref                                like docusos.nr-perref
field dt-anoref                               like docusos.dt-anoref
field cd-unidade-carteira                 like docusos.cd-unidade-carteira
field cd-carteira-usuario                  like docusos.cd-carteira-usuario
field nr-via-carteira                        like docusos.nr-via-carteira
field cd-modalidade                       like docusos.cd-modalidade
field nr-ter-adesao                         like docusos.nr-ter-adesao
field cd-usuario                             like docusos.cd-usuario
field cd-unidade-clinica                  like docusos.cd-unidade-clinica
field cd-clinica                               like docusos.cd-clinica
field cd-unidade-principal               like docusos.cd-unidade-principal
field cd-prestador-principal             like docusos.cd-prestador-principal.

Definição campo a campo da tabela de entrada

- in-evento-programa – Evento do programa que chama a cpc-ac0080r. O valor desse campo poderá ser: "Inclui".
- nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
- cd-unidade – Código da Unidade;
- cd-unidade-prestadora – Código da Unidade onde está ocorrendo a criação do documento;
- cd-transacao – Código da transação a qual o documento estará associado;
- nr-serie-doc-original – Número da Série do documento;
- nr-doc-original – Número do documento;
- nr-perref – Número do Período de referência;
- dt-anoref – Ano de referência do Período;
- cd-unidade-carteira – Código da Unidade da carteira do beneficiário;
- cd-carteira-usuario – Carteira do Beneficiário;
- nr-via-carteira – Número da via da Carteira do Beneficiário;
- cd-modalidade – Código da modalidade de comercialização;
- nr-ter-adesao – Numero do termo de adesão, quando o beneficiário for da base;
- cd-usuario – Código do usuário, quando o mesmo for da base;
- cd-unidade-clinica - Código da Unidade da Clinica;
- cd-clinica – Código da Clinica;
- cd-unidade-principal - Código da Unidade do Prestador Principal;
- cd-prestador-principal - Código do Prestador Principal.

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

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

field lg-undo-retry as log
field nr-serie-doc-original like docusos.nr-serie-doc-original
field nr-doc-original as int
field cd-erro-sistema like docusos.in-status.

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

• lg-undo-retry – Indica se ocorreu ou deve ocorrer o bloqueio da inclusão do documento.
• nr-serie-doc-original - Indica a série do documento original
• nr-doc-original - Indica o número do documento original
• cd-erro-sistema – Indica o código do erro do sistema, quando o parâmetro lg-undo-retry estiver ativo.