How to create a conuntry Hierarchy

Question

For anyone who need...
create or replace procedure prc_path IS
cursor cun is
select distinct country
from test1;
cursor reg(v_con varchar2) is
select distinct region
from test1
where country = v_con;
cursor st(v_con varchar2 , v_reg varchar2) is
select distinct state
from  test1
where country = v_con
and   region  = v_reg ;
cursor ct(v_con varchar2 , v_reg varchar2 , v_st varchar2) is
select distinct city
from  test1
where country = v_con
and   region  = v_reg
and   state   = v_st;
v_con_num number := 1;
v_reg_num number;
v_st_num number;
v_ct_num number;
v_hir_key number;
begin
delete from bus_unit;
delete from bushirkey;
for r_cun in cun loop
dbms_output.put_line('<1st loop> Country Name : '||r_cun.country);
insert into bus_unit (busunitkey , busunitname)
values (v_con_num , r_cun.country);
insert into bushirkey (busunitkey , hirkey)
values (v_con_num , 0);
v_con_num := v_con_num + 1 ;
end loop;
v_reg_num := v_con_num ;
for r_cun in cun loop
  for r_reg in reg(r_cun.country) loop
    dbms_output.put_line('<2nd loop> Country Name : '||r_cun.country);
    dbms_output.put_line('<2nd loop> Region Name : '||r_reg.region);
    insert into bus_unit (busunitkey , busunitname)
    values (v_reg_num , r_reg.region);
    select distinct busunitkey
    into v_hir_key
    from bus_unit
    where busunitname = r_cun.country;
    insert into bushirkey (busunitkey , hirkey)
    values (v_reg_num , v_hir_key);
    v_reg_num := v_reg_num + 1 ;
  end loop;
end loop;
v_st_num := v_reg_num;
for r_cun in cun loop
  for r_reg in reg(r_cun.country) loop
    for r_st in st(r_cun.country,r_reg.region) loop
      dbms_output.put_line('<3rd loop> Country Name : '||r_cun.country);
      dbms_output.put_line('<3rd loop> Region Name : '||r_reg.region);
      dbms_output.put_line('<3rd loop> State Name : '||r_st.state);
      insert into bus_unit (busunitkey , busunitname)
      values (v_st_num , r_st.state);
      select distinct busunitkey
      into v_hir_key
      from bus_unit
      where busunitname = r_reg.region;
      insert into bushirkey (busunitkey , hirkey)
      values (v_st_num , v_hir_key);
      v_st_num := v_st_num + 1 ;
    end loop;
  end loop;
end loop;
v_ct_num := v_st_num;
for r_cun in cun loop
  for r_reg in reg(r_cun.country) loop
    for r_st in st(r_cun.country,r_reg.region) loop
      for r_ct in ct(r_cun.country,r_reg.region,r_st.state) loop
        dbms_output.put_line('<4th loop> Country Name : '||r_cun.country);
        dbms_output.put_line('<4th loop> Region Name : '||r_reg.region);
        dbms_output.put_line('<4th loop> State Name : '||r_st.state);
        dbms_output.put_line('<4th loop> City Name : '||r_ct.city);
        insert into bus_unit (busunitkey , busunitname)
        values (v_ct_num , r_ct.city);
        select distinct busunitkey
        into v_hir_key
        from bus_unit
        where busunitname = r_st.state;
        insert into bushirkey (busunitkey , hirkey)
        values (v_ct_num , v_hir_key);
        v_ct_num := v_ct_num + 1 ;
      end loop;
    end loop;
  end loop;
end loop;
exception
when others then
dbms_output.put_line('ERROR'||SQLERRM);
end;Edited by: BluShadow on 17-Mar-2011 11:33
added {noformat}{noformat} tags to preserve formatting (what little of it there is)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       

Answer 1

user1642876 wrote:
i want to know what other ways to get...You could refactor your code like this:
SQL> create or replace procedure prc_path
  2  is
  3  begin
  4    insert all
  5           into bus_unit (busunitkey,busunitname)
  6           values (area_key,area_name)
  7           into bushirkey (busunitkey,hirkey)
  8           values (area_key,parent_key)
  9    with all_areas as
