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>' || SELF.FOOTER || '</content>';
7   STR := STR || ' </node>';
8   RETURN STR;
9 END CONSTRUCT_NODE;
10 MEMBER PROCEDURE SET_ADDED_TO_PARENT IS
11 BEGIN
12 SELF.ADDED_TO_PARENT := 1;
13 END SET_ADDED_TO_PARENT;
14 END;