How to create multi node /data Tree by using few loops or small code

Question

HI.
I WANT TO CREATE A TREE WHICH IS HAVING MULTI NUMBER OF NODE LEVEL (USER HAVE THE ABILITY TO CREATE AS MANY AS REQUIRED NODE LEVEL OR SUBLEVEL). HOW CAN I POPULATE THE TREE WITH SMALL CODE. AS EVERY NODE LEVEL NEED ON NESTED LOOP. SO HOW CAN I MANAGE TO POPULATE THE NODE WITH FEW LOOPS. OR THERE IS ANY OTHER WAY TO MANAGE THIS PROBLEM.
THANKS

Answer 1

Hi ,
I am trying to do the job , but i do not understand where
is the problem with my loop , i am sending it , could you
see it , and sujjest me , what to do. or if you have time
can you write the code for me. as i am very much needy for
this job.
The Table is as:-
CREATE TABLE TREE_01(
RECORD_NO NUMBER(10), --
OWN_CODE VARCHAR2(10),
PARENT_NO NUMBER(10),
PARENT_CODE VARCHAR2(10),
LEVELL NUMBER(4),
DEPT NUMBER(6),
CONSTRAINT RNO_PK PRIMARY KEY(RECORD_NO));
INSERT INTO TREE_01 VALUES(1,'1',0,'0',2,8540);
INSERT INTO TREE_01 VALUES(2,'2',0,'0',2,8540);
INSERT INTO TREE_01 VALUES(3,'3',0,'0',2,8540);
INSERT INTO TREE_01 VALUES(4,'4',0,'0',2,8540);
INSERT INTO TREE_01 VALUES(5,'1',1,'0',3,8540);
INSERT INTO TREE_01 VALUES(6,'2',1,'0',3,8540);
INSERT INTO TREE_01 VALUES(7,'3',1,'0',3,8540);
INSERT INTO TREE_01 VALUES(8,'1',3,'0',3,8540);
INSERT INTO TREE_01 VALUES(9,'2',3,'0',3,8540);
the loop shoud look like
|_DataProcessing
| |+Work_orders
| |_Programmers File
| | |_James
| | | |+Requests
| | | |+Leves
| | | |_Projects
| | | |_Projects001
| | |+Steven
|+HealthCare
|+Transportation
So the loop should be such that it can be go to any level of any node.
the Code i writter is As follows.
The Following Procedure is called in form leve
When new forms instance.
PROCEDURE REFRESH_TREE2 IS
CURSOR CUR_DEPT IS
     SELECT DEPT
     FROM TREE_01 GROUP BY DEPT;
CURSOR CUR_LOOP1(PARENT1 NUMBER,LEVEL1 NUMBER) IS
     SELECT RECORD_NO,
     OWN_CODE,
     PARENT_NO,
     DEPT ,
     PARENT_CODE,
     LEVELL
     FROM TREE_01
     WHERE LEVELL=LEVEL1
     AND RECORD_NO=PARENT1;
CURSOR CUR_LOOP2(PARENT2 NUMBER,LEVEL2 NUMBER) IS
     SELECT RECORD_NO,
     OWN_CODE,
     PARENT_NO,
     DEPT ,
     PARENT_CODE,
     LEVELL
     FROM TREE_01
     WHERE LEVELL=LEVEL2
     AND RECORD_NO=PARENT2;
CURSOR LEVEL(PARENTNO NUMBER) IS
     SELECT LEVELL FROM TREE_01 WHERE PARENT_NO=PARENTNO
     ORDER BY RECORD_NO;
     V_I NUMBER;
     V_IGNORE NUMBER;
     RG_DEPT RECORDGROUP;
     RG_CABI RECORDGROUP;
     V_INIT_STATE GROUPCOLUMN;
     V_LEVEL GROUPCOLUMN;
     V_LABEL GROUPCOLUMN;
     V_ICON GROUPCOLUMN;
     V_VALUE GROUPCOLUMN;
     V_CHANGE_VALUE VARCHAR2(20);
     V_CHANGE_VALUE1 NUMBER(3);
     V_CHANGE_VALUE2 NUMBER(3);
V_LEVEL_COUNT NUMBER;
BEGIN
     SELECT MAX(LEVELL) INTO V_LEVEL_COUNT FROM TREE_01;
     RG_DEPT:=FIND_GROUP('DEPT');
     if not id_null(RG_DEPT) then
