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"
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 valore desse campo poderá ser:
"Inclui".
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac0001r.p:
"TRATA-DOCTO"
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 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
cd-erro-sistema – Indica o código do erro do sistema, quando o parâmetro lg-undo-retry estiver ativo.