Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

  • Dentro do programa ac1006d.p.


Ponto de Utilização

  • "TRANS-PROCED"
  • "PERMITE-SIMUL"
  • "VERIFICA-ERRO"
  • CON-DOC-ANT", "CON-PRETIP-DIVGUIA",
  • "TRANSCON-DOC-PROCEDANT"
  • , "VERIFICACON-PRE-DIV"
  • -ERRO" , "PERMITE-SIMUL", "VALIDA-GUIA",
  • "CONANTES-SOLIC"
  • TIP-GUIA",  "PROCESSOFINAL" e
  • "ANTES-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 as char format "x(10)"
field nm-ponto-chamada-cpc              as as char format "x(15)"
field cd-unidade                                  like like docusos.cd-unidade
field cd-unidade-prestadora                like like docusos.cd-unidade-prestadora
field cd-transacao                               like docusos.cd-transacao
field nr-serie-doc-original                    like like docusos.nr-serie-doc-original
field nr-doc-original                             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 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 int
field cd-uni-cli                                      like like clinpres.cd-unidade
field dt-realizacao                                as as date format "99/99/9999"
field hr-realizacao                                as as char format "x(08)"
field nr-recid-usuario                           as recid
field nr-recid-out-uni                            as 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 docrecon as recid
field aa-guia-atendimento                  like like guiautor.aa-guia-atendimento
field nr-guia-atendimento                   like guiautor.nr-guia-atendimento
field lg-simulacao                               as logas log
field h-tmp-servico as handle
field nr-recid-paproins                        as 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

...

  • 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

...

  • 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.