Rotina que passa a tabela temporária do movimento (procedimento ou insumo) para que o cliente possa tratar as informações como desejar.
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 retornar até 20 registro na tabela temporária de saída. Caso possuir mais de 20 registros um erro será reportado.
Processos necessários:
Em virtude da funcionalidade da CPC-RTAPI058.P tratar as glosas do cliente é necessário que sejam feitas algumas parametrizações no sistema:
Deverão ser criadas as classes de erros, especificas do cliente, através do programa de Cadastro de classe de erro (RC – 01 – C). Foi reservado, no sistema Serious, a possibilidade de cadastramento de 19 classes de erro do tipo cliente. Estas classes de erro poderão ter a numeração de 81 a 99.
Deverão ser criadas mensagens padrão do sistema para estas novas classes de erros criadas. Este processo pode ser feito através do programa de cadastro de mensagens do sistema (TE-04-I).
Também deverão ser criadas mensagens no módulo de automação de consultório vinculadas as mensagens do sistema. Este processo é feito através do programa de Mensagens da automação (AC-01-E).
Localização
Dentro da rotina Rtapi058.p, que trata exclusivamente as classes de erro do cliente.
Ponto de Utilização
"CONTROLECLIENTE"
Include das definições das tabelas temporárias
rtapi058.i
Tabelas de entrada e saída
Tabela de entrada tmp-rtapi058-entrada
def temp-table tmp-rtapi058-entrada no-undo
fields in-tipo-programa as char format "x(02)"
fields in-evento-programa as char format "x(06)"
fields in-tipo-movto as char format "x(01)" /* P ou I */
fields lg-mensagem-na-tela as logical
fields lg-sem-cobertura as logical
fields lg-urgencia like moviproc.lg-urgencia
fields lg-anestesista like moviproc.lg-anestesista
fields in-nivel-prestador like moviproc.in-nivel-prestador
fields cd-grupo-procedimento like gru-pro.cd-grupo
fields cd-procedimento-inteiro like pl-mo-am.cd-amb
fields cd-tipo-insumo like mov-insu.cd-tipo-insumo
fields cd-insumo like mov-insu.cd-insumo
fields qt-movimento like mov-insu.qt-insumo
fields qt-repasse like moviproc.qt-repasse
fields dt-realizacao like moviproc.dt-realizacao
fields cd-transacao like moviproc.cd-transacao
fields dt-anoref like moviproc.dt-anoref
fields nr-perref like moviproc.nr-perref
fields cd-unidade-prestador-soli like moviproc.cd-unidade-prestador
fields cd-prestador-solicitante like moviproc.cd-prestador
fields cd-esp-prest-solicitante like moviproc.cd-esp-prest-executante
fields cd-tipo-vinculo-solic like moviproc.cd-tipo-vinculo
fields cd-unidade-prestador-exec like moviproc.cd-unidade-prestador
fields cd-prestador-exec like moviproc.cd-prestador
fields cd-esp-prest-executante like moviproc.cd-esp-prest-executante
fields cd-tipo-vinculo-exec like moviproc.cd-tipo-vinculo
fields nr-rowid-proposta as rowid
fields nr-rowid-usuario as rowid
fields nr-rowid-unicamco as rowid
fields nr-rowid-out-uni as rowid
fields lg-guia as logical
fields cd-modulo like mod-cob.cd-modulo
fields cd-local-atendimento like locaaten.cd-local-atendimento
fields cd-clinica like moviproc.cd-clinica
fields cd-cid like docrecon.cd-cid
fields cd-unidade-ant like docrecon.cd-unidade-ant
fields cd-transacao-ant like docrecon.cd-transacao-ant
fields cd-unidade-prestadora-ant like docrecon.cd-unidade-prestadora-ant
fields nr-serie-doc-original-ant ike docrecon.nr-serie-doc-original-ant
fields nr-doc-original-ant like docrecon.nr-doc-original-ant
fields nr-doc-sistema-ant like docrecon.nr-doc-sistema-ant
fields aa-guia-atendimento-ant like guiautor.aa-guia-atendimento-ant
fields nr-guia-atendimento-ant like guiautor.nr-guia-atendimento-ant
fields dt-internacao like docrecon.dt-internacao
fields dt-alta like docrecon.dt-alta
fields hr-internacao like docrecon.hr-internacao
fields hr-alta like docrecon.hr-alta
fields cd-motivo-alta like docrecon.cd-motivo-alta
fields cd-unidade-principal like docrecon.cd-unidade-principal
fields cd-prestador-principal like docrecon.cd-prestador-principal
fields cd-vinculo-principal like docrecon.cd-vinculo-principal
fields hr-realizacao like moviproc.hr-realizacao
fields nr-recid-movto as recid
fields nr-serie-contratante like mov-insu.nr-serie-contratante
fields nr-docto-contratante like mov-insu.nr-docto-contratante
fields vl-insumo like mov-insu.vl-insumo
fields vl-sistema like mov-insu.vl-base-valor-sistema
fields vl-cobrado like mov-insu.vl-cobrado
fields vl-cobrado like mov-insu.vl-cobrado
fields vl-taxa-out-uni-prinlike moviproc.vl-taxa-out-uni-prin
fields vl-taxa-out-uni-auxilike moviproc.vl-taxa-out-uni-auxi
fields vl-taxa-out-uni-cobradolike moviproc.vl-taxa-out-uni-cobrado
fields cd-unidade-prest-div as int format "9999"
fields cd-prestador-div as int format "99999999" .
Definição campo a campo da tabela de entrada tmp-rtapi058-entrada
in-tipo-programa – Indica a origem do modulo que chamou a rotina (RC, AT, AC).
in-evento-programa - Indica o evento que originou a chamda a rotina (INCLUI ou ALTERA).
in-tipo-movto - Indica se o movimento e um "Insumo" ou "Procedimento".
lg-mensagem-na-tela – Indica se as mensagens de erro devem ser dispostas na tela ou não. Caso o indicador for não o campo da tabela de saída ds-mensagem-relatorio deve ser preenchido. (não obrigatório).
lg-sem-cobertura – Indica se o movimento possui ou não cobertura.
lg-urgencia - Indica se o movimento foi executado em urgência.
lg-anestesista – Indica se o procedimento/insumo foi executado por um anestesiologista.
in-nivel-prestador - Indica o nível do prestador (Principal (01), Auxiliar (02), Demais...).
cd-grupo-procedimento - Código do grupo de procedimento genérico.
cd-procedimento-inteiro – Código do procedimento (tamanho de 8 caracteres) a variável in-tipo-movimento for igual a "P".
cd-tipo-insumo – Código do tipo do insumo se a variável in-tipo-movimento for igual a "I".
cd-insumo – Código do insumo se a variável in-tipo-movimento for igual a "I".
qt-movimento - Quantidade de procedimento/insumo executado/utilizado.
qt-repasse - Quantidade de vezes que paga a tabela medica ao prestador.
dt-realizacao – Data de realização do movimento.
cd-transacao – Código da transação.
dt-anoref - Ano na qual foi digitado o movimento.
nr-perref - Numero do período de referencia na qual foi digitado o movimento.
cd-unidade-prestador-soli – Código da unidade do prestador solicitante.
cd-prestador-solicitante – Código do prestador solicitante.
cd-esp-prest-solicitante – Código da especialidade do prestador solicitante.
cd-tipo-vinculo-solic - Codigo do tipo de vinculo do prestador solicitante.
cd-unidade-prestador-exec – Código da unidade do prestador executante.
cd-prestador-exec – Código do prestador executante.
cd-esp-prest-executante – Código da especialidade do prestador executante.
cd-tipo-vinculo-exec - Codigo do tipo de vinculo do prestador executante.
nr-rowid-proposta - rowid da proposta, para find na tabela propost. (proposta do beneficiário da base).
nr-rowid-usuario - rowid do usuário, para find na tabela usuario. (usuário da base).
nr-rowid-unicamco - rowid da unidade do beneficiário em intercâmbio, para find na tabela unicamco.
nr-rowid-out-uni - rowid dos usuário de outras unidade, para find na tabela out-uni. (usuário em intercâmbio).
lg-guia – Indica se o documento teve origem em uma guia de atendimento.
cd-modulo – Código do módulo de cobertura.
cd-local-atendimento – Código do local de atendimento.
cd-clinica – Código da Clínica.
cd-cid – Código do CID.
cd-unidade-ant – Código da unidade do documento anterior.
cd-transacao-ant – Código da transação do documento anterior.
cd-unidade-prestadora-ant – Código da unidade prestadora do documento anterior.
nr-serie-doc-original-ant – Número de serie do documento anterior.
nr-doc-original-ant – Numero do dodumento anterior.
nr-doc-sistema-ant – Número do documento de sistema anterior.
aa-guia-atendimento-ant – Ano da guia de atendimento anterior.
nr-guia-atendimento-ant – Numero da guia de atendimento anterior.
dt-internacao – Data de internação do beneficiário.
dt-alta – Data de alta do beneficiário.
hr-internacao – Hora de internação do beneficiário.
hr-alta – Hora da alta do beneficiário.
cd-motivo-alta – Código do motivo da alta do beneficiário.
Cd-unidade-principal – Código da Unidade do prestador principal.
Cd-prestador-principal – Código do prestador principal;
Cd-vinculo-principal – Código do vinculo do prestador principal;
Hr- realização – Hora de realização do movimento;
Nr-recid-movto – Recid do movimento que está sendo alterado;
Nr-serie-contratante – Número de série do documento do contratante;
Nr-docto-contratante - Número do documento do contratante.
Vl-Insumo – valor do insumo ;
Vl-sistema – valor do insumo valorizado pelo sistema;
Vl-cobrado – valor do insumo que será cobrado;
vl-taxa-out-uni-prin – Valor da taxa adm. Intercâmbio, calculada pelo sistema, referente o prestador executante principal;
vl-taxa-out-uni-auxi – Valor da taxa adm. Intercâmbio, calculada pelo sistema, referente o prestador executante auxiliar.
vl-taxa-out-uni-cobrado – Valor da taxa de intercâmbio cobrada.
cd-unidade-prest-div - unidade do prestador de divisão do movimento
cd-prestador-div - prestador de divisão do movimento
Tabela de entrada tmp-rtapi058-movto
def temp-table tmp-rtapi058-movto no-undo
fields nr-processo like moviproc.nr-processo
fields nr-sequencia like moviproc.nr-seq-digitacao
fields cd-tp-movto as char format "x(1)"
fields cd-tipo-insumo like mov-insu.cd-tipo-insumo
fields cd-proc-insumo as int format "99999999"
fields cd-modulo like mod-cob.cd-modulo.
Definição campo a campo da tabela de entrada tmp-rtapi058-movto
nr-processo – Número do Processo.
nr-sequencia – Número da seqüência da digitação dos itens no documento.
cd-tp-movto – Identificação do tipo do movimento ("P" – Procedimento e "I" – Insumo).
cd-tipo-insumo – Código do tipo do insumo. Se cd-tipo-movto igual a "P" então este código sempre será igual a zeros.
cd-proc-insumo – Código do procedimento ou do insumo. Se cd-tipo-movto igual a "P" então este código será o código do procedimento senão será o código do insumo.
tmp-cpc-rtapi058-saida ou *tmp-rtapi058-saida*Cd-modulo – Modulo de cobertura do movimento.
Tabela de saida tmp-cpc-rtapi058-saida e tmp-rtapi058-saida
def temp-table tmp-cpc-rtapi058-saida no-undo
fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields ds-mensagem-livre as char format "x(120)"
fields lg-restringe-movimento as log
fields cd-mensiste like mensiste.cd-mensagem
fields cd-classe-erro like claserro.cd-classe-erro
fields nr-serie-contratante like mov-insu.nr-serie-contratante
fields nr-docto-contratante like mov-insu.nr-docto-contratante
fields aa-guia-atendimento like guiautor.aa-guia-atendimento
fields nr-guia-atendimento like guiautor.nr-guia-atendimento
fields vl-insumo like mov-insu.vl-insumo
fields vl-sistema like mov-insu.vl-base-valor-sistema
fields vl-cobrado like mov-insu.vl-cobrado.
Definição campo a campo das tabelas de saida tmp-cpc-rtapi058-saida e tmp-rtapi058-saida
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
ds-mensagem-relatorio – Deve conter mensagem de erro ou qualquer outro tipo de mensagem.
ds-mensagem-livre - Mensagem descritiva de ate 120 posições para retorno no arquivo de resposta.
lg-restringe-movimento – Variável que controla se o movimento deve ser "barrado", devido ao erro, ou se o erro apenas informativo.
cd-mensiste – Código da mensagem de erro do sistema;
cd-classe-erro - Código da a classe de erro;
Nr-serie-contratante – Número de série do documento do contratante;
Nr-docto-contratante - Número do documento do contratante.
Aa-guia-atendimento – Ano da Guia de atendimento;
Nr-guia-atendimento – Número da Guia de atendimento;
Vl-Insumo – valor do insumo ;
Vl-sistema – valor do insumo valorizado pelo sistema;
Vl-cobrado – valor do insumo que será cobrado;
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas