TYPE BODY: APPS.JTF_DIAG_FOOTER

Source

1 TYPE BODY        "JTF_DIAG_FOOTER" AS
2 MEMBER FUNCTION CONSTRUCT_NODE RETURN VARCHAR2 IS
3 STR varchar2(20000);
4 BEGIN
5   STR := '<node>';
6   STR := STR || '<content/>';
7   STR := STR || ' <row>';
8   STR := STR || '<col>' || self.FOOTER_NOTE_ID || '</col>';
9   STR := STR || ' </row>';
10   STR := STR || ' </node>';
11   RETURN STR;
12 END CONSTRUCT_NODE;
13 
14 MEMBER PROCEDURE SET_NOTE(note in OUT NOCOPY JTF_DIAG_NOTE) IS
15 STR VARCHAR2(32000);
16 BEGIN
17 IF ADDED_TO_PARENT = 0 THEN
18  IF note is not null then
19   SELF.FOOTER_NOTE_ID := note.UI_NODE_ID;
20   IF note.ADDED_TO_PARENT <> 1 THEN
21       STR := note.CONSTRUCT_NODE;
22       INSERT INTO JTF_DIAGNOSTIC_REPORT
23     (Execution_ID,UI_Node_ID,type,xmldata,parent_node_id)
24     VALUES(SELF.EXEC_ID
25     ,note.UI_Node_ID
26     ,'note'
27     ,xmltype(STR)
28     ,SELF.UI_NODE_ID);
29     note.SET_ADDED_TO_PARENT;
30    ELSE
31     RAISE_APPLICATION_ERROR(-20100,'The Note component cannot be added
32 to the parent component again');
33    END IF;
34  END IF;
35 ELSE
36  RAISE_APPLICATION_ERROR(-20100, 'Message component has already been added to
37 the report');
38 END IF;
39 END SET_NOTE;
40 
41 
42 MEMBER PROCEDURE SET_ADDED_TO_PARENT IS
43 BEGIN
44 SELF.ADDED_TO_PARENT := 1;
45 END SET_ADDED_TO_PARENT;
46 END;