delete_group(RG_DEPT);
end if;
     RG_DEPT:=create_group('DEPT');
     V_INIT_STATE := add_group_column(RG_DEPT, 'INIT_STATE', NUMBER_COLUMN);
     V_LEVEL :=ADD_GROUP_COLUMN(RG_DEPT,'LEVEL',NUMBER_COLUMN);
     V_LABEL :=ADD_GROUP_COLUMN(RG_DEPT,'LABEL',CHAR_COLUMN,40);
     V_ICON :=ADD_GROUP_COLUMN(RG_DEPT,'ICON',CHAR_COLUMN,20);
     V_VALUE :=ADD_GROUP_COLUMN(RG_DEPT,'VALUE',CHAR_COLUMN,15);
     V_I :=1;
     FOR DEPTREC IN CUR_DEPT LOOP
     ADD_GROUP_ROW(RG_DEPT,V_I);
     SET_GROUP_NUMBER_CELL(V_INIT_STATE,V_I,1);
     SET_GROUP_NUMBER_CELL(V_LEVEL ,V_I,1);
     SET_GROUP_CHAR_CELL(V_LABEL ,V_I,FILING.ELOOK_IT(11,0,DEPTREC.DEPT));--MAIN_MINOR));
     SET_GROUP_CHAR_CELL(V_ICON ,V_I,NULL);
     SET_GROUP_CHAR_CELL(V_VALUE ,V_I,TO_CHAR(DEPTREC.DEPT)); --MAIN_MINOR));
     V_I:= V_I +1;
     V_CHANGE_VALUE := DEPTREC.DEPT;
     FOR I IN 1..V_LEVEL_COUNT LOOP
     FOR DEPTREC1 IN CUR_LOOP1(V_CHANGE_VALUE,I) LOOP --MAIN_MINOR,I) LOOP
     ADD_GROUP_ROW(RG_DEPT,V_I);
     SET_GROUP_NUMBER_CELL(V_INIT_STATE,V_I,1);
     SET_GROUP_NUMBER_CELL(V_LEVEL ,V_I,I);
     SET_GROUP_CHAR_CELL(V_LABEL ,V_I,DEPTREC1.RECORD_NO);
     SET_GROUP_CHAR_CELL(V_ICON ,V_I,NULL);
     SET_GROUP_CHAR_CELL(V_VALUE ,V_I,DEPTREC1.RECORD_NO);
     V_I:= V_I +1;
     SELECT count(LEVELL) INTO V_CHANGE_VALUE1
FROM TREE_01
WHERE RECORD_NO=DEPTREC1.RECORD_NO
     AND PARENT_NO=DEPTREC1.PARENT_NO
     AND LEVELL=DEPTREC1.LEVELL;
     SELECT MAX(LEVELL) INTO V_CHANGE_VALUE2
     FROM TREE_01
     WHERE RECORD_NO=DEPTREC1.RECORD_NO
     AND PARENT_NO=DEPTREC1.PARENT_NO
     AND LEVELL=DEPTREC1.LEVELL;
          FOR j IN 1..V_CHANGE_VALUE1 loop
          FOR LVL IN LEVEL(DEPTREC1.RECORD_NO) LOOP
          FOR DEPTREC2 IN CUR_LOOP2(DEPTREC1.RECORD_NO, LVL.LEVELL) LOOP
     ADD_GROUP_ROW(RG_DEPT,V_I);
     SET_GROUP_NUMBER_CELL(V_INIT_STATE,V_I,1);
     SET_GROUP_NUMBER_CELL(V_LEVEL ,V_I,LVL.LEVELL);
     SET_GROUP_CHAR_CELL(V_LABEL ,V_I,DEPTREC2.RECORD_NO);
     SET_GROUP_CHAR_CELL(V_ICON ,V_I,NULL);
     SET_GROUP_CHAR_CELL(V_VALUE ,V_I,DEPTREC2.RECORD_NO);
     V_I:= V_I +1;
     V_CHANGE_VALUE := DEPTREC2.RECORD_NO;
               end loop;
     end loop;
     END LOOP;
     END LOOP;
     END LOOP;
     END LOOP;
     ftree.set_tree_property('NAVIGATOR.NAV_DISPLAY',ftree.record_Group, rg_dept);
     end;