[Home] [Help]
376: --cols := JTF_VARCHAR2_TABLE_4000('');
377: row_component := JTF_DIAG_ROW(exec_id,ui_node_id,NULL,0);
378: RETURN row_component;
379: END CREATE_ROW;
380: FUNCTION CREATE_TREE(heading VARCHAR2,report_context JTF_DIAG_REPORT_CONTEXT) RETURN JTF_DIAG_TREE IS
381: tree_component JTF_DIAG_TREE;
382: exec_id NUMBER;
383: ui_node_id NUMBER;
384: tree_heading VARCHAR2(20000);
377: row_component := JTF_DIAG_ROW(exec_id,ui_node_id,NULL,0);
378: RETURN row_component;
379: END CREATE_ROW;
380: FUNCTION CREATE_TREE(heading VARCHAR2,report_context JTF_DIAG_REPORT_CONTEXT) RETURN JTF_DIAG_TREE IS
381: tree_component JTF_DIAG_TREE;
382: exec_id NUMBER;
383: ui_node_id NUMBER;
384: tree_heading VARCHAR2(20000);
385: BEGIN
387: IF heading IS NOT NULL THEN
388: tree_heading := DBMS_XMLGEN.CONVERT(heading,0);
389: exec_id := report_context.EXEC_ID;
390: select JTF_DIAGNOSTIC_REPORT_S.nextval into ui_node_id from dual;
391: tree_component := JTF_DIAG_TREE(exec_id,ui_node_id,tree_heading,0);
392: ELSE
393: RAISE_APPLICATION_ERROR(-20100,'The content provided for the tree is null');
394: END IF;
395: RETURN tree_component;
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;