Á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 char format "x(06)"
    field nm-ponto-chamada-cpc

...

       as char format "x(15)"
    field cd-erro-sistema             as int
    field nr-rowid-usuario

...

           as rowid
    field nr-rowid-out-uni

...

           as rowid
    field cd-unidade

...

                 like previesp.cd-unidade
    field cd-prestador

...

               like previesp.cd-prestador
    field cd-vinculo

...

                 like previesp.cd-vinculo
    field cd-especialid               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 date format "99/99/9999"
    field hr-realizacao               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 guiautor.aa-guia-atendimento
    field nr-guia-atendimento         like guiautor.nr-guia-atendimento
    field r-beneficiario

...

             as recid
    field r-docusos                   as recid
    field lg-urgencia                 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 lg-reconsulta-aux           as log    
    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
    field vl-cobrado

...

                 like procusos.vl-cobrado           
    field vl-taxa-out-uni-cobrado     like procusos.vl-taxa-out-uni-

...

prin 
    field vl-taxa-out-principal       like procusos.vl-taxa-out-uni-

...

prin 
    field vl-taxa-out-uni-auxi

...

       like procusos.vl-taxa-out-uni-

...

auxi 
    field vl-principal

...

               like procusos.vl

...

-principal           
    field vl-auxiliar                 like procusos.vl-auxiliar
    field cd-unidade-prest-exec       like preserv.cd-unidade
    field cd-prestador-executante     like preserv.cd-prestador
    field cd-unidade-prestadora       like procusos.cd-unidade-prestadora
    field cd-transacao

...

               like procusos.cd-transacao
    field nr-serie-doc-original       like procusos.nr-serie-doc-original
    field nr-doc-original             like procusos.nr-doc-original
    field nr-doc

...

-sistema              like procusos.nr-doc-sistema
    field nr-seq-digitacao

...

           like procusos.nr-seq-digitacao
    field cd-local-atendimento

...

       like locaaten.cd-local-atendimento
    field vl-servico

...

                 like procusos.vl-principal
    field h-mensagens                 as handle.

Definição campo a campo da tabela de entrada

  • in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que é chamada;
  • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc";
  • cd-erro-sistema – Código gerado pelo sistema de erro de processamento. Esta variável somente terá conteúdo válido 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 válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" ou "HORA-URGENCIA" e o beneficiário for da base;
  • nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando o beneficiário de intercâmbio. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" ou "HORA-URGENCIA" e o beneficiário for de intercâmbio.
  • cd-unidade - Unidade do prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-prestador - Prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-vinculo - Vínculo do prestador executante. Esta variável somente terá conteúdo válido 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 válido 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 válido 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 válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-uni-cli – Unidade da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO".
  • cd-clinica – Código da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido 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 válido 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 válido 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.
  • r-docusos - RecID do documento de usos.
  • lg-urgencia – Log que informa se é urgência ou não.
  • lg-reconsulta-aux - Log que informa se é reconsulta ou não.
  • cd-unidade-ant - Código da unidade do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-transacao-ant - Código da transação do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • cd-unidade-prestadora-ant - Código da unidade prestadora do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-serie-doc-original-ant - Número da série do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-doc-original-ant - Número do documento original anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • nr-doc-sistema-ant - Número do documento sistema do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • 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. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO".
  • vl-cobrado - Valor cobrado do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-uni-cobrado - Taxa cobrada do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-principal  - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-taxa-out-uni-auxi - Taxa auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-principal - Valor principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • vl-auxiliar - Valor auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-unidade-prest-exec - Unidade do prestador executante . Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-prestador-executante - Prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-unidade-prestadora - Unidade prestadora. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-transacao - Código da transação. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-serie-doc-original -  Série do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-doc-original - Número do documento original. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-doc-sistema - Número do documento sistema. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • nr-seq-digitacao - Número da sequência do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

  • cd-local-atendimento - Local de atendimento.
  • vl-servico - Valor do procedimento. 
  • h-mensagens - Tabela temporária referente as mensagens.


Tabela de entrada tmp-cpc-ac0011r-insumo

...