Árvore de páginas

Versões comparadas

Chave

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

...

def temp-table tmp-cpc-ac0011r-entrada no-undo

field in-evento-programa                      as as char format "x(06)"
field nm-ponto-chamada-cpc                 as char format "x(15)"
field cd-erro-sistema                            as as int
field nr-rowid-usuario                           as rowid
field nr-rowid-out-uni                           as rowid
field cd-unidade                                  like like previesp.cd-unidade
field cd-prestador                                like like previesp.cd-prestador
field cd-vinculo                                    like like previesp.cd-vinculo
field cd-especialid                                like like previesp.cd-especialid
field cd-procedimento                           like ambcbhpm.cd-amb
field qt-procedimento                           as int format "9999"
field cd-uni-cli                                     like moviproc.cd-unidade-clinica
field cd-clinica                                     like moviproc.cd-clinica
field dt-realizacao                                as as date format "99/99/9999"
field hr-realizacao                                as as char format "x(08)"
field cd-unidade-prest-princ                   like paproins.cd-unidade
field cd-prestador-princ                         like paproins.cd-prestador
field cd-pacote                                     like paproins.cd-pacote
field aa-guia-atendimento                      like like guiautor.aa-guia-atendimento
field nr-guia-atendimento                       like guiautor.nr-guia-atendimento
field r-beneficiario                                 as recid
field lg-urgencia                                    as as log
field nr-processo as int
field nr-sequencia as int
field lg-registro-atual as log
field ds-mensagem as char format "x(75)"
field cd-esp-amb like ambproce.cd-esp-amb
field cd-grupo-proc-amb like ambproce.cd-grupo-proc-amb
field cd-procedimento-amb like ambproce.cd-procedimento
field dv-procedimento like ambproce.dv-procedimento
field cd-erro as char format "9999"
field in-tipo-movto as char format "x(01)"
field cd-glosa as int
field cd-classe-erro as int
field cd-unidade-ant like paproins.cd-unidade
field cd-transacao-ant like tranrevi.cd-transacao
field cd-unidade-prestadora-ant like moviproc.cd-unidade-prestadora
field nr-serie-doc-original-ant like moviproc.nr-serie-doc-original
field nr-doc-original-ant like moviproc.nr-doc-original
field nr-doc-sistema-ant like moviproc.nr-doc-sistema
field lg-continua as log.

 

 

Definição campo a campo da tabela de entrada

  • in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada – pode assumir o valor " INCLUI";
  • nm-ponto-chamada-cpc – "VERIFICA-ERRO", "APOS-VALIDACAO" e "VL-MINIMO-COB";
  • cd-erro-sistema – Código gerado pelo sistema de erro de processamento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "VERIFICA-ERRO";
  • nr-rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da base. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" e o beneficiário for da base;
  • nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando beneficiário de intercâmbio. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" e o beneficiário for de intercâmbio.
  • cd-unidade - Unidade do prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-prestador - Prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-vinculo - Vinculo do prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-especialid – Especialidade do prestador executante. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-procedimento – Código do procedimento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • qt-procedimento – Quantidade do procedimento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-uni-cli – Unidade da clínica onde esta sendo realizado o procedimento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-clinica – Código da clinica onde esta sendo realizado o procedimento. Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • dt-realizacao – Data de realização do procedimento. . Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • hr-realizacao - Hora de realização do procedimento. . Esta variável somente terá conteúdo valido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-unidade-prest-princ – Código da unidade do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-prestador-princ – Código do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-pacote – Código do pacote. Somente será diferente de zeros quando o procedimento for oriundo de pacote e se o ponto de chamada da CPC for "VERIFICA-ERRO".
  • aa-guia-atendimento – Ano da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-guia-atendimento – Número da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO".
  • r-beneficiario – recID do beneficiário.
  • lg-urgencia – Log que informa se é urgência ou não.

  • cd-unidade-ant - código da unidade do documento anterior.
  • cd-transacao-ant - Código da transação do documento anterior
  • cd-unidade-prestadora-ant - Código da unidade prestadora do documento anterior.
  • nr-serie-doc-original-ant - Númera da série do documento anterior.
  • nr-doc-original-ant - Número do documento original anterior.
  • nr-doc-sistema-ant - Número documento sistema do documento anterior.
  • lg-continua - Indicador recebido do programa ac0011r.p indicando se o erro gerado pelo programa é restritivo ou não. Ou seja, quando recebe o valor "no" o erro gerado não permite o programa continuar e quando recebe "yes" o erro é apenas um alerta.

 

Tabela de entrada tmp-cpc-ac0011r-insumo

...