CPC-RTAPI058.P

• 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 Manutenção Classe de Erro (hrc.restrictionClass). Foi reservado, no sistema, 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 Manutenção de Mensagens (hte.systemMessage).
• 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 Manutenção de Mensagens da Automação (hac.automationMessage).

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                                      like 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-prin                                              like moviproc.vl-taxa-out-uni-prin 
fields vl-taxa-out-uni-auxi                                             like moviproc.vl-taxa-out-uni-auxi 
fields vl-taxa-out-uni-cobrado                                       like moviproc.vl-taxa-out-uni-cobrado
fields cd-unidade-prest-div                                           as int format "9999"
fields cd-prestador-div                                                  as int format "99999999"
fields  cd-pos-equipe               like moviproc.cd-pos-equipe.

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.
  • cd-pos-equipe - Grau de participaçã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.