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