CPC-BOIMPORTXML.P

• Rotina utilizada na importação de ABIs do RESSUS.
• Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
  
  

Localização

• Dentro do programa boimportxml.p, ao receber o xml da abi.

Ponto de Utilização

• "AJUSTA-CART".

Include das definições das tabelas temporárias

• cpc-boimportxml.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-boimportxml-entrada

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

field nm-ponto-chamada-cpc       as char format "x(15)"
field in-evento-programa              as char format "x(06)" .

Definição campo a campo da tabela de entrada 

• • nm-ponto-chamada-cpc – Nome do ponto de chamada da CPC dentro do programa que a utiliza. 
  • in-evento-programa - Nome do evento relacionado ao ponto de CPC dentro do programa que a utiliza.
    
    

Tabela de entrada e saída tmp-aihs

def temp-table tmp-aihs no-undo

field nr-controle as int format "99999"
field cd-protocolo-abi as int format "99999"
field cd-protocolo-aih as int format "99999"
field nm-ups as char format "x(60)" 
field cgc-ups as char format "x(14)" 
field en-logradouro as char format "x(60)"
field en-numero as dec format "9999999999"
field nm-complemento as char format "x(20)"
field en-bairro as char format "x(40)"
field en-municipio as char format "x(60)"
field en-uf as char format "x(02)"
field en-telefone as char format "x(15)"
field en-fax as char format "x(15)"
field e-mail as char format "x(50)"
field en-cep as int format "99999999"
field natureza as char format "x(65)"
field id-beneficiario as char format "x(16)"
field nr-aih as char format "x(10)"
field dt-apresent-aih as char format "x(10)"
field identificacao-aih as char format "x(1)"
field dt-internacao as date format "99/99/9999"
field dt-saida as int format "99999999"
field dt-nascimento as int format "99999999"
field vl-tunep as dec format "999999,99"
field cd-procedimento-princ as int format "99999999"
field ds-procedimento-princ as char format "x(255)"
field vl-procedimento-princ as dec format "99999999999999"
field nr-linha-arquivo as int
field ds-status as char
field lg-unimed as log
field nm-beneficiario as char format "x(100)"
field dt-pagamento as date format "99/99/9999"
field ds-observacao as char format "x(2000)"
field vl-procedimento as dec format "99999999999999"
field in-situacao as char format "x(100)"
field cd-modalidade as int format "99"
field nr-ter-ade as int format "999999"
field cd-abrangencia-plano like abraplan.cd-abrangencia-plano
field ds-abrangencia-plano like abraplan.ds-abrangencia-plano
field cd-erro-atend as int format "99999"
field ds-erro-atend as char format "x(75)"
field ds-complemento-atend as char format "x(75)"
field dt-contestacao as date format "99/99/9999"
field dt-aviso-sistema as date format "99/99/9999"
field dt-alerta-sistema as date format "99/99/9999"
field qt-procedimento-princ as int format "99"
field lg-benef-identificado as log
field cd-registro-plano like abi_princ_proc_registro.cd_registro_plano
FIELD ds-competencia-aih AS CHAR FORMAT "x(10)"
FIELD cd-contratante LIKE propost.cd-contratante
FIELD nr-insc-contratante LIKE contrat.nr-insc-contratante
FIELD nm-contratante LIKE contrat.nm-contratante
FIELD id-motivo AS INT
FIELD ds-motivo AS CHAR FORMAT "x(50)"
FIELD ds-natureza AS CHAR FORMAT "x(50)"
FIELD id-natureza AS INT
FIELD id-justificativa AS INT
FIELD ds-justificativa AS CHAR FORMAT "x(50)"
FIELD qt-dias-internacao LIKE abi_princ_proc_registro.qt_dias_internacao
FIELD ds-local-atendimento LIKE abi_princ_proc_registro.ds_local_atendimento
FIELD qt-dias-plano LIKE abi_princ_proc_registro.qt_dias_plano
FIELD dt-fim-carencia-ele LIKE abi_princ_proc_registro.dt_fim_carencia_ele
FIELD dt-fim-carencia-urg LIKE abi_princ_proc_registro.dt_fim_carencia_urg
FIELD lg-dentro-periodo LIKE abi_princ_proc_registro.lg_dentro_periodo
FIELD clausula LIKE abi_princ_proc_registro.ds_clausula
FIELD lg-carencia LIKE abi_princ_proc_registro.lg_carencia
FIELD lg-proc-sem-cobert LIKE abi_princ_proc_registro.lg_proc_sem_cobert
FIELD lg-plano-co-partic LIKE abi_princ_proc_registro.lg_plano_co_partic
FIELD lg-proc-cpt LIKE abi_princ_proc_registro.lg_proc_cpt
FIELD lg-fora-abrangencia LIKE abi_princ_proc_registro.lg_fora_abrangencia
field vl-deferido as dec format "99999999999999"
field vl-indeferido as dec format "99999999999999"
field vl-pago as dec format "99999999999999"
FIELD vl-total-procedimentos as dec format "99999999999999"
FIELD cd-recolhimento-gru LIKE abi_guia_rec_uniao.cd_recolhimento_gru
FIELD vl-operadora-ele LIKE abi_princ_proc_registro.vl_operadora_ele
FIELD vl-operadora-urg LIKE abi_princ_proc_registro.vl_operadora_urg
FIELD lg-inadimplencia LIKE abi_princ_proc_registro.lg_inadimplencia
field ds-tempestividade like abi_princ_proc_registro.des_temp
field in-tipo-atendimento as char format "x(10)"
field in-tipo-procedimento as char format "x(2)"
index idx-tmp-aihs cd-protocolo-abi cd-protocolo-aih nr-aih.

