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"

• "CON-DOC-ANT"; "FINAL-PROCESSO"; "CON-PRE-DIV",

  "TRANS-PROCED"

  ,

• "

  VERIF

  CLASSE-

  EXIS

  NOTA"

  ,

• "

  ACIONA

  DOCUMENTO-

  TF9

  ANTERIOR"

• ,

  "

  ACIONA

  VERIF-

  TF10

  EXIS"

  ,

• "

  CARGA–DADOS

  CARGA-DADOS-GUI"

• ,

  "CONV-UNID-CART

  ";

  "

• "ANTES-CLIN"

• "PEDE

  _

  -CID"

...

Include das definições das tabelas temporárias

...

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. O valor desse campo podem ser: "INCLUI", "CONSULTA-DESC" ou "CONSULTA"; 
• nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa ac0410h.p. O valor desse campo pode ser "DOCUMENTO-ANTERIOR", "FINAL-PROCESSO", "DIVISAO-HONORARIO", "ACIONA-TF9" ou "ACIONA-TF10", "CARGA-DADOS-GUI", "CONV-UNID-CART". 
• 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.
• Cdcd-unidade-carteira – Código da unidade da carteira do beneficiário;
• Cdcd-carteira-beneficiário – Código da carteira do beneficiário.
• Cdcd-unidade-guia – Código da Unidade da Guia de atendimento (AIH);
• Aaaa-guia-atend – Ano da guia de atendimento (AIH);
• Nrnr-guia-atend – Número da guia de atendimento (AIH);
• Cdcd-tipo-guia – Código do tipo da guia;
• Qtqt-procedimento – Quantidade do procedimento em digitação;
• Nrnr-processo – Número do Processo e;
• Nrnr-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

• Cdcd-erro-sistema – código do erro a ser apresentado caso o documento anterior não seja uma consulta.
• Lglg-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.
• Cdcd-procedimento-saida – Código do procedimento de saída (convertido).
• Lglg-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

...