Alta de Entidad Emisora

declare
  pi_emisor number;
  pi_descripcion VARCHAR2(100);
  pi_ruc_emisor  VARCHAR2(16);
  pi_direccion   VARCHAR2(100);
  pi_telefono    VARCHAR2(100);
  pi_contacto    VARCHAR2(100);
  pi_email_contacto VARCHAR2(100);
  pi_debcta_s_n CHAR(1);
  pi_seguro_vida_s_n CHAR(1);
  pi_calc_impuesto_s_n CHAR(1);
  pi_tasa_int_punit NUMBER;
  pi_cuotas_financi_s_n CHAR(1);
  pi_calculo_interes_s_n CHAR(1);
  pi_decaimeinto_compulsi_s_n CHAR(1);
  pi_apli_comis_mora_s_n CHAR(1);
  pi_apli_comis_combus_s_n CHAR(1);
  pi_apli_comis_super_s_n CHAR(1);
  pi_apli_comis_adelefect_s_n CHAR(1);
  pi_apli_comis_exceso_s_n CHAR(1);
  pi_apli_entrega_extracto_s_n CHAR(1);
  pi_apli_compra_ext_s_n CHAR(1);
  pi_valida_mora_debaut_s_n CHAR(1);
  pi_dias_perm_mora_debaut NUMBER;
  pi_debita_cta_comercio_s_n CHAR(1);
  pi_afinidad number := 0;
  pi_cartera number  := 0;
  pi_tasa_interes_corriente number;
  pi_tasa_plan_normal number;
  pi_tasa_interes_moratorio number;
  pi_tasa_interes_punitorio number;
  pi_comision_ATM NUMBER;
  pi_comision_Ventanilla NUMBER;
  pi_aplica_s_n CHAR(1);
  pi_monto_cargo number;
  pi_cantidad_TRX_ATM NUMBER;
  pi_cantidad number;
  pi_aplica_seguro_fraude_s_n CHAR(1);
  pi_aplica_seguro_vida_s_n CHAR(1);
  pi_aplica_costo_emision NUMBER;
  pi_montocostoemi_titu NUMBER;
  pi_montocostoemi_adic NUMBER;
  pi_cantcuotas_emision number;
  pi_financiar_costorenov_s_n CHAR(1);
  pi_cargo_anual_titular   number;
  pi_cargo_anual_adicional number;
  po_retorno varchar2(512);
  pi_aplica_costo_renovacion NUMBER;--1-AL GENERAR/2-AL ACTIVAR/0-NO APLICA
  pi_montocostorenov_titu number;
  pi_montocostorenov_adic number;
  pi_cant_cuotas_renovacion number;
  pi_financiar_costo_renov_s_n CHAR(1);
  pi_porcentaje_pm number;
  pi_importe_monto_pm number;
  pi_aplica_comision_x_mora CHAR(1);
  pi_aplica_cargo_x_exceso_s_n CHAR(1);
  pi_aplica_cargo_com_exte_s_n CHAR(1);
  pi_monto_cargo_com_exterior number;
  pi_dias_mora_inhabilitar number;
  pi_saldo_mora_inhabilitar number;
  pi_dias_mora_bloq_auto    number;
  pi_saldo_mora_bloq_auto number;
  pi_cargo_mora_inhabilitar number;
  pi_porcen_cargo_excesolc number;
  pi_usuario varchar2(8):= 'CEIBO';
  vc_bandera varchar2(512);
  VC_PROMOTOR varchar2(20);
  VC_BIN VARCHAR2(16);
  VC_BIN_CRIPTO VARCHAR2(16);
  VC_BIN_EMISOR VARCHAR2(20);
  VN_BIN_ID NUMBER(8);
  vc_sftp_entidad varchar2(20);
  vn_id_admin number;
  vn_lc_minima number;
  vn_lc_maximo number;
  vc_linea_unificada char(1);
  vc_descuenta_cuota char(1);
