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