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 da API 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

...

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 -cpc – "INICIO-PROCESSO"– 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-mensagem erro – E a 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 Valor do insumo cobrado.
  • Vl-insumo-inf – valor 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.