TYPE BODY: APPS.JTF_DIAG_FORM

Source

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