cpc-ac1006d.p1

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.
 
Localização
Dentro do programa ac1006d.p.
Ponto de Utilização
"CON-DOC-ANT", "CON-PRE-DIV", "TRANS-PROCED", "VERIFICA-ERRO" , "PERMITE-SIMUL", "VALIDA-GUIA" e "CON-TIP-GUIA".
 
Include das definições das tabelas temporárias
cpc-ac1006d.i
 
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-ac1006d-entrada
def temp-table tmp-cpc-ac1006d-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-doc-sistema like docusos.nr-doc-sistema
field cd-clinica like docusos.cd-clinica
field cd-unidade-principal like docusos.cd-unidade-principal
field cd-prestador like docusos.cd-prestador-principal
field cd-procedimento like ambcbhpm.cd-amb
field cd-unidade-carteira like moviproc.cd-unidade-carteira
field cd-carteira-usuario like moviproc.cd-carteira-usuario
field cd-erro-sistema as int
field cd-uni-cli like clinpres.cd-unidade
field dt-realizacao as date format "99/99/9999"
field hr-realizacao as char format "x(08)"
field nr-recid-usuario as recid
field nr-recid-out-uni as recid
field nr-recid-pres-exec as recid
field nr-recid-pres-sol as recid
field nr-recid-pres-pri as recid
field nr-recid-guia as recid
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field lg-simulacao as log.
 
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-ac1006d.p. O valor desse campo podem ser: "INCLUI";
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac1006d.p. O valor desse campo pode ser: "DOCUMENTO-ANTERIOR" ou "DIVISAO-HONORARIO" ou "VALIDA-GUIA" e "PERMITE-SIMUL".
cd-unidade – Código da Unidade;
cd-unidade-prestadora – Código da Unidade Prestadora;
cd-transacao – Código da Transação;
nr-serie-doc-original – Série do documento original;
nr-doc-original – Número do documento original
cd-clinica – Código da clinica;
cd-unidade-principal – Código da unidade do prestador;
cd-prestador – Código do prestador
cd-procedimento – Código do procedimento.
cd-unidade-carteira – Código da unidade da carteira do beneficiário;
cd-carteira-beneficiário – Código da carteira do beneficiário.
cd-erro-sistema – Código gerado pelo sistema de erro de processamento;
cd-uni-cli – Unidade da clínica onde esta sendo utilizado o insumo;
dt-realizacao – Data de realizacao;
hr-realizacao – Hora de realização
nr-recid-usuario – RECID de acesso a tabela USUARIO, quando beneficiário da base;
nr-recid-out-uni – RECID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio;
nr-recid-pres-exec – RECID de acesso a tabela PRESERV do prestador executante;
nr-recid-pres-sol – RECID de acesso a tabela PRESERV do prestador solicitante;
nr-recid-pres-pri – RECID de acesso a tabela PRESERV do prestador principal;
nr-recid-guia – RECID de acesso a tabela GUIAUTOR;
aa-guia-atendimento – Ano da guia de atendimento (autorização);
nr-guia-atendimento – Número da guia de atendimento (autorização).
lg-simulacao – indicador de simulação ou não do processo de registro de SP/SADT.
 
Tabela de entrada-saída tmp-cpc-ac1006d-movto
def temp-table tmp-cpc-ac1006d-movto no-undo
field nr-processo as int
field nr-sequencia as int
field cd-procedimento like ambcbhpm.cd-cbhpm.
 
Definição campo a campo da tabela de saída
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
def temp-table tmp-cpc-ac1006d-saida no-undo
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
lg-undo-retry – Indica se houve algum erro dentro da CPC;
ds-mensagem – Indica a descrição da mensagem de erro;
cd-erro-sistema – código do erro a ser apresentado caso o documento anterior não seja uma consulta.
lg-aplica-divisao – Parâmetro que tem a função de indicar se deverá ou não ser solicitado o prestador da Divisão de Honorários;
cd-procedimento-saida – Código do procedimento de saída (convertido);
lg-continua – Indica se o processamento deverá ou não prosseguir, a partir do código de erro passado para a CPC através da tabela temporária de entrada (cd-erro-sistema). Esta variável somente deverá retornar valor quando o ponto de chamada da CPC for igual a "VERIFICA-ERRO";
lg-permite-simulacao - Indica se 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 poderá ou não ser realizado;
cd-tipo-guia – Código do tipo da guia.