create or replace package body pkg_nkw_dnt_std
timestamp '2006-07-07:10:10:10'
is
   ------------------------------------------------------------------
   -- 2006 DataPRO Developers - m@urelio
   ------------------------------------------------------------------
   -- Version: 2.0.2
   ------------------------------------------------------------------
   -- Collections, Records, Variables, Constants, Exceptions, Cursors
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   ----------------------- Private Section --------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   -- DATA_SORT
   ------------------------------------------------------------------
   procedure data_sort
   is
      i        binary_integer := 1;
      j        i%TYPE;
      k        i%TYPE;
      lv_least varchar2(30) := rpad('z',30,'z');
   begin
      << main_loop >>
      while (gt_data.count > 0) loop
         j := gt_data.first;
         << least_loop >>
         while (j is not null) loop
            lv_least := least(lv_least, gt_data(j).column_name);
            j := gt_data.next(j);
         end loop least_loop;
         k := gt_data.first;
         << get_loop >>
         while (k is not null) loop
            if (lv_least = gt_data(k).column_name) then
               gt_sort(i).column_id := k;
               gt_sort(i).column_name := gt_data(k).column_name;
               gt_sort(i).data_type := gt_data(k).data_type;
               i := i + 1;
               gt_data.delete(k);
               lv_least := rpad('z',30,'z');
               exit get_loop;
            end if;
            k := gt_data.next(k);
         end loop get_loop;
      end loop main_loop;
      exception
         when others then raise;
   end data_sort;
   ------------------------------------------------------------------
   ------------------------ Public Section --------------------------
   ------------------------------------------------------------------
   ------------------------------------------------------------------
   -- BUILD_STMT
   ------------------------------------------------------------------
   procedure build_stmt(ft_data in     gt_data%TYPE,
                        fv_stmt in out varchar2)
   is
      i        binary_integer;
      lv_type  varchar2(30);
   begin
      gt_data := ft_data;
      gt_sort.delete;
      data_sort;
      if (fv_stmt is not null) then
         i := gt_sort.last;
         while (i is not null) loop
            if (upper(gt_sort(i).data_type) = 'DATE') then
               lv_type := 'date_value';
            elsif (upper(gt_sort(i).data_type) = 'NUMBER') then
               lv_type := 'number_value';
            elsif (upper(gt_sort(i).data_type) = 'VARCHAR2') then
               lv_type := 'varchar2_value';
            end if;
            fv_stmt := replace(fv_stmt, ':old.' || lower(gt_sort(i).column_name),
                                        'pkg_nkw_dnt.gt_old_data(' || gt_sort(i).column_id || ').' || lv_type);
            fv_stmt := replace(fv_stmt, ':new.' || lower(gt_sort(i).column_name),
                                        'pkg_nkw_dnt.gt_new_data(' || gt_sort(i).column_id || ').' || lv_type);
            i := gt_sort.prior(i);
         end loop;
      end if;
      exception
         when others then
           raise;
   end build_stmt;
end pkg_nkw_dnt_std;
/
show errors