[Home] [Help]
PACKAGE BODY: APPS.XNP_SV_NETWORK$SMS_ORDER
Source
1 package body xnp_sv_network$sms_order as
2 /* $Header: XNPSVN4B.pls 120.0 2005/05/30 11:45:16 appldev noship $ */
3
4
5 function BuildSQL(
6 P_SV_SMS_ID in varchar2 default null) return boolean;
7 function PreQuery(
8 P_SV_SMS_ID in varchar2 default null) return boolean;
9 function PostQuery(Z_POST_DML in boolean) return boolean;
10 procedure CreateListJavaScript;
11
12 RL_BODY_ATTRIBUTES constant varchar2(500) := 'BGCOLOR="CCCCCC"';
13 RL_NEXT_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_NEXT_BUTTON'));
14 RL_PREV_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_PREVIOUS_BUTTON'));
15 RL_FIRST_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_FIRST_BUTTON'));
16 RL_LAST_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_LAST_BUTTON'));
17 RL_COUNT_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_COUNT_BUTTON'));
18 RL_REQUERY_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_REFRESH_BUTTON'));
19 RL_NEXT_BUT_ACTION constant varchar2(10) := 'NEXT';
20 RL_PREV_BUT_ACTION constant varchar2(10) := 'PREV';
21 RL_FIRST_BUT_ACTION constant varchar2(10) := 'FIRST';
22 RL_LAST_BUT_ACTION constant varchar2(10) := 'LAST';
23 RL_COUNT_BUT_ACTION constant varchar2(10) := 'COUNT';
24 RL_REQUERY_BUT_ACTION constant varchar2(10) := 'REQUERY';
25 RL_RECORD_SET_SIZE constant number(4) := 10;
26 RL_TOTAL_COUNT_REQD constant boolean := TRUE;
27 RL_NUMBER_OF_COLUMNS constant number(4) := 1;
28 LOV_BODY_ATTRIBUTES constant varchar2(500) := 'BGCOLOR="CCCCCC"';
29 LOV_FIND_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_FIND_BUTTON'));
30 LOV_CLOSE_BUT_CAPTION constant varchar2(100) := htf.escape_sc(fnd_message.get_string('XNP','WEB_CLOSE_BUTTON'));
31 LOV_FIND_BUT_ACTION constant varchar2(10) := 'FIND';
32 LOV_CLOSE_BUT_ACTION constant varchar2(10) := 'CLOSE';
33 LOV_BUTTON_TEXT constant varchar2(100) := htf.italic(fnd_message.get_string('XNP','LIST_OF_VALUES'));
34 LOV_FRAME constant varchar2(20) := null;
35 TF_BODY_ATTRIBUTES constant varchar2(500) := 'BGCOLOR="CCCCCC"';
36 DEF_BODY_ATTRIBUTES constant varchar2(500) := 'BGCOLOR="CCCCCC"';
37
38 CURR_VAL XNP_SV_ORDER_MAPPINGS%ROWTYPE;
39
40 TYPE FORM_REC IS RECORD
41 (SV_ORDER_MAPPING_ID VARCHAR2(8)
42 ,ORDER_ID VARCHAR2(39)
43 ,SV_SOA_ID VARCHAR2(8)
44 ,SV_SMS_ID VARCHAR2(8)
45 ,WORKITEM_INSTANCE_ID VARCHAR2(10)
46 );
47 FORM_VAL FORM_REC;
48
49
50 ZONE_SQL VARCHAR2(1000) := null;
51
52 --------------------------------------------------------------------------------
53 -- Name: xnp_sv_network$sms_order.Startup
54 --
55 -- Description: Entry point for the 'SMS_ORDER' module
56 -- component (Order Workitems).
57 --
58 -- Parameters:
59 --
60 --------------------------------------------------------------------------------
61 procedure Startup(
62 P_SV_SMS_ID in varchar2,
63 Z_DIRECT_CALL in boolean,
64 Z_CHK in varchar2) is
65 begin
66
67 XNP_WSGL.RegisterURL('xnp_sv_network$sms_order.startup');
68 XNP_WSGL.AddURLParam('P_SV_SMS_ID', P_SV_SMS_ID);
69 XNP_WSGL.AddURLParam('Z_CHK', Z_CHK);
70
71 if not Z_DIRECT_CALL then
72 if not XNP_WSGL.ValidateChecksum('' ||
73 P_SV_SMS_ID, Z_CHK) then
74 return;
75 end if;
76 end if;
77
78 XNP_WSGL.StoreURLLink(3, 'Order Workitems');
79
80
81 QueryList(
82 P_SV_SMS_ID=>P_SV_SMS_ID,
83 Z_DIRECT_CALL=>TRUE);
84
85 exception
86 when others then
87 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
88 DEF_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.Startup');
89 end;
90
91 --------------------------------------------------------------------------------
92 -- Name: xnp_sv_network$sms_order.QueryHits
93 --
94 -- Description: Returns the number or rows which matches the given search
95 -- criteria (if any).
96 --
97 -- Parameters:
98 --
99 --------------------------------------------------------------------------------
100 function QueryHits(
101 P_SV_SMS_ID in varchar2) return number is
102 I_QUERY varchar2(2000) := '';
103 I_CURSOR integer;
104 I_VOID integer;
105 I_FROM_POS integer := 0;
106 I_COUNT number(10);
107 begin
108
109 if not BuildSQL(P_SV_SMS_ID) then
110 return -1;
111 end if;
112
113 if not PreQuery(P_SV_SMS_ID) then
114 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_ERROR, XNP_cg$errors.GetErrors,
115 'Monitor Network Subscriptions'||' : '||'Order Workitems', DEF_BODY_ATTRIBUTES);
116 return -1;
117 end if;
118
119 I_FROM_POS := instr(upper(ZONE_SQL), ' FROM ');
120
121 if I_FROM_POS = 0 then
122 return -1;
123 end if;
124
125 I_QUERY := 'SELECT count(*)' ||
126 substr(ZONE_SQL, I_FROM_POS);
127
128 I_CURSOR := dbms_sql.open_cursor;
129 dbms_sql.parse(I_CURSOR, I_QUERY, dbms_sql.v7);
130 dbms_sql.define_column(I_CURSOR, 1, I_COUNT);
131 I_VOID := dbms_sql.execute(I_CURSOR);
132 I_VOID := dbms_sql.fetch_rows(I_CURSOR);
133 dbms_sql.column_value(I_CURSOR, 1, I_COUNT);
134 dbms_sql.close_cursor(I_CURSOR);
135
136 return I_COUNT;
137
138 exception
139 when others then
140 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
141 DEF_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.QueryHits');
142 return -1;
143 end;--------------------------------------------------------------------------------
144 -- Name: xnp_sv_network$sms_order.BuildSQL
145 --
146 -- Description: Builds the SQL for the 'SMS_ORDER' module component (Order Workitems).
147 -- This incorporates all query criteria and Foreign key columns.
148 --
149 -- Parameters:
150 --
151 --------------------------------------------------------------------------------
152 function BuildSQL(
153 P_SV_SMS_ID in varchar2) return boolean is
154
155 I_WHERE varchar2(2000);
156 begin
157
158
159 -- Build up the Where clause
160
161 begin
162 XNP_WSGL.BuildWhere(P_SV_SMS_ID, 'SOG.SV_SMS_ID', XNP_WSGL.TYPE_NUMBER, I_WHERE);
163 exception
164 when others then
165 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_ERROR_QRY, SQLERRM,
166 'Monitor Network Subscriptions'||' : '||'Order Workitems', DEF_BODY_ATTRIBUTES, NULL,
167 XNP_WSGL.MsgGetText(210,XNP_WSGLM.MSG210_INVALID_QRY,'SMS Id'));
168 return false;
169 end;
170
171 ZONE_SQL := 'SELECT SOG.SV_ORDER_MAPPING_ID,
172 SOG.ORDER_ID,
173 SOG.WORKITEM_INSTANCE_ID
174 FROM XNP_SV_ORDER_MAPPINGS SOG';
175
176 ZONE_SQL := ZONE_SQL || I_WHERE;
177 ZONE_SQL := ZONE_SQL || ' ORDER BY SOG.SV_SMS_ID,
178 SOG.SV_SOA_ID';
179 return true;
180
181 exception
182 when others then
183 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
184 DEF_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.BuildSQL');
185 return false;
186 end;
187
188
189 --------------------------------------------------------------------------------
190 -- Name: xnp_sv_network$sms_order.QueryList
191 --
192 -- Description: This procedure builds the Record list for the 'SMS_ORDER'
193 -- module component (Order Workitems).
194 --
195 -- The Record List displays context information for records which
196 -- match the specified query criteria.
197 -- Sets of records are displayed (10 records at a time)
198 -- with Next/Previous buttons to get other record sets.
199 --
200 -- Parameters: P_SV_SMS_ID - SMS Id
201 -- Z_START - First record to display
202 -- Z_ACTION - Next or Previous set
203 --
204 --------------------------------------------------------------------------------
205 procedure QueryList(
206 P_SV_SMS_ID in varchar2,
207 Z_START in varchar2,
208 Z_ACTION in varchar2,
209 Z_DIRECT_CALL in boolean,
210 Z_CHK in varchar2) is
211
212 L_VF_FRAME varchar2(20) := null;
213 I_WHERE varchar2(2000) := '';
214 I_CURSOR integer;
215 I_VOID integer;
216 I_ROWS_FETCHED integer := 0;
217 I_TOTAL_ROWS integer := 0;
218 I_START number(6) := to_number(Z_START);
219 I_COUNT number(10) := 0;
220 I_OF_TOTAL_TEXT varchar2(200) := '';
221 I_NEXT_BUT boolean;
222 I_PREV_BUT boolean;
223 L_CHECKSUM varchar2(10);
224
225 begin
226
227 XNP_WSGL.RegisterURL('xnp_sv_network$sms_order.querylist');
228 XNP_WSGL.AddURLParam('P_SV_SMS_ID', P_SV_SMS_ID);
229 XNP_WSGL.AddURLParam('Z_START', Z_START);
230 XNP_WSGL.AddURLParam('Z_ACTION', Z_ACTION);
231 XNP_WSGL.AddURLParam('Z_CHK', Z_CHK);
232 if not Z_DIRECT_CALL then
233 if not XNP_WSGL.ValidateChecksum('' ||
234 P_SV_SMS_ID, Z_CHK) then
235 return;
236 end if;
237 end if;
238
239 XNP_WSGL.OpenPageHead('Monitor Network Subscriptions'||' : '||'Order Workitems');
240 CreateListJavaScript;
241 xnp_sv_network$.TemplateHeader(TRUE,0);
242 XNP_WSGL.ClosePageHead;
243
244 XNP_WSGL.OpenPageBody(FALSE, p_attributes=>RL_BODY_ATTRIBUTES);
245
246 htp.p(htf.bold(fnd_message.get_string('XNP','WEB_TITLE')));
247 htp.p(htf.header(1,fnd_message.get_string('XNP','WEB_XNPSVNWK_ORDERS_TITLE')));
248 if (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) or
249 (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or
250 (RL_TOTAL_COUNT_REQD)
251 then
252
253 I_COUNT := QueryHits(
254 P_SV_SMS_ID);
255 if I_COUNT = -1 then
256 XNP_WSGL.ClosePageBody;
257 return;
258 end if;
259 end if;
260
261 if (Z_ACTION = RL_COUNT_BUT_ACTION) or (Z_ACTION = RL_COUNT_BUT_CAPTION) or
262 RL_TOTAL_COUNT_REQD then
263 I_OF_TOTAL_TEXT := ' '||XNP_WSGL.MsgGetText(111,XNP_WSGLM.DSP111_OF_TOTAL, to_char(I_COUNT));
264 end if;
265
266 if Z_START IS NULL or (Z_ACTION = RL_FIRST_BUT_ACTION) or (Z_ACTION = RL_FIRST_BUT_CAPTION) then
267 I_START := 1;
268 elsif (Z_ACTION = RL_NEXT_BUT_ACTION) or (Z_ACTION = RL_NEXT_BUT_CAPTION) then
269 I_START := I_START + RL_RECORD_SET_SIZE;
270 elsif (Z_ACTION = RL_PREV_BUT_ACTION) or (Z_ACTION = RL_PREV_BUT_CAPTION) then
271 I_START := I_START - RL_RECORD_SET_SIZE;
272 elsif (Z_ACTION = RL_LAST_BUT_ACTION) or (Z_ACTION = RL_LAST_BUT_CAPTION) then
273 I_START := 1 + (floor((I_COUNT-1)/RL_RECORD_SET_SIZE)*RL_RECORD_SET_SIZE);
274 elsif Z_ACTION is null and I_START = 1 then
275 null;
276 elsif Z_ACTION IS NULL then
277 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_ERROR, XNP_WSGL.MsgGetText(215,XNP_WSGLM.MSG215_NO_MULTIPLE_SUBMITS),
278 'Monitor Network Subscriptions'||' : '||'Order Workitems', RL_BODY_ATTRIBUTES);
279 XNP_WSGL.ClosePageBody;
280 return;
281 end if;
282
283 if I_START < 1 then
284 I_START := 1;
285 end if;
286
287 I_PREV_BUT := TRUE;
288 I_NEXT_BUT := FALSE;
289 if I_START = 1 or Z_ACTION IS NULL then
290 I_PREV_BUT := FALSE;
291 end if;
292
293 if nvl(Z_ACTION, 'X') <> 'DONTQUERY' then
294
295 if ZONE_SQL IS NULL then
296 if not BuildSQL(
297 P_SV_SMS_ID) then
298 XNP_WSGL.ClosePageBody;
299 return;
300 end if;
301 end if;
302
303 if not PreQuery(
304 P_SV_SMS_ID) then
305 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_ERROR, XNP_cg$errors.GetErrors,
306 'Monitor Network Subscriptions'||' : '||'Order Workitems', RL_BODY_ATTRIBUTES);
307 return;
308 end if;
309
310
311
312 I_CURSOR := dbms_sql.open_cursor;
313 dbms_sql.parse(I_CURSOR, ZONE_SQL, dbms_sql.v7);
314 dbms_sql.define_column(I_CURSOR, 1, CURR_VAL.SV_ORDER_MAPPING_ID);
315 dbms_sql.define_column(I_CURSOR, 2, CURR_VAL.ORDER_ID);
316 dbms_sql.define_column(I_CURSOR, 3, CURR_VAL.WORKITEM_INSTANCE_ID);
317
318 I_VOID := dbms_sql.execute(I_CURSOR);
319 I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR);
320 else
321 I_ROWS_FETCHED := 0;
322 end if;
323 I_TOTAL_ROWS := I_ROWS_FETCHED;
324
325 if I_ROWS_FETCHED <> 0 then
326
327 XNP_WSGL.LayoutOpen(XNP_WSGL.LAYOUT_TABLE, P_BORDER=>TRUE);
328
329 XNP_WSGL.LayoutRowStart;
330 for i in 1..RL_NUMBER_OF_COLUMNS loop
331 XNP_WSGL.LayoutHeader(39, 'RIGHT', 'Order ID');
332 XNP_WSGL.LayoutHeader(10, 'RIGHT', 'Workitem Instance ID');
333 end loop;
334 XNP_WSGL.LayoutRowEnd;
335
336 while I_ROWS_FETCHED <> 0 loop
337
338 if I_TOTAL_ROWS >= I_START then
339 dbms_sql.column_value(I_CURSOR, 1, CURR_VAL.SV_ORDER_MAPPING_ID);
340 dbms_sql.column_value(I_CURSOR, 2, CURR_VAL.ORDER_ID);
341 dbms_sql.column_value(I_CURSOR, 3, CURR_VAL.WORKITEM_INSTANCE_ID);
342 L_CHECKSUM := to_char(XNP_WSGL.Checksum(''||CURR_VAL.SV_ORDER_MAPPING_ID));
343
344
345 XNP_WSGL.LayoutRowStart('TOP');
346 XNP_WSGL.LayoutData(CURR_VAL.ORDER_ID);
347 XNP_WSGL.LayoutData(CURR_VAL.WORKITEM_INSTANCE_ID);
348 XNP_WSGL.LayoutRowEnd;
349
350 I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR);
351 if I_TOTAL_ROWS = I_START + RL_RECORD_SET_SIZE - 1 then
352 if I_ROWS_FETCHED <> 0 then
353 I_NEXT_BUT := TRUE;
354 end if;
355 exit;
356 end if;
357 else
358 I_ROWS_FETCHED := dbms_sql.fetch_rows(I_CURSOR);
359 end if;
360
361 I_TOTAL_ROWS := I_TOTAL_ROWS + I_ROWS_FETCHED;
362
363 end loop;
364
365 XNP_WSGL.LayoutClose;
366
367 if I_START = I_TOTAL_ROWS then
368 htp.p(XNP_WSGL.MsgGetText(109,XNP_WSGLM.DSP109_RECORD, to_char(I_TOTAL_ROWS))||I_OF_TOTAL_TEXT);
369 else
370 htp.p(XNP_WSGL.MsgGetText(110,XNP_WSGLM.DSP110_RECORDS_N_M,
371 to_char(I_START), to_char(I_TOTAL_ROWS))||
372 I_OF_TOTAL_TEXT);
373 end if;
374 htp.para;
375 else
376 htp.p(XNP_WSGL.MsgGetText(112,XNP_WSGLM.DSP112_NO_RECORDS));
377 end if;
378
379 if nvl(Z_ACTION, 'X') <> 'DONTQUERY' then
380 dbms_sql.close_cursor(I_CURSOR);
381 end if;
382
383 htp.formOpen(curl => 'xnp_sv_network$sms_order.querylist', cattributes => 'NAME="frmZero"');
384 XNP_WSGL.HiddenField('P_SV_SMS_ID', P_SV_SMS_ID);
385 XNP_WSGL.HiddenField('Z_START', to_char(I_START));
386 htp.p ('<SCRIPT><!--');
387 htp.p ('document.write (''<input type=hidden name="Z_ACTION">'')');
388 htp.p ('//-->');
389 htp.p ('</SCRIPT>');
390
391 XNP_WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_FIRST_BUT_CAPTION), XNP_WSGL.MsgGetText(213,XNP_WSGLM.MSG213_AT_FIRST), FALSE,
392 'onClick="this.form.Z_ACTION.value=\''' || RL_FIRST_BUT_ACTION || '\''"');
393 XNP_WSGL.RecordListButton(I_PREV_BUT, 'Z_ACTION', htf.escape_sc(RL_PREV_BUT_CAPTION), XNP_WSGL.MsgGetText(213,XNP_WSGLM.MSG213_AT_FIRST), FALSE,
394 'onClick="this.form.Z_ACTION.value=\''' || RL_PREV_BUT_ACTION || '\''"');
395 XNP_WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_NEXT_BUT_CAPTION), XNP_WSGL.MsgGetText(214,XNP_WSGLM.MSG214_AT_LAST), FALSE,
396 'onClick="this.form.Z_ACTION.value=\''' || RL_NEXT_BUT_ACTION || '\''"');
397 XNP_WSGL.RecordListButton(I_NEXT_BUT,'Z_ACTION', htf.escape_sc(RL_LAST_BUT_CAPTION), XNP_WSGL.MsgGetText(214,XNP_WSGLM.MSG214_AT_LAST), FALSE,
398 'onClick="this.form.Z_ACTION.value=\''' || RL_LAST_BUT_ACTION || '\''"');
399
400 XNP_WSGL.RecordListButton(TRUE, 'Z_ACTION', htf.escape_sc(RL_REQUERY_BUT_CAPTION),p_dojs=>FALSE,
401 buttonJS => 'onClick="this.form.Z_ACTION.value=\''' || RL_REQUERY_BUT_ACTION || '\''"');
402 XNP_WSGL.HiddenField('Z_CHK',
403 to_char(XNP_WSGL.Checksum(''||P_SV_SMS_ID)));
404 htp.formClose;
405
406 XNP_WSGL.ReturnLinks('0.1', XNP_WSGL.MENU_LONG);
407 XNP_WSGL.NavLinks;
408
409 htp.p(htf.img('/OA_MEDIA/FNDLOGOS.gif'));
410
411 XNP_WSGL.ClosePageBody;
412
413 exception
414 when others then
415 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
416 RL_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.QueryList');
417 XNP_WSGL.ClosePageBody;
418 end;
419
420
421 --------------------------------------------------------------------------------
422 -- Name: xnp_sv_network$sms_order.PreQuery
423 --
424 -- Description: Provides place holder for code to be run prior to a query
425 -- for the 'SMS_ORDER' module component (Order Workitems).
426 --
427 -- Parameters: None
428 --
429 -- Returns: True If success
430 -- False Otherwise
431 --
432 --------------------------------------------------------------------------------
433 function PreQuery(
434 P_SV_SMS_ID in varchar2) return boolean is
435 L_RET_VAL boolean := TRUE;
436 begin
437 return L_RET_VAL;
438 exception
439 when others then
440 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
441 DEF_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.PreQuery');
442 return FALSE;
443 end;
444
445 --------------------------------------------------------------------------------
446 -- Name: xnp_sv_network$sms_order.PostQuery
447 --
448 -- Description: Provides place holder for code to be run after a query
449 -- for the 'SMS_ORDER' module component (Order Workitems).
450 --
451 -- Parameters: Z_POST_DML Flag indicating if Query after insert or update
452 --
453 -- Returns: True If success
454 -- False Otherwise
455 --
456 --------------------------------------------------------------------------------
457 function PostQuery(Z_POST_DML in boolean) return boolean is
458 L_RET_VAL boolean := TRUE;
459 begin
460 return L_RET_VAL;
461 exception
462 when others then
463 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
464 DEF_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.PostQuery');
465 return FALSE;
466 end;
467
468 --------------------------------------------------------------------------------
469 -- Name: xnp_sv_network$sms_order.CreateListJavaScript
470 --
471 -- Description:
472 --
473 -- Parameters:
474 --
475 --------------------------------------------------------------------------------
476 procedure CreateListJavaScript is
477 begin
478 htp.p(XNP_WSGJSL.OpenScript);
479 htp.p('var FormType = "List";');
480 htp.p(XNP_WSGJSL.CloseScript);
481 exception
482 when others then
483 XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'Monitor Network Subscriptions'||' : '||'Order Workitems',
484 RL_BODY_ATTRIBUTES, 'xnp_sv_network$sms_order.CreateListJavaScript');
485 end;
486 end;