begin 
  pi_emisor :=125;
  VC_PROMOTOR :='COOP. REDUCTO LTDA.';
  VC_BIN      := '604394';
  VC_BIN_EMISOR := 'COOP. REDUCTO LTDA.';
  VN_BIN_ID     := 201;
  vc_sftp_entidad := 'COOP. REDUCTO LTDA.';
  vn_lc_minima := 500000;
  vn_lc_maximo := 50000000;
  vc_linea_unificada :='1';
  vc_descuenta_cuota := '0';
  pi_descripcion:='COOP. REDUCTO LTDA.';
  pi_ruc_emisor:='80018850-0';
  pi_direccion:='AV. LA VICTORIA C/ JUAN PABLO II';
  pi_telefono:='21595000';
  pi_contacto:='MG. ANGELA MARTINEZ';
  pi_email_contacto:='amartinez@coopreducto.coop.py';
  pi_debcta_s_n:='N';
  pi_seguro_vida_s_n:='S';
  pi_calc_impuesto_s_n:='N';
  pi_tasa_int_punit:=30;
  pi_cuotas_financi_s_n:='N';
  pi_calculo_interes_s_n:='S';
  pi_decaimeinto_compulsi_s_n:='N';
  pi_apli_comis_mora_s_n:='S';
  pi_apli_comis_combus_s_n:='N';
  pi_apli_comis_super_s_n:='N';
  pi_apli_comis_adelefect_s_n:='S';
  pi_apli_comis_exceso_s_n:='S';
  pi_apli_entrega_extracto_s_n:='N';
  pi_apli_compra_ext_s_n:='N';
  pi_valida_mora_debaut_s_n:='S';
  pi_dias_perm_mora_debaut:=40;
  pi_debita_cta_comercio_s_n:='N';
  pi_tasa_interes_corriente :=17;
  pi_tasa_plan_normal       :=17;
  pi_tasa_interes_moratorio :=17;
  pi_tasa_interes_punitorio :=5.1;
  pi_comision_ATM           := 6;
  pi_comision_Ventanilla    := 8.5;
  pi_aplica_s_n             :='S';
  pi_monto_cargo            :=0;
  pi_cantidad_TRX_ATM       :=0;
  pi_aplica_seguro_fraude_s_n := 'N';
  pi_aplica_seguro_vida_s_n   :='S';
  pi_montocostoemi_titu :=0;
  pi_montocostoemi_adic :=100000;
  pi_cantcuotas_emision :=2;
  pi_financiar_costorenov_s_n :='S';
  pi_aplica_costo_emision := 2;
  pi_cargo_anual_titular   :=130000;
  pi_cargo_anual_adicional :=130000;
  pi_aplica_costo_renovacion :=2;
  pi_montocostorenov_titu   :=100000;
  pi_montocostorenov_adic   :=100000;
  pi_cant_cuotas_renovacion :=2;
  pi_financiar_costo_renov_s_n :='S';
  pi_porcentaje_pm :=10;
  pi_importe_monto_pm :=50000;
  pi_aplica_comision_x_mora :='S';
  pi_aplica_cargo_x_exceso_s_n := 'S';
  pi_aplica_cargo_com_exte_s_n :='N';
  pi_monto_cargo_com_exterior  :=0;
  pi_dias_mora_inhabilitar     :=10;
  pi_saldo_mora_inhabilitar    :=1;
  pi_dias_mora_bloq_auto       :=30;
  pi_saldo_mora_bloq_auto      :=1;
  pi_cargo_mora_inhabilitar :=15000;
  pi_porcen_cargo_excesolc :=1.5;

  SELECT FC_PAN2CRIPTO@bapy(RPAD(VC_BIN,16,'F')) bin 
    INTO VC_BIN_CRIPTO
    from dual;  
  
  vn_id_admin:=79;

  /*------------------------------------------
  Luego aquí van los pasos expuestos mas abajo
  ------------------------------------------*/

  vc_bandera := '1. ALTA EMISOR';
  pkg_entidades.sp_alta_entidad(pi_emisor,
                                pi_descripcion,
                                pi_ruc_emisor,
                                pi_direccion,
                                pi_telefono,
                                pi_contacto,
                                pi_email_contacto,
                                pi_debcta_s_n,
                                pi_seguro_vida_s_n,
                                pi_calc_impuesto_s_n,
                                pi_tasa_int_punit,
                                pi_cuotas_financi_s_n,
                                pi_calculo_interes_s_n,
                                pi_decaimeinto_compulsi_s_n,
                                pi_apli_comis_mora_s_n,
                                pi_apli_comis_combus_s_n,
                                pi_apli_comis_super_s_n,
                                pi_apli_comis_adelefect_s_n,
                                pi_apli_comis_exceso_s_n,
                                pi_apli_entrega_extracto_s_n,
                                pi_apli_compra_ext_s_n,
                                pi_valida_mora_debaut_s_n,
                                pi_dias_perm_mora_debaut,
                                pi_debita_cta_comercio_s_n,
                                pi_usuario); 
end;