[Home] [Help]
393: RAISE_APPLICATION_ERROR(-20100,'The content provided for the tree is null');
394: END IF;
395: RETURN tree_component;
396: END CREATE_TREE;
397: FUNCTION CREATE_TREE_NODE(content VARCHAR2,report_context JTF_DIAG_REPORT_CONTEXT) RETURN JTF_DIAG_TREE_NODE IS
398: tree_node_component JTF_DIAG_TREE_NODE;
399: exec_id NUMBER;
400: ui_node_id NUMBER;
401: tree_content VARCHAR2(20000);
394: END IF;
395: RETURN tree_component;
396: END CREATE_TREE;
397: FUNCTION CREATE_TREE_NODE(content VARCHAR2,report_context JTF_DIAG_REPORT_CONTEXT) RETURN JTF_DIAG_TREE_NODE IS
398: tree_node_component JTF_DIAG_TREE_NODE;
399: exec_id NUMBER;
400: ui_node_id NUMBER;
401: tree_content VARCHAR2(20000);
402: BEGIN
404: IF content IS NOT NULL THEN
405: tree_content := DBMS_XMLGEN.CONVERT(content,0);
406: exec_id := report_context.EXEC_ID;
407: select JTF_DIAGNOSTIC_REPORT_S.nextval into ui_node_id from dual;
408: tree_node_component := JTF_DIAG_TREE_NODE(exec_id,ui_node_id,tree_content,0);
409: ELSE
410: RAISE_APPLICATION_ERROR(-20100,'The content provided for the tree node is null');
411: END IF;
412: RETURN tree_node_component;