cpc-at0110c9.p1

Rotina utilizada para validar o módulo de cobertura dos insumos.
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. Caso possuir mais de um registro um erro será reportado.
Enviara e recebera uma tabela temporária.
Localização
Dentro do programa at0110c9.i após o ser informado o módulo de cobertura e dentro do programa atapi022.p após verificar a situação do prestador executante.
Após validação RESTRICAO PRESTADOR PRINCIPAL X MOVIMENTO X PACOTE.
Ponto de Utilização
"validar-modulo"
"ENTIDADE"
"VALIDA-INSUMO"
"ANT-INC-PACOTE"
Include das definições das tabelas temporárias
cpc-at0110c9.i
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-at0110c9i-entrada
def temp-table tmp- cpc-at0110c9i-entrada no-undo
fields in-evento-programa as char format "x(06)"
fields nm-ponto-chamada-cpc as char format "x(15)"
fields cd-tipo-insumo-par like insumos.cd-tipo-insumo
fields cd-insumo-par like insumos.cd-insumo
fields nr-rowid-usuario-par as rowid
fields nr-rowid-out-uni-par as rowid
fields nr-recid-mod-cob-par as recid
fields cd-unid-exec like presev.cd-unidade
fields nr-guia-atendimento like procguia.nr-guia-atendimento
fields aa-guia-atendimento like procguia.nr-guia-atendimento
field cd-proc-insu like presmovt.cd-proc-insu
field cd-tipo-insumo like presmovt.cd-tipo-insumo
field cd-prestador like preserv.cd-prestador
field cd-unidade-principal like unimed.cd-unimed
field cd-unidade-executante like unimed.cd-unimed
field cd-prestador-executante like preserv.cd-prestador
field lg-inclui-pacote as log.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-at0110c9. Os valores desse campo podem ser:
"INCLUI" ou ALTERA.
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para os programas at0110c9.i e atapi022.p:
"VALIDAR-MODULO".
cd-tipo-insumo-par – Código do tipo de Insumo.
cd-insumo-par – Código do Insumo.
nr-rowid-usuario-par – Rowid do beneficiário (da base).
nr-rowid-out-uni-par – Rowid do beneficiário (de intercâmbio).
nr-recid-mod-cob-par – Recid do módulo de cobertura do insumo.
cd-unid-exec – Unidade da Unimed em execução.
nr-guia-atendimento – Número da Guia de Atendimento.
aa-guia-atendimento – Ano da Guia de Atendimento.
cd-proc-insu – Código do Insumo.
cd-tipo-insumo – Código do Tipo de Insumo.
cd-prestador – Código do Prestador referente.
cd-unidade-principal - Unidade do prestador principal.
cd-unidade-executante - Unidade do prestador executante.
cd-prestador-executante – Código prestador executante.
Tabela temporaria temp-movtos-insu (para consulta de informações temporárias)
def temp-table temp-movtos-insu no-undo
field cd-unidade-prestador like guiautor.cd-unidade
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field cd-tipo-insumo like insumos.cd-tipo-insumo
field cd-insumo like insumos.cd-insumo.
Tabela de saída tmp-cpc-at0110c9i-saida
def temp-table tmp-cpc-at0110c9i-saida no-undo
fields lg-undo-retry as logical
fields ds-mensagem-relatorio as char format "x(75)"
fields lg-restringe-movto as logical
fields lg-alt-qtd-aut as log
fields ds-mes-alerta as char format "x(75)"
field lg-cpc-ant-inc-pacote-restr as log.
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros aconteceram e NÃO se o processo foi concluído por completo.
ds-mensagem-relatorio – Variável que retornará a mensagem de erro/aviso após o processamento das informações pela CPC.
lg-restringe-movto – Variável que identifica se, não ocorrência de uma restrição, o insumo poderá ou não ser incluído.
lg-alt-qtd-aut – Variável que identifica se ocorre alteração da quantidade de autorizações.
Ds-mês-alerta – devolve mensagem de alerta em caso de algum erro ou confome regra especifica
lg-cpc-ant-inc-pacote-restr – indica se o movimento deve ser restringido.