DBA Data[Home] [Help]

PACKAGE BODY: APPS.XNP_NUMBER_SPLITS$

Source


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