Histórico da Página
CPC-AC0410H.p
Produto: | Gestão de Planos de Saúde |
Módulo: | Todos |
Versão: | 12.x.x |
Assuntos: | 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"
, "
VERIFCLASSE-
EXISNOTA"
,"
ACIONADOCUMENTO-
TF9ANTERIOR"
- ,
"
ACIONAVERIF-
TF10EXIS"
, "
CARGA–DADOSCARGA-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
...