[Home] [Help]
83: or (p_organization_id is null) then
84:
85: select serial_number, inventory_item_id, current_organization_id
86: into l_serial_number, l_inventory_item_id, l_organization_id
87: from mtl_serial_numbers where
88: gen_object_id = p_object_id;
89: else
90:
91: l_serial_number := p_serial_number;
105: l_return_status := 'E';
106: RAISE FND_API.G_EXC_ERROR;
107: else
108: select gen_object_id into l_parent_object_id
109: from mtl_serial_numbers where
110: serial_number = p_parent_serial_number
111: and inventory_item_id = p_parent_inventory_item_id
112: and current_organization_id = p_parent_organization_id;
113: end if;
118: -- check if there is an open work order against the rebuild item. If the parent does not correspond to the charge asset in the work order, there is an error. If the charge asset is null, this is not a problem.
119:
120: begin
121: select msn.gen_object_id into l_charge_object_id
122: from wip_discrete_jobs wdj, mtl_serial_numbers msn
123: where wdj.rebuild_serial_number = l_serial_number
124: and wdj.rebuild_item_id = l_inventory_item_id
125: and wdj.organization_id = l_organization_id
126: and msn.serial_number = wdj.asset_number
141: end;
142:
143: -- determine the current status of the rebuild component
144: begin
145: select current_status into l_current_status from mtl_serial_numbers
146: where serial_number = l_serial_number
147: and inventory_item_id = l_inventory_item_id
148: and current_organization_id = l_organization_id;
149:
160: if l_current_status = 3 then
161:
162: if p_subinventory is null then
163: select current_subinventory_code into l_subinventory
164: from mtl_serial_numbers
165: where serial_number = l_serial_number and
166: inventory_item_id = l_inventory_item_id and
167: current_organization_id = l_organization_id;
168: else
171:
172: if p_locator_id is null then
173: begin
174: select current_locator_id into l_locator_id
175: from mtl_serial_numbers
176: where serial_number = l_serial_number and
177: inventory_item_id = l_inventory_item_id and
178: current_organization_id = l_organization_id;
179:
237:
238: begin
239: select last_transaction_id
240: into l_txn_id
241: from mtl_serial_numbers
242: where serial_number = l_serial_number;
243: exception
244: when others then
245: RAISE FND_API.G_EXC_ERROR;
391: l_organization_id := p_organization_id;
392:
393: begin
394: select gen_object_id into l_object_id
395: from mtl_serial_numbers
396: where serial_number = p_serial_number
397: and inventory_item_id = p_inventory_item_id
398: and current_organization_id = p_organization_id;
399: exception
412:
413: begin
414: select serial_number, inventory_item_id, current_organization_id
415: into l_serial_number, l_inventory_item_id, l_organization_id
416: from mtl_serial_numbers where
417: gen_object_id = p_object_id;
418:
419: exception
420: when others then
436:
437: if p_subinventory is null then
438: begin
439: select current_subinventory_code into l_subinventory
440: from mtl_serial_numbers
441: where serial_number = l_serial_number and
442: inventory_item_id = l_inventory_item_id and
443: current_organization_id = l_organization_id;
444: exception
454:
455: if p_locator_id is null then
456: begin
457: select current_locator_id into l_locator_id
458: from mtl_serial_numbers
459: where serial_number = l_serial_number and
460: inventory_item_id = l_inventory_item_id and
461: current_organization_id = l_organization_id;
462:
513: x_statement => l_statement);
514: begin
515: select last_transaction_id
516: into l_txn_id
517: from mtl_serial_numbers
518: where serial_number = l_serial_number;
519: -- dbms_output.put_line('got here 3');
520: exception
521: when others then