[Home] [Help]
PACKAGE BODY: APPS.XNP_CENTER$
Source
1 package body xnp_center$ as
2 /* $Header: XNPCENTB.pls 120.1 2005/06/21 04:04:24 appldev ship $ */
3
4
5 --------------------------------------------------------------------------------
6 -- Name: xnp_center$.Startup
7 --
8 -- Description: This procedure is the entry point for the 'xnp_center$'
9 -- module (NP Center).
10 --
11 -- Parameters: None
12 --
13 --------------------------------------------------------------------------------
14 procedure Startup is
15 begin
16
17 XNP_WSGL.RegisterURL('xnp_center$.startup');
18 if XNP_WSGL.NotLowerCase then
19 return;
20 end if;
21 XNP_WSGL.StoreURLLink(0, 'NP Center');
22
23
24 FirstPage(TRUE);
25
26 exception
27 when others then
28 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'NP Center',
29 'BGCOLOR="CCCCCC"', 'xnp_center$.Startup');
30 end;
31 --------------------------------------------------------------------------------
32 -- Name: xnp_center$.firstpage
33 --
34 -- Description: This procedure creates the first page for the 'xnp_center$'
35 -- module (NP Center).
36 --
37 -- Parameters: Z_DIRECT_CALL
38 --
39 --------------------------------------------------------------------------------
40 procedure FirstPage(Z_DIRECT_CALL in boolean) is
41 begin
42
43 XNP_WSGL.OpenPageHead('NP Center');
44 TemplateHeader(TRUE,0);
45 XNP_WSGL.ClosePageHead;
46
47 XNP_WSGL.OpenPageBody(FALSE, p_attributes=>'BGCOLOR="CCCCCC"');
48
49 htp.p(htf.bold(fnd_message.get_string('XNP','WEB_TITLE')));
50 htp.p(htf.header(1,fnd_message.get_string('XNP','WEB_XNPCENTR_TITLE')));
51
52 XNP_WSGL.NavLinks(XNP_WSGL.MENU_LONG, 'Monitor Ordering Subscriptions', 0, 'xnp_sv_orders$.startup');
53 XNP_WSGL.NavLinks(XNP_WSGL.MENU_LONG, 'Monitor Network Subscriptions', 0, 'xnp_sv_network$.startup');
54 XNP_WSGL.NavLinks(XNP_WSGL.MENU_LONG, 'View Number Splits', 0, 'xnp_number_splits$.startup');
55 XNP_WSGL.NavLinks(XNP_WSGL.MENU_LONG, 'SFM iMessage Diagnostics', 0, 'xnp_msg_diagnostics$.startup');
56 XNP_WSGL.NavLinks(XNP_WSGL.MENU_LONG, htf.italic(fnd_message.get_string('XNP','ABOUT_XNP')), 0, 'xnp_center$.showabout');
57 XNP_WSGL.NavLinks;
58
59
60 htp.p(htf.img('/OA_MEDIA/FNDLOGOS.gif'));
61
62 XNP_WSGL.ClosePageBody;
63
64 exception
65 when others then
66 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'NP Center',
67 'BGCOLOR="CCCCCC"', 'xnp_center$.FirstPage');
68 end;
69 --------------------------------------------------------------------------------
70 -- Name: xnp_center$.showabout
71 --
72 -- Description: This procedure is used to display an 'About' page for the
73 -- 'xnp_center$' module (NP Center).
74 --
75 --------------------------------------------------------------------------------
76 procedure showabout is
77 begin
78
79 XNP_WSGL.RegisterURL('xnp_center$.showabout');
80 if XNP_WSGL.NotLowerCase then
81 return;
82 end if;
83
84 XNP_WSGL.OpenPageHead(XNP_WSGL.MsgGetText(107,XNP_WSGLM.DSP107_ABOUT)||' NP Center');
85 TemplateHeader(TRUE,0);
86 XNP_WSGL.ClosePageHead;
87
88 XNP_WSGL.OpenPageBody(FALSE, p_attributes=>'BGCOLOR="CCCCCC"');
89
90 htp.p(htf.bold(fnd_message.get_string('XNP','WEB_TITLE')));
91
92 htp.p(htf.header(1,fnd_message.get_string('XNP','WEB_XNPCENTR_TITLE')));
93
94
95 htp.para;
96
97 htp.p(XNP_WSGL.MsgGetText(108,XNP_WSGLM.DSP108_GENERATED_BY, 'WebServer Generator', '2.0.24.2.0'));
98 htp.para;
99
100 XNP_WSGL.Info(FALSE, 'XNP', 'XNPCENTR');
101
102
103 htp.p(htf.img('/OA_MEDIA/FNDLOGOS.gif'));
104
105 XNP_WSGL.ClosePageBody;
106
107 exception
108 when others then
109 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'NP Center',
110 'BGCOLOR="CCCCCC"', 'xnp_center$.ShowAbout');
111 end;
112 --------------------------------------------------------------------------------
113 -- Name: xnp_center$.TemplateHeader
114 --
115 -- Description:
116 --
117 --------------------------------------------------------------------------------
118 procedure TemplateHeader(Z_DIRECT_CALL in boolean,
119 Z_TEMPLATE_ID in number) is
120 begin
121
122 null;
123
124 exception
125 when others then
126 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'NP Center',
127 'BGCOLOR="CCCCCC"', 'xnp_center$.TemplateHeader');
128 end;
129 end;