1: PACKAGE BODY okc_dbtree_pvt AS
2: /*$Header: OKCTREEB.pls 120.1 2006/02/17 06:51:34 maanand noship $*/
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
314: -- Delete the child node entry in IControlTAable when done
315: --
316:
317: WHILE x <= y LOOP
318: okc_dbtree_pvt.ClearNodeCache(p_tree_id, tDataTable(x).tree_node_id);
319: okc_dbtree_pvt.DeleteControlRec(p_tree_id, tDataTable(x).tree_node_id);
320: tDataTable.DELETE(x);
321:
322: x:= tDataTable.NEXT(x);
315: --
316:
317: WHILE x <= y LOOP
318: okc_dbtree_pvt.ClearNodeCache(p_tree_id, tDataTable(x).tree_node_id);
319: okc_dbtree_pvt.DeleteControlRec(p_tree_id, tDataTable(x).tree_node_id);
320: tDataTable.DELETE(x);
321:
322: x:= tDataTable.NEXT(x);
323:
439: x := TDataTable.LAST;
440: tDataTable(x).tree_initial_state := 1;
441: tDataTable(x).tree_depth := 1;
442: tDataTable(x).tree_label := 'Contracts Group Root';
443: tDataTable(x).tree_icon_name := okc_dbtree_pvt.icon_name;
444: tDataTable(x).tree_data := '\ROOT\0\' || to_char(x) || '\3\root\';
445: tDataTable(x).tree_node_id := x;
446: tDataTable(x).tree_node_type := 'GRP';
447: tDataTable(x).tree_parent_node_id := null;
541: (p_tree_id IN NUMBER
542: ,p_node_number IN NUMBER
543: ,p_reload_flag IN VARCHAR2
544: ,p_nodes_out OUT NOCOPY NUMBER
545: ,p_Result_table OUT NOCOPY okc_dbtree_pvt.ResultRecTableType)
546: IS
547: x NUMBER;
548: y NUMBER;
549: z NUMBER;
768: END Initialize_Package;
769:
770:
771:
772: END okc_dbtree_pvt;