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