CPC-AC0410H.p

Rotina utilizada para:

• Verificar se o documento anterior, se informado, é de consulta;
• Dar mensagem de advertência/aviso ao usuário;
• Indicar se deve ou não ser solicitado o prestador da Divisão de Honorários;
• Permtir trocar o código do procedimento informado pelo usuário e controlar a digitação de movimentos em duplicidades na base de dados;
• Validar e armazenar o ramal do usuário logado no sistema;
• Localizar o atendimento do ramal informado/armazenado;
• Efetuar a carga de forma automática dos dados da guia de atendimento;
• Converter a unidade da carteira;
• Obrigar ou não o CID independente da parametrização do sistema.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
• Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.

Localização

• Dentro do programa ac0410h.p.

Ponto de Utilização

• “CTRL-ENTER".

• "CPC-CTRL-ENTER".

• "VAL-CART-BENEF"

• "DIVISAO-HONORARIO"

• "FINAL-PROCESSO"

• "TRANS-PROCED"

• "CLASSE-NOTA"

• "DOCUMENTO-ANTERIOR"

• "VERIF-EXIS"

• "CARGA-DADOS-GUI"

• "CONV-UNID-CART"

• "ANTES-CLIN"

• "PEDE-CID"

Include das definições das tabelas temporárias

• CPC-AC0410H.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-ac0410h-entrada

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

field in-evento-programa                     as char format "x(10)"
field nm-ponto-chamada-cpc                as char format "x(15)"
field cd-unidade                                 like docusos.cd-unidade
field cd-unidade-prestadora                 like docusos.cd-unidade-prestadora
field cd-transacao                               like docusos.cd-transacao
field nr-serie-doc-original                     like docusos.nr-serie-doc-original
field nr-doc-original                             like docusos.nr-doc-original
field nr-doc-sistema                            like docusos.nr-doc-sistema
field cd-clinica                                    like docusos.cd-clinica
field cd-unidade-principal                     like docusos.cd-unidade-principal
field cd-prestador                               like docusos.cd-prestador-principal.
field r-recid-doc                                  as recid
field cd-procedimento                         like ambcbhpm.cd-amb
field cd-unidade-carteira                     like moviproc.cd-unidade-carteira
field cd-carteira-usuario                      like moviproc.cd-carteira-usuario.
field cd-unidade-guia                          like guiautor.cd-unidade
field aa-guia-atend                             like guiautor.aa-guia-atendimento
field nr-guia-atend                              like guiautor.nr-guia-atendimento
field cd-tipo-guia                                like guiautor.cd-tipo-guia
field qt-procedimento                         like moviproc.qt-procedimentos
field nr-processo                                like procusos.nr-processo
field nr-sequencia                              like procusos.nr-seq-digitacao
field r-rowid-guiautor                         as rowid.

Definição campo a campo da tabela de entrada

• in-evento-programa – Evento do programa que chama a cpc-ac0410h.p. 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. 
• 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
• cd-clinica – Código da clinica;
• cd-unidade-principal – Código da unidade do prestador;
• cd-prestador – Código do prestador
• r-recid-doc – RECID do documento criado.
• Cd-procedimento – Código do procedimento.
• cd-unidade-carteira – Código da unidade da carteira do beneficiário;
• cd-carteira-beneficiário – Código da carteira do beneficiário.
• cd-unidade-guia – Código da Unidade da Guia de atendimento (AIH);
• aa-guia-atend – Ano da guia de atendimento (AIH);
• nr-guia-atend – Número da guia de atendimento (AIH);
• cd-tipo-guia – Código do tipo da guia;
• qt-procedimento – Quantidade do procedimento em digitação;
• nr-processo – Número do Processo e;
• nr-sequencia - Sequencia de digitacao dos itens do documento;
• r-rowid-guiautor – Rowid da guia de atendimento associada ao documento;

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

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

field cd-erro-sistema                  as char format "x(04)"
field lg-aplica-divisao                 as log
field cd-procedimento-saida       like ambcbhpm.cd-cbhpm.
field lg-existe-base                   as log
field lg-undo-retry                     as log
field ds-mensagem                   as char
field cd-carteira-inteira              as dec
field ds-label                           as char
field tp-order                           as char
field qt-solicitada                     as dec
field tp-insumo                         like tipoinsu.cd-tipo-insumo
field lg-busca-clin-exec             as log
field lg-pede-cid                       as log.

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

• cd-erro-sistema – código do erro a ser apresentado caso o documento anterior não seja uma consulta.
• lg-aplica-divisao – Parâmetro que tem a função de indicar se deverá ou não ser solicitado o prestador da Divisão de Honorários.
• cd-procedimento-saida – Código do procedimento de saída (convertido).
• lg-existe-base – Indica se o movimento em digitação já possui um correspondente seu na base de dados.
• 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-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
• cd-carteira-inteira – Composto pela unidade de origem do beneficiário(4 digitos), número da carteira do beneficiário(13 digitos) e o numero da via da carteira(3 digitos).
• ds-label – Descrição das teclas de atalho (PF9 e PF10);
• tp-order – tipo de ordenação a ser considerada na listagem;
• qt-solicitada – quantidade solicitada do movimento oriundo da guia de atendimento;
• tp-insumo – tipo de insumo oriundo da guia de atendimento;
• lg-pede-cid – define a obrigatoriedade do CID para o movimento.

Tabela de saída tmp-cpc-ac0410h-movto-saida

def temp-table tmp-cpc-ac0410h-movto-saida no-undo

field in-classe-nota                   as int
field cd-transacao                    like tranrevi.cd-transacao
field ds-transacao                    like tranrevi.ds-transacao
field ds-tipo-tran                      like tranrevi.ds-transacao
field tp-atendimento                 like guiautor.int-18
field cr-solicitacao                    like guiautor.cr-solicitacao
field ds-ind-clinica                    like guiautor.ds-ind-clinica
field ds-observacao                  like guiautor.ds-observacao.

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

• in-classe-nota – indica a classe de nota relacionada;
• cd-transacao – indica a transação relacionada;
• ds-transacao – descrição da transacao
• ds-tipo-tran– indica o tipo de transação associada;
• tp-atendimento – tipo de atendimento relacionado a guia de atendimento;
• cr-solicitacao – caráter de solicitação relacionado a guia de atendimento;
• ds-ind-clinica – indicação clinica relacionada a guia de atendimento;
• ds-observacao – observação relacionada a guia de atendimento;