TYPE BODY: APPS.JTF_DIAG_HIDE_SHOW

Source

1 TYPE BODY        "JTF_DIAG_HIDE_SHOW" AS
2 MEMBER PROCEDURE SET_DISCLOSED_TEXT(DISCLOSED_TXT VARCHAR2) IS
3 BEGIN
4 IF ADDED_TO_PARENT = 0 THEN
5  IF DISCLOSED_TXT is not null then
6   DISCLOSED_TEXT := DBMS_XMLGEN.CONVERT(DISCLOSED_TXT,0);
7  END IF;
8 ELSE
9  RAISE_APPLICATION_ERROR(-20100, 'HideShow component has already been added to
10 the report');
11 END IF;
12 END SET_DISCLOSED_TEXT;
13 MEMBER PROCEDURE SET_UNDISCLOSED_TEXT(UN_DISCLOSED_TXT VARCHAR2) IS
14 BEGIN
15 IF ADDED_TO_PARENT = 0 THEN
16  IF UN_DISCLOSED_TXT is not null then
17   SELF.UN_DISCLOSED_TEXT := DBMS_XMLGEN.CONVERT(UN_DISCLOSED_TXT,0);
18  END IF;
19 ELSE
20  RAISE_APPLICATION_ERROR(-20100, 'HideShow component has already been added to
21 the report');
22 END IF;
23 END SET_UNDISCLOSED_TEXT;
24 MEMBER FUNCTION CONSTRUCT_NODE RETURN VARCHAR2 IS
25 STR varchar2(20000);
26 BEGIN
27   STR := '<node>';
28   STR := STR || ' <content>' || SELF.CONTENT || '</content>';
29   STR := STR || '<disclosedText>'|| SELF.DISCLOSED_TEXT || '</disclosedText>';
30   STR := STR || '<undisclosedText>'|| SELF.UN_DISCLOSED_TEXT ||
31 '</undisclosedText>';
32   STR := STR || ' </node>';
33   RETURN STR;
34 END CONSTRUCT_NODE;
35 MEMBER PROCEDURE SET_ADDED_TO_PARENT IS
36 BEGIN
37 SELF.ADDED_TO_PARENT := 1;
38 END SET_ADDED_TO_PARENT;
39 END;