CPC-AC1001D.p

Rotina utilizada para:

• Permite o controle da data de Atendimento

Localização

• Dentro do programa antes da verificação do período de movimentação.

Ponto de Utilização

• " ALTERA-DATA "
• "DEPOIS-TRANS"

Include das definições das tabelas temporárias

• cpc-ac1001d.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac1001d-entrada

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

      field in-evento-programa        as char format "x(10)"
         field nm-ponto-chamada-cpc      as char format "x(15)"
         field dt-realizacao             as date format "99/99/9999"
         field cd-uni-benef              as int
         field carteira-benef            as dec
         field nr-carteira-benef         as int
         field r-tranrevi                as recid
         field cd-clinica                as int
         field cd-unidade                as int
         field r-preserv                 as recid
         field h-mensagens               as handle
         field cd-tipo-consulta          as int.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac1001d.p.
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
• dt-realizacao – Data de realização do movimento.
• cd-uni-benef - Código da Unidade do Beneficiário
• carteira-benef - Documento de Identificação do Beneficiário
• nr-carteira-benef - Via do Documento de Identificação do Beneficiário
• r-tranrevi - Transação
• cd-clinica - Código da Clínica
• cd-unidade - Código da Unidade da Clínica
• r-preserv - Rowid do Prestador
• h-mensagens - Tabela temporária referente as mensagens
• cd-tipo-consulta - Tipo de consulta

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

def temp-table tmp-cpc-ac1001d-saida no-undo

field lg-undo-retry                as log
field ds-mensagem               as char format "x(50)"
field cd-erro-sistema            as char
field dt-atual                       as date format "99/99/9999"
field dt-antiga                     as date format "99/99/9999"
field cd-transacao              as int
field r-tranrevi                    as recid.

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo;
• ds-mensagem – Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro;
• cd-erro-sistema – Permite informar ERRO de retorno para apresentação em tela.
• dt-atual – Retorna o Valor atual da Data.
• dt-antiga – Retorna a data antiga de realização do movimento.
• cd-transacao - Código da Transação
• r-tranrevi - Rowid da Transação