Histórico da Página
...
- 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" e , "CON-TIP-GUIA" e "PROCESSOFINAL".
Include das definições das tabelas temporárias
...
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
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;
- 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
...