CPC-ATAPI022.p

• Rotina utilizada pela operadora de saúde para dar manutenção no código do prestador executante do insumo.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa ATAPI022.P, quando do tratamento do prestador executante do insumo.

Ponto de Utilização

• "INICIO-PROCESSO"
• "TRATA-VL-INSUMO"
• "ANTES-PTUINSUM"
• "APOS-CARENCIA" - a apartir da versão 12.1.2301

Include das definições das tabelas temporárias

• CPC-ATAPI022.I

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-atapi022-entrada

def temp-table tmp-cpc-atapi022-entrada no-undo
    field nm-ponto-chamada       as char format "x(15)"
    field cd-unidade-prestador    like preserv.cd-unidade
    field cd-prestador                   like preserv.cd-prestador
    field cd-vinculo                       like previesp.cd-vinculo
    field dt-emissao-guia              like guiautor.dt-emissao-guia
    field cd-tipo-insumo               like insuguia.cd-tipo-insumo
    field cd-insumo                       like insuguia.cd-insumo
    field cd-unid-prest-exec         like insuguia.cd-unidade-prestador
    field cd-prestador-exec          like insuguia.cd-prestador
    field vl-insumo-cob                like insuguia.vl-insumo-cob
    field qt-insumo                       like insuguia.qt-insumo
    field vl-insumo-inf                  like insuguia.vl-insumo-inf
    field cd-unidade-principal      like guiautor.cd-unidade-principal
    field cd-prestador-principal    like guiautor.cd-prestador-principal
    field cd-unidade-carteira       like guiautor.cd-unidade-carteira
    field cd-pacote                      like insuguia.cd-pacote
    field cd-cid                            like guiautor.cd-cid
    field cd-cid1                          like guiautor.cd-cid1
    field cd-cid2                          like guiautor.cd-cid2
    field cd-cid3                          like guiautor.cd-cid3
    field cd-modalidade             like insuguia.cd-modalidade
    field nr-proposta                  like propost.nr-proposta
    field cr-internacao                like guiautor.cr-internacao
    field cd-usuario                    like usuario.cd-usuario

    field cr-solicitacao         like guiautor.cr-solicitacao .

Definição campo a campo da tabela de entrada

• • nm-ponto-chamada – Nome do ponto de cpc;
  • cd-unidade-prestador – Código da unidade do prestador principal;
  • cd-prestador – Código do prestador principal;
  • cd-vinculo – Código do vinculo do principal;
  • dt-emissao-guia – Data de emissão da Guia (AIH) ;
  • cd-tipo-insumo – Código do tipo do insumo;
  • cd-insumo – Código do insumo;
  • cd-unid-prest-exec – Código da unidade do prestador executante;
  • cd-prestador-exec – Código do prestador executante.
  • vl-insumo-cob – Valor do insumo cobrado;
  • qt-insumo – quantidade de insumos;
  • vl-insumo-inf – valor do insumo informado;
  • cd-unidade-principal - código da unidade do prestador principal;
  • cd-prestador-principal - código do prestador principal;
  • cd-unidade-carteira - código da unidade da carteira do beneficiário;
  • cd-pacote - código do pacote.
  • cd-cid - Código internacional de doenças principal.
  • cd-cid1 - Código internacional de doenças 1.
  • cd-cid2 - Código internacional de doenças 2.
  • cd-cid3 - Código internacional de doenças 3.
  • cd-modalidade - Modalidade da proposta
  • nr-proposta - Numero da proposta
  • cr-internaçao - Caráter da Internação "E" Eletiva/"U" Urgência
  • cd-usuario - código do usuário
  • cr-solicitacao - Caráter do Atendimento SADT  "E" Eletiva/"U" Urgência

Tabela de saída tmp-cpc-atapi022-saida

def temp-table tmp-cpc-atapi022-saida no-undo
    field lg-erro                          as log
    field ds-erro                         as char format "x(100)"
    field cd-unidade-prestador  like preserv.cd-unidade
    field cd-prestador                like preserv.cd-prestador
    field cd-vinculo                    like previesp.cd-vinculo
    field cd-especialid               like previesp.cd-especialid
    field vl-insumo-cob             like insuguia.vl-insumo-cob
    field vl-insumo-uni              like insuguia.dec-15
    field lg-busca-ptuinsum     as logical initial yes
    field lg-insumo-generico    as logical
    field lg-erro-glosa              as logical.

Definição campo a campo da tabela de saída

• • lg-erro – Indica a ocorrência de erro no processamento da CPC;
  • ds-erro – A mensagem que a operadora quer que seja apresentada ao usuário quando da ocorrência de erro no processamento da CPC;
  • cd-unidade-prestador – Código da unidade do prestador executante;
  • cd-prestador – Código do prestador executante;
  • cd-vinculo – Código do vinculo do prestador executante;
  • cd-especialid – Código da especialidade do prestador executante.
  • Vl-insumo-cob – Valor do insumo cobrado.
  • Vl-insumo-inf – Valor do insumo informado;
  • lg-busca-ptuinsum - Indica se deve fazer a busca de produto na tabela "ptuinsum";
  • lg-insumo-generico - Indica se deve considerar o insumo como genérico.
  • lg-erro-glosa - Indica se deve ser gerado glosa ou não.