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. 

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

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