[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;
507: BEGIN
508: l_header_id := p_header_id;
509:
510: IF p_header_id = 0 THEN
511: l_header_id := fnd_api.g_miss_num;
512: END IF;
513:
514: l_org_id := p_org_id;
515: l_inventory_item_id := p_inventory_item_id;
529: l_revision := p_revision;
530: l_insp_status := p_inspection_status;
531: l_wms_process_flag := p_wms_process_flag;
532: l_from_cg_id := p_from_cost_group_id;
533: l_return_status := fnd_api.g_ret_sts_success;
534:
535: l_sec_qty := p_sec_qty; -- Added for OPM convergance
536: l_sec_uom := p_sec_uom; -- Added for OPM convergance
537:
553: AND NVL(task_id, -1) <> NVL(p_task_id, -1));
554:
555: fnd_message.set_name('WMS', 'WMS_PROJ_LPN_COMINGLE');
556: fnd_msg_pub.ADD;
557: RAISE fnd_api.g_exc_error;
558: EXCEPTION
559: WHEN NO_DATA_FOUND THEN
560: NULL;
561: END;
580: END IF;
581:
582: -- Note might need to add additional stuff here
583: -- Added for WIP
584: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
585: l_txn_source_id := p_txn_source_id;
586: ELSE
587: l_txn_source_id := NULL;
588: END IF;
586: ELSE
587: l_txn_source_id := NULL;
588: END IF;
589:
590: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
591: l_txn_source_type_id := p_transaction_source_type_id;
592: END IF;
593:
594: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
590: IF (p_transaction_source_type_id <> fnd_api.g_miss_num) THEN
591: l_txn_source_type_id := p_transaction_source_type_id;
592: END IF;
593:
594: IF (p_transaction_type_id <> fnd_api.g_miss_num) THEN
595: l_txn_type_id := p_transaction_type_id;
596: END IF;
597:
598: l_trohdr_rec.created_by := fnd_global.user_id;
606: l_trohdr_rec.organization_id := l_org_id;
607: l_trohdr_rec.status_date := SYSDATE;
608: l_trohdr_rec.to_subinventory_code := NULL;
609: l_trohdr_rec.move_order_type := inv_globals.g_move_order_put_away;
610: l_trohdr_rec.db_flag := fnd_api.g_true;
611: l_trohdr_rec.operation := inv_globals.g_opr_create;
612: l_line_num := l_line_num + 1;
613: l_trolin_tbl(l_order_count).header_id := l_trohdr_rec.header_id;
614: l_trolin_tbl(l_order_count).created_by := fnd_global.user_id;
621: l_trolin_tbl(l_order_count).last_update_date := SYSDATE;
622: l_trolin_tbl(l_order_count).last_updated_by := fnd_global.user_id;
623: l_trolin_tbl(l_order_count).last_update_date := SYSDATE;
624: l_trolin_tbl(l_order_count).last_update_login := fnd_global.login_id;
625: l_trolin_tbl(l_order_count).line_id := fnd_api.g_miss_num;
626: l_trolin_tbl(l_order_count).line_number := l_line_num;
627: l_trolin_tbl(l_order_count).line_status := inv_globals.g_to_status_preapproved;
628: l_trolin_tbl(l_order_count).organization_id := l_org_id;
629: l_trolin_tbl(l_order_count).quantity := l_qty;
629: l_trolin_tbl(l_order_count).quantity := l_qty;
630: l_trolin_tbl(l_order_count).status_date := SYSDATE;
631: l_trolin_tbl(l_order_count).to_subinventory_code := NULL;
632: l_trolin_tbl(l_order_count).uom_code := l_uom;
633: l_trolin_tbl(l_order_count).db_flag := fnd_api.g_true;
634: l_trolin_tbl(l_order_count).operation := inv_globals.g_opr_create;
635: l_trolin_tbl(l_order_count).lpn_id := p_lpn;
636: l_trolin_tbl(l_order_count).REFERENCE := l_ref;
637: l_trolin_tbl(l_order_count).reference_type_code := l_ref_type;
650: l_trolin_tbl(l_order_count).secondary_quantity := l_sec_qty; -- Added for OPM convergance
651: l_trolin_tbl(l_order_count).secondary_uom := l_sec_uom; -- Added for OPM convergance
652:
653: -- l_trolin_tbl(l_order_count).move_order_type:=inv_globals.g_move_order_put_away;
654: IF (p_txn_source_id <> fnd_api.g_miss_num) THEN
655: l_trolin_tbl(l_order_count).txn_source_id := l_txn_source_id;
656: END IF;
657:
658: l_trolin_tbl(l_order_count).from_cost_group_id := l_from_cg_id;
662: mydebug('create_mo: Before Checking header');
663: END IF;
664:
665: IF (l_header_id IS NULL
666: OR l_header_id = fnd_api.g_miss_num) THEN
667: IF (l_debug = 1) THEN
668: mydebug('create_mo: Header Not passed. Calling Process_Move_Order');
669: END IF;
670:
670:
671: inv_move_order_pub.process_move_order(
672: p_api_version_number => 1.0
673: , p_init_msg_list => 'F'
674: , p_commit => fnd_api.g_false
675: , x_return_status => l_return_status
676: , x_msg_count => l_msg_count
677: , x_msg_data => l_msg_data
678: , p_trohdr_rec => l_trohdr_rec
708: END IF;
709: END LOOP;
710: END IF;
711:
712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
713: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
714: fnd_msg_pub.ADD;
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
711:
712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
713: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
714: fnd_msg_pub.ADD;
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
718: fnd_msg_pub.ADD;
719: RAISE fnd_api.g_exc_error;
712: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
713: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
714: fnd_msg_pub.ADD;
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
718: fnd_msg_pub.ADD;
719: RAISE fnd_api.g_exc_error;
720: END IF;
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
718: fnd_msg_pub.ADD;
719: RAISE fnd_api.g_exc_error;
720: END IF;
721:
722: /* Get header and line ids */
723: p_header_id := l_trohdr_rec.header_id;
759: END IF;
760:
761: inv_cost_group_pub.assign_cost_group(
762: p_api_version_number => 1.0
763: , p_init_msg_list => fnd_api.g_false
764: , p_commit => fnd_api.g_false
765: , x_return_status => l_return_status
766: , x_msg_count => l_msg_count
767: , x_msg_data => l_msg_data
760:
761: inv_cost_group_pub.assign_cost_group(
762: p_api_version_number => 1.0
763: , p_init_msg_list => fnd_api.g_false
764: , p_commit => fnd_api.g_false
765: , x_return_status => l_return_status
766: , x_msg_count => l_msg_count
767: , x_msg_data => l_msg_data
768: , p_line_id => l_cg_line
777: mydebug('create_mo: CG: ' || l_cg_id);
778: mydebug('create_mo: TCG: ' || l_tcg_id);
779: END IF;
780:
781: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
782: IF (l_debug = 1) THEN
783: mydebug('create_mo: UnexpError In CG');
784: END IF;
785:
784: END IF;
785:
786: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
787: fnd_msg_pub.ADD;
788: RAISE fnd_api.g_exc_unexpected_error;
789: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
790: IF (l_debug = 1) THEN
791: mydebug('create_mo: Error In CG');
792: END IF;
785:
786: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
787: fnd_msg_pub.ADD;
788: RAISE fnd_api.g_exc_unexpected_error;
789: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
790: IF (l_debug = 1) THEN
791: mydebug('create_mo: Error In CG');
792: END IF;
793:
792: END IF;
793:
794: fnd_message.set_name('WMS', 'WMS_TD_CG_ERROR');
795: fnd_msg_pub.ADD;
796: RAISE fnd_api.g_exc_error;
797: END IF;
798: END IF;
799: ELSE
800: IF (l_debug = 1) THEN
828: , p_sec_uom => l_sec_uom
829: , x_line_id => x_line_id
830: );
831:
832: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
833: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
834: fnd_msg_pub.ADD;
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
831:
832: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
833: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
834: fnd_msg_pub.ADD;
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_error;
832: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
833: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
834: fnd_msg_pub.ADD;
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_error;
840: END IF;
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: fnd_message.set_name('WMS', 'WMS_TD_MO_ERROR');
838: fnd_msg_pub.ADD;
839: RAISE fnd_api.g_exc_error;
840: END IF;
841: END IF;
842:
843: x_return_status := fnd_api.g_ret_sts_success;
839: RAISE fnd_api.g_exc_error;
840: END IF;
841: END IF;
842:
843: x_return_status := fnd_api.g_ret_sts_success;
844: EXCEPTION
845: WHEN fnd_api.g_exc_error THEN
846: x_return_status := fnd_api.g_ret_sts_error;
847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
841: END IF;
842:
843: x_return_status := fnd_api.g_ret_sts_success;
844: EXCEPTION
845: WHEN fnd_api.g_exc_error THEN
846: x_return_status := fnd_api.g_ret_sts_error;
847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := fnd_api.g_ret_sts_unexp_error;
842:
843: x_return_status := fnd_api.g_ret_sts_success;
844: EXCEPTION
845: WHEN fnd_api.g_exc_error THEN
846: x_return_status := fnd_api.g_ret_sts_error;
847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := fnd_api.g_ret_sts_unexp_error;
850:
845: WHEN fnd_api.g_exc_error THEN
846: x_return_status := fnd_api.g_ret_sts_error;
847: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
848: WHEN OTHERS THEN
849: x_return_status := fnd_api.g_ret_sts_unexp_error;
850:
851: IF SQLCODE IS NOT NULL THEN
852: inv_mobile_helper_functions.sql_error('WMS_Task_Dispatch_put_away.create_mo', '10', SQLCODE);
853: END IF;
914: , p_subinventory IN VARCHAR2
915: , p_locator_id IN NUMBER
916: ) IS
917: l_api_version_number CONSTANT NUMBER := 1.0;
918: l_init_msg_list VARCHAR2(255) := fnd_api.g_false;
919: l_api_name CONSTANT VARCHAR2(30) := 'Suggestions_PUB';
920: l_num_of_rows NUMBER := 0;
921: l_detailed_qty NUMBER := 0;
922: l_ser_index NUMBER;
1143: -- Bug# 2744186
1144: -- Set the savepoint
1145: SAVEPOINT suggestions_pub_sp;
1146: l_lpn_id := p_lpn_id;
1147: l_return_status := fnd_api.g_ret_sts_success;
1148:
1149: IF (l_lpn_id = 0) THEN
1150: l_lpn_id := NULL;
1151: END IF;
1235: END IF;
1236:
1237: fnd_message.set_name('WMS', 'WMS_MO_NOT_FOUND');
1238: fnd_msg_pub.ADD;
1239: RAISE fnd_api.g_exc_error;
1240: END IF;
1241: END IF; -- (l_rcount=0) -- fixed in ATF
1242:
1243: -- ATF_J5
1285: mydebug('x_error_code => ' || l_atf_error_code);
1286: mydebug('x_plan_status => ' || l_op_plan_instance_status);
1287: END IF;
1288:
1289: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1290: IF (l_debug = 1) THEN
1291: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1292: END IF;
1293:
1290: IF (l_debug = 1) THEN
1291: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1292: END IF;
1293:
1294: RAISE fnd_api.g_exc_error;
1295: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1296:
1297: IF l_op_plan_instance_status IS NOT NULL
1298: AND l_op_plan_instance_status <> 1 -- not pending status
1291: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1292: END IF;
1293:
1294: RAISE fnd_api.g_exc_error;
1295: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1296:
1297: IF l_op_plan_instance_status IS NOT NULL
1298: AND l_op_plan_instance_status <> 1 -- not pending status
1299: THEN
1498: END IF;
1499: END LOOP;
1500: END IF;
1501:
1502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1503: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1501:
1502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1503: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1507: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1508: fnd_msg_pub.ADD;
1509: RAISE fnd_api.g_exc_error;
1502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1503: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1504: fnd_msg_pub.ADD;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1507: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1508: fnd_msg_pub.ADD;
1509: RAISE fnd_api.g_exc_error;
1510: END IF;
1505: RAISE fnd_api.g_exc_error;
1506: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1507: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
1508: fnd_msg_pub.ADD;
1509: RAISE fnd_api.g_exc_error;
1510: END IF;
1511:
1512: IF (l_debug = 1) THEN
1513: mydebug('suggestions_pub: Line ID created');
1688: mydebug('x_error_code => ' || l_atf_error_code);
1689: mydebug('x_plan_status => ' || l_op_plan_instance_status);
1690: END IF;
1691:
1692: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1693: IF (l_debug = 1) THEN
1694: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1695: END IF;
1696:
1693: IF (l_debug = 1) THEN
1694: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1695: END IF;
1696:
1697: RAISE fnd_api.g_exc_error;
1698: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1699:
1700: IF l_op_plan_instance_status IS NOT NULL
1701: AND l_op_plan_instance_status <> 1 -- not pending status
1694: mydebug('suggestions_pub: WMS_ATF_RUNTIME_PUB_APIS.Check_Plan_Status failed.');
1695: END IF;
1696:
1697: RAISE fnd_api.g_exc_error;
1698: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
1699:
1700: IF l_op_plan_instance_status IS NOT NULL
1701: AND l_op_plan_instance_status <> 1 -- not pending status
1702: THEN
1777: mydebug('x_msg_count = ' || x_msg_count);
1778: mydebug('x_msg_data = ' || x_msg_data);
1779: END IF;
1780:
1781: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1782: IF (l_debug = 1) THEN
1783: mydebug(' suggestions_pub: wms_putaway_suggestions.cleanup_suggestions failed');
1784: END IF;
1785:
1782: IF (l_debug = 1) THEN
1783: mydebug(' suggestions_pub: wms_putaway_suggestions.cleanup_suggestions failed');
1784: END IF;
1785:
1786: RAISE fnd_api.g_exc_error;
1787: END IF;
1788:
1789: END IF; -- IF l_rcount <> 0 THEN
1790:
1857: IF (l_debug = 1) THEN
1858: mydebug('suggestions_pub: There is a mismatch between LPN content and MOL quantity.');
1859: END IF;
1860:
1861: RAISE fnd_api.g_exc_error;
1862: END IF; -- IF l_wlc_mol_missmatch_flag = 'Y'
1863:
1864: END IF; -- IF l_lpn_context <> 1 THEN
1865:
1949:
1950: -- Bug# 2744186
1951: -- Check the return status from the API call
1952: -- Throw an exception if the call was not completed successfully
1953: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
1954: IF (l_debug = 1) THEN
1955: mydebug('suggestions_pub: Success returned from WMS_Cross_Dock_Pvt.crossdock API');
1956: END IF;
1957: ELSE
1958: IF (l_debug = 1) THEN
1959: mydebug('suggestions_pub: Failure returned from WMS_Cross_Dock_Pvt.crossdock API');
1960: END IF;
1961:
1962: RAISE fnd_api.g_exc_error;
1963: END IF;
1964:
1965: -- Check the cross dock return value
1966: IF l_ret_crossdock = 1 THEN
2019: WHEN OTHERS THEN
2020: IF (l_debug = 1) THEN
2021: mydebug('suggestions_pub: Error nulling out mtrl.ref_detail_id. SQLERRM:'||SQLERRM);
2022: END IF;
2023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2024: END;
2025:
2026: IF (l_debug = 1) THEN
2027: mydebug('suggestions_pub: Successfully Null out mtrl.ref_detail_id');
2058:
2059: inv_ppengine_pvt.create_suggestions(
2060: p_api_version => l_api_version_number
2061: , p_init_msg_list => l_init_msg_list
2062: , p_commit => fnd_api.g_false
2063: , p_validation_level => fnd_api.g_valid_level_full
2064: , x_return_status => l_return_status
2065: , x_msg_count => x_msg_count
2066: , x_msg_data => x_msg_data
2059: inv_ppengine_pvt.create_suggestions(
2060: p_api_version => l_api_version_number
2061: , p_init_msg_list => l_init_msg_list
2062: , p_commit => fnd_api.g_false
2063: , p_validation_level => fnd_api.g_valid_level_full
2064: , x_return_status => l_return_status
2065: , x_msg_count => x_msg_count
2066: , x_msg_data => x_msg_data
2067: , p_transaction_temp_id => l_line_id
2070: , p_quick_pick_flag => l_quick_pick_flag
2071: );
2072: -- fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
2073:
2074: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2075: IF (l_debug = 1) THEN
2076: mydebug('suggestions_pub: unexpected error in inv_ppengine_pvt.create_suggestions');
2077: END IF;
2078:
2077: END IF;
2078:
2079: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2080: fnd_msg_pub.ADD;
2081: RAISE fnd_api.g_exc_error;
2082: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2083: IF (l_debug = 1) THEN
2084: mydebug('suggestions_pub: expected error in inv_ppengine_pvt.create_suggestions');
2085: END IF;
2078:
2079: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2080: fnd_msg_pub.ADD;
2081: RAISE fnd_api.g_exc_error;
2082: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
2083: IF (l_debug = 1) THEN
2084: mydebug('suggestions_pub: expected error in inv_ppengine_pvt.create_suggestions');
2085: END IF;
2086:
2085: END IF;
2086:
2087: fnd_message.set_name('WMS', 'WMS_ALLOCATE_FAIL');
2088: fnd_msg_pub.ADD;
2089: RAISE fnd_api.g_exc_error;
2090: END IF;
2091:
2092: IF (l_debug = 1) THEN
2093: mydebug('suggestions_pub: After calling inv_ppengine_pvt.create_suggestions');
2178: --ROLLBACK TO mtl_stat_chk;
2179: --FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_STATUS');
2180: fnd_message.set_name('WMS', 'WMS_INVALID_LPN_ITEM_STATUS');
2181: fnd_msg_pub.ADD;
2182: RAISE fnd_api.g_exc_error;
2183: END IF;
2184:
2185: /* nsinghi - GME-WMS Integration. Added the following select stmt to determine if Process Org.
2186: Also added check in If statement to not refer to Wip_Lpn_Completions table for discrete Orgs.
2254: );
2255: mydebug('suggestions_pub: After calling wms_rule_pvt.assign_operation_plan');
2256: mydebug('l_return_status = ' || l_return_status);
2257:
2258: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2259: IF (l_debug = 1) THEN
2260: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2261: END IF;
2262:
2259: IF (l_debug = 1) THEN
2260: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2261: END IF;
2262:
2263: RAISE fnd_api.g_exc_error;
2264: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2265:
2266: --Following API initializes the operation plan instance
2267:
2260: mydebug('suggestions_pub: wms_rule_pvt.assign_operation_plan failed.');
2261: END IF;
2262:
2263: RAISE fnd_api.g_exc_error;
2264: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2265:
2266: --Following API initializes the operation plan instance
2267:
2268: mydebug('suggestions_pub: Before calling wms_op_runtime_pub_apis.init_op_plan_instance with following parameters: ');
2278: );
2279: mydebug('suggestions_pub: After calling wms_op_runtime_pub_apis.init_plan_instance');
2280: mydebug('l_return_status = ' || l_return_status);
2281:
2282: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2283: IF (l_debug = 1) THEN
2284: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2285: END IF;
2286:
2283: IF (l_debug = 1) THEN
2284: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2285: END IF;
2286:
2287: RAISE fnd_api.g_exc_error;
2288: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2289: END IF; -- (l_operation_plan_id IS NULL)
2290: END IF; -- ( p_drop_type IS NULL OR p_drop_type <> 'MD')
2291:
2284: mydebug('suggestions_pub: wms_op_runtime_pub_apis.init_plan_instance failed.');
2285: END IF;
2286:
2287: RAISE fnd_api.g_exc_error;
2288: END IF; -- (l_return_status <> fnd_api.g_ret_sts_success)
2289: END IF; -- (l_operation_plan_id IS NULL)
2290: END IF; -- ( p_drop_type IS NULL OR p_drop_type <> 'MD')
2291:
2292: -- End ATF_J calling operation_plan_assignment and init_op_plan_instance
2332: AND l.line_id = t.move_order_line_id;
2333:
2334: x_number_of_rows := l_rows_detailed;
2335: x_crossdock := l_td_crossdock;
2336: x_return_status := fnd_api.g_ret_sts_success;
2337:
2338: -- Fix for Bug 2374961
2339: -- For an Inventory LPN, the rules engine creates a lock
2340: -- at the item org level as part of the detailing
2355: COMMIT;
2356: END IF;
2357: END IF;
2358: EXCEPTION
2359: WHEN fnd_api.g_exc_error THEN
2360: -- Bug# 2744186
2361: -- Perform a rollback in the exception blocks
2362: ROLLBACK TO suggestions_pub_sp;
2363: x_return_status := fnd_api.g_ret_sts_error;
2359: WHEN fnd_api.g_exc_error THEN
2360: -- Bug# 2744186
2361: -- Perform a rollback in the exception blocks
2362: ROLLBACK TO suggestions_pub_sp;
2363: x_return_status := fnd_api.g_ret_sts_error;
2364: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2365:
2366: IF (l_debug = 1) THEN
2367: mydebug('suggestions_pub: Excecution error - ' || SQLERRM);
2381:
2382: IF suggestions_csr%ISOPEN THEN
2383: CLOSE suggestions_csr;
2384: END IF;
2385: WHEN fnd_api.g_exc_unexpected_error THEN
2386: ROLLBACK TO suggestions_pub_sp;
2387: x_return_status := fnd_api.g_ret_sts_unexp_error;
2388: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2389:
2383: CLOSE suggestions_csr;
2384: END IF;
2385: WHEN fnd_api.g_exc_unexpected_error THEN
2386: ROLLBACK TO suggestions_pub_sp;
2387: x_return_status := fnd_api.g_ret_sts_unexp_error;
2388: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2389:
2390: IF (l_debug = 1) THEN
2391: mydebug('suggestions_pub: Unexpected error - ' || SQLERRM);
2407: CLOSE suggestions_csr;
2408: END IF;
2409: WHEN OTHERS THEN
2410: ROLLBACK TO suggestions_pub_sp;
2411: x_return_status := fnd_api.g_ret_sts_unexp_error;
2412: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2413:
2414: IF (l_debug = 1) THEN
2415: mydebug('suggestions_pub: Others exception - ' || SQLERRM);
2989: , p_update_mln => l_no
2990: , p_secondary_quantity => p_secondary_quantity --OPM Convergence
2991: );
2992:
2993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2994: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
2995: IF (l_debug = 1) THEN
2996: mydebug('insert_mtli_helper: Error occurred while creating interface lots: ' || l_msg_data);
2997: END IF;
3058: , p_product_code => l_prod_code
3059: , p_att_exist => l_yes
3060: , p_update_msn => l_no);
3061:
3062: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3063: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
3064: IF (l_debug = 1) THEN
3065: mydebug('insert_msni_helper: Error occurred while creating interface serials: ' || l_msg_data);
3066: END IF;
3110: fnd_msg_pub.ADD;
3111: IF (l_debug = 1) THEN
3112: mydebug('complete_putaway: Error from CSTACOSN.op_snapshot ');
3113: END IF;
3114: raise fnd_api.g_exc_unexpected_error;
3115: ELSE
3116: mydebug('complete_putaway: CALL TO CSTACOSN.op_snapshot SUCCESSFULL');
3117: END IF;
3118:
3161: , x_return_status OUT NOCOPY VARCHAR2
3162: , x_msg_count OUT NOCOPY NUMBER
3163: , x_msg_data OUT NOCOPY VARCHAR2
3164: , p_entire_lpn IN VARCHAR2 := 'N'
3165: , p_to_lpn IN VARCHAR2 := fnd_api.g_miss_char
3166: , p_qty_reason_id IN NUMBER
3167: , p_loc_reason_id IN NUMBER
3168: , p_process_serial_flag IN VARCHAR2
3169: , p_commit IN VARCHAR2 := 'Y'
3634: -- Bug# 2744170
3635: -- Set the savepoint
3636: SAVEPOINT complete_putaway_sp;
3637: l_qty := p_qty;
3638: x_return_status := fnd_api.g_ret_sts_success;
3639:
3640: IF l_to_lpn_id = 0 THEN
3641: l_to_lpn_id := NULL;
3642: END IF;
3791: END IF;
3792: fnd_message.set_name('INV', 'INV_QTY_MUST_EXCEED_ZERO');
3793: fnd_msg_pub.ADD;
3794:
3795: RAISE fnd_api.g_exc_error;
3796: END IF; --IF l_qty <= 0 THEN
3797:
3798: IF (l_debug = 1) THEN
3799: mydebug('complete_putaway: complete_putaway API 60');
3866: END IF; --END IF check txn action
3867: END IF; --END IF check sub/loc discrepancy
3868:
3869: -- Check to see if to lpn exists. if not, create it
3870: IF p_to_lpn = fnd_api.g_miss_char
3871: OR p_to_lpn IS NULL
3872: OR p_to_lpn = '' THEN
3873: l_to_lpn_id := NULL;
3874: ELSE
3895: -- LPN does not exist, create it
3896: -- Call Suresh's Create LPN API
3897: wms_container_pub.create_lpn(
3898: p_api_version => 1.0
3899: , p_init_msg_list => fnd_api.g_false
3900: , p_commit => fnd_api.g_false
3901: , x_return_status => x_return_status
3902: , x_msg_count => x_msg_count
3903: , x_msg_data => x_msg_data
3896: -- Call Suresh's Create LPN API
3897: wms_container_pub.create_lpn(
3898: p_api_version => 1.0
3899: , p_init_msg_list => fnd_api.g_false
3900: , p_commit => fnd_api.g_false
3901: , x_return_status => x_return_status
3902: , x_msg_count => x_msg_count
3903: , x_msg_data => x_msg_data
3904: , p_lpn => p_to_lpn
3937: END IF;
3938: END LOOP;
3939: END IF;
3940:
3941: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
3942: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3943: fnd_msg_pub.ADD;
3944: RAISE fnd_api.g_exc_unexpected_error;
3945: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
3940:
3941: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
3942: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3943: fnd_msg_pub.ADD;
3944: RAISE fnd_api.g_exc_unexpected_error;
3945: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
3946: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3947: fnd_msg_pub.ADD;
3948: RAISE fnd_api.g_exc_error;
3941: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
3942: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3943: fnd_msg_pub.ADD;
3944: RAISE fnd_api.g_exc_unexpected_error;
3945: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
3946: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3947: fnd_msg_pub.ADD;
3948: RAISE fnd_api.g_exc_error;
3949: END IF;
3944: RAISE fnd_api.g_exc_unexpected_error;
3945: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
3946: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
3947: fnd_msg_pub.ADD;
3948: RAISE fnd_api.g_exc_error;
3949: END IF;
3950: ELSE
3951: -- LPN exists. Get LPN ID
3952: SELECT lpn_id
4133: IF NOT l_result THEN
4134: IF (l_debug = 1) THEN
4135: mydebug('complete_putaway: Failure while Inserting MSNI records - lot and serial controlled item');
4136: END IF;
4137: RAISE fnd_api.g_exc_unexpected_error;
4138: END IF; --END IF check l_result
4139:
4140: IF (l_debug = 1) THEN
4141: mydebug('complete_putaway: Inserted MTLI for lot and serial item. intf_txn_id: ' || l_dup_temp_id ||
4274: IF NOT l_result THEN
4275: IF (l_debug = 1) THEN
4276: mydebug('complete_putaway: Failure while Inserting MSNI records - lot and serial controlled item');
4277: END IF;
4278: RAISE fnd_api.g_exc_unexpected_error;
4279: END IF; --END IF check l_result
4280:
4281: IF (l_debug = 1) THEN
4282: mydebug('complete_putaway: Inserted MSNI for lot and serial item. intf_txn_id: '
4299: IF NOT l_result THEN
4300: IF (l_debug = 1) THEN
4301: mydebug('complete_putaway: Failure while creating xdock MSNT - lot and serial');
4302: END IF;
4303: RAISE fnd_api.g_exc_unexpected_error;
4304: END IF; --END IF check l_result
4305: END IF; --END IF insert MSNT for xdock
4306:
4307: --LPN is not receiving LPN
4320: IF NOT l_result THEN
4321: IF (l_debug = 1) THEN
4322: mydebug('complete_putaway: Failure while MSNT');
4323: END IF;
4324: RAISE fnd_api.g_exc_unexpected_error;
4325: END IF; --END IF check l_result
4326: END IF; --END IF (l_lpn_context = 3) THEN
4327: END IF; --END IF check transaction_source_type = 5clear scr
4328: END IF; --END IF p_entire_lpn = 'N'
4511: IF NOT l_result THEN
4512: IF (l_debug = 1) THEN
4513: mydebug('complete_putaway: Failure while Inserting MSNI records - serial controlled item');
4514: END IF;
4515: RAISE fnd_api.g_exc_unexpected_error;
4516: END IF; --END IF check l_result
4517: IF (l_debug = 1) THEN
4518: mydebug('complete_putaway: Inserting MSNT for xdock - serial item' || l_ser_seq);
4519: END IF;
4529: IF NOT l_result THEN
4530: IF (l_debug = 1) THEN
4531: mydebug('complete_putaway: Failure while MSNT');
4532: END IF;
4533: RAISE fnd_api.g_exc_unexpected_error;
4534: END IF; --END IF check l_result
4535: END IF; --END IF create MSNT for xdock
4536:
4537: --INV/WIP LPN
4566: IF NOT l_result THEN
4567: IF (l_debug = 1) THEN
4568: mydebug('complete_putaway: Failure while Inserting MSNT - serial controlled only');
4569: END IF;
4570: RAISE fnd_api.g_exc_unexpected_error;
4571: END IF; --END IF check l_result
4572: END IF; --END IF (l_lpn_context = 3) THEN
4573: END IF; --END IF l_transaction_source_type_id = 5
4574: END IF; --END IF p_entire_lpn = 'N'
4678: END IF;
4679: IF c_msni_ser_csr%ISOPEN THEN
4680: CLOSE c_msni_ser_csr;
4681: END IF;
4682: RAISE fnd_api.g_exc_unexpected_error;
4683: END IF; --END IF check l_result
4684: END LOOP;
4685: IF c_msni_ser_csr%ISOPEN THEN
4686: CLOSE c_msni_ser_csr;
4766: l_mmtt_id := p_temp_id;
4767:
4768: wms_txnrsn_actions_pub.log_exception(
4769: p_api_version_number => 1.0
4770: , p_init_msg_lst => fnd_api.g_false
4771: , p_commit => fnd_api.g_false
4772: , x_return_status => x_return_status
4773: , x_msg_count => x_msg_count
4774: , x_msg_data => x_msg_data
4767:
4768: wms_txnrsn_actions_pub.log_exception(
4769: p_api_version_number => 1.0
4770: , p_init_msg_lst => fnd_api.g_false
4771: , p_commit => fnd_api.g_false
4772: , x_return_status => x_return_status
4773: , x_msg_count => x_msg_count
4774: , x_msg_data => x_msg_data
4775: , p_organization_id => p_org_id
4784: , p_revision => p_rev
4785: , p_lot_number => p_lot
4786: );
4787:
4788: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4789: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4790: fnd_msg_pub.ADD;
4791: RAISE fnd_api.g_exc_unexpected_error;
4792: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4787:
4788: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4789: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4790: fnd_msg_pub.ADD;
4791: RAISE fnd_api.g_exc_unexpected_error;
4792: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4793: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4794: fnd_msg_pub.ADD;
4795: RAISE fnd_api.g_exc_error;
4788: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4789: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4790: fnd_msg_pub.ADD;
4791: RAISE fnd_api.g_exc_unexpected_error;
4792: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4793: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4794: fnd_msg_pub.ADD;
4795: RAISE fnd_api.g_exc_error;
4796: END IF;
4791: RAISE fnd_api.g_exc_unexpected_error;
4792: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4793: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4794: fnd_msg_pub.ADD;
4795: RAISE fnd_api.g_exc_error;
4796: END IF;
4797: END IF;
4798:
4799: IF (p_loc_reason_id > 0) THEN
4806: l_mmtt_id := p_temp_id;
4807:
4808: wms_txnrsn_actions_pub.log_exception(
4809: p_api_version_number => 1.0
4810: , p_init_msg_lst => fnd_api.g_false
4811: , p_commit => fnd_api.g_false
4812: , x_return_status => x_return_status
4813: , x_msg_count => x_msg_count
4814: , x_msg_data => x_msg_data
4807:
4808: wms_txnrsn_actions_pub.log_exception(
4809: p_api_version_number => 1.0
4810: , p_init_msg_lst => fnd_api.g_false
4811: , p_commit => fnd_api.g_false
4812: , x_return_status => x_return_status
4813: , x_msg_count => x_msg_count
4814: , x_msg_data => x_msg_data
4815: , p_organization_id => p_org_id
4825: , p_lot_number => p_lot
4826: , p_is_loc_desc => TRUE --Changes for Bug 3989684
4827: );
4828:
4829: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4831: fnd_msg_pub.ADD;
4832: RAISE fnd_api.g_exc_unexpected_error;
4833: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4828:
4829: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4831: fnd_msg_pub.ADD;
4832: RAISE fnd_api.g_exc_unexpected_error;
4833: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4834: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4835: fnd_msg_pub.ADD;
4836: RAISE fnd_api.g_exc_error;
4829: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4831: fnd_msg_pub.ADD;
4832: RAISE fnd_api.g_exc_unexpected_error;
4833: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4834: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4835: fnd_msg_pub.ADD;
4836: RAISE fnd_api.g_exc_error;
4837: END IF;
4832: RAISE fnd_api.g_exc_unexpected_error;
4833: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4834: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
4835: fnd_msg_pub.ADD;
4836: RAISE fnd_api.g_exc_error;
4837: END IF;
4838: END IF;
4839:
4840: --If the LPN context is Resides in Receiving
4942:
4943: -- Calling Workflow
4944: wms_workflow_wrappers.wf_wrapper(
4945: p_api_version => 1.0
4946: , p_init_msg_list => fnd_api.g_false
4947: , p_commit => fnd_api.g_false
4948: , x_return_status => x_return_status
4949: , x_msg_count => x_msg_count
4950: , x_msg_data => x_msg_data
4943: -- Calling Workflow
4944: wms_workflow_wrappers.wf_wrapper(
4945: p_api_version => 1.0
4946: , p_init_msg_list => fnd_api.g_false
4947: , p_commit => fnd_api.g_false
4948: , x_return_status => x_return_status
4949: , x_msg_count => x_msg_count
4950: , x_msg_data => x_msg_data
4951: , p_org_id => p_org_id
4960: IF (l_debug = 1) THEN
4961: mydebug('complete_putaway : After Calling WF Wrapper');
4962: END IF;
4963:
4964: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4965: IF (l_debug = 1) THEN
4966: mydebug('complete_putaway : Error callinf WF wrapper');
4967: END IF;
4968:
4967: END IF;
4968:
4969: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
4970: fnd_msg_pub.ADD;
4971: RAISE fnd_api.g_exc_unexpected_error;
4972: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4973: IF (l_debug = 1) THEN
4974: mydebug('complete_putaway : Error calling WF wrapper');
4975: END IF;
4968:
4969: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
4970: fnd_msg_pub.ADD;
4971: RAISE fnd_api.g_exc_unexpected_error;
4972: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4973: IF (l_debug = 1) THEN
4974: mydebug('complete_putaway : Error calling WF wrapper');
4975: END IF;
4976:
4975: END IF;
4976:
4977: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
4978: fnd_msg_pub.ADD;
4979: RAISE fnd_api.g_exc_error;
4980: END IF;
4981: END IF;
4982: END IF;
4983:
5024:
5025: -- Calling Workflow
5026: wms_workflow_wrappers.wf_wrapper(
5027: p_api_version => 1.0
5028: , p_init_msg_list => fnd_api.g_false
5029: , p_commit => fnd_api.g_false
5030: , x_return_status => x_return_status
5031: , x_msg_count => x_msg_count
5032: , x_msg_data => x_msg_data
5025: -- Calling Workflow
5026: wms_workflow_wrappers.wf_wrapper(
5027: p_api_version => 1.0
5028: , p_init_msg_list => fnd_api.g_false
5029: , p_commit => fnd_api.g_false
5030: , x_return_status => x_return_status
5031: , x_msg_count => x_msg_count
5032: , x_msg_data => x_msg_data
5033: , p_org_id => p_org_id
5042: IF (l_debug = 1) THEN
5043: mydebug('complete_putaway : After Calling WF Wrapper');
5044: END IF;
5045:
5046: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5047: IF (l_debug = 1) THEN
5048: mydebug('complete_putaway : Error callinf WF wrapper');
5049: END IF;
5050:
5049: END IF;
5050:
5051: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5052: fnd_msg_pub.ADD;
5053: RAISE fnd_api.g_exc_unexpected_error;
5054: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5055: IF (l_debug = 1) THEN
5056: mydebug('complete_putaway : Error calling WF wrapper');
5057: END IF;
5050:
5051: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5052: fnd_msg_pub.ADD;
5053: RAISE fnd_api.g_exc_unexpected_error;
5054: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5055: IF (l_debug = 1) THEN
5056: mydebug('complete_putaway : Error calling WF wrapper');
5057: END IF;
5058:
5057: END IF;
5058:
5059: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5060: fnd_msg_pub.ADD;
5061: RAISE fnd_api.g_exc_error;
5062: END IF;
5063: END IF;--END IF l_wf > 0 THEN
5064: 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)
5065: END IF;--IF (p_loc_reason_id > 0) THEN
5107: fnd_msg_pub.add;
5108: IF (l_debug = 1) THEN
5109: mydebug('complete_putaway: Error fetching drop subinventory type');
5110: END IF;
5111: RAISE fnd_api.g_exc_error;
5112: END IF;
5113:
5114: --Update the wms_process_flag to 2 so that one can work with
5115: --with this move order line from elsewhere
5156: IF (l_debug = 1) THEN
5157: mydebug('complete_putaway: After Karuns Delivery API');
5158: END IF;
5159:
5160: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5162: fnd_msg_pub.ADD;
5163: RAISE fnd_api.g_exc_unexpected_error;
5164: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5159:
5160: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5162: fnd_msg_pub.ADD;
5163: RAISE fnd_api.g_exc_unexpected_error;
5164: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5165: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5166: fnd_msg_pub.ADD;
5167: RAISE fnd_api.g_exc_error;
5160: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5162: fnd_msg_pub.ADD;
5163: RAISE fnd_api.g_exc_unexpected_error;
5164: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5165: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5166: fnd_msg_pub.ADD;
5167: RAISE fnd_api.g_exc_error;
5168: END IF;
5163: RAISE fnd_api.g_exc_unexpected_error;
5164: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5165: fnd_message.set_name('WMS', 'WMS_TD_DEL_ERROR');
5166: fnd_msg_pub.ADD;
5167: RAISE fnd_api.g_exc_error;
5168: END IF;
5169: --Receiving subinventory - Call Transfer API
5170: ELSE
5171: IF (l_debug = 1) THEN
5203: IF (l_debug = 1) THEN
5204: mydebug('complete_putaway: After Transfer API');
5205: END IF;
5206:
5207: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5208: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5209: fnd_msg_pub.ADD;
5210: RAISE fnd_api.g_exc_unexpected_error;
5211: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5206:
5207: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5208: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5209: fnd_msg_pub.ADD;
5210: RAISE fnd_api.g_exc_unexpected_error;
5211: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5212: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5213: fnd_msg_pub.ADD;
5214: RAISE fnd_api.g_exc_error;
5207: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5208: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5209: fnd_msg_pub.ADD;
5210: RAISE fnd_api.g_exc_unexpected_error;
5211: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5212: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5213: fnd_msg_pub.ADD;
5214: RAISE fnd_api.g_exc_error;
5215: END IF;
5210: RAISE fnd_api.g_exc_unexpected_error;
5211: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5212: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
5213: fnd_msg_pub.ADD;
5214: RAISE fnd_api.g_exc_error;
5215: END IF;
5216: END IF; --END IF check sub type to call the corresponding API
5217:
5218: IF (l_debug = 1) THEN
5295:
5296: IF l_acct_period_id <= 0 THEN
5297: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
5298: fnd_msg_pub.ADD;
5299: RAISE fnd_api.g_exc_unexpected_error;
5300: END IF;
5301: --End of changes for bug 5403420
5302:
5303: -- Nested LPN changes
5395:
5396: -- Calling Workflow
5397: wms_workflow_wrappers.wf_wrapper(
5398: p_api_version => 1.0
5399: , p_init_msg_list => fnd_api.g_false
5400: , p_commit => fnd_api.g_false
5401: , x_return_status => x_return_status
5402: , x_msg_count => x_msg_count
5403: , x_msg_data => x_msg_data
5396: -- Calling Workflow
5397: wms_workflow_wrappers.wf_wrapper(
5398: p_api_version => 1.0
5399: , p_init_msg_list => fnd_api.g_false
5400: , p_commit => fnd_api.g_false
5401: , x_return_status => x_return_status
5402: , x_msg_count => x_msg_count
5403: , x_msg_data => x_msg_data
5404: , p_org_id => p_org_id
5413: IF (l_debug = 1) THEN
5414: mydebug('complete_putaway : After Calling WF Wrapper');
5415: END IF;
5416:
5417: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5418: IF (l_debug = 1) THEN
5419: mydebug('complete_putaway : Error callinf WF wrapper');
5420: END IF;
5421:
5420: END IF;
5421:
5422: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5423: fnd_msg_pub.ADD;
5424: RAISE fnd_api.g_exc_unexpected_error;
5425: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5426: IF (l_debug = 1) THEN
5427: mydebug('complete_putaway : Error calling WF wrapper');
5428: END IF;
5421:
5422: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5423: fnd_msg_pub.ADD;
5424: RAISE fnd_api.g_exc_unexpected_error;
5425: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5426: IF (l_debug = 1) THEN
5427: mydebug('complete_putaway : Error calling WF wrapper');
5428: END IF;
5429:
5428: END IF;
5429:
5430: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5431: fnd_msg_pub.ADD;
5432: RAISE fnd_api.g_exc_error;
5433: END IF;
5434: END IF; --IF l_wf > 0 THEN
5435: END IF;--IF (p_qty_reason_id > 0) THEN
5436:
5489:
5490: -- Calling Workflow
5491: wms_workflow_wrappers.wf_wrapper(
5492: p_api_version => 1.0
5493: , p_init_msg_list => fnd_api.g_false
5494: , p_commit => fnd_api.g_false
5495: , x_return_status => x_return_status
5496: , x_msg_count => x_msg_count
5497: , x_msg_data => x_msg_data
5490: -- Calling Workflow
5491: wms_workflow_wrappers.wf_wrapper(
5492: p_api_version => 1.0
5493: , p_init_msg_list => fnd_api.g_false
5494: , p_commit => fnd_api.g_false
5495: , x_return_status => x_return_status
5496: , x_msg_count => x_msg_count
5497: , x_msg_data => x_msg_data
5498: , p_org_id => p_org_id
5507: IF (l_debug = 1) THEN
5508: mydebug('complete_putaway : After Calling WF Wrapper');
5509: END IF;
5510:
5511: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5512: IF (l_debug = 1) THEN
5513: mydebug('complete_putaway : Error callinf WF wrapper');
5514: END IF;
5515:
5514: END IF;
5515:
5516: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5517: fnd_msg_pub.ADD;
5518: RAISE fnd_api.g_exc_unexpected_error;
5519: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5520: IF (l_debug = 1) THEN
5521: mydebug('complete_putaway : Error calling WF wrapper');
5522: END IF;
5515:
5516: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5517: fnd_msg_pub.ADD;
5518: RAISE fnd_api.g_exc_unexpected_error;
5519: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5520: IF (l_debug = 1) THEN
5521: mydebug('complete_putaway : Error calling WF wrapper');
5522: END IF;
5523:
5522: END IF;
5523:
5524: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5525: fnd_msg_pub.ADD;
5526: RAISE fnd_api.g_exc_error;
5527: END IF;
5528: END IF;--END IF l_wf > 0 THEN
5529: 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
5530: END IF;--END IF (p_loc_reason_id > 0) THEN
5556: mydebug('complete_putaway : call transfer_reservation from complete_crossdock api');
5557: END IF;
5558: END IF;
5559:
5560: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
5561: IF (l_debug = 1) THEN
5562: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5563: END IF;
5564:
5561: IF (l_debug = 1) THEN
5562: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5563: END IF;
5564:
5565: RAISE fnd_api.g_exc_unexpected_error;
5566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5567: IF (l_debug = 1) THEN
5568: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5569: END IF;
5562: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Unexpect error');
5563: END IF;
5564:
5565: RAISE fnd_api.g_exc_unexpected_error;
5566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
5567: IF (l_debug = 1) THEN
5568: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5569: END IF;
5570:
5567: IF (l_debug = 1) THEN
5568: mydebug('complete_putaway : wma_inv_wrappers.transferReservation - Expect error');
5569: END IF;
5570:
5571: RAISE fnd_api.g_exc_error;
5572: END IF;
5573: END IF;
5574:
5575: -- Added release level check for ATF_J3
5594: IF (p_commit = 'Y') THEN
5595: COMMIT;
5596: END IF;
5597:
5598: x_return_status := fnd_api.g_ret_sts_success;
5599:
5600: IF (l_debug = 1) THEN
5601: mydebug('complete_putaway: done WITH API');
5602: END IF;
5600: IF (l_debug = 1) THEN
5601: mydebug('complete_putaway: done WITH API');
5602: END IF;
5603: EXCEPTION
5604: WHEN fnd_api.g_exc_error THEN
5605: -- Bug# 2744170
5606: -- Perform a rollback in the exception blocks
5607: ROLLBACK TO complete_putaway_sp;
5608: x_return_status := fnd_api.g_ret_sts_error;
5604: WHEN fnd_api.g_exc_error THEN
5605: -- Bug# 2744170
5606: -- Perform a rollback in the exception blocks
5607: ROLLBACK TO complete_putaway_sp;
5608: x_return_status := fnd_api.g_ret_sts_error;
5609: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5610: IF ser_csr%ISOPEN THEN
5611: CLOSE ser_csr;
5612: END IF;
5623: END IF;
5624: WHEN OTHERS THEN
5625:
5626: ROLLBACK TO complete_putaway_sp;
5627: x_return_status := fnd_api.g_ret_sts_unexp_error;
5628: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5629: IF ser_csr%ISOPEN THEN
5630: CLOSE ser_csr;
5631: END IF;
5743: WHERE line_id = l_line_id
5744: AND organization_id = l_org_id;
5745: --mydebug('After updating mol');
5746:
5747: x_return_status := fnd_api.g_ret_sts_success;
5748: EXCEPTION
5749: WHEN fnd_api.g_exc_error THEN
5750: x_return_status := fnd_api.g_ret_sts_error;
5751: WHEN OTHERS THEN
5745: --mydebug('After updating mol');
5746:
5747: x_return_status := fnd_api.g_ret_sts_success;
5748: EXCEPTION
5749: WHEN fnd_api.g_exc_error THEN
5750: x_return_status := fnd_api.g_ret_sts_error;
5751: WHEN OTHERS THEN
5752: x_return_status := fnd_api.g_ret_sts_unexp_error;
5753: END discrepancy;
5746:
5747: x_return_status := fnd_api.g_ret_sts_success;
5748: EXCEPTION
5749: WHEN fnd_api.g_exc_error THEN
5750: x_return_status := fnd_api.g_ret_sts_error;
5751: WHEN OTHERS THEN
5752: x_return_status := fnd_api.g_ret_sts_unexp_error;
5753: END discrepancy;
5754:
5748: EXCEPTION
5749: WHEN fnd_api.g_exc_error THEN
5750: x_return_status := fnd_api.g_ret_sts_error;
5751: WHEN OTHERS THEN
5752: x_return_status := fnd_api.g_ret_sts_unexp_error;
5753: END discrepancy;
5754:
5755: -- Important, please note that the input parameter, p_user_id
5756: -- does NOT refer to the fnd user id. Instead it refers to the employee id.
5774: l_lpn_context NUMBER;
5775: l_count NUMBER;
5776: l_insp_status NUMBER;
5777: l_process_flag_cnt NUMBER;
5778: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
5779: l_mo_cnt NUMBER;
5780: l_mo_cnt2 NUMBER;
5781: l_so_cnt NUMBER;
5782: l_nested_lpn_cnt NUMBER;
5839: mydebug('check_lpn_validity: LPN does not belong to ' || l_org_id || ' organization');
5840: END IF;
5841: fnd_message.set_name('INV', 'INV_NO_RESULT_FOUND');
5842: fnd_msg_pub.ADD;
5843: RAISE fnd_api.g_exc_unexpected_error;
5844: END;
5845:
5846: mydebug('check_lpn_validity: LPN Context' || l_lpn_context);
5847: l_mo_cnt := 0;
5868: END IF;
5869:
5870: fnd_message.set_name('INV', 'INV_NO_RESULT_FOUND');
5871: fnd_msg_pub.ADD;
5872: RAISE fnd_api.g_exc_unexpected_error;
5873: WHEN record_locked THEN
5874: IF (l_debug = 1) THEN
5875: mydebug('check_lpn_validity: LPN not available. locked by someone else');
5876: END IF;
5876: END IF;
5877:
5878: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
5879: fnd_msg_pub.ADD;
5880: RAISE fnd_api.g_exc_unexpected_error;
5881: END;
5882: END IF;
5883:
5884: IF (l_debug = 1) THEN
5999: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
6000: ,p_organization_id => p_org_id
6001: );
6002:
6003: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6004: IF (l_debug = 1) THEN
6005: mydebug('Check LPN Validity: validate_operation failed ' || x_msg_data );
6006: END IF;
6007: RAISE fnd_api.g_exc_error;
6003: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6004: IF (l_debug = 1) THEN
6005: mydebug('Check LPN Validity: validate_operation failed ' || x_msg_data );
6006: END IF;
6007: RAISE fnd_api.g_exc_error;
6008: END IF;
6009:
6010: -- Bug# 3349802
6011: -- The variable l_count is initialized to 0 previously. For
6064: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
6065: ,p_organization_id => p_org_id
6066: );
6067:
6068: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6069: IF (l_debug = 1) THEN
6070: mydebug('Check LPN Validty:validate_operation failed ' || x_msg_data );
6071: END IF;
6072: RAISE fnd_api.g_exc_error;
6068: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6069: IF (l_debug = 1) THEN
6070: mydebug('Check LPN Validty:validate_operation failed ' || x_msg_data );
6071: END IF;
6072: RAISE fnd_api.g_exc_error;
6073: END IF;
6074:
6075: IF (l_inspection_flag = g_partial_inspection) THEN
6076: mydebug('LPN: '|| p_lpn_id||' is partially inspected');
6201:
6202: x_ret := 3;
6203: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
6204: fnd_msg_pub.ADD;
6205: RAISE fnd_api.g_exc_unexpected_error;
6206: END IF;
6207: END IF;
6208: END IF;
6209:
6210: IF (l_debug = 1) THEN
6211: mydebug('check_lpn_validity: Ret Status' || l_return_status);
6212: END IF;
6213:
6214: x_return_status := fnd_api.g_ret_sts_success;
6215: EXCEPTION
6216: WHEN OTHERS THEN
6217: x_return_status := fnd_api.g_ret_sts_unexp_error;
6218: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6213:
6214: x_return_status := fnd_api.g_ret_sts_success;
6215: EXCEPTION
6216: WHEN OTHERS THEN
6217: x_return_status := fnd_api.g_ret_sts_unexp_error;
6218: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6219: END check_lpn_validity;
6220:
6221: PROCEDURE archive_task(
6268: END IF;
6269:
6270: -- Insert into WMS_DISPATCHED_TASKS_HISTORY with a status of 6, 'complete'
6271:
6272: l_return_status := fnd_api.g_ret_sts_success;
6273: wms_insert_wdth_pvt.insert_into_wdth
6274: ( x_return_status => l_return_status
6275: , p_txn_header_id => l_txn_header_id
6276: , p_transaction_temp_id => l_temp_id
6278: , p_transaction_batch_seq => l_transaction_batch_seq
6279: , p_transfer_lpn_id => NULL
6280: );
6281:
6282: IF l_return_status <> fnd_api.g_ret_sts_success
6283: THEN
6284: IF l_debug = 1 THEN
6285: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6286: END IF;
6283: THEN
6284: IF l_debug = 1 THEN
6285: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6286: END IF;
6287: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6288: END IF;
6289:
6290: IF (l_debug = 1) THEN
6291: mydebug('After wmsdt update');
6325: -- Delete this row from mmtt
6326: DELETE mtl_material_transactions_temp
6327: WHERE transaction_temp_id = l_temp_id;
6328:
6329: x_return_status := fnd_api.g_ret_sts_success;
6330:
6331: IF (l_debug = 1) THEN
6332: mydebug('done WITH API');
6333: END IF;
6332: mydebug('done WITH API');
6333: END IF;
6334: EXCEPTION
6335: WHEN OTHERS THEN
6336: x_return_status := fnd_api.g_ret_sts_error;
6337: fnd_message.set_name('WMS', 'WMS_TD_AT_FAIL');
6338: fnd_msg_pub.ADD;
6339: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6340: END archive_task;
6363: END IF;
6364:
6365: l_temp_id := p_temp_id;
6366: l_org_id := p_org_id;
6367: l_return_status := fnd_api.g_ret_sts_success;
6368:
6369:
6370: /* Bug 3961107-Modified the query to select transaction_batch_id and transaction_batch_seq
6371: as null if they have null values in the table.
6387: END IF;
6388:
6389: -- Insert into WMS_DISPATCHED_TASKS_HISTORY with a status of 6, 'complete'
6390:
6391: l_return_status := fnd_api.g_ret_sts_success;
6392: wms_insert_wdth_pvt.insert_into_wdth
6393: ( x_return_status => l_return_status
6394: , p_txn_header_id => p_txn_header_id
6395: , p_transaction_temp_id => l_temp_id
6397: , p_transaction_batch_seq => l_transaction_batch_seq
6398: , p_transfer_lpn_id => p_transfer_lpn_id
6399: );
6400:
6401: IF l_return_status <> fnd_api.g_ret_sts_success
6402: THEN
6403: IF l_debug = 1 THEN
6404: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6405: END IF;
6402: THEN
6403: IF l_debug = 1 THEN
6404: mydebug ('Error from wms_insert_wdth_pvt.insert_into_wdth');
6405: END IF;
6406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6407: END IF;
6408:
6409: -- Delete this row from wms_dispatched_tasks
6410: DELETE FROM wms_dispatched_tasks
6424: WHERE transaction_temp_id = l_temp_id);
6425: EXCEPTION
6426: WHEN OTHERS THEN
6427: mydebug('archive_task: Error deleting MSNT for MTLT: ' || sqlerrm);
6428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6429: END;
6430:
6431: BEGIN
6432: DELETE mtl_transaction_lots_temp
6433: WHERE transaction_temp_id = l_temp_id;
6434: EXCEPTION
6435: WHEN OTHERS THEN
6436: mydebug('archive_task: Error deleting MTLT: ' || sqlerrm);
6437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6438: END;
6439:
6440: BEGIN
6441: DELETE mtl_serial_numbers_temp
6442: WHERE transaction_temp_id = l_temp_id;
6443: EXCEPTION
6444: WHEN OTHERS THEN
6445: mydebug('archive_task: Error deleting MSNT: ' || sqlerrm);
6446: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6447: END;
6448:
6449: BEGIN
6450: DELETE mtl_material_transactions_temp
6451: WHERE transaction_temp_id = l_temp_id;
6452: EXCEPTION
6453: WHEN OTHERS THEN
6454: mydebug('archive_task: Error deleting MMTT: ' || sqlerrm);
6455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6456: END;
6457: END IF;
6458:
6459: x_return_status := fnd_api.g_ret_sts_success;
6455: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6456: END;
6457: END IF;
6458:
6459: x_return_status := fnd_api.g_ret_sts_success;
6460:
6461: IF (l_debug = 1) THEN
6462: mydebug('archive_task: done WITH API');
6463: END IF;
6466: IF (l_debug = 1) THEN
6467: mydebug('Other exception occurred: ' || sqlerrm);
6468: END IF;
6469:
6470: x_return_status := fnd_api.g_ret_sts_error;
6471: fnd_message.set_name('WMS', 'WMS_TD_AT_FAIL');
6472: fnd_msg_pub.ADD;
6473: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6474: END archive_task;
6534: END IF;
6535:
6536: l_temp_id := p_temp_id;
6537: l_org_id := p_org_id;
6538: l_return_status := fnd_api.g_ret_sts_success;
6539:
6540: IF (l_debug = 1) THEN
6541: mydebug('Get relevant info..');
6542: END IF;
6764:
6765:
6766: x_return_status := l_return_status;
6767:
6768: --x_return_status:=FND_API.G_RET_STS_SUCCESS;
6769: IF (l_debug = 1) THEN
6770: mydebug('done WITH API');
6771: END IF;
6772: EXCEPTION
6770: mydebug('done WITH API');
6771: END IF;
6772: EXCEPTION
6773: WHEN OTHERS THEN
6774: x_return_status := fnd_api.g_ret_sts_error;
6775: fnd_message.set_name('WMS', 'WMS_TD_PUT_CLEAN_FAIL');
6776: fnd_msg_pub.ADD;
6777: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6778: END putaway_cleanup;
6808: END IF;
6809:
6810: x_return := 0;
6811: l_count := 0;
6812: x_return_status := fnd_api.g_ret_sts_success;
6813:
6814: BEGIN
6815: SELECT 1
6816: , lpn_id
6838: , x_msg_count => x_msg_count
6839: , x_msg_data => x_msg_data
6840: );
6841:
6842: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6843: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6844: fnd_msg_pub.ADD;
6845: RAISE fnd_api.g_exc_unexpected_error;
6846: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6841:
6842: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6843: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6844: fnd_msg_pub.ADD;
6845: RAISE fnd_api.g_exc_unexpected_error;
6846: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6847: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6848: fnd_msg_pub.ADD;
6849: RAISE fnd_api.g_exc_error;
6842: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6843: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6844: fnd_msg_pub.ADD;
6845: RAISE fnd_api.g_exc_unexpected_error;
6846: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6847: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6848: fnd_msg_pub.ADD;
6849: RAISE fnd_api.g_exc_error;
6850: END IF;
6845: RAISE fnd_api.g_exc_unexpected_error;
6846: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6847: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6848: fnd_msg_pub.ADD;
6849: RAISE fnd_api.g_exc_error;
6850: END IF;
6851:
6852: x_return := 1;
6853: ELSE
7066:
7067: wms_container_pvt.Modify_LPN
7068: (
7069: p_api_version => 1.0
7070: , p_validation_level => fnd_api.g_valid_level_none
7071: , x_return_status => l_return_status
7072: , x_msg_count => l_msg_count
7073: , x_msg_data => l_msg_data
7074: , p_lpn => l_lpn_update
7083: --AND organization_id = p_org_id;
7084:
7085: END IF;
7086:
7087: x_return_status := fnd_api.g_ret_sts_success;
7088: EXCEPTION
7089: WHEN OTHERS THEN
7090: IF (l_debug = 1) THEN
7091: mydebug('validate_putaway_to_lpn : Exception : ' || SQLERRM);
7090: IF (l_debug = 1) THEN
7091: mydebug('validate_putaway_to_lpn : Exception : ' || SQLERRM);
7092: END IF;
7093:
7094: x_return_status := fnd_api.g_ret_sts_error;
7095: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7096: fnd_msg_pub.ADD;
7097: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7098: END validate_putaway_to_lpn;
7145: mydebug('p_temp_id => ' || p_temp_id);
7146: mydebug('p_org_id => ' || p_org_id);
7147: END IF;
7148:
7149: x_return_status := fnd_api.g_ret_sts_success;
7150: x_mtl_status := 0;
7151: l_temp_id := p_temp_id;
7152: l_org_id := p_org_id;
7153: l_lot_number := NULL;
7357: AND mol.lpn_id = p_lpn_id;
7358: l_header_id NUMBER;
7359:
7360: BEGIN
7361: x_return_status := fnd_api.g_ret_sts_success;
7362:
7363: -- ATF_J3
7364: -- Skip cleanup_partial_putaway_lpn logic
7365: -- if current release is J or above.
7372: RETURN;
7373:
7374: EXCEPTION
7375: WHEN OTHERS THEN
7376: x_return_status := fnd_api.g_ret_sts_unexp_error;
7377:
7378: IF (l_debug = 1) THEN
7379: mydebug('cleanup_partial_putaway_LPN upexpected error: ' || SQLCODE);
7380: END IF;
7437: FROM wms_lpn_contents
7438: WHERE parent_lpn_id = l_current_lpn_id;
7439: BEGIN
7440: -- Intialize out variables
7441: x_return_status := fnd_api.g_ret_sts_success;
7442:
7443: OPEN lpn_csr;
7444: IF (l_debug = 1) THEN
7445: mydebug('create_mo_lpn: Opened lpn_csr');
7564: END IF;
7565: END LOOP;
7566: END IF;
7567:
7568: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7569: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7570: fnd_msg_pub.ADD;
7571: RAISE fnd_api.g_exc_error;
7572: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7567:
7568: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7569: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7570: fnd_msg_pub.ADD;
7571: RAISE fnd_api.g_exc_error;
7572: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7573: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7574: fnd_msg_pub.ADD;
7575: RAISE fnd_api.g_exc_error;
7568: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7569: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7570: fnd_msg_pub.ADD;
7571: RAISE fnd_api.g_exc_error;
7572: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7573: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7574: fnd_msg_pub.ADD;
7575: RAISE fnd_api.g_exc_error;
7576: END IF;
7571: RAISE fnd_api.g_exc_error;
7572: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
7573: fnd_message.set_name('WMS', 'WMS_TD_CMO_ERROR');
7574: fnd_msg_pub.ADD;
7575: RAISE fnd_api.g_exc_error;
7576: END IF;
7577:
7578: IF (l_debug = 1) THEN
7579: mydebug('create_mo: Line ID created');
7586: END LOOP;
7587: CLOSE lpn_csr;
7588:
7589: EXCEPTION
7590: WHEN fnd_api.g_exc_error THEN
7591: x_return_status := fnd_api.g_ret_sts_error;
7592: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7593: WHEN OTHERS THEN
7594: x_return_status := fnd_api.g_ret_sts_unexp_error;
7587: CLOSE lpn_csr;
7588:
7589: EXCEPTION
7590: WHEN fnd_api.g_exc_error THEN
7591: x_return_status := fnd_api.g_ret_sts_error;
7592: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7593: WHEN OTHERS THEN
7594: x_return_status := fnd_api.g_ret_sts_unexp_error;
7595: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7590: WHEN fnd_api.g_exc_error THEN
7591: x_return_status := fnd_api.g_ret_sts_error;
7592: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7593: WHEN OTHERS THEN
7594: x_return_status := fnd_api.g_ret_sts_unexp_error;
7595: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7596: END create_mo_lpn;
7597:
7598:
7649: END IF;
7650:
7651: -- Set the savepoint
7652: SAVEPOINT validate_rules_sp;
7653: x_return_status := fnd_api.g_ret_sts_success;
7654: l_progress := '10';
7655:
7656: -- Call the ATF API to abort the plan before deleting the MMTTs
7657:
7673: ,p_emp_id => NULL
7674: );
7675: l_progress := '13';
7676:
7677: IF x_return_status = fnd_api.g_ret_sts_success THEN
7678: -- Abort op plan completed successfully.
7679: NULL;
7680:
7681: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7677: IF x_return_status = fnd_api.g_ret_sts_success THEN
7678: -- Abort op plan completed successfully.
7679: NULL;
7680:
7681: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7682: RAISE fnd_api.g_exc_error;
7683:
7684: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7685: RAISE fnd_api.g_exc_unexpected_error;
7678: -- Abort op plan completed successfully.
7679: NULL;
7680:
7681: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7682: RAISE fnd_api.g_exc_error;
7683:
7684: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7685: RAISE fnd_api.g_exc_unexpected_error;
7686:
7680:
7681: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7682: RAISE fnd_api.g_exc_error;
7683:
7684: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7685: RAISE fnd_api.g_exc_unexpected_error;
7686:
7687: END IF;
7688: l_progress := '18';
7681: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7682: RAISE fnd_api.g_exc_error;
7683:
7684: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7685: RAISE fnd_api.g_exc_unexpected_error;
7686:
7687: END IF;
7688: l_progress := '18';
7689:
7688: l_progress := '18';
7689:
7690: EXCEPTION
7691: WHEN OTHERS THEN
7692: RAISE fnd_api.g_exc_unexpected_error;
7693: END; -- Abort op plan call
7694:
7695:
7696: OPEN lpn_cur;
7806:
7807: l_progress := '60';
7808:
7809: -- Check to see if the suggestions_pub returned successfully
7810: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7811: IF (l_debug = 1) THEN
7812: mydebug('Success returned from suggestions_pub API');
7813: END IF;
7814: ELSE
7815: IF (l_debug = 1) THEN
7816: mydebug('Failure returned from suggestions_pub API');
7817: END IF;
7818:
7819: RAISE fnd_api.g_exc_error;
7820: END IF;
7821:
7822: -- Bug# 3352224
7823: -- For Patchset J and above, we allow manual drops within
7883: );
7884: l_progress := '90';
7885:
7886: -- Check to see if the call to revert_loc_suggested_capacity returned successfully
7887: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7888: IF (l_debug = 1) THEN
7889: mydebug('Success returned from revert_loc_suggested_capacity API');
7890: END IF;
7891: ELSE
7892: IF (l_debug = 1) THEN
7893: mydebug('Failure returned from revert_loc_suggested_capacity API');
7894: END IF;
7895: -- Bug 5393727: do not raise an exception if revert API returns an error
7896: -- RAISE fnd_api.g_exc_error;
7897: END IF;
7898:
7899: -- Perform a rollback to clean up the rest of the data
7900: BEGIN
7964: );
7965: l_progress := '110';
7966:
7967: -- Check to see if the call to revert_loc_suggested_capacity returned successfully
7968: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7969: IF (l_debug = 1) THEN
7970: mydebug('Success returned from revert_loc_suggested_capacity API');
7971: END IF;
7972: ELSE
7973: IF (l_debug = 1) THEN
7974: mydebug('Failure returned from revert_loc_suggested_capacity API');
7975: END IF;
7976: -- Bug 5393727: do not raise an exception if revert API returns an error
7977: -- RAISE fnd_api.g_exc_error;
7978: END IF;
7979:
7980: -- Perform a rollback to clean up the rest of the data
7981: BEGIN
7987: END IF;
7988: END IF;
7989:
7990: l_progress := '120';
7991: x_return_status := fnd_api.g_ret_sts_success;
7992:
7993: END IF;
7994: END LOOP;
7995:
8000: mydebug('***End of validate_against_rules***');
8001: END IF;
8002:
8003: EXCEPTION
8004: WHEN fnd_api.g_exc_error THEN
8005: ROLLBACK TO validate_rules_sp;
8006: x_validation_passed := 'N';
8007: x_return_status := fnd_api.g_ret_sts_error;
8008: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8003: EXCEPTION
8004: WHEN fnd_api.g_exc_error THEN
8005: ROLLBACK TO validate_rules_sp;
8006: x_validation_passed := 'N';
8007: x_return_status := fnd_api.g_ret_sts_error;
8008: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8009:
8010: IF (l_debug = 1) THEN
8011: mydebug('Exiting validate_against_rules - Execution error: ' || l_progress || ' '
8010: IF (l_debug = 1) THEN
8011: mydebug('Exiting validate_against_rules - Execution error: ' || l_progress || ' '
8012: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8013: END IF;
8014: WHEN fnd_api.g_exc_unexpected_error THEN
8015: ROLLBACK TO validate_rules_sp;
8016: x_validation_passed := 'N';
8017: x_return_status := fnd_api.g_ret_sts_unexp_error;
8018: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8013: END IF;
8014: WHEN fnd_api.g_exc_unexpected_error THEN
8015: ROLLBACK TO validate_rules_sp;
8016: x_validation_passed := 'N';
8017: x_return_status := fnd_api.g_ret_sts_unexp_error;
8018: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8019:
8020: IF (l_debug = 1) THEN
8021: mydebug('Exiting validate_against_rules - Unexpected error: ' || l_progress || ' '
8023: END IF;
8024: WHEN OTHERS THEN
8025: ROLLBACK TO validate_rules_sp;
8026: x_validation_passed := 'N';
8027: x_return_status := fnd_api.g_ret_sts_unexp_error;
8028:
8029: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8030: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8031: END IF;
8178: ,p_emp_id => l_emp_id
8179: );
8180: l_progress := '23';
8181:
8182: IF x_return_status = fnd_api.g_ret_sts_success THEN
8183: -- Abort op plan completed successfully.
8184: NULL;
8185:
8186: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8182: IF x_return_status = fnd_api.g_ret_sts_success THEN
8183: -- Abort op plan completed successfully.
8184: NULL;
8185:
8186: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8187: RAISE fnd_api.g_exc_error;
8188:
8189: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8190: RAISE fnd_api.g_exc_unexpected_error;
8183: -- Abort op plan completed successfully.
8184: NULL;
8185:
8186: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8187: RAISE fnd_api.g_exc_error;
8188:
8189: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8190: RAISE fnd_api.g_exc_unexpected_error;
8191:
8185:
8186: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8187: RAISE fnd_api.g_exc_error;
8188:
8189: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8190: RAISE fnd_api.g_exc_unexpected_error;
8191:
8192: END IF;
8193: l_progress := '28';
8186: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8187: RAISE fnd_api.g_exc_error;
8188:
8189: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8190: RAISE fnd_api.g_exc_unexpected_error;
8191:
8192: END IF;
8193: l_progress := '28';
8194:
8193: l_progress := '28';
8194:
8195: EXCEPTION
8196: WHEN OTHERS THEN
8197: RAISE fnd_api.g_exc_unexpected_error;
8198: END; -- Abort op plan call
8199:
8200:
8201: -- Clean up any old existing MMTT, MTLT, and WDT records
8248: , x_return_status => x_return_status
8249: , x_msg_count => x_msg_count
8250: , x_msg_data => x_msg_data );
8251:
8252: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8253: RAISE fnd_api.g_exc_unexpected_error;
8254: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8255: RAISE fnd_api.g_exc_error;
8256: END IF;
8249: , x_msg_count => x_msg_count
8250: , x_msg_data => x_msg_data );
8251:
8252: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8253: RAISE fnd_api.g_exc_unexpected_error;
8254: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8255: RAISE fnd_api.g_exc_error;
8256: END IF;
8257: END IF; -- End for is Inventory lpn
8250: , x_msg_data => x_msg_data );
8251:
8252: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8253: RAISE fnd_api.g_exc_unexpected_error;
8254: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8255: RAISE fnd_api.g_exc_error;
8256: END IF;
8257: END IF; -- End for is Inventory lpn
8258:
8251:
8252: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8253: RAISE fnd_api.g_exc_unexpected_error;
8254: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8255: RAISE fnd_api.g_exc_error;
8256: END IF;
8257: END IF; -- End for is Inventory lpn
8258:
8259: l_progress := '30';
8358: WHEN OTHERS THEN
8359: IF (l_debug = 1) THEN
8360: mydebug('These values are not distinct!!');
8361: END IF;
8362: RAISE fnd_api.g_exc_error;
8363: END;
8364:
8365: -- Insert a record into MMTT
8366: -- Nested LPN changes,
8443: IF (l_debug = 1) THEN
8444: mydebug('Error occurred while calling inv_trx_util_pub.insert_line_trx');
8445: END IF;
8446:
8447: RAISE fnd_api.g_exc_unexpected_error;
8448: END IF;
8449:
8450: -- Get the value for the completion_transaction_id
8451: -- in the case of WIP completions
8532: IF (l_debug = 1) THEN
8533: mydebug('Error occurred while calling inv_trx_util_pub.insert_lot_trx');
8534: END IF;
8535:
8536: RAISE fnd_api.g_exc_unexpected_error;
8537: END IF;
8538:
8539: -- Update the MTLT record to clear out the serial_transaction_temp_id column
8540: -- since insert_lot_trx by default will insert a value for it.
8596: END IF;
8597:
8598: l_progress := '135';
8599:
8600: x_return_status := fnd_api.g_ret_sts_success;
8601: x_number_of_rows := l_number_of_rows;
8602:
8603: IF (l_debug = 1) THEN
8604: mydebug('Finished inserting suggestion records: ' || l_number_of_rows);
8614: mydebug('***End of create_user_suggestions***');
8615: END IF;
8616:
8617: EXCEPTION
8618: WHEN fnd_api.g_exc_error THEN
8619: ROLLBACK TO create_suggestions_sp;
8620: x_return_status := fnd_api.g_ret_sts_error;
8621: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8622:
8616:
8617: EXCEPTION
8618: WHEN fnd_api.g_exc_error THEN
8619: ROLLBACK TO create_suggestions_sp;
8620: x_return_status := fnd_api.g_ret_sts_error;
8621: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8622:
8623: IF (l_debug = 1) THEN
8624: mydebug('Exiting create_user_suggestions - Execution error: ' || l_progress || ' '
8623: IF (l_debug = 1) THEN
8624: mydebug('Exiting create_user_suggestions - Execution error: ' || l_progress || ' '
8625: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8626: END IF;
8627: WHEN fnd_api.g_exc_unexpected_error THEN
8628: ROLLBACK TO create_suggestions_sp;
8629: x_return_status := fnd_api.g_ret_sts_unexp_error;
8630: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8631:
8625: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8626: END IF;
8627: WHEN fnd_api.g_exc_unexpected_error THEN
8628: ROLLBACK TO create_suggestions_sp;
8629: x_return_status := fnd_api.g_ret_sts_unexp_error;
8630: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8631:
8632: IF (l_debug = 1) THEN
8633: mydebug('Exiting create_user_suggestions - Unexpected error: ' || l_progress || ' '
8634: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8635: END IF;
8636: WHEN OTHERS THEN
8637: ROLLBACK TO create_suggestions_sp;
8638: x_return_status := fnd_api.g_ret_sts_unexp_error;
8639:
8640: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8641: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8642: END IF;
8734: IF (l_debug = 1) THEN
8735: mydebug('No lot number on move order line!');
8736: END IF;
8737:
8738: RAISE fnd_api.g_exc_unexpected_error;
8739: END IF;
8740:
8741: l_progress := '30';
8742: -- Check if the lot material status is valid
8838:
8839: l_progress := '70';
8840: -- Set the output variable
8841: x_validation_passed := l_return;
8842: x_return_status := fnd_api.g_ret_sts_success;
8843:
8844: IF (l_debug = 1) THEN
8845: mydebug('***End of validate_lot_serial_status***');
8846: END IF;
8844: IF (l_debug = 1) THEN
8845: mydebug('***End of validate_lot_serial_status***');
8846: END IF;
8847: EXCEPTION
8848: WHEN fnd_api.g_exc_error THEN
8849: ROLLBACK TO validate_status_sp;
8850: x_validation_passed := 'N';
8851: x_return_status := fnd_api.g_ret_sts_error;
8852: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8847: EXCEPTION
8848: WHEN fnd_api.g_exc_error THEN
8849: ROLLBACK TO validate_status_sp;
8850: x_validation_passed := 'N';
8851: x_return_status := fnd_api.g_ret_sts_error;
8852: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8853:
8854: IF (l_debug = 1) THEN
8855: mydebug('Exiting validate_lot_serial_status - Execution error: ' || l_progress || ' '
8854: IF (l_debug = 1) THEN
8855: mydebug('Exiting validate_lot_serial_status - Execution error: ' || l_progress || ' '
8856: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
8857: END IF;
8858: WHEN fnd_api.g_exc_unexpected_error THEN
8859: ROLLBACK TO validate_status_sp;
8860: x_validation_passed := 'N';
8861: x_return_status := fnd_api.g_ret_sts_unexp_error;
8862: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8857: END IF;
8858: WHEN fnd_api.g_exc_unexpected_error THEN
8859: ROLLBACK TO validate_status_sp;
8860: x_validation_passed := 'N';
8861: x_return_status := fnd_api.g_ret_sts_unexp_error;
8862: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8863:
8864: IF (l_debug = 1) THEN
8865: mydebug('Exiting validate_lot_serial_status - Unexpected error: ' || l_progress || ' '
8867: END IF;
8868: WHEN OTHERS THEN
8869: ROLLBACK TO validate_status_sp;
8870: x_validation_passed := 'N';
8871: x_return_status := fnd_api.g_ret_sts_unexp_error;
8872:
8873: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8874: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8875: END IF;
8999: , p_quantity => l_quantity
9000: );
9001: l_progress := '30';
9002:
9003: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
9004: IF (l_debug = 1) THEN
9005: mydebug('Success returned from revert_loc_suggested_capacity API');
9006: END IF;
9007: ELSE
9008: IF (l_debug = 1) THEN
9009: mydebug('Failure returned from revert_loc_suggested_capacity API');
9010: END IF;
9011: -- Bug 5393727: do not raise an exception if revert API returns an error
9012: -- RAISE fnd_api.g_exc_error;
9013: END IF;
9014:
9015: l_progress := '40';
9016: END LOOP;
9019: END LOOP;
9020: CLOSE nested_lpn_cursor;
9021:
9022: -- Set the output variable
9023: x_return_status := fnd_api.g_ret_sts_success;
9024: l_progress := '50';
9025:
9026: IF (l_debug = 1) THEN
9027: mydebug('***End of revert_loc_suggested_capacity***');
9026: IF (l_debug = 1) THEN
9027: mydebug('***End of revert_loc_suggested_capacity***');
9028: END IF;
9029: EXCEPTION
9030: WHEN fnd_api.g_exc_error THEN
9031: ROLLBACK TO revert_capacity_sp;
9032: x_return_status := fnd_api.g_ret_sts_error;
9033: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9034:
9028: END IF;
9029: EXCEPTION
9030: WHEN fnd_api.g_exc_error THEN
9031: ROLLBACK TO revert_capacity_sp;
9032: x_return_status := fnd_api.g_ret_sts_error;
9033: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9034:
9035: IF (l_debug = 1) THEN
9036: mydebug(
9037: 'Exiting revert_loc_suggested_capacity - Execution error: ' || l_progress || ' '
9038: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
9039: );
9040: END IF;
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: ROLLBACK TO revert_capacity_sp;
9043: x_return_status := fnd_api.g_ret_sts_unexp_error;
9044: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9045:
9039: );
9040: END IF;
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: ROLLBACK TO revert_capacity_sp;
9043: x_return_status := fnd_api.g_ret_sts_unexp_error;
9044: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9045:
9046: IF (l_debug = 1) THEN
9047: mydebug(
9050: );
9051: END IF;
9052: WHEN OTHERS THEN
9053: ROLLBACK TO revert_capacity_sp;
9054: x_return_status := fnd_api.g_ret_sts_unexp_error;
9055:
9056: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9057: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9058: END IF;
9172:
9173: l_progress := '40';
9174:
9175: -- Check the return status from the API call
9176: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
9177: IF (l_debug = 1) THEN
9178: mydebug('Success returned from WMS_Cross_Dock_Pvt.crossdock API');
9179: END IF;
9180: ELSE
9181: IF (l_debug = 1) THEN
9182: mydebug('Failure returned from WMS_Cross_Dock_Pvt.crossdock API');
9183: END IF;
9184:
9185: RAISE fnd_api.g_exc_error;
9186: END IF;
9187:
9188: l_progress := '50';
9189:
9217: x_crossdock := 'N';
9218: END IF;
9219: */
9220: -- Set the output variable
9221: x_return_status := fnd_api.g_ret_sts_success;
9222: l_progress := '70';
9223:
9224: IF (l_debug = 1) THEN
9225: mydebug('***End of check_for_crossdock***');
9224: IF (l_debug = 1) THEN
9225: mydebug('***End of check_for_crossdock***');
9226: END IF;
9227: EXCEPTION
9228: WHEN fnd_api.g_exc_error THEN
9229: ROLLBACK TO check_crossdock_sp;
9230: x_crossdock := 'N';
9231: x_return_status := fnd_api.g_ret_sts_error;
9232: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9227: EXCEPTION
9228: WHEN fnd_api.g_exc_error THEN
9229: ROLLBACK TO check_crossdock_sp;
9230: x_crossdock := 'N';
9231: x_return_status := fnd_api.g_ret_sts_error;
9232: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9233:
9234: IF (l_debug = 1) THEN
9235: mydebug('Exiting check_for_crossdock - Execution error: ' ||
9234: IF (l_debug = 1) THEN
9235: mydebug('Exiting check_for_crossdock - Execution error: ' ||
9236: l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
9237: END IF;
9238: WHEN fnd_api.g_exc_unexpected_error THEN
9239: ROLLBACK TO check_crossdock_sp;
9240: x_crossdock := 'N';
9241: x_return_status := fnd_api.g_ret_sts_unexp_error;
9242: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9237: END IF;
9238: WHEN fnd_api.g_exc_unexpected_error THEN
9239: ROLLBACK TO check_crossdock_sp;
9240: x_crossdock := 'N';
9241: x_return_status := fnd_api.g_ret_sts_unexp_error;
9242: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9243:
9244: IF (l_debug = 1) THEN
9245: mydebug('Exiting check_for_crossdock - Unexpected error: ' ||
9247: END IF;
9248: WHEN OTHERS THEN
9249: ROLLBACK TO check_crossdock_sp;
9250: x_crossdock := 'N';
9251: x_return_status := fnd_api.g_ret_sts_unexp_error;
9252:
9253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9254: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9255: END IF;