TYPE BODY: APPS.JTF_DIAG_LINK

Source

1 TYPE BODY        "JTF_DIAG_LINK" AS
2 MEMBER FUNCTION CONSTRUCT_NODE RETURN VARCHAR2 IS
3 STR varchar2(20000);
4 BEGIN
5   STR := '<node>';
6   STR := STR || ' <heading>' || SELF.LINK_TEXT || '</heading>';
7   STR := STR || ' <destination>' || SELF.LINK_URL || '</destination>';
8   STR := STR || ' </node>';
9   RETURN STR;
10 END CONSTRUCT_NODE;
11 MEMBER PROCEDURE SET_ADDED_TO_PARENT IS
12 BEGIN
13 SELF.ADDED_TO_PARENT := 1;
14 END SET_ADDED_TO_PARENT;
15 END;