Tabela de entrada e saída tmp-espec-proc-registro

def temp-table tmp-espec-proc-registro NO-UNDO

field cd-protocolo-abi as int format "99999"
field cd-protocolo-aih as int format "99999"
field nr-procedimento as int format "99999" 
field nm-ups as char format "x(60)"
field cgc-ups as char format "x(14)"
field en-logradouro as char format "x(60)"
field en-numero as dec format "9999999999"
field nm-complemento as char format "x(20)"
field en-bairro as char format "x(40)"
field en-municipio as char format "x(60)"
field en-uf as char format "x(02)"
field en-telefone as char format "x(15)"
field en-fax as char format "x(15)"
field e-mail as char format "x(50)"
field en-cep as int format "99999999"
field natureza as char format "x(65)"
field id-beneficiario as char format "x(16)"
field nr-aih as dec format "9999999999"
field dt-apresent-aih as char format "x(10)"
field identificacao-aih as char format "x(1)"
field dt-internacao as date format "99/99/9999"
field dt-saida as int format "99999999"
field dt-nascimento as int format "99999999"
field vl-tunep as dec format "999999,99"
field cd-procedimento-espec as int format "99999999"
field ds-procedimento-espec as char format "x(255)"
field qt-procedimento-espec as int format "99"
field vl-procedimento-espec as dec format "99999999999999"
field nr-linha-arquivo as int
field ds-status as char
field ds-observacao as char format "x(300)"
FIELD ds-competencia-aih AS CHAR FORMAT "x(10)"
field vl-deferido as dec format "99999999999999"
field vl-indeferido as dec format "99999999999999"
field vl-pago as dec format "99999999999999"
FIELD vl-operadora-ele LIKE abi_espec_proc_registro.vl_operadora_ele
FIELD vl-operadora-urg LIKE abi_espec_proc_registro.vl_operadora_urg
field in-tipo-procedimento as char format "x(2)"
index idx-tmp-abi_espec_proc_registro cd-protocolo-abi cd-protocolo-aih nr-procedimento.

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

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

                       field lg-undo-retry                         as log
                       field ds-mensagem                       as char format "x(75)".

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

• • lg-undo-retry - Informa ao programa se ocorreu algum na CPC.
  • ds-mensagem.