cpc-ac0410h.p1

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 digitiaçã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
oDentro do programa ac0410h.p.
Ponto de Utilização
"CON-DOC-ANT"; "FINAL-PROCESSO"; "CON-PRE-DIV", "TRANS-PROCED", "VERIF-EXIS", "ACIONA-TF9", "ACIONA-TF10" , "CARGA–DADOS-GUI", "CONV-UNID-CART"; "PEDE_CID"
Include das definições das tabelas temporárias
oCPC-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
oin-evento-programa – Evento do programa que chama a cpc-ac0410h.p. O valor desse campo podem ser: "INCLUI", "CONSULTA-DESC" ou "CONSULTA";
onm-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".
ocd-unidade – Código da Unidade;
ocd-unidade-prestadora – Código da Unidade Prestadora;
ocd-transacao – Código da Transação;
onr-serie-doc-original – Série do documento original;
onr-doc-original – Número do documento original
ocd-clinica – Código da clinica;
ocd-unidade-principal – Código da unidade do prestador;
ocd-prestador – Código do prestador
or-recid-doc – RECID do documento criado.
oCd-procedimento – Código do procedimento.
oCd-unidade-carteira – Código da unidade da carteira do beneficiário;
oCd-carteira-beneficiário – Código da carteira do beneficiário.
oCd-unidade-guia – Código da Unidade da Guia de atendimento (AIH);
oAa-guia-atend – Ano da guia de atendimento (AIH);
oNr-guia-atend – Número da guia de atendimento (AIH);
oCd-tipo-guia – Código do tipo da guia;
oQt-procedimento – Quantidade do procedimento em digitação;
oNr-processo – Número do Processo e;
oNr-sequencia - Sequencia de digitacao dos itens do documento;
or-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
oCd-erro-sistema – código do erro a ser apresentado caso o documento anterior não seja uma consulta.
oLg-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.
oCd-procedimento-saida – Código do procedimento de saída (convertido).
oLg-existe-base – Indica se o movimento em digitação já possui um correspondente seu na base de dados
o 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.
o ds-mensagem – Deve conter mensagens de erro ou qualquer outro tipo de mensagem.
o 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).
o ds-label – Descrição das teclas de atalho (PF9 e PF10);
o tp-order – tipo de ordenação a ser considerada na listagem;
o qt-solicitada – quantidade solicitada do movimento oriundo da guia de atendimento;
o tp-insumo – tipo de insumo oriundo da guia de atendimento;
o 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
oin-classe-nota – indica a classe de nota relacionada;
ocd-transacao – indica a transação relacionada;
ods-transacao – descrição da transacao
ods-tipo-tran– indica o tipo de transação associada;
otp-atendimento – tipo de atendimento relacionado a guia de atendimento;
ocr-solicitacao – caráter de solicitação relacionado a guia de atendimento;
ods-ind-clinica – indicação clinica relacionada a guia de atendimento;
ods-observacao – observação relacionada a guia de atendimento;