Página editado por Rodrigo Bergamaschi de Azevedo CPC-AC0011R.P Produto: Gestão de Planos de Saúde Módulo:Todos Versão:12.x.x Assuntos: cpc-ac0011r.p Rotina utlizada no momento da verificação de erro de sistema durante a gravação de procedimentos, após a verificação do controle de reconsulta pelo sistema e após a valorização do procedimento. 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. Localização Dentro do programa ac0011r.p no momento da leitura da tabelas de erros do sistema, onde por meio da tabela temporaria de saída (tmp-cpc-ac0011r-saida), o campo "lg-continua" indicará o retorno ou não do processamento. Após o tratamento da reconsulta pelas rotinas do sistema. O campo cd-erro-sistema indicará o retorno do processamento da CPC. Após a valorização do procedimento. O campo lg-continua indicará se será verificado as regras de autorização com o valor de cobrança. Pontos de Utilização "GERA-ERRO" "HORA-URGENCIA" "GLOSA-PRO" "APOS-RTAPI058" "INICIO-RECONS" "INI-CONS-GUIA" "APOS-VALIDA" "APOS-CONS-GUIA" "ANTES-VALORIZA" "ANTES-GRAVAR" "TRATA-RECON" "VERIFICA-ERRO" "VL-MINIMO-COB" "APOS-BUSCATABPG" - a partir da versão 12.1.2301 Include das definições das tabelas temporárias CPC-AC0011R.I Tabelas de entrada e saída Tabela de entrada tmp-cpc-ac0011r-entrada def temp-table tmp-cpc-ac0011r-entrada no-undo field in-evento-programa as char format "x(06)" field nm-ponto-chamada-cpc as char format "x(15)" field cd-erro-sistema as int field nr-rowid-usuario as rowid field nr-rowid-out-uni as rowid field cd-unidade like previesp.cd-unidade field cd-prestador like previesp.cd-prestador field cd-vinculo like previesp.cd-vinculo field cd-especialid like previesp.cd-especialid field cd-procedimento like ambcbhpm.cd-amb field qt-procedimento as int format "9999" field cd-uni-cli like moviproc.cd-unidade-clinica field cd-clinica like moviproc.cd-clinica field dt-realizacao as date format "99/99/9999" field hr-realizacao as char format "x(08)" field cd-unidade-prest-princ like paproins.cd-unidade field cd-prestador-princ like paproins.cd-prestador field cd-pacote like paproins.cd-pacote field aa-guia-atendimento like guiautor.aa-guia-atendimento field nr-guia-atendimento like guiautor.nr-guia-atendimento field r-beneficiario as recid field r-docusos as recid field lg-urgencia as log field nr-processo as int field nr-sequencia as int field lg-registro-atual as log field ds-mensagem as char format "x(75)" field cd-esp-amb like ambproce.cd-esp-amb field cd-grupo-proc-amb like ambproce.cd-grupo-proc-amb field cd-procedimento-amb like ambproce.cd-procedimento field dv-procedimento like ambproce.dv-procedimento field cd-erro as char format "9999" field in-tipo-movto as char format "x(01)" field cd-glosa as int field cd-classe-erro as int field lg-reconsulta-aux as log field cd-unidade-ant like paproins.cd-unidade field cd-transacao-ant like tranrevi.cd-transacao field cd-unidade-prestadora-ant like moviproc.cd-unidade-prestadora field nr-serie-doc-original-ant like moviproc.nr-serie-doc-original field nr-doc-original-ant like moviproc.nr-doc-original field nr-doc-sistema-ant like moviproc.nr-doc-sistema field lg-continua as log field vl-cobrado like procusos.vl-cobrado field vl-taxa-out-uni-cobrado like procusos.vl-taxa-out-uni-prin field vl-taxa-out-principal like procusos.vl-taxa-out-uni-prin field vl-taxa-out-uni-auxi like procusos.vl-taxa-out-uni-auxi field vl-principal like procusos.vl-principal field vl-auxiliar like procusos.vl-auxiliar field cd-unidade-prest-exec like preserv.cd-unidade field cd-prestador-executante like preserv.cd-prestador field cd-unidade-prestadora like procusos.cd-unidade-prestadora field cd-transacao like procusos.cd-transacao field nr-serie-doc-original like procusos.nr-serie-doc-original field nr-doc-original like procusos.nr-doc-original field nr-doc-sistema like procusos.nr-doc-sistema field nr-seq-digitacao like procusos.nr-seq-digitacao field cd-local-atendimento like locaaten.cd-local-atendimento field vl-servico like procusos.vl-principal field h-mensagens as handle field in-res-div as char field lg-div-hon as logical field h-ac0011r-proced as handle field cd-pos-equipe like moviproc.cd-pos-equipe field cd-tab-preco-proc like moviproc.cd-tab-preco-proc. Definição campo a campo da tabela de entrada in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que é chamada; nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc"; cd-erro-sistema – Código gerado pelo sistema de erro de processamento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "VERIFICA-ERRO"; nr-rowid-usuario - ROWID de acesso a tabela USUARIO, quando beneficiário da base. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" ou "HORA-URGENCIA" e o beneficiário for da base; nr-rowid-out-uni – ROWID de acesso a tabela OUT-UNI, quando o beneficiário de intercâmbio. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO" ou "HORA-URGENCIA" e o beneficiário for de intercâmbio. cd-unidade - Unidade do prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-prestador - Prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-vinculo - Vínculo do prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-especialid – Especialidade do prestador executante. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-procedimento – Código do procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". qt-procedimento – Quantidade do procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-uni-cli – Unidade da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-clinica – Código da clínica onde é realizado o procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". dt-realizacao – Data de realização do procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". hr-realizacao - Hora de realização do procedimento. Esta variável somente terá conteúdo válido se o ponto de chamada da CPC for "APOS-VALIDACAO" ou "VERIFICA-ERRO". cd-unidade-prest-princ – Código da unidade do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO". cd-prestador-princ – Código do prestador principal. Somente será diferente de zeros quando o ponto de chamada da CPC for "VERIFICA-ERRO". cd-pacote – Código do pacote. Somente será diferente de zeros quando o procedimento for oriundo de pacote e se o ponto de chamada da CPC for "VERIFICA-ERRO". aa-guia-atendimento – Ano da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO". nr-guia-atendimento – Número da guia de atendimento (autorização). Somente será diferente de zeros quando uma guia for associada ao documento e o ponto de chamada da CPC for "VERIFICA-ERRO". r-beneficiario – recID do beneficiário. r-docusos - RecID do documento de usos. lg-urgencia – Log que informa se é urgência ou não. lg-reconsulta-aux - Log que informa se é reconsulta ou não. cd-unidade-ant - Código da unidade do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". cd-transacao-ant - Código da transação do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". cd-unidade-prestadora-ant - Código da unidade prestadora do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". nr-serie-doc-original-ant - Número da série do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". nr-doc-original-ant - Número do documento original anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". nr-doc-sistema-ant - Número do documento sistema do documento anterior. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". lg-continua - Indicador recebido do programa ac0011r.p, indicando se o erro gerado pelo programa é restritivo ou não. Ou seja, quando recebe o valor "no" o erro gerado não permite o programa continuar, e quando recebe "yes" o erro é apenas um alerta. Somente será informado quando o ponto de chamada da CPC for "VERIFICA-ERRO". vl-cobrado - Valor cobrado do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". vl-taxa-out-uni-cobrado - Taxa cobrada do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". vl-taxa-out-principal - Taxa principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". vl-taxa-out-uni-auxi - Taxa auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". vl-principal - Valor principal do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". vl-auxiliar - Valor auxiliar do movimento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". cd-unidade-prest-exec - Unidade do prestador executante . Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". cd-prestador-executante - Prestador executante. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". cd-unidade-prestadora - Unidade prestadora. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". cd-transacao - Código da transação. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". nr-serie-doc-original - Série do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". nr-doc-original - Número do documento original. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". nr-doc-sistema - Número do documento sistema. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". nr-seq-digitacao - Número da sequência do documento. Somente será informado quando o ponto de chamada da CPC for "ANTES-GRAVAR". cd-local-atendimento - Local de atendimento. vl-servico - Valor do procedimento. h-mensagens - Tabela temporária referente as mensagens. in-res-div - campo que identifica "qual" o prestador de uma divisão de honorários; lg-div-hon - campo que indica se o movimento possui divisão de honorários; h-ac0011r-proced - handle para a temp-table "ac0011r-proced"; cd-pos-equipe - campo que identifica a posição do prestador na equipe; cd-tab-preco-proc - tabela de quantidade de moedas para pagamento. Tabela de entrada tmp-cpc-ac0011r-insumo def temp-table tmp-cpc-ac0011r-insumo no-undo field cd-tipo-insumo like pacinsu.cd-tipo-insumo field cd-insumo like pacinsu.cd-insumo field cd-pacote like pacinsu.cd-pacote field dt-realizacao like mov-insu.dt-realizacao Definição campo a campo da tabela de entrada "tmp-cpc-ac0011r-insumo" cd-tipo-insumo – Código do tipo de insumo; cd-insumo – Código do Insumo"; cd-pacote – Código do pacote. Somente será diferente de zeros quando o insumo estiver sendo incluído por meio de pacote; dt-realizacao – Data de realização do insumo. Observação: A Tabela de entrada tmp-cpc-ac0011r-insumo somente possuirá registros quando o documento incluído possuir insumos e o ponto de chamada da CPC for "VERIFICA-ERRO". Tabela de saída tmp-cpc-ac0011r-saida def temp-table tmp-cpc-ac0011r-saida no-undo field lg-continua as log initial yes field lg-undo-retry as log field cd-erro-sistema as int field ds-mensagem as char field lg-urgencia as log field lg-clinica-fisio as log field cd-erro as char format "x(04)" field lg-valoriza as log field vl-honorarios as dec field vl-operacional as dec field vl-filme as dec field cd-moeda as int field qt-repasse as dec field cd-glosa as int field cd-classe-erro as int field lg-reconsulta-aux as log field vl-principal like procusos.vl-principal field vl-auxiliar like procusos.vl-auxiliar field vl-taxa-out-principal like procusos.vl-taxa-out-uni-prin field vl-taxa-out-uni-auxi like procusos.vl-taxa-out-uni-auxi field lg-troca-valores as log field lg-alt-cd-tab-preco-proc as logical field cd-tab-preco-proc like moviproc.cd-tab-preco-proc. Definição campo a campo da tabela de saída lg-continua – Indica se o processamento deverá ou não prosseguir, a partir do código de erro passado para a CPC por meio da tabela temporária de entrada (cd-erro-sistema). Esta variável somente deverá retornar o valor, quando o ponto de chamada da CPC for igual a "VERIFICA-ERRO" ou "VL-MINIMO-COB". lg-undo-retry – Indica se erros ocorreram durante a execução da CPC-AC0011R.P. cd-erro-sistema - código de erro gerado pela lógica do cliente na CPC. Esta variável somente deverá retornar valor quando o ponto de chamada da CPC for igual a "APOS-VALIDACAO". ds-mensagem – Mensagem de retorno da rotina, quando da ocorrência de erro na execução da CPC-AC0011R.P. lg-urgencia – Log que informa se é urgência ou não. lg-clinica-fisio - Indica se Clinica Fisioterapica cd-erro - Código do erro lg-valoriza - Log que informa se valoriza ou não. vl-honorarios - Valor dos honorários vl-operacional - Valor do operacional vl-filme - Valor filme cd-moeda - Indica código da moeda qt-repasse - Indica campo a quantidade de vezes que a tabela será aplicada para cálculo do valor de pagamento ou cobrança de procedimentos cd-glosa - Código da glosa cd-classe-erro - Código da classe de erro lg-reconsulta-aux - Log que informa se é reconsulta ou não. vl-principal - Valor principal do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES". vl-auxiliar - Valor auxiliar do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES". vl-taxa-out-principal - Taxa principal do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES". vl-taxa-out-uni-auxi - Taxa auxiliar do movimento. Variável utilizada no ponto "ANTES-GRAVAR". O valor somente será alterado se o campo "lg-troca-valores" for igual a "YES". lg-troca-valores - Indica se os valores serão ou não alterados. Variável utilizada no ponto "ANTES-GRAVAR". lg-alt-cd-tab-preco-proc - indica se a tabela de quantidade de moedas para pagamento deve ser alterada com a retornada da CPC; cd-tab-preco-proc - tabela de quantidade de moedas para pagamento. Mostrar online · Ver Alterações Online Continue reading...