[Home] [Help]
TYPE BODY: APPS.ICXUI_API_DIALOG
Source
1 type body icxui_api_dialog is
2 /* $Header: ICXUIDGB.pls 115.0 99/10/28 23:26:35 porting ship $ */
3
4 static function create_dialog
5 (
6 p_title in varchar2,
7 p_sec_title in varchar2 default null,
8 p_dialog_image in varchar2 default null,
9 p_help_url in varchar2 default null,
10 p_subheader_text in varchar2 default null,
11 p_help_text in varchar2 default null,
12 p_buttons in icxui_api_button_list default null,
13 p_path_text in varchar2 default null,
14 p_language in varchar2 default null
15 )
16 return icxui_api_dialog
17 is
18 begin
19
20 --if p_language is null then
21 return icxui_api_dialog(p_title, p_sec_title, p_dialog_image,
22 p_help_url, p_subheader_text, p_help_text,
23 p_buttons, p_path_text, p_language);
24 --else
25 -- return wwui_api_dialog(p_title, p_sec_title, p_dialog_image,
26 -- p_help_url, p_subheader_text, p_help_text,
27 -- p_buttons, p_path_text, p_language);
28 --end if;
29
30 end create_dialog;
31
32 member procedure open_dialog
33 is
34 begin
35
36 htp.tableOpen(cattributes =>
37 'BORDER="0" CELLPADDING="0" CELLSPACING="0" width="90%"');
38
39 --
40 -- Call Draw Title
41 --
42 htp.tableRowOpen;
43 icxui_api_util.draw_title(p_title => title);
44
45 htp.tableRowClose;
46
47 --
48 -- ROW 2 : Draw the area just below the Title region with the Image,
49 -- and Buttons
50 --
51 htp.tableRowOpen;
52 htp.p('<TD>'); --wwutl_htp.tableDataOpen;
53 htp.tableOpen(cattributes =>
54 'BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%"');
55
56 --
57 -- Draw the image bit
58 --
59 htp.tableRowOpen;
60 if dialog_image is not null then
61 icxui_api_util.draw_image(p_image => dialog_image);
62 end if;
63
64 --
65 -- Call Draw Button Bar
66 --
67 if buttons is not null then
68 icxui_api_util.draw_buttons(p_buttons => buttons);
69 end if;
70 htp.tableRowClose;
71
72 --
73 -- Call to Draw the Path Text
74 --
75 if path_text is not null then
76 htp.tableRowOpen;
77 icxui_api_util.draw_path_text(p_path_text => path_text);
78 htp.tableRowClose;
79 end if;
80
81 htp.tableClose;
82 htp.p('</TD>');
83 --wwutl_htp.tableDataClose;
84 htp.tableRowClose;
85
86 --
87 -- Call Draw Sub Header Text
88 --
89 if subheader_text is not null then
90 htp.tableRowOpen;
91 icxui_api_util.draw_subheader(p_subheader_text => subheader_text);
92 htp.tableRowClose;
93 end if;
94
95 --
96 -- Call Draw Help Text
97 --
98 if help_text is not null then
99 htp.tableRowOpen;
100 icxui_api_util.draw_helptext(p_help_text => help_text);
101 htp.tableRowClose;
102 end if;
103
104 --
105 -- ROW 4 : Setup a whole new table for the User content.
106 --
107 htp.tableRowOpen;
108 htp.p('<TD>'); --wwutl_htp.tableDataOpen;
109 htp.tableOpen(cattributes =>
110 'WIDTH="80%" BORDER="0" CELLPADDING="0" CELLSPACING="0"');
111 htp.tableRowOpen;
112 htp.tableData(htf.br, cattributes=>'WIDTH="15%"');
113 htp.p('</TD>'); --wwutl_htp.tableDataOpen;
114 end open_dialog;
115
116 member procedure close_dialog
117 is
118 begin
119 --
120 -- Closeout the User content table
121 --
122 htp.p('</TD>'); --wwutl_htp.tableDataClose;
123 htp.tableRowClose;
124 htp.tableClose;
125 htp.p('</TD>'); --wwutl_htp.tableDataClose;
126 htp.tableRowClose;
127
128 --
129 -- ROW 4 : Blank space above the bottom bar of the Wizard
130 --
131
132 htp.tableRowOpen;
133 htp.tableData('<IMG SRC=/OA_MEDIA/pobtrans.gif>',
134 cattributes => 'WIDTH="1" HEIGHT="8"');
135
136 htp.tableRowClose;
137
138 --
139 -- ROW 5 : Draw the Bottom bar of the Wizard
140 --
141 htp.tableRowOpen;
142 icxui_api_util.draw_footer;
143 htp.tableRowClose;
144
145 htp.tableClose;
146 end close_dialog;
147
148 end;