PACKAGE BODY: APPS.POS_UPPER_BANNER_SV

Source

1 PACKAGE BODY POS_UPPER_BANNER_SV AS
2 /* $Header: POSUPBNB.pls 115.2 2001/10/22 17:09:41 pkm ship $*/
3 
4 
5   /* -------------- Private Procedures -------------- */
6   PROCEDURE InitializeBanner(p_product VARCHAR2, p_title VARCHAR2);
7   PROCEDURE CloseBanner;
8 
9 
10   /* -------------- Private Procedure Implementation -------------- */
11 
12   /* InitializeBanner
13    * ----------------
14    */
15   PROCEDURE InitializeBanner(p_product VARCHAR2, p_title VARCHAR2) IS
16   BEGIN
17 
18     htp.p('<table width=100% cellpadding=0 cellspacing=0 border=0>');
19     -- paint title
20     htp.p('<tr bgcolor=#336699>');
21     htp.p('<td valign=bottom nowrap><font class=containertitle>');
22     htp.p('  ' || nvl(fnd_message.get_string(p_product, p_title), p_title));
23     htp.p('</font></td></tr>');
24     -- paint banner
25     htp.p('<tr bgcolor=#cccccc>');
26     htp.p('<TD align=left valign=top><img src=/OA_MEDIA/FNDCTTL.gif></TD>');
27     htp.p('<TD bgcolor=#cccccc height=50><img src=/OA_MEDIA/FNDPXG5.gif></td>');
28     htp.p('<TD valign=top align=right><img src=/OA_MEDIA/FNDCTTR.gif></TD>');
29     htp.p('</tr>');
30 
31   END InitializeBanner;
32 
33 
34   /* CloseBanner
35    * -----------
36    */
37   PROCEDURE CloseBanner IS
38   BEGIN
39 
40      htp.tableClose;
41 
42   END CloseBanner;
43 
44 
45   /* -------------- Public Procedure Implementation -------------- */
46 
47   /* PaintUpperBanner
48    * ----------------
49    */
50   PROCEDURE PaintUpperBanner(p_product VARCHAR2, p_title VARCHAR2) IS
51   BEGIN
52 
53     IF NOT icx_sec.validatesession THEN
54       RETURN;
55     END IF;
56 
57     htp.htmlOpen;
58     htp.linkRel('STYLESHEET', '/OA_HTML/US/POSSTYLE.css');
59 --    htp.p('<LINK REL=STYLESHEET HREF="/OA_HTML/US/PORSTYLE.css" TYPE="text/css">');
60     htp.title('Web Suppliers Upper Banner');
61     htp.headOpen;
62     htp.headClose;
63 
64     htp.bodyOpen(NULL, 'bgcolor=#336699');
65 
66     InitializeBanner(p_product, p_title);
67     CloseBanner;
68 
69     htp.bodyClose;
70     htp.htmlClose;
71 
72   END PaintUpperBanner;
73 
74 
75 
76   /* ModalWindowTitle
77    * ----------------
78    * p_title needs to be a message name!!!
79    */
80   PROCEDURE ModalWindowTitle(p_title VARCHAR2) IS
81   BEGIN
82 
83     htp.htmlOpen;
84     htp.linkRel('STYLESHEET', '/OA_HTML/US/POSSTYLE.css');
85     htp.headOpen;
86     htp.headClose;
87 
88     htp.bodyOpen(NULL, 'bgcolor=#336699');
89 
90     htp.p('<table cellpadding=0 cellspacing=0 border=0 width=100%>
91            <tr>
92            <td align=left valign=bottom nowrap><font class=containertitle>');
93 
94     htp.p('<SCRIPT>');
95     htp.p('document.write(top.getTop().FND_MESSAGES["' ||
96           p_title || '"])');
97     htp.p('</SCRIPT></font></td>');
98 
99     htp.p('
100            <td align=right><img src=/OA_MEDIA/FNDLNAPP.gif></td>
101 
102            </tr>
103            </table>');
104 
105     htp.bodyClose;
106     htp.htmlClose;
107 
108   END ModalWindowTitle;
109 
110 
111 
112 END POS_UPPER_BANNER_SV;