Histórico da Página

...

• "VERIFICA-ERRO".
• "HORA-URGENCIA".
• "ANTES-GRAVAR".

Include das definições das tabelas temporárias

...

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 nr-recid-pres-exec as recid
field nr-recid-pres-sol as recid
field nr-recid-pres-pri as recid
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo
field qt-insumo like mov-insu.qt-insumo
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-pacote like paproins.cd-pacote
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-procedimento as int format '99999999'
field cd-unidade-carteira like car-ide.cd-unimed
field cd-unidade-executante like preserv.cd-unidade
field cd-prestador-executante like preserv.cd-prestador
field lg-urgencia as log
field nr-processo as int
field nr-sequencia as int
field in-tipo-movto as char format "x(01)"
field lg-registro-atual as log
field ds-mensagem as char format "x(75)"
field cd-unidade-ant like docrecon.cd-unidade-ant
field cd-unidade-prestadora-ant like docrecon.cd-unidade-prestadora-ant
field cd-transacao-ant like docrecon.cd-transacao-ant
field nr-serie-doc-original-ant like docrecon.nr-serie-doc-original-ant
field nr-doc-original-ant like docrecon.nr-doc-original-ant
field nr-doc-sistema-ant like docrecon.nr-doc-sistema-ant
field lg-continua as log
field vl-cobrado like insuusos.vl-cobrado
field vl-taxa-out-uni-cobrado like insuusos.vl-taxa-out-insumo
field vl-insumo like insuusos.vl-insumo
field vl-taxa-out-insumo like insuusos.vl-taxa-out-insumo
field cd-unidade-prestadora like insuusos.cd-unidade-prestadora
field cd-transacao like insuusos.cd-transacao
field nr-serie-doc-original like insuusos.nr-serie-doc-original
field nr-doc-original like insuusos.nr-doc-original
field nr-doc-sistema like insuusos.nr-doc-sistema
field nr-seq-digitacao like insuusos.nr-seq-digitacao
field cd-unidade like docusos.cd-unidade.

Definição campo a campo da tabela de entrada

...

• 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úmera 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 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-insumo  - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

• vl-insumo - Valor do movimento. 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 sequencia do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR".

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

Tabela de saída tmp-cpc-ac0012r-saida

...

field lg-continua as log initial yes
field ds-mensagem as char format "x(50)"
field lg-urgencia as log
field cd-erro-sistema as int
field vl-insumo like insuusos.vl-insumo
field vl-taxa-out-insumo like insuusos.vl-taxa-out-insumo
field lg-troca-valores as log.
 

Definição campo a campo da tabela de saída

• 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).
• ds-mensagem – Mensagem retornada da CPC.
• lg-urgencia – Log que informa se será um procedimento de Urgência ou não. 
• vl-insumo - Valor do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo lg-troca-valores for igual a YES.
• vl-taxa-out-insumo - Valor da taxa do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo lg-troca-valores for igual a YES.
• lg-troca-valores - Indica se os valores serão ou não alterados. Variável utilizada no ponto "ANTES-GRAVAR".