APPS.WIP_SERIAL_NUMBER_CLEANUP dependencies on MTL_SERIAL_NUMBERS

Line 7: p_serials in out nocopy mtl_serial_numbers_rec) is

3:
4: procedure fetch_and_delete(
5: p_grp_id in number,
6: p_status in number,
7: p_serials in out nocopy mtl_serial_numbers_rec) is
8:
9: i number := 0;
10:
11: cursor get_serials(

Line 68: from mtl_serial_numbers

64: ATTRIBUTE15,
65: GROUP_MARK_ID,
66: LINE_MARK_ID,
67: LOT_LINE_MARK_ID
68: from mtl_serial_numbers
69: where group_mark_id = c_grp_id
70: and current_status = c_status;
71:
72: serial_rec get_serials%rowtype;

Line 152: delete mtl_serial_numbers

148:
149: close get_serials;
150:
151: if (p_serials.numrecs > 0) then
152: delete mtl_serial_numbers
153: where group_mark_id = p_grp_id
154: and current_status = p_status;
155: end if;
156: end fetch_and_delete;

Line 159: p_serials in mtl_serial_numbers_rec) is

155: end if;
156: end fetch_and_delete;
157:
158: procedure insert_rows(
159: p_serials in mtl_serial_numbers_rec) is
160: i number := 1;
161: begin
162: while (i <= nvl(p_serials.numrecs, 0)) loop
163: insert into mtl_serial_numbers (

Line 163: insert into mtl_serial_numbers (

159: p_serials in mtl_serial_numbers_rec) is
160: i number := 1;
161: begin
162: while (i <= nvl(p_serials.numrecs, 0)) loop
163: insert into mtl_serial_numbers (
164: INVENTORY_ITEM_ID,
165: SERIAL_NUMBER,
166: LAST_UPDATE_DATE,
167: LAST_UPDATED_BY,

Line 279: p_serials in out nocopy mtl_serial_numbers_mark_rec) is

275: end insert_rows;
276:
277: procedure fetch_and_unmark(
278: p_hdr_id in number,
279: p_serials in out nocopy mtl_serial_numbers_mark_rec) is
280: i number := 0;
281:
282: cursor get_serials(c_hdr_id number) is
283: select

Line 289: from mtl_serial_numbers

285: INVENTORY_ITEM_ID,
286: GROUP_MARK_ID,
287: LINE_MARK_ID,
288: LOT_LINE_MARK_ID
289: from mtl_serial_numbers
290: where group_mark_id = c_hdr_id;
291:
292: serial_rec get_serials%rowtype;
293: begin

Line 322: update mtl_serial_numbers

318:
319: close get_serials;
320:
321: if (p_serials.numrecs > 0) then
322: update mtl_serial_numbers
323: set group_mark_id = null,
324: line_mark_id = null,
325: lot_line_mark_id = null
326: where group_mark_id = p_hdr_id;

Line 331: p_serials in mtl_serial_numbers_mark_rec,

327: end if;
328: end fetch_and_unmark;
329:
330: procedure mark(
331: p_serials in mtl_serial_numbers_mark_rec,
332: p_retcode out nocopy number) is
333: i number := 1;
334:
335: -- cursor to lock rows

Line 340: from mtl_serial_numbers

336: cursor lock_rows(
337: c_item_id number,
338: c_serial varchar2) is
339: select 'x'
340: from mtl_serial_numbers
341: where inventory_item_id = c_item_id
342: and serial_number = c_serial
343: for update nowait;
344:

Line 361: update mtl_serial_numbers

357: c_serial => p_serials.SERIAL_NUMBER(i));
358: fetch lock_rows into x_dummy;
359: close lock_rows;
360:
361: update mtl_serial_numbers
362: set group_mark_id = p_serials.GROUP_MARK_ID(i),
363: line_mark_id = p_serials.LINE_MARK_ID(i),
364: lot_line_mark_id = p_serials.LOT_LINE_MARK_ID(i)
365: where inventory_item_id = p_serials.INVENTORY_ITEM_ID(i)