CPC-AT0110I.p

• Rotina utilizada para permitir controlar/parametrizar a abrangência, conforme regra especifica da operadora, sobrepondo a regra de abrangência por prestador do Gestão de Planos.
• 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.

Localização

• Dentro do programa at0110i.p antes da validação da abrangência por prestador.

Ponto de Utilização

• "ABRA-PROCED".
• "PROC-PREST"

Include das definições das tabelas temporárias

• cpc-at0110i.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-at0110i-entrada

def temp-table tmp-cpc-at0110i-entrada no-undo

field in-evento-programa                  as char format "x(10)"
field nm-ponto-chamada-cpc           as char format "x(15)"
field cd-unidade-destino                  like abrauni.cd-unidade-destino
field cd-abrangencia-plano              like abrauni.cd-abrangencia-plano
field in-tipo-prestador                       like abrauni.in-tipo-prestador
field cd-unidade-prestador-exec      like abrauni.cd-unidade-prestador-exec
field cd-prestador-exec                    like abrauni.cd-prestador-exec
field cd-procedimento                      like ambcbhpm.cd-amb
field cd-proce-inteiro                        like ambcbhpm.cd-amb format "99999999"
field lg-cons-prest-exc                     as log
field nr-recid-usuario                       as recid
field cd-unimed                                like paramecp.cd-unimed
field rd-rowid-abraplan                    as rowid
field cd-tipo-insumo                        like tipoinsu.cd-tipo-insumo
field cd-insumo                               like insumos.cd-insumo
field nr-rowid-propost                    as rowid.

Definição campo a campo da tabela de entrada

• • in-evento-programa – Identifica qual procedimento a cpc deve executar no momento que está sendo chamada
  • nm-ponto-chamada-cpc – Ponto de chamada de cpc que deve ser "ABRA-PROCED"
  • cd-unidade-destino – Identifica a Unidade de Negociação.
  • cd-abrangencia-plano – Identifica o código da abrangência a ser considerado para permissão do prestador e procedimento.
  • in-tipo-prestador – Identifica se o prestador é 0=Executante, 1=Principal ou 2=Ambos.
  • cd-unidade-prestador-exec – – Identifica a unidade do prestador parametrizada para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão consideradas todas as unidades de prestador para a validação de abrangência por prestador e procedimento.
  • cd-prestador-exec – Identifica o prestador parametrizado para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão considerados todos os prestadores para a validação de abrangência por prestador e procedimento.
  • cd-procedimento – Identifica o procedimento parametrizado para a abrangência por prestador e procedimento. Quando este campo possuir o conteúdo 0 (zero) serão considerados todos os procedimentos para a validação de abrangência por prestador e procedimento.
  • cd-proce-inteiro - Identifica o procedimento parametrizado para abrangência por prestador e procedimento.
  • lg-cons-prest-exc - Considerar prestadores excluídos.
  • nr-recid-usuario - RecId do usuário beneficiário da base.
  • cd-unimed - Identifica a unidade da unimed.
  • rd-rowid-abraplan - rowid da tabela abraplan, para ser utilizada na cpc.
  • Código do tipo de insumo.
  • Código do insumo.
  • Rowid da tabela "propost".

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

def temp-table tmp-cpc-at0110i-saida no-undo

field lg-undo-retry                   as log
field ds-mensagem                 as char format "x(75)"
field lg-achei-abrangencia      as log
field cd-unidade                       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 cd-local-atendimento      like locaaten.cd-local-atendimento
field tp-prestador                    as char
field lg-acres-proced              as log
field lg-continua-processo     as log.

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

• • lg-undo-retry – Variável que controla os erros que podem ocorrer na CPC.
  • ds-mensagem – Variável que recebe a descrição dos erros que ocorreram na CPC.
  • lg-abrapre-achei-abrangencia – Variável que indica se a rotina encontrou parametrização de Abrangência, conforme regra da operadora.
  • cd-unidade – Identifica a Unidade
  • cd-prestador - Identifica o prestador
  • cd-vinculo – Identifica o vínculo do prestador
  • cd-especialid – Identifica a especialidade do prestador
  • cd-local-atendimento – Identifica o local do atendimento
  • tp-prestador  – Identifica se o prestador é 0=Executante, 1=Principal ou 2=Ambos.
  • lg-acres-proced - Indicador que serve para adicionar ou retirar procedimentos, isto é, caso o indicador for SIM então aquele prestador naquela especialidade poderá executar o procedimento, porém o mesmo não deve estar cadastrado na Procedimento X Especialidade. Caso o Indicador for Não então aquele prestador naquela especialidade não poderá executar o procedimento, porém o cadastramento do mesmo no Procedimento X Especialidade é obrigatório. 
  • lg-continua-processo - Indicador para realizar o processo normal do programa, caso a cpc não retorne o resultado esperado.