PROCEDURE funtree
    ( p_fun   ci_functions%ROWTYPE
    , p_level NUMBER DEFAULT 0
    )
  IS
  BEGIN
    -- Output this row
    p.tr
      ( LPAD( '.  ', p_level*3, '.  ' ) || p_fun.function_label
      , LPAD( '.  ', p_level*3, '.  ' ) || p_fun.short_definition
       );
    -- Process descendants
    FOR r IN 
      ( SELECT * FROM ci_functions
        WHERE parent_reference = p_fun.id
        ORDER BY function_label
      )
    LOOP
      funtree( r, p_level+1 );
    END LOOP;
  END funtree;

CREATE OR REPLACE PROCEDURE get_items(item IN pizza_items.name%type) AS
   TYPE local_tracker IS REF CURSOR;
   pizza_tracker local_tracker;
   ingredient_tracker pizza_items%ROWTYPE; 

   TYPE  ingredients_table IS TABLE OF pizza_items.name%TYPE
   INDEX BY BINARY_INTEGER;
   short_list ingredients_table;
   short_list_dex BINARY_INTEGER;

BEGIN
   --get the cursors 
   OPEN pizza_tracker FOR SELECT * FROM  pizza_items WHERE used_in = item;
   --fill out the table
   FETCH pizza_tracker INTO ingredient_tracker;
   short_list_dex := 1;
   LOOP
      EXIT WHEN pizza_tracker%NOTFOUND;     
      get_items(ingredient_tracker.name);
      short_list(short_list_dex) := ingredient_tracker.name;
      short_list_dex := short_list_dex + 1;          
      FETCH pizza_tracker INTO ingredient_tracker;   
   END LOOP;  
   short_list_dex := short_list.FIRST;
   --put the records into the table
   LOOP
      EXIT WHEN short_list.EXISTS(short_list_dex) = FALSE;
      INSERT INTO temp_table VALUES(short_list(short_list_dex));
      short_list_dex := short_list.NEXT(short_list_dex);      
   END LOOP;
   COMMIT;      
   CLOSE pizza_tracker;
END;
/ .