1: PACKAGE BODY wms_rule_gen_pkgs AS
2: /* $Header: WMSGNPKB.pls 120.2.12020000.2 2013/02/21 10:21:00 pyerrams ship $ */
3: --
4: g_build_package_row number;
5: g_build_package_tbl DBMS_SQL.VARCHAR2S;
6:
7: g_tbl_pkg_body tbl_long_type;
8: g_tbl_pkg_body_f tbl_long_type;
9: g_tbl_pkg_body_c tbl_long_type;
146: raise_application_error ('-20000', fnd_message.get);
147: end if;
148:
149: --open cursor
150: l_cursor := dbms_sql.open_cursor;
151: --parse cursor
152: dbms_sql.parse(l_cursor,
153: g_build_package_tbl,
154: 1,
148:
149: --open cursor
150: l_cursor := dbms_sql.open_cursor;
151: --parse cursor
152: dbms_sql.parse(l_cursor,
153: g_build_package_tbl,
154: 1,
155: g_build_package_row,
156: FALSE,
153: g_build_package_tbl,
154: 1,
155: g_build_package_row,
156: FALSE,
157: dbms_sql.native);
158:
159: --l_dummy := dbms_sql.execute(l_cursor);
160: --close cursor
161: dbms_sql.close_cursor(l_cursor);
155: g_build_package_row,
156: FALSE,
157: dbms_sql.native);
158:
159: --l_dummy := dbms_sql.execute(l_cursor);
160: --close cursor
161: dbms_sql.close_cursor(l_cursor);
162:
163: --Check status, return error if package that was created
157: dbms_sql.native);
158:
159: --l_dummy := dbms_sql.execute(l_cursor);
160: --close cursor
161: dbms_sql.close_cursor(l_cursor);
162:
163: --Check status, return error if package that was created
164: -- is invalid
165: