gen_proc_trans_carga_dimensiones5_slk_ne.sql

declare

cursor MTDT_TABLA
  is
    SELECT
      DISTINCT TRIM(TABLE_NAME) "TABLE_NAME",
      TRIM(TABLE_TYPE) "TABLE_TYPE"
    FROM
      MTDT_TC_SCENARIO
    WHERE TABLE_TYPE in ('D','I')
    --and TABLE_NAME in ('SA_ITX_TRAFICO1', 'SA_ITX_PARQUE1', 'SA_ITX_MOU', 'SA_ITX_IMPORTES')
    --and TABLE_NAME in ('SA_DESGASTE_PARQUE_PRE', 'SA_MKT_PRE_PARQUE', 'SA_MKT_PRE_INGR1', 'SA_MKT_PRE_ARPU_NUEVO1', 'SA_PRE_COMIS_PROPIO')
    --and TABLE_NAME in ('SA_ALTAS_POSTPAGO', 'SA_ALTAS_PREPAGO', 'SA_DESGASTE_PARQUE_PRE', 'SA_PRE_COMIS_PROPIO', 'SA_COMIS_CDA', 'SA_COMIS_TMK', 'SA_COMIS_DIGITAL', 'SA_ALTASXTTORIO_ESP1', 'SA_RECARGA_ESP', 'SA_COMIS_ESP')
    --and TABLE_NAME in ('SA_ALTASXTTORIO_ESP1', 'SA_RECARGA_ESP', 'SA_COMIS_ESP', 'SA_COMIS_CDA', 'SA_COMIS_TMK', 'SA_ALTAS_POSTPAGO')
    --and TABLE_NAME in ('SA_MKT_PRE_INGR1', )
    --and TABLE_NAME in ('SA_RECARGA_ESP', 'SA_ALTAS_POSTPAGO', 'SA_ALTAS_PREPAGO')
    --and TABLE_NAME in ('SA_ALTAS_POSTPAGO', 'SA_ALTAS_PREPAGO', 'SA_PRE_COMIS_PROPIO', 'SA_PRE_COMIS_CDA', 'SA_COMIS_DIGITAL')
    --and TABLE_NAME in ('SA_COM_PRE_SUBSIDIO')
    --and TABLE_NAME in ('SA_FACT_SERIADOS1', 'SA_MOVIMIENTOS_SERIADOS1', 'SA_PARQUE_SERIADOS1', 'SA_MOVIMIENTOS_SERIADOS')
    --and TABLE_NAME in ('DMD_CANAL', 'DMD_CADENA', 'DMD_SUBTIPO_CANAL', 'DMD_MEDIO_RECARGA', 'DMD_ERROR_RECARGA')
    --and TABLE_NAME in ('SA_CLIENTE_DIST1', 'DWD_CLIENTE_DISTRIBUIDOR', 'SA_TIPO_DOCUMENTO')
    --and TABLE_NAME in ('DWD_SUSCRIPTOR_ITSON')
    --and TABLE_NAME in ('SA_PARQUE_SERIADOS1', 'DMD_MATERIAL', 'DMD_ADUANA', 'DMD_CANAL_DISTRIBUCION', 'DMD_CLASE_ENTREGA'
    --, 'DMD_TIPO_PEDIDO', 'DMD_GAMA', 'DMD_GRUPO_IMPUTACION', 'DMD_MARCA', 'DMD_ZONA_VENTA', 'DMD_SECTOR', 'DMD_ZONA_TRANSPORTE'
    --, 'DMD_GRUPO_ARTICULO', 'DMD_ALMACEN', 'DMD_ESTATUS_ENTREGAS'
    --, 'DMD_TIPO_PEDIDO', 'DMD_GAMA','DMD_GRUPO_IMPUTACION', 'DMD_MARCA', 'DMD_ZONA_VENTA', 'DMD_SECTOR', 'DMD_ZONA_TRANSPORTE'
    --, 'DMD_GRUPO_ARTICULO','DMD_ALMACEN', 'DMD_ESTATUS_ENTREGAS'
    --, 'DMD_SERIADO', 'DMD_CLASE_MOV', 'DMD_ESTADO_CLIENTE_DIST')
    --and TABLE_NAME in ('DMD_SERIADO', 'DMD_CLASE_MOV', 'DMD_ESTADO_CLIENTE_DIST')
    --and TABLE_NAME in ('DMD_SERIADO', 'DMD_CLASE_MOV', 'DMD_ESTATUS_ENTREGAS', 'DMD_ALMACEN', 'DMD_ESTADO_CLIENTE_DIST')
    --and TABLE_NAME in ('DMD_SERIADO', 'SA_PARQUE_SERIADOS1')
    --and TABLE_NAME in ('DMD_FUNCIONALIDAD_MATERIAL', 'DMD_MATERIAL', 'DMD_SERIADO')
    --and TABLE_NAME in ('DMD_SERIADO', 'SA_CLIENTE_DIST1', 'DMD_MATERIAL', 'SA_TIPO_DOCUMENTO', 'SA_PARQUE_SERIADOS1')
    --and TABLE_NAME in ('DMD_SERIADO', 'DMD_ALMACEN', 'DMD_MATERIAL')
    --and TABLE_NAME in ('SA_ALMACEN1')
    --and TABLE_NAME in ('DMD_MATERIAL_DEMO')
    --and TABLE_NAME in ('SA_MOVIMIENTOS_SERIADOS', 'SA_PARQUE_SERIADOS1')
    --and TABLE_NAME in ('MDD_DEPARTAMENTOS_MEDAL', 'MDD_PARAMETROS_MEDAL', 'MDD_CATALOGO_ACCIONES')
    and TABLE_NAME in ('MDD_DEPARTAMENTOS_MEDAL', 'MDD_PARAMETROS_MEDAL')
    order by
    TABLE_TYPE;
    --and TRIM(TABLE_NAME) not in;
    --and 
    --TRIM(TABLE_NAME) in ('DMD_CAUSA_TERMINACION_LLAMADA', 'DMD_EMPRESA');
    --TRIM(TABLE_NAME) not in ('DMD_ESTADO_CELDA', 'DMD_FINALIZACION_LLAMADA', 'DMD_EMPRESA', 'DMD_POSICION_TRAZO_LLAMADA', 'DMD_TRONCAL', 'DMD_TIPO_REGISTRO', 'DMD_MSC');
    --and
    --TABLE_NAME = 'DMD_OPERADOR_VIRTUAL';
      
      
  cursor MTDT_SCENARIO (table_name_in IN VARCHAR2)
  is
    SELECT 
      trim(TABLE_NAME) "TABLE_NAME",
      trim(TABLE_TYPE) "TABLE_TYPE",
      TABLE_COLUMNS,
      trim(TABLE_BASE_NAME) "TABLE_BASE_NAME",
      "SELECT",
      "GROUP",
      FILTER,
      INTERFACE_COLUMNS,
      FILTER_CARGA_INI,
      trim(SCENARIO) "SCENARIO",
      trim(REINYECTION) "REINYECTION",
      DATE_CREATE,
      DATE_MODIFY
    FROM 
      MTDT_TC_SCENARIO
    WHERE
      TABLE_NAME = table_name_in
      ORDER BY SCENARIO;
      
  CURSOR MTDT_TC_DETAIL (table_name_in IN VARCHAR2, scenario_in IN VARCHAR2)
  IS
    SELECT 
      TRIM(TABLE_NAME) "TABLE_NAME",
      TRIM(TABLE_COLUMN) "TABLE_COLUMN",
      TRIM(TABLE_BASE_NAME) "TABLE_BASE_NAME",
      TRIM(SCENARIO) "SCENARIO",
      TRIM(OUTER) "OUTER",
      SEVERIDAD,
      TRIM(TABLE_LKUP) "TABLE_LKUP",
      TRIM(TABLE_COLUMN_LKUP) "TABLE_COLUMN_LKUP",
      TRIM(TABLE_LKUP_COND) "TABLE_LKUP_COND",      
      TRIM(IE_COLUMN_LKUP) "IE_COLUMN_LKUP",
      TRIM(LKUP_COM_RULE) "LKUP_COM_RULE",
      VALUE,
      RUL,
      DATE_CREATE,
      DATE_MODIFY
  FROM
      MTDT_TC_DETAIL
  WHERE
      trim(TABLE_NAME) = table_name_in and
      trim(SCENARIO) = scenario_in;

  CURSOR c_mtdt_modelo_logico_COLUMNA (table_name_in IN VARCHAR2)
  IS
    SELECT 
      TRIM(TABLE_NAME) "TABLE_NAME",
      TRIM(COLUMN_NAME) "COLUMN_NAME",
      DATA_TYPE,
      PK,
      TRIM(NULABLE) "NULABLE",
      TRIM(VDEFAULT) "VDEFAULT",
      TRIM(INDICE) "INDICE"
    FROM MTDT_MODELO_DETAIL
    WHERE
      trim(TABLE_NAME) = table_name_in
    ORDER BY POSITION;
  
  
  CURSOR dtd_interfaz_detail (concep_name_in IN VARCHAR2, source_in IN VARCHAR2)
  IS
    SELECT 
      CONCEPT_NAME,
      SOURCE,
      COLUMNA,
      KEY,
      TYPE,
      LENGTH,
      NULABLE,
      POSITION
    FROM
      MTDT_INTERFACE_DETAIL
    WHERE
      CONCEPT_NAME = concep_name_in and
      SOURCE = source_in
    ORDER BY POSITION;
      
  CURSOR MTDT_TC_LOOKUP (table_name_in IN VARCHAR2)
  IS
    SELECT
      TRIM(TABLE_NAME) "TABLE_NAME",
      TRIM(TABLE_COLUMN) "TABLE_COLUMN",
      TRIM(TABLE_BASE_NAME) "TABLE_BASE_NAME",
      TRIM(TABLE_LKUP) "TABLE_LKUP",
      TRIM(TABLE_COLUMN_LKUP) "TABLE_COLUMN_LKUP",
      TRIM(TABLE_LKUP_COND) "TABLE_LKUP_COND",
      TRIM(IE_COLUMN_LKUP) "IE_COLUMN_LKUP",
      "VALUE"
    FROM
      MTDT_TC_DETAIL
  WHERE
      (trim(RUL) = 'LKUP' or trim(RUL) = 'LKUPC') and
      trim(TABLE_NAME) = table_name_in;

  CURSOR MTDT_TC_LKUPD (table_name_in IN VARCHAR2)
  IS
    SELECT
      TRIM(TABLE_NAME) "TABLE_NAME",
      TRIM(TABLE_COLUMN) "TABLE_COLUMN",
      TRIM(TABLE_BASE_NAME) "TABLE_BASE_NAME",
      TRIM(TABLE_LKUP) "TABLE_LKUP",
      TRIM(TABLE_COLUMN_LKUP) "TABLE_COLUMN_LKUP",
      TRIM(TABLE_LKUP_COND) "TABLE_LKUP_COND",
      TRIM(IE_COLUMN_LKUP) "IE_COLUMN_LKUP",
      "VALUE"
    FROM
      MTDT_TC_DETAIL
  WHERE
      trim(RUL) = 'LKUPD' and
      trim(TABLE_NAME) = table_name_in;


