CPC-RTAPI020.p0

Rotina que permitira à operadora a Localização do beneficiário conforme regra específica do módulo de cobertura.
Rotina que altera o modulo do insumo para o modulo do procedimento, no AC/WAC e RC, vinculando ou não à uma guia.
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 rotina RTAPI020.P, no ponto de consitencia de pesquisa dos beneficiários.
Ponto de Utilização
"LOCALIZA-MODULO"
Include das definições das tabelas temporárias
RTAPI020.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rtapi020-entrada
def temp-table tmp-cpc-rtapi020-entrada no-undo
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-esp-amb like procguia.cd-esp-amb
field cd-grupo-proc-amb like procguia.cd-grupo-proc-amb
field cd-procedimento like procguia.cd-procedimento
field dv-procedimento like procguia.dv-procedimento
field cd-tipo-insumo like insuguia.cd-tipo-insumo
field cd-insumo like insuguia.cd-insumo
field in-proc-insu as char format "x(1)"
field tp-acomodacao as int.
Definição campo a campo da tabela de entrada tmp-cpc-rtapi020-entrada
in-evento-programa – Evento do programa que chama a CPC-RTAPI020.P.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa/rotina que a utiliza. Para a rotina RTAPI020.P : "LOCALIZA-MODULO".
aa-guia-atendimento – Ano da guia de atendimento;
nr-guia-atendimento – Número da guia de atendimento;
cd-esp-amb – Código da especialidade do procedimento;
cd-grupo-proc-amb – Código do grupo do procedimento;
cd-procedimento – Código do procedimento;
dv-procedimento – Digito verificador do procedimento;
cd-tipo-insumo – Código do tipo de insumo;
cd-insumo – Código do insumo;
in-proc-insu - Campo para gravar "P" para procedimento e "I" para insumo;
tp-acomodacao – Código Tipo de acomodação;
Tabela de saida tmp-cpc-rtapi020-saida
def temp-table tmp-cpc-rtapi020-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(80)".
Definição campo a campo das tabelas de saida tmp-cpc-rtapi020-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.