112: IF (l_debug = 1) THEN
113: print_debug('l_epc_sql: '||l_epc_sql,4);
114: END IF;
115:
116: l_epc_cursor := dbms_sql.open_cursor;
117: BEGIN
118: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
119: EXCEPTION
120: WHEN OTHERS THEN
114: END IF;
115:
116: l_epc_cursor := dbms_sql.open_cursor;
117: BEGIN
118: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
119: EXCEPTION
120: WHEN OTHERS THEN
121: l_last_error_pos := dbms_sql.last_error_position();
122: l_temp_str := Substr(l_epc_sql, l_last_error_pos-5, 50);
117: BEGIN
118: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
119: EXCEPTION
120: WHEN OTHERS THEN
121: l_last_error_pos := dbms_sql.last_error_position();
122: l_temp_str := Substr(l_epc_sql, l_last_error_pos-5, 50);
123: IF l_debug = 1 THEN
124: print_debug('Error in parse sql statement, at '||l_temp_str,4);
125: END IF;
125: END IF;
126: RAISE fnd_api.g_exc_unexpected_error;
127: END;
128:
129: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
126: RAISE fnd_api.g_exc_unexpected_error;
127: END;
128:
129: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
134: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
127: END;
128:
129: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
134: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
135: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
128:
129: dbms_sql.bind_variable(l_epc_cursor,':lpn', p_lpn);
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
134: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
135: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
136: IF (l_debug = 1) THEN
130: dbms_sql.bind_variable(l_epc_cursor,':src_grp_id', p_src_grp_id);
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
134: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
135: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
136: IF (l_debug = 1) THEN
137: print_debug('l_epc_value: '||l_epc_value,4);
138: END IF;
131: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
132: l_return := dbms_sql.execute(l_epc_cursor);
133:
134: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
135: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
136: IF (l_debug = 1) THEN
137: print_debug('l_epc_value: '||l_epc_value,4);
138: END IF;
139: x_epc_value := l_epc_value;
140: ELSE
141: x_epc_value := NULL;
142: END IF;
143:
144: dbms_sql.close_cursor(l_epc_cursor);
145: ELSE --Serial
146: l_epc_sql := 'SELECT ' || l_epc_column;
147: l_epc_sql := l_epc_sql || ' FROM mtl_serial_numbers_temp';
148: l_epc_sql := l_epc_sql || ' WHERE rowid = :row_id';
150: IF (l_debug = 1) THEN
151: print_debug('l_epc_sql: '||l_epc_sql,4);
152: END IF;
153:
154: l_epc_cursor := dbms_sql.open_cursor;
155: BEGIN
156: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
157: EXCEPTION
158: WHEN OTHERS THEN
152: END IF;
153:
154: l_epc_cursor := dbms_sql.open_cursor;
155: BEGIN
156: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
157: EXCEPTION
158: WHEN OTHERS THEN
159: l_last_error_pos := dbms_sql.last_error_position();
160: l_temp_str := Substr(l_epc_sql, l_last_error_pos-10, 50);
155: BEGIN
156: dbms_sql.parse(l_epc_cursor,l_epc_sql,dbms_sql.v7);
157: EXCEPTION
158: WHEN OTHERS THEN
159: l_last_error_pos := dbms_sql.last_error_position();
160: l_temp_str := Substr(l_epc_sql, l_last_error_pos-10, 50);
161: IF l_debug = 1 THEN
162: print_debug('Error in parse sql statement, at '||l_temp_str,4);
163: print_debug('ERROR CODE = '||SQLCODE||' ERROR MESSAGE = '||Sqlerrm,4);
164: END IF;
165: RAISE fnd_api.g_exc_unexpected_error;
166: END;
167:
168: dbms_sql.bind_variable(l_epc_cursor,':row_id', p_ser_if_rowid);
169: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
170:
171: l_return := dbms_sql.execute(l_epc_cursor);
172:
165: RAISE fnd_api.g_exc_unexpected_error;
166: END;
167:
168: dbms_sql.bind_variable(l_epc_cursor,':row_id', p_ser_if_rowid);
169: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
170:
171: l_return := dbms_sql.execute(l_epc_cursor);
172:
173: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
167:
168: dbms_sql.bind_variable(l_epc_cursor,':row_id', p_ser_if_rowid);
169: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
170:
171: l_return := dbms_sql.execute(l_epc_cursor);
172:
173: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
174: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
175: IF (l_debug = 1) THEN
169: dbms_sql.define_column(l_epc_cursor, 1, l_epc_value, 30);
170:
171: l_return := dbms_sql.execute(l_epc_cursor);
172:
173: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
174: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
175: IF (l_debug = 1) THEN
176: print_debug('l_epc_value: '||l_epc_value,4);
177: END IF;
170:
171: l_return := dbms_sql.execute(l_epc_cursor);
172:
173: IF dbms_sql.fetch_rows(l_epc_cursor) <> 0 THEN
174: dbms_sql.column_value(l_epc_cursor, 1, l_epc_value);
175: IF (l_debug = 1) THEN
176: print_debug('l_epc_value: '||l_epc_value,4);
177: END IF;
178: x_epc_value := l_epc_value;
178: x_epc_value := l_epc_value;
179: ELSE
180: x_epc_value := NULL;
181: END IF;
182: dbms_sql.close_cursor(l_epc_cursor);
183: END IF;
184: END IF;
185:
186: EXCEPTION
188: IF l_debug = 1 THEN
189: print_debug('Error in get_epc_info at progress:'||l_progress,4);
190: print_debug('ERROR CODE = '||SQLCODE||' ERROR MESSAGE = '||Sqlerrm,4);
191: END IF;
192: dbms_sql.close_cursor(l_epc_cursor);
193: END get_epc_info;
194:
195:
196: /*****bug4187663, comment out the call to serial uniqueness api