1: package body xnp_center$ as
2: /* $Header: XNPCENTB.pls 120.1 2005/06/21 04:04:24 appldev ship $ */
3:
4:
5: --------------------------------------------------------------------------------
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: --
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');
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: --
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: --
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: --
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'));
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: --
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: --
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
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:
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: --
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: --------------------------------------------------------------------------------
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;