[Home] [Help]
PACKAGE BODY: APPS.POS_ASL_CONTROL_REGION_SV
Source
1 PACKAGE BODY POS_ASL_CONTROL_REGION_SV AS
2 /* $Header: POSASLCB.pls 115.1 1999/11/12 14:16:12 pkm ship $*/
3
4
5 /* -------------- Private Procedures -------------- */
6 PROCEDURE InitializeRegion;
7 PROCEDURE CloseRegion;
8 PROCEDURE PaintButtons(p_position VARCHAR2,p_mode VARCHAR2 DEFAULT NULL);
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,p_mode VARCHAR2 DEFAULT NULL);
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
82 /* htp.p('<!- Back button -->');
83 IF (upper(p_position) = 'SELECT') THEN
84 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBPSD.gif></td>');
85 ELSE
86 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBPS.gif></td>');
87 END IF;
88 htp.p('<td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>');
89 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBSQRR.gif></td>');
90
91 htp.p('<td width=3 rowspan=5></td>');
92
93 htp.p('<!-- where you are -->
94 <td rowspan=5><img src=/OA_MEDIA/FNDBWHRL.gif></td>
95 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
96 <td rowspan=5><img src=/OA_MEDIA/FNDBWHRR.gif></td>');
97
98 htp.p('<td width=3 rowspan=5></td>');
99
100 htp.p('<!-- Next button -->');
101 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBSQRL.gif></td>');
102 htp.p('<td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>');
103 IF (upper(p_position) = 'REVIEW') THEN
104 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBNSD.gif></td>');
105 ELSE
106 htp.p('<td rowspan=5><img src=/OA_MEDIA/FNDBNS.gif></td>');
107 END IF;
108 */
109 htp.p('<td width=15 rowspan=5></td>');
110
111 htp.p('<!- Finish button -->
112 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDL.gif></td>
113 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
114 <td rowspan=5><img src=/OA_MEDIA/FNDBRNDR.gif></td>');
115
116 htp.p('<td width=10 rowspan=5></td>');
117
118 htp.p('</tr>');
119
120 htp.p('
121 <tr>
122 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
123 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
124 <td></td>
125 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
126 <td bgcolor=#ffffff><img src=/OA_MEDIA/FNDPX6.gif></td>
127 </tr>
128 ');
129
130 END PaintButtonTops;
131
132
133 PROCEDURE PaintButtons(p_position VARCHAR2,p_mode VARCHAR2 DEFAULT NULL) IS
134 BEGIN
135
136 PaintButtonTops(p_position);
137 htp.p('<tr>');
138 PaintCancelButton;
139 -- PaintBackButton(p_position);
140 -- PaintRoadMap(p_position);
141 -- PaintNextButton(p_position);
142 PaintSubmitButton(p_position,p_mode);
143 htp.p('</tr>');
144 PaintButtonBottoms;
145
146 END PaintButtons;
147
148 /* PaintCancelButton
149 * -----------------
150 * if no callback function, disable button.
151 */
152 PROCEDURE PaintCancelButton
153 IS
154 BEGIN
155
156 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
157 htp.p('<a href="javascript:top.cancelClicked()">');
158 htp.p('<font class=button>');
159 htp.p('<SCRIPT>
160 document.write(top.FND_MESSAGES["ICX_POS_BTN_CANCEL"])
161 </SCRIPT>');
162 htp.p('</font></a></td>');
163
164 END PaintCancelButton;
165
166
167 PROCEDURE PaintBackButton(p_position VARCHAR2) IS
168 BEGIN
169
170 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
171
172 IF (upper(p_position) = 'SELECT') THEN
173 htp.p('<font class=disabledbutton>');
174 ELSE
175 htp.p('<a href="javascript:top.backClicked()">');
176 htp.p('<font class=button>');
177 END IF;
178
179 htp.p('<SCRIPT>
180 document.write(top.FND_MESSAGES["ICX_POS_BTN_BACK"])
181 </SCRIPT>');
182 htp.p('</font></td>');
183
184 END PaintBackButton;
185
186
187 PROCEDURE PaintRoadMap(p_position VARCHAR2) IS
188 BEGIN
189
190 htp.p('<td height=20 nowrap><font class=promptwhite>');
191
192 IF (upper(p_position) = 'SELECT') THEN
193 htp.p(' <b><SCRIPT>
194 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
195 </SCRIPT></b> > ');
196 htp.p(' <SCRIPT>
197 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
198 </SCRIPT> > ');
199 htp.p(' <SCRIPT>
200 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
201 </SCRIPT> ');
202 ELSIF (upper(p_position) = 'EDIT') THEN
203 htp.p(' <SCRIPT>
204 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
205 </SCRIPT> > ');
206 htp.p(' <b><SCRIPT>
207 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
208 </SCRIPT></b> > ');
209 htp.p(' <SCRIPT>
210 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
211 </SCRIPT> ');
212 ELSIF (upper(p_position) = 'REVIEW') THEN
213 htp.p(' <SCRIPT>
214 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_SELECT"])
215 </SCRIPT> > ');
216 htp.p(' <SCRIPT>
217 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_EDIT"])
218 </SCRIPT> > ');
219 htp.p(' <b><SCRIPT>
220 document.write(top.FND_MESSAGES["ICX_POS_ROADMAP_REVIEW"])
221 </SCRIPT></b> ');
222 END IF;
223
224 htp.p('</font></td>');
225
226 END PaintRoadMap;
227
228
229 PROCEDURE PaintNextButton(p_position VARCHAR2) IS
230 BEGIN
231
232 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
233
234 IF (upper(p_position) = 'REVIEW') THEN
235 htp.p('<font class=disabledbutton>');
236 ELSE
237 htp.p('<a href="javascript:top.nextClicked()">');
238 htp.p('<font class=button>');
239 END IF;
240
241 htp.p('<SCRIPT>
242 document.write(top.FND_MESSAGES["ICX_POS_BTN_NEXT"])
243 </SCRIPT>');
244 htp.p('</font></a></td>');
245
246 END PaintNextButton;
247
248
249 PROCEDURE PaintSubmitButton(p_position VARCHAR2,
250 p_mode VARCHAR2 DEFAULT NULL) IS
251 BEGIN
252
253 htp.p('<td bgcolor=#cccccc height=20 nowrap>');
254
255 IF (upper(p_position) = 'SELECT') THEN
256 htp.p('<font class=disabledbutton>');
257 ELSE
258 if (upper(p_mode) = 'WF') then
259 htp.p('<a href="javascript:top.AslSubmitClicked(top)">');
260 else
261 htp.p('<a href="javascript:top.AslSubmitClicked(top.content)">');
262 end if;
263 htp.p('<font class=button>');
264 END IF;
265
266 htp.p('<SCRIPT>
267 document.write(top.FND_MESSAGES["ICX_POS_BTN_FINISH"])
268 </SCRIPT>');
269 htp.p('</font></td>');
270
271 END PaintSubmitButton;
272
273
274 PROCEDURE PaintButtonBottoms IS
275 BEGIN
276
277 htp.p('
278 <tr>
279 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
280 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
281 <td></td>
282 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
283 <td bgcolor=#666666><img src=/OA_MEDIA/FNDPX3.gif></td>
284 </tr>
285
286 <tr>
287 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
288 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
289 <td bgcolor=#6699cc><img src=/OA_MEDIA/FNDPX4.gif></td>
290 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
291 <td bgcolor=#333333><img src=/OA_MEDIA/FNDPX3.gif></td>
292
293 </tr>
294
295 <TR><td colspan=2 height=30><img src=/OA_MEDIA/FNDPX3.gif></td></TR>
296 ');
297
298 END PaintButtonBottoms;
299
300
301
302 /* -------------- Public Procedure Implementation -------------- */
303
304 /* PaintControlRegion
305 * ------------------
306 */
307 PROCEDURE PaintControlRegion(p_position VARCHAR2,
308 p_mode VARCHAR2 DEFAULT NULL) IS
309 BEGIN
310
311 htp.htmlOpen;
312 htp.linkRel('STYLESHEET', '/OA_HTML/US/POSSTYLE.css');
313
314 htp.title('Web Suppliers Control Region');
315 htp.headOpen;
316 htp.headClose;
317
318 htp.bodyOpen(NULL, 'bgcolor=#336699');
319
320 InitializeRegion;
321 PaintButtons(p_position,p_mode);
322 CloseRegion;
323
324 htp.bodyClose;
325 htp.htmlClose;
326
327 END PaintControlRegion;
328
329
330 END POS_ASL_CONTROL_REGION_SV;