10    ( select distinct null parent_name
11           , country name
12        from test1
13       union all
14      select distinct country
15           , region
16        from test1
17       union all
18      select distinct region
19           , state
20        from test1
21       union all
22      select distinct state
23           , city
24        from test1
25    )
26    , all_areas_with_numbers as
27    ( select rownum key
28           , parent_name
29           , name
30        from all_areas
31    )
32    select a.key area_key
33         , a.name area_name
34         , nvl(p.key,0) parent_key
35      from all_areas_with_numbers a
36         , all_areas_with_numbers p
37     where a.parent_name = p.name (+)
38    ;
39  end prc_path;
40  /If I test it with these tables:
SQL> create table test1 (country,region,state,city)
  2  as
  3  select 'USA','West USA','California','San Francisco' from dual union all
  4  select 'USA','West USA','California','Los Angeles' from dual union all
  5  select 'USA','West USA','Washington','Seattle' from dual union all
  6  select 'USA','East USA','Florida','Miami' from dual union all
  7  select 'USA','East USA','Florida','Orlando' from dual
  8  /
Table created.
SQL> create table bus_unit
  2  ( busunitkey  number
  3  , busunitname varchar2(30)
  4  )
  5  /
Table created.
SQL> create table bushirkey
  2  ( busunitkey number
  3  , hirkey     number
  4  )
  5  /
Table created.Then your procedure gives you this:
SQL> exec prc_path
<1st loop> Country Name : USA
<2nd loop> Country Name : USA
<2nd loop> Region Name : East USA
<2nd loop> Country Name : USA
<2nd loop> Region Name : West USA
<3rd loop> Country Name : USA
<3rd loop> Region Name : East USA
<3rd loop> State Name : Florida
<3rd loop> Country Name : USA
<3rd loop> Region Name : West USA
<3rd loop> State Name : California
<3rd loop> Country Name : USA
<3rd loop> Region Name : West USA
<3rd loop> State Name : Washington
<4th loop> Country Name : USA
<4th loop> Region Name : East USA
<4th loop> State Name : Florida
<4th loop> City Name : Miami
<4th loop> Country Name : USA
<4th loop> Region Name : East USA
<4th loop> State Name : Florida
<4th loop> City Name : Orlando
<4th loop> Country Name : USA
<4th loop> Region Name : West USA
<4th loop> State Name : California
<4th loop> City Name : Los Angeles
<4th loop> Country Name : USA
<4th loop> Region Name : West USA
<4th loop> State Name : California
<4th loop> City Name : San Francisco
<4th loop> Country Name : USA
<4th loop> Region Name : West USA
<4th loop> State Name : Washington
<4th loop> City Name : Seattle
PL/SQL procedure successfully completed.
SQL> select *
  2    from bus_unit
  3   order by busunitkey
  4  /
BUSUNITKEY BUSUNITNAME
         1 USA
         2 East USA
         3 West USA
         4 Florida
         5 California
         6 Washington
         7 Miami
         8 Orlando
         9 Los Angeles
        10 San Francisco
        11 Seattle
11 rows selected.
SQL> select *
  2    from bushirkey
  3   order by busunitkey
  4  /
BUSUNITKEY     HIRKEY
         1          0
         2          1
         3          1
         4          2
         5          3
         6          3
         7          4
         8          4
         9          5
        10          5
        11          6
11 rows selected.And the new code gives:
SQL> exec prc_path
PL/SQL procedure successfully completed.
SQL> select *
  2    from bus_unit
  3   order by busunitkey
  4  /
BUSUNITKEY BUSUNITNAME
         1 USA
         2 East USA
         3 West USA
         4 Florida
         5 California
         6 Washington
         7 Los Angeles
         8 San Francisco
         9 Miami
        10 Orlando
        11 Seattle
11 rows selected.
SQL> select *
  2    from bushirkey
  3   order by busunitkey
  4  /
BUSUNITKEY     HIRKEY
         1          0
         2          1
         3          1
         4          2
         5          3
         6          3
         7          5
         8          5
         9          4
        10          4
        11          6
11 rows selected.Regards,
Rob.