[Home] [Help]
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;