[Home] [Help]
137: , p_header_id IN NUMBER
138: , p_lot_number IN VARCHAR2
139: , p_revision IN VARCHAR2
140: , p_inspection_status IN NUMBER := NULL
141: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
142: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
143: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
144: , p_wms_process_flag IN NUMBER := NULL
145: , x_return_status OUT NOCOPY VARCHAR2
138: , p_lot_number IN VARCHAR2
139: , p_revision IN VARCHAR2
140: , p_inspection_status IN NUMBER := NULL
141: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
142: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
143: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
144: , p_wms_process_flag IN NUMBER := NULL
145: , x_return_status OUT NOCOPY VARCHAR2
146: , x_msg_count OUT NOCOPY NUMBER
139: , p_revision IN VARCHAR2
140: , p_inspection_status IN NUMBER := NULL
141: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
142: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
143: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
144: , p_wms_process_flag IN NUMBER := NULL
145: , x_return_status OUT NOCOPY VARCHAR2
146: , x_msg_count OUT NOCOPY NUMBER
147: , x_msg_data OUT NOCOPY VARCHAR2
150: , p_sec_uom IN VARCHAR2 := NULL -- Added for OPM convergance
151: , x_line_id OUT nocopy NUMBER -- Added for R12 MOL Consolidation
152: ) IS
153: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
154: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
155: l_msg_count NUMBER;
156: l_msg_data VARCHAR2(2400);
157: l_trohdr_val_rec inv_move_order_pub.trolin_val_tbl_type;
158: l_commit VARCHAR2(1) := fnd_api.g_false;
154: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
155: l_msg_count NUMBER;
156: l_msg_data VARCHAR2(2400);
157: l_trohdr_val_rec inv_move_order_pub.trolin_val_tbl_type;
158: l_commit VARCHAR2(1) := fnd_api.g_false;
159: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
160: l_line_num NUMBER := 0;
161: l_header_id NUMBER := fnd_api.g_miss_num;
162: l_order_count NUMBER := 1;
157: l_trohdr_val_rec inv_move_order_pub.trolin_val_tbl_type;
158: l_commit VARCHAR2(1) := fnd_api.g_false;
159: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
160: l_line_num NUMBER := 0;
161: l_header_id NUMBER := fnd_api.g_miss_num;
162: l_order_count NUMBER := 1;
163: l_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
164: l_commit VARCHAR2(1) := fnd_api.g_false;
165: p_need_by_date DATE := SYSDATE;
160: l_line_num NUMBER := 0;
161: l_header_id NUMBER := fnd_api.g_miss_num;
162: l_order_count NUMBER := 1;
163: l_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
164: l_commit VARCHAR2(1) := fnd_api.g_false;
165: p_need_by_date DATE := SYSDATE;
166: p_src_subinv VARCHAR2(30);
167: l_org_id NUMBER;
168: l_inventory_item_id NUMBER;
176: l_ref_id NUMBER;
177: -- Increased lot size to 80 Char - Mercy Thomas - B4625329
178: l_lot_number VARCHAR2(80);
179: l_revision VARCHAR2(3);
180: l_txn_type_id NUMBER := fnd_api.g_miss_num;
181: l_txn_source_id NUMBER := fnd_api.g_miss_num;
182: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
183: l_insp_status NUMBER;
184: l_wms_process_flag NUMBER;
177: -- Increased lot size to 80 Char - Mercy Thomas - B4625329
178: l_lot_number VARCHAR2(80);
179: l_revision VARCHAR2(3);
180: l_txn_type_id NUMBER := fnd_api.g_miss_num;
181: l_txn_source_id NUMBER := fnd_api.g_miss_num;
182: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
183: l_insp_status NUMBER;
184: l_wms_process_flag NUMBER;
185: l_cg_id NUMBER;
178: l_lot_number VARCHAR2(80);
179: l_revision VARCHAR2(3);
180: l_txn_type_id NUMBER := fnd_api.g_miss_num;
181: l_txn_source_id NUMBER := fnd_api.g_miss_num;
182: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
183: l_insp_status NUMBER;
184: l_wms_process_flag NUMBER;
185: l_cg_id NUMBER;
186: l_tcg_id NUMBER;
247: END IF;
248:
249: -- Note might need to add additional stuff here
250: -- Added for WIP
251: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
252: l_txn_source_id := p_txn_source_id;
253: ELSE
254: l_txn_source_id := NULL;
255: END IF;
253: ELSE
254: l_txn_source_id := NULL;
255: END IF;
256:
257: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
258: l_txn_source_type_id := p_transaction_source_type_id;
259: END IF;
260:
261: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
257: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
258: l_txn_source_type_id := p_transaction_source_type_id;
259: END IF;
260:
261: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
262: l_txn_type_id := p_transaction_type_id;
263: END IF;
264:
265: --Increment by 1
272: l_trolin_tbl(l_order_count).inventory_item_id := p_inventory_item_id;
273: l_trolin_tbl(l_order_count).last_updated_by := fnd_global.user_id;
274: l_trolin_tbl(l_order_count).last_update_date := SYSDATE;
275: l_trolin_tbl(l_order_count).last_update_login := fnd_global.login_id;
276: l_trolin_tbl(l_order_count).line_id := fnd_api.g_miss_num;
277: l_trolin_tbl(l_order_count).line_number := l_line_num;
278: l_trolin_tbl(l_order_count).line_status := inv_globals.g_to_status_preapproved;
279: l_trolin_tbl(l_order_count).organization_id := p_org_id;
280: l_trolin_tbl(l_order_count).quantity := p_qty;
280: l_trolin_tbl(l_order_count).quantity := p_qty;
281: l_trolin_tbl(l_order_count).status_date := SYSDATE;
282: l_trolin_tbl(l_order_count).to_subinventory_code := NULL;
283: l_trolin_tbl(l_order_count).uom_code := p_uom;
284: l_trolin_tbl(l_order_count).db_flag := fnd_api.g_true;
285: l_trolin_tbl(l_order_count).operation := inv_globals.g_opr_create;
286: l_trolin_tbl(l_order_count).lpn_id := p_lpn;
287: l_trolin_tbl(l_order_count).REFERENCE := l_ref;
288: l_trolin_tbl(l_order_count).reference_type_code := l_ref_type;
297: l_trolin_tbl(l_order_count).wms_process_flag := l_wms_process_flag;
298: l_trolin_tbl(l_order_count).secondary_quantity := l_sec_qty; -- Added for OPM convergance
299: l_trolin_tbl(l_order_count).secondary_uom := l_sec_uom; -- Added for OPM convergance
300:
301: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
302: l_trolin_tbl(l_order_count).txn_source_id := l_txn_source_id;
303: END IF;
304:
305: l_trolin_tbl(l_order_count).from_cost_group_id := l_from_cg_id;
307:
308: inv_move_order_pub.create_move_order_lines(
309: p_api_version_number => 1.0
310: , p_init_msg_list => 'F'
311: , p_commit => fnd_api.g_false
312: , x_return_status => l_return_status
313: , x_msg_count => l_msg_count
314: , x_msg_data => l_msg_data
315: , p_trolin_tbl => l_trolin_tbl
326: mydebug('create_mo_line: Status ');
327: mydebug('create_mo_line: ' || l_return_status);
328: END IF;
329:
330: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
331: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
332: fnd_msg_pub.ADD;
333: RAISE fnd_api.g_exc_unexpected_error;
334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
329:
330: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
331: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
332: fnd_msg_pub.ADD;
333: RAISE fnd_api.g_exc_unexpected_error;
334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
335: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
336: fnd_msg_pub.ADD;
337: RAISE fnd_api.g_exc_error;
330: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
331: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
332: fnd_msg_pub.ADD;
333: RAISE fnd_api.g_exc_unexpected_error;
334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
335: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
336: fnd_msg_pub.ADD;
337: RAISE fnd_api.g_exc_error;
338: END IF;
333: RAISE fnd_api.g_exc_unexpected_error;
334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
335: fnd_message.set_name('WMS', 'WMS_TD_MOL_ERROR');
336: fnd_msg_pub.ADD;
337: RAISE fnd_api.g_exc_error;
338: END IF;
339:
340: l_cg_line := l_trolin_tbl(1).line_id;
341: x_line_id := l_trolin_tbl(1).line_id;
366:
367: -- Call Cost Group Engine
368: inv_cost_group_pub.assign_cost_group(
369: p_api_version_number => 1.0
370: , p_init_msg_list => fnd_api.g_false
371: , p_commit => fnd_api.g_false
372: , x_return_status => l_return_status
373: , x_msg_count => l_msg_count
374: , x_msg_data => l_msg_data
367: -- Call Cost Group Engine
368: inv_cost_group_pub.assign_cost_group(
369: p_api_version_number => 1.0
370: , p_init_msg_list => fnd_api.g_false
371: , p_commit => fnd_api.g_false
372: , x_return_status => l_return_status
373: , x_msg_count => l_msg_count
374: , x_msg_data => l_msg_data
375: , p_line_id => l_cg_line
409: END IF;
410: END LOOP;
411: END IF;
412:
413: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
414: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
415: fnd_msg_pub.ADD;
416: RAISE fnd_api.g_exc_unexpected_error;
417: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
412:
413: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
414: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
415: fnd_msg_pub.ADD;
416: RAISE fnd_api.g_exc_unexpected_error;
417: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
418: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
419: fnd_msg_pub.ADD;
420: RAISE fnd_api.g_exc_error;
413: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
414: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
415: fnd_msg_pub.ADD;
416: RAISE fnd_api.g_exc_unexpected_error;
417: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
418: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
419: fnd_msg_pub.ADD;
420: RAISE fnd_api.g_exc_error;
421: END IF;
416: RAISE fnd_api.g_exc_unexpected_error;
417: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
418: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
419: fnd_msg_pub.ADD;
420: RAISE fnd_api.g_exc_error;
421: END IF;
422: END IF;
423:
424: x_return_status := fnd_api.g_ret_sts_success;
420: RAISE fnd_api.g_exc_error;
421: END IF;
422: END IF;
423:
424: x_return_status := fnd_api.g_ret_sts_success;
425: EXCEPTION
426: WHEN fnd_api.g_exc_error THEN
427: x_return_status := fnd_api.g_ret_sts_error;
428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
422: END IF;
423:
424: x_return_status := fnd_api.g_ret_sts_success;
425: EXCEPTION
426: WHEN fnd_api.g_exc_error THEN
427: x_return_status := fnd_api.g_ret_sts_error;
428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
429: WHEN OTHERS THEN
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
423:
424: x_return_status := fnd_api.g_ret_sts_success;
425: EXCEPTION
426: WHEN fnd_api.g_exc_error THEN
427: x_return_status := fnd_api.g_ret_sts_error;
428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
429: WHEN OTHERS THEN
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
431: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
426: WHEN fnd_api.g_exc_error THEN
427: x_return_status := fnd_api.g_ret_sts_error;
428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
429: WHEN OTHERS THEN
430: x_return_status := fnd_api.g_ret_sts_unexp_error;
431: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
432: END create_mo_line;
433:
434: PROCEDURE create_mo(
448: , p_sub IN VARCHAR := NULL
449: , p_loc IN NUMBER := NULL
450: , x_line_id OUT NOCOPY NUMBER
451: , p_inspection_status IN NUMBER := NULL
452: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
453: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
454: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
455: , p_wms_process_flag IN NUMBER := NULL
456: , x_return_status OUT NOCOPY VARCHAR2
449: , p_loc IN NUMBER := NULL
450: , x_line_id OUT NOCOPY NUMBER
451: , p_inspection_status IN NUMBER := NULL
452: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
453: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
454: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
455: , p_wms_process_flag IN NUMBER := NULL
456: , x_return_status OUT NOCOPY VARCHAR2
457: , x_msg_count OUT NOCOPY NUMBER
450: , x_line_id OUT NOCOPY NUMBER
451: , p_inspection_status IN NUMBER := NULL
452: , p_txn_source_id IN NUMBER := fnd_api.g_miss_num
453: , p_transaction_type_id IN NUMBER := fnd_api.g_miss_num
454: , p_transaction_source_type_id IN NUMBER := fnd_api.g_miss_num
455: , p_wms_process_flag IN NUMBER := NULL
456: , x_return_status OUT NOCOPY VARCHAR2
457: , x_msg_count OUT NOCOPY NUMBER
458: , x_msg_data OUT NOCOPY VARCHAR2
463: ) IS
464: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
465: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
466: l_trolin_val_tbl inv_move_order_pub.trolin_val_tbl_type;
467: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
468: l_msg_count NUMBER;
469: l_msg_data VARCHAR2(2000);
470: msg VARCHAR2(2000);
471: l_header_id NUMBER := fnd_api.g_miss_num;
467: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
468: l_msg_count NUMBER;
469: l_msg_data VARCHAR2(2000);
470: msg VARCHAR2(2000);
471: l_header_id NUMBER := fnd_api.g_miss_num;
472: l_line_num NUMBER := 0;
473: l_order_count NUMBER := 1;
474: l_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
475: l_commit VARCHAR2(1) := fnd_api.g_false;
471: l_header_id NUMBER := fnd_api.g_miss_num;
472: l_line_num NUMBER := 0;
473: l_order_count NUMBER := 1;
474: l_trohdr_val_rec inv_move_order_pub.trohdr_val_rec_type;
475: l_commit VARCHAR2(1) := fnd_api.g_false;
476: p_need_by_date DATE := SYSDATE;
477: p_src_subinv VARCHAR2(30);
478: l_org_id NUMBER;
479: l_inventory_item_id NUMBER;
487: l_ref_id NUMBER;
488: -- Increased lot size to 80 Char - Mercy Thomas - B4625329
489: l_lot_number VARCHAR2(80);
490: l_revision VARCHAR2(3);
491: l_txn_type_id NUMBER := fnd_api.g_miss_num;
492: l_txn_source_id NUMBER := fnd_api.g_miss_num;
493: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
494: l_insp_status NUMBER;
495: l_wms_process_flag NUMBER;
488: -- Increased lot size to 80 Char - Mercy Thomas - B4625329
489: l_lot_number VARCHAR2(80);
490: l_revision VARCHAR2(3);
491: l_txn_type_id NUMBER := fnd_api.g_miss_num;
492: l_txn_source_id NUMBER := fnd_api.g_miss_num;
493: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
494: l_insp_status NUMBER;
495: l_wms_process_flag NUMBER;
496: l_cg_id NUMBER;
489: l_lot_number VARCHAR2(80);
490: l_revision VARCHAR2(3);
491: l_txn_type_id NUMBER := fnd_api.g_miss_num;
492: l_txn_source_id NUMBER := fnd_api.g_miss_num;
493: l_txn_source_type_id NUMBER := fnd_api.g_miss_num;
494: l_insp_status NUMBER;
495: l_wms_process_flag NUMBER;
496: l_cg_id NUMBER;
497: l_tcg_id NUMBER;
515: BEGIN
516: l_header_id := p_header_id;
517:
518: IF p_header_id = 0 THEN
519: l_header_id := fnd_api.g_miss_num;
520: END IF;
521:
522: l_org_id := p_org_id;
523: l_inventory_item_id := p_inventory_item_id;
537: l_revision := p_revision;
538: l_insp_status := p_inspection_status;
539: l_wms_process_flag := p_wms_process_flag;
540: l_from_cg_id := p_from_cost_group_id;
541: l_return_status := fnd_api.g_ret_sts_success;
542:
543: l_sec_qty := p_sec_qty; -- Added for OPM convergance
544: l_sec_uom := p_sec_uom; -- Added for OPM convergance
545:
553:
554: mydebug('p_lpn = '||p_lpn);
555: mydebug('p_txn_source_id = '||p_txn_source_id);
556: if p_lpn is null then
557: if (p_txn_source_id <> fnd_api.g_miss_num) then
558: begin
559: select lpn_id into l_lpn_id_chk
560: from rcv_supply rs
561: where rs.rcv_transaction_id = p_txn_source_id
564: when others then
565: mydebug('In exception -- select fails' ) ;
566: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
567: fnd_msg_pub.ADD;
568: RAISE fnd_api.g_exc_error;
569: end;
570: end if;
571: end if;
572:
590: AND NVL(task_id, -1) <> NVL(p_task_id, -1));
591:
592: fnd_message.set_name('WMS', 'WMS_PROJ_LPN_COMINGLE');
593: fnd_msg_pub.ADD;
594: RAISE fnd_api.g_exc_error;
595: EXCEPTION
596: WHEN NO_DATA_FOUND THEN
597: NULL;
598: END;
613:
614: IF (l_lot_code = 2 AND l_lot_number IS NULL) THEN
615: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT');
616: fnd_msg_pub.ADD;
617: RAISE fnd_api.g_exc_error;
618: END IF;
619:
620: IF l_serial_control_code NOT IN (1,6) THEN
621: --13695803
675: IF (l_serial_count <> p_qty) THEN
676: mydebug('Discrepancy in Serial qty and qty recd');
677: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
678: fnd_msg_pub.ADD;
679: RAISE fnd_api.g_exc_error;
680: END IF;
681:
682: END IF; --13695803
683: END IF;
704: END IF;
705:
706: -- Note might need to add additional stuff here
707: -- Added for WIP
708: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
709: l_txn_source_id := p_txn_source_id;
710: ELSE
711: l_txn_source_id := NULL;
712: END IF;
710: ELSE
711: l_txn_source_id := NULL;
712: END IF;
713:
714: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
715: l_txn_source_type_id := p_transaction_source_type_id;
716: END IF;
717:
718: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
714: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
715: l_txn_source_type_id := p_transaction_source_type_id;
716: END IF;
717:
718: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
719: l_txn_type_id := p_transaction_type_id;
720: END IF;
721:
722: l_trohdr_rec.created_by := fnd_global.user_id;
730: l_trohdr_rec.organization_id := l_org_id;
731: l_trohdr_rec.status_date := SYSDATE;
732: l_trohdr_rec.to_subinventory_code := NULL;
733: l_trohdr_rec.move_order_type := inv_globals.g_move_order_put_away;
734: l_trohdr_rec.db_flag := fnd_api.g_true;
735: l_trohdr_rec.operation := inv_globals.g_opr_create;
736: l_line_num := l_line_num + 1;
737: l_trolin_tbl(l_order_count).header_id := l_trohdr_rec.header_id;
738: l_trolin_tbl(l_order_count).created_by := fnd_global.user_id;
745: l_trolin_tbl(l_order_count).last_update_date := SYSDATE;
746: l_trolin_tbl(l_order_count).last_updated_by := fnd_global.user_id;
747: l_trolin_tbl(l_order_count).last_update_date := SYSDATE;
748: l_trolin_tbl(l_order_count).last_update_login := fnd_global.login_id;
749: l_trolin_tbl(l_order_count).line_id := fnd_api.g_miss_num;
750: l_trolin_tbl(l_order_count).line_number := l_line_num;
751: l_trolin_tbl(l_order_count).line_status := inv_globals.g_to_status_preapproved;
752: l_trolin_tbl(l_order_count).organization_id := l_org_id;
753: l_trolin_tbl(l_order_count).quantity := l_qty;
753: l_trolin_tbl(l_order_count).quantity := l_qty;
754: l_trolin_tbl(l_order_count).status_date := SYSDATE;
755: l_trolin_tbl(l_order_count).to_subinventory_code := NULL;
756: l_trolin_tbl(l_order_count).uom_code := l_uom;
757: l_trolin_tbl(l_order_count).db_flag := fnd_api.g_true;
758: l_trolin_tbl(l_order_count).operation := inv_globals.g_opr_create;
759: l_trolin_tbl(l_order_count).lpn_id := p_lpn;
760: l_trolin_tbl(l_order_count).REFERENCE := l_ref;
761: l_trolin_tbl(l_order_count).reference_type_code := l_ref_type;
774: l_trolin_tbl(l_order_count).secondary_quantity := l_sec_qty; -- Added for OPM convergance
775: l_trolin_tbl(l_order_count).secondary_uom := l_sec_uom; -- Added for OPM convergance
776:
777: -- l_trolin_tbl(l_order_count).move_order_type:=inv_globals.g_move_order_put_away;
778: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
779: l_trolin_tbl(l_order_count).txn_source_id := l_txn_source_id;
780: END IF;
781:
782: l_trolin_tbl(l_order_count).from_cost_group_id := l_from_cg_id;
786: mydebug('create_mo: Before Checking header');
787: END IF;
788:
789: IF (l_header_id IS NULL
790: OR l_header_id = fnd_api.g_miss_num) THEN
791: IF (l_debug = 1) THEN
792: mydebug('create_mo: Header Not passed. Calling Process_Move_Order');
793: END IF;
794:
794:
795: inv_move_order_pub.process_move_order(
796: p_api_version_number => 1.0
797: , p_init_msg_list => 'F'
798: , p_commit => fnd_api.g_false
799: , x_return_status => l_return_status
800: , x_msg_count => l_msg_count
801: , x_msg_data => l_msg_data
802: , p_trohdr_rec => l_trohdr_rec
832: END IF;
833: END LOOP;
834: END IF;
835:
836: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_unexpected_error;
840: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
835:
836: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_unexpected_error;
840: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
841: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
842: fnd_msg_pub.ADD;
843: RAISE fnd_api.g_exc_error;
836: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_unexpected_error;
840: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
841: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
842: fnd_msg_pub.ADD;
843: RAISE fnd_api.g_exc_error;
844: END IF;
839: RAISE fnd_api.g_exc_unexpected_error;
840: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
841: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
842: fnd_msg_pub.ADD;
843: RAISE fnd_api.g_exc_error;
844: END IF;
845:
846: /* Get header and line ids */
847: p_header_id := l_trohdr_rec.header_id;
883: END IF;
884:
885: inv_cost_group_pub.assign_cost_group(
886: p_api_version_number => 1.0
887: , p_init_msg_list => fnd_api.g_false
888: , p_commit => fnd_api.g_false
889: , x_return_status => l_return_status
890: , x_msg_count => l_msg_count
891: , x_msg_data => l_msg_data
884:
885: inv_cost_group_pub.assign_cost_group(
886: p_api_version_number => 1.0
887: , p_init_msg_list => fnd_api.g_false
888: , p_commit => fnd_api.g_false
889: , x_return_status => l_return_status
890: , x_msg_count => l_msg_count
891: , x_msg_data => l_msg_data
892: , p_line_id => l_cg_line
901: mydebug('create_mo: CG: ' || l_cg_id);
902: mydebug('create_mo: TCG: ' || l_tcg_id);
903: END IF;
904:
905: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
906: IF (l_debug = 1) THEN
907: mydebug('create_mo: UnexpError In CG');
908: END IF;
909:
908: END IF;
909:
910: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
911: fnd_msg_pub.ADD;
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: IF (l_debug = 1) THEN
915: mydebug('create_mo: Error In CG');
916: END IF;
909:
910: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
911: fnd_msg_pub.ADD;
912: RAISE fnd_api.g_exc_unexpected_error;
913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
914: IF (l_debug = 1) THEN
915: mydebug('create_mo: Error In CG');
916: END IF;
917:
916: END IF;
917:
918: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
919: fnd_msg_pub.ADD;
920: RAISE fnd_api.g_exc_error;
921: END IF;
922: END IF;
923: ELSE
924: IF (l_debug = 1) THEN
952: , p_sec_uom => l_sec_uom
953: , x_line_id => x_line_id
954: );
955:
956: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
957: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
958: fnd_msg_pub.ADD;
959: RAISE fnd_api.g_exc_unexpected_error;
960: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
955:
956: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
957: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
958: fnd_msg_pub.ADD;
959: RAISE fnd_api.g_exc_unexpected_error;
960: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
961: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
962: fnd_msg_pub.ADD;
963: RAISE fnd_api.g_exc_error;
956: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
957: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
958: fnd_msg_pub.ADD;
959: RAISE fnd_api.g_exc_unexpected_error;
960: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
961: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
962: fnd_msg_pub.ADD;
963: RAISE fnd_api.g_exc_error;
964: END IF;
959: RAISE fnd_api.g_exc_unexpected_error;
960: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
961: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
962: fnd_msg_pub.ADD;
963: RAISE fnd_api.g_exc_error;
964: END IF;
965: END IF;
966:
967: x_return_status := fnd_api.g_ret_sts_success;
963: RAISE fnd_api.g_exc_error;
964: END IF;
965: END IF;
966:
967: x_return_status := fnd_api.g_ret_sts_success;
968: EXCEPTION
969: WHEN fnd_api.g_exc_error THEN
970: x_return_status := fnd_api.g_ret_sts_error;
971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
965: END IF;
966:
967: x_return_status := fnd_api.g_ret_sts_success;
968: EXCEPTION
969: WHEN fnd_api.g_exc_error THEN
970: x_return_status := fnd_api.g_ret_sts_error;
971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
972: WHEN OTHERS THEN
973: x_return_status := fnd_api.g_ret_sts_unexp_error;
966:
967: x_return_status := fnd_api.g_ret_sts_success;
968: EXCEPTION
969: WHEN fnd_api.g_exc_error THEN
970: x_return_status := fnd_api.g_ret_sts_error;
971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
972: WHEN OTHERS THEN
973: x_return_status := fnd_api.g_ret_sts_unexp_error;
974:
969: WHEN fnd_api.g_exc_error THEN
970: x_return_status := fnd_api.g_ret_sts_error;
971: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
972: WHEN OTHERS THEN
973: x_return_status := fnd_api.g_ret_sts_unexp_error;
974:
975: IF SQLCODE IS NOT NULL THEN
976: inv_mobile_helper_functions.sql_error('WMS_Task_Dispatch_put_away.create_mo', '10', SQLCODE);
977: END IF;
1038: , p_subinventory IN VARCHAR2
1039: , p_locator_id IN NUMBER
1040: ) IS
1041: l_api_version_number CONSTANT NUMBER := 1.0;
1042: l_init_msg_list VARCHAR2(255) := fnd_api.g_false;
1043: l_api_name CONSTANT VARCHAR2(30) := 'Suggestions_PUB';
1044: l_num_of_rows NUMBER := 0;
1045: l_detailed_qty NUMBER := 0;
1046: l_ser_index NUMBER;
1288: -- Bug# 2744186
1289: -- Set the savepoint
1290: SAVEPOINT suggestions_pub_sp;
1291: l_lpn_id := p_lpn_id;
1292: l_return_status := fnd_api.g_ret_sts_success;
1293:
1294: IF (l_lpn_id = 0) THEN
1295: l_lpn_id := NULL;
1296: END IF;
1380: END IF;
1381:
1382: fnd_message.set_name('WMS', 'WMS_MO_NOT_FOUND');
1383: fnd_msg_pub.ADD;
1384: RAISE fnd_api.g_exc_error;
1385: END IF;
1386: END IF; -- (l_rcount=0) -- fixed in ATF
1387:
1388: -- ATF_J5
1430: mydebug('x_error_code => ' || l_atf_error_code);
1431: mydebug('x_plan_status => ' || l_op_plan_instance_status);
1432: END IF;
1433:
1434: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1435: IF (l_debug = 1) THEN
1436: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1437: END IF;
1438:
1435: IF (l_debug = 1) THEN
1436: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1437: END IF;
1438:
1439: RAISE fnd_api.g_exc_error;
1440: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1441:
1442: IF l_op_plan_instance_status IS NOT NULL
1443: AND l_op_plan_instance_status <> 1 -- not pending status
1436: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1437: END IF;
1438:
1439: RAISE fnd_api.g_exc_error;
1440: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1441:
1442: IF l_op_plan_instance_status IS NOT NULL
1443: AND l_op_plan_instance_status <> 1 -- not pending status
1444: THEN
1643: END IF;
1644: END LOOP;
1645: END IF;
1646:
1647: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1649: fnd_msg_pub.ADD;
1650: RAISE fnd_api.g_exc_error;
1651: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1646:
1647: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1649: fnd_msg_pub.ADD;
1650: RAISE fnd_api.g_exc_error;
1651: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1652: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1653: fnd_msg_pub.ADD;
1654: RAISE fnd_api.g_exc_error;
1647: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1648: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1649: fnd_msg_pub.ADD;
1650: RAISE fnd_api.g_exc_error;
1651: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1652: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1653: fnd_msg_pub.ADD;
1654: RAISE fnd_api.g_exc_error;
1655: END IF;
1650: RAISE fnd_api.g_exc_error;
1651: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1652: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1653: fnd_msg_pub.ADD;
1654: RAISE fnd_api.g_exc_error;
1655: END IF;
1656:
1657: IF (l_debug = 1) THEN
1658: mydebug('suggestions_pub: Line ID created');
1833: mydebug('x_error_code => ' || l_atf_error_code);
1834: mydebug('x_plan_status => ' || l_op_plan_instance_status);
1835: END IF;
1836:
1837: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1838: IF (l_debug = 1) THEN
1839: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1840: END IF;
1841:
1838: IF (l_debug = 1) THEN
1839: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1840: END IF;
1841:
1842: RAISE fnd_api.g_exc_error;
1843: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1844:
1845: IF l_op_plan_instance_status IS NOT NULL
1846: AND l_op_plan_instance_status <> 1 -- not pending status
1839: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1840: END IF;
1841:
1842: RAISE fnd_api.g_exc_error;
1843: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1844:
1845: IF l_op_plan_instance_status IS NOT NULL
1846: AND l_op_plan_instance_status <> 1 -- not pending status
1847: THEN
1922: mydebug('x_msg_count = ' || x_msg_count);
1923: mydebug('x_msg_data = ' || x_msg_data);
1924: END IF;
1925:
1926: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1927: IF (l_debug = 1) THEN
1928: mydebug(' suggestions_pub: wms_putaway_suggestions.cleanup_suggestions failed');
1929: END IF;
1930:
1927: IF (l_debug = 1) THEN
1928: mydebug(' suggestions_pub: wms_putaway_suggestions.cleanup_suggestions failed');
1929: END IF;
1930:
1931: RAISE fnd_api.g_exc_error;
1932: END IF;
1933:
1934: END IF; -- IF l_rcount <> 0 THEN
1935:
2006: -- 13995073 starts
2007:
2008: fnd_message.set_name('WMS', 'WMS_MOL_WLC_QTY_MISMATCH');
2009: fnd_msg_pub.add;
2010: RAISE fnd_api.g_exc_error;
2011: END IF; -- IF l_wlc_mol_missmatch_flag = 'Y'
2012: --13995073 ends
2013:
2014: END IF; -- IF l_lpn_context <> 1 THEN
2100:
2101: -- Bug# 2744186
2102: -- Check the return status from the API call
2103: -- Throw an exception if the call was not completed successfully
2104: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
2105: IF (l_debug = 1) THEN
2106: mydebug('suggestions_pub: Success returned from WMS_Cross_Dock_Pvt.crossdock API');
2107: END IF;
2108: ELSE
2109: IF (l_debug = 1) THEN
2110: mydebug('suggestions_pub: Failure returned from WMS_Cross_Dock_Pvt.crossdock API');
2111: END IF;
2112:
2113: RAISE fnd_api.g_exc_error;
2114: END IF;
2115:
2116: -- Check the cross dock return value
2117: IF l_ret_crossdock = 1 THEN
2171: WHEN OTHERS THEN
2172: IF (l_debug = 1) THEN
2173: mydebug('suggestions_pub: Error nulling out mtrl.ref_detail_id. SQLERRM:'||SQLERRM);
2174: END IF;
2175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2176: END;
2177:
2178: IF (l_debug = 1) THEN
2179: mydebug('suggestions_pub: Successfully Null out mtrl.ref_detail_id');
2222:
2223: inv_ppengine_pvt.create_suggestions(
2224: p_api_version => l_api_version_number
2225: , p_init_msg_list => l_init_msg_list
2226: , p_commit => fnd_api.g_false
2227: , p_validation_level => fnd_api.g_valid_level_full
2228: , x_return_status => l_return_status
2229: , x_msg_count => x_msg_count
2230: , x_msg_data => x_msg_data
2223: inv_ppengine_pvt.create_suggestions(
2224: p_api_version => l_api_version_number
2225: , p_init_msg_list => l_init_msg_list
2226: , p_commit => fnd_api.g_false
2227: , p_validation_level => fnd_api.g_valid_level_full
2228: , x_return_status => l_return_status
2229: , x_msg_count => x_msg_count
2230: , x_msg_data => x_msg_data
2231: , p_transaction_temp_id => l_line_id
2234: , p_quick_pick_flag => l_quick_pick_flag
2235: );
2236: -- fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
2237:
2238: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2239: IF (l_debug = 1) THEN
2240: mydebug('suggestions_pub: unexpected error in inv_ppengine_pvt.create_suggestions');
2241: END IF;
2242:
2241: END IF;
2242:
2243: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2244: fnd_msg_pub.ADD;
2245: RAISE fnd_api.g_exc_error;
2246: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2247: IF (l_debug = 1) THEN
2248: mydebug('suggestions_pub: expected error in inv_ppengine_pvt.create_suggestions');
2249: END IF;
2242:
2243: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2244: fnd_msg_pub.ADD;
2245: RAISE fnd_api.g_exc_error;
2246: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2247: IF (l_debug = 1) THEN
2248: mydebug('suggestions_pub: expected error in inv_ppengine_pvt.create_suggestions');
2249: END IF;
2250:
2249: END IF;
2250:
2251: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2252: fnd_msg_pub.ADD;
2253: RAISE fnd_api.g_exc_error;
2254: END IF;
2255:
2256: IF (l_debug = 1) THEN
2257: mydebug('suggestions_pub: After calling inv_ppengine_pvt.create_suggestions');
2350: --ROLLBACK TO mtl_stat_chk;
2351: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_STATUS');
2352: fnd_message.set_name('WMS', 'WMS_INVALID_LPN_ITEM_STATUS');
2353: fnd_msg_pub.ADD;
2354: RAISE fnd_api.g_exc_error;
2355: END IF;
2356:
2357: /* nsinghi - GME-WMS Integration. Added the following select stmt to determine if Process Org.
2358: Also added check in If statement to not refer to Wip_Lpn_Completions table for discrete Orgs.
2426: );
2427: mydebug('suggestions_pub: After calling wms_rule_pvt.assign_operation_plan');
2428: mydebug('l_return_status = ' || l_return_status);
2429:
2430: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2431: IF (l_debug = 1) THEN
2432: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2433: END IF;
2434:
2431: IF (l_debug = 1) THEN
2432: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2433: END IF;
2434:
2435: RAISE fnd_api.g_exc_error;
2436: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2437:
2438: --Following API initializes the operation plan instance
2439:
2432: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2433: END IF;
2434:
2435: RAISE fnd_api.g_exc_error;
2436: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2437:
2438: --Following API initializes the operation plan instance
2439:
2440: mydebug('suggestions_pub: Before calling wms_op_runtime_pub_apis.init_op_plan_instance with following parameters: ');
2450: );
2451: mydebug('suggestions_pub: After calling wms_op_runtime_pub_apis.init_plan_instance');
2452: mydebug('l_return_status = ' || l_return_status);
2453:
2454: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2455: IF (l_debug = 1) THEN
2456: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2457: END IF;
2458:
2455: IF (l_debug = 1) THEN
2456: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2457: END IF;
2458:
2459: RAISE fnd_api.g_exc_error;
2460: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2461: END IF; -- (l_operation_plan_id IS NULL)
2462: END IF; -- ( p_drop_type IS NULL OR p_drop_type <> 'MD')
2463:
2456: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2457: END IF;
2458:
2459: RAISE fnd_api.g_exc_error;
2460: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2461: END IF; -- (l_operation_plan_id IS NULL)
2462: END IF; -- ( p_drop_type IS NULL OR p_drop_type <> 'MD')
2463:
2464: -- End ATF_J calling operation_plan_assignment and init_op_plan_instance
2504: AND l.line_id = t.move_order_line_id;
2505:
2506: x_number_of_rows := l_rows_detailed;
2507: x_crossdock := l_td_crossdock;
2508: x_return_status := fnd_api.g_ret_sts_success;
2509:
2510: -- Fix for Bug 2374961
2511: -- For an Inventory LPN, the rules engine creates a lock
2512: -- at the item org level as part of the detailing
2527: COMMIT;
2528: END IF;
2529: END IF;
2530: EXCEPTION
2531: WHEN fnd_api.g_exc_error THEN
2532: -- Bug# 2744186
2533: -- Perform a rollback in the exception blocks
2534: ROLLBACK TO suggestions_pub_sp;
2535: x_return_status := fnd_api.g_ret_sts_error;
2531: WHEN fnd_api.g_exc_error THEN
2532: -- Bug# 2744186
2533: -- Perform a rollback in the exception blocks
2534: ROLLBACK TO suggestions_pub_sp;
2535: x_return_status := fnd_api.g_ret_sts_error;
2536: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2537:
2538: IF (l_debug = 1) THEN
2539: mydebug('suggestions_pub: Excecution error - ' || SQLERRM);
2553:
2554: IF suggestions_csr%ISOPEN THEN
2555: CLOSE suggestions_csr;
2556: END IF;
2557: WHEN fnd_api.g_exc_unexpected_error THEN
2558: ROLLBACK TO suggestions_pub_sp;
2559: x_return_status := fnd_api.g_ret_sts_unexp_error;
2560: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2561:
2555: CLOSE suggestions_csr;
2556: END IF;
2557: WHEN fnd_api.g_exc_unexpected_error THEN
2558: ROLLBACK TO suggestions_pub_sp;
2559: x_return_status := fnd_api.g_ret_sts_unexp_error;
2560: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2561:
2562: IF (l_debug = 1) THEN
2563: mydebug('suggestions_pub: Unexpected error - ' || SQLERRM);
2579: CLOSE suggestions_csr;
2580: END IF;
2581: WHEN OTHERS THEN
2582: ROLLBACK TO suggestions_pub_sp;
2583: x_return_status := fnd_api.g_ret_sts_unexp_error;
2584: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2585:
2586: IF (l_debug = 1) THEN
2587: mydebug('suggestions_pub: Others exception - ' || SQLERRM);
3193: , p_update_mln => l_no
3194: , p_secondary_quantity => p_secondary_quantity --OPM Convergence
3195: );
3196:
3197: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3198: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
3199: IF (l_debug = 1) THEN
3200: mydebug('insert_mtli_helper: Error occurred while creating interface lots: ' || l_msg_data);
3201: END IF;
3262: , p_product_code => l_prod_code
3263: , p_att_exist => l_yes
3264: , p_update_msn => l_no);
3265:
3266: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3267: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
3268: IF (l_debug = 1) THEN
3269: mydebug('insert_msni_helper: Error occurred while creating interface serials: ' || l_msg_data);
3270: END IF;
3314: fnd_msg_pub.ADD;
3315: IF (l_debug = 1) THEN
3316: mydebug('complete_putaway: Error from CSTACOSN.op_snapshot ');
3317: END IF;
3318: raise fnd_api.g_exc_unexpected_error;
3319: ELSE
3320: mydebug('complete_putaway: CALL TO CSTACOSN.op_snapshot SUCCESSFULL');
3321: END IF;
3322:
3365: , x_return_status OUT NOCOPY VARCHAR2
3366: , x_msg_count OUT NOCOPY NUMBER
3367: , x_msg_data OUT NOCOPY VARCHAR2
3368: , p_entire_lpn IN VARCHAR2 := 'N'
3369: , p_to_lpn IN VARCHAR2 := fnd_api.g_miss_char
3370: , p_qty_reason_id IN NUMBER
3371: , p_loc_reason_id IN NUMBER
3372: , p_process_serial_flag IN VARCHAR2
3373: , p_commit IN VARCHAR2 := 'Y'
3839: -- Bug# 2744170
3840: -- Set the savepoint
3841: SAVEPOINT complete_putaway_sp;
3842: l_qty := p_qty;
3843: x_return_status := fnd_api.g_ret_sts_success;
3844:
3845: IF l_to_lpn_id = 0 THEN
3846: l_to_lpn_id := NULL;
3847: END IF;
3996: END IF;
3997: fnd_message.set_name('INV', 'INV_QTY_MUST_EXCEED_ZERO');
3998: fnd_msg_pub.ADD;
3999:
4000: RAISE fnd_api.g_exc_error;
4001: END IF; --IF l_qty <= 0 THEN
4002:
4003: IF (l_debug = 1) THEN
4004: mydebug('complete_putaway: complete_putaway API 60');
4071: END IF; --END IF check txn action
4072: END IF; --END IF check sub/loc discrepancy
4073:
4074: -- Check to see if to lpn exists. if not, create it
4075: IF p_to_lpn = fnd_api.g_miss_char
4076: OR p_to_lpn IS NULL
4077: OR p_to_lpn = '' THEN
4078: l_to_lpn_id := NULL;
4079: ELSE
4100: -- LPN does not exist, create it
4101: -- Call Suresh's Create LPN API
4102: wms_container_pub.create_lpn(
4103: p_api_version => 1.0
4104: , p_init_msg_list => fnd_api.g_false
4105: , p_commit => fnd_api.g_false
4106: , x_return_status => x_return_status
4107: , x_msg_count => x_msg_count
4108: , x_msg_data => x_msg_data
4101: -- Call Suresh's Create LPN API
4102: wms_container_pub.create_lpn(
4103: p_api_version => 1.0
4104: , p_init_msg_list => fnd_api.g_false
4105: , p_commit => fnd_api.g_false
4106: , x_return_status => x_return_status
4107: , x_msg_count => x_msg_count
4108: , x_msg_data => x_msg_data
4109: , p_lpn => p_to_lpn
4142: END IF;
4143: END LOOP;
4144: END IF;
4145:
4146: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4147: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4148: fnd_msg_pub.ADD;
4149: RAISE fnd_api.g_exc_unexpected_error;
4150: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4145:
4146: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4147: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4148: fnd_msg_pub.ADD;
4149: RAISE fnd_api.g_exc_unexpected_error;
4150: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4151: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4152: fnd_msg_pub.ADD;
4153: RAISE fnd_api.g_exc_error;
4146: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4147: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4148: fnd_msg_pub.ADD;
4149: RAISE fnd_api.g_exc_unexpected_error;
4150: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4151: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4152: fnd_msg_pub.ADD;
4153: RAISE fnd_api.g_exc_error;
4154: END IF;
4149: RAISE fnd_api.g_exc_unexpected_error;
4150: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4151: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
4152: fnd_msg_pub.ADD;
4153: RAISE fnd_api.g_exc_error;
4154: END IF;
4155: ELSE
4156: -- LPN exists. Get LPN ID
4157: SELECT lpn_id
4353: IF NOT l_result THEN
4354: IF (l_debug = 1) THEN
4355: mydebug('complete_putaway: Failure while Inserting MSNI records - lot and serial controlled item');
4356: END IF;
4357: RAISE fnd_api.g_exc_unexpected_error;
4358: END IF; --END IF check l_result
4359:
4360: IF (l_debug = 1) THEN
4361: mydebug('complete_putaway: Inserted MTLI for lot and serial item. intf_txn_id: ' || l_dup_temp_id ||
4494: IF NOT l_result THEN
4495: IF (l_debug = 1) THEN
4496: mydebug('complete_putaway: Failure while Inserting MSNI records - lot and serial controlled item');
4497: END IF;
4498: RAISE fnd_api.g_exc_unexpected_error;
4499: END IF; --END IF check l_result
4500:
4501: IF (l_debug = 1) THEN
4502: mydebug('complete_putaway: Inserted MSNI for lot and serial item. intf_txn_id: '
4519: IF NOT l_result THEN
4520: IF (l_debug = 1) THEN
4521: mydebug('complete_putaway: Failure while creating xdock MSNT - lot and serial');
4522: END IF;
4523: RAISE fnd_api.g_exc_unexpected_error;
4524: END IF; --END IF check l_result
4525: END IF; --END IF insert MSNT for xdock
4526:
4527: --LPN is not receiving LPN
4540: IF NOT l_result THEN
4541: IF (l_debug = 1) THEN
4542: mydebug('complete_putaway: Failure while MSNT');
4543: END IF;
4544: RAISE fnd_api.g_exc_unexpected_error;
4545: END IF; --END IF check l_result
4546: END IF; --END IF (l_lpn_context = 3) THEN
4547: END IF; --END IF check transaction_source_type = 5clear scr
4548: END IF; --END IF p_entire_lpn = 'N'
4737: IF NOT l_result THEN
4738: IF (l_debug = 1) THEN
4739: mydebug('complete_putaway: Failure while Inserting MSNI records - serial controlled item');
4740: END IF;
4741: RAISE fnd_api.g_exc_unexpected_error;
4742: END IF; --END IF check l_result
4743: IF (l_debug = 1) THEN
4744: mydebug('complete_putaway: Inserting MSNT for xdock - serial item' || l_ser_seq);
4745: END IF;
4755: IF NOT l_result THEN
4756: IF (l_debug = 1) THEN
4757: mydebug('complete_putaway: Failure while MSNT');
4758: END IF;
4759: RAISE fnd_api.g_exc_unexpected_error;
4760: END IF; --END IF check l_result
4761: END IF; --END IF create MSNT for xdock
4762:
4763: --INV/WIP LPN
4792: IF NOT l_result THEN
4793: IF (l_debug = 1) THEN
4794: mydebug('complete_putaway: Failure while Inserting MSNT - serial controlled only');
4795: END IF;
4796: RAISE fnd_api.g_exc_unexpected_error;
4797: END IF; --END IF check l_result
4798: END IF; --END IF (l_lpn_context = 3) THEN
4799: END IF; --END IF l_transaction_source_type_id = 5
4800: END IF; --END IF p_entire_lpn = 'N'
4904: END IF;
4905: IF c_msni_ser_csr%ISOPEN THEN
4906: CLOSE c_msni_ser_csr;
4907: END IF;
4908: RAISE fnd_api.g_exc_unexpected_error;
4909: END IF; --END IF check l_result
4910: END LOOP;
4911: IF c_msni_ser_csr%ISOPEN THEN
4912: CLOSE c_msni_ser_csr;
4992: l_mmtt_id := p_temp_id;
4993:
4994: wms_txnrsn_actions_pub.log_exception(
4995: p_api_version_number => 1.0
4996: , p_init_msg_lst => fnd_api.g_false
4997: , p_commit => fnd_api.g_false
4998: , x_return_status => x_return_status
4999: , x_msg_count => x_msg_count
5000: , x_msg_data => x_msg_data
4993:
4994: wms_txnrsn_actions_pub.log_exception(
4995: p_api_version_number => 1.0
4996: , p_init_msg_lst => fnd_api.g_false
4997: , p_commit => fnd_api.g_false
4998: , x_return_status => x_return_status
4999: , x_msg_count => x_msg_count
5000: , x_msg_data => x_msg_data
5001: , p_organization_id => p_org_id
5010: , p_revision => p_rev
5011: , p_lot_number => p_lot
5012: );
5013:
5014: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5015: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5016: fnd_msg_pub.ADD;
5017: RAISE fnd_api.g_exc_unexpected_error;
5018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5013:
5014: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5015: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5016: fnd_msg_pub.ADD;
5017: RAISE fnd_api.g_exc_unexpected_error;
5018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5019: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5020: fnd_msg_pub.ADD;
5021: RAISE fnd_api.g_exc_error;
5014: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5015: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5016: fnd_msg_pub.ADD;
5017: RAISE fnd_api.g_exc_unexpected_error;
5018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5019: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5020: fnd_msg_pub.ADD;
5021: RAISE fnd_api.g_exc_error;
5022: END IF;
5017: RAISE fnd_api.g_exc_unexpected_error;
5018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5019: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5020: fnd_msg_pub.ADD;
5021: RAISE fnd_api.g_exc_error;
5022: END IF;
5023: END IF;
5024:
5025: IF (p_loc_reason_id > 0) THEN
5032: l_mmtt_id := p_temp_id;
5033:
5034: wms_txnrsn_actions_pub.log_exception(
5035: p_api_version_number => 1.0
5036: , p_init_msg_lst => fnd_api.g_false
5037: , p_commit => fnd_api.g_false
5038: , x_return_status => x_return_status
5039: , x_msg_count => x_msg_count
5040: , x_msg_data => x_msg_data
5033:
5034: wms_txnrsn_actions_pub.log_exception(
5035: p_api_version_number => 1.0
5036: , p_init_msg_lst => fnd_api.g_false
5037: , p_commit => fnd_api.g_false
5038: , x_return_status => x_return_status
5039: , x_msg_count => x_msg_count
5040: , x_msg_data => x_msg_data
5041: , p_organization_id => p_org_id
5051: , p_lot_number => p_lot
5052: , p_is_loc_desc => TRUE --Changes for Bug 3989684
5053: );
5054:
5055: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5056: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5057: fnd_msg_pub.ADD;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5054:
5055: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5056: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5057: fnd_msg_pub.ADD;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5060: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5061: fnd_msg_pub.ADD;
5062: RAISE fnd_api.g_exc_error;
5055: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5056: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5057: fnd_msg_pub.ADD;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5060: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5061: fnd_msg_pub.ADD;
5062: RAISE fnd_api.g_exc_error;
5063: END IF;
5058: RAISE fnd_api.g_exc_unexpected_error;
5059: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5060: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5061: fnd_msg_pub.ADD;
5062: RAISE fnd_api.g_exc_error;
5063: END IF;
5064: END IF;
5065:
5066: --If the LPN context is Resides in Receiving
5168:
5169: -- Calling Workflow
5170: wms_workflow_wrappers.wf_wrapper(
5171: p_api_version => 1.0
5172: , p_init_msg_list => fnd_api.g_false
5173: , p_commit => fnd_api.g_false
5174: , x_return_status => x_return_status
5175: , x_msg_count => x_msg_count
5176: , x_msg_data => x_msg_data
5169: -- Calling Workflow
5170: wms_workflow_wrappers.wf_wrapper(
5171: p_api_version => 1.0
5172: , p_init_msg_list => fnd_api.g_false
5173: , p_commit => fnd_api.g_false
5174: , x_return_status => x_return_status
5175: , x_msg_count => x_msg_count
5176: , x_msg_data => x_msg_data
5177: , p_org_id => p_org_id
5186: IF (l_debug = 1) THEN
5187: mydebug('complete_putaway : After Calling WF Wrapper');
5188: END IF;
5189:
5190: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5191: IF (l_debug = 1) THEN
5192: mydebug('complete_putaway : Error callinf WF wrapper');
5193: END IF;
5194:
5193: END IF;
5194:
5195: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5196: fnd_msg_pub.ADD;
5197: RAISE fnd_api.g_exc_unexpected_error;
5198: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5199: IF (l_debug = 1) THEN
5200: mydebug('complete_putaway : Error calling WF wrapper');
5201: END IF;
5194:
5195: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5196: fnd_msg_pub.ADD;
5197: RAISE fnd_api.g_exc_unexpected_error;
5198: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5199: IF (l_debug = 1) THEN
5200: mydebug('complete_putaway : Error calling WF wrapper');
5201: END IF;
5202:
5201: END IF;
5202:
5203: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5204: fnd_msg_pub.ADD;
5205: RAISE fnd_api.g_exc_error;
5206: END IF;
5207: END IF;
5208: END IF;
5209:
5250:
5251: -- Calling Workflow
5252: wms_workflow_wrappers.wf_wrapper(
5253: p_api_version => 1.0
5254: , p_init_msg_list => fnd_api.g_false
5255: , p_commit => fnd_api.g_false
5256: , x_return_status => x_return_status
5257: , x_msg_count => x_msg_count
5258: , x_msg_data => x_msg_data
5251: -- Calling Workflow
5252: wms_workflow_wrappers.wf_wrapper(
5253: p_api_version => 1.0
5254: , p_init_msg_list => fnd_api.g_false
5255: , p_commit => fnd_api.g_false
5256: , x_return_status => x_return_status
5257: , x_msg_count => x_msg_count
5258: , x_msg_data => x_msg_data
5259: , p_org_id => p_org_id
5268: IF (l_debug = 1) THEN
5269: mydebug('complete_putaway : After Calling WF Wrapper');
5270: END IF;
5271:
5272: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5273: IF (l_debug = 1) THEN
5274: mydebug('complete_putaway : Error callinf WF wrapper');
5275: END IF;
5276:
5275: END IF;
5276:
5277: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5278: fnd_msg_pub.ADD;
5279: RAISE fnd_api.g_exc_unexpected_error;
5280: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5281: IF (l_debug = 1) THEN
5282: mydebug('complete_putaway : Error calling WF wrapper');
5283: END IF;
5276:
5277: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5278: fnd_msg_pub.ADD;
5279: RAISE fnd_api.g_exc_unexpected_error;
5280: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5281: IF (l_debug = 1) THEN
5282: mydebug('complete_putaway : Error calling WF wrapper');
5283: END IF;
5284:
5283: END IF;
5284:
5285: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5286: fnd_msg_pub.ADD;
5287: RAISE fnd_api.g_exc_error;
5288: END IF;
5289: END IF;--END IF l_wf > 0 THEN
5290: END IF; -- END IF IF (( l_wf_process IS NOT NULL AND l_wf_process <> 'WMS_N_STEP_PUTAWAY') OR l_operation_plan_id IS NULL)
5291: END IF;--IF (p_loc_reason_id > 0) THEN
5333: fnd_msg_pub.add;
5334: IF (l_debug = 1) THEN
5335: mydebug('complete_putaway: Error fetching drop subinventory type');
5336: END IF;
5337: RAISE fnd_api.g_exc_error;
5338: END IF;
5339:
5340: --Update the wms_process_flag to 2 so that one can work with
5341: --with this move order line from elsewhere
5382: IF (l_debug = 1) THEN
5383: mydebug('complete_putaway: After Karuns Delivery API');
5384: END IF;
5385:
5386: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5387: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5388: fnd_msg_pub.ADD;
5389: RAISE fnd_api.g_exc_unexpected_error;
5390: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5385:
5386: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5387: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5388: fnd_msg_pub.ADD;
5389: RAISE fnd_api.g_exc_unexpected_error;
5390: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5391: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5392: fnd_msg_pub.ADD;
5393: RAISE fnd_api.g_exc_error;
5386: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5387: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5388: fnd_msg_pub.ADD;
5389: RAISE fnd_api.g_exc_unexpected_error;
5390: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5391: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5392: fnd_msg_pub.ADD;
5393: RAISE fnd_api.g_exc_error;
5394: END IF;
5389: RAISE fnd_api.g_exc_unexpected_error;
5390: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5391: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5392: fnd_msg_pub.ADD;
5393: RAISE fnd_api.g_exc_error;
5394: END IF;
5395: --Receiving subinventory - Call Transfer API
5396: ELSE
5397: IF (l_debug = 1) THEN
5429: IF (l_debug = 1) THEN
5430: mydebug('complete_putaway: After Transfer API');
5431: END IF;
5432:
5433: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5434: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5435: fnd_msg_pub.ADD;
5436: RAISE fnd_api.g_exc_unexpected_error;
5437: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5432:
5433: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5434: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5435: fnd_msg_pub.ADD;
5436: RAISE fnd_api.g_exc_unexpected_error;
5437: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5438: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5439: fnd_msg_pub.ADD;
5440: RAISE fnd_api.g_exc_error;
5433: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5434: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5435: fnd_msg_pub.ADD;
5436: RAISE fnd_api.g_exc_unexpected_error;
5437: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5438: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5439: fnd_msg_pub.ADD;
5440: RAISE fnd_api.g_exc_error;
5441: END IF;
5436: RAISE fnd_api.g_exc_unexpected_error;
5437: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5438: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5439: fnd_msg_pub.ADD;
5440: RAISE fnd_api.g_exc_error;
5441: END IF;
5442: END IF; --END IF check sub type to call the corresponding API
5443: --14487832
5444: IF l_serial_code NOT IN (1,6) THEN
5541:
5542: IF l_acct_period_id <= 0 THEN
5543: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
5544: fnd_msg_pub.ADD;
5545: RAISE fnd_api.g_exc_unexpected_error;
5546: END IF;
5547: --End of changes for bug 5403420
5548:
5549: -- Nested LPN changes
5641:
5642: -- Calling Workflow
5643: wms_workflow_wrappers.wf_wrapper(
5644: p_api_version => 1.0
5645: , p_init_msg_list => fnd_api.g_false
5646: , p_commit => fnd_api.g_false
5647: , x_return_status => x_return_status
5648: , x_msg_count => x_msg_count
5649: , x_msg_data => x_msg_data
5642: -- Calling Workflow
5643: wms_workflow_wrappers.wf_wrapper(
5644: p_api_version => 1.0
5645: , p_init_msg_list => fnd_api.g_false
5646: , p_commit => fnd_api.g_false
5647: , x_return_status => x_return_status
5648: , x_msg_count => x_msg_count
5649: , x_msg_data => x_msg_data
5650: , p_org_id => p_org_id
5659: IF (l_debug = 1) THEN
5660: mydebug('complete_putaway : After Calling WF Wrapper');
5661: END IF;
5662:
5663: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5664: IF (l_debug = 1) THEN
5665: mydebug('complete_putaway : Error callinf WF wrapper');
5666: END IF;
5667:
5666: END IF;
5667:
5668: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5669: fnd_msg_pub.ADD;
5670: RAISE fnd_api.g_exc_unexpected_error;
5671: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5672: IF (l_debug = 1) THEN
5673: mydebug('complete_putaway : Error calling WF wrapper');
5674: END IF;
5667:
5668: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5669: fnd_msg_pub.ADD;
5670: RAISE fnd_api.g_exc_unexpected_error;
5671: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5672: IF (l_debug = 1) THEN
5673: mydebug('complete_putaway : Error calling WF wrapper');
5674: END IF;
5675:
5674: END IF;
5675:
5676: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5677: fnd_msg_pub.ADD;
5678: RAISE fnd_api.g_exc_error;
5679: END IF;
5680: END IF; --IF l_wf > 0 THEN
5681: END IF;--IF (p_qty_reason_id > 0) THEN
5682:
5735:
5736: -- Calling Workflow
5737: wms_workflow_wrappers.wf_wrapper(
5738: p_api_version => 1.0
5739: , p_init_msg_list => fnd_api.g_false
5740: , p_commit => fnd_api.g_false
5741: , x_return_status => x_return_status
5742: , x_msg_count => x_msg_count
5743: , x_msg_data => x_msg_data
5736: -- Calling Workflow
5737: wms_workflow_wrappers.wf_wrapper(
5738: p_api_version => 1.0
5739: , p_init_msg_list => fnd_api.g_false
5740: , p_commit => fnd_api.g_false
5741: , x_return_status => x_return_status
5742: , x_msg_count => x_msg_count
5743: , x_msg_data => x_msg_data
5744: , p_org_id => p_org_id
5753: IF (l_debug = 1) THEN
5754: mydebug('complete_putaway : After Calling WF Wrapper');
5755: END IF;
5756:
5757: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5758: IF (l_debug = 1) THEN
5759: mydebug('complete_putaway : Error callinf WF wrapper');
5760: END IF;
5761:
5760: END IF;
5761:
5762: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5763: fnd_msg_pub.ADD;
5764: RAISE fnd_api.g_exc_unexpected_error;
5765: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5766: IF (l_debug = 1) THEN
5767: mydebug('complete_putaway : Error calling WF wrapper');
5768: END IF;
5761:
5762: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5763: fnd_msg_pub.ADD;
5764: RAISE fnd_api.g_exc_unexpected_error;
5765: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5766: IF (l_debug = 1) THEN
5767: mydebug('complete_putaway : Error calling WF wrapper');
5768: END IF;
5769:
5768: END IF;
5769:
5770: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5771: fnd_msg_pub.ADD;
5772: RAISE fnd_api.g_exc_error;
5773: END IF;
5774: END IF;--END IF l_wf > 0 THEN
5775: END IF; --IF (( l_wf_process IS NOT NULL AND l_wf_process <> 'WMS_N_STEP_PUTAWAY') OR l_operation_plan_id IS NULL) THEN
5776: END IF;--END IF (p_loc_reason_id > 0) THEN
5833: mydebug('complete_putaway :xdock flow . So call transfer_reservation is not needed');
5834: END IF;
5835: END IF;
5836:
5837: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5838: IF (l_debug = 1) THEN
5839: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5840: END IF;
5841:
5838: IF (l_debug = 1) THEN
5839: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5840: END IF;
5841:
5842: RAISE fnd_api.g_exc_unexpected_error;
5843: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5844: IF (l_debug = 1) THEN
5845: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5846: END IF;
5839: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5840: END IF;
5841:
5842: RAISE fnd_api.g_exc_unexpected_error;
5843: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5844: IF (l_debug = 1) THEN
5845: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5846: END IF;
5847:
5844: IF (l_debug = 1) THEN
5845: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5846: END IF;
5847:
5848: RAISE fnd_api.g_exc_error;
5849: END IF;
5850: END IF;
5851:
5852: -- Added release level check for ATF_J3
5871: IF (p_commit = 'Y') THEN
5872: COMMIT;
5873: END IF;
5874:
5875: x_return_status := fnd_api.g_ret_sts_success;
5876:
5877: IF (l_debug = 1) THEN
5878: mydebug('complete_putaway: done WITH API');
5879: END IF;
5877: IF (l_debug = 1) THEN
5878: mydebug('complete_putaway: done WITH API');
5879: END IF;
5880: EXCEPTION
5881: WHEN fnd_api.g_exc_error THEN
5882: -- Bug# 2744170
5883: -- Perform a rollback in the exception blocks
5884: ROLLBACK TO complete_putaway_sp;
5885: x_return_status := fnd_api.g_ret_sts_error;
5881: WHEN fnd_api.g_exc_error THEN
5882: -- Bug# 2744170
5883: -- Perform a rollback in the exception blocks
5884: ROLLBACK TO complete_putaway_sp;
5885: x_return_status := fnd_api.g_ret_sts_error;
5886: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5887: IF ser_csr%ISOPEN THEN
5888: CLOSE ser_csr;
5889: END IF;
5900: END IF;
5901: WHEN OTHERS THEN
5902:
5903: ROLLBACK TO complete_putaway_sp;
5904: x_return_status := fnd_api.g_ret_sts_unexp_error;
5905: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5906: IF ser_csr%ISOPEN THEN
5907: CLOSE ser_csr;
5908: END IF;
6020: WHERE line_id = l_line_id
6021: AND organization_id = l_org_id;
6022: --mydebug('After updating mol');
6023:
6024: x_return_status := fnd_api.g_ret_sts_success;
6025: EXCEPTION
6026: WHEN fnd_api.g_exc_error THEN
6027: x_return_status := fnd_api.g_ret_sts_error;
6028: WHEN OTHERS THEN
6022: --mydebug('After updating mol');
6023:
6024: x_return_status := fnd_api.g_ret_sts_success;
6025: EXCEPTION
6026: WHEN fnd_api.g_exc_error THEN
6027: x_return_status := fnd_api.g_ret_sts_error;
6028: WHEN OTHERS THEN
6029: x_return_status := fnd_api.g_ret_sts_unexp_error;
6030: END discrepancy;
6023:
6024: x_return_status := fnd_api.g_ret_sts_success;
6025: EXCEPTION
6026: WHEN fnd_api.g_exc_error THEN
6027: x_return_status := fnd_api.g_ret_sts_error;
6028: WHEN OTHERS THEN
6029: x_return_status := fnd_api.g_ret_sts_unexp_error;
6030: END discrepancy;
6031:
6025: EXCEPTION
6026: WHEN fnd_api.g_exc_error THEN
6027: x_return_status := fnd_api.g_ret_sts_error;
6028: WHEN OTHERS THEN
6029: x_return_status := fnd_api.g_ret_sts_unexp_error;
6030: END discrepancy;
6031:
6032: -- Important, please note that the input parameter, p_user_id
6033: -- does NOT refer to the fnd user id. Instead it refers to the employee id.
6051: l_lpn_context NUMBER;
6052: l_count NUMBER;
6053: l_insp_status NUMBER;
6054: l_process_flag_cnt NUMBER;
6055: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6056: l_mo_cnt NUMBER;
6057: l_mo_cnt2 NUMBER;
6058: l_so_cnt NUMBER;
6059: l_nested_lpn_cnt NUMBER;
6117: mydebug('check_lpn_validity: LPN does not belong to ' || l_org_id || ' organization');
6118: END IF;
6119: fnd_message.set_name('INV', 'INV_NO_RESULT_FOUND');
6120: fnd_msg_pub.ADD;
6121: RAISE fnd_api.g_exc_unexpected_error;
6122: END;
6123:
6124: mydebug('check_lpn_validity: LPN Context' || l_lpn_context);
6125: l_mo_cnt := 0;
6170: END IF;
6171:
6172: fnd_message.set_name('INV', 'INVALID LPN');
6173: fnd_msg_pub.ADD;
6174: RAISE fnd_api.g_exc_unexpected_error;
6175: END IF ;
6176: END IF ;
6177:
6178:
6195: END IF;
6196:
6197: fnd_message.set_name('INV', 'INV_NO_RESULT_FOUND');
6198: fnd_msg_pub.ADD;
6199: RAISE fnd_api.g_exc_unexpected_error;
6200: WHEN record_locked THEN
6201: IF (l_debug = 1) THEN
6202: mydebug('check_lpn_validity: LPN not available. locked by someone else');
6203: END IF;
6203: END IF;
6204:
6205: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
6206: fnd_msg_pub.ADD;
6207: RAISE fnd_api.g_exc_unexpected_error;
6208: END;
6209: END IF;
6210:
6211: IF (l_debug = 1) THEN
6326: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
6327: ,p_organization_id => p_org_id
6328: );
6329:
6330: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6331: IF (l_debug = 1) THEN
6332: mydebug('Check LPN Validity: validate_operation failed ' || x_msg_data );
6333: END IF;
6334: RAISE fnd_api.g_exc_error;
6330: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6331: IF (l_debug = 1) THEN
6332: mydebug('Check LPN Validity: validate_operation failed ' || x_msg_data );
6333: END IF;
6334: RAISE fnd_api.g_exc_error;
6335: END IF;
6336:
6337: -- Bug# 3349802
6338: -- The variable l_count is initialized to 0 previously. For
6391: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
6392: ,p_organization_id => p_org_id
6393: );
6394:
6395: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6396: IF (l_debug = 1) THEN
6397: mydebug('Check LPN Validty:validate_operation failed ' || x_msg_data );
6398: END IF;
6399: RAISE fnd_api.g_exc_error;
6395: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6396: IF (l_debug = 1) THEN
6397: mydebug('Check LPN Validty:validate_operation failed ' || x_msg_data );
6398: END IF;
6399: RAISE fnd_api.g_exc_error;
6400: END IF;
6401:
6402: IF (l_inspection_flag = g_partial_inspection) THEN
6403: mydebug('LPN: '|| p_lpn_id||' is partially inspected');
6528:
6529: x_ret := 3;
6530: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
6531: fnd_msg_pub.ADD;
6532: RAISE fnd_api.g_exc_unexpected_error;
6533: END IF;
6534: END IF;
6535: END IF;
6536:
6537: IF (l_debug = 1) THEN
6538: mydebug('check_lpn_validity: Ret Status' || l_return_status);
6539: END IF;
6540:
6541: x_return_status := fnd_api.g_ret_sts_success;
6542: EXCEPTION
6543: WHEN OTHERS THEN
6544: x_return_status := fnd_api.g_ret_sts_unexp_error;
6545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6540:
6541: x_return_status := fnd_api.g_ret_sts_success;
6542: EXCEPTION
6543: WHEN OTHERS THEN
6544: x_return_status := fnd_api.g_ret_sts_unexp_error;
6545: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6546: END check_lpn_validity;
6547:
6548: PROCEDURE archive_task(
6595: END IF;
6596:
6597: -- Insert into WMS_DISPATCHED_TASKS_HISTORY with a status of 6, 'complete'
6598:
6599: l_return_status := fnd_api.g_ret_sts_success;
6600: wms_insert_wdth_pvt.insert_into_wdth
6601: ( x_return_status => l_return_status
6602: , p_txn_header_id => l_txn_header_id
6603: , p_transaction_temp_id => l_temp_id
6605: , p_transaction_batch_seq => l_transaction_batch_seq
6606: , p_transfer_lpn_id => NULL
6607: );
6608:
6609: IF l_return_status <> fnd_api.g_ret_sts_success
6610: THEN
6611: IF l_debug = 1 THEN
6612: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6613: END IF;
6610: THEN
6611: IF l_debug = 1 THEN
6612: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6613: END IF;
6614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6615: END IF;
6616:
6617: IF (l_debug = 1) THEN
6618: mydebug('After wmsdt update');
6652: -- Delete this row from mmtt
6653: DELETE mtl_material_transactions_temp
6654: WHERE transaction_temp_id = l_temp_id;
6655:
6656: x_return_status := fnd_api.g_ret_sts_success;
6657:
6658: IF (l_debug = 1) THEN
6659: mydebug('done WITH API');
6660: END IF;
6659: mydebug('done WITH API');
6660: END IF;
6661: EXCEPTION
6662: WHEN OTHERS THEN
6663: x_return_status := fnd_api.g_ret_sts_error;
6664: fnd_message.set_name('WMS', 'WMS_TD_AT_FAIL');
6665: fnd_msg_pub.ADD;
6666: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6667: END archive_task;
6690: END IF;
6691:
6692: l_temp_id := p_temp_id;
6693: l_org_id := p_org_id;
6694: l_return_status := fnd_api.g_ret_sts_success;
6695:
6696:
6697: /* Bug 3961107-Modified the query to select transaction_batch_id and transaction_batch_seq
6698: as null if they have null values in the table.
6714: END IF;
6715:
6716: -- Insert into WMS_DISPATCHED_TASKS_HISTORY with a status of 6, 'complete'
6717:
6718: l_return_status := fnd_api.g_ret_sts_success;
6719: wms_insert_wdth_pvt.insert_into_wdth
6720: ( x_return_status => l_return_status
6721: , p_txn_header_id => p_txn_header_id
6722: , p_transaction_temp_id => l_temp_id
6724: , p_transaction_batch_seq => l_transaction_batch_seq
6725: , p_transfer_lpn_id => p_transfer_lpn_id
6726: );
6727:
6728: IF l_return_status <> fnd_api.g_ret_sts_success
6729: THEN
6730: IF l_debug = 1 THEN
6731: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6732: END IF;
6729: THEN
6730: IF l_debug = 1 THEN
6731: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6732: END IF;
6733: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6734: END IF;
6735:
6736: -- Delete this row from wms_dispatched_tasks
6737: DELETE FROM wms_dispatched_tasks
6751: WHERE transaction_temp_id = l_temp_id);
6752: EXCEPTION
6753: WHEN OTHERS THEN
6754: mydebug('archive_task: Error deleting MSNT for MTLT: ' || sqlerrm);
6755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6756: END;
6757:
6758: BEGIN
6759: DELETE mtl_transaction_lots_temp
6760: WHERE transaction_temp_id = l_temp_id;
6761: EXCEPTION
6762: WHEN OTHERS THEN
6763: mydebug('archive_task: Error deleting MTLT: ' || sqlerrm);
6764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6765: END;
6766:
6767: BEGIN
6768: DELETE mtl_serial_numbers_temp
6769: WHERE transaction_temp_id = l_temp_id;
6770: EXCEPTION
6771: WHEN OTHERS THEN
6772: mydebug('archive_task: Error deleting MSNT: ' || sqlerrm);
6773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6774: END;
6775:
6776: BEGIN
6777: DELETE mtl_material_transactions_temp
6778: WHERE transaction_temp_id = l_temp_id;
6779: EXCEPTION
6780: WHEN OTHERS THEN
6781: mydebug('archive_task: Error deleting MMTT: ' || sqlerrm);
6782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6783: END;
6784: END IF;
6785:
6786: x_return_status := fnd_api.g_ret_sts_success;
6782: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6783: END;
6784: END IF;
6785:
6786: x_return_status := fnd_api.g_ret_sts_success;
6787:
6788: IF (l_debug = 1) THEN
6789: mydebug('archive_task: done WITH API');
6790: END IF;
6793: IF (l_debug = 1) THEN
6794: mydebug('Other exception occurred: ' || sqlerrm);
6795: END IF;
6796:
6797: x_return_status := fnd_api.g_ret_sts_error;
6798: fnd_message.set_name('WMS', 'WMS_TD_AT_FAIL');
6799: fnd_msg_pub.ADD;
6800: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6801: END archive_task;
6861: END IF;
6862:
6863: l_temp_id := p_temp_id;
6864: l_org_id := p_org_id;
6865: l_return_status := fnd_api.g_ret_sts_success;
6866:
6867: IF (l_debug = 1) THEN
6868: mydebug('Get relevant info..');
6869: END IF;
7091:
7092:
7093: x_return_status := l_return_status;
7094:
7095: --x_return_status:=FND_API.G_RET_STS_SUCCESS;
7096: IF (l_debug = 1) THEN
7097: mydebug('done WITH API');
7098: END IF;
7099: EXCEPTION
7097: mydebug('done WITH API');
7098: END IF;
7099: EXCEPTION
7100: WHEN OTHERS THEN
7101: x_return_status := fnd_api.g_ret_sts_error;
7102: fnd_message.set_name('WMS', 'WMS_TD_PUT_CLEAN_FAIL');
7103: fnd_msg_pub.ADD;
7104: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7105: END putaway_cleanup;
7135: END IF;
7136:
7137: x_return := 0;
7138: l_count := 0;
7139: x_return_status := fnd_api.g_ret_sts_success;
7140:
7141: BEGIN
7142: SELECT 1
7143: , lpn_id
7165: , x_msg_count => x_msg_count
7166: , x_msg_data => x_msg_data
7167: );
7168:
7169: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7170: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7171: fnd_msg_pub.ADD;
7172: RAISE fnd_api.g_exc_unexpected_error;
7173: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7168:
7169: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7170: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7171: fnd_msg_pub.ADD;
7172: RAISE fnd_api.g_exc_unexpected_error;
7173: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7174: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7175: fnd_msg_pub.ADD;
7176: RAISE fnd_api.g_exc_error;
7169: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7170: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7171: fnd_msg_pub.ADD;
7172: RAISE fnd_api.g_exc_unexpected_error;
7173: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7174: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7175: fnd_msg_pub.ADD;
7176: RAISE fnd_api.g_exc_error;
7177: END IF;
7172: RAISE fnd_api.g_exc_unexpected_error;
7173: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7174: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
7175: fnd_msg_pub.ADD;
7176: RAISE fnd_api.g_exc_error;
7177: END IF;
7178:
7179: x_return := 1;
7180: ELSE
7393:
7394: wms_container_pvt.Modify_LPN
7395: (
7396: p_api_version => 1.0
7397: , p_validation_level => fnd_api.g_valid_level_none
7398: , x_return_status => l_return_status
7399: , x_msg_count => l_msg_count
7400: , x_msg_data => l_msg_data
7401: , p_lpn => l_lpn_update
7410: --AND organization_id = p_org_id;
7411:
7412: END IF;
7413:
7414: x_return_status := fnd_api.g_ret_sts_success;
7415: EXCEPTION
7416: WHEN OTHERS THEN
7417: IF (l_debug = 1) THEN
7418: mydebug('validate_putaway_to_lpn : Exception : ' || SQLERRM);
7417: IF (l_debug = 1) THEN
7418: mydebug('validate_putaway_to_lpn : Exception : ' || SQLERRM);
7419: END IF;
7420:
7421: x_return_status := fnd_api.g_ret_sts_error;
7422: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7423: fnd_msg_pub.ADD;
7424: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7425: END validate_putaway_to_lpn;
7472: mydebug('p_temp_id => ' || p_temp_id);
7473: mydebug('p_org_id => ' || p_org_id);
7474: END IF;
7475:
7476: x_return_status := fnd_api.g_ret_sts_success;
7477: x_mtl_status := 0;
7478: l_temp_id := p_temp_id;
7479: l_org_id := p_org_id;
7480: l_lot_number := NULL;
7684: AND mol.lpn_id = p_lpn_id;
7685: l_header_id NUMBER;
7686:
7687: BEGIN
7688: x_return_status := fnd_api.g_ret_sts_success;
7689:
7690: -- ATF_J3
7691: -- Skip cleanup_partial_putaway_lpn logic
7692: -- if current release is J or above.
7699: RETURN;
7700:
7701: EXCEPTION
7702: WHEN OTHERS THEN
7703: x_return_status := fnd_api.g_ret_sts_unexp_error;
7704:
7705: IF (l_debug = 1) THEN
7706: mydebug('cleanup_partial_putaway_LPN upexpected error: ' || SQLCODE);
7707: END IF;
7768: FROM wms_lpn_contents
7769: WHERE parent_lpn_id = l_current_lpn_id;
7770: BEGIN
7771: -- Intialize out variables
7772: x_return_status := fnd_api.g_ret_sts_success;
7773:
7774: OPEN lpn_csr;
7775: IF (l_debug = 1) THEN
7776: mydebug('create_mo_lpn: Opened lpn_csr');
7901: END IF;
7902: END LOOP;
7903: END IF;
7904:
7905: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7906: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7907: fnd_msg_pub.ADD;
7908: RAISE fnd_api.g_exc_error;
7909: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7904:
7905: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7906: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7907: fnd_msg_pub.ADD;
7908: RAISE fnd_api.g_exc_error;
7909: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7910: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7911: fnd_msg_pub.ADD;
7912: RAISE fnd_api.g_exc_error;
7905: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7906: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7907: fnd_msg_pub.ADD;
7908: RAISE fnd_api.g_exc_error;
7909: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7910: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7911: fnd_msg_pub.ADD;
7912: RAISE fnd_api.g_exc_error;
7913: END IF;
7908: RAISE fnd_api.g_exc_error;
7909: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7910: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7911: fnd_msg_pub.ADD;
7912: RAISE fnd_api.g_exc_error;
7913: END IF;
7914:
7915: IF (l_debug = 1) THEN
7916: mydebug('create_mo: Line ID created');
7923: END LOOP;
7924: CLOSE lpn_csr;
7925:
7926: EXCEPTION
7927: WHEN fnd_api.g_exc_error THEN
7928: x_return_status := fnd_api.g_ret_sts_error;
7929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7930: WHEN OTHERS THEN
7931: x_return_status := fnd_api.g_ret_sts_unexp_error;
7924: CLOSE lpn_csr;
7925:
7926: EXCEPTION
7927: WHEN fnd_api.g_exc_error THEN
7928: x_return_status := fnd_api.g_ret_sts_error;
7929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7930: WHEN OTHERS THEN
7931: x_return_status := fnd_api.g_ret_sts_unexp_error;
7932: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7927: WHEN fnd_api.g_exc_error THEN
7928: x_return_status := fnd_api.g_ret_sts_error;
7929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7930: WHEN OTHERS THEN
7931: x_return_status := fnd_api.g_ret_sts_unexp_error;
7932: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7933: END create_mo_lpn;
7934:
7935:
7986: END IF;
7987:
7988: -- Set the savepoint
7989: SAVEPOINT validate_rules_sp;
7990: x_return_status := fnd_api.g_ret_sts_success;
7991: l_progress := '10';
7992:
7993: -- Call the ATF API to abort the plan before deleting the MMTTs
7994:
8010: ,p_emp_id => NULL
8011: );
8012: l_progress := '13';
8013:
8014: IF x_return_status = fnd_api.g_ret_sts_success THEN
8015: -- Abort op plan completed successfully.
8016: NULL;
8017:
8018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8014: IF x_return_status = fnd_api.g_ret_sts_success THEN
8015: -- Abort op plan completed successfully.
8016: NULL;
8017:
8018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8019: RAISE fnd_api.g_exc_error;
8020:
8021: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8022: RAISE fnd_api.g_exc_unexpected_error;
8015: -- Abort op plan completed successfully.
8016: NULL;
8017:
8018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8019: RAISE fnd_api.g_exc_error;
8020:
8021: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8022: RAISE fnd_api.g_exc_unexpected_error;
8023:
8017:
8018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8019: RAISE fnd_api.g_exc_error;
8020:
8021: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8022: RAISE fnd_api.g_exc_unexpected_error;
8023:
8024: END IF;
8025: l_progress := '18';
8018: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8019: RAISE fnd_api.g_exc_error;
8020:
8021: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8022: RAISE fnd_api.g_exc_unexpected_error;
8023:
8024: END IF;
8025: l_progress := '18';
8026:
8025: l_progress := '18';
8026:
8027: EXCEPTION
8028: WHEN OTHERS THEN
8029: RAISE fnd_api.g_exc_unexpected_error;
8030: END; -- Abort op plan call
8031:
8032:
8033: OPEN lpn_cur;
8144:
8145: l_progress := '60';
8146:
8147: -- Check to see if the suggestions_pub returned successfully
8148: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8149: IF (l_debug = 1) THEN
8150: mydebug('Success returned from suggestions_pub API');
8151: END IF;
8152: ELSE
8153: IF (l_debug = 1) THEN
8154: mydebug('Failure returned from suggestions_pub API');
8155: END IF;
8156:
8157: RAISE fnd_api.g_exc_error;
8158: END IF;
8159:
8160: -- Bug# 3352224
8161: -- For Patchset J and above, we allow manual drops within
8221: );
8222: l_progress := '90';
8223:
8224: -- Check to see if the call to revert_loc_suggested_capacity returned successfully
8225: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8226: IF (l_debug = 1) THEN
8227: mydebug('Success returned from revert_loc_suggested_capacity API');
8228: END IF;
8229: ELSE
8230: IF (l_debug = 1) THEN
8231: mydebug('Failure returned from revert_loc_suggested_capacity API');
8232: END IF;
8233: -- Bug 5393727: do not raise an exception if revert API returns an error
8234: -- RAISE fnd_api.g_exc_error;
8235: END IF;
8236:
8237: -- Perform a rollback to clean up the rest of the data
8238: BEGIN
8303: );
8304: l_progress := '110';
8305:
8306: -- Check to see if the call to revert_loc_suggested_capacity returned successfully
8307: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8308: IF (l_debug = 1) THEN
8309: mydebug('Success returned from revert_loc_suggested_capacity API');
8310: END IF;
8311: ELSE
8312: IF (l_debug = 1) THEN
8313: mydebug('Failure returned from revert_loc_suggested_capacity API');
8314: END IF;
8315: -- Bug 5393727: do not raise an exception if revert API returns an error
8316: -- RAISE fnd_api.g_exc_error;
8317: END IF;
8318:
8319: -- Perform a rollback to clean up the rest of the data
8320: BEGIN
8326: END IF;
8327: END IF;
8328:
8329: l_progress := '120';
8330: x_return_status := fnd_api.g_ret_sts_success;
8331:
8332: END IF;
8333: END LOOP;
8334:
8339: mydebug('***End of validate_against_rules***');
8340: END IF;
8341:
8342: EXCEPTION
8343: WHEN fnd_api.g_exc_error THEN
8344: ROLLBACK TO validate_rules_sp;
8345: x_validation_passed := 'N';
8346: x_return_status := fnd_api.g_ret_sts_error;
8347: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8342: EXCEPTION
8343: WHEN fnd_api.g_exc_error THEN
8344: ROLLBACK TO validate_rules_sp;
8345: x_validation_passed := 'N';
8346: x_return_status := fnd_api.g_ret_sts_error;
8347: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8348:
8349: IF (l_debug = 1) THEN
8350: mydebug('Exiting validate_against_rules - Execution error: ' || l_progress || ' '
8349: IF (l_debug = 1) THEN
8350: mydebug('Exiting validate_against_rules - Execution error: ' || l_progress || ' '
8351: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8352: END IF;
8353: WHEN fnd_api.g_exc_unexpected_error THEN
8354: ROLLBACK TO validate_rules_sp;
8355: x_validation_passed := 'N';
8356: x_return_status := fnd_api.g_ret_sts_unexp_error;
8357: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8352: END IF;
8353: WHEN fnd_api.g_exc_unexpected_error THEN
8354: ROLLBACK TO validate_rules_sp;
8355: x_validation_passed := 'N';
8356: x_return_status := fnd_api.g_ret_sts_unexp_error;
8357: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8358:
8359: IF (l_debug = 1) THEN
8360: mydebug('Exiting validate_against_rules - Unexpected error: ' || l_progress || ' '
8362: END IF;
8363: WHEN OTHERS THEN
8364: ROLLBACK TO validate_rules_sp;
8365: x_validation_passed := 'N';
8366: x_return_status := fnd_api.g_ret_sts_unexp_error;
8367:
8368: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8369: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8370: END IF;
8519: ,p_emp_id => l_emp_id
8520: );
8521: l_progress := '23';
8522:
8523: IF x_return_status = fnd_api.g_ret_sts_success THEN
8524: -- Abort op plan completed successfully.
8525: NULL;
8526:
8527: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8523: IF x_return_status = fnd_api.g_ret_sts_success THEN
8524: -- Abort op plan completed successfully.
8525: NULL;
8526:
8527: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8528: RAISE fnd_api.g_exc_error;
8529:
8530: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8531: RAISE fnd_api.g_exc_unexpected_error;
8524: -- Abort op plan completed successfully.
8525: NULL;
8526:
8527: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8528: RAISE fnd_api.g_exc_error;
8529:
8530: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8531: RAISE fnd_api.g_exc_unexpected_error;
8532:
8526:
8527: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8528: RAISE fnd_api.g_exc_error;
8529:
8530: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8531: RAISE fnd_api.g_exc_unexpected_error;
8532:
8533: END IF;
8534: l_progress := '28';
8527: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8528: RAISE fnd_api.g_exc_error;
8529:
8530: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8531: RAISE fnd_api.g_exc_unexpected_error;
8532:
8533: END IF;
8534: l_progress := '28';
8535:
8534: l_progress := '28';
8535:
8536: EXCEPTION
8537: WHEN OTHERS THEN
8538: RAISE fnd_api.g_exc_unexpected_error;
8539: END; -- Abort op plan call
8540:
8541:
8542: -- Clean up any old existing MMTT, MTLT, and WDT records
8589: , x_return_status => x_return_status
8590: , x_msg_count => x_msg_count
8591: , x_msg_data => x_msg_data );
8592:
8593: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8594: RAISE fnd_api.g_exc_unexpected_error;
8595: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8596: RAISE fnd_api.g_exc_error;
8597: END IF;
8590: , x_msg_count => x_msg_count
8591: , x_msg_data => x_msg_data );
8592:
8593: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8594: RAISE fnd_api.g_exc_unexpected_error;
8595: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8596: RAISE fnd_api.g_exc_error;
8597: END IF;
8598: END IF; -- End for is Inventory lpn
8591: , x_msg_data => x_msg_data );
8592:
8593: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8594: RAISE fnd_api.g_exc_unexpected_error;
8595: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8596: RAISE fnd_api.g_exc_error;
8597: END IF;
8598: END IF; -- End for is Inventory lpn
8599:
8592:
8593: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8594: RAISE fnd_api.g_exc_unexpected_error;
8595: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8596: RAISE fnd_api.g_exc_error;
8597: END IF;
8598: END IF; -- End for is Inventory lpn
8599:
8600: l_progress := '30';
8705: WHEN OTHERS THEN
8706: IF (l_debug = 1) THEN
8707: mydebug('These values are not distinct!!');
8708: END IF;
8709: RAISE fnd_api.g_exc_error;
8710: END;
8711:
8712: -- Insert a record into MMTT
8713: -- Nested LPN changes,
8797: IF (l_debug = 1) THEN
8798: mydebug('Error occurred while calling inv_trx_util_pub.insert_line_trx');
8799: END IF;
8800:
8801: RAISE fnd_api.g_exc_unexpected_error;
8802: END IF;
8803:
8804: -- Get the value for the completion_transaction_id
8805: -- in the case of WIP completions
8889: IF (l_debug = 1) THEN
8890: mydebug('Error occurred while calling inv_trx_util_pub.insert_lot_trx');
8891: END IF;
8892:
8893: RAISE fnd_api.g_exc_unexpected_error;
8894: END IF;
8895:
8896: -- Update the MTLT record to clear out the serial_transaction_temp_id column
8897: -- since insert_lot_trx by default will insert a value for it.
8953: END IF;
8954:
8955: l_progress := '135';
8956:
8957: x_return_status := fnd_api.g_ret_sts_success;
8958: x_number_of_rows := l_number_of_rows;
8959:
8960: IF (l_debug = 1) THEN
8961: mydebug('Finished inserting suggestion records: ' || l_number_of_rows);
8971: mydebug('***End of create_user_suggestions***');
8972: END IF;
8973:
8974: EXCEPTION
8975: WHEN fnd_api.g_exc_error THEN
8976: ROLLBACK TO create_suggestions_sp;
8977: x_return_status := fnd_api.g_ret_sts_error;
8978: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8979:
8973:
8974: EXCEPTION
8975: WHEN fnd_api.g_exc_error THEN
8976: ROLLBACK TO create_suggestions_sp;
8977: x_return_status := fnd_api.g_ret_sts_error;
8978: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8979:
8980: IF (l_debug = 1) THEN
8981: mydebug('Exiting create_user_suggestions - Execution error: ' || l_progress || ' '
8980: IF (l_debug = 1) THEN
8981: mydebug('Exiting create_user_suggestions - Execution error: ' || l_progress || ' '
8982: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8983: END IF;
8984: WHEN fnd_api.g_exc_unexpected_error THEN
8985: ROLLBACK TO create_suggestions_sp;
8986: x_return_status := fnd_api.g_ret_sts_unexp_error;
8987: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8988:
8982: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8983: END IF;
8984: WHEN fnd_api.g_exc_unexpected_error THEN
8985: ROLLBACK TO create_suggestions_sp;
8986: x_return_status := fnd_api.g_ret_sts_unexp_error;
8987: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8988:
8989: IF (l_debug = 1) THEN
8990: mydebug('Exiting create_user_suggestions - Unexpected error: ' || l_progress || ' '
8991: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8992: END IF;
8993: WHEN OTHERS THEN
8994: ROLLBACK TO create_suggestions_sp;
8995: x_return_status := fnd_api.g_ret_sts_unexp_error;
8996:
8997: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8998: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8999: END IF;
9091: IF (l_debug = 1) THEN
9092: mydebug('No lot number on move order line!');
9093: END IF;
9094:
9095: RAISE fnd_api.g_exc_unexpected_error;
9096: END IF;
9097:
9098: l_progress := '30';
9099: -- Check if the lot material status is valid
9195:
9196: l_progress := '70';
9197: -- Set the output variable
9198: x_validation_passed := l_return;
9199: x_return_status := fnd_api.g_ret_sts_success;
9200:
9201: IF (l_debug = 1) THEN
9202: mydebug('***End of validate_lot_serial_status***');
9203: END IF;
9201: IF (l_debug = 1) THEN
9202: mydebug('***End of validate_lot_serial_status***');
9203: END IF;
9204: EXCEPTION
9205: WHEN fnd_api.g_exc_error THEN
9206: ROLLBACK TO validate_status_sp;
9207: x_validation_passed := 'N';
9208: x_return_status := fnd_api.g_ret_sts_error;
9209: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9204: EXCEPTION
9205: WHEN fnd_api.g_exc_error THEN
9206: ROLLBACK TO validate_status_sp;
9207: x_validation_passed := 'N';
9208: x_return_status := fnd_api.g_ret_sts_error;
9209: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9210:
9211: IF (l_debug = 1) THEN
9212: mydebug('Exiting validate_lot_serial_status - Execution error: ' || l_progress || ' '
9211: IF (l_debug = 1) THEN
9212: mydebug('Exiting validate_lot_serial_status - Execution error: ' || l_progress || ' '
9213: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
9214: END IF;
9215: WHEN fnd_api.g_exc_unexpected_error THEN
9216: ROLLBACK TO validate_status_sp;
9217: x_validation_passed := 'N';
9218: x_return_status := fnd_api.g_ret_sts_unexp_error;
9219: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9214: END IF;
9215: WHEN fnd_api.g_exc_unexpected_error THEN
9216: ROLLBACK TO validate_status_sp;
9217: x_validation_passed := 'N';
9218: x_return_status := fnd_api.g_ret_sts_unexp_error;
9219: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9220:
9221: IF (l_debug = 1) THEN
9222: mydebug('Exiting validate_lot_serial_status - Unexpected error: ' || l_progress || ' '
9224: END IF;
9225: WHEN OTHERS THEN
9226: ROLLBACK TO validate_status_sp;
9227: x_validation_passed := 'N';
9228: x_return_status := fnd_api.g_ret_sts_unexp_error;
9229:
9230: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9231: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9232: END IF;
9356: , p_quantity => l_quantity
9357: );
9358: l_progress := '30';
9359:
9360: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
9361: IF (l_debug = 1) THEN
9362: mydebug('Success returned from revert_loc_suggested_capacity API');
9363: END IF;
9364: ELSE
9365: IF (l_debug = 1) THEN
9366: mydebug('Failure returned from revert_loc_suggested_capacity API');
9367: END IF;
9368: -- Bug 5393727: do not raise an exception if revert API returns an error
9369: -- RAISE fnd_api.g_exc_error;
9370: END IF;
9371:
9372: l_progress := '40';
9373: END LOOP;
9376: END LOOP;
9377: CLOSE nested_lpn_cursor;
9378:
9379: -- Set the output variable
9380: x_return_status := fnd_api.g_ret_sts_success;
9381: l_progress := '50';
9382:
9383: IF (l_debug = 1) THEN
9384: mydebug('***End of revert_loc_suggested_capacity***');
9383: IF (l_debug = 1) THEN
9384: mydebug('***End of revert_loc_suggested_capacity***');
9385: END IF;
9386: EXCEPTION
9387: WHEN fnd_api.g_exc_error THEN
9388: ROLLBACK TO revert_capacity_sp;
9389: x_return_status := fnd_api.g_ret_sts_error;
9390: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9391:
9385: END IF;
9386: EXCEPTION
9387: WHEN fnd_api.g_exc_error THEN
9388: ROLLBACK TO revert_capacity_sp;
9389: x_return_status := fnd_api.g_ret_sts_error;
9390: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9391:
9392: IF (l_debug = 1) THEN
9393: mydebug(
9394: 'Exiting revert_loc_suggested_capacity - Execution error: ' || l_progress || ' '
9395: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
9396: );
9397: END IF;
9398: WHEN fnd_api.g_exc_unexpected_error THEN
9399: ROLLBACK TO revert_capacity_sp;
9400: x_return_status := fnd_api.g_ret_sts_unexp_error;
9401: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9402:
9396: );
9397: END IF;
9398: WHEN fnd_api.g_exc_unexpected_error THEN
9399: ROLLBACK TO revert_capacity_sp;
9400: x_return_status := fnd_api.g_ret_sts_unexp_error;
9401: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9402:
9403: IF (l_debug = 1) THEN
9404: mydebug(
9407: );
9408: END IF;
9409: WHEN OTHERS THEN
9410: ROLLBACK TO revert_capacity_sp;
9411: x_return_status := fnd_api.g_ret_sts_unexp_error;
9412:
9413: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9414: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9415: END IF;
9529:
9530: l_progress := '40';
9531:
9532: -- Check the return status from the API call
9533: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
9534: IF (l_debug = 1) THEN
9535: mydebug('Success returned from WMS_Cross_Dock_Pvt.crossdock API');
9536: END IF;
9537: ELSE
9538: IF (l_debug = 1) THEN
9539: mydebug('Failure returned from WMS_Cross_Dock_Pvt.crossdock API');
9540: END IF;
9541:
9542: RAISE fnd_api.g_exc_error;
9543: END IF;
9544:
9545: l_progress := '50';
9546:
9574: x_crossdock := 'N';
9575: END IF;
9576: */
9577: -- Set the output variable
9578: x_return_status := fnd_api.g_ret_sts_success;
9579: l_progress := '70';
9580:
9581: IF (l_debug = 1) THEN
9582: mydebug('***End of check_for_crossdock***');
9581: IF (l_debug = 1) THEN
9582: mydebug('***End of check_for_crossdock***');
9583: END IF;
9584: EXCEPTION
9585: WHEN fnd_api.g_exc_error THEN
9586: ROLLBACK TO check_crossdock_sp;
9587: x_crossdock := 'N';
9588: x_return_status := fnd_api.g_ret_sts_error;
9589: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9584: EXCEPTION
9585: WHEN fnd_api.g_exc_error THEN
9586: ROLLBACK TO check_crossdock_sp;
9587: x_crossdock := 'N';
9588: x_return_status := fnd_api.g_ret_sts_error;
9589: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9590:
9591: IF (l_debug = 1) THEN
9592: mydebug('Exiting check_for_crossdock - Execution error: ' ||
9591: IF (l_debug = 1) THEN
9592: mydebug('Exiting check_for_crossdock - Execution error: ' ||
9593: l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
9594: END IF;
9595: WHEN fnd_api.g_exc_unexpected_error THEN
9596: ROLLBACK TO check_crossdock_sp;
9597: x_crossdock := 'N';
9598: x_return_status := fnd_api.g_ret_sts_unexp_error;
9599: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9594: END IF;
9595: WHEN fnd_api.g_exc_unexpected_error THEN
9596: ROLLBACK TO check_crossdock_sp;
9597: x_crossdock := 'N';
9598: x_return_status := fnd_api.g_ret_sts_unexp_error;
9599: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9600:
9601: IF (l_debug = 1) THEN
9602: mydebug('Exiting check_for_crossdock - Unexpected error: ' ||
9604: END IF;
9605: WHEN OTHERS THEN
9606: ROLLBACK TO check_crossdock_sp;
9607: x_crossdock := 'N';
9608: x_return_status := fnd_api.g_ret_sts_unexp_error;
9609:
9610: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9611: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9612: END IF;