TYPE BODY: APPS.JTF_DIAG_FORMDATA

Source

1 TYPE BODY        "JTF_DIAG_FORMDATA" AS
2 MEMBER FUNCTION CONSTRUCT_NODE RETURN VARCHAR2 IS
3 STR varchar2(20000);
4 BEGIN
5   STR := '<node>';
6   STR := STR || ' <row>';
7   for x in SELF.FORM_VALUES.FIRST .. SELF.FORM_VALUES.LAST
8   LOOP
9    STR := STR || ' <col>';
10    STR := STR || DBMS_XMLGEN.CONVERT(FORM_VALUES(x) ,0);
11    STR := STR || ' </col>';
12   END LOOP;
13   STR := STR || ' </row>';
14   STR := STR || ' </node>';
15   RETURN STR;
16 END CONSTRUCT_NODE;
17 MEMBER PROCEDURE SET_ADDED_TO_PARENT IS
18 BEGIN
19 SELF.ADDED_TO_PARENT := 1;
20 END SET_ADDED_TO_PARENT;
21 END;