1: package body xnp_number_splits$number_split as
2: /* $Header: XNPNUM2B.pls 120.1 2005/06/21 04:10:54 appldev ship $ */
3:
4:
5: procedure FormView(Z_FORM_STATUS in number);
112:
113: ZONE_SQL VARCHAR2(3300) := null;
114:
115: --------------------------------------------------------------------------------
116: -- Name: xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF
117: --
118: -- Description:
119: --
120: -- Parameters:
137: exception
138: when no_data_found then
139: XNP_cg$errors.push('New Range, New Range Starting Number, New Range Ending Number: '||
140: XNP_WSGL.MsgGetText(226,XNP_WSGLM.MSG226_INVALID_FK),
141: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
142: return FALSE;
143: when too_many_rows then
144: XNP_cg$errors.push('New Range, New Range Starting Number, New Range Ending Number: '||
145: XNP_WSGL.MsgGetText(227,XNP_WSGLM.MSG227_TOO_MANY_FKS),
142: return FALSE;
143: when too_many_rows then
144: XNP_cg$errors.push('New Range, New Range Starting Number, New Range Ending Number: '||
145: XNP_WSGL.MsgGetText(227,XNP_WSGLM.MSG227_TOO_MANY_FKS),
146: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
147: return FALSE;
148: when others then
149: XNP_cg$errors.push('New Range, New Range Starting Number, New Range Ending Number: '||SQLERRM,
150: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
146: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
147: return FALSE;
148: when others then
149: XNP_cg$errors.push('New Range, New Range Starting Number, New Range Ending Number: '||SQLERRM,
150: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
151: return FALSE;
152: end;
153: --------------------------------------------------------------------------------
154: -- Name: xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF
150: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.NEW_NUMBER_RANGE_ID_TranslateF');
151: return FALSE;
152: end;
153: --------------------------------------------------------------------------------
154: -- Name: xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF
155: --
156: -- Description:
157: --
158: -- Parameters:
175: exception
176: when no_data_found then
177: XNP_cg$errors.push('Initial Range, Initial Range Starting Number, Initial Range Ending Number: '||
178: XNP_WSGL.MsgGetText(226,XNP_WSGLM.MSG226_INVALID_FK),
179: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
180: return FALSE;
181: when too_many_rows then
182: XNP_cg$errors.push('Initial Range, Initial Range Starting Number, Initial Range Ending Number: '||
183: XNP_WSGL.MsgGetText(227,XNP_WSGLM.MSG227_TOO_MANY_FKS),
180: return FALSE;
181: when too_many_rows then
182: XNP_cg$errors.push('Initial Range, Initial Range Starting Number, Initial Range Ending Number: '||
183: XNP_WSGL.MsgGetText(227,XNP_WSGLM.MSG227_TOO_MANY_FKS),
184: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
185: return FALSE;
186: when others then
187: XNP_cg$errors.push('Initial Range, Initial Range Starting Number, Initial Range Ending Number: '||SQLERRM,
188: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
184: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
185: return FALSE;
186: when others then
187: XNP_cg$errors.push('Initial Range, Initial Range Starting Number, Initial Range Ending Number: '||SQLERRM,
188: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
189: return FALSE;
190: end;
191: --------------------------------------------------------------------------------
192: -- Name: xnp_number_splits$number_split.l_nre2_object_reference_listof
188: 'E', 'WSG', SQLCODE, 'xnp_number_splits$number_split.OLD_NUMBER_RANGE_ID_TranslateF');
189: return FALSE;
190: end;
191: --------------------------------------------------------------------------------
192: -- Name: xnp_number_splits$number_split.l_nre2_object_reference_listof
193: --
194: -- Description:
195: --
196: -- Parameters:
207: L_ANY boolean := FALSE;
208: L_BODY_ATTRIBUTES VarChar2 (1000) := LOV_BODY_ATTRIBUTES;
209: begin
210:
211: XNP_WSGL.RegisterURL('xnp_number_splits$number_split.l_nre2_object_reference_listof');
212: XNP_WSGL.AddURLParam('Z_FILTER', Z_FILTER);
213: XNP_WSGL.AddURLParam('Z_MODE', Z_MODE);
214: XNP_WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL);
215: if XNP_WSGL.NotLowerCase then
254: end if;
255: htp.p('');
256: end if;
257:
258: xnp_number_splits$.TemplateHeader(TRUE,0);
259:
260: XNP_WSGL.ClosePageHead;
261:
262: XNP_WSGL.OpenPageBody(FALSE, p_attributes=>L_BODY_ATTRIBUTES);
267: htp.p(XNP_WSGL.MsgGetText(127,XNP_WSGLM.DSP127_LOV_PLEASE_WAIT));
268: XNP_WSGL.ClosePageBody;
269: return;
270: else
271: htp.formOpen('xnp_number_splits$number_split.l_nre2_object_reference_listof');
272: XNP_WSGL.HiddenField('Z_CALLER_URL', Z_CALLER_URL);
273: XNP_WSGL.HiddenField('Z_MODE', Z_MODE);
274: end if;
275:
340:
341: exception
342: when others then
343: XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'View Number Splits',
344: LOV_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.l_nre2_object_reference_listof');
345: end;
346:
347: --------------------------------------------------------------------------------
348: -- Name: xnp_number_splits$number_split.l_nre_object_reference_listofv
344: LOV_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.l_nre2_object_reference_listof');
345: end;
346:
347: --------------------------------------------------------------------------------
348: -- Name: xnp_number_splits$number_split.l_nre_object_reference_listofv
349: --
350: -- Description:
351: --
352: -- Parameters:
363: L_ANY boolean := FALSE;
364: L_BODY_ATTRIBUTES VarChar2 (1000) := LOV_BODY_ATTRIBUTES;
365: begin
366:
367: XNP_WSGL.RegisterURL('xnp_number_splits$number_split.l_nre_object_reference_listofv');
368: XNP_WSGL.AddURLParam('Z_FILTER', Z_FILTER);
369: XNP_WSGL.AddURLParam('Z_MODE', Z_MODE);
370: XNP_WSGL.AddURLParam('Z_CALLER_URL', Z_CALLER_URL);
371: if XNP_WSGL.NotLowerCase then
410: end if;
411: htp.p('');
412: end if;
413:
414: xnp_number_splits$.TemplateHeader(TRUE,0);
415:
416: XNP_WSGL.ClosePageHead;
417:
418: XNP_WSGL.OpenPageBody(FALSE, p_attributes=>L_BODY_ATTRIBUTES);
423: htp.p(XNP_WSGL.MsgGetText(127,XNP_WSGLM.DSP127_LOV_PLEASE_WAIT));
424: XNP_WSGL.ClosePageBody;
425: return;
426: else
427: htp.formOpen('xnp_number_splits$number_split.l_nre_object_reference_listofv');
428: XNP_WSGL.HiddenField('Z_CALLER_URL', Z_CALLER_URL);
429: XNP_WSGL.HiddenField('Z_MODE', Z_MODE);
430: end if;
431:
496:
497: exception
498: when others then
499: XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'View Number Splits',
500: LOV_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.l_nre_object_reference_listofv');
501: end;
502:
503: --------------------------------------------------------------------------------
504: -- Name: xnp_number_splits$number_split.Startup
500: LOV_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.l_nre_object_reference_listofv');
501: end;
502:
503: --------------------------------------------------------------------------------
504: -- Name: xnp_number_splits$number_split.Startup
505: --
506: -- Description: Entry point for the 'NUMBER_SPLITS' module
507: -- component (Number Split Details).
508: --
513: Z_DIRECT_CALL in boolean,
514: Z_CHK in varchar2) is
515: begin
516:
517: XNP_WSGL.RegisterURL('xnp_number_splits$number_split.startup');
518: XNP_WSGL.AddURLParam('Z_CHK', Z_CHK);
519:
520: if not Z_DIRECT_CALL then
521: if not XNP_WSGL.ValidateChecksum('', Z_CHK) then
531:
532: exception
533: when others then
534: XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_EXCEPTION, SQLERRM, 'View Number Splits'||' : '||'Number Split Details',
535: DEF_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.Startup');
536: end;
537:
538: --------------------------------------------------------------------------------
539: -- Name: xnp_number_splits$number_split.ActionQuery
535: DEF_BODY_ATTRIBUTES, 'xnp_number_splits$number_split.Startup');
536: end;
537:
538: --------------------------------------------------------------------------------
539: -- Name: xnp_number_splits$number_split.ActionQuery
540: --
541: -- Description: Called when a Query form is subitted to action the query request.
542: --
543: -- Parameters:
623: htp.noframesOpen;
624: XNP_WSGL.DisplayMessage(XNP_WSGL.MESS_INFORMATION, XNP_WSGL.MsgGetText(229,XNP_WSGLM.MSG229_NO_FRAME_SUPPORT),
625: 'View Number Splits'||' : '||'Number Split Details', DEF_BODY_ATTRIBUTES);
626: htp.noframesClose;
627: htp.p('
628:
625: 'View Number Splits'||' : '||'Number Split Details', DEF_BODY_ATTRIBUTES);
626: htp.noframesClose;
627: htp.p('
628:
626: htp.noframesClose;
627: htp.p('
628: