1: PACKAGE BODY wms_rule_gen_pkgs AS
2: /* $Header: WMSGNPKB.pls 120.1 2006/10/24 23:56:36 grao noship $ */
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;
140:
141: x_return_status := fnd_api.g_ret_sts_unexp_error;
142:
143: --open cursor
144: l_cursor := dbms_sql.open_cursor;
145: --parse cursor
146: dbms_sql.parse(l_cursor,
147: g_build_package_tbl,
148: 1,
142:
143: --open cursor
144: l_cursor := dbms_sql.open_cursor;
145: --parse cursor
146: dbms_sql.parse(l_cursor,
147: g_build_package_tbl,
148: 1,
149: g_build_package_row,
150: FALSE,
147: g_build_package_tbl,
148: 1,
149: g_build_package_row,
150: FALSE,
151: dbms_sql.native);
152:
153: --l_dummy := dbms_sql.execute(l_cursor);
154: --close cursor
155: dbms_sql.close_cursor(l_cursor);
149: g_build_package_row,
150: FALSE,
151: dbms_sql.native);
152:
153: --l_dummy := dbms_sql.execute(l_cursor);
154: --close cursor
155: dbms_sql.close_cursor(l_cursor);
156:
157: --Check status, return error if package that was created
151: dbms_sql.native);
152:
153: --l_dummy := dbms_sql.execute(l_cursor);
154: --close cursor
155: dbms_sql.close_cursor(l_cursor);
156:
157: --Check status, return error if package that was created
158: -- is invalid
159: