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.

Ponto de Utilização

• "TRANS-PROCED"
• "PERMITE-SIMUL"
• "VERIFICA-ERRO"
• "CON-TIP-GUIA"
• "CON-DOC-ANT"
• , "CON-PRE-DIV",
• "TRANSVALIDA-PROCEDGUIA",
• "VERIFICAANTES-ERROSOLIC" ,
• "PERMITE-SIMULPROCESSOFINAL",
• "VALIDA-GUIA" e "CON-TIP-GUIAANTES-EXCLUI".

...

Include das definições das tabelas temporárias

...

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 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 like docusos.cd-transacao
field nr-serie-doc-original                  like like docusos.nr-serie-doc-original
field nr-doc-original                          like like docusos.nr-doc-original
field nr-doc-sistema                          like like docusos.nr-doc-sistema
field cd-clinica                                 like docusos.cd-clinica
field cd-unidade-principal                  like like docusos.cd-unidade-principal
field cd-prestador                            like like docusos.cd-prestador-principal
field cd-procedimento                      like like ambcbhpm.cd-amb
field cd-unidade-carteira                   like moviproc.cd-unidade-carteira
field cd-carteira-usuario                    like like moviproc.cd-carteira-usuario
field cd-erro-sistema                        as 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 as recid
field nr-recid-pres-pri                      as as recid
field nr-recid-guia                           as recid
field nr-recid-docrecon as recid
field aa-guia-atendimento               like guiautor.aa-guia-atendimento
field nr-guia-atendimento                like like guiautor.nr-guia-atendimento
field lg-simulacao                           as log.as log
field h-tmp-servico as handle
field nr-recid-paproins as recid
field in-tipo-proces as char format "x(01)"
field qt-servico like mov-insu.qt-insumo.  
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;
• nr-recid-docrcon – RECID de acesso a tabela DOCRECON;
• 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;
• nr-recid-paproins - RECID de acesso a tabela PAPROINS;
• in-tipo-proces - Indicador do tipo de processo, WAC = "W";
• qt-servico - Quantidade de serviços encaminhados no segmento de requisição.

Tabela de entrada-saída tmp-cpc-ac1006d-movto

def temp-table tmp-cpc-ac1006d-movto no-undo

field nr-processo             as  as int
field nr-sequencia           as  as int
field cd-procedimento      like ambcbhpm.cd-cbhpm.

...

• 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  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 as log initial yes
field lg-permite-simulacao             as log
field cd-tipo-guia                         like  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.