PACKAGE BODY: APPS.WSH_SC_DEL_UTIL

Source

1 PACKAGE BODY WSH_SC_DEL_UTIL as
2 /* $Header: WSHSDUTB.pls 115.2 99/07/16 08:21:34 porting ship $ */
3 
4 -------------------------------------------------------------------
5 -- WSH_SC_DEL_UTIL
6 -- Purpose
7 --      Execute Mass Change
8 -- History
9 --      04-MAR-98 mgunawar Created
10 --
11 -------------------------------------------------------------------
12 
13 PROCEDURE EXEC_MASS_CHANGE(statement varchar2, records_updated in out number) AS
14 	cursor_name INTEGER;
15 	rows_processed number;
16 BEGIN
17 	     cursor_name := DBMS_SQL.OPEN_CURSOR;
18 	     DBMS_SQL.PARSE(cursor_name, statement, DBMS_SQL.v7);
19 
20 	     rows_processed := DBMS_SQL.EXECUTE(cursor_name);
21 	     records_updated := rows_processed;
22 
23 	     DBMS_SQL.CLOSE_CURSOR(cursor_name);
24 EXCEPTION
25 	when others then
26 	     dbms_sql.close_cursor(cursor_name);
27 END;
28 
29 
30 FUNCTION Request_Id return NUMBER
31 IS
32 	id number;
33 BEGIN
34 
35 	SELECT wsh_deliveries_interface_s.nextval INTO id
36 	       FROM Dual;
37 
38 	return(id);
39 
40 END;
41 
42 
43 end  WSH_SC_DEL_UTIL;