TYPE BODY: APPS.JTF_DIAG_REPORT_OBJ

Source

1 TYPE BODY        "JTF_DIAG_REPORT_OBJ" AS
2 MEMBER PROCEDURE ADD_HEADER(header IN OUT NOCOPY JTF_DIAG_HEADER) IS
3   STR VARCHAR2(30000);
4 BEGIN
5  IF header IS NOT NULL THEN
6     IF header.ADDED_TO_PARENT <> 1 THEN
7       STR := header.CONSTRUCT_NODE;
8       INSERT INTO JTF_DIAGNOSTIC_REPORT
9       (Execution_ID,UI_Node_ID,type,xmldata,parent_node_id)
10       VALUES(SELF.EXEC_ID
11       ,header.UI_Node_ID
12       ,'header'
13       ,xmltype(STR)
14       ,0);
15       header.SET_ADDED_TO_PARENT;
16     ELSE
17         RAISE_APPLICATION_ERROR(-20100,'The Header component cannot be added to
18 the report again');
19     END IF;
20  ELSE
21   RAISE_APPLICATION_ERROR(-20100,'Component header added to the report is
22 null');
23  END IF;
24 END ADD_HEADER;
25 MEMBER PROCEDURE ADD_FOOTER(footer IN OUT NOCOPY JTF_DIAG_FOOTER) IS
26   STR VARCHAR2(30000);
27 BEGIN
28    IF footer IS NOT NULL THEN
29     IF footer.ADDED_TO_PARENT <> 1 THEN
30       STR := footer.CONSTRUCT_NODE;
31       INSERT INTO JTF_DIAGNOSTIC_REPORT
32       (Execution_ID,UI_Node_ID,type,xmldata,parent_node_id)
33       VALUES(SELF.EXEC_ID
34       ,footer.UI_Node_ID
35       ,'footer'
36       ,xmltype(STR)
37       ,0);
38       footer.SET_ADDED_TO_PARENT;
39     ELSE
40         RAISE_APPLICATION_ERROR(-20100,'The Footer component cannot be added to
41 the report again');
42     END IF;
43    ELSE
44     RAISE_APPLICATION_ERROR(-20100,'Component footer added to the report is
45 null');
46    END IF;
47 END ADD_FOOTER;
48 MEMBER PROCEDURE ADD_SECTION(section IN OUT NOCOPY JTF_DIAG_SECTION) IS
49   STR VARCHAR2(30000);
50 BEGIN
51    IF section IS NOT NULL THEN
52     IF section.ADDED_TO_PARENT <> 1 THEN
53       STR := section.CONSTRUCT_NODE;
54       INSERT INTO JTF_DIAGNOSTIC_REPORT
55       (Execution_ID,UI_Node_ID,type,xmldata,parent_node_id)
56       VALUES(SELF.EXEC_ID
57       ,section.UI_Node_ID
58       ,'section'
59       ,xmltype(STR)
60       ,0);
61       section.SET_ADDED_TO_PARENT;
62     ELSE
63         RAISE_APPLICATION_ERROR(-20100,'The Section component cannot be added to
64 the Report again');
65     END IF;
66    ELSE
67     RAISE_APPLICATION_ERROR(-20100,'Component section' || section.HEADING || '
68 added to the report is null');
69    END IF;
70 END ADD_SECTION;
71 MEMBER FUNCTION GET_REPORT_CONTEXT RETURN JTF_DIAG_REPORT_CONTEXT IS
72 report_context JTF_DIAG_REPORT_CONTEXT;
73 BEGIN
74  report_context := JTF_DIAG_REPORT_CONTEXT(SELF.EXEC_ID);
75  RETURN report_context;
76 END GET_REPORT_CONTEXT;
77 END;