[Home] [Help]
PACKAGE BODY: APPS.POS_CONTROL_REGION_SV
Source
1 PACKAGE BODY POS_CONTROL_REGION_SV AS
2 /* $Header: POSCTRLB.pls 115.0 99/08/20 11:09:18 porting sh $*/
3
4
5 /* -------------- Private Procedures -------------- */
6 PROCEDURE InitializeRegion;
7 PROCEDURE CloseRegion;
8 PROCEDURE PaintButtons(p_position VARCHAR2);
9 PROCEDURE PaintButtonTops(p_position VARCHAR2);
10 PROCEDURE PaintCancelButton;
11 PROCEDURE PaintBackButton(p_position VARCHAR2);
12 PROCEDURE PaintRoadMap(p_position VARCHAR2);
13 PROCEDURE PaintNextButton(p_position VARCHAR2);
14 PROCEDURE PaintSubmitbutton(p_position VARCHAR2);
15 PROCEDURE PaintButtonBottoms;
16
17
18 /* -------------- Private Procedure Implementation -------------- */
19
20 /* InitializeRegion
21 * ----------------
22 */
23 PROCEDURE InitializeRegion IS
24 BEGIN
25
26 htp.p('
27 <table width=100% cellpadding=0 cellspacing=0 border=0>
28
29 <tr>
30 <td width=100%><img src=/OA_MEDIA/FNDPX3.gif></td>
31 </tr>
32
33 </TABLE>
34
35 <!-- a table is built for the control buttons so that the cell can be right justified-->
36
37 <TABLE bgcolor=#336699 width=100% cellpadding=0 cellspacing=0 border=0>
38 <TR><td height=3><img src=/OA_MEDIA/FNDPX3.gif></td></TR>
39 <TR>
40 <TD align=right>
41 <!-- button table for the lower buttons. See notes above on strucure-->
42 <table cellpadding=0 cellspacing=0 border=0>
43
44 ');
45
46 END InitializeRegion;
47
48
49 /* CloseBanner
50 * -----------
51 */
52 PROCEDURE CloseRegion IS
53 BEGIN
54
55 htp.p('
56 </table>
57 </td></tr>
58 </table>
59 ');
60 -- htp.tableClose;
61
62 END CloseRegion;
63
64
65 /* PaintButtonTops
66 * ---------------
67 */
68 PROCEDURE PaintButtonTops(p_position VARCHAR2) IS
69 BEGIN
70
71 htp.p('<tr>');
72
73
74 htp.p('<!- Cancel button -->
75 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDL.gif></td>
76 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
77 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDR.gif></td>');
78
79 htp.p('<td width=15 rowspan=5></td>');
80
81 htp.p('<!- Back button -->');
82 IF (upper(p_position) = 'SELECT') THEN
83 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBPSD.gif></td>');
84 ELSE
85 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBPS.gif></td>');
86 END IF;
87 htp.p('<td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>');
88 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBSQRR.gif></td>');
89
90 htp.p('<td width=3 rowspan=5></td>');
91
92 htp.p('<!-- where you are -->
93 <td rowspan=5><img src=/OA_MEDIA/FNDBWHRL.gif></td>
94 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
95 <td rowspan=5><img src=/OA_MEDIA/FNDBWHRR.gif></td>');
96
97 htp.p('<td width=3 rowspan=5></td>');
98
99 htp.p('<!-- Next button -->');
100 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBSQRL.gif></td>');
101 htp.p('<td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>');
102 IF (upper(p_position) = 'REVIEW') THEN
103 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBNSD.gif></td>');
104 ELSE
105 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBNS.gif></td>');
106 END IF;
107
108 htp.p('<td width=15 rowspan=5></td>');
109
110 htp.p('<!- Finish button -->
111 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDL.gif></td>
112 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
113 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDR.gif></td>');
114
115 htp.p('<td width=10 rowspan=5></td>');
116
117 htp.p('</tr>');
118
119 htp.p('
120 <tr>
121 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
122 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
123 <td></td>
124 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
125 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
126 </tr>
127 ');
128
129 END PaintButtonTops;
130
131
132 PROCEDURE PaintButtons(p_position VARCHAR2) IS
133 BEGIN
134
135 PaintButtonTops(p_position);
136 htp.p('<tr>');
137 PaintCancelButton;
138 PaintBackButton(p_position);
139 PaintRoadMap(p_position);
140 PaintNextButton(p_position);
141 PaintSubmitButton(p_position);
142 htp.p('</tr>');
143 PaintButtonBottoms;
144
145 END PaintButtons;
146
147 /* PaintCancelButton
148 * -----------------
149 * if no callback function, disable button.
150 */
151 PROCEDURE PaintCancelButton
152 IS
153 BEGIN
154
155 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
156 htp.p('<a href="javascript:top.cancelClicked()">');
157 htp.p('<font class=button>');
158 htp.p('<SCRIPT>
159 document.write(top.FND_MESSAGES["ICX_POS_BTN_CANCEL"])
160 </SCRIPT>');
161 htp.p('</font></a></td>');
162
163 END PaintCancelButton;
164
165
166 PROCEDURE PaintBackButton(p_position VARCHAR2) IS
167 BEGIN
168
169 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
170
171 IF (upper(p_position) = 'SELECT') THEN
172 htp.p('<font class=disabledbutton>');
173 ELSE
174 htp.p('<a href="javascript:top.backClicked()">');
175 htp.p('<font class=button>');
176 END IF;
177
178 htp.p('<SCRIPT>
179 document.write(top.FND_MESSAGES["ICX_POS_BTN_BACK"])
180 </SCRIPT>');
181 htp.p('</font></td>');
182
183 END PaintBackButton;
184
185
186 PROCEDURE PaintRoadMap(p_position VARCHAR2) IS
187 BEGIN
188
189 htp.p('<td height=20 nowrap><font class=promptwhite>');
190
191 IF (upper(p_position) = 'SELECT') THEN
192 htp.p(' <b><SCRIPT>
193 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
194 </SCRIPT></b> > ');
195 htp.p(' <SCRIPT>
196 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
197 </SCRIPT> > ');
198 htp.p(' <SCRIPT>
199 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
200 </SCRIPT> ');
201 ELSIF (upper(p_position) = 'EDIT') THEN
202 htp.p(' <SCRIPT>
203 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
204 </SCRIPT> > ');
205 htp.p(' <b><SCRIPT>
206 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
207 </SCRIPT></b> > ');
208 htp.p(' <SCRIPT>
209 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
210 </SCRIPT> ');
211 ELSIF (upper(p_position) = 'REVIEW') THEN
212 htp.p(' <SCRIPT>
213 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
214 </SCRIPT> > ');
215 htp.p(' <SCRIPT>
216 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
217 </SCRIPT> > ');
218 htp.p(' <b><SCRIPT>
219 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
220 </SCRIPT></b> ');
221 END IF;
222
223 htp.p('</font></td>');
224
225 END PaintRoadMap;
226
227
228 PROCEDURE PaintNextButton(p_position VARCHAR2) IS
229 BEGIN
230
231 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
232
233 IF (upper(p_position) = 'REVIEW') THEN
234 htp.p('<font class=disabledbutton>');
235 ELSE
236 htp.p('<a href="javascript:top.nextClicked()">');
237 htp.p('<font class=button>');
238 END IF;
239
240 htp.p('<SCRIPT>
241 document.write(top.FND_MESSAGES["ICX_POS_BTN_NEXT"])
242 </SCRIPT>');
243 htp.p('</font></a></td>');
244
245 END PaintNextButton;
246
247
248 PROCEDURE PaintSubmitButton(p_position VARCHAR2) IS
249 BEGIN
250
251 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
252
253 IF (upper(p_position) = 'SELECT') THEN
254 htp.p('<font class=disabledbutton>');
255 ELSE
256 htp.p('<a href="javascript:top.submitClicked(top.content)">');
257 htp.p('<font class=button>');
258 END IF;
259
260 htp.p('<SCRIPT>
261 document.write(top.FND_MESSAGES["ICX_POS_BTN_FINISH"])
262 </SCRIPT>');
263 htp.p('</font></td>');
264
265 END PaintSubmitButton;
266
267
268 PROCEDURE PaintButtonBottoms IS
269 BEGIN
270
271 htp.p('
272 <tr>
273 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
274 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
275 <td></td>
276 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
277 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
278 </tr>
279
280 <tr>
281 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
282 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
283 <td bgcolor=#6699cc><img src=/OA_MEDIA/FNDPX4.gif></td>
284 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
285 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
286
287 </tr>
288
289 <TR><td colspan=2 height=30><img src=/OA_MEDIA/FNDPX3.gif></td></TR>
290 ');
291
292 END PaintButtonBottoms;
293
294
295
296 /* -------------- Public Procedure Implementation -------------- */
297
298 /* PaintControlRegion
299 * ------------------
300 */
301 PROCEDURE PaintControlRegion(p_position VARCHAR2) IS
302 BEGIN
303
304 htp.htmlOpen;
305 htp.linkRel('STYLESHEET', '/OA_HTML/US/POSSTYLE.css');
306
307 htp.title('Web Suppliers Control Region');
308 htp.headOpen;
309 htp.headClose;
310
311 htp.bodyOpen(NULL, 'bgcolor=#336699');
312
313 InitializeRegion;
314 PaintButtons(p_position);
315 CloseRegion;
316
317 htp.bodyClose;
318 htp.htmlClose;
319
320 END PaintControlRegion;
321
322
323 END POS_CONTROL_REGION_SV;