cpc-atapi022.p1

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 ATAPI022.P, quando do tratamento do prestador executante do insumo

Ponto de Utilização
"INICIO-PROCESSO"
"TRATA-VL-INSUMO"

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-insumolike insuguia.qt-insumo
field vl-insumo-inflike insuguia.vl-insumo-inf.
Definição campo a campo da tabela de entrada
nm-ponto-chamada-cpc – "INICIO-PROCESSO";
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;
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.

Definição campo a campo da tabela de saída
lg-erro – Indica a ocorrência de erro no processamento da CPC;
ds-mensagem – E 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.