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(
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: --
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
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
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: --
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: --
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: --
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:
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: --
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);
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:
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 ('