CURSOR MTDT_TC_FUNCTION (table_name_in IN VARCHAR2)
  IS
    SELECT
      DISTINCT
      TRIM(TABLE_LKUP) "TABLE_LKUP",
      TABLE_COLUMN_LKUP "TABLE_COLUMN_LKUP",
      TABLE_LKUP_COND "TABLE_LKUP_COND",
      IE_COLUMN_LKUP "IE_COLUMN_LKUP",
      /* (20220926) Angel Ruiz. Da error de tipos inconsistentes.*/
      --TRIM("VALUE") "VALUE",
      CAST(VALUE AS VARCHAR2(2000)) "VALUE"
    FROM
      MTDT_TC_DETAIL
  WHERE
      trim(RUL) = 'FUNCTION' and
      TRIM(TABLE_NAME) = table_name_in;
  
      
  reg_tabla MTDT_TABLA%rowtype;
      
  reg_scenario MTDT_SCENARIO%rowtype;
  
  reg_detail MTDT_TC_DETAIL%rowtype;
  
  reg_interface_detail dtd_interfaz_detail%rowtype;
  
  reg_lookup MTDT_TC_LOOKUP%rowtype;
  reg_lookupd MTDT_TC_LKUPD%rowtype;
  
  reg_function MTDT_TC_FUNCTION%rowtype;
  /* (20180220) Angel Ruiz. BUG en la parte de exchage*/
  r_mtdt_modelo_logico_COLUMNA c_mtdt_modelo_logico_COLUMNA%rowtype;
  

  v_nombre_particion VARCHAR2(30);
  v_interface_summary MTDT_INTERFACE_SUMMARY%ROWTYPE;
  v_existe_escenario_HF varchar2(1):='N';   /* (20151113) Angel Ruiz. NF.: REINYECCION */ 
  v_existe_reinyeccion varchar2(1):='N';  /* (20151120) Angel Ruiz. NF: Algun escenario posee el FLAG R activo */
  
  TYPE list_columns_primary  IS TABLE OF VARCHAR(30);
  TYPE list_strings  IS TABLE OF VARCHAR(500);
  type lista_tablas_from is table of varchar(800);
  type lista_condi_where is table of varchar(500);

  l_FROM                                      lista_tablas_from := lista_tablas_from();
  l_WHERE                                   lista_condi_where := lista_condi_where();

  
  lista_pk                               list_columns_primary := list_columns_primary (); 
  where_interface_columns                list_strings := list_strings();
  where_table_columns                      list_strings := list_strings();
  lista_scenarios_presentes                                    list_strings := list_strings();
  lista_lkup                                    list_strings := list_strings();
  lista_lkupd                                  list_strings := list_strings();
  lista_tablas_base                                  list_strings := list_strings();
  nombre_tabla_T                        VARCHAR2(30);

  
  tipo_col                                     varchar2(50);
  primera_col                               PLS_INTEGER;
  columna                                    VARCHAR2(1000);
  prototipo_fun                             VARCHAR2(500);
  fich_salida_load                        UTL_FILE.file_type;
  fich_salida_pkg                         UTL_FILE.file_type;
  fich_salida_exchange              UTL_FILE.file_type;
  fich_salida_hist                         UTL_FILE.file_type;
  nombre_fich_carga                   VARCHAR2(60);
  nombre_fich_pkg                      VARCHAR2(60);
  nombre_fich_hist                      VARCHAR2(60);
  nombre_fich_exchange            VARCHAR2(60);
  nombre_tabla_reducido           VARCHAR2(30);
  campo_filter                                VARCHAR2(250);
  nombre_proceso                        VARCHAR2(30);
  nombre_tabla_base_redu        VARCHAR2(30);
  nombre_tabla_base_sp_redu  VARCHAR2(30);
  num_sce_integra number(2) := 0;
  OWNER_SA                             VARCHAR2(60);
  OWNER_T                                VARCHAR2(60);
  OWNER_DM                            VARCHAR2(60);
  OWNER_MTDT                       VARCHAR2(60);
  NAME_DM                                VARCHAR(60);
  OWNER_TC                              VARCHAR(60);
  PREFIJO_DM                            VARCHAR2(60);
  PAIS                                  VARCHAR2(60);
  nombre_funcion                   VARCHAR2(100);
  v_encontrado											VARCHAR2(1):= 'N';
  v_contador                        PLS_INTEGER:=0;
  v_concept_name                MTDT_INTERFACE_SUMMARY.CONCEPT_NAME%TYPE;
  TABLESPACE_SA                  VARCHAR2(60);
  v_num_meses                          VARCHAR2(2);
  v_REQ_NUMER         MTDT_VAR_ENTORNO.VALOR%TYPE;

  v_hay_look_up                           VARCHAR2(1):='N';
  v_nombre_seqg                          VARCHAR(120):='N';
  v_bandera                                   VARCHAR2(1):='S';
  v_nombre_tabla_agr                VARCHAR2(30):='No Existe';
  v_nombre_tabla_agr_redu           VARCHAR2(30):='No Existe';
  v_nombre_proceso_agr              VARCHAR2(30);
  nombre_tabla_T_agr                VARCHAR2(30);
  v_existen_retrasados              VARCHAR2(1) := 'N';
  v_numero_indices                  PLS_INTEGER:=0;
  --v_alias             VARCHAR2(40);
  v_alias_tbsn          VARCHAR2(100);
  mitabla_tbsn          VARCHAR2(25000);
  v_alias_tbsn_incluido NUMBER(1);
  v_existe_select_tbsn  NUMBER(1);
  
  
  
  function procesa_condicion_lookup (cadena_in in varchar2, v_alias_in varchar2 := NULL) return varchar2
  is
  lon_cadena integer;
  cabeza                varchar2 (1000);
  sustituto              varchar2(100);
  cola                      varchar2(1000);    
  pos                   PLS_integer;
  pos_ant           PLS_integer;
  posicion_ant           PLS_integer;
  cadena_resul varchar(1000);
  begin
    dbms_output.put_line ('Entro en procesa_condicion_lookup');
    lon_cadena := length (cadena_in);
    pos := 0;
    posicion_ant := 0;
    cadena_resul:= cadena_in;
    if lon_cadena > 0 then
      /* Busco el signo = */
      sustituto := ' (+)= ';
      loop
        dbms_output.put_line ('Entro en el LOOP de procesa_condicion_lookup. La cadena es: ' || cadena_resul);
        pos := instr(cadena_resul, '=', pos+1);
        exit when pos = 0;
        dbms_output.put_line ('Pos es mayor que 0');
        dbms_output.put_line ('Primer valor de Pos: ' || pos);
        cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        dbms_output.put_line ('La cabeza es: ' || cabeza);
        dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        cola := substr(cadena_resul, pos + length ('='));
        dbms_output.put_line ('La cola es: ' || cola);
        cadena_resul := cabeza || sustituto || cola;
        pos_ant := pos + (length (' (+)= '));
        dbms_output.put_line ('La posicion anterior es: ' || pos_ant);
        pos := pos_ant;
      end loop;
      /* Busco LA COMILLA */
      --pos := 0;
      --posicion_ant := 0;
      --sustituto := '''''';
      --loop
        --dbms_output.put_line ('Entro en el LOOP de procesa_condicion_lookup. La cadena es: ' || cadena_resul);
        --pos := instr(cadena_resul, '''', pos+1);
        --exit when pos = 0;
        --dbms_output.put_line ('Pos es mayor que 0');
        --dbms_output.put_line ('Primer valor de Pos: ' || pos);
        --cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        --dbms_output.put_line ('La cabeza es: ' || cabeza);
        --dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        --cola := substr(cadena_resul, pos + length (''''));
        --dbms_output.put_line ('La cola es: ' || cola);
        --cadena_resul := cabeza || sustituto || cola;
        --pos_ant := pos + length ('''''');
        --pos := pos_ant;
      --end loop;
      /* Sustituyo el nombre de Tabla generico por el nombre que le paso como parametro */
      if (v_alias_in is not null) then
        /* Existe un alias que sustituir */
        pos := 0;
        posicion_ant := 0;
        sustituto := v_alias_in;
        loop
          dbms_output.put_line ('Entro en el LOOP de procesa_condicion_lookup para sustituir el ALIAS. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#TABLE_OWNER#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#TABLE_OWNER#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
          --pos_ant := pos + length ('''''');
          --pos := pos_ant;
        end loop;

      end if;
    end if;
    
    return cadena_resul;
  end;

  function proceso_campo_value (cadena_in in varchar2, alias_in in varchar) return varchar2
  is
  lon_cadena integer;
  cabeza                varchar2 (1000);
  sustituto              varchar2(100);
  cola                      varchar2(1000);    
  pos                   PLS_integer;
  pos_ant           PLS_integer;
  posicion_ant           PLS_integer;
  v_pos_ini_corchete_ab PLS_integer;
  v_pos_fin_corchete_ce PLS_integer;
  v_cadena_a_buscar varchar2(100);
  cadena_resul varchar(1000);
  begin
    lon_cadena := length (cadena_in);
    pos := 0;
    pos_ant := 0;
    cadena_resul:= cadena_in;
    if (lon_cadena > 0) then
      v_pos_ini_corchete_ab := instr(cadena_in, '[');
      v_pos_fin_corchete_ce := instr(cadena_in, ']');
      v_cadena_a_buscar := substr(cadena_in, v_pos_ini_corchete_ab, (v_pos_fin_corchete_ce - v_pos_ini_corchete_ab) + 1);
      sustituto := alias_in || '.' || substr (cadena_in, v_pos_ini_corchete_ab + 1, (v_pos_fin_corchete_ce - v_pos_ini_corchete_ab) - 1);
      loop
        pos := instr(cadena_resul, v_cadena_a_buscar, pos+1);
        exit when pos = 0;
        dbms_output.put_line ('Pos es mayor que 0');
        dbms_output.put_line ('Primer valor de Pos: ' || pos);
        cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        dbms_output.put_line ('La cabeza es: ' || cabeza);
        dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        cola := substr(cadena_resul, pos + length (v_cadena_a_buscar));
        dbms_output.put_line ('La cola es: ' || cola);
        cadena_resul := cabeza || sustituto || cola;
      end loop;
    end if;
    return cadena_resul;
  end;

  function procesa_COM_RULE_lookup (cadena_in in varchar2, v_alias_in varchar2 := NULL) return varchar2
  is
  lon_cadena integer;
  cabeza                varchar2 (1000);
  sustituto              varchar2(100);
  cola                      varchar2(1000);    
  pos                   PLS_integer;
  pos_ant           PLS_integer;
  posicion_ant           PLS_integer;
  cadena_resul varchar(1000);
  begin
    dbms_output.put_line ('Entro en procesa_COM_RULE_lookup');
    lon_cadena := length (cadena_in);
    pos := 0;
    posicion_ant := 0;
    cadena_resul:= cadena_in;
    if lon_cadena > 0 then
      /* Busco LA COMILLA */
      pos := 0;
      posicion_ant := 0;
      sustituto := '''''';
      loop
        dbms_output.put_line ('Entro en el LOOP de procesa_condicion_lookup. La cadena es: ' || cadena_resul);
        pos := instr(cadena_resul, '''', pos+1);
        exit when pos = 0;
        dbms_output.put_line ('Pos es mayor que 0');
        dbms_output.put_line ('Primer valor de Pos: ' || pos);
        cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        dbms_output.put_line ('La cabeza es: ' || cabeza);
        dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        cola := substr(cadena_resul, pos + length (''''));
        dbms_output.put_line ('La cola es: ' || cola);
        cadena_resul := cabeza || sustituto || cola;
        pos_ant := pos + length ('''''');
        pos := pos_ant;
      end loop;
      /* Sustituyo el nombre de Tabla generico por el nombre que le paso como parametro */
      if (v_alias_in is not null) then
        /* Existe un alias que sustituir */
        pos := 0;
        posicion_ant := 0;
        sustituto := v_alias_in;
        loop
          dbms_output.put_line ('Entro en el LOOP de procesa_condicion_lookup para sustituir el ALIAS. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#TABLE_OWNER#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#TABLE_OWNER#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
          --pos_ant := pos + length ('''''');
          --pos := pos_ant;
        end loop;

      end if;
    end if;
    
    return cadena_resul;
  end;

  
  function cambio_puntoYcoma_por_coma (cadena_in in varchar2) return varchar2
  is
    lon_cadena integer;
    cabeza                varchar2 (1000);
    sustituto              varchar2(1000);
    cola                      varchar2(1000);    
    pos                   PLS_integer;
    pos_ant           PLS_integer;
    posicion_ant           PLS_integer;
    cadena_resul varchar(1000);
  begin
    lon_cadena := length (cadena_in);
    pos := 0;
    posicion_ant := 0;
    cadena_resul:= cadena_in;
    if (lon_cadena > 0) then
      /* Busco VAR_FUN_NAME_LOOKUP */
      sustituto := ',';
      loop
        dbms_output.put_line ('Entro en el LOOP de cambio_puntoYcoma_por_coma. La cadena es: ' || cadena_resul);
        pos := instr(cadena_resul, ';', pos+1);
        exit when pos = 0;
        dbms_output.put_line ('Pos es mayor que 0');
        dbms_output.put_line ('Primer valor de Pos: ' || pos);
        cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        dbms_output.put_line ('La cabeza es: ' || cabeza);
        dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        cola := substr(cadena_resul, pos + length (';'));
        dbms_output.put_line ('La cola es: ' || cola);
        cadena_resul := cabeza || sustituto || cola;
        --pos_ant := pos + length (' to_date ( fch_datos_in, ''yyyymmdd'') ');
        --pos := pos_ant;
      end loop;
    end if;  
    return cadena_resul;
  end cambio_puntoYcoma_por_coma;
  
  function split_string_punto_coma ( cadena_in in varchar2) return list_strings
  is
  lon_cadena integer;
  elemento varchar2 (1000);
  pos integer;
  pos_ant integer;
  lista_elementos                                      list_strings := list_strings (); 
  begin
    lon_cadena := length (cadena_in);
    pos := 0;
    pos_ant := 0;
    if lon_cadena > 0 then
      loop
              dbms_output.put_line ('Entro en el LOOP. La cedena es: ' || cadena_in);
              if pos < lon_cadena then
                pos := instr(cadena_in, ';', pos+1);
              else
                pos := 0;
              end if;
              dbms_output.put_line ('Primer valor de Pos: ' || pos);
              if pos > 0 then
                dbms_output.put_line ('Pos es mayor que 0');
                dbms_output.put_line ('Pos es:' || pos);
                dbms_output.put_line ('Pos_ant es:' || pos_ant);
                elemento := substr(cadena_in, pos_ant+1, (pos - pos_ant) -1);
                dbms_output.put_line ('El elemento es: ' || elemento);
                lista_elementos.EXTEND;
                lista_elementos(lista_elementos.LAST) := UPPER(LTRIM(RTRIM (elemento)));
                pos_ant := pos;
              end if;
       exit when pos = 0;
      end loop;
      lista_elementos.EXTEND;
      lista_elementos(lista_elementos.LAST) := UPPER(LTRIM(RTRIM (substr(cadena_in, pos_ant+1, lon_cadena))));
      dbms_output.put_line ('El ultimo elemento es: ' || UPPER(LTRIM(RTRIM (substr(cadena_in, pos_ant+1, lon_cadena)))));
    end if;
    return lista_elementos;
  end split_string_punto_coma;

  function split_string_coma ( cadena_in in varchar2) return list_strings
  is
  lon_cadena integer;
  elemento varchar2 (50);
  pos integer;
  pos_ant integer;
  lista_elementos                                      list_strings := list_strings (); 
  begin
    lon_cadena := length (cadena_in);
    pos := 0;
    pos_ant := 0;
    if lon_cadena > 0 then
      loop
              dbms_output.put_line ('Entro en el LOOP. La cedena es: ' || cadena_in);
              if pos < lon_cadena then
                pos := instr(cadena_in, ',', pos+1);
              else
                pos := 0;
              end if;
              dbms_output.put_line ('Primer valor de Pos: ' || pos);
              if pos > 0 then
                dbms_output.put_line ('Pos es mayor que 0');
                dbms_output.put_line ('Pos es:' || pos);
                dbms_output.put_line ('Pos_ant es:' || pos_ant);
                elemento := substr(cadena_in, pos_ant+1, (pos - pos_ant) -1);
                dbms_output.put_line ('El elemento es: ' || elemento);
                lista_elementos.EXTEND;
                lista_elementos(lista_elementos.LAST) := UPPER(LTRIM(RTRIM (elemento)));
                pos_ant := pos;
              end if;
       exit when pos = 0;
      end loop;
      lista_elementos.EXTEND;
      lista_elementos(lista_elementos.LAST) := UPPER(LTRIM(RTRIM (substr(cadena_in, pos_ant+1, lon_cadena))));
      dbms_output.put_line ('El ultimo elemento es: ' || UPPER(LTRIM(RTRIM (substr(cadena_in, pos_ant+1, lon_cadena)))));
    end if;
    return lista_elementos;
  end split_string_coma;

  /* (20170213) Angel Ruiz. Transforma el campo de la funcion poniendole el alias y el outer*/
  function transformo_funcion_outer (cadena_in in varchar2, alias_in in varchar2, outer_in in integer) return varchar2
  is
    v_campo varchar2(200);
    v_cadena_temp varchar2(200);
    v_cadena_result varchar2(200);
  begin
    if (regexp_instr(cadena_in, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
      /* Se trata de que el campo de join posee la funcion LTRIM */
      if (regexp_instr(cadena_in, ' *[Ll][Tt][Rr][Ii][Mm] *\( *[A-Za-z0-9_\.]+ *, *''[0-9]+'' *\)') > 0) then
        if (instr(cadena_in, '.') > 0) then
          /* el campo esta cualificado con ALIAS */
          if (outer_in = 1) then
            v_cadena_temp := regexp_replace (cadena_in, ' *([Ll][Tt][Rr][Ii][Mm]) *\( *([A-Za-z0-9_\.]+) *,', '\1(' || '\2' || '(+),');
          else
            v_cadena_temp := regexp_replace (cadena_in, ' *([Ll][Tt][Rr][Ii][Mm]) *\( *([A-Za-z0-9_\.]+) *,', '\1(' || '\2' || ',');
          end if;
        else      
          if (outer_in = 1) then
            v_cadena_temp := regexp_replace (cadena_in, ' *([Ll][Tt][Rr][Ii][Mm]) *\( *([A-Za-z0-9_]+) *,', '\1(' || alias_in || '.' || '\2' || '(+),');
          else
            v_cadena_temp := regexp_replace (cadena_in, ' *([Ll][Tt][Rr][Ii][Mm]) *\( *([A-Za-z0-9_]+) *,', '\1(' || alias_in || '.' || '\2' || ',');
          end if;
        end if;
        v_cadena_result := v_cadena_temp;
      else
        v_cadena_result := cadena_in;
      end if;
    else
      v_cadena_result := alias_in || '.' || cadena_in;    
    end if;
    return v_cadena_result;
  end;

  /* (20161122) Angel Ruiz. Transforma el campo de la funcion poniendole el alias*/
  function transformo_funcion (cadena_in in varchar2, alias_in in varchar2) return varchar2
  is
    v_campo varchar2(200);
    v_cadena_temp varchar2(200);
    v_cadena_result varchar2(200);
  begin
    /* Detecto si existen funciones SQL en el campo */
    if (regexp_instr(cadena_in, '[Nn][Vv][Ll]') > 0) then
      /* Se trata de que el campo de join posee la funcion NVL */
      if (regexp_instr(cadena_in, ' *[Nn][Vv][Ll] *\( *[A-Za-z_]+ *,') > 0) then
        /* trasformamos el primer operador del NVL */
        v_cadena_temp := regexp_replace (cadena_in, ' *([Nn][Vv][Ll]) *\( *([A-Za-z_]+) *,', '\1(' || alias_in || '.' || '\2' || ',');
        /* trasformamos el segundo operador del NVL, en caso de que sea un campo y no un literal */
        v_cadena_temp := regexp_replace (v_cadena_temp, ', *([A-Za-z_]+) *\)', ', ' || alias_in || '.' || '\1' || ')');
        v_cadena_result := v_cadena_temp; /* retorno el resultado */
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
      /* Se trata de que el campo de join posee la funcion UPPER */
      if (regexp_instr(cadena_in, ' *[Uu][Pp][Pp][Ee][Rr] *\( *[A-Za-z_]+ *\)') > 0) then
        v_cadena_temp := regexp_replace (cadena_in, ' *([Uu][Pp][Pp][Ee][Rr]) *\( *([A-Za-z_]+) *\)', '\1(' || alias_in || '.' || '\2' || ')');
        v_cadena_result := v_cadena_temp;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
      /* Se trata de que el campo de join posee la funcion LTRIM */
      if (regexp_instr(cadena_in, ' *[Ll][Tt][Rr][Ii][Mm] *\( *[A-Za-z_]+ *, *''[0-9]+'' *\)') > 0) then
        v_cadena_temp := regexp_replace (cadena_in, ' *([Ll][Tt][Rr][Ii][Mm]) *\( *([A-Za-z_]+) *,', '\1(' || alias_in || '.' || '\2' || ',');
        v_cadena_result := v_cadena_temp;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
      /* Se trata de que el campo de join posee la funcion REPLACE */
      if (regexp_instr(cadena_in, ' *[Rr][Ee][Pp][Ll][Aa][Cc][Ee] *\( *[A-Za-z_]+ *') > 0) then
        v_cadena_temp := regexp_replace (cadena_in, ' *([Rr][Ee][Pp][Ll][Aa][Cc][Ee]) *\( *([A-Za-z_]+) *,', '\1(' || alias_in || '.' || '\2,');
        v_cadena_result := v_cadena_temp;
      else
        v_cadena_result := cadena_in;
      end if;
    else
      v_cadena_result := alias_in || '.' || cadena_in;
    end if;
    return v_cadena_result;
  end;

/* (20161117) Angel Ruiz. */
  function extrae_campo (cadena_in in varchar2) return varchar2
  is
    v_campo varchar2(200);
    v_cadena_temp varchar2(200);
    v_cadena_result varchar2(200);
  begin
    /* Detecto si existen funciones SQL en el campo */
    if (regexp_instr(cadena_in, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 ) then
      if (regexp_instr(cadena_in, ' *[Dd][Ee][Cc][Oo][Dd][Ee] *\( *[A-Za-z0-9_\.]+ *,') > 0) then
        /* Se trata de un decode normal y corriente */
        if (instr(cadena_in, '.') > 0 ) then
          v_cadena_temp := regexp_substr (cadena_in, ' *[Dd][Ee][Cc][Oo][Dd][Ee] *\( *[A-Za-z0-9_\.]+ *,'); 
          v_campo := regexp_substr (v_cadena_temp,'\.[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_campo := substr(v_campo, 2); /* quito el punto */
          v_cadena_result := v_campo;
        else
          v_cadena_temp := regexp_substr (cadena_in, ' *[Dd][Ee][Cc][Oo][Dd][Ee] *\( *[A-Za-z_]+ *,'); 
          v_campo := regexp_substr (v_cadena_temp,'[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_cadena_result := v_campo;
        end if;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Nn][Vv][Ll]') > 0) then
      /* Se trata de que el campo de join posee la funcion NVL */
      if (regexp_instr(cadena_in, ' *[Nn][Vv][Ll] *\( *[A-Za-z0-9_\.]+ *,') > 0) then
        if (instr(cadena_in, '.') > 0) then
          v_cadena_temp := regexp_substr (cadena_in, ' *[Nn][Vv][Ll] *\( *[A-Za-z0-9_\.]+ *,');
          v_campo := regexp_substr (v_cadena_temp,'\.[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_campo := substr(v_campo, 2);
          v_cadena_result := v_campo;
        else
          v_cadena_temp := regexp_substr (cadena_in, ' *[Nn][Vv][Ll] *\( *[A-Za-z_]+ *,');
          v_campo := regexp_substr (v_cadena_temp,'[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_cadena_result := v_campo;
        end if;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
      /* Se trata de que el campo de join posee la funcion UPPER */
      if (regexp_instr(cadena_in, ' *[Uu][Pp][Pp][Ee][Rr] *\( *[A-Za-z0-9_\.]+ *\)') > 0) then
        if (instr(cadena_in, '.') > 0) then
          v_cadena_temp := regexp_substr (cadena_in, ' *[Uu][Pp][Pp][Ee][Rr] *\( *[A-Za-z0-9_\.]+ *\)');
          v_campo := regexp_substr (v_cadena_temp,'\.[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_campo := substr(v_campo, 2); /* quito el punto */
          v_cadena_result := v_campo;
        else
          v_cadena_temp := regexp_substr (cadena_in, ' *[Uu][Pp][Pp][Ee][Rr] *\( *[A-Za-z_]+ *\)');
          v_campo := regexp_substr (v_cadena_temp,'[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_cadena_result := v_campo;
        end if;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
      /* Se trata de que el campo de join posee la funcion REPLACE */
      if (regexp_instr(cadena_in, ' *[Rr][Ee][Pp][Ll][Aa][Cc][Ee] *\( *[A-Za-z_0-9\.]+ *\)') > 0) then
        if (instr(v_cadena_temp, '.') > 0) then
          /* El campo viene con ALIAS */
          v_cadena_temp := regexp_substr (cadena_in, ' *[Rr][Ee][Pp][Ll][Aa][Cc][Ee] *\( *[A-Za-z0-9_\.]+ *,');
          v_campo := regexp_substr (v_cadena_temp,'\.[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_campo := substr(v_campo ,2); /* quito el punto */
          v_cadena_result := v_campo;
        else
          v_cadena_temp := regexp_substr (cadena_in, ' *[Rr][Ee][Pp][Ll][Aa][Cc][Ee] *\( *[A-Za-z_]+ *,');
          v_campo := regexp_substr (v_cadena_temp,'[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_cadena_result := v_campo;
        end if;
      else
        v_cadena_result := cadena_in;
      end if;
    elsif (regexp_instr(cadena_in, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
      /* Se trata de que el campo de join posee la funcion LTRIM */
      if (regexp_instr(cadena_in, ' *[Ll][Tt][Rr][Ii][Mm] *\( *[A-Za-z0-9_\.]+ *,') > 0) then
        v_cadena_temp := regexp_substr (cadena_in, ' *[Ll][Tt][Rr][Ii][Mm] *\( *[A-Za-z0-9_\.]+ *,');
        if (instr(v_cadena_temp, '.') > 0) then
          /* El campo viene con ALIAS */
          v_campo := regexp_substr (v_cadena_temp,'\.[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
          v_campo := substr(v_campo, 2);  /* quito el punto */
        else
          /* El campo viene sin ALIAS */
          v_campo := regexp_substr (v_cadena_temp,'[A-Za-z0-9_]+', instr( v_cadena_temp, '('));
        end if;
        v_cadena_result := v_campo;
      else
        v_cadena_result := cadena_in;
      end if;
    else
      v_cadena_result := cadena_in;
    end if;
    return v_cadena_result;
  end;


  
  function extrae_campo_decode (cadena_in in varchar2) return varchar2
  is
    lista_elementos list_strings := list_strings (); 

  begin
    lista_elementos := split_string_coma(cadena_in);
    return lista_elementos(lista_elementos.count - 1);
  
  end extrae_campo_decode;

  function extrae_campo_decode_sin_tabla (cadena_in in varchar2) return varchar2
  is
    lista_elementos list_strings := list_strings (); 

  begin
    lista_elementos := split_string_coma(cadena_in);
    if instr(lista_elementos((lista_elementos.count) - 1), '.') > 0 then
      return substr(lista_elementos(lista_elementos.count - 1), instr(lista_elementos((lista_elementos.count) - 1), '.') + 1);
    else
      return lista_elementos(lista_elementos.count - 1);
    end if;
  end extrae_campo_decode_sin_tabla;

  --function transformo_decode(cadena_in in varchar2, alias_in in varchar2, outer_in in integer) return varchar2
  --is
    --parte_1 varchar2(100);
    --parte_2 varchar2(100);
    --parte_3 varchar2(100);
    --parte_4 varchar2(100);
    --decode_out varchar2(500);
    --lista_elementos list_strings := list_strings ();
  
  --begin
    /* Ejemplo de Decode que analizo DECODE (ID_FUENTE,'SER', ID_CANAL,'1') */
    --lista_elementos := split_string_coma(cadena_in);
    --parte_1 := trim(substr(lista_elementos(1), instr(lista_elementos(1), '(') + 1)); /* Me quedo con ID_FUENTE*/
    --parte_2 := lista_elementos(2);  /* Me quedo con 'SER' */
    --parte_3 := trim(lista_elementos(3));  /* Me quedo con ID_CANAL */
    --parte_4 := trim(substr(lista_elementos(4), 1, instr(lista_elementos(4), ')') - 1));  /* Me quedo con '1' */
    --if (instr(parte_1, '''') = 0) then
      /* Esta parte del DECODE no es un literal */
      /* Lo que quiere decir que podemos calificarlo con el nombre de la tabla */
      --if (outer_in = 1) then
        --parte_1 := alias_in || '.' || parte_1 || '(+)';
      --else
        --parte_1 := alias_in || '.' || parte_1;
      --end if;
    --end if;
    --if (instr(parte_2, '''') = 0) then
      /* Esta parte del DECODE no es un literal */
      /* Lo que quiere decir que podemos calificarlo con el nombre de la tabla */
      --if (outer_in = 1) then
        --parte_2 := alias_in || '.' || parte_2 || '(+)';
      --else
        --parte_2 := alias_in || '.' || parte_2;
      --end if;
    --end if;
    --if (instr(parte_3, '''') = 0) then
      /* Esta parte del DECODE no es un literal */
      /* Lo que quiere decir que podemos calificarlo con el nombre de la tabla */
      --if (outer_in = 1) then
        --parte_3 := alias_in || '.' || parte_3 || '(+)';
      --else
        --parte_3 := alias_in || '.' || parte_3;
      --end if;
    --end if;
    --if (instr(parte_4, '''') = 0) then
      /* Esta parte del DECODE no es un literal */
      /* Lo que quiere decir que podemos calificarlo con el nombre de la tabla */
      --if (outer_in = 1) then
        --parte_4 := alias_in || '.' || parte_4 || '(+)';
      --else
        --parte_4 := alias_in || '.' || parte_4;
      --end if;
    --end if;
    --decode_out := 'DECODE(' || parte_1 || ', ' || parte_2 || ', ' || parte_3 || ', ' || parte_4 || ')';
    --return decode_out;
  --end transformo_decode;
  
  /* (20161118) Angel Ruiz. Nueva version de la funcion que transforma los decodes*/
  function transformo_decode(cadena_in in varchar2, alias_in in varchar2, outer_in in integer) return varchar2
  is
    parte_1 varchar2(100);
    parte_2 varchar2(100);
    parte_3 varchar2(100);
    parte_4 varchar2(100);
    decode_out varchar2(500);
    lista_elementos list_strings := list_strings ();
    v_cadena_temp VARCHAR2(500):='';

  begin
    /* Ejemplo de Decode que analizo DECODE (ID_FUENTE,'SER', ID_CANAL,'1') */
    if (regexp_instr(cadena_in, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
      lista_elementos := split_string_coma(cadena_in);
      if (lista_elementos.COUNT > 0) then
        FOR indx IN lista_elementos.FIRST .. lista_elementos.LAST
        LOOP
          if (indx = 1) then
            /* Se trata del primer elemento: DECODE (ID_FUENTE */
            v_cadena_temp := trim(regexp_substr(lista_elementos(indx), ' *[Dd][Ee][Cc][Oo][Dd][Ee] *\('));  /* Me quedo con DECODE ( */
            parte_1 := trim(substr(lista_elementos(indx), instr(lista_elementos(indx), '(') +1)); /* DETECTO EL ( */
            if (outer_in = 1) then
              if (instr(parte_1, '.') = 0) then
                v_cadena_temp := v_cadena_temp || regexp_replace(parte_1, ' *([A-Za-z_]+) *', alias_in || '.\1' || ' (+)'); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
              else
                v_cadena_temp := v_cadena_temp || parte_1 || ' (+)'; /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
              end if;
            else
              if (instr(parte_1, '.') = 0) then
                v_cadena_temp := v_cadena_temp || regexp_replace(parte_1, ' *([A-Za-z_]+) *', alias_in || '.\1'); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
              else
                v_cadena_temp := v_cadena_temp || parte_1; /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
              end if;
            end if;
            v_cadena_temp := v_cadena_temp || ', '; /* Tengo LA CADENA: "DECODE (alias_in.ID_FUENTE (+), " */
          elsif (indx = lista_elementos.LAST) then
            /* Se trata del ultimo elemento '1') */
            if (instr(lista_elementos(indx), '''') = 0) then
              /* Se trata de un elemnto tipo ID_CANAL pero situado al final del DECODE */
              if (outer_in = 1) then
                if (instr(parte_1, '.') = 0) then
                  v_cadena_temp := v_cadena_temp || regexp_replace(lista_elementos(indx), ' *([A-Za-z_]+) *\)', alias_in || '.\1' || ' (+) )'); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
                else
                  v_cadena_temp := v_cadena_temp || regexp_replace(lista_elementos(indx), ' *\)', ' (+) )'); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
                end if;
              else
                if (instr(parte_1, '.') = 0) then
                  v_cadena_temp := v_cadena_temp || regexp_replace(lista_elementos(indx), ' *([A-Za-z_]+) *\)', alias_in || '.\1'); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
                else
                  v_cadena_temp := v_cadena_temp || lista_elementos(indx); /* cambio ID_FUENTE por ALIAS.ID_FUENTE */
                end if;
              end if;
            else
              /* Se trata de un elemento literal situado como ultimo elemento del decode, tipo '1' */
              /* Le ponemos doble comillas ya que estamos generando una query deinamica */
              v_cadena_temp := v_cadena_temp || lista_elementos(indx);
            end if;
          else
            /* Se trata del resto de elmentos 'SER', ID_CANAL*/
            if (regexp_instr(lista_elementos(indx), '^ *[0-9]+$') > 0) then
              /* Se trata de un literal numerico */
              v_cadena_temp := v_cadena_temp || lista_elementos(indx) || ', ';
            elsif (instr(lista_elementos(indx), '''') = 0) then
              /* Se trata de un elemento que no es un literal, tipo ID_CANAL */
              if (outer_in = 1) then
                if (instr(parte_1, '.') = 0) then
                  v_cadena_temp := v_cadena_temp || regexp_replace(parte_1, ' *([A-Za-z_]+) *', alias_in || '.\1' || ' (+)');
                else
                  v_cadena_temp := v_cadena_temp || parte_1 || ' (+)';
                end if;
              else
                if (instr(parte_1, '.') = 0) then
                  v_cadena_temp := v_cadena_temp || regexp_replace(parte_1, ' *([A-Za-z_]+) *', alias_in || '.\1');
                else
                  v_cadena_temp := v_cadena_temp || parte_1;
                end if;
              end if;
              v_cadena_temp := v_cadena_temp || ', '; /* Tengo LA CADENA: "DECODE (alias_in.ID_FUENTE (+), ..., alias_in.ID_CANAL, ... "*/
            else
              /* Se trata de un elemento que es un literal, tipo 'SER' */
              /* Le ponemos doble comillas ya que estamos generando una query deinamica */
              v_cadena_temp := v_cadena_temp || lista_elementos(indx) || ', ';
            end if; 
          end if;
        END LOOP;
      end if;
    else
      if (outer_in = 1) then
        if (instr(cadena_in, '.') = 0) then
          v_cadena_temp := alias_in || '.' || cadena_in || ' (+)';
        else
          v_cadena_temp := cadena_in || ' (+)';
        end if;
      else
        if (instr(cadena_in, '.') = 0) then
          v_cadena_temp := alias_in || '.' || cadena_in;
        else
          v_cadena_temp := cadena_in;
        end if;
      end if;
    end if;
    return v_cadena_temp;
  end;
  
  
  function proc_campo_value_condicion (cadena_in in varchar2, nombre_funcion_lookup in varchar2) return varchar2
  is
    lon_cadena integer;
    cabeza                varchar2 (1000);
    sustituto              varchar2(1000);
    cola                      varchar2(1000);    
    pos                   PLS_integer;
    pos_ant           PLS_integer;
    posicion_ant           PLS_integer;
    cadena_resul varchar(1000);
  begin
    lon_cadena := length (cadena_in);
    pos := 0;
    posicion_ant := 0;
    cadena_resul:= cadena_in;
    if (lon_cadena > 0) then
      /* Busco VAR_FUN_NAME_LOOKUP */
      sustituto := nombre_funcion_lookup;
      cadena_resul := regexp_replace(cadena_resul, '#VAR_FUN_NAME_LOOKUP#', sustituto);
      
      --loop
        --dbms_output.put_line ('Entro en el LOOP de proc_campo_value_condicion. La cadena es: ' || cadena_resul);
        --pos := instr(cadena_resul, 'VAR_FUN_NAME_LOOKUP', pos+1);
        --exit when pos = 0;
        --dbms_output.put_line ('Pos es mayor que 0');
        --dbms_output.put_line ('Primer valor de Pos: ' || pos);
        --cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
        --dbms_output.put_line ('La cabeza es: ' || cabeza);
        --dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
        --cola := substr(cadena_resul, pos + length ('VAR_FUN_NAME_LOOKUP'));
        --dbms_output.put_line ('La cola es: ' || cola);
        --cadena_resul := cabeza || sustituto || cola;
        --pos_ant := pos + length (' to_date ( fch_datos_in, ''yyyymmdd'') ');
        --pos := pos_ant;
      --end loop;
    end if;  
    return cadena_resul;
  end;
  
  function procesa_campo_filter (cadena_in in varchar2) return varchar2
  is
    lon_cadena integer;
    sustituto              varchar2(100);
    pos                   PLS_integer;
    pos_ant           PLS_integer;
    posicion_ant           PLS_integer;
    cadena_resul varchar(25000);
    begin
      lon_cadena := length (cadena_in);
      pos := 0;
      posicion_ant := 0;
      cadena_resul:= cadena_in;
      if lon_cadena > 0 then
        /* Busco VAR_FCH_CARGA */
        sustituto := ' to_date ( fch_carga_in, ''yyyymmdd'') ';
        cadena_resul := regexp_replace(cadena_resul, '#VAR_FCH_CARGA#', sustituto);
        /* Busco VAR_PROFUNDIDAD_BAJAS */
        sustituto := ' 5 ';  /* Temporalmente pongo 90 dias */
        cadena_resul := regexp_replace(cadena_resul, '#VAR_PROFUNDIDAD_BAJAS#', sustituto);
        /* Busco OWNER_DM */
        sustituto := OWNER_DM;
        cadena_resul := regexp_replace(cadena_resul, '#OWNER_DM#', sustituto);
        /* Busco OWNER_SA */
        sustituto := OWNER_SA;
        cadena_resul := regexp_replace(cadena_resul, '#OWNER_SA#', sustituto);
        /* Busco OWNER_T */
        sustituto := OWNER_T;
        cadena_resul := regexp_replace(cadena_resul, '#OWNER_T#', sustituto);
        /* Busco OWNER_MTDT */
        sustituto := OWNER_MTDT;
        cadena_resul := regexp_replace(cadena_resul, '#OWNER_MTDT#', sustituto);
        /* Busco VAR_MARGEN_COMISION */
        sustituto := ' 0.3 ';  /* Temporalmente pongo 90 dias */
        cadena_resul := regexp_replace(cadena_resul, '#VAR_MARGEN_COMISION#', sustituto);
      end if;
      return cadena_resul;
    end;
/************/
/*************/
  function procesa_campo_filter_dinam (cadena_in in varchar2) return varchar2
  is
    lon_cadena integer;
    cabeza                varchar2 (3000);
    sustituto              varchar2(100);
    cola                      varchar2(3000);    
    pos                   PLS_integer;
    pos_ant           PLS_integer;
    posicion_ant           PLS_integer;
    cadena_resul varchar(3000);
    begin
      lon_cadena := length (cadena_in);
      pos := 0;
      posicion_ant := 0;
      cadena_resul:= cadena_in;
      if lon_cadena > 0 then
        /* Busco VAR_FCH_CARGA */
        sustituto := ' to_date ('''''' ||  fch_datos_in || '''''', ''''yyyymmdd'''') ';
        loop
          dbms_output.put_line ('Entro en el LOOP. La cedena es: ' || cadena_resul);
          pos := instr(cadena_resul, 'VAR_FCH_CARGA', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('VAR_FCH_CARGA'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
          --pos_ant := pos + length (' to_date ( fch_datos_in, ''yyyymmdd'') ');
          --pos := pos_ant;
        end loop;
        /* Busco VAR_PROFUNDIDAD_BAJAS */
        sustituto := ' 5 ';  /* Temporalmente pongo 90 dias */
        pos := 0;
        loop
          dbms_output.put_line ('Entro en el LOOP de VAR_PROFUNDIDAD_BAJAS. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, 'VAR_PROFUNDIDAD_BAJAS', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('VAR_PROFUNDIDAD_BAJAS'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
        end loop;
        /* Busco OWNER_DM */
        sustituto := OWNER_DM;
        pos := 0;
        loop
          dbms_output.put_line ('Entro en el LOOP de OWNER_DM. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#OWNER_DM#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#OWNER_DM#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
        end loop;
        /* Busco OWNER_SA */
        sustituto := OWNER_SA; 
        pos := 0;
        loop
          dbms_output.put_line ('Entro en el LOOP de OWNER_DM. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#OWNER_SA#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#OWNER_SA#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
        end loop;
        /* Busco OWNER_T */
        sustituto := OWNER_T; 
        pos := 0;
        loop
          dbms_output.put_line ('Entro en el LOOP de OWNER_DM. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#OWNER_T#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#OWNER_T#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
        end loop;
        /* Busco OWNER_MTDT */
        sustituto := OWNER_MTDT; 
        pos := 0;
        loop
          dbms_output.put_line ('Entro en el LOOP de OWNER_DM. La cadena es: ' || cadena_resul);
          pos := instr(cadena_resul, '#OWNER_MTDT#', pos+1);
          exit when pos = 0;
          dbms_output.put_line ('Pos es mayor que 0');
          dbms_output.put_line ('Primer valor de Pos: ' || pos);
          cabeza := substr(cadena_resul, (posicion_ant + 1), (pos - posicion_ant - 1));
          dbms_output.put_line ('La cabeza es: ' || cabeza);
          dbms_output.put_line ('La  sustitutoria es: ' || sustituto);
          cola := substr(cadena_resul, pos + length ('#OWNER_MTDT#'));
          dbms_output.put_line ('La cola es: ' || cola);
          cadena_resul := cabeza || sustituto || cola;
        end loop;
      end if;
      return cadena_resul;
    end;


  function genera_campo_select ( reg_detalle_in in MTDT_TC_DETAIL%rowtype) return VARCHAR2 is
    valor_retorno VARCHAR (1000);
    posicion          PLS_INTEGER;
    cad_pri           VARCHAR(500);
    cad_seg         VARCHAR(500);
    cadena            VARCHAR(500);
    pos_del_si      NUMBER(3);
    pos_del_then  NUMBER(3);
    pos_del_else  NUMBER(3);
    pos_del_end   NUMBER(3);
    condicion         VARCHAR2(500);
    condicion_pro         VARCHAR2(200);
    posicion_ant    PLS_integer;
    pos                    PLS_integer;
    cadena_resul  VARCHAR(500);
    sustituto           VARCHAR(30);
    lon_cadena     PLS_integer;
    cabeza             VARCHAR2(500);
    cola                   VARCHAR2(500);
    pos_ant            PLS_integer;
    v_encontrado  VARCHAR2(1);
    v_alias             VARCHAR2(40);
    table_columns_lkup  list_strings := list_strings();
    ie_column_lkup    list_strings := list_strings();
    tipo_columna  VARCHAR2(30);
    mitabla_look_up VARCHAR2(800);
    l_registro          v_MTDT_CAMPOS_DETAIL%rowtype;
    --l_registro          ALL_TAB_COLUMNS%rowtype;
    --l_registro1         ALL_TAB_COLUMNS%rowtype;
    l_registro1         v_MTDT_CAMPOS_DETAIL%rowtype;
    v_value VARCHAR(200);
    nombre_campo  VARCHAR2(300);
    v_alias_incluido PLS_Integer:=0;
    constante         VARCHAR2(500);
    v_nombre_func_lookup             VARCHAR2(40);
    v_nombre_paquete                    VARCHAR2(40);
    v_nombre_tabla_reducido         VARCHAR2(40);
    v_IE_COLUMN_LKUP              VARCHAR(800);
    v_LKUP_COM_RULE               VARCHAR2(1000);
    v_prototipo_func                        VARCHAR2(500);
    v_table_look_up varchar2(10000); /*[URC] Cambia longitud de 1000 a 10000 por ORA-06502: PL/SQL: error : character string buffer too small numérico o de valor */
    v_reg_table_lkup varchar2(10000); /*[URC] Cambia longitud de 1000 a 10000 por ORA-06502: PL/SQL: error : character string buffer too small numérico o de valor */
    v_alias_table_look_up varchar2(10000);  /*[URC] Cambia longitud de 1000 a 10000 por ORA-06502: PL/SQL: error : character string buffer too small numérico o de valor */
    v_existe_valor  BOOLEAN;
    v_no_se_generara_case             BOOLEAN:=false;
    v_numero_campos PLS_integer;
    
  begin
      dbms_output.put_line ('REGLA RUL: #' || reg_detalle_in.RUL || '#');
      case trim(reg_detalle_in.RUL)
      when 'KEEP' then
        /* Se mantienen el valor del campo de la tabla que estamos cargando */
        valor_retorno := '    ' || reg_detalle_in.TABLE_NAME || '.' || reg_detalle_in.TABLE_COLUMN;
      when 'LKUPC' then
        /* (20150626) Angel Ruiz.  Se trata de hacer el LOOK UP con la tabla dimension de manera condicional */
        l_FROM.extend;
        if (instr (reg_detalle_in.TABLE_LKUP,'SELECT ') > 0 or instr (reg_detalle_in.TABLE_LKUP,'select') > 0) then
          /* Aparecen queries en lugar de tablas en la columna de nombre de tabla para LookUp */
          if (REGEXP_LIKE(reg_detalle_in.TABLE_LKUP, '\) *[a-zA-Z_0-9]+$')) then
          /* (20160629) Angel Ruiz. NF: Se aceptan tablas de LKUP que son SELECT que ademas tienen un ALIAS */
            v_alias := trim(substr(REGEXP_SUBSTR (reg_detalle_in.TABLE_LKUP, '\) *[a-zA-Z_0-9]+$'), 2));
            mitabla_look_up := reg_detalle_in.TABLE_LKUP;
            v_alias_incluido := 1;
          else
            v_alias := 'LKUP_' || l_FROM.count;
            mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
            v_alias_incluido := 0;
          end if;
          l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
        else
        
          /* (20161111) Angel Ruiz. NF. Puede haber ALIAS EN LA TABLA DE LOOKUP */
          dbms_output.put_line('Dentro del ELSE del SELECT');
          /* (20160401) Detectamos si la tabla de LookUp posee Alias */
          v_reg_table_lkup := procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
          if (REGEXP_LIKE(trim(v_reg_table_lkup), '^[a-zA-Z_0-9#\.&]+ +[a-zA-Z_0-9]+$') = true) then
            /* La tabla de LKUP posee Alias */
            v_alias_incluido := 1;
            dbms_output.put_line('La tabla de LKUP posee alias');
            v_alias_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), ' +[a-zA-Z_0-9]+$'));
            v_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), '^+[a-zA-Z_0-9\.#&]+ '));
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              v_table_look_up := v_table_look_up;
            else
              /* La tabla de LKUP no esta calificada, entonces la califico */
              /*(20160713) Angel Ruiz. BUG. Le anyado el procesa_campo_filter */
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            mitabla_look_up := v_table_look_up || ' ' || v_alias_table_look_up;
            /* Busco si estaba ya en el FROM. Como es una tabla con ALIAS */
            /* si ya estaba en el FROM entonces no la vuelo a meter ya que tiene un ALIAS */
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='N') then
              /* Solo la introduzco si la tabla no estaba ya */
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
            v_alias := v_alias_table_look_up;
          else    /* La tabla de LKUP no posee Alias */
            v_alias_incluido := 0;
            dbms_output.put_line('La tabla de LKUP no posee alias');
            --v_table_look_up := reg_detalle_in.TABLE_LKUP;
            v_table_look_up := v_reg_table_lkup;            
            --if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9]+') = true) then
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              dbms_output.put_line('La tabla de LKUP esta calificado');
              --v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9]+'), 2);
              v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9&]+'), 2);
              --v_table_look_up := procesa_campo_filter(v_table_look_up);
              v_table_look_up := v_table_look_up;
            else
              dbms_output.put_line('La tabla de LKUP no esta calificado');
              /* La tabla de LKUP no esta calificada, entonces la califico */
              v_alias_table_look_up := v_table_look_up;
              /*(20160713) Angel Ruiz. BUG. Anyado procesa_campo_filter */
              --v_table_look_up := OWNER_EX || '.' || procesa_campo_filter(v_table_look_up);
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            mitabla_look_up := v_table_look_up;
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (instr(l_FROM(indx),  reg_detalle_in.TABLE_LKUP, 0)) then
              --regexp_count(reg_per_val.AGREGATION,'^BAN_',1,'i') >0
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='Y') then
              v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP) || ' "' || v_alias || '"' ;
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up || ' "' || v_alias || '"' ;
            else
              --v_alias := reg_detalle_in.TABLE_LKUP;
              v_alias := v_alias_table_look_up;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
          end if;
            
          
          /* (20161111) Angel Ruiz. NF FIN. Puede haber ALIAS EN LA TABLA DE LOOKUP */

        
          /* (20150112) Angel Ruiz */
          /* Puede ocurrir que se se tenga varias veces la misma LookUp pero para campo diferentes */
          /* lo que se traduce en que hay que crear ALIAS */
          /* BUSCAMOS SI YA ESTABA LA TABLA INCLUIDA EN EL FROM */
          --v_encontrado:='N';
          --FOR indx IN l_FROM.FIRST .. l_FROM.LAST
          --LOOP
            /* (20160708) Angel Ruiz. BUG: Me doy cuenta que si se hace LookUp por la tabla que a su */
            /* estamos cargando se duplicaban las tablas */
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0 or 
                --reg_detalle_in.TABLE_LKUP = reg_detalle_in.TABLE_NAME) then
              /* La misma tabla ya estaba en otro lookup */
              --v_encontrado:='Y';
            --end if;
          --END LOOP;
          --if (v_encontrado='Y') then
            --v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP || ' "' || v_alias || '"' ;
          --else
            --v_alias := reg_detalle_in.TABLE_LKUP;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP;
          --end if;
        end if;
        /* Miramos la parte de las condiciones */
        /* Puede haber varios campos por los que hacer LookUp y por lo tanto JOIN */
        table_columns_lkup := split_string_punto_coma (reg_detalle_in.TABLE_COLUMN_LKUP);
        ie_column_lkup := split_string_punto_coma (reg_detalle_in.IE_COLUMN_LKUP);

        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL SELECT */
        /****************************************************************************/
        if (reg_detalle_in.LKUP_COM_RULE is not null) then
          cadena := trim(reg_detalle_in.LKUP_COM_RULE);
          if (instr (cadena, 'SI') > 0) then
          /* (20160705) Se trata de un condicion del tipo SI ...THEN ...ELSE */
            pos_del_si := instr(cadena, 'SI');
            pos_del_then := instr(cadena, 'THEN');
            pos_del_else := instr(cadena, 'ELSE');
            pos_del_end := instr(cadena, 'END');  
            condicion := substr(cadena,pos_del_si+length('SI'), pos_del_then-(pos_del_si+length('SI')));
            condicion_pro := procesa_COM_RULE_lookup(condicion);
            constante := substr(cadena, pos_del_else+length('ELSE'),pos_del_end-(pos_del_else+length('ELSE')));
            valor_retorno := 'CASE WHEN ' || trim(condicion_pro) || ' THEN NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', -2) ELSE ' || trim(constante) || ' END';
          else
            /* (20160705) Angel Ruiz. se trata de una condicion normal */
            /*Puede ocurrir que en el campo VALUE de la llamada a LOOKUP se use la variable VAR_FCH_CARGA */
            v_IE_COLUMN_LKUP := procesa_campo_filter (reg_detalle_in.IE_COLUMN_LKUP);
            /* (20160115) ANGEL RUIZ. Puede ocurrir que en el campo LKUP_COM_RULE se use la variable VAR_FCH_CARGA */
            v_LKUP_COM_RULE := procesa_campo_filter (reg_detalle_in.LKUP_COM_RULE);
            /* (20160705) Angel Ruiz. Sustituyo VAR_FUN_NAME_LOOKUP por lo que aparece en VALUE */
            valor_retorno := proc_campo_value_condicion (v_LKUP_COM_RULE, reg_detalle_in.TABLE_LKUP || '.' || reg_detalle_in.value);
          end if;
        end if;
        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL WHERE */
        /****************************************************************************/
        
        if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
          FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
          LOOP
            l_WHERE.extend;
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Columna es: ' || ie_column_lkup(indx));
            
            /* Recojo de que tipo son los campos con los que vamos a hacer LookUp */
            SELECT * INTO l_registro
            FROM v_MTDT_CAMPOS_DETAIL
            WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
            UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx)));
            if (l_WHERE.count = 1) then
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||  ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                end if;
              else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||', -3)' ||' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
              end if;
            else
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                end if;
              else /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', -3)' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
              end if;
            end if;
          END LOOP;
        else    /* Solo hay un campo condicion */
          /* Miramos si la tabla con la que hay que hacer LookUp es una tabla de rangos */
          l_WHERE.extend;
          if (instr (reg_detalle_in.TABLE_LKUP,'RANGO') > 0) then
            if (l_WHERE.count = 1) then
              l_WHERE(l_WHERE.last) := v_IE_COLUMN_LKUP || ' >= ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || v_IE_COLUMN_LKUP || ' <= ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            else
              l_WHERE(l_WHERE.last) := ' AND ' || v_IE_COLUMN_LKUP || ' >= ' || v_alias || '.'  || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || v_IE_COLUMN_LKUP || ' <= ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            end if;
          else
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('ESTOY EN EL LOOKUP. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('ESTOY EN EL LOOKUP. La Columna es: ' || reg_detalle_in.IE_COLUMN_LKUP);
            SELECT * INTO l_registro
            FROM v_MTDT_CAMPOS_DETAIL
            WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
            UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.IE_COLUMN_LKUP));
            if (l_WHERE.count = 1) then /* si es el primer campo del WHERE */
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''NI#'')' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                else
                  l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                end if;
              else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              end if;
            else  /* sino es el primer campo del Where  */
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''NI#'')' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                end if;
              else     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              end if;
            end if;
          end if;
        end if;
        if (reg_detalle_in.TABLE_LKUP_COND is not null) then
          /* Existen condiciones en la tabla de Look Up que hay que introducir*/
          l_WHERE.extend;
          l_WHERE(l_WHERE.last) :=  ' AND ' || procesa_condicion_lookup(reg_detalle_in.TABLE_LKUP_COND, v_alias);
        end if;
        
      when 'LKUP' then
        /* Se trata de hacer el LOOK UP con la tabla dimension */
        /* (20150126) Angel Ruiz. Primero recojo la tabla del modelo con la que se hace LookUp. NO puede ser tablas T_* sino su equivalesnte del modelo */
        dbms_output.put_line('ESTOY EN EL LOOKUP. Al principio');
        l_FROM.extend;
        /* (20150130) Angel Ruiz */
        /* Nueva incidencia. */
        if (regexp_instr (reg_detalle_in.TABLE_LKUP,'[Ss][Ee][Ll][Ee][Cc][Tt] ') > 0) then
          /* Aparecen queries en lugar de tablas en la columna de nombre de tabla para LookUp */
          if (REGEXP_LIKE(reg_detalle_in.TABLE_LKUP, '\) *[a-zA-Z_0-9]+$')) then
          /* (20160629) Angel Ruiz. NF: Se aceptan tablas de LKUP que son SELECT que ademas tienen un ALIAS */
            v_alias := trim(substr(REGEXP_SUBSTR (reg_detalle_in.TABLE_LKUP, '\) *[a-zA-Z_0-9]+$'), 2));
            mitabla_look_up := reg_detalle_in.TABLE_LKUP;
            v_alias_incluido := 1;
          else
            v_alias := 'LKUP_' || l_FROM.count;
            mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
            v_alias_incluido := 0;
          end if;
          l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
        else
          /* (20161111) Angel Ruiz. NF. Puede haber ALIAS EN LA TABLA DE LOOUP */
          dbms_output.put_line('Dentro del ELSE del SELECT');
          /* (20160401) Detectamos si la tabla de LookUp posee Alias */
          v_reg_table_lkup := procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
          if (REGEXP_LIKE(trim(v_reg_table_lkup), '^[a-zA-Z_0-9#\.&]+ +[a-zA-Z_0-9]+$') = true) then
            /* La tabla de LKUP posee Alias */
            v_alias_incluido := 1;
            dbms_output.put_line('La tabla de LKUP posee alias');
            v_alias_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), ' +[a-zA-Z_0-9]+$'));
            v_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), '^+[a-zA-Z_0-9\.#&]+ '));
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              v_table_look_up := v_table_look_up;
            else
              /* La tabla de LKUP no esta calificada, entonces la califico */
              /*(20160713) Angel Ruiz. BUG. Le anyado el procesa_campo_filter */
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            mitabla_look_up := v_table_look_up || ' ' || v_alias_table_look_up;
            /* Busco si estaba ya en el FROM. Como es una tabla con ALIAS */
            /* si ya estaba en el FROM entonces no la vuelo a meter ya que tiene un ALIAS */
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='N') then
              /* Solo la introduzco si la tabla no estaba ya */
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
            v_alias := v_alias_table_look_up;
          else    /* La tabla de LKUP no posee Alias */
            v_alias_incluido := 0;
            dbms_output.put_line('La tabla de LKUP no posee alias');
            --v_table_look_up := reg_detalle_in.TABLE_LKUP;
            v_table_look_up := v_reg_table_lkup;            
            --if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9]+') = true) then
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              dbms_output.put_line('La tabla de LKUP esta calificado');
              --v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9]+'), 2);
              v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9&]+'), 2);
              --v_table_look_up := procesa_campo_filter(v_table_look_up);
              v_table_look_up := v_table_look_up;
            else
              dbms_output.put_line('La tabla de LKUP no esta calificado');
              /* La tabla de LKUP no esta calificada, entonces la califico */
              v_alias_table_look_up := v_table_look_up;
              /*(20160713) Angel Ruiz. BUG. Anyado procesa_campo_filter */
              --v_table_look_up := OWNER_EX || '.' || procesa_campo_filter(v_table_look_up);
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            mitabla_look_up := v_table_look_up;
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (instr(l_FROM(indx),  reg_detalle_in.TABLE_LKUP, 0)) then
              --regexp_count(reg_per_val.AGREGATION,'^BAN_',1,'i') >0
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='Y') then
              v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP) || ' "' || v_alias || '"' ;
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up || ' "' || v_alias || '"' ;
            else
              --v_alias := reg_detalle_in.TABLE_LKUP;
              v_alias := v_alias_table_look_up;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
          end if;
            
          
          /* (20161111) Angel Ruiz. NF FIN. Puede haber ALIAS EN LA TABLA DE LOOKUP */
          
          /* (20150112) Angel Ruiz */
          /* Puede ocurrir que se se tenga varias veces la misma LookUp pero para campo diferentes */
          /* lo que se traduce en que hay que crear ALIAS */
          /* BUSCAMOS SI YA ESTABA LA TABLA INCLUIDA EN EL FROM */
          --v_encontrado:='N';
          --FOR indx IN l_FROM.FIRST .. l_FROM.LAST
          --LOOP
            /* (20160708) Angel Ruiz. BUG: Me doy cuenta que si se hace LookUp por la tabla que a su */
            /* estamos cargando se duplicaban las tablas */
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0 or 
                --reg_detalle_in.TABLE_LKUP = reg_detalle_in.TABLE_NAME) then
              /* La misma tabla ya estaba en otro lookup */
              --v_encontrado:='Y';
            --end if;
          --END LOOP;
          --if (v_encontrado='Y') then
            --v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP || ' "' || v_alias || '"' ;
          --else
            --v_alias := reg_detalle_in.TABLE_LKUP;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP;
          --end if;
        end if;

        /* Miramos la parte de las condiciones */
        /* Puede haber varios campos por los que hacer LookUp y por lo tanto JOIN */
        /* (20160302) Angel Ruiz. NF: Campos separados por ; */
        --table_columns_lkup := split_string_coma (reg_detalle_in.TABLE_COLUMN_LKUP);
        --ie_column_lkup := split_string_coma (reg_detalle_in.IE_COLUMN_LKUP);
        table_columns_lkup := split_string_punto_coma (reg_detalle_in.TABLE_COLUMN_LKUP);
        ie_column_lkup := split_string_punto_coma (reg_detalle_in.IE_COLUMN_LKUP);
        
        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL SELECT */
        /****************************************************************************/

        /*************************************************************************/
        /* (20170110) Angel Ruiz. BUG. Existen ocasiones en las que no es posible */
        /* hacer el CASE WHEN para comprobar si los campos vienen NO INFORMADO */
        /* porque las columnas por las que se hacen JOIN poseen muchas funciones */
        /* Compruebo antes si sera posible generar un CASE WHEN */
        /*************************************************************************/
        v_no_se_generara_case:=false;
        if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
          FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
          LOOP
            if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0)
            then
              nombre_campo := extrae_campo (ie_column_lkup(indx));
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo)))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor=false) then
                v_no_se_generara_case:=true;
              end if;
            else
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx))))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor=false) then
                v_no_se_generara_case:=true;
              end if;
            end if;
          END LOOP;
        else
          v_existe_valor:=false;
          for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
          WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_NAME) and
          UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_COLUMN)))
          loop
            v_existe_valor:=true;
          end loop;
          if (v_existe_valor=false) then
            v_no_se_generara_case:=true;
          end if;
        end if;
        /* (20170109) Angel Ruiz. FIN BUG.*/


        if (reg_detalle_in.LKUP_COM_RULE is not null) then
          /* Ocurre que tenemos una regla compuesta, un LKUP con una condicion */
          cadena := trim(reg_detalle_in.LKUP_COM_RULE);
          pos_del_si := instr(cadena, 'SI');
          pos_del_then := instr(cadena, 'THEN');
          pos_del_else := instr(cadena, 'ELSE');
          pos_del_end := instr(cadena, 'END');  
          condicion := substr(cadena,pos_del_si+length('SI'), pos_del_then-(pos_del_si+length('SI')));
          --condicion_pro := procesa_COM_RULE_lookup(condicion);
          constante := substr(cadena, pos_del_else+length('ELSE'),pos_del_end-(pos_del_else+length('ELSE')));
          --valor_retorno := 'CASE WHEN ' || trim(condicion_pro) || ' THEN NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', -2) ELSE ' || trim(constante) || ' END';
          valor_retorno := 'CASE WHEN ' || trim(condicion) || ' THEN NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', -2) ELSE ' || trim(constante) || ' END';
        else
          /* Construyo el campo de SELECT */
          if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
            if (v_no_se_generara_case = false) then /*(20170207) Angel Ruiz. BUG: Hay campos con JOIN en los que no se va a generar CASE WHEN */          
              valor_retorno := 'CASE WHEN (';
              v_numero_campos:=0;
              FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
              LOOP
                /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                --if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
                if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) or
                (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0) or
                (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) or
                (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) or
                (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0)
                then
                  nombre_campo := extrae_campo (ie_column_lkup(indx));
                  v_existe_valor:=false;
                  for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
                  WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
                  UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo)))
                  loop
                    v_existe_valor:=true;
                  end loop;
                  if (v_existe_valor=true) then
                    SELECT * INTO l_registro
                    FROM v_MTDT_CAMPOS_DETAIL
                    WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                    UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo));
                  end if;
                else
                  dbms_output.put_line ('El campo por el que voy a hacer LookUp de la TABLE_BASE es: ' || TRIM(ie_column_lkup(indx)));
                  v_existe_valor:=false;
                  for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
                  WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                  UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx))))
                  loop
                    v_existe_valor:=true;
                  end loop;
                  if (v_existe_valor=true) then
                    SELECT * INTO l_registro
                    FROM v_MTDT_CAMPOS_DETAIL
                    WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                    UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx)));
                  end if;
                end if;
                if (v_existe_valor=true) then
                  v_numero_campos:=v_numero_campos+1;
                  if (instr(l_registro.TYPE, 'VARCHAR') > 0) then  /* se trata de un campo VARCHAR */
                    if (v_numero_campos = 1) then
                      /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                      if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
                        valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IN (''NI#'', ''NO INFORMADO'') ';
                      else
                        valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IN (''NI#'', ''NO INFORMADO'') ';
                      end if;
                    else
                      /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                      if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
                        valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IN (''NI#'', ''NO INFORMADO'') ';
                      else
                        valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IN (''NI#'', ''NO INFORMADO'') ';
                      end if;
                    end if;
                  else 
                    if (v_numero_campos = 1) then
                      /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                      if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
                        valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' = -3 ';
                      else
                        valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' = -3 ';
                      end if;
                    else
                      /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                      if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
                        valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || nombre_campo || ' = -3 ';
                      else
                        valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' = -3 ';
                      end if;
                    end if;
                  end if;
                end if;
              END LOOP;
              /* (20160630) Angel Ruiz. NF: Se admiten Queries como tablas de LookUp y con ALIAS */
              SELECT * INTO l_registro1
              FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_NAME)) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_COLUMN));
              dbms_output.put_line ('Estoy donde quiero.');
              dbms_output.put_line ('El nombre de TABLE_NAME ES: ' || reg_detalle_in.TABLE_NAME);
              dbms_output.put_line ('El nombre de TABLE_COLUMN ES: ' || reg_detalle_in.TABLE_COLUMN);
              dbms_output.put_line ('El tipo de DATOS es: ' || l_registro1.TYPE);
              if (l_registro1.TYPE = 'NUMBER') then
                if (v_alias_incluido = 1) then
                /* (20160629) Angel Ruiz. NF: Se incluye la posibilidad de incluir el ALIAS en tablas de LKUP que sean SELECT */
                  valor_retorno := valor_retorno || ') THEN -3 ELSE ' || 'NVL(' || reg_detalle_in.VALUE || ', -2) END';
                else
                  if (instr(reg_detalle_in.VALUE, '.') = 0) then
                    valor_retorno := valor_retorno || ') THEN -3 ELSE ' || 'NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', -2) END';
                  else
                    valor_retorno := valor_retorno || ') THEN -3 ELSE ' || 'NVL(' || reg_detalle_in.VALUE || ', -2) END';
                  end if;
                end if;
              else
                if (v_alias_incluido = 1) then
                /* (20160629) Angel Ruiz. NF: Se incluye la posibilidad de incluir el ALIAS en tablas de LKUP que sean SELECT */
                  valor_retorno := valor_retorno || ') THEN ''NO INFORMADO'' ELSE ' || 'NVL(' || reg_detalle_in.VALUE || ', ''GENERICO'') END';
                else
                  if (instr(reg_detalle_in.VALUE, '.') = 0) then
                    valor_retorno := valor_retorno || ') THEN ''NO INFORMADO'' ELSE ' || 'NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', ''GENERICO'') END';
                  else
                    valor_retorno := valor_retorno || ') THEN ''NO INFORMADO'' ELSE ' || 'NVL(' || reg_detalle_in.VALUE || ', ''GENERICO'') END';
                  end if;
                end if;
              end if;
            else  /* (20170207) Angel Ruiz. if (v_no_se_generara_case = false) then */
              valor_retorno := reg_detalle_in.VALUE;
            end if; /* (20170207) Angel Ruiz. if (v_no_se_generara_case = false) then */
          else /* if (table_columns_lkup.COUNT > 1) then */
            SELECT * INTO l_registro1
            FROM v_MTDT_CAMPOS_DETAIL
            WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_NAME)) and
            UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_COLUMN));
            if (l_registro1.TYPE = 'NUMBER') then
              if (v_alias_incluido = 1) then
                valor_retorno :=  '    NVL(' || reg_detalle_in.VALUE || ', -2)';
              else
                if (instr(reg_detalle_in.VALUE, '.') = 0) then
                  valor_retorno :=  '    NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', -2)';
                else
                  valor_retorno :=  '    NVL(' || reg_detalle_in.VALUE || ', -2)';
                end if;
              end if;
            else
              if (v_alias_incluido = 1) then
                valor_retorno :=  '    NVL(' || reg_detalle_in.VALUE || ', ''GENERICO'')';
              else
                if (instr(reg_detalle_in.VALUE, '.') = 0) then
                  valor_retorno :=  '    NVL(' || v_alias || '.' || reg_detalle_in.VALUE || ', ''GENERICO'')';
                else
                  valor_retorno :=  '    NVL(' || reg_detalle_in.VALUE || ', ''GENERICO'')';
                end if;
              end if;
            end if;
          end if;

        end if;
        
        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL WHERE */
        /****************************************************************************/
        
        if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
          FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
          LOOP
            l_WHERE.extend;
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Columna es: ' || ie_column_lkup(indx));
            
            /* Recojo de que tipo son los campos con los que vamos a hacer LookUp */
            /* (20161117) Angel Ruiz NF: Pueden venir funciones en los campos de JOIN */
            --if (instr(ie_column_lkup(indx), 'DECODE') > 0 or instr(ie_column_lkup(indx), 'decode') > 0) then
            if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) or
            (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0)
            then
            
              --nombre_campo := extrae_campo_decode (ie_column_lkup(indx));
              nombre_campo := extrae_campo (ie_column_lkup(indx));
              dbms_output.put_line ('El campo del WHERE ES #####: ' || nombre_campo);
              dbms_output.put_line ('La Tabla del WHERE ES #####: ' || reg_detalle_in.TABLE_BASE_NAME);
              /****************************************/
              /* (20170207) Angel Ruiz. BUG. Hay campos de los q no se puede hayar su tipo pq tienen muchas funciones */
              /****************************************/
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo)))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor=true) then
                SELECT * INTO l_registro
                FROM v_MTDT_CAMPOS_DETAIL
                WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo));
              end if;
            else
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx))))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor = true) then
                SELECT * INTO l_registro
                FROM v_MTDT_CAMPOS_DETAIL
                WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx)));
              end if;
            end if;
            if v_existe_valor = true then
              dbms_output.put_line ('??????????. El valor de v_existe_valor es: true' || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
            end if;
            if (l_WHERE.count = 1) then
              dbms_output.put_line ('??????????###??? Count 1. El ie_column es:' || ie_column_lkup(indx) || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
              if (v_existe_valor = true) then
                dbms_output.put_line ('??????????. Despues del v_existe_valor=true. El ie_column es:' || ie_column_lkup(indx) || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
                if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                  if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                    /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                    if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  'NVL(' || transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                    elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  'NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  'NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  'NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) :=  'NVL(' || transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                    else
                      l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  'NVL(' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  'NVL(' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || table_columns_lkup(indx) || ' (+)';
                      end if;
                    end if;
                  else
                    /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                    dbms_output.put_line('AAAAAA.La definitiva.');
                    if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                    elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      dbms_output.put_line ('??????????###Papa. El ie_column es:' || ie_column_lkup(indx) || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
                      l_WHERE(l_WHERE.last) :=  transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                    else
                      --l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||  ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) := ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      end if;
                      
                    end if;
                  end if;
                else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                  --l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||', -3)' ||' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                  /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                  if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) := transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                  elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                    l_WHERE(l_WHERE.last) := transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                  elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                    l_WHERE(l_WHERE.last) := transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                  elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) := transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                  elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                    l_WHERE(l_WHERE.last) := transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                  else /* if (v_existe_valor = true) then */
                    --l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                    if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                      l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                    elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                      l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                    elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                      l_WHERE(l_WHERE.last) := ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                    elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                      l_WHERE(l_WHERE.last) :=  ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                    end if;
                  end if;
                end if;
              else /* if (v_existe_valor = true) then */
                if (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                  l_WHERE(l_WHERE.last) :=  transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                elsif (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                  l_WHERE(l_WHERE.last) := transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                else
                  if (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                    l_WHERE(l_WHERE.last) := ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                    l_WHERE(l_WHERE.last) := ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                  end if;
                end if;
              end if; /* if (v_existe_valor = true) then */
            else /* if (l_WHERE.count = 1) then */
              dbms_output.put_line ('??????????###???. El count no es 1. El ie_column es:' || ie_column_lkup(indx) || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
              
              if (v_existe_valor = true) then
                if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                  if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                    /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                    if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                    elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                    else
                      --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND NVL(' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND NVL(' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''NI#'')' || ' = ' || table_columns_lkup(indx) || ' (+)';
                      end if;
                    end if;
                  else
                    /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */
                    if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode (ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                    elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion (ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion (ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion (ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      dbms_output.put_line ('??????????###. POR FIN!!!.El ie_column es:' || ie_column_lkup(indx) || ' . La table_base_name es: ' || reg_detalle_in.TABLE_BASE_NAME);
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer (ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                    else
                      --l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      end if;
                    end if;
                  end if;
                else /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                  --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', -3)' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                    /* (20160302) Angel Ruiz. NF: DECODE en las columnas de LookUp */                
                    if (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                    elsif (regexp_instr(ie_column_lkup(indx), '[Nn][Vv][Ll]') > 0 or regexp_instr(table_columns_lkup(indx), '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(table_columns_lkup(indx), '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(table_columns_lkup(indx), v_alias) || ' (+)';
                    elsif (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                    else
                      if (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                      elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                        l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                      end if;
                    end if;
                end if;
              else
                if (regexp_instr(ie_column_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(table_columns_lkup(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                  l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(table_columns_lkup(indx), v_alias, 1);
                elsif (regexp_instr(ie_column_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(table_columns_lkup(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                  l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode(ie_column_lkup(indx), reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(table_columns_lkup(indx), v_alias, 1);
                else
                  if (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') = 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') = 0 and instr(table_columns_lkup(indx), '.') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || table_columns_lkup(indx) || ' (+)';
                  elsif (instr(ie_column_lkup(indx), '.') > 0 and instr(table_columns_lkup(indx), '.') = 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                  end if;
                end if;
              end if;
            end if;
          END LOOP;
        else    /* Solo hay un campo condicion */
          /* Miramos si la tabla con la que hay que hacer LookUp es una tabla de rangos */
          l_WHERE.extend;
          if (instr (reg_detalle_in.TABLE_LKUP,'RANGO') > 0) then
            if (l_WHERE.count = 1) then
              l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' >= ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' < ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            else
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' >= ' || v_alias || '.'  || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' < ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            end if;
          else
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('#ESTOY EN EL LOOKUP. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('#ESTOY EN EL LOOKUP. La Columna es: ' || reg_detalle_in.IE_COLUMN_LKUP);
            /* (20161117) Angel Ruiz NF: Pueden venir funciones en los campos de JOIN */
            --if (instr(reg_detalle_in.IE_COLUMN_LKUP, 'DECODE') > 0 or instr(reg_detalle_in.IE_COLUMN_LKUP, 'decode') > 0) then
            if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) or
            (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) or
            (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) or
            (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) or
            (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0)
            then
              --nombre_campo := extrae_campo_decode (reg_detalle_in.IE_COLUMN_LKUP);
              nombre_campo := extrae_campo (reg_detalle_in.IE_COLUMN_LKUP);
              dbms_output.put_line('Estoy dentro del if DE FUNCIONES. el valor de nombre_campo es: $' || nombre_campo || '$');
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(nombre_campo)))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor=true) then
                SELECT * INTO l_registro
                FROM v_MTDT_CAMPOS_DETAIL
                WHERE TABLE_NAME =  reg_detalle_in.TABLE_BASE_NAME and
                COLUMN_NAME = trim(nombre_campo);
              end if;
            else
              v_existe_valor:=false;
              for registro in (SELECT * FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(reg_detalle_in.TABLE_BASE_NAME) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.IE_COLUMN_LKUP)))
              loop
                v_existe_valor:=true;
              end loop;
              if (v_existe_valor=true) then
                SELECT * INTO l_registro
                FROM v_MTDT_CAMPOS_DETAIL
                WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
                UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.IE_COLUMN_LKUP));
              end if;
            end if;
            if (l_WHERE.count = 1) then /* si es el primer campo del WHERE */
              if (v_existe_valor = true) then /* (20170207) Angel Ruiz. BUG. Hay columnas que no se encuentran en el metadato */
                if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                  if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                    if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) := 'NVL(' || transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' ||  ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) := 'NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) := 'NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) := 'NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) := 'NVL(' || transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' ||  ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    else
                      l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''NI#'')' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                    end if;
                  else
                    if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) := transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) := transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) := transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) := transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) := transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    else
                      l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                    end if;
                  end if;
                else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                  --l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) ||  ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                  else
                    l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  end if;
                end if;
              else /* if (v_existe_valor = true) then */
                if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                  l_WHERE(l_WHERE.last) :=  transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) :=  transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) ||  ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                else
                  if (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') > 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') > 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') = 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') = 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') = 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') > 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') > 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') = 0) then
                    l_WHERE(l_WHERE.last) := reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  end if;
                end if;
              end if;
            else  /* sino es el primer campo del Where  */
              if (v_existe_valor = true) then /* (20170207) Angel Ruiz. BUG. Hay columnas que no se encuentran en el metadato */
                if (instr(l_registro.TYPE, 'VARCHAR') > 0) then     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                  if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                    if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ', ''NI#'')' || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ', ''NI#'')' || ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    else
                      l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''NI#'')' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                    end if;
                  else
                    if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                    elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                    else
                      l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                    end if;
                  end if;
                else     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                  --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[D][E][C][O][D][E]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[D][E][C][O][D][E]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Nn][Vv][Ll]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Uu][Pp][Pp][Ee][Rr]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Rr][Ee][Pp][Ll][Aa][Cc][Ee]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME) || ' = ' || transformo_funcion(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias) || ' (+)';
                  elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                  else
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  end if;
                end if;
              else  /* if (v_existe_valor = true) then */
                if (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                  l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_funcion_outer(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                elsif (regexp_instr(reg_detalle_in.IE_COLUMN_LKUP, '[D][E][C][O][D][E]') > 0 or regexp_instr(reg_detalle_in.TABLE_COLUMN_LKUP, '[D][E][C][O][D][E]') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || transformo_decode(reg_detalle_in.IE_COLUMN_LKUP, reg_detalle_in.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(reg_detalle_in.TABLE_COLUMN_LKUP, v_alias, 1);
                else
                  if (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') > 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') = 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') = 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') = 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') > 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  elsif (instr(reg_detalle_in.IE_COLUMN_LKUP, '.') > 0 and instr(reg_detalle_in.TABLE_COLUMN_LKUP, '.') = 0) then
                    l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                  end if;
                end if;
              end if;
            end if;
          end if;
        end if;
        if (reg_detalle_in.TABLE_LKUP_COND is not null) then
          /* Existen condiciones en la tabla de Look Up que hay que introducir*/
          l_WHERE.extend;
          l_WHERE(l_WHERE.last) :=  ' AND ' || procesa_condicion_lookup(reg_detalle_in.TABLE_LKUP_COND, v_alias);
        end if;
      when 'FUNCTION' then
        /* se trata de la regla FUNCTION */
        /* (20150306) ANGEL RUIZ. Hay un error que corrijo */
        v_nombre_tabla_reducido := substr(reg_detalle_in.TABLE_NAME, 5);
        if (length(reg_detalle_in.TABLE_NAME) < 25) then
        v_nombre_paquete := reg_detalle_in.TABLE_NAME;
        else
        v_nombre_paquete := v_nombre_tabla_reducido;
        end if;        
        valor_retorno :=  '    ' || 'PKG_' || v_nombre_paquete || '.' || 'LK_' || reg_detalle_in.TABLE_LKUP || ' (' || reg_detalle_in.IE_COLUMN_LKUP || ')';
      when 'DLOAD' then
        valor_retorno := '    ' || 'TO_DATE (fch_carga_in, ''YYYYMMDD'')';
      when 'DSYS' then
        valor_retorno := '    ' || 'SYSDATE';
      when 'CODE' then
        posicion := instr(reg_detalle_in.VALUE, 'VAR_IVA');
        if (posicion >0) then
          cad_pri := substr(reg_detalle_in.VALUE, 1, posicion-1);
          cad_seg := substr(reg_detalle_in.VALUE, posicion + length('VAR_IVA'));
          valor_retorno :=  '    ' || cad_pri || '21' || cad_seg;
        else
          valor_retorno :=  '    ' || reg_detalle_in.VALUE;
        end if;
        posicion := instr(valor_retorno, 'VAR_FCH_CARGA');
        if (posicion >0) then
          cad_pri := substr(valor_retorno, 1, posicion-1);
          cad_seg := substr(valor_retorno, posicion + length('VAR_FCH_CARGA'));
          valor_retorno :=  '    ' || cad_pri || ' to_date(fch_datos_in, ''yyyymmdd'') ' || cad_seg;
        end if;
      when 'HARDC' then
        /* (20170201) Angel Ruiz. BUG*/
        if reg_detalle_in.VALUE <> 'NULL' then
          select * into l_registro FROM v_MTDT_CAMPOS_DETAIL
          where UPPER(TRIM(TABLE_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_NAME))
          and UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_COLUMN));
          if (l_registro.TYPE <> 'NUMBER') then
            if (instr(reg_detalle_in.VALUE, '''') > 0) then
              valor_retorno := '    ' || reg_detalle_in.VALUE;
            else
              valor_retorno := '    ' || '''' || reg_detalle_in.VALUE || '''';
            end if;
          else
            valor_retorno := '    ' || reg_detalle_in.VALUE;
          end if;
        else
            valor_retorno := '    ' || reg_detalle_in.VALUE;
        end if;
      when 'SEQ' then
        valor_retorno := '    ' || OWNER_DM || '.SEQ_' || nombre_tabla_reducido || '.NEXTVAL';
        --if (instr(reg_detalle_in.VALUE, '.NEXTVAL') > 0) then
          --valor_retorno := '    app_mvnodm.' || reg_detalle_in.VALUE;
          --valor_retorno := '    app_mvnodm.SEQ_' || nombre_tabla_reducido || '.NEXTVAL';
        --else
          --valor_retorno := '    app_mvnodm.' || reg_detalle_in.VALUE || '.NEXTVAL';
        --end if;
      when 'BASE' then
        /* Se toma el valor del campo de la tabla de staging */
        valor_retorno := '    ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.VALUE;      
      when 'VAR_FCH_INICIO' then
        valor_retorno := '    ' || 'var_fch_inicio';
      when 'VAR' then
        /* Se toma el valor de una variable de entorno */
        if reg_detalle_in.VALUE =  'VAR_FCH_DATOS' then /* Si se trata de la fecha de carga, la podemos coger del parametro de la funcion */
--          valor_retorno :=  '     ' ||  'TO_DATE (fch_carga_in, ''YYYYMMDD'')';
          valor_retorno := '     ' || 'fch_datos_in';        
        end if;
        if reg_detalle_in.VALUE =  'VAR_FCH_CARGA' then /* Si se trata de la fecha de carga, la podemos coger del parametro de la funcion */
--          valor_retorno := '     ' || 'TO_DATE (fch_carga_in, ''YYYYMMDD'')';
          valor_retorno := '     ' || 'fch_datos_in';        
        end if;
        if reg_detalle_in.VALUE =  'VAR_PAIS_TM' then /* Si se trata de la fecha de carga, la podemos coger del parametro de la funcion */
          valor_retorno := '    ' || '1';
        end if;
      when 'LKUPN' then
        /* (20150824) ANGEL RUIZ. Nueva Regla. Permite rescatar un campo numerico de la tabla de look up y hacer operaciones con el */
        l_FROM.extend;
        if (instr (reg_detalle_in.TABLE_LKUP,'SELECT ') > 0) then
          /* Aparecen queries en lugar de tablas en la columna de nombre de tabla para LookUp */
          v_alias := 'LKUP_' || l_FROM.count;
          mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
          l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
        else
          /* (20161111) Angel Ruiz. NF. Puede haber ALIAS EN LA TABLA DE LOOUP */
          dbms_output.put_line('Dentro del ELSE del SELECT');
          /* (20160401) Detectamos si la tabla de LookUp posee Alias */
          v_reg_table_lkup := procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
          if (REGEXP_LIKE(trim(v_reg_table_lkup), '^[a-zA-Z_0-9#\.&]+ +[a-zA-Z_0-9]+$') = true) then
            /* La tabla de LKUP posee Alias */
            v_alias_incluido := 1;
            dbms_output.put_line('La tabla de LKUP posee alias');
            v_alias_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), ' +[a-zA-Z_0-9]+$'));
            v_table_look_up := trim(REGEXP_SUBSTR(TRIM(v_reg_table_lkup), '^+[a-zA-Z_0-9\.#&]+ '));
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              v_table_look_up := v_table_look_up;
            else
              /* La tabla de LKUP no esta calificada, entonces la califico */
              /*(20160713) Angel Ruiz. BUG. Le anyado el procesa_campo_filter */
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            mitabla_look_up := v_table_look_up || ' ' || v_alias_table_look_up;
            /* Busco si estaba ya en el FROM. Como es una tabla con ALIAS */
            /* si ya estaba en el FROM entonces no la vuelo a meter ya que tiene un ALIAS */
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='N') then
              /* Solo la introduzco si la tabla no estaba ya */
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
            v_alias := v_alias_table_look_up;
          else    /* La tabla de LKUP no posee Alias */
            v_alias_incluido := 0;
            dbms_output.put_line('La tabla de LKUP no posee alias');
            --v_table_look_up := reg_detalle_in.TABLE_LKUP;
            v_table_look_up := v_reg_table_lkup;            
            --if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9]+') = true) then
            if (REGEXP_LIKE(v_table_look_up, '^[a-zA-Z_0-9#]+\.[a-zA-Z_0-9&]+') = true) then
              /* La tabla de LKUP esta calificada */
              dbms_output.put_line('La tabla de LKUP esta calificado');
              --v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9]+'), 2);
              v_alias_table_look_up := SUBSTR(REGEXP_SUBSTR(v_table_look_up, '\.[a-zA-Z_0-9&]+'), 2);
              --v_table_look_up := procesa_campo_filter(v_table_look_up);
              v_table_look_up := v_table_look_up;
            else
              dbms_output.put_line('La tabla de LKUP no esta calificado');
              /* La tabla de LKUP no esta calificada, entonces la califico */
              v_alias_table_look_up := v_table_look_up;
              /*(20160713) Angel Ruiz. BUG. Anyado procesa_campo_filter */
              --v_table_look_up := OWNER_EX || '.' || procesa_campo_filter(v_table_look_up);
              v_table_look_up := OWNER_DM || '.' || v_table_look_up;
            end if;
            dbms_output.put_line('El alias es: ' || v_alias_table_look_up);
            dbms_output.put_line('La tabla de LKUP es: ' || v_table_look_up);
            mitabla_look_up := v_table_look_up;
            v_encontrado:='N';
            FOR indx IN l_FROM.FIRST .. l_FROM.LAST
            LOOP
              --if (instr(l_FROM(indx),  reg_detalle_in.TABLE_LKUP, 0)) then
              --regexp_count(reg_per_val.AGREGATION,'^BAN_',1,'i') >0
              --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
              if (regexp_count(l_FROM(indx), mitabla_look_up) >0) then
              --if (l_FROM(indx) = ', ' || OWNER_EX || '.' || reg_detalle_in.TABLE_LKUP) then
                /* La misma tabla ya estaba en otro lookup */
                v_encontrado:='Y';
              end if;
            END LOOP;
            if (v_encontrado='Y') then
              v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP) || ' "' || v_alias || '"' ;
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up || ' "' || v_alias || '"' ;
            else
              --v_alias := reg_detalle_in.TABLE_LKUP;
              v_alias := v_alias_table_look_up;
              --l_FROM (l_FROM.last) := ', ' || procesa_campo_filter(reg_detalle_in.TABLE_LKUP);
              l_FROM (l_FROM.last) := ', ' || mitabla_look_up;
            end if;
          end if;
            
          
          /* (20161111) Angel Ruiz. NF FIN. Puede haber ALIAS EN LA TABLA DE LOOKUP */
        
        
        
        
          /* (20150112) Angel Ruiz */
          /* Puede ocurrir que se se tenga varias veces la misma LookUp pero para campo diferentes */
          /* lo que se traduce en que hay que crear ALIAS */
          /* BUSCAMOS SI YA ESTABA LA TABLA INCLUIDA EN EL FROM*/
          --v_encontrado:='N';
          --FOR indx IN l_FROM.FIRST .. l_FROM.LAST
          --LOOP
            /* (20160708) Angel Ruiz. BUG: Me doy cuenta que si se hace LookUp por la tabla que a su */
            /* estamos cargando se duplicaban las tablas */
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0) then
            --if (regexp_count(l_FROM(indx), reg_detalle_in.TABLE_LKUP) >0 or 
                --reg_detalle_in.TABLE_LKUP = reg_detalle_in.TABLE_NAME) then
              /* La misma tabla ya estaba en otro lookup */
              --v_encontrado:='Y';
            --end if;
          --END LOOP;
          --if (v_encontrado='Y') then
            --v_alias := reg_detalle_in.TABLE_LKUP || '_' || l_FROM.count;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP || ' "' || v_alias || '"' ;
          --else
            --v_alias := reg_detalle_in.TABLE_LKUP;
            --l_FROM (l_FROM.last) := ', ' || OWNER_DM || '.' || reg_detalle_in.TABLE_LKUP;
          --end if;
        end if;
        /* Miramos la parte de las condiciones */
        /* Puede haber varios campos por los que hacer LookUp y por lo tanto JOIN */
        table_columns_lkup := split_string_coma (reg_detalle_in.TABLE_COLUMN_LKUP);
        ie_column_lkup := split_string_coma (reg_detalle_in.IE_COLUMN_LKUP);
        /* Le añadimos al nombre del campo de la tabla de LookUp su Alias */
        v_value := proceso_campo_value (reg_detalle_in.VALUE, v_alias);
        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL SELECT */
        /****************************************************************************/
        if (reg_detalle_in.LKUP_COM_RULE is not null) then
          /* Ocurre que tenemos una regla compuesta, un LKUP con una condicion */
          cadena := trim(reg_detalle_in.LKUP_COM_RULE);
          pos_del_si := instr(cadena, 'SI');
          pos_del_then := instr(cadena, 'THEN');
          pos_del_else := instr(cadena, 'ELSE');
          pos_del_end := instr(cadena, 'END');  
          condicion := substr(cadena,pos_del_si+length('SI'), pos_del_then-(pos_del_si+length('SI')));
          condicion_pro := procesa_COM_RULE_lookup(condicion);
          constante := substr(cadena, pos_del_else+length('ELSE'),pos_del_end-(pos_del_else+length('ELSE')));
          valor_retorno := 'CASE WHEN ' || trim(condicion_pro) || ' THEN NVL(' || v_value || ', -2) ELSE ' || trim(constante) || ' END';
        else
          /* Construyo el campo de SELECT */
          if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
            valor_retorno := 'CASE WHEN (';
            FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
            LOOP
              SELECT * INTO l_registro
              FROM v_MTDT_CAMPOS_DETAIL
              WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
              UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx)));
            
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then  /* se trata de un campo VARCHAR */
                if (indx = 1) then
                  valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IN (''''NI#'''', ''''NO INFORMADO'''') ';
                else
                  valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IN (''''NI#'''', ''''NO INFORMADO'''') ';
                end if;
              else 
                if (indx = 1) then
                  valor_retorno := valor_retorno || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' = -3 ';
                else
                  valor_retorno := valor_retorno || 'OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' IS NULL OR ' || reg_detalle_in.TABLE_BASE_NAME || '.' || l_registro.COLUMN_NAME || ' = -3 ';
                end if;
              end if;
            END LOOP;
            valor_retorno := valor_retorno || ') THEN -3 ELSE ' || 'NVL(' || v_value || ', -2) END';
          else
            valor_retorno :=  '    NVL(' || v_value || ', -2)';
          end if;

        end if;

        /****************************************************************************/
        /* CONTRUIMOS EL CAMPO PARA LA PARTE DEL WHERE */
        /****************************************************************************/

        if (table_columns_lkup.COUNT > 1) then      /* Hay varios campos de condicion */
          FOR indx IN table_columns_lkup.FIRST .. table_columns_lkup.LAST
          LOOP
            l_WHERE.extend;
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('ESTOY EN EL LOOKUP. Este LoopUp es de varias columnas. La Columna es: ' || ie_column_lkup(indx));
            
            /* Recojo de que tipo son los campos con los que vamos a hacer LookUp */
            SELECT * INTO l_registro
            FROM v_MTDT_CAMPOS_DETAIL
            WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
            UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(ie_column_lkup(indx)));
            if (l_WHERE.count = 1) then
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''''NI#'''')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||  ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                end if;
              else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) ||', -3)' ||' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                l_WHERE(l_WHERE.last) :=  reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
              end if;
            else
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', ''''NI#'''')' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                end if;
              else /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ', -3)' || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
                l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || ie_column_lkup(indx) || ' = ' || v_alias || '.' || table_columns_lkup(indx) || ' (+)';
              end if;
            end if;
          END LOOP;
        else    /* Solo hay un campo condicion */
          
          /* Miramos si la tabla con la que hay que hacer LookUp es una tabla de rangos */
          l_WHERE.extend;
          if (instr (reg_detalle_in.TABLE_LKUP,'RANGO') > 0) then
            if (l_WHERE.count = 1) then
              l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' >= ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' <= ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            else
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' >= ' || v_alias || '.'  || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              l_WHERE.extend;
              l_WHERE(l_WHERE.last) := ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' <= ' || v_alias || '.' || 'MAX' || substr(reg_detalle_in.TABLE_COLUMN_LKUP, 4) || ' (+)';
            end if;
          else
            /* (20150126) Angel Ruiz. Incidencia referente a que siempre se coloca el valor -2 */
            /* Recojo el tipo de dato del campo con el que se va a hacer LookUp */
            dbms_output.put_line('ESTOY EN EL LOOKUP. La Tabla es: ' || reg_detalle_in.TABLE_BASE_NAME);
            dbms_output.put_line('ESTOY EN EL LOOKUP. La Columna es: ' || reg_detalle_in.IE_COLUMN_LKUP);
            SELECT * INTO l_registro
            FROM v_MTDT_CAMPOS_DETAIL
            WHERE UPPER(TRIM(TABLE_NAME)) = UPPER(TRIM(reg_detalle_in.TABLE_BASE_NAME)) and
            UPPER(TRIM(COLUMN_NAME)) = UPPER(TRIM(reg_detalle_in.IE_COLUMN_LKUP));
            if (l_WHERE.count = 1) then /* si es el primer campo del WHERE */
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''''NI#'''')' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                else
                  l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                end if;
              else    /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) := 'NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                l_WHERE(l_WHERE.last) := reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP ||  ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              end if;
            else  /* sino es el primer campo del Where  */
              if (instr(l_registro.TYPE, 'VARCHAR') > 0) then     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo CARACTER */
                if (l_registro.LENGTH <3 and l_registro.NULABLE = 'Y') then
                  l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', ''''NI#'''')' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                else
                  l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                end if;
              else     /* Estamos haciendo JOIN con la tabla de LookUp COD_* por un campo NUMBER */
                --l_WHERE(l_WHERE.last) :=  ' AND NVL(' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ', -3)' || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
                l_WHERE(l_WHERE.last) :=  ' AND ' || reg_detalle_in.TABLE_BASE_NAME || '.' || reg_detalle_in.IE_COLUMN_LKUP || ' = ' || v_alias || '.' || reg_detalle_in.TABLE_COLUMN_LKUP || ' (+)';
              end if;
            end if;
          end if;
        end if;
        if (reg_detalle_in.TABLE_LKUP_COND is not null) then
          /* Existen condiciones en la tabla de Look Up que hay que introducir*/
          l_WHERE.extend;
          l_WHERE(l_WHERE.last) :=  ' AND ' || procesa_condicion_lookup(reg_detalle_in.TABLE_LKUP_COND, v_alias);
        end if;
        when 'LKUPD' then
          if (reg_detalle_in.LKUP_COM_RULE is not null) then
            /* Ocurre que tenemos una regla compuesta, un LKUP con una condicion */
            cadena := trim(reg_detalle_in.LKUP_COM_RULE);
            pos_del_si := instr(cadena, 'SI');
            pos_del_then := instr(cadena, 'THEN');
            pos_del_else := instr(cadena, 'ELSE');
            pos_del_end := instr(cadena, 'END');  
            condicion := substr(cadena,pos_del_si+length('SI'), pos_del_then-(pos_del_si+length('SI')));
            condicion_pro := procesa_COM_RULE_lookup(condicion);
            constante := substr(cadena, pos_del_else+length('ELSE'),pos_del_end-(pos_del_else+length('ELSE')));
            valor_retorno := 'CASE WHEN ' || trim(condicion_pro) || ' THEN NVL(' || reg_detalle_in.VALUE || ', '' '') ELSE ' || trim(constante) || ' END';
          else
            valor_retorno := reg_detalle_in.VALUE;
          end if;
      end case;
    return valor_retorno;
  end;

  function genera_encabezado_funcion_pkg (reg_lookup_in in MTDT_TC_LOOKUP%rowtype) return VARCHAR2 is
    valor_retorno VARCHAR (500);
    lkup_columns                list_strings := list_strings();
    ie_lkup_columns                list_strings := list_strings();
    v_nombre_func_lookup             VARCHAR2(40);
    v_nombre_tabla                          VARCHAR2(30);
    
  begin
    /* (20150130) Angel Ruiz . Nueva incidencia. */
    if (instr (reg_lookup_in.TABLE_LKUP,'SELECT ') > 0) then
      /* Aparecen queries en lugar de tablas para LookUp */
      v_nombre_func_lookup := 'LK_' || reg_lookup_in.VALUE;  /* Llamo a mi funcion de LookUp esta concatenacion con el nombre del campo resultado del LookUp */
      v_nombre_tabla := reg_lookup_in.TABLE_BASE_NAME;  /* Si lo que tengo es una SELECT tengo que recurrir al nombre de la tabla BASE para posteriormente saber el tipo de campo  */
    else
      v_nombre_func_lookup := 'LK_' || reg_lookup_in.TABLE_LKUP;  /* Llamo a mi funcion de LookUp esta concatenacion */
      v_nombre_tabla := reg_lookup_in.TABLE_LKUP;     /* Como no tengo una SELECT uso la tabla de LookUp para posteriormente saber el tipo de campo  */
    end if;
    /* Se trata de hacer el LOOK UP con la tabla dimension */
    /* Miramos si hay varios campos por los que hay que hay que hacer JOIN */
    if (instr (reg_lookup_in.TABLE_LKUP,'SELECT ') > 0) then    /* (20150102) Angel Ruiz . Nueva incidencia. Hay una SELECT en lugar de una tabla para hacer LookUp */
      /* Para hacer el prototipo de la funcion he de usar la tabla base y los campos ie_olumn_lookup ya que no tenemos los campos de LookUp al ser una select */
      lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
      ie_lkup_columns := split_string_punto_coma (reg_lookup_in.IE_COLUMN_LKUP);
      if (lkup_columns.COUNT > 1)
      then
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (';
        FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
        LOOP
          if indx = 1 then
              valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || ie_lkup_columns(indx) || '%TYPE';
          else
            valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || ie_lkup_columns(indx) || '%TYPE';
          end if;
        END LOOP;
        valor_retorno := valor_retorno || ') return ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE;';
      else        
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (cod_in IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || reg_lookup_in.IE_COLUMN_LKUP || '%TYPE) return ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE;';
      end if;
        
    else  /* (20150102) Angel Ruiz . Nueva incidencia. Hay una tabla de LookUp normal. No SELECT */
    
      lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
      if (lkup_columns.COUNT > 1)
      then
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (';
        FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
        LOOP
          if indx = 1 then
            valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
          else
            valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
          end if;
        END LOOP;
        valor_retorno := valor_retorno || ') return ' || reg_lookup_in.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE;';
      else        
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (cod_in IN ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || '%TYPE) return ' || reg_lookup_in.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE;';
      end if;
    end if;
    return valor_retorno;
  end;

  function gen_enca_funcion_LKUPD (reg_lookup_in in MTDT_TC_LKUPD%rowtype) return VARCHAR2 is
    valor_retorno VARCHAR (500);
    lkup_columns                list_strings := list_strings();
    ie_lkup_columns                list_strings := list_strings();
    v_nombre_func_lookup             VARCHAR2(40);
    v_nombre_tabla                          VARCHAR2(30);
    
  begin
    /* (20150430) Angel Ruiz .  */
    v_nombre_func_lookup := 'LK_' || reg_lookup_in.TABLE_COLUMN;  /* Llamo a mi funcion de LookUp esta concatenacion */
    v_nombre_tabla := reg_lookup_in.TABLE_LKUP;
    /* Se trata de hacer el LOOK UP con la tabla dimension */
    /* Miramos si hay varios campos por los que hay que hay que hacer JOIN */
    lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
    if (lkup_columns.COUNT > 1)
    then
      valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (';
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        if indx = 1 then
          valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
        else
          valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
        end if;
      END LOOP;
      valor_retorno := valor_retorno || ') return ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.VALUE || '%TYPE RESULT_CACHE;';
    else        
      valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (cod_in IN ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || '%TYPE) return ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.value || '%TYPE RESULT_CACHE;';
    end if;
    return valor_retorno;
  end;

  function gen_encabe_regla_function (reg_function_in in MTDT_TC_FUNCTION%rowtype) return VARCHAR2 is
    valor_retorno VARCHAR (250);
    lkup_columns                list_strings := list_strings();
  begin
    valor_retorno := '  FUNCTION ' || 'LK_' || reg_function_in.VALUE;
    return valor_retorno;
  end gen_encabe_regla_function;

  procedure genera_cuerpo_regla_function (reg_function_in in MTDT_TC_FUNCTION%rowtype) is
  begin
    UTL_FILE.put_line (fich_salida_pkg, '  FUNCTION ' || 'LK_' || reg_function_in.VALUE);
    --UTL_FILE.put_line (fich_salida_pkg, '  RESULT_CACHE');
    UTL_FILE.put_line (fich_salida_pkg, '  IS');
    UTL_FILE.put_line (fich_salida_pkg, '  BEGIN');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '    dbms_output.put_line (''Aqui iria el cuerpo de la funcion'');');
    UTL_FILE.put_line (fich_salida_pkg, '    /* AQUI IRIA EL CUERPO DE LA FUNCION */');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '  END ' || 'LK_' || reg_function_in.TABLE_LKUP);
  end genera_cuerpo_regla_function;

  procedure genera_cuerpo_funcion_pkg (reg_lookup_in in MTDT_TC_LOOKUP%rowtype) is
    valor_retorno VARCHAR (500);
    lkup_columns                list_strings := list_strings();
    ie_lkup_columns                list_strings := list_strings();
    v_alias             VARCHAR2(40);
    mitabla_look_up VARCHAR2(200);
    v_nombre_func_lookup             VARCHAR2(40);
    v_nombre_tabla                          VARCHAR2(30);
    l_registro          v_MTDT_CAMPOS_DETAIL%rowtype;

  begin
    /* Se trata de hacer el LOOK UP con la tabla dimension */
    /* (20150130) Angel Ruiz . Nueva incidencia. */
    if (instr (reg_lookup_in.TABLE_LKUP,'SELECT ') > 0) then
      /* Aparecen queries en lugar de tablas para LookUp */
      v_nombre_func_lookup := 'LK_' || reg_lookup_in.TABLE_COLUMN;  /* Llamo a mi funcion de LookUp esta concatenacion con el nombre del campo destino del LookUp */
      v_nombre_tabla := reg_lookup_in.TABLE_BASE_NAME;  /* Si lo que tengo es una SELECT tengo que recurrir al nombre de la tabla BASE para posteriormente saber el tipo de campo  */
    else
      v_nombre_func_lookup := 'LK_' || reg_lookup_in.TABLE_LKUP;  /* Llamo a mi funcion de LookUp esta concatenacion */
      v_nombre_tabla := reg_lookup_in.TABLE_LKUP;     /* Como no tengo una SELECT uso la tabla de LookUp para posteriormente saber el tipo de campo  */
    end if;
    if (instr (reg_lookup_in.TABLE_LKUP,'SELECT ') > 0) then    /* (20150102) Angel Ruiz . Nueva incidencia. Hay una SELECT en lugar de una tabla para hacer LookUp */
      /* Para hacer el prototipo de la funcion he de usar la tabla base y los campos ie_olumn_lookup ya que no tenemos los campos de LookUp al ser una select */
      /* Miramos si hay varios campos por los que hay que hay que hacer JOIN */
      lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
      ie_lkup_columns := split_string_punto_coma (reg_lookup_in.IE_COLUMN_LKUP);
      if (lkup_columns.COUNT > 1)
      then
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (';
        FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
        LOOP
          if indx = 1 then
              valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || ie_lkup_columns(indx) || '%TYPE';
          else
            valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || ie_lkup_columns(indx) || '%TYPE';
          end if;
        END LOOP;
        valor_retorno := valor_retorno || ') return ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE';
        UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
      else        
        valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (cod_in IN ' || OWNER_SA || '.' || v_nombre_tabla || '.' || reg_lookup_in.IE_COLUMN_LKUP || '%TYPE) return ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE RESULT_CACHE';
        UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
      end if;
    else
      /* Miramos si hay varios campos por los que hay que hay que hacer JOIN */
      lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
      if (lkup_columns.COUNT > 1)
      then
        valor_retorno := '  FUNCTION ' || 'LK_' || reg_lookup_in.TABLE_LKUP || ' (';
        FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
        LOOP
          if indx = 1 then
            valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
          else
            valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
          end if;
        END LOOP;
        valor_retorno := valor_retorno || ') ';
        UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
      else        
        UTL_FILE.put_line (fich_salida_pkg, '  FUNCTION ' || 'LK_' || reg_lookup_in.TABLE_LKUP || ' (cod_in IN ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || '%TYPE)'); 
      end if;
      UTL_FILE.put_line (fich_salida_pkg, '    return ' || reg_lookup_in.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE');
      UTL_FILE.put_line (fich_salida_pkg, '    RESULT_CACHE RELIES_ON (' || reg_lookup_in.TABLE_LKUP || ')');
    end if;
    UTL_FILE.put_line (fich_salida_pkg, '  IS');
    /* (20150130) Angel Ruiz . Nueva incidencia. */
    --if (instr (reg_lookup_in.TABLE_LKUP,'SELECT ') > 0) then
    --  UTL_FILE.put_line (fich_salida_pkg, '    l_row     ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE;');
    --else
    --  UTL_FILE.put_line (fich_salida_pkg, '    l_row     ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.VALUE || '%TYPE;');
    --end if;
    /* (20150619) Angel Ruiz. Nueva funcionalidad. Cambio la obtencion del tipo de dato de retorno para que sea mas coherente*/
    UTL_FILE.put_line (fich_salida_pkg, '    l_row     ' || reg_tabla.TABLE_NAME || '.' || reg_lookup_in.TABLE_COLUMN || '%TYPE;');
    UTL_FILE.put_line (fich_salida_pkg, '  BEGIN');
    /**********************************************************/
    /* (20150217) Angel Ruiz. Incidencia debido a que no esta retornando bien el valor de LookUp cuando se hace LookUp por varios campos */
    if (lkup_columns.COUNT > 1) then
      UTL_FILE.put_line (fich_salida_pkg, '');
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        dbms_output.put_line ('#### El campo que busco en el LookUp es: ' || lkup_columns(indx));
        SELECT * INTO l_registro
        FROM v_MTDT_CAMPOS_DETAIL
        WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_lookup_in.TABLE_LKUP)) and
        UPPER(TRIM(COLUMN_NAME)) = UPPER(trim(lkup_columns(indx)));

        if (instr(l_registro.TYPE, 'VARCHAR') > 0) then  /* se trata de un campo VARCHAR */
          if (indx = 1) then
            UTL_FILE.put_line (fich_salida_pkg, '  if (' || lkup_columns(indx) || '_IN ' || 'IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO''');
          else
            if (indx = lkup_columns.LAST) then
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' ||lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO'') then');
            else
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' ||lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO''');
            end if;
          end if;
        else
          if (indx = 1) then
            UTL_FILE.put_line (fich_salida_pkg, '  if (' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3');
          else
            if (indx = lkup_columns.LAST) then
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3) then');
            else
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3');
            end if;
          end if;
        end if;
      END LOOP;
      UTL_FILE.put_line (fich_salida_pkg, '      l_row := -3;');
      UTL_FILE.put_line (fich_salida_pkg, '  else');
    end if;

    UTL_FILE.put_line (fich_salida_pkg, '');

    /*********************************************************/
    
    UTL_FILE.put_line (fich_salida_pkg, '    SELECT nvl(' || reg_lookup_in.VALUE || ', -2) INTO l_row'); 
    UTL_FILE.put_line (fich_salida_pkg, '    FROM ' || reg_lookup_in.TABLE_LKUP);
    
    if (lkup_columns.COUNT > 1) then
      valor_retorno := '    WHERE ' ;
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        if indx = 1 then
          valor_retorno := valor_retorno || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || ' = ' || lkup_columns(indx) || '_in';
        else
          valor_retorno := valor_retorno || ' and ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || ' = ' || lkup_columns(indx) || '_in';
        end if;
      END LOOP;
      if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
        valor_retorno := valor_retorno || ';';
      else
        valor_retorno := valor_retorno || reg_lookup_in.TABLE_LKUP_COND || ';';
      end if;
      UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
    else 
      /* 20141204 Angel Ruiz - Añadido para las tablas de LOOK UP que son un rango */
      if (instr (reg_lookup_in.TABLE_LKUP,'RANGO') > 0) then
        /* Se trata de una tabla de Rango y la trato diferente */
        if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
          UTL_FILE.put_line (fich_salida_pkg, '    WHERE cod_in >= ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' and  cod_in <= ' || reg_lookup_in.TABLE_LKUP || '.' || 'MAX' || substr(reg_lookup_in.TABLE_COLUMN_LKUP,4) || ';' );
        else
          UTL_FILE.put_line (fich_salida_pkg, '    WHERE cod_in >= ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' and  cod_in <= ' || reg_lookup_in.TABLE_LKUP || '.' || 'MAX' || substr(reg_lookup_in.TABLE_COLUMN_LKUP,4) || ' and ' || reg_lookup_in.TABLE_LKUP_COND || ';');
        end if;
      else 
        if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
        UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in;' );
        else
        UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in and ' || reg_lookup_in.TABLE_LKUP_COND || ';' );
        end if;
      end if;
      --if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
      --  UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in;' );
      --else
      --  UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in and ' || reg_lookup_in.TABLE_LKUP_COND || ';' );
      --end if;
    end if;
    /* (20150217) Angel Ruiz. Incidencia debido a que no esta retornando bien el valor de LookUp cuando se hace LookUp por varios campos */
    if (lkup_columns.COUNT > 1) then
      UTL_FILE.put_line (fich_salida_pkg, '');
      UTL_FILE.put_line (fich_salida_pkg, '  end if;');
    end if;
    /***********************************/
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN l_row;');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '  exception');
    UTL_FILE.put_line (fich_salida_pkg, '  when NO_DATA_FOUND then');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN -2;');
    UTL_FILE.put_line (fich_salida_pkg, '  when others then');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN -2;');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '  END ' || 'LK_' || reg_lookup_in.TABLE_LKUP || ';');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '');
 
  end genera_cuerpo_funcion_pkg;

/************/


  procedure gen_cuer_funcion_LKUPD (reg_lookup_in in MTDT_TC_LKUPD%rowtype) is
    valor_retorno VARCHAR (500);
    lkup_columns                list_strings := list_strings();
    ie_lkup_columns                list_strings := list_strings();
    v_alias             VARCHAR2(40);
    mitabla_look_up VARCHAR2(200);
    v_nombre_func_lookup             VARCHAR2(40);
    v_nombre_tabla                          VARCHAR2(30);
    l_registro          v_MTDT_CAMPOS_DETAIL%rowtype;

  begin
    /* Se trata de hacer el LOOK UP con la tabla dimension */
    /* (20150430) Angel Ruiz . */
    v_nombre_func_lookup := 'LK_' || reg_lookup_in.TABLE_COLUMN;  /* Llamo a mi funcion de LookUp esta concatenacion */
    v_nombre_tabla := reg_lookup_in.TABLE_LKUP;
    /* Miramos si hay varios campos por los que hay que hay que hacer JOIN */
    lkup_columns := split_string_punto_coma (reg_lookup_in.TABLE_COLUMN_LKUP);
    if (lkup_columns.COUNT > 1)
    then
      valor_retorno := '  FUNCTION ' || v_nombre_func_lookup || ' (';
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        if indx = 1 then
          valor_retorno := valor_retorno || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
        else
          valor_retorno := valor_retorno || ', ' || lkup_columns(indx) || '_IN ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || '%TYPE';
        end if;
      END LOOP;
      valor_retorno := valor_retorno || ') ';
      UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
    else        
      UTL_FILE.put_line (fich_salida_pkg, '  FUNCTION ' || v_nombre_func_lookup || ' (cod_in IN ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || '%TYPE)'); 
    end if;
    UTL_FILE.put_line (fich_salida_pkg, '    return ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.value || '%TYPE');
    UTL_FILE.put_line (fich_salida_pkg, '    RESULT_CACHE RELIES_ON (' || reg_lookup_in.TABLE_LKUP || ')');
    UTL_FILE.put_line (fich_salida_pkg, '  IS');

    UTL_FILE.put_line (fich_salida_pkg, '    l_row     ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.VALUE || '%TYPE;');
    
    UTL_FILE.put_line (fich_salida_pkg, '  BEGIN');
    /**********************************************************/
    if (lkup_columns.COUNT > 1) then
      UTL_FILE.put_line (fich_salida_pkg, '');
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        SELECT * INTO l_registro
        FROM v_MTDT_CAMPOS_DETAIL
        WHERE UPPER(TRIM(TABLE_NAME)) =  UPPER(TRIM(reg_lookup_in.TABLE_LKUP)) and
        UPPER(TRIM(COLUMN_NAME)) = UPPER(trim(lkup_columns(indx)));

        if (instr(l_registro.TYPE, 'VARCHAR') > 0) then  /* se trata de un campo VARCHAR */
          if (indx = 1) then
            UTL_FILE.put_line (fich_salida_pkg, '  if (' || lkup_columns(indx) || '_IN ' || 'IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO''');
          else
            if (indx = lkup_columns.LAST) then
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' ||lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO'') then');
            else
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' ||lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = ''NI#'' OR ' || lkup_columns(indx) || '_IN' || ' = ''NO INFORMADO''');
            end if;
          end if;
        else
          if (indx = 1) then
            UTL_FILE.put_line (fich_salida_pkg, '  if (' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3');
          else
            if (indx = lkup_columns.LAST) then
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3) then');
            else
              UTL_FILE.put_line (fich_salida_pkg, '    ' || 'OR ' || lkup_columns(indx) || '_IN' || ' IS NULL OR ' || lkup_columns(indx) || '_IN' || ' = -3');
            end if;
          end if;
        end if;
      END LOOP;
      UTL_FILE.put_line (fich_salida_pkg, '      l_row := ''NI#'';');
      UTL_FILE.put_line (fich_salida_pkg, '  else');
    end if;

    UTL_FILE.put_line (fich_salida_pkg, '');

    /*********************************************************/
    
    UTL_FILE.put_line (fich_salida_pkg, '    SELECT nvl(' || reg_lookup_in.VALUE || ', ''GE#'') INTO l_row'); 
    UTL_FILE.put_line (fich_salida_pkg, '    FROM ' || reg_lookup_in.TABLE_LKUP);
    
    if (lkup_columns.COUNT > 1) then
      valor_retorno := '    WHERE ' ;
      FOR indx IN lkup_columns.FIRST .. lkup_columns.LAST
      LOOP
        if indx = 1 then
          valor_retorno := valor_retorno || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || ' = ' || lkup_columns(indx) || '_in';
        else
          valor_retorno := valor_retorno || ' and ' || reg_lookup_in.TABLE_LKUP || '.' || lkup_columns(indx) || ' = ' || lkup_columns(indx) || '_in';
        end if;
      END LOOP;
      if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
        valor_retorno := valor_retorno || ';';
      else
        valor_retorno := valor_retorno || reg_lookup_in.TABLE_LKUP_COND || ';';
      end if;
      UTL_FILE.put_line (fich_salida_pkg, valor_retorno);
    else 
      /* 20141204 Angel Ruiz - Añadido para las tablas de LOOK UP que son un rango */
      if (instr (reg_lookup_in.TABLE_LKUP,'RANGO') > 0) then
        /* Se trata de una tabla de Rango y la trato diferente */
        if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
          UTL_FILE.put_line (fich_salida_pkg, '    WHERE cod_in >= ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' and  cod_in <= ' || reg_lookup_in.TABLE_LKUP || '.' || 'MAX' || substr(reg_lookup_in.TABLE_COLUMN_LKUP,4) || ';' );
        else
          UTL_FILE.put_line (fich_salida_pkg, '    WHERE cod_in >= ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' and  cod_in <= ' || reg_lookup_in.TABLE_LKUP || '.' || 'MAX' || substr(reg_lookup_in.TABLE_COLUMN_LKUP,4) || ' and ' || reg_lookup_in.TABLE_LKUP_COND || ';');
        end if;
      else 
        if (reg_lookup_in.TABLE_LKUP_COND IS NULL) THEN
        UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in;' );
        else
        UTL_FILE.put_line (fich_salida_pkg, '    WHERE ' || reg_lookup_in.TABLE_LKUP || '.' || reg_lookup_in.TABLE_COLUMN_LKUP || ' = ' || 'cod_in and ' || reg_lookup_in.TABLE_LKUP_COND || ';' );
        end if;
      end if;
    end if;
    /* (20150217) Angel Ruiz. Incidencia debido a que no esta retornando bien el valor de LookUp cuando se hace LookUp por varios campos */
    if (lkup_columns.COUNT > 1) then
      UTL_FILE.put_line (fich_salida_pkg, '');
      UTL_FILE.put_line (fich_salida_pkg, '  end if;');
    end if;
    /***********************************/
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN l_row;');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '  exception');
    UTL_FILE.put_line (fich_salida_pkg, '  when NO_DATA_FOUND then');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN ''GE#'';');
    UTL_FILE.put_line (fich_salida_pkg, '  when others then');
    UTL_FILE.put_line (fich_salida_pkg, '    RETURN ''GE#'';');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '  END ' || v_nombre_func_lookup || ';');
    UTL_FILE.put_line (fich_salida_pkg, '');
    UTL_FILE.put_line (fich_salida_pkg, '');
 
  end gen_cuer_funcion_LKUPD;

/************/


begin
  /* (20141222) ANGEL RUIZ*/
  /* ANTES DE NADA LEEMOS LAS VAR. DE ENTORNO PARA TIEMPO DE GENERACION*/
  SELECT VALOR INTO OWNER_SA FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_SA';
  SELECT VALOR INTO OWNER_T FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_T';
  SELECT VALOR INTO OWNER_DM FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_DM';
  SELECT VALOR INTO OWNER_MTDT FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_MTDT';
  SELECT VALOR INTO NAME_DM FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'NAME_DM';
  SELECT VALOR INTO OWNER_TC FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_TC';
  SELECT VALOR INTO OWNER_TC FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'OWNER_TC';
  SELECT VALOR INTO TABLESPACE_SA FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'TABLESPACE_SA';
  SELECT VALOR INTO v_REQ_NUMER FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'REQ_NUMBER';
  SELECT VALOR INTO PREFIJO_DM FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'PREFIJO_DM';
  SELECT VALOR INTO PAIS FROM MTDT_VAR_ENTORNO WHERE NOMBRE_VAR = 'PAIS_DM';  

  /* (20141222) FIN*/

  open MTDT_TABLA;
  loop
    fetch MTDT_TABLA
    into reg_tabla;
    exit when MTDT_TABLA%NOTFOUND;
    if (reg_tabla.TABLE_TYPE = 'D') 
    then
            dbms_output.put_line ('Estoy en el primer LOOP. La tabla que tengo es: ' || reg_tabla.TABLE_NAME);
            nombre_tabla_reducido := substr(reg_tabla.TABLE_NAME, 5); /* Le quito al nombre de la tabla los caracteres DMD_ o DMF_ */
            /* Angel Ruiz (20141201) Hecho porque hay paquetes que no compilan */
             if (length(reg_tabla.TABLE_NAME) < 25) then
              /* (20221006) ANGEL RUIZ. Recorto la longitud d elos nombres.*/
              --nombre_proceso := reg_tabla.TABLE_NAME;
              nombre_proceso := nombre_tabla_reducido;
            else
              nombre_proceso := nombre_tabla_reducido;
            end if;
            nombre_fich_carga := 'load_ne_' || reg_tabla.TABLE_NAME || '.sh';
            --nombre_fich_pkg := 'pkg_' || reg_tabla.TABLE_NAME || '.sql';
            nombre_fich_pkg := 'pkg_' || reg_tabla.TABLE_NAME || '.sql'; /* Angel Ruiz (20141201) Hecho porque hay paquetes que no compilan */
            nombre_fich_exchange := 'load_ex_' || reg_tabla.TABLE_NAME || '.sh';
            nombre_fich_hist := 'load_dh_' || reg_tabla.TABLE_NAME || '.sh';
            fich_salida_load := UTL_FILE.FOPEN ('SALIDA',nombre_fich_carga,'W');
            fich_salida_pkg := UTL_FILE.FOPEN ('SALIDA',nombre_fich_pkg,'W');
            fich_salida_exchange := UTL_FILE.FOPEN ('SALIDA',nombre_fich_exchange,'W');
            fich_salida_hist := UTL_FILE.FOPEN ('SALIDA',nombre_fich_hist,'W');
            dbms_output.put_line ('El nombre del PAQUETE es: ' || '.pkg_' || nombre_proceso);

            UTL_FILE.put_line (fich_salida_pkg,'CREATE OR REPLACE PACKAGE ' || OWNER_DM || '.pkg_' || nombre_proceso || ' AS');
            lista_scenarios_presentes.delete;
            /******/
            /* COMIEZO LA GENERACION DEL PACKAGE DEFINITION */
            /******/
            
            /* Tercero miro si hay funciones de la regla FUNCTION para crear */
        
            open MTDT_TC_FUNCTION (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_TC_FUNCTION
              into reg_function;
              exit when MTDT_TC_FUNCTION%NOTFOUND;
              prototipo_fun := gen_encabe_regla_function (reg_function);
              UTL_FILE.put_line(fich_salida_pkg,'');
              UTL_FILE.put_line(fich_salida_pkg, prototipo_fun);
            end loop;
            close MTDT_TC_FUNCTION;
            
            /* Tercero genero los metodos para los escenarios */
            open MTDT_SCENARIO (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_SCENARIO
              into reg_scenario;
              exit when MTDT_SCENARIO%NOTFOUND;
              dbms_output.put_line ('Estoy en el segundo LOOP. La tabla que tengo es: ' || reg_tabla.TABLE_NAME || '. El escenario es: ' || reg_scenario.SCENARIO);
              /* Elaboramos los prototipos de la funciones que cargaran los distintos escenarios */
              if (reg_scenario.SCENARIO = 'N')
              then
                /* Tenemos el escenario Nuevo */
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION nreg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION nreg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                --UTL_FILE.put_line(fich_salida_pkg,'');
                /* Guardamos una lista con los escenarios que posee la tabla que vamos a cargar */
                lista_scenarios_presentes.EXTEND;
                lista_scenarios_presentes(lista_scenarios_presentes.LAST) := 'N';
              end if;
              if (reg_scenario.SCENARIO = 'E')
              then
              /* Tenemos el escenario Existente */
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION upt_reg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION ureg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                
                --UTL_FILE.put_line(fich_salida_pkg,'');
                /* Guardamos una lista con los escenarios que posee la tabla que vamos a cargar */
                lista_scenarios_presentes.EXTEND;
                lista_scenarios_presentes(lista_scenarios_presentes.LAST) := 'E';
              end if;
              if (reg_scenario.SCENARIO = 'H')
              then
              /* Tenemos el escenario Historico */
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION hst_reg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION hreg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
                --UTL_FILE.put_line(fich_salida_pkg,'');
                /* Guardamos una lista con los escenarios que posee la tabla que vamos a cargar */
                lista_scenarios_presentes.EXTEND;
                lista_scenarios_presentes(lista_scenarios_presentes.LAST) := 'H';
              end if;
            end loop;   /* Fin del loop MTDT_SCENARIO */
            close MTDT_SCENARIO;
            UTL_FILE.put_line(fich_salida_pkg,'');
            --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_ne_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE lne_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg,'');
            --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_dh_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE ldh_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg,'');
            --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_ex_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE lex_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg,'');
            --UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || reg_scenario.TABLE_NAME || ';' );
            UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || nombre_proceso || ';' );
            UTL_FILE.put_line(fich_salida_pkg, '/' );
            /******/
            /* FIN DEL PACKAGE DEFINITION */
            /******/
            /******/
            /* INICIO DEL PACKGE BODY */
            /******/
            --UTL_FILE.put_line(fich_salida_pkg,'CREATE OR REPLACE PACKAGE BODY APP_MVNODM.pkg_' || reg_scenario.TABLE_NAME || ' AS');
            UTL_FILE.put_line(fich_salida_pkg,'CREATE OR REPLACE PACKAGE BODY ' || OWNER_DM || '.pkg_' || nombre_proceso || ' AS');
            UTL_FILE.put_line(fich_salida_pkg,'');
        
            /* Tercero de todo miro si tengo que generar los cuerpos de las funciones de FUNCTION */
            open MTDT_TC_FUNCTION (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_TC_FUNCTION
              into reg_function;
              exit when MTDT_TC_FUNCTION%NOTFOUND;
              
              genera_cuerpo_regla_function (reg_function);      
            end loop;
            close MTDT_TC_FUNCTION;
            
            /* Tercero genero los cuerpos de los metodos que implementan los escenarios */
            open MTDT_SCENARIO (reg_scenario.TABLE_NAME);
            loop
              fetch MTDT_SCENARIO
              into reg_scenario;
              exit when MTDT_SCENARIO%NOTFOUND;
              dbms_output.put_line ('Estoy en el segundo LOOP MTDT_SCENARIO. El escenario es: ' || reg_scenario.SCENARIO);
              if (reg_scenario.SCENARIO = 'N')
              then
                /* (20160701) Angel Ruiz. BUG: Debo borrar en cada escenario las listas de */
                /* componentes del From y del Where */
                l_FROM.delete;
                l_WHERE.delete;
                /* ESCENARIO NUEVO */
                dbms_output.put_line ('Estoy en el escenario: N');
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION new_reg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION nreg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  IS');
                UTL_FILE.put_line(fich_salida_pkg, '  num_filas_insertadas INTEGER;');
                UTL_FILE.put_line(fich_salida_pkg, '  var_fch_inicio date := sysdate;');
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
                UTL_FILE.put_line(fich_salida_pkg, '');
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT /*+ APPEND PARALLEL(T_SERIADO,10) */');
                else
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT');
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'    INTO ' || OWNER_DM || '.T_' || nombre_tabla_reducido);
                /* parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                UTL_FILE.put_line(fich_salida_pkg,'    (');
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Estoy en el Tercer Loop. El campo es: ' || reg_detail.TABLE_COLUMN);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_detail.TABLE_COLUMN);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_detail.TABLE_COLUMN);
                  end if;
                end loop;
                close MTDT_TC_DETAIL;
                UTL_FILE.put_line(fich_salida_pkg,'    )');
                dbms_output.put_line ('He pasado la parte del INTO');
                /* Fin generacion parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                /* Inicio generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /****/
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT /*+  FULL(SA_PARQUE_SERIADOS1) PARALLEL(SA_PARQUE_SERIADOS1,10)');
                  UTL_FILE.put_line(fich_salida_pkg, '           FULL(DMD_SERIADO) PARALLEL(DMD_SERIADO ,10)');
                  UTL_FILE.put_line(fich_salida_pkg, '           */');
                else
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT');
                end if;
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Antes de la llamada a la funcion con columna: ' || reg_detail.TABLE_COLUMN);
                  columna := genera_campo_select (reg_detail);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || columna);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ,' || columna);
                  end if;        
                end loop;
                close MTDT_TC_DETAIL;
                /****/
                /* Fin generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /****/ 
                /****/
                /* INICIO generacion parte  FROM (TABLA1, TABLA2, TABLA3, ...) */
                /****/
                dbms_output.put_line ('Antes de pasar a la parte del FROM: ');
                UTL_FILE.put_line(fich_salida_pkg,'    FROM');
                
                /* (20220928) Angel Ruiz. Ocurre que vienen las dimensiones con Subqueries. Antes las dimensiones solo tiraban */
                /* de las tablas de Staging.*/
                v_existe_select_tbsn:=0;
                if (regexp_instr (reg_scenario.TABLE_BASE_NAME,'[Ss][Ee][Ll][Ee][Cc][Tt]') > 0) then
                  v_existe_select_tbsn:=1;
                  /* Aparecen queries en lugar de tablas en la columna de nombre de TABLE_BASE_NAME */
                  if (REGEXP_LIKE(reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$')) then
                  /* Se aceptan tablas de TABLE_BASE_NAME que son SELECT que ademas tienen un ALIAS */
                    v_alias_tbsn := trim(substr(REGEXP_SUBSTR (reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$'), 2));
                    --mitabla_look_up := reg_detalle_in.TABLE_LKUP;
                    mitabla_tbsn := procesa_campo_filter(reg_scenario.TABLE_BASE_NAME);
                    v_alias_tbsn_incluido := 1;
                    dbms_output.put_line('EXISTE ALIAS EN LA QUERY TABLE_BASE_NAME');
                  else
                    v_alias_tbsn := 'TBSN';
                    mitabla_tbsn := '(' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ') "TBSN"';
                    --mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
                    v_alias_tbsn_incluido := 0;
                    dbms_output.put_line('NO EXISTE ALIAS EN LA QUERY TABLE_BAE_NAME');
                  end if;
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                else
                  if (instr(reg_scenario.TABLE_BASE_NAME, '.') > 0) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  end if;                  
                end if;
                
                --UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                
                /* (20220928) Angel Ruiz. FIN */
                /* (20160630) Angel Ruiz. NF: Dimensiones sin funciones cache */
                v_hay_look_up:='N';
                if l_FROM.count > 0 then
                  FOR indx IN l_FROM.FIRST .. l_FROM.LAST
                  LOOP
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || l_FROM(indx));
                    v_hay_look_up := 'Y';
                  END LOOP;
                end if;
                /* FIN */
                dbms_output.put_line ('Despues del FROM');
                
                dbms_output.put_line ('Interface COLUMNS: ' || reg_scenario.INTERFACE_COLUMNS);
                dbms_output.put_line ('Table COLUMNS: ' || reg_scenario.TABLE_COLUMNS);
                where_interface_columns := split_string_punto_coma (reg_scenario.INTERFACE_COLUMNS);
                where_table_columns := split_string_punto_coma(reg_scenario.TABLE_COLUMNS);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_interface_columns.count);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_table_columns.count);
        
                IF (where_interface_columns.COUNT > 0  and 
                  where_table_columns.COUNT > 0 and 
                  where_interface_columns.COUNT = where_table_columns.COUNT) 
                THEN
                  /****/
                  /* INICIO generacion parte  WHERE */
                  /****/    
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                  /* Procesamos el campo FILTER . Lo añado a posteriori en la recta final (20141126*/
                  FOR indx IN where_interface_columns.FIRST .. where_interface_columns.LAST
                  LOOP
                    /* (20160301) Angel Ruiz. NF: DECODE en campos */
                    if (regexp_instr(where_table_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(where_interface_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      /* (20220928) Angel Ruiz. Pueden venir subqueries en TBALE_BASE_NAME */
                      if (v_existe_select_tbsn = 1) then
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode(where_interface_columns(indx), v_alias_tbsn, 0) || ' = ' || transformo_decode(where_table_columns(indx), reg_scenario.TABLE_NAME, 1) || ' AND');
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode(where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode(where_table_columns(indx), reg_scenario.TABLE_NAME, 1) || ' AND');
                      end if;
                    elsif (regexp_instr(where_table_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(where_interface_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      if (v_existe_select_tbsn = 1) then
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), v_alias_tbsn, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 1) || ' AND');
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 1) || ' AND');
                      end if;
                    else
                      /* (20220928) Angel Ruiz. Pueden venir subqueries en TBALE_BASE_NAME */
                      if (v_existe_select_tbsn = 1) then
                        /* La columna TABLE_BASE_NAME es una select */
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || v_alias_tbsn || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || '(+) AND');
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.TABLE_BASE_NAME || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || '(+) AND');
                      end if;
                    end if;
                  END LOOP;
                  if (regexp_instr(where_table_columns ( where_table_columns.FIRST), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                    UTL_FILE.put_line(fich_salida_pkg, '    '  || transformo_funcion_outer (where_table_columns ( where_table_columns.FIRST), reg_detail.TABLE_NAME, 0) || ' IS NULL' );
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    '  || reg_detail.TABLE_NAME || '.' || where_table_columns ( where_table_columns.FIRST) || ' IS NULL' );
                  end if;
                  if (reg_scenario.FILTER is not null) then
                    /* Añadimos el campo FILTER */
                    UTL_FILE.put_line(fich_salida_pkg, '    AND');
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter);
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                ELSE /* Puede que no haya un WHERE POR LAS COLUMNAS DE TABLA E INTERFACE PERO SI HAYA FILTER */
                  if (reg_scenario.FILTER is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                    /* Añadimos el campo FILTER */
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter || ';');
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                END IF;
                UTL_FILE.put_line(fich_salida_pkg,'    ;');
                UTL_FILE.put_line(fich_salida_pkg,'    num_filas_insertadas := sql%rowcount;');
                --UTL_FILE.put_line(fich_salida_pkg,'    commit;');
                UTL_FILE.put_line(fich_salida_pkg,'    RETURN num_filas_insertadas;');
                
                UTL_FILE.put_line(fich_salida_pkg,'    exception');
                UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
                UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
                UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Se ha producido un error al insertar los nuevos registros.'');');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
                --UTL_FILE.put_line(fich_salida_pkg,'      rollback;');
                UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
                --UTL_FILE.put_line(fich_salida_pkg,'      return sqlcode;');
                --UTL_FILE.put_line(fich_salida_pkg,'  END new_reg_' || reg_scenario.TABLE_NAME || ';');
                UTL_FILE.put_line(fich_salida_pkg,'  END nreg_' || nombre_proceso || ';');
                UTL_FILE.put_line(fich_salida_pkg, '');
              end if;
                /** COMIENZO  ESCENARIO EXISTENTE **/
                
              if (reg_scenario.SCENARIO = 'E')
              then
                /* (20160701) Angel Ruiz. BUG: Debo borrar en cada escenario las listas de */
                /* componentes del From y del Where */
                l_FROM.delete;
                l_WHERE.delete;
                /* ESCENARIO EXISTENTE */
                dbms_output.put_line ('Estoy en el escenario: E');
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION upt_reg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION ureg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  IS');
                UTL_FILE.put_line(fich_salida_pkg, '  num_filas_upd INTEGER;');
                UTL_FILE.put_line(fich_salida_pkg, '  var_fch_inicio date := sysdate;');        
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
                UTL_FILE.put_line(fich_salida_pkg, '');
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg,'    INSERT /*+ APPEND PARALLEL(T_SERIADO,10) */');
                else
                  UTL_FILE.put_line(fich_salida_pkg,'    INSERT');
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'    INTO ' || OWNER_DM || '.T_' || nombre_tabla_reducido);
                /* parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                UTL_FILE.put_line(fich_salida_pkg,'    (');
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Estoy en el Tercer Loop. El campo es: ' || reg_detail.TABLE_COLUMN);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_detail.TABLE_COLUMN);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_detail.TABLE_COLUMN);
                  end if;
                end loop;
                close MTDT_TC_DETAIL;
                UTL_FILE.put_line(fich_salida_pkg,'    )');
                dbms_output.put_line ('He pasado la parte del INTO');
                /* Fin generacion parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                /* Inicio generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /****/
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT /*+  FULL(SA_PARQUE_SERIADOS1) PARALLEL(SA_PARQUE_SERIADOS1,10)');
                  UTL_FILE.put_line(fich_salida_pkg, '           FULL(DMD_SERIADO) PARALLEL(DMD_SERIADO ,10)');
                  UTL_FILE.put_line(fich_salida_pkg, '           */');
                else
                  UTL_FILE.put_line(fich_salida_pkg,'    SELECT');
                end if;
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Antes de la llamada a la funcion con columna: ' || reg_detail.TABLE_COLUMN);
                  columna := genera_campo_select (reg_detail);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || columna);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ,' || columna);
                  end if;        
                end loop;
                close MTDT_TC_DETAIL;
                /****/
                /* Fin generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /****/ 
                /****/
                /* INICIO generacion parte  FROM (TABLA1, TABLA2, TABLA3, ...) */
                /****/
                dbms_output.put_line ('Antes de pasar a la parte del FROM: ');
                UTL_FILE.put_line(fich_salida_pkg,'    FROM');
                
                /* (20220928) Angel Ruiz. Ocurre que vienen las dimensiones con Subqueries. Antes las dimensiones solo tiraban */
                /* de las tablas de Staging.*/
                v_existe_select_tbsn:=0;
                if (regexp_instr (reg_scenario.TABLE_BASE_NAME,'[Ss][Ee][Ll][Ee][Cc][Tt]') > 0) then
                  v_existe_select_tbsn:=1;
                  /* Aparecen queries en lugar de tablas en la columna de nombre de TABLE_BASE_NAME */
                  if (REGEXP_LIKE(reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$')) then
                  /* Se aceptan tablas de TABLE_BASE_NAME que son SELECT que ademas tienen un ALIAS */
                    v_alias_tbsn := trim(substr(REGEXP_SUBSTR (reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$'), 2));
                    --mitabla_look_up := reg_detalle_in.TABLE_LKUP;
                    mitabla_tbsn := procesa_campo_filter(reg_scenario.TABLE_BASE_NAME);
                    v_alias_tbsn_incluido := 1;
                    dbms_output.put_line('EXISTE ALIAS EN LA QUERY TABLE_BASE_NAME');
                  else
                    v_alias_tbsn := 'TBSN';
                    mitabla_tbsn := '(' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ') "TBSN"';
                    --mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
                    v_alias_tbsn_incluido := 0;
                    dbms_output.put_line('NO EXISTE ALIAS EN LA QUERY TABLE_BAE_NAME');
                  end if;
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                else
                  if (instr(reg_scenario.TABLE_BASE_NAME, '.') > 0) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  end if;                  
                end if;
                
                --UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                
                /* (20220928) Angel Ruiz. FIN */
                /* (20160630) Angel Ruiz. NF: Dimensiones sin funciones cache */
                v_hay_look_up:='N';
                if l_FROM.count > 0 then
                  FOR indx IN l_FROM.FIRST .. l_FROM.LAST
                  LOOP
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || l_FROM(indx));
                    v_hay_look_up := 'Y';
                  END LOOP;
                end if;
                /* FIN */
                dbms_output.put_line ('Despues del FROM');
                
                dbms_output.put_line ('Interface COLUMNS: ' || reg_scenario.INTERFACE_COLUMNS);
                dbms_output.put_line ('Table COLUMNS: ' || reg_scenario.TABLE_COLUMNS);
                where_interface_columns := split_string_punto_coma (reg_scenario.INTERFACE_COLUMNS);
                where_table_columns := split_string_punto_coma(reg_scenario.TABLE_COLUMNS);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_interface_columns.count);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_table_columns.count);
        
                IF (where_interface_columns.COUNT > 0  and 
                  where_table_columns.COUNT > 0 and 
                  where_interface_columns.COUNT = where_table_columns.COUNT) 
                THEN
                  /****/
                  /* INICIO generacion parte  WHERE */
                  /****/    
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                  FOR indx IN where_interface_columns.FIRST .. where_interface_columns.LAST
                  LOOP
                    IF indx = where_interface_columns.LAST THEN
                      /* (20160301) Angel Ruiz. NF: DECODE en campos */
                      if (regexp_instr(where_table_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or instr(where_interface_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_interface_columns(indx), v_alias_tbsn, 0) || ' = ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0));
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0) || ' = ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0));
                        end if;
                      elsif (regexp_instr(where_table_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(where_interface_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), v_alias_tbsn, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0));
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0));
                        end if;
                      else
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || v_alias_tbsn || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx));
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.TABLE_BASE_NAME || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx));
                        end if;
                      end if;
                    ELSE
                      /* (20160301) Angel Ruiz. NF: DECODE en campos */
                      if (regexp_instr(where_table_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or instr(where_interface_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_interface_columns(indx), v_alias_tbsn, 0)  || ' = ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' and');
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0)  || ' = ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' and');
                        end if;
                      elsif (regexp_instr(where_table_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(where_interface_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), v_alias_tbsn, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' and');
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 0) || ' = ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' and');
                        end if;
                      else
                        if (v_existe_select_tbsn = 1) then
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || v_alias_tbsn || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || ' and');
                        else
                          UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.TABLE_BASE_NAME || '.' || where_interface_columns(indx) || ' = ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || ' and');
                        end if;
                      end if;
                    END IF;
                  END LOOP;
                  if (reg_scenario.FILTER is not null) then
                    /* Añadimos el campo FILTER */
                    UTL_FILE.put_line(fich_salida_pkg, '    and');
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter);
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                ELSE /* Puede que no haya un WHERE POR LAS COLUMNAS DE TABLA E INTERFACE PERO SI HAYA FILTER*/
                  if (reg_scenario.FILTER is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                    /* Añadimos el campo FILTER */
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter);
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                END IF;
                UTL_FILE.put_line(fich_salida_pkg,'    ;');
                UTL_FILE.put_line(fich_salida_pkg,'    num_filas_upd := sql%rowcount;');
                --UTL_FILE.put_line(fich_salida_pkg,'    commit;');
                UTL_FILE.put_line(fich_salida_pkg,'    RETURN num_filas_upd;');
                
                UTL_FILE.put_line(fich_salida_pkg,'    exception');
                UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
                UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
                UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Se ha producido un error al actualizar los registros.'');');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
                --UTL_FILE.put_line(fich_salida_pkg,'      rollback;');
                UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
                --UTL_FILE.put_line(fich_salida_pkg,'  END upt_reg_' || reg_scenario.TABLE_NAME || ';');
                UTL_FILE.put_line(fich_salida_pkg,'  END ureg_' || nombre_proceso || ';');
                UTL_FILE.put_line(fich_salida_pkg, '');
              end if;
              /** COMIENZO  ESCENARIO HISTORICO **/
              if (reg_scenario.SCENARIO = 'H')
              then
                /* (20160701) Angel Ruiz. BUG: Debo borrar en cada escenario las listas de */
                /* componentes del From y del Where */
                l_FROM.delete;
                l_WHERE.delete;
                /* ESCENARIO HISTORICO */
                dbms_output.put_line ('Estoy en el escenario: H');
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION hst_reg_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION hreg_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  IS');
                UTL_FILE.put_line(fich_salida_pkg, '  num_filas_hst INTEGER:=0;');
                UTL_FILE.put_line(fich_salida_pkg, '  var_fch_inicio date := sysdate;');        
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
                UTL_FILE.put_line(fich_salida_pkg, '');
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT /*+ APPEND PARALLEL(T_SERIADO,10) */');
                else
                  UTL_FILE.put_line(fich_salida_pkg,'    INSERT');
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'    INTO ' || OWNER_DM || '.T_' || nombre_tabla_reducido);
                /* parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                UTL_FILE.put_line(fich_salida_pkg,'    (');
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Estoy en el Tercer Loop. El campo es: ' || reg_detail.TABLE_COLUMN);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_detail.TABLE_COLUMN);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_detail.TABLE_COLUMN);
                  end if;
                end loop;
                close MTDT_TC_DETAIL;
                UTL_FILE.put_line(fich_salida_pkg,'    )');
                dbms_output.put_line ('He pasado la parte del INTO');
                /* Fin generacion parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                /* Inicio generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /* Inicializamos las listas que van a contener las tablas del FROM y las clausulas WHERE*/
                l_FROM.delete;
                l_WHERE.delete;
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT /*+ FULL(DMD_SERIADO) PARALLEL(DMD_SERIADO ,10) */');
                else
                  UTL_FILE.put_line(fich_salida_pkg,'    SELECT');
                end if;
                open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                primera_col := 1;
                loop
                  fetch MTDT_TC_DETAIL
                  into reg_detail;
                  exit when MTDT_TC_DETAIL%NOTFOUND;
                  dbms_output.put_line ('Antes de la llamada a la funcion con columna: ' || reg_detail.TABLE_COLUMN);
                  columna := genera_campo_select (reg_detail);
                  if primera_col = 1 then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || columna);
                    primera_col := 0;
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ,' || columna);
                  end if;        
                end loop;
                close MTDT_TC_DETAIL;
                /****/
                /* Fin generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                /****/ 
                /****/
                /* INICIO generacion parte  FROM (TABLA1, TABLA2, TABLA3, ...) */
                /****/
                dbms_output.put_line ('Antes de pasar a la parte del FROM: ');
                UTL_FILE.put_line(fich_salida_pkg,'    FROM');
                
                /* (20220928) Angel Ruiz. Ocurre que vienen las dimensiones con Subqueries. Antes las dimensiones solo tiraban */
                /* de las tablas de Staging.*/
                v_existe_select_tbsn:=0;
                if (regexp_instr (reg_scenario.TABLE_BASE_NAME,'[Ss][Ee][Ll][Ee][Cc][Tt]') > 0) then
                  v_existe_select_tbsn:=1;
                  /* Aparecen queries en lugar de tablas en la columna de nombre de TABLE_BASE_NAME */
                  if (REGEXP_LIKE(reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$')) then
                  /* Se aceptan tablas de TABLE_BASE_NAME que son SELECT que ademas tienen un ALIAS */
                    v_alias_tbsn := trim(substr(REGEXP_SUBSTR (reg_scenario.TABLE_BASE_NAME, '\) *[a-zA-Z_0-9]+$'), 2));
                    --mitabla_look_up := reg_detalle_in.TABLE_LKUP;
                    mitabla_tbsn := procesa_campo_filter(reg_scenario.TABLE_BASE_NAME);
                    v_alias_tbsn_incluido := 1;
                    dbms_output.put_line('EXISTE ALIAS EN LA QUERY TABLE_BASE_NAME');
                  else
                    v_alias_tbsn := 'TBSN';
                    mitabla_tbsn := '(' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ') "TBSN"';
                    --mitabla_look_up := '(' || reg_detalle_in.TABLE_LKUP || ') "LKUP_' || l_FROM.count || '"';
                    v_alias_tbsn_incluido := 0;
                    dbms_output.put_line('NO EXISTE ALIAS EN LA QUERY TABLE_BAE_NAME');
                  end if;
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || procesa_campo_filter(reg_scenario.TABLE_BASE_NAME) || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                else
                  if (instr(reg_scenario.TABLE_BASE_NAME, '.') > 0) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  else
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  end if;                  
                end if;
                
                --UTL_FILE.put_line(fich_salida_pkg, '    ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME || ', ' || OWNER_DM || '.' || reg_scenario.TABLE_NAME);

                /* (20160630) Angel Ruiz. NF: Dimensiones sin funciones cache */
                v_hay_look_up:='N';
                if l_FROM.count > 0 then
                  FOR indx IN l_FROM.FIRST .. l_FROM.LAST
                  LOOP
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || l_FROM(indx));
                    v_hay_look_up := 'Y';
                  END LOOP;
                end if;
                /* FIN */
                dbms_output.put_line ('Despues del FROM');
                dbms_output.put_line ('Interface COLUMNS: ' || reg_scenario.INTERFACE_COLUMNS);
                dbms_output.put_line ('Table COLUMNS: ' || reg_scenario.TABLE_COLUMNS);
                where_interface_columns := split_string_punto_coma (reg_scenario.INTERFACE_COLUMNS);
                where_table_columns := split_string_punto_coma(reg_scenario.TABLE_COLUMNS);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_interface_columns.count);
                dbms_output.put_line ('El numero de valores del Where interface es: ' || where_table_columns.count);
        
                IF (where_interface_columns.COUNT > 0  and 
                  where_table_columns.COUNT > 0 and 
                  where_interface_columns.COUNT = where_table_columns.COUNT) 
                THEN
                  /****/
                  /* INICIO generacion parte  WHERE */
                  /****/    
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                  /* Procesamos el campo FILTER . Lo añado a posteriori en la recta final (20141126*/
                  FOR indx IN where_interface_columns.FIRST .. where_interface_columns.LAST
                  LOOP
                    /* (20160301) Angel Ruiz. NF: DECODE en campos */
                    if (regexp_instr(where_table_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0 or regexp_instr(where_interface_columns(indx), '[Dd][Ee][Cc][Oo][Dd][Ee]') > 0) then
                      if (v_existe_select_tbsn = 1) then
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' = ' || transformo_decode (where_interface_columns(indx), v_alias_tbsn, 1) || ' AND');                      
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_decode (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' = ' || transformo_decode (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 1) || ' AND');
                      end if;
                    elsif (regexp_instr(where_table_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0 or regexp_instr(where_interface_columns(indx), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                      if (v_existe_select_tbsn = 1) then
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' = ' || transformo_funcion_outer (where_interface_columns(indx), v_alias_tbsn, 1) || ' AND');
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || transformo_funcion_outer (where_table_columns(indx), reg_scenario.TABLE_NAME, 0) || ' = ' || transformo_funcion_outer (where_interface_columns(indx), reg_scenario.TABLE_BASE_NAME, 1) || ' AND');
                      end if;
                    else
                      if (v_existe_select_tbsn = 1) then
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || ' = ' || v_alias_tbsn || '.' || where_interface_columns(indx) || ' (+) AND');
                      else
                        UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.TABLE_NAME || '.' || where_table_columns(indx) || ' = ' || reg_scenario.TABLE_BASE_NAME || '.' || where_interface_columns(indx) || ' (+) AND');
                      end if;
                    end if;
                  END LOOP;
                  if (regexp_instr(where_interface_columns ( where_interface_columns.FIRST), '[Ll][Tt][Rr][Ii][Mm]') > 0) then
                    if (v_existe_select_tbsn = 1) then
                      UTL_FILE.put_line(fich_salida_pkg, '    '  || transformo_funcion_outer (where_interface_columns ( where_interface_columns.FIRST), v_alias_tbsn, 0) || ' IS NULL' );
                    else
                      UTL_FILE.put_line(fich_salida_pkg, '    '  || transformo_funcion_outer (where_interface_columns ( where_interface_columns.FIRST), reg_scenario.TABLE_BASE_NAME, 0) || ' IS NULL' );
                    end if;
                  else
                    if (v_existe_select_tbsn = 1) then
                      UTL_FILE.put_line(fich_salida_pkg, '    ' || v_alias_tbsn || '.' || where_interface_columns(where_interface_columns.FIRST) || ' IS NULL' );
                    else
                      UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_BASE_NAME || '.' || where_interface_columns(where_interface_columns.FIRST) || ' IS NULL' );
                    end if;
                  end if;                    
                  if (reg_scenario.FILTER is not null) then
                    /* Anadimos el campo FILTER */
                    UTL_FILE.put_line(fich_salida_pkg, '    AND');
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter);
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                ELSE /* Puede que no haya un WHERE POR LAS COLUMNAS DE TABLA E INTERFACE PERO SI HAYA FILTER*/
                  if (reg_scenario.FILTER is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || 'WHERE ');
                    /* Anadimos el campo FILTER */
                    campo_filter := procesa_campo_filter(reg_scenario.FILTER);
                    UTL_FILE.put_line(fich_salida_pkg, '    ' || campo_filter);
                  end if;
                  if (v_hay_look_up = 'Y') then
                  /* Hay tablas de LookUp. Hay que poner las condiciones de los Where*/
                    dbms_output.put_line ('Entro en el que hay Tablas de LookUp');          
                    /* (20150109) Angel Ruiz. Anyadimos las tablas necesarias para hacer los LOOK_UP */
                    UTL_FILE.put_line(fich_salida_pkg, '   ' || 'AND');
                    FOR indx IN l_WHERE.FIRST .. l_WHERE.LAST
                    LOOP
                      UTL_FILE.put_line(fich_salida_pkg, '   ' || l_WHERE(indx));
                    END LOOP;
                    /* FIN */
                  end if;
                END IF;
                UTL_FILE.put_line(fich_salida_pkg,'    ;');
                UTL_FILE.put_line(fich_salida_pkg,'    num_filas_hst := sql%rowcount;');

                /**************************************************/
                /* (20150114) Angel Ruiz . VIENE LA PARTE RECIENTE PARA PROCESAR SI LA DIMENSION POSEE CARGA MANUAL INICIAL */
                /* Comprobamos que la Dimension no tiene carga inicial manual */
                if (reg_scenario.FILTER_CARGA_INI is not null) then
                  /* Si hay un valor en este campo, es que la dimension posee registros cargados al margen de las cargas por interfaz */
                  /* Con lo que haY que cargarlos en T_* para que no se pierdan */
                  /* al margen de la logica normal de carga de la dimension */
                  UTL_FILE.put_line(fich_salida_pkg, '');
                  UTL_FILE.put_line(fich_salida_pkg,'    INSERT');
                  UTL_FILE.put_line(fich_salida_pkg,'    INTO ' || OWNER_DM || '.T_' || nombre_tabla_reducido);
                  /* parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                  UTL_FILE.put_line(fich_salida_pkg,'    (');
                  open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                  primera_col := 1;
                  loop
                    fetch MTDT_TC_DETAIL
                    into reg_detail;
                    exit when MTDT_TC_DETAIL%NOTFOUND;
                    dbms_output.put_line ('Estoy en el Tercer Loop. El campo es: ' || reg_detail.TABLE_COLUMN);
                    if primera_col = 1 then
                      UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_detail.TABLE_COLUMN);
                      primera_col := 0;
                    else
                      UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_detail.TABLE_COLUMN);
                    end if;
                  end loop;
                  close MTDT_TC_DETAIL;
                  UTL_FILE.put_line(fich_salida_pkg,'    )');
                  dbms_output.put_line ('He pasado la parte del INTO');
                  /* Fin generacion parte  INTO (CMPO1, CAMPO2, CAMPO3, ...) */
                  /* Inicio generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                  /****/
                  UTL_FILE.put_line(fich_salida_pkg,'    SELECT');
                  open MTDT_TC_DETAIL (reg_scenario.TABLE_NAME, reg_scenario.SCENARIO);
                  primera_col := 1;
                  loop
                    fetch MTDT_TC_DETAIL
                    into reg_detail;
                    exit when MTDT_TC_DETAIL%NOTFOUND;
                    dbms_output.put_line ('Antes de la llamada a la funcion con columna: ' || reg_detail.TABLE_COLUMN);
                    columna := genera_campo_select (reg_detail);
                    if primera_col = 1 then
                      UTL_FILE.put_line(fich_salida_pkg, '    ' || columna);
                      primera_col := 0;
                    else
                      UTL_FILE.put_line(fich_salida_pkg, '    ,' || columna);
                    end if;        
                  end loop;
                  close MTDT_TC_DETAIL;
                  /****/
                  /* Fin generacion parte  SELECT (CAMPO1, CAMPO2, CAMPO3, ...) */
                  /****/ 
                  /****/
                  /* INICIO generacion parte  FROM (TABLA1, TABLA2, TABLA3, ...) */
                  /****/
                  dbms_output.put_line ('Antes de pasar a la parte del FROM: ');
                  UTL_FILE.put_line(fich_salida_pkg,'    FROM');
                  UTL_FILE.put_line(fich_salida_pkg,'    ' ||  OWNER_DM || '.' || reg_scenario.TABLE_NAME);
                  UTL_FILE.put_line(fich_salida_pkg,'    WHERE');
                  UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_scenario.FILTER_CARGA_INI || ';');
                  UTL_FILE.put_line(fich_salida_pkg,'');
                  UTL_FILE.put_line(fich_salida_pkg,'    num_filas_hst := num_filas_hst + sql%rowcount;');
                end if;                
                /**************************************************/
                
                --UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg,'    num_filas_hst := sql%rowcount;');
                --UTL_FILE.put_line(fich_salida_pkg,'    commit;');
                UTL_FILE.put_line(fich_salida_pkg,'    RETURN num_filas_hst;');
                
                UTL_FILE.put_line(fich_salida_pkg,'    exception');
                UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
                UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
                UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Se ha producido un error al historificar los registros'');');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
                --UTL_FILE.put_line(fich_salida_pkg,'      rollback;');
                UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
                --UTL_FILE.put_line(fich_salida_pkg,'  END hreg_' || reg_scenario.TABLE_NAME || ';');
                UTL_FILE.put_line(fich_salida_pkg,'  END hreg_' || nombre_proceso || ';');
                UTL_FILE.put_line(fich_salida_pkg, '');
              end if;
            end loop;
          close MTDT_SCENARIO;
          
           --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_ne_' || reg_tabla.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
           UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE lne_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
           UTL_FILE.put_line(fich_salida_pkg, '  IS');
           UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_new integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_updt integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_hist integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  siguiente_paso_a_ejecutar PLS_integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  inicio_paso_tmr TIMESTAMP;');
           UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '    /* INICIAMOS EL BUCLE POR CADA UNA DE LAS INSERCIONES EN LA TABLA DE STAGING */');
           UTL_FILE.put_line(fich_salida_pkg, '    /* EN EL CASO DE LAS DIMENSIONES SOLO DEBE HABER UN REGISTRO YA QUE NO HAY RETRASADOS */');
           UTL_FILE.put_line(fich_salida_pkg, '    dbms_output.put_line (''Inicio del proceso de carga: ''' || ' || ''' || 'load_ne_' || reg_tabla.TABLE_NAME || ''' || ''.'');');
           UTL_FILE.put_line(fich_salida_pkg, '    siguiente_paso_a_ejecutar :=' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.siguiente_paso (''load_ne_' || reg_tabla.TABLE_NAME || '.sh'', to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
           UTL_FILE.put_line(fich_salida_pkg, '    if (forzado_in = ''F'') then');
           UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := 1;');
           UTL_FILE.put_line(fich_salida_pkg, '    end if;');
           UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 1) then');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
           --UTL_FILE.put_line(fich_salida_pkg, '      SET TRANSACTION NAME ''TRAN_' || reg_tabla.TABLE_NAME || ''';');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '      /* Truncamos la tabla antes de insertar los nuevos registros por si se lanza dos veces*/');
           UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE ' || OWNER_T || '.T_' || nombre_tabla_reducido || ''';');    
           
           /* Generamos las llamadas a los procedimientos para realizar las cargas */
           /* Generamos la llamada para cargar los registros NUEVOS */
            FOR indx IN lista_scenarios_presentes.FIRST .. lista_scenarios_presentes.LAST
            LOOP
              if lista_scenarios_presentes (indx) = 'N'
              then
                --UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_new := new_reg_' || reg_tabla.TABLE_NAME || ' (fch_carga_in, fch_datos_in);');
                /* (20180220) Angel Ruiz. Se añade solo para DMD_SERIADO */
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''ALTER INDEX APP_DISTDM.IDX_NT_T_SERIADO UNUSABLE'';');
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_new := nreg_' || nombre_proceso || ' (fch_carga_in, fch_datos_in);');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''El numero de registros insertados es: '' || numero_reg_new || ''.'');');
                /* (20180220) Angel Ruiz. Se añade solo para DMD_SERIADO */
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '      COMMIT;');
                end if;
              end if;
            END LOOP;
           /* Generamos la llamada para cargar los registros EXISTENTES */
            FOR indx IN lista_scenarios_presentes.FIRST .. lista_scenarios_presentes.LAST
            LOOP
              if lista_scenarios_presentes (indx) = 'E'
              then
                --UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_updt := upt_reg_' || reg_tabla.TABLE_NAME || ' (fch_carga_in, fch_datos_in);');
                UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_updt := ureg_' || nombre_proceso || ' (fch_carga_in, fch_datos_in);');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''El numero de registros actualizados es: '' || numero_reg_updt || ''.'');');
              end if;
            END LOOP;
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, por eso aparece un 1 en el campo de paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, y ha terminado OK por eso aparece un 0 en el siguiente campo */');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ne_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), numero_reg_new, numero_reg_updt);');
            UTL_FILE.put_line(fich_salida_pkg, '      COMMIT;');
            UTL_FILE.put_line(fich_salida_pkg, '    end if;');
            
        /***********/
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg,'    RETURN 0;');
            
            UTL_FILE.put_line(fich_salida_pkg,'    exception');
            --UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
            --UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
            UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''EL PROCESO HA ACABADO CON ERRORES.'');');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
            UTL_FILE.put_line(fich_salida_pkg,'      ROLLBACK;');
            UTL_FILE.put_line(fich_salida_pkg, '     ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ne_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 1, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            UTL_FILE.put_line(fich_salida_pkg,'      commit;        /* commit de la insercion del fin fallido*/');
            UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '  END load_ne_' || reg_tabla.TABLE_NAME || ';');
            UTL_FILE.put_line(fich_salida_pkg, '  END lne_' || nombre_proceso || ';');
            UTL_FILE.put_line(fich_salida_pkg, '');
        /***********/
        
           --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_dh_' || reg_tabla.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
           UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE ldh_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
           UTL_FILE.put_line(fich_salida_pkg, '  IS');
           UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_hist integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  inicio_paso_tmr TIMESTAMP;');
           UTL_FILE.put_line(fich_salida_pkg, '  siguiente_paso_a_ejecutar PLS_integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '    /* INICIAMOS EL BUCLE POR CADA UNA DE LAS INSERCIONES EN LA TABLA DE STAGING */');
           UTL_FILE.put_line(fich_salida_pkg, '    /* EN EL CASO DE LAS DIMENSIONES SOLO DEBE HABER UN REGISTRO YA QUE NO HAY RETRASADOS */');
           UTL_FILE.put_line(fich_salida_pkg, '    siguiente_paso_a_ejecutar := ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.siguiente_paso (''load_dh_' || reg_tabla.TABLE_NAME || '.sh'', to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
           UTL_FILE.put_line(fich_salida_pkg, '    if (forzado_in = ''F'') then');
           UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := 1;');
           UTL_FILE.put_line(fich_salida_pkg, '    end if;');
           UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 1) then');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '      dbms_output.put_line (''Inicio del proceso de carga: ''' || ' || ''' || 'load_dh_' || reg_tabla.TABLE_NAME || ''' || ''.'');');
           UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
           --UTL_FILE.put_line(fich_salida_pkg, '      SET TRANSACTION NAME ''TRAN_' || reg_tabla.TABLE_NAME || ''';');
           UTL_FILE.put_line(fich_salida_pkg, '');
        
           /* Generamos la llamada para cargar los registros HISTORICO */
            FOR indx IN lista_scenarios_presentes.FIRST .. lista_scenarios_presentes.LAST
            LOOP
              if lista_scenarios_presentes (indx) = 'H'
              then
                --UTL_FILE.put_line(fich_salida_pkg,'    numero_reg_hist := hst_reg_' || reg_tabla.TABLE_NAME || ' (fch_carga_in, fch_datos_in);');
                UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_hist := hreg_' || nombre_proceso || ' (fch_carga_in, fch_datos_in);');
                UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''El numero de registros historificados es: '' || numero_reg_hist || ''.'');');
                if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
                  UTL_FILE.put_line(fich_salida_pkg, '      COMMIT;');
                end if;
              end if;
            END LOOP;
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, por eso aparece un 1 en el campo de paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, y ha terminado OK por eso aparece un 0 en el siguiente campo */');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_dh_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), numero_reg_hist);');
            
            UTL_FILE.put_line(fich_salida_pkg, '      COMMIT;');
            if (reg_tabla.TABLE_NAME='DMD_SERIADO') then
              UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''ALTER INDEX APP_DISTDM.IDX_NT_T_SERIADO REBUILD PARALLEL 16'';');
              UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''ALTER INDEX APP_DISTDM.IDX_NT_T_SERIADO NOPARALLEL'';');
            end if;
            
            UTL_FILE.put_line(fich_salida_pkg, '    end if;');
            
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg,'    RETURN 0;');
            
            UTL_FILE.put_line(fich_salida_pkg,'    exception');
            --UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
            --UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
            UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''EL PROCESO HA ACABADO CON ERRORES.'');');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
            UTL_FILE.put_line(fich_salida_pkg,'      ROLLBACK;');
            UTL_FILE.put_line(fich_salida_pkg, '     ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_dh_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 1, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            UTL_FILE.put_line(fich_salida_pkg,'      commit;');
            UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '  END load_dh_' || reg_tabla.TABLE_NAME || ';');
            UTL_FILE.put_line(fich_salida_pkg, '  END ldh_' || nombre_proceso || ';');
            UTL_FILE.put_line(fich_salida_pkg, '');
        /***********/
            --UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_ex_' || reg_scenario.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE lex_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
            UTL_FILE.put_line(fich_salida_pkg, '  IS');
            UTL_FILE.put_line(fich_salida_pkg, '  siguiente_paso_a_ejecutar PLS_integer := 0;');
            UTL_FILE.put_line(fich_salida_pkg, '  inicio_paso_tmr TIMESTAMP;');
            UTL_FILE.put_line(fich_salida_pkg, '  num_reg INTEGER;');
            UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '    dbms_output.put_line (''Inicio del proceso de carga: ''' || ' || ''' || 'load_ex_' || reg_tabla.TABLE_NAME || ''' || ''.'');');
            UTL_FILE.put_line(fich_salida_pkg, '    /* Lo primero que se hace es mirar que paso es el primero a ejecutar */');
            UTL_FILE.put_line(fich_salida_pkg, '    siguiente_paso_a_ejecutar := ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.siguiente_paso (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'', ' || 'to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '    if (forzado_in = ''F'') then');
            UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := 1;');
            UTL_FILE.put_line(fich_salida_pkg, '    end if;');
            
            UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 1) then');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos "ex"  tienen cuatro pasos */');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Comienza en el primer paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg,'      SELECT COUNT(*) INTO num_reg FROM ' || OWNER_DM || '.' || reg_tabla.TABLE_NAME || ';');
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME ' || reg_tabla.TABLE_NAME || ' TO ' || nombre_tabla_reducido || '_OLD''' || ';');    
            UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE ' || OWNER_DM || '.' || reg_tabla.TABLE_NAME || ''';');    
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), 0, 0, num_reg);');
            UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el segundo paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');    
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME T_' || nombre_tabla_reducido || ' TO ' || reg_tabla.TABLE_NAME || ''';');
            /* (20180220) Angel Ruiz. BUG en la parte de exchage*/
            UTL_FILE.put_line(fich_salida_pkg, '      INSERT /*+ APPEND */' );
            UTL_FILE.put_line(fich_salida_pkg, '      INTO ' || OWNER_DM || '.' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_pkg, '      (');
            primera_col := 1;
            OPEN c_mtdt_modelo_logico_COLUMNA (reg_tabla.TABLE_NAME);
            LOOP
              FETCH c_mtdt_modelo_logico_COLUMNA
              INTO r_mtdt_modelo_logico_COLUMNA;
              EXIT WHEN c_mtdt_modelo_logico_COLUMNA%NOTFOUND;
              if primera_col = 1 then /* Si es primera columna */
                UTL_FILE.put_line(fich_salida_pkg, '      ' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
                primera_col := 0;
              else
                UTL_FILE.put_line(fich_salida_pkg, '     ,' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
              end if;
            END LOOP; 
            CLOSE c_mtdt_modelo_logico_COLUMNA;
            UTL_FILE.put_line(fich_salida_pkg, '      )');
            UTL_FILE.put_line(fich_salida_pkg, '      SELECT');
            primera_col := 1;
            OPEN c_mtdt_modelo_logico_COLUMNA (reg_tabla.TABLE_NAME);
            LOOP
              FETCH c_mtdt_modelo_logico_COLUMNA
              INTO r_mtdt_modelo_logico_COLUMNA;
              EXIT WHEN c_mtdt_modelo_logico_COLUMNA%NOTFOUND;
              if primera_col = 1 then /* Si es primera columna */
                UTL_FILE.put_line(fich_salida_pkg, '      ' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
                primera_col := 0;
              else
                UTL_FILE.put_line(fich_salida_pkg, '     ,' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
              end if;
            END LOOP; 
            CLOSE c_mtdt_modelo_logico_COLUMNA;
            UTL_FILE.put_line(fich_salida_pkg, '      FROM ' || OWNER_DM || '.T_' || nombre_tabla_reducido || ';');
            UTL_FILE.put_line(fich_salida_pkg, '      num_reg := sql%rowcount;');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '2, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), num_reg);');
            UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');    
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el tercer paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');        
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME ' || nombre_tabla_reducido || '_OLD TO T_' || nombre_tabla_reducido || ''';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '3, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el cuarto paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');        
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE app_mvnodm.T_' || nombre_tabla_reducido || ' DROP STORAGE'';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '4, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
           -- UTL_FILE.put_line(fich_salida_pkg, '      commit;');
           -- UTL_FILE.put_line(fich_salida_pkg, '      dbms_output.put_line (''EL PROCESO HA ACABADO OK'');');
            UTL_FILE.put_line(fich_salida_pkg, '    end if; ');
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 2) then');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos "ex"  tienen cuatro pasos */');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Comienza en el segundo paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME T_' || nombre_tabla_reducido || ' TO ' || reg_tabla.TABLE_NAME || ''';');    
            --UTL_FILE.put_line(fich_salida_pkg, '      INSERT /*+ APPEND */ INTO ' || OWNER_DM || '.' || reg_tabla.TABLE_NAME || ' SELECT * FROM ' || OWNER_DM || '.T_' || nombre_tabla_reducido || ';');
            /* (20180220) Angel Ruiz. BUG en la parte de exchage*/
            UTL_FILE.put_line(fich_salida_pkg, '      INSERT /*+ APPEND */' );
            UTL_FILE.put_line(fich_salida_pkg, '      INTO ' || OWNER_DM || '.' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_pkg, '      (');
            primera_col := 1;
            OPEN c_mtdt_modelo_logico_COLUMNA (reg_tabla.TABLE_NAME);
            LOOP
              FETCH c_mtdt_modelo_logico_COLUMNA
              INTO r_mtdt_modelo_logico_COLUMNA;
              EXIT WHEN c_mtdt_modelo_logico_COLUMNA%NOTFOUND;
              if primera_col = 1 then /* Si es primera columna */
                UTL_FILE.put_line(fich_salida_pkg, '      ' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
                primera_col := 0;
              else
                UTL_FILE.put_line(fich_salida_pkg, '     ,' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
              end if;
            END LOOP; 
            CLOSE c_mtdt_modelo_logico_COLUMNA;
            UTL_FILE.put_line(fich_salida_pkg, '      )');
            UTL_FILE.put_line(fich_salida_pkg, '      SELECT');
            primera_col := 1;
            OPEN c_mtdt_modelo_logico_COLUMNA (reg_tabla.TABLE_NAME);
            LOOP
              FETCH c_mtdt_modelo_logico_COLUMNA
              INTO r_mtdt_modelo_logico_COLUMNA;
              EXIT WHEN c_mtdt_modelo_logico_COLUMNA%NOTFOUND;
              if primera_col = 1 then /* Si es primera columna */
                UTL_FILE.put_line(fich_salida_pkg, '      ' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
                primera_col := 0;
              else
                UTL_FILE.put_line(fich_salida_pkg, '     ,' || r_mtdt_modelo_logico_COLUMNA.COLUMN_NAME);
              end if;
            END LOOP; 
            CLOSE c_mtdt_modelo_logico_COLUMNA;
            UTL_FILE.put_line(fich_salida_pkg, '      FROM ' || OWNER_DM || '.T_' || nombre_tabla_reducido || ';');
            
            UTL_FILE.put_line(fich_salida_pkg, '      num_reg := sql%rowcount;');            
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '2, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), num_reg);');
            UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');    
            
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el tercer paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');        
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME ' || nombre_tabla_reducido || '_OLD TO T_' || nombre_tabla_reducido || ''';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '3, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el cuarto paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');        
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE app_mvnodm.T_' || nombre_tabla_reducido || ' DROP STORAGE'';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '4, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      dbms_output.put_line (''EL PROCESO HA ACABADO OK'');');
            UTL_FILE.put_line(fich_salida_pkg, '    end if; ');
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 3) then');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos "ex"  tienen cuatro pasos */');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* Comienza en el tercer paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''RENAME ' || nombre_tabla_reducido || '_OLD TO T_' || nombre_tabla_reducido || ''';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '3, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el cuarto paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := siguiente_paso_a_ejecutar+1;');        
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE app_mvnodm.T_' || nombre_tabla_reducido || ' DROP STORAGE'';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '4, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      dbms_output.put_line (''EL PROCESO HA ACABADO OK'');');
            --UTL_FILE.put_line(fich_salida_pkg, '    end if; ');
            --UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 4) then');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos "ex"  tienen cuatro pasos */');
            --UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
            --UTL_FILE.put_line(fich_salida_pkg, '      /* comienza el cuarto paso */');
            --UTL_FILE.put_line(fich_salida_pkg, '      EXECUTE IMMEDIATE ''TRUNCATE TABLE app_mvnodm.T_' || nombre_tabla_reducido || ' DROP STORAGE'';');    
            --UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, '      app_mvnomt.pkg_DMF_MONITOREO_MVNO.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'',' || '4, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            --UTL_FILE.put_line(fich_salida_pkg, '      commit;');
            --UTL_FILE.put_line(fich_salida_pkg, '      dbms_output.put_line (''EL PROCESO HA ACABADO OK'');');
            --UTL_FILE.put_line(fich_salida_pkg, '    end if; ');
            --UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg,'    exception');
            UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''EL PROCESO HA ACABADO CON ERRORES.'');');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
            UTL_FILE.put_line(fich_salida_pkg,'      ROLLBACK;');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh'', ' || 'siguiente_paso_a_ejecutar, 1, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
            UTL_FILE.put_line(fich_salida_pkg, '');
            
            --UTL_FILE.put_line(fich_salida_pkg,'  END load_ex_' || reg_tabla.TABLE_NAME || ';');
            UTL_FILE.put_line(fich_salida_pkg,'  END lex_' || nombre_proceso || ';');
            UTL_FILE.put_line(fich_salida_pkg, '');
            /****/
            /* FIN de la generacion de la funcion load */
            /****/
            
            --UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || reg_tabla.TABLE_NAME || ';' );
            UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || nombre_proceso || ';' );
            UTL_FILE.put_line(fich_salida_pkg, '/' );
            /******/
            /* FIN DE LA GENERACION DEL PACKAGE */
            /******/    
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg, 'grant execute on app_mvnodm.pkg_' || reg_tabla.TABLE_NAME || ' to app_mvnotc;');
            UTL_FILE.put_line(fich_salida_pkg, 'grant execute on ' || OWNER_DM || '.pkg_' || nombre_proceso || ' to ' || OWNER_TC || ';');
            UTL_FILE.put_line(fich_salida_pkg, '/');
            UTL_FILE.put_line(fich_salida_pkg, 'exit SUCCESS;');
        
          
            /******/
            /* FIN DEL PACKGE BODY */
            /******/    
        /****************************************************/
        /****************************************************/
        /****************************************************/
        /****************************************************/
        /****************************************************/
            /******/
            /* INICIO DE LA GENERACION DEL sh de NUEVOS Y EXISTENTES */
            /******/
            
        /***********************/
            UTL_FILE.put_line(fich_salida_load, '#!/bin/bash');
            UTL_FILE.put_line(fich_salida_load, '#############################################################################');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Telefonica Moviles Mexico SA DE CV                                        #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Archivo    :       load_ne_' ||  reg_tabla.TABLE_NAME || '.sh                            #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Autor      : <SYNAPSYS>.                                                  #');
            UTL_FILE.put_line(fich_salida_load, '# Proposito  : Shell que ejecuta los procesos de STAGING para ' || NAME_DM || '.        #');
            UTL_FILE.put_line(fich_salida_load, '# Parametros :                                                              #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Ejecucion  :                                                              #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Historia : 31-Octubre-2014 -> Creacion                                    #');
            UTL_FILE.put_line(fich_salida_load, '# Caja de Control - M :                                                     #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Observaciones: En caso de reproceso colocar la fecha deseada              #');
            UTL_FILE.put_line(fich_salida_load, '#                en formato YYYYMMDD la fecha minima es a dia vencido       #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Caducidad del Requerimiento :                                             #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Dependencias :                                                            #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Usuario:                                                                  #');   
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Telefono:                                                                 #');   
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '#############################################################################');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '#Obtiene los password de base de datos                                         #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'InsertaFinFallido()');
            UTL_FILE.put_line(fich_salida_load, '{');
            UTL_FILE.put_line(fich_salida_load, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_load, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_ne_' || reg_tabla.TABLE_NAME || '.sh 1 1 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_load, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_load, '   then');
            UTL_FILE.put_line(fich_salida_load, '      SUBJECT="${INTERFAZ}:Error en InsertarFinFallido"');
            UTL_FILE.put_line(fich_salida_load, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_load, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '      exit 1;');
            UTL_FILE.put_line(fich_salida_load, '   fi');
            UTL_FILE.put_line(fich_salida_load, '   return 0');
            UTL_FILE.put_line(fich_salida_load, '}');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'InsertaFinOK()');
            UTL_FILE.put_line(fich_salida_load, '{');
            UTL_FILE.put_line(fich_salida_load, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_load, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_ne_' || reg_tabla.TABLE_NAME || '.sh 1 0 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_load, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_load, '   then');
            UTL_FILE.put_line(fich_salida_load, '      SUBJECT="${INTERFAZ}:Error en InsertarFinOK"');
            UTL_FILE.put_line(fich_salida_load, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_load, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '      exit 1;');
            UTL_FILE.put_line(fich_salida_load, '   fi');
            UTL_FILE.put_line(fich_salida_load, '   return 0');
            UTL_FILE.put_line(fich_salida_load, '}');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# EJECUCION DEL PROGRAMA EN PRO C O QUERYS                                     #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_ENTORNO}/entorno' || NAME_DM || '_' || PAIS || '.sh');
            UTL_FILE.put_line(fich_salida_load, '# Comprobamos si el numero de parametros es el correcto');
            UTL_FILE.put_line(fich_salida_load, 'if [ $# -ne 3 ] ; then');
            UTL_FILE.put_line(fich_salida_load, '  SUBJECT="Numero de paramatros de entrada incorrecto. Uso: ${0} <fch_carga> <fch_datos> <forzado>"');
            UTL_FILE.put_line(fich_salida_load, '  echo ${SUBJECT}');        
            UTL_FILE.put_line(fich_salida_load, '  exit 1');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '# Recogida de parametros');
            UTL_FILE.put_line(fich_salida_load, 'FCH_CARGA=${1}');
            UTL_FILE.put_line(fich_salida_load, 'FCH_DATOS=${2}');
            UTL_FILE.put_line(fich_salida_load, 'BAN_FORZADO=${3}');
            UTL_FILE.put_line(fich_salida_load, 'FECHA_HORA=${FCH_DATOS}_`date +%Y%m%d_%H%M%S`');
            --UTL_FILE.put_line(fich_salida_load, 'echo "load_ne_' || reg_tabla.TABLE_NAME || '" > ${MVNO_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FCH_CARGA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, '# Comprobamos si existe el directorio de Trazas para fecha de carga');
            UTL_FILE.put_line(fich_salida_load, 'if ! [ -d ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA} ] ; then');
            UTL_FILE.put_line(fich_salida_load, '  mkdir ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, NAME_DM || '_TRAZAS=${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_load, 'echo "${0}" > ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, 'echo "Inicia Proceso: `date +%d/%m/%Y\ %H:%M:%S`"  >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, 'echo "Fecha de Carga: ${FCH_CARGA}"  >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, 'echo "Fecha de Datos: ${FCH_DATOS}"  >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, 'echo "Forzado: ${BAN_FORZADO}"  >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            --UTL_FILE.put_line(fich_salida_sh, 'set -x');
            UTL_FILE.put_line(fich_salida_load, '#Permite los acentos y U');
            UTL_FILE.put_line(fich_salida_load, 'NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1');
            UTL_FILE.put_line(fich_salida_load, 'export NLS_LANG');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# VARIABLES ESPECIFICAS PARA EL PROCESO                                        #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'REQ_NUM="' || v_REQ_NUMER || '"');
            --UTL_FILE.put_line(fich_salida_load, 'REQ_NUM="Req96817"');
            UTL_FILE.put_line(fich_salida_load, 'INTERFAZ=' || v_REQ_NUMER || '_load_ne_' || reg_tabla.TABLE_NAME);
            --UTL_FILE.put_line(fich_salida_load, 'INTERFAZ=Req96817_load_ne_' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# LIBRERIAS                                                                    #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilBD.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilArchivo.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilUnix.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/Util' || NAME_DM || '.sh');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# Cuentas  Produccion / Desarrollo                                             #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'if [ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.102" ]||[ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.184" ]; then');
            UTL_FILE.put_line(fich_salida_load, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_load, 'else');
            UTL_FILE.put_line(fich_salida_load, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'ObtenContrasena ${BD_SID} ${BD_USUARIO}');
            UTL_FILE.put_line(fich_salida_load, 'BD_CLAVE=${PASSWORD}');
        
        /***********************/
            UTL_FILE.put_line(fich_salida_load, '# Llamada a sql_plus');
            UTL_FILE.put_line(fich_salida_load, 'sqlplus -s /nolog <<EOF >> ${' || NAME_DM || '_TRAZAS}/load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ' ||  '2>&' || '1');
            UTL_FILE.put_line(fich_salida_load, 'connect ${BD_USUARIO}/${BD_CLAVE}@${BD_SID}');
            UTL_FILE.put_line(fich_salida_load, 'whenever sqlerror exit 1;');
            UTL_FILE.put_line(fich_salida_load, 'whenever oserror exit 2;');
            UTL_FILE.put_line(fich_salida_load, 'set feedback off;');
            UTL_FILE.put_line(fich_salida_load, 'set serveroutput on;');
            UTL_FILE.put_line(fich_salida_load, 'set echo on;');
            UTL_FILE.put_line(fich_salida_load, 'set pagesize 0;');
            UTL_FILE.put_line(fich_salida_load, 'set verify off;');
            UTL_FILE.put_line(fich_salida_load, '');
            --UTL_FILE.put_line(fich_salida_load, 'declare');
            --UTL_FILE.put_line(fich_salida_load, '  num_filas_insertadas number;');
            UTL_FILE.put_line(fich_salida_load, 'begin');
            --UTL_FILE.put_line(fich_salida_load, '  APP_MVNODM.pkg_' || reg_tabla.TABLE_NAME || '.' || 'load_ne_' || reg_tabla.TABLE_NAME || '(''${FCH_CARGA}'',''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_load, '  ' || OWNER_DM || '.pkg_' || nombre_proceso || '.' || 'lne_' || nombre_proceso || '(''${FCH_CARGA}'',''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_load, 'end;');
            UTL_FILE.put_line(fich_salida_load, '/');
            UTL_FILE.put_line(fich_salida_load, 'exit 0;');
            UTL_FILE.put_line(fich_salida_load, 'EOF');
        
            UTL_FILE.put_line(fich_salida_load, 'err_salida=$?');
            UTL_FILE.put_line(fich_salida_load, 'if [ ${err_salida} -ne 0 ]; then');
            UTL_FILE.put_line(fich_salida_load, '  SUBJECT="${INTERFAZ}: Surgio un error en el sqlplus en la llamada a load_ne_' || reg_tabla.TABLE_NAME || '. Error:  ${err_salida}."');
            UTL_FILE.put_line(fich_salida_load, '  ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '  echo ${SUBJECT} >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ne' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');        
            UTL_FILE.put_line(fich_salida_load, '  echo `date` >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ne' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            --UTL_FILE.put_line(fich_salida_load, '  InsertaFinFallido');
            UTL_FILE.put_line(fich_salida_load, '  exit 1');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'echo "El proceso load_' ||  'ne_' || reg_tabla.TABLE_NAME || ' se ha realizado correctamente." >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ne_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            UTL_FILE.put_line(fich_salida_load, 'exit 0');
            /******/
            /* FIN DE LA GENERACION DEL sh de NUEVOS Y EXISTENTES */
            /******/
            /******/
            /* INICIO DE LA GENERACION DEL sh de HISTORICOS */
            /******/
            
            /**************/
            UTL_FILE.put_line(fich_salida_hist, '#!/bin/bash');
            UTL_FILE.put_line(fich_salida_hist, '#############################################################################');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Telefonica Moviles Mexico SA DE CV                                        #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Archivo    :       load_dh_' ||  reg_tabla.TABLE_NAME || '.sh                            #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Autor      : <SYNAPSYS>.                                                  #');
            UTL_FILE.put_line(fich_salida_hist, '# Proposito  : Shell que ejecuta los procesos de STAGING para ' || NAME_DM || 'S.        #');
            UTL_FILE.put_line(fich_salida_hist, '# Parametros :                                                              #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Ejecucion  :                                                              #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Historia : 31-Octubre-2014 -> Creacion                                    #');
            UTL_FILE.put_line(fich_salida_hist, '# Caja de Control - M :                                                     #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Observaciones: En caso de reproceso colocar la fecha deseada              #');
            UTL_FILE.put_line(fich_salida_hist, '#                en formato YYYYMMDD la fecha minima es a dia vencido       #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Caducidad del Requerimiento :                                             #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Dependencias :                                                            #');
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Usuario:                                                                  #');   
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '# Telefono:                                                                 #');   
            UTL_FILE.put_line(fich_salida_hist, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_hist, '#############################################################################');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '#Obtiene los password de base de datos                                         #');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, 'InsertaFinFallido()');
            UTL_FILE.put_line(fich_salida_hist, '{');
            UTL_FILE.put_line(fich_salida_hist, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_hist, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_dh_' || reg_tabla.TABLE_NAME || '.sh 1 1 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_hist, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_hist, '   then');
            UTL_FILE.put_line(fich_salida_hist, '      SUBJECT="${INTERFAZ}:Error en InsertarFinFallido"');
            UTL_FILE.put_line(fich_salida_hist, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_hist, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_hist, '      exit 1;');
            UTL_FILE.put_line(fich_salida_hist, '   fi');
            UTL_FILE.put_line(fich_salida_hist, '   return 0');
            UTL_FILE.put_line(fich_salida_hist, '}');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, 'InsertaFinOK()');
            UTL_FILE.put_line(fich_salida_hist, '{');
            UTL_FILE.put_line(fich_salida_hist, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_hist, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_dh_' || reg_tabla.TABLE_NAME || '.sh 1 0 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_hist, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_hist, '   then');
            UTL_FILE.put_line(fich_salida_hist, '      SUBJECT="${INTERFAZ}:Error en InsertarFinOK"');
            UTL_FILE.put_line(fich_salida_hist, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_hist, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_hist, '      exit 1;');
            UTL_FILE.put_line(fich_salida_hist, '   fi');
            UTL_FILE.put_line(fich_salida_hist, '   return 0');
            UTL_FILE.put_line(fich_salida_hist, '}');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '# EJECUCION DEL PROGRAMA EN PRO C O QUERYS                                     #');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '. ${' || NAME_DM || '_ENTORNO}/entorno' || NAME_DM || '_' || PAIS || '.sh');
            UTL_FILE.put_line(fich_salida_hist, '# Comprobamos si el numero de parametros es el correcto');
            UTL_FILE.put_line(fich_salida_hist, 'if [ $# -ne 3 ] ; then');
            UTL_FILE.put_line(fich_salida_hist, '  SUBJECT="Numero de paramatros de entrada incorrecto. Uso: ${0} <fch_carga> <fch_datos> <forzado>"');
            UTL_FILE.put_line(fich_salida_hist, '  echo ${SUBJECT}');        
            UTL_FILE.put_line(fich_salida_hist, '  exit 1');
            UTL_FILE.put_line(fich_salida_hist, 'fi');
            UTL_FILE.put_line(fich_salida_hist, '# Recogida de parametros');
            UTL_FILE.put_line(fich_salida_hist, 'FCH_CARGA=${1}');
            UTL_FILE.put_line(fich_salida_hist, 'FCH_DATOS=${2}');
            UTL_FILE.put_line(fich_salida_hist, 'BAN_FORZADO=${3}');
            UTL_FILE.put_line(fich_salida_hist, 'FECHA_HORA=${FCH_DATOS}_`date +%Y%m%d_%H%M%S`');
            --UTL_FILE.put_line(fich_salida_hist, 'echo "load_dh_' || reg_tabla.TABLE_NAME || '" > ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FCH_CARGA}' || '.log ');
            UTL_FILE.put_line(fich_salida_hist, '# Comprobamos si existe el directorio de Trazas para fecha de carga');
            UTL_FILE.put_line(fich_salida_hist, 'if ! [ -d ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA} ] ; then');
            UTL_FILE.put_line(fich_salida_hist, '  mkdir ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_hist, 'fi');
            UTL_FILE.put_line(fich_salida_hist, NAME_DM || '_TRAZAS=${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_hist, 'echo "${0}" > ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_hist, 'echo "Inicia Proceso: `date +%d/%m/%Y\ %H:%M:%S`"  >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_hist, 'echo "Fecha de Carga: ${FCH_CARGA}"  >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_hist, 'echo "Fecha de Datos: ${FCH_DATOS}"  >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_hist, 'echo "Forzado: ${BAN_FORZADO}"  >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            --UTL_FILE.put_line(fich_salida_sh, 'set -x');
            UTL_FILE.put_line(fich_salida_hist, '#Permite los acentos y U');
            UTL_FILE.put_line(fich_salida_hist, 'NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1');
            UTL_FILE.put_line(fich_salida_hist, 'export NLS_LANG');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '# VARIABLES ESPECIFICAS PARA EL PROCESO                                        #');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, 'REQ_NUM="' || v_REQ_NUMER || '"');
            --UTL_FILE.put_line(fich_salida_hist, 'REQ_NUM="Req96817"');
            UTL_FILE.put_line(fich_salida_hist, 'INTERFAZ=' || v_REQ_NUMER || '_load_dh_' || reg_tabla.TABLE_NAME);
            --UTL_FILE.put_line(fich_salida_hist, 'INTERFAZ=Req96817_load_dh_' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '# LIBRERIAS                                                                    #');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '. ${' || NAME_DM || '_UTILIDADES}/UtilBD.sh');
            UTL_FILE.put_line(fich_salida_hist, '. ${' || NAME_DM || '_UTILIDADES}/UtilArchivo.sh');
            UTL_FILE.put_line(fich_salida_hist, '. ${' || NAME_DM || '_UTILIDADES}/UtilUnix.sh');
            UTL_FILE.put_line(fich_salida_hist, '. ${' || NAME_DM || '_UTILIDADES}/Util' || NAME_DM || '.sh');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, '# Cuentas  Produccion / Desarrollo                                             #');
            UTL_FILE.put_line(fich_salida_hist, '################################################################################');
            UTL_FILE.put_line(fich_salida_hist, 'if [ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.102" ]||[ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.184" ]; then');
            UTL_FILE.put_line(fich_salida_hist, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_hist, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_hist, 'else');
            UTL_FILE.put_line(fich_salida_hist, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_hist, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_hist, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_hist, 'fi');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, 'ObtenContrasena ${BD_SID} ${BD_USUARIO}');
            UTL_FILE.put_line(fich_salida_hist, 'BD_CLAVE=${PASSWORD}');
            
            /**************/
            UTL_FILE.put_line(fich_salida_hist, '# Llamada a sql_plus');
            UTL_FILE.put_line(fich_salida_hist, 'sqlplus -s /nolog <<EOF >> ${' || NAME_DM || '_TRAZAS}/load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ' ||  '2>&' || '1');
            UTL_FILE.put_line(fich_salida_hist, 'connect ${BD_USUARIO}/${BD_CLAVE}@${BD_SID}');
            UTL_FILE.put_line(fich_salida_hist, 'whenever sqlerror exit 1;');
            UTL_FILE.put_line(fich_salida_hist, 'whenever oserror exit 2;');
            UTL_FILE.put_line(fich_salida_hist, 'set feedback off;');
            UTL_FILE.put_line(fich_salida_hist, 'set serveroutput on;');
            UTL_FILE.put_line(fich_salida_hist, 'set echo on;');
            UTL_FILE.put_line(fich_salida_hist, 'set pagesize 0;');
            UTL_FILE.put_line(fich_salida_hist, 'set verify off;');
            UTL_FILE.put_line(fich_salida_hist, '');
            --UTL_FILE.put_line(fich_salida_hist, 'declare');
            --UTL_FILE.put_line(fich_salida_hist, '  num_filas_insertadas number;');
            UTL_FILE.put_line(fich_salida_hist, 'begin');
            --UTL_FILE.put_line(fich_salida_hist, '  APP_MVNODM.pkg_' || reg_tabla.TABLE_NAME || '.' || 'load_dh_' || reg_tabla.TABLE_NAME || '(''${FCH_CARGA}'', ''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_hist, '  ' || OWNER_DM || '.pkg_' || nombre_proceso || '.' || 'ldh_' || nombre_proceso || '(''${FCH_CARGA}'', ''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_hist, 'end;');
            UTL_FILE.put_line(fich_salida_hist, '/');
            UTL_FILE.put_line(fich_salida_hist, 'EOF');
            UTL_FILE.put_line(fich_salida_hist, 'err_salida=$?');
            UTL_FILE.put_line(fich_salida_hist, 'if [ ${err_salida} -ne 0 ]; then');
            UTL_FILE.put_line(fich_salida_hist, '  SUBJECT="${INTERFAZ}: Surgio un error en el sqlplus en la llamada a load_dh_' || reg_tabla.TABLE_NAME || '. Error:  ${err_salida}."');
            UTL_FILE.put_line(fich_salida_hist, '  ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_hist, '  echo ${SUBJECT} >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_dh' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');        
            UTL_FILE.put_line(fich_salida_hist, '  echo `date` >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_dh' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            --UTL_FILE.put_line(fich_salida_hist, '  InsertaFinFallido');
            UTL_FILE.put_line(fich_salida_hist, '  exit 1');
            UTL_FILE.put_line(fich_salida_hist, 'fi');
            UTL_FILE.put_line(fich_salida_hist, '');
            UTL_FILE.put_line(fich_salida_hist, 'echo "El proceso  load_' ||  'dh_' || reg_tabla.TABLE_NAME || ' se ha realizado correctamente." >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_dh_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            UTL_FILE.put_line(fich_salida_hist, 'exit 0');
        
            /******/
            /* FIN DE LA GENERACION DEL sh de HISTORICOS */
            /******/
        
            /******/
            /* INICIO DE LA GENERACION DEL sh de EXCHANGE */
            /******/
            
            /*************/
            UTL_FILE.put_line(fich_salida_exchange, '#!/bin/bash');
            UTL_FILE.put_line(fich_salida_exchange, '#############################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Telefonica Moviles Mexico SA DE CV                                        #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Archivo    :       load_ex_' ||  reg_tabla.TABLE_NAME || '.sh                            #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Autor      : <SYNAPSYS>.                                                  #');
            UTL_FILE.put_line(fich_salida_exchange, '# Proposito  : Shell que ejecuta los procesos de STAGING para ' || NAME_DM || 'S.        #');
            UTL_FILE.put_line(fich_salida_exchange, '# Parametros :                                                              #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Ejecucion  :                                                              #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Historia : 31-Octubre-2014 -> Creacion                                    #');
            UTL_FILE.put_line(fich_salida_exchange, '# Caja de Control - M :                                                     #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Observaciones: En caso de reproceso colocar la fecha deseada              #');
            UTL_FILE.put_line(fich_salida_exchange, '#                en formato YYYYMMDD la fecha minima es a dia vencido       #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Caducidad del Requerimiento :                                             #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Dependencias :                                                            #');
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Usuario:                                                                  #');   
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '# Telefono:                                                                 #');   
            UTL_FILE.put_line(fich_salida_exchange, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_exchange, '#############################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '#Obtiene los password de base de datos                                         #');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, 'InsertaFinFallido()');
            UTL_FILE.put_line(fich_salida_exchange, '{');
            UTL_FILE.put_line(fich_salida_exchange, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_exchange, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh 1 1 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_exchange, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_exchange, '   then');
            UTL_FILE.put_line(fich_salida_exchange, '      SUBJECT="${INTERFAZ}:Error en InsertarFinFallido"');
            UTL_FILE.put_line(fich_salida_exchange, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_exchange, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_exchange, '      exit 1;');
            UTL_FILE.put_line(fich_salida_exchange, '   fi');
            UTL_FILE.put_line(fich_salida_exchange, '   return 0');
            UTL_FILE.put_line(fich_salida_exchange, '}');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, 'InsertaFinOK()');
            UTL_FILE.put_line(fich_salida_exchange, '{');
            UTL_FILE.put_line(fich_salida_exchange, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_exchange, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_ex_' || reg_tabla.TABLE_NAME || '.sh 1 0 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_exchange, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_exchange, '   then');
            UTL_FILE.put_line(fich_salida_exchange, '      SUBJECT="${INTERFAZ}:Error en InsertarFinOK"');
            UTL_FILE.put_line(fich_salida_exchange, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_exchange, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_exchange, '      exit 1;');
            UTL_FILE.put_line(fich_salida_exchange, '   fi');
            UTL_FILE.put_line(fich_salida_exchange, '   return 0');
            UTL_FILE.put_line(fich_salida_exchange, '}');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '# EJECUCION DEL PROGRAMA EN PRO C O QUERYS                                     #');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '. ${' || NAME_DM || '_ENTORNO}/entorno' || NAME_DM || '_' || PAIS || '.sh');
            UTL_FILE.put_line(fich_salida_exchange, '# Comprobamos si el numero de parametros es el correcto');
            UTL_FILE.put_line(fich_salida_exchange, 'if [ $# -ne 3 ] ; then');
            UTL_FILE.put_line(fich_salida_exchange, '  SUBJECT="Numero de paramatros de entrada incorrecto. Uso: ${0} <fch_carga> <fch_datos> <forzado>"');
            UTL_FILE.put_line(fich_salida_exchange, '  echo ${SUBJECT}');        
            UTL_FILE.put_line(fich_salida_exchange, '  exit 1');
            UTL_FILE.put_line(fich_salida_exchange, 'fi');
            UTL_FILE.put_line(fich_salida_exchange, '# Recogida de parametros');
            UTL_FILE.put_line(fich_salida_exchange, 'FCH_CARGA=${1}');
            UTL_FILE.put_line(fich_salida_exchange, 'FCH_DATOS=${2}');
            UTL_FILE.put_line(fich_salida_exchange, 'BAN_FORZADO=${3}');
            UTL_FILE.put_line(fich_salida_exchange, 'FECHA_HORA=${FCH_DATOS}_`date +%Y%m%d_%H%M%S`');
            --UTL_FILE.put_line(fich_salida_exchange, 'echo "load_ex_' || reg_tabla.TABLE_NAME || '" > ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FCH_CARGA}' || '.log ');
            UTL_FILE.put_line(fich_salida_exchange, '# Comprobamos si existe el directorio de Trazas para fecha de carga');
            UTL_FILE.put_line(fich_salida_exchange, 'if ! [ -d ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA} ] ; then');
            UTL_FILE.put_line(fich_salida_exchange, '  mkdir ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_exchange, 'fi');
            UTL_FILE.put_line(fich_salida_exchange, NAME_DM || '_TRAZAS=${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "${0}" > ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "Inicia Proceso: `date +%d/%m/%Y\ %H:%M:%S`"  >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "Fecha de Carga: ${FCH_CARGA}"  >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "Fecha de Datos: ${FCH_DATOS}"  >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "Forzado: ${BAN_FORZADO}"  >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            --UTL_FILE.put_line(fich_salida_sh, 'set -x');
            UTL_FILE.put_line(fich_salida_exchange, '#Permite los acentos y U');
            UTL_FILE.put_line(fich_salida_exchange, 'NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1');
            UTL_FILE.put_line(fich_salida_exchange, 'export NLS_LANG');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '# VARIABLES ESPECIFICAS PARA EL PROCESO                                        #');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, 'REQ_NUM="' || v_REQ_NUMER || '"');
            --UTL_FILE.put_line(fich_salida_exchange, 'REQ_NUM="Req96817"');
            UTL_FILE.put_line(fich_salida_exchange, 'INTERFAZ=' || v_REQ_NUMER || '_load_ex_' || reg_tabla.TABLE_NAME);
            --UTL_FILE.put_line(fich_salida_exchange, 'INTERFAZ=Req96817_load_ex_' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '# LIBRERIAS                                                                    #');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '. ${' || NAME_DM || '_UTILIDADES}/UtilBD.sh');
            UTL_FILE.put_line(fich_salida_exchange, '. ${' || NAME_DM || '_UTILIDADES}/UtilArchivo.sh');
            UTL_FILE.put_line(fich_salida_exchange, '. ${' || NAME_DM || '_UTILIDADES}/UtilUnix.sh');
            UTL_FILE.put_line(fich_salida_exchange, '. ${' || NAME_DM || '_UTILIDADES}/Util' || NAME_DM || '.sh');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, '# Cuentas  Produccion / Desarrollo                                             #');
            UTL_FILE.put_line(fich_salida_exchange, '################################################################################');
            UTL_FILE.put_line(fich_salida_exchange, 'if [ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.102" ]||[ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.184" ]; then');
            UTL_FILE.put_line(fich_salida_exchange, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_exchange, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_exchange, 'else');
            UTL_FILE.put_line(fich_salida_exchange, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_exchange, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_exchange, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_exchange, 'fi');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, 'ObtenContrasena ${BD_SID} ${BD_USUARIO}');
            UTL_FILE.put_line(fich_salida_exchange, 'BD_CLAVE=${PASSWORD}');
            
            /*************/
            UTL_FILE.put_line(fich_salida_exchange, '# Llamada a sql_plus');
            UTL_FILE.put_line(fich_salida_exchange, 'sqlplus -s /nolog <<EOF >> ${' || NAME_DM || '_TRAZAS}/load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ' ||  '2>&' || '1');
            UTL_FILE.put_line(fich_salida_exchange, 'connect ${BD_USUARIO}/${BD_CLAVE}@${BD_SID}');
            UTL_FILE.put_line(fich_salida_exchange, 'whenever sqlerror exit 1');
            UTL_FILE.put_line(fich_salida_exchange, 'whenever oserror exit 2');
            UTL_FILE.put_line(fich_salida_exchange, 'set feedback off');
            UTL_FILE.put_line(fich_salida_exchange, 'set serveroutput on');
            UTL_FILE.put_line(fich_salida_exchange, 'set pagesize 0;');
            UTL_FILE.put_line(fich_salida_exchange, 'set verify off;');
            UTL_FILE.put_line(fich_salida_exchange, '');
            --UTL_FILE.put_line(fich_salida_exchange, 'declare');
            --UTL_FILE.put_line(fich_salida_exchange, '  num_filas_insertadas number;');
            UTL_FILE.put_line(fich_salida_exchange, 'begin');
            --UTL_FILE.put_line(fich_salida_exchange, '  APP_MVNODM.pkg_' || reg_tabla.TABLE_NAME || '.' || 'load_ex_' || reg_tabla.TABLE_NAME || '(''${FCH_CARGA}'', ''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_exchange, '  ' || OWNER_DM || '.pkg_' || nombre_proceso || '.' || 'lex_' || nombre_proceso || '(''${FCH_CARGA}'', ''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_exchange, 'end;');
            UTL_FILE.put_line(fich_salida_exchange, '/');
            UTL_FILE.put_line(fich_salida_exchange, 'EOF');
        
            UTL_FILE.put_line(fich_salida_exchange, 'err_salida=$?');
            UTL_FILE.put_line(fich_salida_exchange, 'if [ ${err_salida} -ne 0 ]; then');
            UTL_FILE.put_line(fich_salida_exchange, '  SUBJECT="${INTERFAZ}: Surgio un error en el sqlplus en la llamada a load_ex_' || reg_tabla.TABLE_NAME || '. Error:  ${err_salida}."');
            UTL_FILE.put_line(fich_salida_exchange, '  ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_exchange, '  echo ${SUBJECT} >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ex' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');        
            UTL_FILE.put_line(fich_salida_exchange, '  echo `date` >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ex' || '_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            --UTL_FILE.put_line(fich_salida_exchange, '  InsertaFinFallido');
            UTL_FILE.put_line(fich_salida_exchange, '  exit 1');
            UTL_FILE.put_line(fich_salida_exchange, 'fi');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, 'echo "El proceso de exchange load_' ||  'ex_' || reg_tabla.TABLE_NAME || ' se ha realizado correctamente." >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_ex_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            UTL_FILE.put_line(fich_salida_exchange, '');
            UTL_FILE.put_line(fich_salida_exchange, 'exit 0');
            /******/
            /* FIN DE LA GENERACION DEL sh de EXCHANGE */
            /******/
        
            
            UTL_FILE.FCLOSE (fich_salida_load);
            UTL_FILE.FCLOSE (fich_salida_pkg);
            UTL_FILE.FCLOSE (fich_salida_hist);
            UTL_FILE.FCLOSE (fich_salida_exchange);
    end if;
    if (reg_tabla.TABLE_TYPE = 'I')
    then
            dbms_output.put_line ('Estoy en el primer LOOP. La tabla que tengo es: ' || reg_tabla.TABLE_NAME);
            nombre_fich_carga := 'load_' || reg_tabla.TABLE_NAME || '.sh';
            nombre_fich_pkg := 'pkg_' || reg_tabla.TABLE_NAME || '.sql';
            fich_salida_load := UTL_FILE.FOPEN ('SALIDA',nombre_fich_carga,'W');
            fich_salida_pkg := UTL_FILE.FOPEN ('SALIDA',nombre_fich_pkg,'W');
            nombre_tabla_reducido := substr(reg_tabla.TABLE_NAME, 4); /* Le quito al nombre de la tabla los caracteres DMD_ o DMF_ */
        
            UTL_FILE.put_line (fich_salida_pkg,'CREATE OR REPLACE PACKAGE ' || OWNER_SA || '.pkg_' || reg_tabla.TABLE_NAME || ' AS');
            UTL_FILE.put_line(fich_salida_pkg,'');

            --lista_scenarios_presentes.delete;
            /******/
            /* COMIEZO LA GENERACION DEL PACKAGE DEFINITION */
            /******/
            
            v_concept_name := substr(reg_tabla.TABLE_NAME, 4);
            if (length(v_concept_name) < 24) then
              nombre_proceso := 'SA_' || v_concept_name;
            else
              nombre_proceso := v_concept_name;
            end if;              

            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE pre_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2 := ''N'');');
            
            /* (20150720) Angel Ruiz. NF: Historico para tablas de Integracion */
            select * into v_interface_summary FROM MTDT_INTERFACE_SUMMARY
            where
            TRIM(CONCEPT_NAME) = substr(reg_tabla.TABLE_NAME, 4) and
            SOURCE = 'SA';
            
            if (v_interface_summary.HISTORY IS NOT NULL) then
              /* Ocurre que hemos de llevar un historico de esta tabla de INTEGRACION */
              UTL_FILE.put_line(fich_salida_pkg,'');
              UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE pos_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2 := ''N'');');
              UTL_FILE.put_line(fich_salida_pkg,'');
            end if;
            /* (20150720) Angel Ruiz.FIN */
            /* Tercero genero los metodos para los escenarios */
            v_existe_escenario_HF:='N'; /* (20151120) Angel Ruiz. NF: REINYECCION */
            v_existe_reinyeccion:='N';    /* (20151120) Angel Ruiz. NF: Si algún escenario posee el flag R de Reinyeccion activo */
            open MTDT_SCENARIO (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_SCENARIO
              into reg_scenario;
              exit when MTDT_SCENARIO%NOTFOUND;
              dbms_output.put_line ('Estoy en el segundo LOOP. La tabla que tengo es: ' || reg_tabla.TABLE_NAME || '. El escenario es: ' || reg_scenario.SCENARIO);
              /* (20151120) Angel Ruiz. NF: Si algún escenario posee el flag R de Reinyeccion activo */
              if (reg_scenario.REINYECTION = 'Y') then
                /* El escenario tiene reinyección */
                v_existe_reinyeccion := 'Y';
              end if;
              /* (20151120) Angel Ruiz. FIN NF:Si algún escenario posee el flag R de Reinyeccion activo */              
              /* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
              lista_tablas_base := split_string_coma (reg_scenario.TABLE_BASE_NAME);
              if (lista_tablas_base.count = 0) then
                /* Solo existe una tabla base */
                nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
              else
                /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
              end if;
              /* (20150911) Angel Ruiz. FIN NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
        
              /* Elaboramos los prototipos de la funciones que cargaran los distintos escenarios */
              UTL_FILE.put_line(fich_salida_pkg,'');
              if (reg_scenario.SCENARIO = 'P')
              then
                UTL_FILE.put_line(fich_salida_pkg, '  /* Funcion que implementa el escenario de EJECUCION NORMAL */');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu  || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
              end if;
              if (reg_scenario.SCENARIO = 'HF')
              then
                v_existe_escenario_HF := 'S';
                UTL_FILE.put_line(fich_salida_pkg, '  /* Funcion que implementa el escenario de HISTORICO FORZADO */');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION f_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu  || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER;');
              end if;
            end loop;   /* Fin del loop MTDT_SCENARIO */
            close MTDT_SCENARIO;
            
            UTL_FILE.put_line(fich_salida_pkg,'');
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_' || reg_tabla.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in in VARCHAR2);');
            UTL_FILE.put_line(fich_salida_pkg, '' ); 
            UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || reg_tabla.TABLE_NAME || ';' );
            UTL_FILE.put_line(fich_salida_pkg, '/' );
            
            /******/
            /* FIN DEL PACKAGE DEFINITION */
            /******/
            /******/
            /* INICIO DEL PACKGE BODY */
            /******/
            UTL_FILE.put_line(fich_salida_pkg,'CREATE OR REPLACE PACKAGE BODY ' || OWNER_SA || '.pkg_' || reg_tabla.TABLE_NAME || ' AS');
            UTL_FILE.put_line(fich_salida_pkg,'');
            UTL_FILE.put_line(fich_salida_pkg,'  FUNCTION existe_tabla (table_name_in IN VARCHAR2) return number');
            UTL_FILE.put_line(fich_salida_pkg,'  IS');
            UTL_FILE.put_line(fich_salida_pkg,'  BEGIN');
            UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''DECLARE nombre_tabla varchar(30);BEGIN select table_name into nombre_tabla from all_tables where table_name = '''''' || table_name_in || '''''' and owner = '''''' || ''' || OWNER_SA || ''' || ''''''; END;'';');
            UTL_FILE.put_line(fich_salida_pkg,'    return 1;');
            UTL_FILE.put_line(fich_salida_pkg,'  exception');
            UTL_FILE.put_line(fich_salida_pkg,'  when NO_DATA_FOUND then');
            UTL_FILE.put_line(fich_salida_pkg,'    return 0;');
            UTL_FILE.put_line(fich_salida_pkg,'  END existe_tabla;');
            UTL_FILE.put_line(fich_salida_pkg,'');
            UTL_FILE.put_line(fich_salida_pkg,'  FUNCTION existe_particion (partition_name_in IN VARCHAR2, table_name_in IN VARCHAR2) return number');
            UTL_FILE.put_line(fich_salida_pkg,'  IS');
            UTL_FILE.put_line(fich_salida_pkg,'  BEGIN');
            UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''DECLARE nombre_particion varchar(30);BEGIN select partition_name into nombre_particion from all_tab_partitions where partition_name = '''''' || partition_name_in || '''''' and table_name = '''''' || table_name_in || '''''' and table_owner = '''''' || ''' || OWNER_SA || ''' || ''''''; END;'';');
            UTL_FILE.put_line(fich_salida_pkg,'    return 1;');
            UTL_FILE.put_line(fich_salida_pkg,'  exception');
            UTL_FILE.put_line(fich_salida_pkg,'  when NO_DATA_FOUND then');
            UTL_FILE.put_line(fich_salida_pkg,'    return 0;');
            UTL_FILE.put_line(fich_salida_pkg,'  END existe_particion;');
            UTL_FILE.put_line(fich_salida_pkg,'');
            /* (20151108 Angel Ruiz. BUG. Siempre generamos un pre-proceso para llevar a cabo el truncate de la tabla de STAGING */
            UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE pre_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2 := ''N'')');
            UTL_FILE.put_line(fich_salida_pkg, '  IS' ); 
            UTL_FILE.put_line(fich_salida_pkg,'  exis_tabla number(1);');
            UTL_FILE.put_line(fich_salida_pkg,'  exis_partition number(1);');
            UTL_FILE.put_line(fich_salida_pkg,'  fch_particion varchar2(8);');
      
            UTL_FILE.put_line(fich_salida_pkg, '  BEGIN' );
            UTL_FILE.put_line(fich_salida_pkg,'' );
            if (v_interface_summary.DELAYED = 'S') then
              UTL_FILE.put_line(fich_salida_pkg,'    fch_particion := TO_CHAR(TO_DATE(fch_datos_in,''YYYYMMDD'')+1, ''YYYYMMDD'');'); 
              UTL_FILE.put_line(fich_salida_pkg,'    exis_partition :=  existe_particion (' || '''PA_'' || ''' || v_interface_summary.CONCEPT_NAME || ''' || ''_''' || ' || fch_datos_in, ''SA_'' || ''' || v_interface_summary.CONCEPT_NAME || ''');');
              --UTL_FILE.put_line(fich_salida_pkg,'  if (exis_tabla = 1) then' );      
              UTL_FILE.put_line(fich_salida_pkg,'  if (exis_partition = 1) then' );
              --UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''TRUNCATE TABLE '' || ''app_mvnosa.SA_'' || ''' || reg_summary.CONCEPT_NAME || ''' || ''_'' || fch_datos_in;');
              UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''ALTER TABLE  ' || OWNER_SA || ''' || ''.SA_'' || ''' || v_interface_summary.CONCEPT_NAME || ''' || '' TRUNCATE PARTITION PA_' || v_interface_summary.CONCEPT_NAME || ''' || ''_'' || fch_datos_in;');
              UTL_FILE.put_line(fich_salida_pkg,'  else' );
              --UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''CREATE TABLE ' || 'app_mvnosa.SA_'' || ''' || reg_summary.CONCEPT_NAME || ''' || ''_'' || fch_datos_in  || '' AS SELECT * FROM SA_'' || ''' || reg_summary.CONCEPT_NAME || ''';');
              UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SA_'' || ''' || v_interface_summary.CONCEPT_NAME || ''' || '' ADD PARTITION PA_' || v_interface_summary.CONCEPT_NAME || ''' || ''_'' || fch_datos_in || '' VALUES LESS THAN (TO_DATE('''''' || fch_particion || '''''', ''''YYYYMMDD'''')) TABLESPACE DWTBSP_D_MVNO_SA'';');
              UTL_FILE.put_line(fich_salida_pkg,'  end if;' );
            else
              UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''TRUNCATE TABLE ' || OWNER_SA || ''' || ''.SA_'' || ''' || v_interface_summary.CONCEPT_NAME || ''';');
            end if;
            UTL_FILE.put_line(fich_salida_pkg,'  exception');
            UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
            UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Se ha producido un error en el pre-proceso de staging. Tabla: '' || ''' || 'SA_' || v_interface_summary.CONCEPT_NAME || ''');');
            UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
            UTL_FILE.put_line(fich_salida_pkg,'    raise;');
            UTL_FILE.put_line(fich_salida_pkg, '  END pre_' || nombre_proceso || ';'); 
            UTL_FILE.put_line(fich_salida_pkg, '');
            /* (20151108 Angel Ruiz. FIN BUG.  */
            
            /* (20150720) Angel Ruiz. NF: Historico para tablas de Integracion */
            if (v_interface_summary.HISTORY IS NOT NULL) then
              /* La tabla de integracion debe tener una tabla de historico */
              if (length(v_concept_name) <= 18) then
                v_nombre_particion := 'SA_' || v_concept_name;
              else
                v_nombre_particion := v_concept_name;
              end if;
              if (REGEXP_LIKE(v_interface_summary.HISTORY, '^[1-9]\d?[Mm]$') ) then
                v_num_meses:= REGEXP_SUBSTR(v_interface_summary.HISTORY,'^[1-9]\d?');
              else
                /* No sigue la especificacion requerida el campo donde se guarda el tiempo de historico */
                /* Por defecto ponemos 2 meses */
                v_num_meses := 2;
              end if;
              /* Ocurre que hemos de llevar un historico de esta tabla de INTEGRACION */
              UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE pos_' || nombre_proceso || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2 := ''N'')');
              UTL_FILE.put_line(fich_salida_pkg, '  IS' ); 
              UTL_FILE.put_line(fich_salida_pkg,'  exis_tabla number(1);');
              UTL_FILE.put_line(fich_salida_pkg,'  exis_partition number(1);');
              UTL_FILE.put_line(fich_salida_pkg,'  fch_particion varchar2(8);');
              UTL_FILE.put_line(fich_salida_pkg,'  BEGIN');
              UTL_FILE.put_line(fich_salida_pkg,'');
              /* LLevamos a cabo el truncado de las tablas de historico de STAGING antes de la inserción en las tablas de STAGING */
              /* La tabla de integracion debe tener una tabla de historico */
              if (length(v_concept_name) <= 18) then
                v_nombre_particion := 'SA_' || v_concept_name;
              else
                v_nombre_particion := v_concept_name;
              end if;
              if (REGEXP_LIKE(v_interface_summary.HISTORY, '^[1-9]\d?[Mm]$') ) then
                v_num_meses:= REGEXP_SUBSTR(v_interface_summary.HISTORY,'^[1-9]\d?');
              else
                /* No sigue la especificacion requerida el campo donde se guarda el tiempo de historico */
                /* Por defecto ponemos 2 meses */
                v_num_meses := 2;
              end if;
              /* Ocurre que hemos de llevar un historico de esta tabla de INTEGRACION */
              if (v_interface_summary.FREQUENCY = 'D') then
                UTL_FILE.put_line(fich_salida_pkg,'  /* Primero borramos la particion que se ha quedado obsoleta */');
                UTL_FILE.put_line(fich_salida_pkg,'  /* siempre que no estemos en una ejecucion forzosa */');
                UTL_FILE.put_line(fich_salida_pkg,'  /* en caso contrario no tiene sentido */');
                /* (20160315) Angel Ruiz. NF: Se lleva a cabo salvaguarda si la particion existe */
                UTL_FILE.put_line(fich_salida_pkg,'  if (forzado_in = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'    fch_particion := TO_CHAR(ADD_MONTHS(TO_DATE(fch_carga_in,''YYYYMMDD''), -' || v_num_meses || '), ''YYYYMMDD'');');
                UTL_FILE.put_line(fich_salida_pkg,'    FOR nombre_particion_rec IN (');
                UTL_FILE.put_line(fich_salida_pkg,'      select partition_name' );
                UTL_FILE.put_line(fich_salida_pkg,'      from user_tab_partitions' );
                UTL_FILE.put_line(fich_salida_pkg,'      where table_name = ''SAH_' || v_concept_name || '''');
                UTL_FILE.put_line(fich_salida_pkg,'      and partition_name < ''' || v_nombre_particion || ''' || ''_'' || fch_particion )');
                UTL_FILE.put_line(fich_salida_pkg,'    LOOP' );
                --UTL_FILE.put_line(fich_salida_pkg,'    exis_partition :=  existe_particion (' || '''' || v_nombre_particion || ''' || ''_''' || ' || fch_particion, ''SAH_'' || ''' || v_concept_name || ''');');
                UTL_FILE.put_line(fich_salida_pkg,'      exis_partition :=  existe_particion (nombre_particion_rec.partition_name, ' || '''SAH_'' || ''' || v_concept_name || ''');');
                UTL_FILE.put_line(fich_salida_pkg,'      if (exis_partition = 1) then' );
                --UTL_FILE.put_line(fich_salida_pkg,'      EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' DROP PARTITION ' || v_nombre_particion || ''' || ''_'' || fch_particion' || ';');
                UTL_FILE.put_line(fich_salida_pkg,'        EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' DROP PARTITION '' || nombre_particion_rec.partition_name'  || ';');
                UTL_FILE.put_line(fich_salida_pkg,'      end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'    END LOOP;' );
                UTL_FILE.put_line(fich_salida_pkg,'  end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'' );
                UTL_FILE.put_line(fich_salida_pkg,'  /* Segundo comrpobamos si hay que crear o truncar la particion sobre la que vamos a salvaguardar la informacion */');
                UTL_FILE.put_line(fich_salida_pkg,'  fch_particion := TO_CHAR(TO_DATE(fch_carga_in,''YYYYMMDD'')+1, ''YYYYMMDD'');'); 
                UTL_FILE.put_line(fich_salida_pkg,'  exis_partition :=  existe_particion (' || '''' || v_nombre_particion || ''' || ''_''' || ' || fch_carga_in, ''SAH_'' || ''' || v_concept_name || ''');');
                UTL_FILE.put_line(fich_salida_pkg,'  if (exis_partition = 1) then' );
                UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''ALTER TABLE  ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' TRUNCATE PARTITION ' || v_nombre_particion || ''' || ''_'' || fch_carga_in;');
                UTL_FILE.put_line(fich_salida_pkg,'  else' );
                --UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''CREATE TABLE ' || 'app_mvnosa.SA_'' || ''' || reg_summary.CONCEPT_NAME || ''' || ''_'' || fch_datos_in  || '' AS SELECT * FROM SA_'' || ''' || reg_summary.CONCEPT_NAME || ''';');
                /* (20160315) Angel Ruiz. NF: Se lleva a cabo salvaguarda si la particion existe */        
                UTL_FILE.put_line(fich_salida_pkg,'    if (forzado_in = ''N'') then' );
                UTL_FILE.put_line(fich_salida_pkg,'      EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' ADD PARTITION ' || v_nombre_particion || ''' || ''_'' || fch_carga_in || '' VALUES LESS THAN ('' || fch_particion || '') TABLESPACE ' || TABLESPACE_SA || ''';');
                UTL_FILE.put_line(fich_salida_pkg,'    end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'  end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'  if (exis_partition = 1 or (exis_partition = 0 and forzado_in = ''N'')) then' );
              elsif (v_interface_summary.FREQUENCY = 'E') then
                /* (20151013) Angel Ruiz. NF: Hay que llevar un historico dependiendo del tipo de tabla de STAGIN. De carga DIARIA o de carga EVENTUAL */
                UTL_FILE.put_line(fich_salida_pkg, '  fch_partition_num number(8);');
                UTL_FILE.put_line(fich_salida_pkg, '  v_fch_ultima_part varchar2(8);');
                UTL_FILE.put_line(fich_salida_pkg, '  v_existe_particion varchar2(1):=''N'';');
                UTL_FILE.put_line(fich_salida_pkg, '  v_hay_split varchar2(1):=''N'';');
                UTL_FILE.put_line(fich_salida_pkg, '  v_hay_add varchar2(1):=''N'';');
                UTL_FILE.put_line(fich_salida_pkg, '  v_nombre_parti varchar2(30);');
                UTL_FILE.put_line(fich_salida_pkg, '  v_fch_split varchar2(8);');
                UTL_FILE.put_line(fich_salida_pkg, '  v_fch_carga_in_mas_1 varchar2(8);');
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN' );
                UTL_FILE.put_line(fich_salida_pkg,'' );
                UTL_FILE.put_line(fich_salida_pkg,'  /* Primero borramos la particion que se ha quedado obsoleta */');
                UTL_FILE.put_line(fich_salida_pkg,'  /* siempre que no estemos en una ejecucion forzosa */');
                UTL_FILE.put_line(fich_salida_pkg,'  /* en caso contrario no tiene sentido */');
                /* (20160315) Angel Ruiz. NF: Se lleva a cabo salvaguarda si la particion existe */
                UTL_FILE.put_line(fich_salida_pkg,'  if (forzado_in = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'    fch_particion := TO_CHAR(ADD_MONTHS(TO_DATE(fch_carga_in,''YYYYMMDD''), -' || v_num_meses || '), ''YYYYMMDD'');');
                UTL_FILE.put_line(fich_salida_pkg,'    FOR nombre_particion_rec IN (');
                UTL_FILE.put_line(fich_salida_pkg,'      select partition_name' );
                UTL_FILE.put_line(fich_salida_pkg,'      from user_tab_partitions' );
                UTL_FILE.put_line(fich_salida_pkg,'      where table_name = ''SAH_' || v_concept_name || '''');
                UTL_FILE.put_line(fich_salida_pkg,'      and partition_name < ''' || v_nombre_particion || ''' || ''_'' || fch_particion )');
                UTL_FILE.put_line(fich_salida_pkg,'    LOOP' );
                --UTL_FILE.put_line(fich_salida_pkg,'    exis_partition :=  existe_particion (' || '''' || v_nombre_particion || ''' || ''_''' || ' || fch_particion, ''SAH_'' || ''' || v_concept_name || ''');');
                UTL_FILE.put_line(fich_salida_pkg,'      exis_partition :=  existe_particion (nombre_particion_rec.partition_name, ' || '''SAH_'' || ''' || v_concept_name || ''');');
                UTL_FILE.put_line(fich_salida_pkg,'      if (exis_partition = 1) then' );
                --UTL_FILE.put_line(fich_salida_pkg,'      EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' DROP PARTITION ' || v_nombre_particion || ''' || ''_'' || fch_particion' || ';');
                UTL_FILE.put_line(fich_salida_pkg,'        EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || ''' || ''.SAH_'' || ''' || v_concept_name || ''' || '' DROP PARTITION '' || nombre_particion_rec.partition_name'  || ';');
                UTL_FILE.put_line(fich_salida_pkg,'      end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'    END LOOP;' );
                UTL_FILE.put_line(fich_salida_pkg,'  end if;' );
                UTL_FILE.put_line(fich_salida_pkg,'' );
                UTL_FILE.put_line(fich_salida_pkg,'  /* Segundo llevamos a cabo la gestion de las particiones */');
                UTL_FILE.put_line(fich_salida_pkg,'  /* Recorremos todas las particiones para ver si existe la partiticion o hay que crearla, o bien hay que splitearla */');
                UTL_FILE.put_line(fich_salida_pkg,'  for nombre_particion_for in (');
                UTL_FILE.put_line(fich_salida_pkg,'    select partition_name from user_tab_partitions');
                UTL_FILE.put_line(fich_salida_pkg,'    where table_name = ''SAH_' || v_concept_name || '''');
                UTL_FILE.put_line(fich_salida_pkg,'    order by partition_position)');
                UTL_FILE.put_line(fich_salida_pkg,'  loop');
                UTL_FILE.put_line(fich_salida_pkg,'    fch_particion := substr (nombre_particion_for.partition_name, length (nombre_particion_for.partition_name) - 7);   /* Me quedo con la fecha */');
                UTL_FILE.put_line(fich_salida_pkg,'    if (fch_particion = fch_carga_in and v_existe_particion = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'       /* La particion existe, luego hay que truncarla */');
                UTL_FILE.put_line(fich_salida_pkg,'      v_existe_particion := ''S'';');
                UTL_FILE.put_line(fich_salida_pkg,'      v_nombre_parti := nombre_particion_for.partition_name;');
                UTL_FILE.put_line(fich_salida_pkg,'      exit;');
                UTL_FILE.put_line(fich_salida_pkg,'    elsif (fch_carga_in < fch_particion and v_hay_split = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'      v_hay_split := ''S'';');
                UTL_FILE.put_line(fich_salida_pkg,'      v_fch_ultima_part := fch_particion;');
                UTL_FILE.put_line(fich_salida_pkg,'      v_fch_split := to_char(to_date(fch_carga_in, ''YYYYMMDD'') + 1, ''YYYYMMDD'');');
                UTL_FILE.put_line(fich_salida_pkg,'      v_nombre_parti := nombre_particion_for.partition_name;');
                UTL_FILE.put_line(fich_salida_pkg,'      exit;');
                UTL_FILE.put_line(fich_salida_pkg,'    end if;');
                UTL_FILE.put_line(fich_salida_pkg,'  end loop;');
                UTL_FILE.put_line(fich_salida_pkg,'  v_fch_carga_in_mas_1 := to_char(to_date(fch_carga_in, ''YYYYMMDD'') + 1, ''YYYYMMDD'');');
                UTL_FILE.put_line(fich_salida_pkg,'  if v_existe_particion = ''S'' then');
                UTL_FILE.put_line(fich_salida_pkg,'    /* Truncamos la particion porque ya existe*/');
                UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || '.' || 'SAH_' || v_concept_name || ' TRUNCATE PARTITION '' || v_nombre_parti;');
                UTL_FILE.put_line(fich_salida_pkg,'  elsif v_hay_split = ''S'' then');
                UTL_FILE.put_line(fich_salida_pkg,'    if (forzado_in = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'      /* Hay que partir la particion inmediatamente superior */');
                UTL_FILE.put_line(fich_salida_pkg,'      EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || '.' || 'SAH_' || v_concept_name || ' SPLIT PARTITION '' || v_nombre_parti || '' AT ('' || v_fch_split || '') INTO (PARTITION '' || ''' || v_nombre_particion || ''' || ''_'' || fch_carga_in || '' , PARTITION '' || v_nombre_parti || '')''; ');
                UTL_FILE.put_line(fich_salida_pkg,'    end if;');
                UTL_FILE.put_line(fich_salida_pkg,'  else');
                UTL_FILE.put_line(fich_salida_pkg,'    if (forzado_in = ''N'') then');
                UTL_FILE.put_line(fich_salida_pkg,'      EXECUTE IMMEDIATE ''ALTER TABLE ' || OWNER_SA || '.' || 'SAH_' || v_concept_name || ' ADD PARTITION '' || ''' || v_nombre_particion || ''' || ''_'' || fch_carga_in || '' VALUES LESS THAN ('' || v_fch_carga_in_mas_1 || '') TABLESPACE '' || ''' || TABLESPACE_SA || ''';');
                UTL_FILE.put_line(fich_salida_pkg,'    end if;');
                UTL_FILE.put_line(fich_salida_pkg,'  end if;');
                UTL_FILE.put_line(fich_salida_pkg,'  if (v_existe_particion = ''S'' or (v_existe_particion = ''N'' and forzado_in = ''N'')) then' );
              end if;
              UTL_FILE.put_line(fich_salida_pkg,'    /* TERCERO LLEVO A CABO LA SALVAGUARDA DE LA INFORMACION */' );
              UTL_FILE.put_line(fich_salida_pkg,'    INSERT /*+ APPEND */ INTO ' || OWNER_SA || '.SAH_' || v_concept_name);
              UTL_FILE.put_line(fich_salida_pkg,'    (');
              OPEN dtd_interfaz_detail (v_concept_name, 'SA');
              primera_col := 1;
              LOOP
                FETCH dtd_interfaz_detail
                INTO reg_interface_detail;
                EXIT WHEN dtd_interfaz_detail%NOTFOUND;
                IF primera_col = 1 THEN /* Si es primera columna */
                  UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_interface_detail.COLUMNA);
                  primera_col := 0;
                ELSE
                  UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_interface_detail.COLUMNA);
                END IF;
              END LOOP;
              CLOSE dtd_interfaz_detail;
              UTL_FILE.put_line(fich_salida_pkg,'    ,CVE_DIA');
              UTL_FILE.put_line(fich_salida_pkg,'    )');
              UTL_FILE.put_line(fich_salida_pkg,'    SELECT');
              OPEN dtd_interfaz_detail (v_concept_name, 'SA');
              primera_col := 1;
              LOOP
                FETCH dtd_interfaz_detail
                INTO reg_interface_detail;
                EXIT WHEN dtd_interfaz_detail%NOTFOUND;
                IF primera_col = 1 THEN /* Si es primera columna */
                  UTL_FILE.put_line(fich_salida_pkg,'    ' || reg_interface_detail.COLUMNA);
                  primera_col := 0;
                ELSE
                  UTL_FILE.put_line(fich_salida_pkg,'    ,' || reg_interface_detail.COLUMNA);
                END IF;
              END LOOP;
              CLOSE dtd_interfaz_detail;
              UTL_FILE.put_line(fich_salida_pkg, '    ,TO_NUMBER(fch_carga_in)');
              UTL_FILE.put_line(fich_salida_pkg, '    FROM ' || OWNER_SA || '.' || reg_tabla.TABLE_NAME);
              UTL_FILE.put_line(fich_salida_pkg, '    ;');
              UTL_FILE.put_line(fich_salida_pkg, '    commit;');
              UTL_FILE.put_line(fich_salida_pkg, '  end if;');
              UTL_FILE.put_line(fich_salida_pkg, '');
              --UTL_FILE.put_line(fich_salida_pkg,'    EXECUTE IMMEDIATE ''TRUNCATE TABLE ' || OWNER_SA || ''' || ''.'' || ''' || reg_tabla.TABLE_NAME || ''';');
              UTL_FILE.put_line(fich_salida_pkg, '');
              UTL_FILE.put_line(fich_salida_pkg,'  exception');
              UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
              UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Se ha producido un error en el pre-proceso de staging. Tabla: '' || ''' || 'SA_' || v_concept_name || ''');');
              UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
              UTL_FILE.put_line(fich_salida_pkg,'    raise;');
              UTL_FILE.put_line(fich_salida_pkg, '  END pos_' || nombre_proceso || ';'); 
              UTL_FILE.put_line(fich_salida_pkg, '');
            end if;
            /* (20150720) Angel Ruiz. NF: FIN */
            /*******************/
            num_sce_integra:=0;
            /* Genero los cuerpos de los metodos que implementan los escenarios */
            open MTDT_SCENARIO (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_SCENARIO
              into reg_scenario;
              exit when MTDT_SCENARIO%NOTFOUND;
              dbms_output.put_line ('Estoy en el segundo LOOP MTDT_SCENARIO. El escenario es: ' || reg_scenario.SCENARIO);
              /********************/
              /********************/
              
              /* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
              if (lista_tablas_base.count = 0) then
                /* Solo existe una tabla base */
                nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
              else
                /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
              end if;
              /* (20150911) Angel Ruiz. FIN NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
        
              if (reg_scenario.SCENARIO = 'P')
              then
                num_sce_integra := num_sce_integra+1; /* Puede ocurrir que la misma tabla se cree o cargue a partir de varias tablas. Aqui contamos el numero. */
                dbms_output.put_line ('Estoy en el escenario: P');
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_redu || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  /* Funcion que implementa el escenario de EJECUCION NORMAL */');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  IS');
                UTL_FILE.put_line(fich_salida_pkg, '  num_filas_insertadas INTEGER;');
                UTL_FILE.put_line(fich_salida_pkg, '  var_fch_inicio date := sysdate;');
                UTL_FILE.put_line(fich_salida_pkg,'   exis_tabla number(1);');
                
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
                UTL_FILE.put_line(fich_salida_pkg, '');
                
                if num_sce_integra > 1 then
                  
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT INTO ' || OWNER_SA || '.' || reg_scenario.TABLE_NAME);
                  UTL_FILE.put_line(fich_salida_pkg, '    (');
                  /* (20160304) Angel Ruiz. Cambio el separador de campos de , a ; */
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma(reg_scenario.TABLE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    )');
                else
                  UTL_FILE.put_line(fich_salida_pkg, '    EXECUTE IMMEDIATE ''TRUNCATE TABLE '' || ''' || OWNER_SA || '.'' || ''' || reg_scenario.TABLE_NAME || ''';');
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT INTO ' || OWNER_SA || '.' || reg_scenario.TABLE_NAME);
                  UTL_FILE.put_line(fich_salida_pkg, '    (');
                  /* (20160304) Angel Ruiz. Cambio el separador de campos de , a ; */
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma(reg_scenario.TABLE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    )');
                end if;
                if (reg_scenario."SELECT" is null) then
                  /* Significa que se crea a partir de todos los campos de la tabla */
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT');
                  /* (20160304) Angel Ruiz. Cambio el separador de campos de , a ; */
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.INTERFACE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma(reg_scenario.INTERFACE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    FROM ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME);
                  if (reg_scenario.FILTER is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    WHERE ' || procesa_campo_filter_dinam(reg_scenario.FILTER));
                  end if;
                  if (reg_scenario."GROUP" is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    GROUP BY ' || reg_scenario."GROUP");
                  end if;
                  UTL_FILE.put_line(fich_salida_pkg, '    ;');
                else
                  /* Se ha escrito una SELECT */
                  /* Y PEGO LA SELECT QUE SE HA ESCRITO A PARTIR DEL INSERT */
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || procesa_campo_filter(reg_scenario."SELECT"));
                  UTL_FILE.put_line(fich_salida_pkg, '    ;');
                  --UTL_FILE.put_line(fich_salida_pkg, '      ('); 
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'');
                UTL_FILE.put_line(fich_salida_pkg,'  num_filas_insertadas := sql%rowcount;');
                --UTL_FILE.put_line(fich_salida_pkg,'    commit;');
                UTL_FILE.put_line(fich_salida_pkg,'  RETURN num_filas_insertadas;');
                
                UTL_FILE.put_line(fich_salida_pkg,'  exception');
                UTL_FILE.put_line(fich_salida_pkg,'  when NO_DATA_FOUND then');
                UTL_FILE.put_line(fich_salida_pkg,'    return sql%rowcount;');
                UTL_FILE.put_line(fich_salida_pkg,'  when OTHERS then');
                UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Se ha producido un error al insertar los nuevos registros.'');');
                UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
                --UTL_FILE.put_line(fich_salida_pkg,'      rollback;');
                UTL_FILE.put_line(fich_salida_pkg,'    RAISE;');
                --UTL_FILE.put_line(fich_salida_pkg,'      return sqlcode;');
                UTL_FILE.put_line(fich_salida_pkg,'  END i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ';');
                UTL_FILE.put_line(fich_salida_pkg, '');
              end if;
              /*********************************************************/
              /* (20151112) Angel Ruiz. NF.: REINYECCIÓN */
              /*********************************************************/
              if (reg_scenario.SCENARIO = 'HF')
              then
                num_sce_integra := num_sce_integra+1; /* Puede ocurrir que la misma tabla se cree o cargue a partir de varias tablas. Aqui contamos el numero. */
                dbms_output.put_line ('Estoy en el escenario: HF');
                UTL_FILE.put_line(fich_salida_pkg,'');
                --UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_redu || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                
                UTL_FILE.put_line(fich_salida_pkg, '  /* Funcion que implementa el escenario de HISTORICO FORZADO */');
                UTL_FILE.put_line(fich_salida_pkg, '  FUNCTION f_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2) return NUMBER');
                UTL_FILE.put_line(fich_salida_pkg, '  IS');
                UTL_FILE.put_line(fich_salida_pkg, '  num_filas_insertadas INTEGER;');
                UTL_FILE.put_line(fich_salida_pkg, '  var_fch_inicio date := sysdate;');
                UTL_FILE.put_line(fich_salida_pkg,'   exis_tabla number(1);');
                
                UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
                UTL_FILE.put_line(fich_salida_pkg, '');
                
                if num_sce_integra > 1 then
                  
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT INTO ' || OWNER_SA || '.' || reg_scenario.TABLE_NAME);
                  UTL_FILE.put_line(fich_salida_pkg, '    (');
                  /* (20160304) Angel Ruiz. NF: cambio de , por ; en la separacion de campos */
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma (reg_scenario.TABLE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    )');
                else
                  UTL_FILE.put_line(fich_salida_pkg, '    EXECUTE IMMEDIATE ''TRUNCATE TABLE '' || ''' || OWNER_SA || '.'' || ''' || reg_scenario.TABLE_NAME || ''';');
                  UTL_FILE.put_line(fich_salida_pkg, '    INSERT INTO ' || OWNER_SA || '.' || reg_scenario.TABLE_NAME);
                  UTL_FILE.put_line(fich_salida_pkg, '    (');
                  /* (20160304) Angel Ruiz. NF: cambio de , por ; en la separacion de campos */
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.TABLE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma (reg_scenario.TABLE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    )');
                end if;
                if (reg_scenario."SELECT" is null) then
                  /* Significa que se crea a partir de todos los campos de la tabla */
                  UTL_FILE.put_line(fich_salida_pkg, '    SELECT');
                  /* (20160304) Angel Ruiz. NF: cambio de , por ; en la separacion de campos */                  
                  --UTL_FILE.put_line(fich_salida_pkg, '    ' || reg_scenario.INTERFACE_COLUMNS);
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || cambio_puntoYcoma_por_coma(reg_scenario.INTERFACE_COLUMNS));
                  UTL_FILE.put_line(fich_salida_pkg, '    FROM ' || OWNER_SA || '.' || reg_scenario.TABLE_BASE_NAME);
                  if (reg_scenario.FILTER is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    WHERE ' || procesa_campo_filter_dinam(reg_scenario.FILTER));
                  end if;
                  if (reg_scenario."GROUP" is not null) then
                    UTL_FILE.put_line(fich_salida_pkg, '    GROUP BY ' || reg_scenario."GROUP");
                  end if;
                  UTL_FILE.put_line(fich_salida_pkg, '    ;');
                else
                  /* Se ha escrito una SELECT */
                  /* Y PEGO LA SELECT QUE SE HA ESCRITO A PARTIR DEL INSERT */
                  UTL_FILE.put_line(fich_salida_pkg, '    ' || procesa_campo_filter(reg_scenario."SELECT"));
                  UTL_FILE.put_line(fich_salida_pkg, '    ;');
                  --UTL_FILE.put_line(fich_salida_pkg, '      ('); 
                end if;
                UTL_FILE.put_line(fich_salida_pkg,'');
                UTL_FILE.put_line(fich_salida_pkg,'  num_filas_insertadas := sql%rowcount;');
                --UTL_FILE.put_line(fich_salida_pkg,'    commit;');
                UTL_FILE.put_line(fich_salida_pkg,'  RETURN num_filas_insertadas;');
                
                UTL_FILE.put_line(fich_salida_pkg,'  exception');
                UTL_FILE.put_line(fich_salida_pkg,'  when NO_DATA_FOUND then');
                UTL_FILE.put_line(fich_salida_pkg,'    return sql%rowcount;');
                UTL_FILE.put_line(fich_salida_pkg,'  when OTHERS then');
                UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Se ha producido un error al insertar los nuevos registros.'');');
                UTL_FILE.put_line(fich_salida_pkg,'    dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
                --UTL_FILE.put_line(fich_salida_pkg,'      rollback;');
                UTL_FILE.put_line(fich_salida_pkg,'    RAISE;');
                --UTL_FILE.put_line(fich_salida_pkg,'      return sqlcode;');
                UTL_FILE.put_line(fich_salida_pkg,'  END f_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ';');
                UTL_FILE.put_line(fich_salida_pkg, '');              
              end if;
              /*********************************************************/
              /* (20151112) Angel Ruiz. FIN NF.: REINYECCIÓN */
              /*********************************************************/

              /********************/
              /********************/
        
           end loop;
           close MTDT_SCENARIO;
          
           UTL_FILE.put_line(fich_salida_pkg, '  PROCEDURE load_' || reg_tabla.TABLE_NAME || ' (fch_carga_in IN VARCHAR2, fch_datos_in IN VARCHAR2, forzado_in IN VARCHAR2)');
           UTL_FILE.put_line(fich_salida_pkg, '  IS');
           /* Declaro las variables donde voy a retornar el numero de filas insertado */
            open MTDT_SCENARIO (reg_tabla.TABLE_NAME);
            loop
              fetch MTDT_SCENARIO
              into reg_scenario;
              exit when MTDT_SCENARIO%NOTFOUND;
              if (reg_scenario.SCENARIO = 'P') then
                --nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                --nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                 /* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
                if (lista_tablas_base.count = 0) then
                  /* Solo existe una tabla base */
                  nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                  nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                else
                  /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                  nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                  nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                end if;
                /* (20150911) Angel Ruiz. FIN NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
                UTL_FILE.put_line(fich_salida_pkg, '  v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu  || ' integer := 0;');
              end if;
              /* (20150904) Angel Ruiz. NF: Llamada a FUNCIONES EXTERNAS */
              if (reg_scenario.SCENARIO = 'F') then
                /*nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);*/
                /*nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);*/
                UTL_FILE.put_line(fich_salida_pkg, '  v_' || reg_scenario."SELECT"  || ' integer := 0;');
              end if;
              /* (20150904) Angel Ruiz. FIN NF: Llamada a FUNCIONES EXTERNAS */
              /* (20151113) Angel Ruiz. NF INYECCION */
              if (reg_scenario.SCENARIO = 'HF') then
                --nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                --nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                 /* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
                if (lista_tablas_base.count = 0) then
                  /* Solo existe una tabla base */
                  nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                  nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                else
                  /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                  nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                  nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
                end if;
                /* (20150911) Angel Ruiz. FIN NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
                --UTL_FILE.put_line(fich_salida_pkg, '  v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu  || ' integer := 0;');
              end if;
              /* (20151113) Angel Ruiz. FIN NF INYECCION */
            end loop;
            close MTDT_SCENARIO;
           UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_new integer := 0;');
           --UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_updt integer:=0;');
           --UTL_FILE.put_line(fich_salida_pkg, '  numero_reg_hist integer:=0;');
           UTL_FILE.put_line(fich_salida_pkg, '  siguiente_paso_a_ejecutar PLS_integer;');
           UTL_FILE.put_line(fich_salida_pkg, '  inicio_paso_tmr TIMESTAMP;');
           if (v_existe_escenario_HF = 'S' or v_existe_reinyeccion = 'Y') then
             UTL_FILE.put_line(fich_salida_pkg, '  v_existe_eje_pos number:=0;');             /* (20151213) Angel Ruiz. NF: REINYECCION */
           end if;
           UTL_FILE.put_line(fich_salida_pkg, '  BEGIN');
           UTL_FILE.put_line(fich_salida_pkg, '');
           /* (20151213) Angel Ruiz. NF: REINYECCION */
           if (v_existe_escenario_HF = 'S' or v_existe_reinyeccion = 'Y') then
             UTL_FILE.put_line(fich_salida_pkg, '    v_existe_eje_pos := APP_DISTMT.pkg_DMF_MONITOREO_DIST.existe_eje_posterior_OK (''load_' || reg_tabla.TABLE_NAME || '.sh'', to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
             UTL_FILE.put_line(fich_salida_pkg, '');
           end if;
           /* (20151213) Angel Ruiz. FIN NF: REINYECCION */           
            /* (20151108) Angel Ruiz. BUG: En el pre-proceso solo trunco la tabla de Staging sobre la que voy a cargar */
           UTL_FILE.put_line(fich_salida_pkg, '    /* TRUNCAMOS LOS DATOS */');
           UTL_FILE.put_line(fich_salida_pkg, '    pre_' || nombre_proceso || ' (fch_carga_in, fch_datos_in);');
            /* (20151108) Angel Ruiz. FIN BUG: */           
           UTL_FILE.put_line(fich_salida_pkg, '    /* INICIAMOS EL BUCLE POR CADA UNA DE LAS INSERCIONES EN LA TABLA DE STAGING */');
           UTL_FILE.put_line(fich_salida_pkg, '    /* EN EL CASO DE LAS DIMENSIONES SOLO DEBE HABER UN REGISTRO YA QUE NO HAY RETRASADOS */');
           UTL_FILE.put_line(fich_salida_pkg, '    dbms_output.put_line (''Inicio del proceso de carga: ''' || ' || ''' || 'load_' || reg_tabla.TABLE_NAME || ''' || ''.'');');
           UTL_FILE.put_line(fich_salida_pkg, '    siguiente_paso_a_ejecutar := ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.siguiente_paso (''load_' || reg_tabla.TABLE_NAME || '.sh'', to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
           UTL_FILE.put_line(fich_salida_pkg, '    if (forzado_in = ''F'') then');
           UTL_FILE.put_line(fich_salida_pkg, '      siguiente_paso_a_ejecutar := 1;');
           UTL_FILE.put_line(fich_salida_pkg, '    end if;');
           UTL_FILE.put_line(fich_salida_pkg, '    if (siguiente_paso_a_ejecutar = 1) then');
           UTL_FILE.put_line(fich_salida_pkg, '');
           UTL_FILE.put_line(fich_salida_pkg, '      inicio_paso_tmr := cast (systimestamp as timestamp);');
           --UTL_FILE.put_line(fich_salida_pkg, '      SET TRANSACTION NAME ''TRAN_' || reg_tabla.TABLE_NAME || ''';');
           UTL_FILE.put_line(fich_salida_pkg, '');
           open MTDT_SCENARIO (reg_tabla.TABLE_NAME);
           loop
             fetch MTDT_SCENARIO
             into reg_scenario;
             exit when MTDT_SCENARIO%NOTFOUND;
             /* (20151112) Angel Ruiz NF. INYECCION */
             if (reg_scenario.SCENARIO = 'HF') then
               --nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
               nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               --/* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
               if (lista_tablas_base.count = 0) then
                 /* Solo existe una tabla base */
                 nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                 nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               else
                 /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                 nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                 nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               end if;
               UTL_FILE.put_line(fich_salida_pkg, '      /* EXISTE UN ESCENARIO DE HISTORICO FORZADO (HF) */');
               UTL_FILE.put_line(fich_salida_pkg, '      if (forzado_in = ''F'' and v_existe_eje_pos = 1) then');

               UTL_FILE.put_line(fich_salida_pkg,'        v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' :=  f_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' (fch_carga_in, fch_datos_in);');
               UTL_FILE.put_line(fich_salida_pkg,'        numero_reg_new := numero_reg_new + v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ';');
               UTL_FILE.put_line(fich_salida_pkg, '      else');
             end if;
             /* (20151112) Angel Ruiz FIN NF. INYECCION */

             if (reg_scenario.SCENARIO = 'P') then
               --nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
               nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               --/* (20150911) Angel Ruiz. NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
               if (lista_tablas_base.count = 0) then
                 /* Solo existe una tabla base */
                 nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);
                 nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               else
                 /* Existen varias tablas base. Tomamos la primera tabla para crear el nombre de la funcion */
                 nombre_tabla_base_redu := SUBSTR(lista_tablas_base (lista_tablas_base.FIRST), 4);
                 nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);
               end if;
               /* (20150911) Angel Ruiz. FIN NF: Pueden aparecer varias tablas en TABLE_BASE_NAME */
               /* (20151213) Angel Ruiz. NF: REINYECCION */
               if (v_existe_escenario_HF = 'S') then
                  UTL_FILE.put_line(fich_salida_pkg,'        v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' :=  i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' (fch_carga_in, fch_datos_in);');
                  UTL_FILE.put_line(fich_salida_pkg,'        numero_reg_new := numero_reg_new + v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ';');
                  if (reg_scenario.REINYECTION = 'Y') then
                    /* Se trata de que el escenario aunque es de tipo P tiene reinyeccion */
                    UTL_FILE.put_line(fich_salida_pkg, '        if (v_existe_eje_pos <> 1) then');
                    UTL_FILE.put_line(fich_salida_pkg, '          /* HAY QUE EJECUTAR LA REINYECCION */');
                    UTL_FILE.put_line(fich_salida_pkg, '          /* Aqui va la llamada al procedimiento que hace la reinyeccion. Cuyo nombre genero en automatico. */');
                    UTL_FILE.put_line(fich_salida_pkg,'          ' || OWNER_SA || '.pkg_SAD_' || substr(reg_tabla.TABLE_NAME, 4) || '.SAD_' || substr(reg_tabla.TABLE_NAME, 4) || ' (TO_NUMBER(fch_datos_in), forzado_in);' );
                    UTL_FILE.put_line(fich_salida_pkg, '        end if;');
                    UTL_FILE.put_line(fich_salida_pkg,'      end if;');
                  else
                    UTL_FILE.put_line(fich_salida_pkg,'      end if;');
                  end if;
               else
                  UTL_FILE.put_line(fich_salida_pkg,'      v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' :=  i_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ' (fch_carga_in, fch_datos_in);');
                  UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_new := numero_reg_new + v_' || nombre_tabla_reducido || '_' || nombre_tabla_base_sp_redu || ';');
                  if (reg_scenario.REINYECTION = 'Y') then
                    /* Se trata de que el escenario aunque es de tipo P tiene reinyeccion */
                    UTL_FILE.put_line(fich_salida_pkg, '      if (v_existe_eje_pos <> 1) then');
                    UTL_FILE.put_line(fich_salida_pkg, '        /* HAY QUE EJECUTAR LA REINYECCION */');
                    UTL_FILE.put_line(fich_salida_pkg, '        /* Aqui va la llamada al procedimiento que hace la reinyeccion. Cuyo nombre genero en automatico. */');
                    UTL_FILE.put_line(fich_salida_pkg,'        ' || OWNER_SA || '.pkg_SAD_' || substr(reg_tabla.TABLE_NAME, 4) || '.SAD_' || substr(reg_tabla.TABLE_NAME, 4) || ' (TO_NUMBER(fch_datos_in), forzado_in);' );
                    UTL_FILE.put_line(fich_salida_pkg, '      end if;');
                  end if;
               end if;
               /* (20151213) Angel Ruiz. FIN NF: REINYECCION */
             end if;
             /* (20150904) Angel Ruiz. NF: LLamada a FUNCIONES EXTERNAS */
             if (reg_scenario.SCENARIO = 'F') then
               /*nombre_tabla_base_redu := SUBSTR(reg_scenario.TABLE_BASE_NAME, 4);*/
               /*nombre_tabla_base_sp_redu:=substr(nombre_tabla_base_redu, 1, 3);*/
               UTL_FILE.put_line(fich_salida_pkg, '      /* SE TRATA DE LA LLAMADA A UNA FUNCION EXTERNA */');
               UTL_FILE.put_line(fich_salida_pkg,'      v_' || reg_scenario."SELECT" || ' := ' || OWNER_SA || '.' || reg_scenario."SELECT" || ' (fch_carga_in, fch_datos_in);');
               UTL_FILE.put_line(fich_salida_pkg,'      numero_reg_new := numero_reg_new + v_' || reg_scenario."SELECT" || ';');
             end if;
             /* (20150904) Angel Ruiz. FIN NF: LLamada a FUNCIONES EXTERNAS */
           end loop;
           close MTDT_SCENARIO;
            /* (20151108) Angel Ruiz. BUG: Historico para tablas de Integracion */
            if (v_interface_summary.HISTORY IS NOT NULL) then
              /* He de incluir la salvaguarda de los datos */
             UTL_FILE.put_line(fich_salida_pkg, '    /* SALVAGUARDAMOS LOS DATOS */');
             UTL_FILE.put_line(fich_salida_pkg, '    pos_' || nombre_proceso || ' (fch_carga_in, fch_datos_in, forzado_in);');
            end if;
            /* (20151108) Angel Ruiz. FIN BUG.*/
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, por eso aparece un 1 en el campo de paso */');
            UTL_FILE.put_line(fich_salida_pkg, '      /* Este tipo de procesos solo tienen un paso, y ha terminado OK por eso aparece un 0 en el siguiente campo */');
            UTL_FILE.put_line(fich_salida_pkg, '      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 0, inicio_paso_tmr, systimestamp, to_date(fch_datos_in,''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''), numero_reg_new, 0, 0, numero_reg_new, 0);');
            UTL_FILE.put_line(fich_salida_pkg, '      COMMIT;');
            UTL_FILE.put_line(fich_salida_pkg, '    end if;');
            
        /***********/
            UTL_FILE.put_line(fich_salida_pkg, '');
            --UTL_FILE.put_line(fich_salida_pkg,'    RETURN 0;');
            
            UTL_FILE.put_line(fich_salida_pkg,'    exception');
            --UTL_FILE.put_line(fich_salida_pkg,'    when NO_DATA_FOUND then');
            --UTL_FILE.put_line(fich_salida_pkg,'      return sql%rowcount;');
            UTL_FILE.put_line(fich_salida_pkg,'    when OTHERS then');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''EL PROCESO HA ACABADO CON ERRORES.'');');
            UTL_FILE.put_line(fich_salida_pkg,'      dbms_output.put_line (''Error code: '' || sqlcode || ''. Mensaje: '' || sqlerrm);');
            UTL_FILE.put_line(fich_salida_pkg,'      ROLLBACK;');
            UTL_FILE.put_line(fich_salida_pkg,'      ' || OWNER_MTDT || '.pkg_' || PREFIJO_DM || 'F_MONITOREO_' ||  NAME_DM || '.inserta_monitoreo (''' || 'load_' || reg_tabla.TABLE_NAME || '.sh'',' || '1, 1, inicio_paso_tmr, systimestamp, to_date(fch_datos_in, ''yyyymmdd''), to_date(fch_carga_in, ''yyyymmdd''));');
            UTL_FILE.put_line(fich_salida_pkg,'      commit;    /* Hacemos el commit del inserta_monitoreo*/');
            UTL_FILE.put_line(fich_salida_pkg,'      RAISE;');
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, '  END load_' || reg_tabla.TABLE_NAME || ';');
            UTL_FILE.put_line(fich_salida_pkg, '');
            /****/
            /* FIN de la generacion de la funcion load */
            /****/
            
            UTL_FILE.put_line(fich_salida_pkg, 'END pkg_' || reg_tabla.TABLE_NAME || ';' );
            UTL_FILE.put_line(fich_salida_pkg, '/' );
            /******/
            /* FIN DE LA GENERACION DEL PACKAGE */
            /******/    
            UTL_FILE.put_line(fich_salida_pkg, '');
            UTL_FILE.put_line(fich_salida_pkg, 'grant execute on ' || OWNER_SA || '.pkg_' || reg_tabla.TABLE_NAME || ' to ' || OWNER_TC || ';');
            UTL_FILE.put_line(fich_salida_pkg, '/');
            UTL_FILE.put_line(fich_salida_pkg, 'exit SUCCESS;');
        
          
            /******/
            /* FIN DEL PACKGE BODY */
            /******/    
        /****************************************************/
        /****************************************************/
        /****************************************************/
        /****************************************************/
        /****************************************************/
            /******/
            /* INICIO DE LA GENERACION DEL sh de INTEGRACION */
            /******/
            
        /***********************/
            UTL_FILE.put_line(fich_salida_load, '#!/bin/bash');
            UTL_FILE.put_line(fich_salida_load, '#############################################################################');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Telefonica Moviles Mexico SA DE CV                                        #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Archivo    :       load_ ' ||  reg_tabla.TABLE_NAME || '.sh                            #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Autor      : <SYNAPSYS>.                                                  #');
            UTL_FILE.put_line(fich_salida_load, '# Proposito  : Shell que ejecuta los procesos de STAGING para ' || NAME_DM || 'S.        #');
            UTL_FILE.put_line(fich_salida_load, '# Parametros :                                                              #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Ejecucion  :                                                              #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Historia : 31-Octubre-2014 -> Creacion                                    #');
            UTL_FILE.put_line(fich_salida_load, '# Caja de Control - M :                                                     #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Observaciones: En caso de reproceso colocar la fecha deseada              #');
            UTL_FILE.put_line(fich_salida_load, '#                en formato YYYYMMDD la fecha minima es a dia vencido       #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Caducidad del Requerimiento :                                             #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Dependencias :                                                            #');
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Usuario:                                                                  #');   
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '# Telefono:                                                                 #');   
            UTL_FILE.put_line(fich_salida_load, '#                                                                           #');
            UTL_FILE.put_line(fich_salida_load, '#############################################################################');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '#Obtiene los password de base de datos                                         #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'InsertaFinFallido()');
            UTL_FILE.put_line(fich_salida_load, '{');
            UTL_FILE.put_line(fich_salida_load, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_load, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_' || reg_tabla.TABLE_NAME || '.sh 1 1 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_load, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_load, '   then');
            UTL_FILE.put_line(fich_salida_load, '      SUBJECT="${INTERFAZ}:Error en InsertarFinFallido"');
            UTL_FILE.put_line(fich_salida_load, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_load, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '      exit 1;');
            UTL_FILE.put_line(fich_salida_load, '   fi');
            UTL_FILE.put_line(fich_salida_load, '   return 0');
            UTL_FILE.put_line(fich_salida_load, '}');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'InsertaFinOK()');
            UTL_FILE.put_line(fich_salida_load, '{');
            UTL_FILE.put_line(fich_salida_load, '   #Se especifican parametros usuario y la BD');
            UTL_FILE.put_line(fich_salida_load, '   EjecutaInserMonitoreo ${BD_SID} ${BD_USUARIO} ${' || NAME_DM || '_SQL}/insert_monitoreo.sql ' || 'load_' || reg_tabla.TABLE_NAME || '.sh 1 0 "''${INICIO_PASO_TMR}''" systimestamp ${FCH_DATOS} ${FCH_CARGA}' || ' >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log 2>&' || '1' );
            UTL_FILE.put_line(fich_salida_load, '   if [ $? -ne 0 ]');
            UTL_FILE.put_line(fich_salida_load, '   then');
            UTL_FILE.put_line(fich_salida_load, '      SUBJECT="${INTERFAZ}:Error en InsertarFinOK"');
            UTL_FILE.put_line(fich_salida_load, '      echo "${INTERFAZ}: Error al intentar insertar un registro en el metadato." | mailx -s "${SUBJECT}" "${CTA_MAIL}"');
            UTL_FILE.put_line(fich_salida_load, '      ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '      exit 1;');
            UTL_FILE.put_line(fich_salida_load, '   fi');
            UTL_FILE.put_line(fich_salida_load, '   return 0');
            UTL_FILE.put_line(fich_salida_load, '}');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# EJECUCION DEL PROGRAMA EN PRO C O QUERYS                                     #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_ENTORNO}/entorno' || NAME_DM || '_' || PAIS || '.sh');
            UTL_FILE.put_line(fich_salida_load, '# Comprobamos si el numero de parametros es el correcto');
            UTL_FILE.put_line(fich_salida_load, 'if [ $# -ne 3 ] ; then');
            UTL_FILE.put_line(fich_salida_load, '  SUBJECT="Numero de paramatros de entrada incorrecto. Uso: ${0} <fch_carga> <fch_datos> <forzado>"');
            UTL_FILE.put_line(fich_salida_load, '  echo ${SUBJECT}');        
            UTL_FILE.put_line(fich_salida_load, '  exit 1');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '# Recogida de parametros');
            UTL_FILE.put_line(fich_salida_load, 'FCH_CARGA=${1}');
            UTL_FILE.put_line(fich_salida_load, 'FCH_DATOS=${2}');
            UTL_FILE.put_line(fich_salida_load, 'BAN_FORZADO=${3}');
            UTL_FILE.put_line(fich_salida_load, 'FECHA_HORA=${FCH_DATOS}_`date +%Y%m%d_%H%M%S`');
            
            --UTL_FILE.put_line(fich_salida_sh, 'set -x');
            --UTL_FILE.put_line(fich_salida_load, 'echo "load_' || reg_tabla.TABLE_NAME || '" > ${MVNO_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FCH_CARGA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, '# Comprobamos si existe el directorio de Trazas para fecha de carga');
            UTL_FILE.put_line(fich_salida_load, 'if ! [ -d ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA} ] ; then');
            UTL_FILE.put_line(fich_salida_load, '  mkdir ${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, NAME_DM || '_TRAZAS=${' || NAME_DM || '_TRAZAS}/${FCH_CARGA}');
            UTL_FILE.put_line(fich_salida_load, 'echo "${0}" > ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');
            UTL_FILE.put_line(fich_salida_load, 'echo "Inicia Proceso: `date +%d/%m/%Y\ %H:%M:%S`"  >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');    
            UTL_FILE.put_line(fich_salida_load, 'echo "Fecha de Carga: ${FCH_CARGA}"  >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');    
            UTL_FILE.put_line(fich_salida_load, 'echo "Fecha de Datos: ${FCH_DATOS}"  >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');    
            UTL_FILE.put_line(fich_salida_load, 'echo "Forzado: ${BAN_FORZADO}"  >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ');    
            UTL_FILE.put_line(fich_salida_load, '#Permite los acentos y U');
            UTL_FILE.put_line(fich_salida_load, 'NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1');
            UTL_FILE.put_line(fich_salida_load, 'export NLS_LANG');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# VARIABLES ESPECIFICAS PARA EL PROCESO                                        #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'REQ_NUM="' || v_REQ_NUMER || '"');
            --UTL_FILE.put_line(fich_salida_load, 'REQ_NUM="Req96817"');
            UTL_FILE.put_line(fich_salida_load, 'INTERFAZ=' || v_REQ_NUMER || '_load_' || reg_tabla.TABLE_NAME);
            --UTL_FILE.put_line(fich_salida_load, 'INTERFAZ=Req96817_load_' || reg_tabla.TABLE_NAME);
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# LIBRERIAS                                                                    #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilBD.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilArchivo.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/UtilUnix.sh');
            UTL_FILE.put_line(fich_salida_load, '. ${' || NAME_DM || '_UTILIDADES}/Util' || NAME_DM || '.sh');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, '# Cuentas  Produccion / Desarrollo                                             #');
            UTL_FILE.put_line(fich_salida_load, '################################################################################');
            UTL_FILE.put_line(fich_salida_load, 'if [ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.102" ]||[ "`/sbin/ifconfig -a | grep ''10.225.173.'' | awk ''{print $2}''`" = "10.225.173.184" ]; then');
            UTL_FILE.put_line(fich_salida_load, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_load, 'else');
            UTL_FILE.put_line(fich_salida_load, '  ### Cuentas para mantenimiento');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_Usuario_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  CTA_MAIL=`cat ${' || NAME_DM || '_CONFIGURACION}/Correos_Mtto_ReportesBI.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_DWH=`cat ${' || NAME_DM || '_CONFIGURACION}/TelefonosMantto.txt`');
            UTL_FILE.put_line(fich_salida_load, '  TELEFONOS_USUARIOS=`cat ${' || NAME_DM || '_CONFIGURACION}/TELEFONOS_USUARIOS.txt`');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'ObtenContrasena ${BD_SID} ${BD_USUARIO}');
            UTL_FILE.put_line(fich_salida_load, 'BD_CLAVE=${PASSWORD}');
        
        /***********************/
            UTL_FILE.put_line(fich_salida_load, '# Llamada a sql_plus');
            UTL_FILE.put_line(fich_salida_load, 'sqlplus -s /nolog <<EOF >> ${' || NAME_DM || '_TRAZAS}/load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}' || '.log ' ||  '2>&' || '1');
            UTL_FILE.put_line(fich_salida_load, 'connect ${BD_USUARIO}/${BD_CLAVE}@${BD_SID}');
            UTL_FILE.put_line(fich_salida_load, 'whenever sqlerror exit 1;');
            UTL_FILE.put_line(fich_salida_load, 'whenever oserror exit 2;');
            UTL_FILE.put_line(fich_salida_load, 'set feedback off;');
            UTL_FILE.put_line(fich_salida_load, 'set serveroutput on;');
            UTL_FILE.put_line(fich_salida_load, 'set echo on;');
            UTL_FILE.put_line(fich_salida_load, 'set pagesize 0;');
            UTL_FILE.put_line(fich_salida_load, 'set verify off;');
            UTL_FILE.put_line(fich_salida_load, '');
            --UTL_FILE.put_line(fich_salida_load, 'declare');
            --UTL_FILE.put_line(fich_salida_load, '  num_filas_insertadas number;');
            UTL_FILE.put_line(fich_salida_load, 'begin');
            UTL_FILE.put_line(fich_salida_load, '  ' || OWNER_SA || '.pkg_' || reg_tabla.TABLE_NAME || '.' || 'load_' || reg_tabla.TABLE_NAME || '(''${FCH_CARGA}'',''${FCH_DATOS}'', ''${BAN_FORZADO}'');');
            UTL_FILE.put_line(fich_salida_load, 'end;');
            UTL_FILE.put_line(fich_salida_load, '/');
            UTL_FILE.put_line(fich_salida_load, 'exit 0;');
            UTL_FILE.put_line(fich_salida_load, 'EOF');
        
            UTL_FILE.put_line(fich_salida_load, 'err_salida=$?');
            UTL_FILE.put_line(fich_salida_load, 'if [ ${err_salida} -ne 0 ]; then');
            UTL_FILE.put_line(fich_salida_load, '  SUBJECT="${INTERFAZ}: Surgio un error en el sqlplus en la llamada a load_' || reg_tabla.TABLE_NAME || '. Error:  ${err_salida}."');
            UTL_FILE.put_line(fich_salida_load, '  ${SHELL_SMS} "${TELEFONOS_DWH}" "${SUBJECT}"');
            UTL_FILE.put_line(fich_salida_load, '  echo ${SUBJECT} >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');        
            UTL_FILE.put_line(fich_salida_load, '  echo `date` >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            --UTL_FILE.put_line(fich_salida_load, '  InsertaFinFallido');
            UTL_FILE.put_line(fich_salida_load, '  exit 1');
            UTL_FILE.put_line(fich_salida_load, 'fi');
            UTL_FILE.put_line(fich_salida_load, '');
            UTL_FILE.put_line(fich_salida_load, 'echo "El proceso load_' || reg_tabla.TABLE_NAME || ' se ha realizado correctamente." >> ' || '${' || NAME_DM || '_TRAZAS}/' || 'load_' || reg_tabla.TABLE_NAME || '_${FECHA_HORA}.log');
            UTL_FILE.put_line(fich_salida_load, 'exit 0');
            /******/
            /* FIN DE LA GENERACION DEL sh de NUEVOS Y EXISTENTES */
            /******/
            /******/
            UTL_FILE.FCLOSE (fich_salida_load);
            UTL_FILE.FCLOSE (fich_salida_pkg);
    
    end if;
  end loop;   
  close MTDT_TABLA;
end;