CPC-AC2020D.

...

P

Rotina utilizada para:

• Tratar a informação "Tipo de Saída" quando a mesma não for informada pelo usuário e estiver sendo for registrado um documento de consulta ou SP/SADT na versão do TISS, para o ponto de chamada "TIPO-SAIDA";
• Realizar criticas e validações genéricas sobre o documento criado no MODULO RC, para o poonto ponto de chamada "FINAL-ATUALIZA" e "ANTES-REG-AUDIT".
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• No momento da criação do Documento, dentro do AC2020D.P, para ponto de chamada "TIPO-SAIDA";
• Após a finalização do processo de criação de documento no RC, para ponto de chamada "FINAL-ATUALIZA";
• Após a finalização do processo de criação de documento no RC, mas antes de validar as regras de auditoria, para o ponto de chamada "ANTES-REG-AUDIT";

...

Ponto de Utilização

• "TIPO-SAIDA"
• , "FINAL-ATUALIZA"
• "TRATA-MOVTO"
• e "ANTES-REG-AUDIT";

...

Include das definições das tabelas temporárias

• CPC-AC2020D.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac2020d-entrada

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

field in-evento-programa                       as char format "x(06)"
field nm-ponto-chamada-cpc                  as as char format "x(15)"
field lg-msg-tela                                   as log
field tp-saida                                       like docrecon.tp-saida
field cd-unidade                                   like docrecon.cd-unidade
field cd-unidade-prestadora                   like docrecon.cd-unidade-prestadora
field cd-transacao                                 like docrecon.cd-transacao
field nr-serie-doc-original                       like docrecon.nr-serie-doc-original
field nr-doc-original                               like docrecon.nr-doc-original
field nr-doc-sistema                               like docrecon.nr-doc-sistema
field in-tipo-movto as char format "x(1)"
field cd-procedimento as int format "99999999"
field cd-tipo-insumo like mov-insu.cd-tipo-insumo
field cd-insumo like mov-insu.cd-insumo
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-tipo-cob like procguia.cd-tipo-cob
field cd-validacao like procguia.

...

cd-validacao
field cd-user-valida like procguia.cd-user-validacao
field cd-forma-pagto-cob like procguia.cd-forma-pagto-cob
field vl-perc-usu-indevido like moviproc.vl-perc-usu-indevido
field cd-tipo-pagamento like moviproc.cd-tipo-pagamento
field nr-rowid-tranrevi as rowid
field nr-rowid-procusos as rowid.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a CPC-AC2020D.P. O valor deste campo somente pode ser:

"CRIA-DOC"

•  
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa AC2020D.P:

...

• lg-msg-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não.
• tp-saida – Tipo de saída informado pelo usuário do sistema, quando do processo de registro de consulta ou SP/SADT do TISS.
• cd-unidade – Código da Unidade;
• cd-unidade-prestadora – Código da Unidade Prestadora;
• cd-transacao – Código da Transação;
• nr-serie-doc-original – Série do documento original;
• nr-doc-original – Número do documento original;
• nr-doc-sistema – Número do documento do sistema (seqüência) .

...

• in-tipo-movto –
• cd-procedimento –
• cd-tipo-insumo –
• cd-insumo –
• aa-guia-atendimento –
• nr-guia-atendimento –
• cd-tipo-cob –
• cd-validacao –
• cd-user-valida –
• cd-forma-pagto-cob –
• vl-perc-usu-indevido –
• cd-tipo-pagamento –
• nr-rowid-tranrevi –
• nr-rowid-procusos –

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

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

field lg-undo-retry              as as log
field ds-msg-erro               as char
field tp-saida                    as int.

...

as int
field cd-tipo-cob like procguia.cd-tipo-cob
field cd-validacao like procguia.cd-validacao
field cd-user-valida like procguia.cd-user-validacao
field cd-forma-pagto-cob like procguia.cd-forma-pagto-cob
field vl-perc-usu-indevido like moviproc.vl-perc-usu-indevido
field cd-tipo-pagamento like moviproc.cd-tipo-pagamento
field lg-achou-validacao-guia as log
field in-liberado-contas like moviproc.in-liberado-contas
field cd-erro-sistema as int
field ds-mensagem as char format "x(30)".

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

• lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
• ds-msg-erro – Deve conter a mensagem de erro, se ocorrer, quando o parâmetro lg-msg-tela estiver desabilitado.
• tp-saida – Tipo de saída definido pela operadora. (Os valores de domínio são de 0 até 5 para consulta e 0 até 6 para SP/SADT).
• cd-tipo-cob –
• cd-validacao –
• cd-user-valida –
• cd-forma-pagto-cob –
• vl-perc-usu-indevido –
• cd-tipo-pagamento –
• lg-achou-validacao-guia –
• in-liberado-contas –
• cd-erro-sistema –
• ds-mensagem –