[Home] [Help]
138: j NUMBER;
139: l_temp_psr psrTyp;
140: l_ordered_psr psrtabtyp;
141: BEGIN
142: x_api_status := fnd_api.g_ret_sts_success;
143:
144: IF p_pick_seq_rule_id IS NULL THEN
145: FOR i IN 1 .. g_total_pick_criteria LOOP
146: l_ordered_psr(i).attribute_name := 'TEMP';
211: END LOOP;
212: END IF; -- for p_pick_seq_rule_id is null
213:
214: x_ordered_psr := l_ordered_psr;
215: x_api_status := FND_API.G_RET_STS_SUCCESS;
216:
217: EXCEPTION
218: --
219: WHEN OTHERS THEN
217: EXCEPTION
218: --
219: WHEN OTHERS THEN
220: --
221: x_api_status := fnd_api.g_ret_sts_unexp_error;
222: --
223: IF pick_seq_rule%ISOPEN THEN
224: CLOSE pick_seq_rule;
225: END IF;
266: L_INDEX NUMBER;
267: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
268:
269: BEGIN
270: x_return_status := fnd_api.g_ret_sts_success;
271:
272: -- Get the highest priority subinventory
273: L_INDEX := 0;
274: OPEN c_get_source_sub;
298: print_debug('x_MAX_MINMAX_QUANTITY :' || x_MAX_MINMAX_QUANTITY);
299: END IF;
300:
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: EXCEPTION
305: WHEN OTHERS THEN
306: IF l_debug = 1 THEN
310: IF c_get_source_sub%ISOPEN THEN
311: CLOSE c_get_source_sub;
312: END IF;
313:
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315:
316: END Get_Source_Sub_Dest_Loc_Info;
317:
318:
328: , x_return_status OUT NOCOPY VARCHAR2
329: )
330: IS
331:
332: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
333:
334: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
335: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
336: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
364: l_in_rec.action_code := 'UPDATE';
365:
366: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
367: (p_api_version_number => 1.0,
368: p_init_msg_list => fnd_api.g_false,
369: p_commit => fnd_api.g_false,
370: x_return_status => l_return_status,
371: x_msg_count => l_msg_count,
372: x_msg_data => l_msg_data,
365:
366: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
367: (p_api_version_number => 1.0,
368: p_init_msg_list => fnd_api.g_false,
369: p_commit => fnd_api.g_false,
370: x_return_status => l_return_status,
371: x_msg_count => l_msg_count,
372: x_msg_data => l_msg_data,
373: p_detail_info_tab => l_detail_info_tab,
378: IF (l_debug = 1) THEN
379: print_debug('Status after updating the Repl status '||l_return_status);
380: END IF;
381:
382: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: IF (l_debug = 1) THEN
384: print_debug('Error returned from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
385: END IF;
386: RAISE FND_API.G_EXC_ERROR;
382: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
383: IF (l_debug = 1) THEN
384: print_debug('Error returned from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
385: END IF;
386: RAISE FND_API.G_EXC_ERROR;
387: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
388: IF (l_debug = 1) THEN
389: print_debug('Unexpected errror from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
390: END IF;
383: IF (l_debug = 1) THEN
384: print_debug('Error returned from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
385: END IF;
386: RAISE FND_API.G_EXC_ERROR;
387: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
388: IF (l_debug = 1) THEN
389: print_debug('Unexpected errror from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
390: END IF;
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
388: IF (l_debug = 1) THEN
389: print_debug('Unexpected errror from Create_Update_Delivery_Detail IN api update_wdd_repl_status');
390: END IF;
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: END IF;
393:
394: ELSE -- p_repl_status IS NULL
395:
434: WHEN OTHERS THEN
435: IF l_debug = 1 THEN
436: print_debug('Error update_wdd_repl_status: ' || sqlcode || ',' || sqlerrm);
437: END IF;
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439:
440: END update_wdd_repl_status;
441:
442:
449: IS
450:
451: l_deliv_detail_id_tab num_tab;
452:
453: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
454: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
455: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
456: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
457: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
502: WHEN OTHERS THEN
503: IF (l_debug = 1) THEN
504: print_debug('Exception retrieving item repl records for Dynamic');
505: END IF;
506: l_return_status := fnd_api.g_ret_sts_error;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END;
509:
510: l_detail_info_tab.DELETE;
503: IF (l_debug = 1) THEN
504: print_debug('Exception retrieving item repl records for Dynamic');
505: END IF;
506: l_return_status := fnd_api.g_ret_sts_error;
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END;
509:
510: l_detail_info_tab.DELETE;
511: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
509:
510: l_detail_info_tab.DELETE;
511: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
512: l_detail_info_tab(i).delivery_detail_id := l_deliv_detail_id_tab(i);
513: -- mark the demand lines for FND_API.g_miss_char replenishment status
514: l_detail_info_tab(i).replenishment_status := FND_API.g_miss_char;
515:
516: END LOOP;
517:
510: l_detail_info_tab.DELETE;
511: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
512: l_detail_info_tab(i).delivery_detail_id := l_deliv_detail_id_tab(i);
513: -- mark the demand lines for FND_API.g_miss_char replenishment status
514: l_detail_info_tab(i).replenishment_status := FND_API.g_miss_char;
515:
516: END LOOP;
517:
518:
525: l_in_rec.action_code := 'UPDATE';
526:
527: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
528: (p_api_version_number => 1.0,
529: p_init_msg_list => fnd_api.g_false,
530: p_commit => fnd_api.g_false,
531: x_return_status => l_return_status,
532: x_msg_count => l_msg_count,
533: x_msg_data => l_msg_data,
526:
527: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
528: (p_api_version_number => 1.0,
529: p_init_msg_list => fnd_api.g_false,
530: p_commit => fnd_api.g_false,
531: x_return_status => l_return_status,
532: x_msg_count => l_msg_count,
533: x_msg_data => l_msg_data,
534: p_detail_info_tab => l_detail_info_tab,
539: IF (l_debug = 1) THEN
540: print_debug('AFTER Changing the line status to original release status');
541: END IF;
542:
543: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
544: IF (l_debug = 1) THEN
545: print_debug('Error returned from Create_Update_Delivery_Detail IN api Revert_ALL_WDD_dynamic_repl');
546: END IF;
547: RAISE FND_API.G_EXC_ERROR;
543: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
544: IF (l_debug = 1) THEN
545: print_debug('Error returned from Create_Update_Delivery_Detail IN api Revert_ALL_WDD_dynamic_repl');
546: END IF;
547: RAISE FND_API.G_EXC_ERROR;
548: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
549: IF (l_debug = 1) THEN
550: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN Revert_ALL_WDD_dynamic_repl');
551: END IF;
544: IF (l_debug = 1) THEN
545: print_debug('Error returned from Create_Update_Delivery_Detail IN api Revert_ALL_WDD_dynamic_repl');
546: END IF;
547: RAISE FND_API.G_EXC_ERROR;
548: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
549: IF (l_debug = 1) THEN
550: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN Revert_ALL_WDD_dynamic_repl');
551: END IF;
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
549: IF (l_debug = 1) THEN
550: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN Revert_ALL_WDD_dynamic_repl');
551: END IF;
552: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
553: END IF;
554:
555: x_return_status := l_return_status ;
556:
558: WHEN OTHERS THEN
559: IF l_debug = 1 THEN
560: print_debug('Error In Revert_ALL_WDD_dynamic_repl: ' || sqlcode || ',' || sqlerrm);
561: END IF;
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: END revert_all_wdd_dynamic_repl;
564:
565:
566: PROCEDURE Revert_Consol_item_changes ( p_repl_type IN NUMBER
582:
583: l_msg_count NUMBER;
584: l_msg_data VARCHAR2(1000);
585:
586: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
587:
588: CURSOR c_demand_for_items IS
589: SELECT demand_line_detail_id
590: FROM wms_repl_demand_gtmp
615: WHEN OTHERS THEN
616: IF (l_debug = 1) THEN
617: print_debug('Exception retrieving repl records for consol item');
618: END IF;
619: l_return_status := fnd_api.g_ret_sts_error;
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END;
622:
623: l_detail_info_tab.DELETE;
616: IF (l_debug = 1) THEN
617: print_debug('Exception retrieving repl records for consol item');
618: END IF;
619: l_return_status := fnd_api.g_ret_sts_error;
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END;
622:
623: l_detail_info_tab.DELETE;
624: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
622:
623: l_detail_info_tab.DELETE;
624: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
625: l_detail_info_tab(i).delivery_detail_id := l_deliv_detail_id_tab(i);
626: -- mark the demand lines for FND_API.g_miss_char replenishment status
627: l_detail_info_tab(i).replenishment_status := FND_API.g_miss_char;
628: END LOOP;
629:
630: l_in_rec := NULL;
623: l_detail_info_tab.DELETE;
624: FOR i IN l_deliv_detail_id_tab.FIRST..l_deliv_detail_id_tab.LAST LOOP
625: l_detail_info_tab(i).delivery_detail_id := l_deliv_detail_id_tab(i);
626: -- mark the demand lines for FND_API.g_miss_char replenishment status
627: l_detail_info_tab(i).replenishment_status := FND_API.g_miss_char;
628: END LOOP;
629:
630: l_in_rec := NULL;
631: l_in_rec.caller := 'WMS_REP';
632: l_in_rec.action_code := 'UPDATE';
633:
634: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
635: (p_api_version_number => 1.0,
636: p_init_msg_list => fnd_api.g_false,
637: p_commit => fnd_api.g_false,
638: x_return_status => l_return_status,
639: x_msg_count => l_msg_count,
640: x_msg_data => l_msg_data,
633:
634: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
635: (p_api_version_number => 1.0,
636: p_init_msg_list => fnd_api.g_false,
637: p_commit => fnd_api.g_false,
638: x_return_status => l_return_status,
639: x_msg_count => l_msg_count,
640: x_msg_data => l_msg_data,
641: p_detail_info_tab => l_detail_info_tab,
646: IF (l_debug = 1) THEN
647: print_debug('AFTER Changing the line status to original release status');
648: END IF;
649:
650: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
651: IF (l_debug = 1) THEN
652: print_debug('Error returned from Create_Update_Delivery_Detail IN api revert_consol_item_changes');
653: END IF;
654: RAISE FND_API.G_EXC_ERROR;
650: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
651: IF (l_debug = 1) THEN
652: print_debug('Error returned from Create_Update_Delivery_Detail IN api revert_consol_item_changes');
653: END IF;
654: RAISE FND_API.G_EXC_ERROR;
655: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
656: IF (l_debug = 1) THEN
657: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN revert_consol_item_changes');
658: END IF;
651: IF (l_debug = 1) THEN
652: print_debug('Error returned from Create_Update_Delivery_Detail IN api revert_consol_item_changes');
653: END IF;
654: RAISE FND_API.G_EXC_ERROR;
655: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
656: IF (l_debug = 1) THEN
657: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN revert_consol_item_changes');
658: END IF;
659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
655: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
656: IF (l_debug = 1) THEN
657: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN revert_consol_item_changes');
658: END IF;
659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
660: END IF;
661:
662: END IF; -- for IF p_repl_type = g_dynamic_repl AND p_demand_type_id <> 4
663:
673: WHEN OTHERS THEN
674: IF l_debug = 1 THEN
675: print_debug('Error in Revert_Consol_item_changes: ' || sqlcode || ',' || sqlerrm);
676: END IF;
677: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
678: END revert_consol_item_changes;
679:
680:
681:
682:
683: PROCEDURE Backorder_wdd_for_repl( x_return_status OUT NOCOPY VARCHAR2
684: )
685: IS
686: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
687: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
688: l_out_rows WSH_UTIL_CORE.ID_TAB_TYPE;
689: BEGIN
690:
711: IF (l_debug = 1) THEN
712: print_debug( 'After call to Backorder API Return Status :'||l_return_status);
713: END IF;
714:
715: IF l_return_status <> fnd_api.g_ret_sts_success THEN
716: RAISE fnd_api.g_exc_unexpected_error;
717: END IF;
718:
719: --Delete all entries in the pl/sql table
712: print_debug( 'After call to Backorder API Return Status :'||l_return_status);
713: END IF;
714:
715: IF l_return_status <> fnd_api.g_ret_sts_success THEN
716: RAISE fnd_api.g_exc_unexpected_error;
717: END IF;
718:
719: --Delete all entries in the pl/sql table
720: G_backorder_deliv_tab.DELETE;
730: --Delete all entries in the pl/sql table
731: G_backorder_deliv_tab.DELETE;
732: G_backorder_qty_tab.DELETE;
733: G_dummy_table.DELETE;
734: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
735: END Backorder_wdd_for_repl ;
736:
737:
738:
787: l_detail_id_tab WSH_UTIL_CORE.id_tab_type;
788: l_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
789: l_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
790:
791: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
792: l_split_wdd_id NUMBER;
793:
794: l_dyn_bkord_dd_id_tab num_tab;
795:
884: -- Check value passed in this call to QTY Tree
885: inv_quantity_tree_pub.query_quantities
886: (
887: p_api_version_number => 1.0
888: , p_init_msg_lst => fnd_api.g_false
889: , x_return_status => l_return_status
890: , x_msg_count => l_msg_count
891: , x_msg_data => l_msg_data
892: , p_organization_id => L_ORG_ID
914: print_debug( 'Return status from QTY TREE:' ||l_return_status);
915: print_debug( '>>>> From Qrt Tree, Org Level atr for Item :'||L_item_id||' is : '||l_atr);
916: END IF;
917:
918: IF l_return_status <> fnd_api.g_ret_sts_success THEN
919: l_atr := 0;
920: END IF;
921:
922: ----------------------
1143: l_action_prms.split_quantity := (l_quantity - l_atr);
1144:
1145: WSH_INTERFACE_GRP.Delivery_Detail_Action
1146: (p_api_version_number => 1.0,
1147: p_init_msg_list => fnd_api.g_false,
1148: p_commit => fnd_api.g_false,
1149: x_return_status => l_return_status,
1150: x_msg_count => l_msg_count,
1151: x_msg_data => l_msg_data,
1144:
1145: WSH_INTERFACE_GRP.Delivery_Detail_Action
1146: (p_api_version_number => 1.0,
1147: p_init_msg_list => fnd_api.g_false,
1148: p_commit => fnd_api.g_false,
1149: x_return_status => l_return_status,
1150: x_msg_count => l_msg_count,
1151: x_msg_data => l_msg_data,
1152: p_detail_id_tab => l_detail_id_tab,
1153: p_action_prms => l_action_prms,
1154: x_action_out_rec => l_action_out_rec
1155: );
1156:
1157: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1158: IF (l_debug = 1) THEN
1159: print_debug( 'Error returned from Split ADJUST_ATR_FOR_ITEM API..skip this demand');
1160: END IF;
1161: -- skip this demand line
1159: print_debug( 'Error returned from Split ADJUST_ATR_FOR_ITEM API..skip this demand');
1160: END IF;
1161: -- skip this demand line
1162: GOTO next_dmd_rec;
1163: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1164: IF (l_debug = 1) THEN
1165: print_debug( 'Unexpected errror from Split ADJUST_ATR_FOR_ITEM API..skip this demand');
1166: END IF;
1167: -- skip this demand line
1341: l_in_rec.action_code := 'UPDATE';
1342:
1343: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
1344: (p_api_version_number => 1.0,
1345: p_init_msg_list => fnd_api.g_false,
1346: p_commit => fnd_api.g_false,
1347: x_return_status => l_return_status,
1348: x_msg_count => l_msg_count,
1349: x_msg_data => l_msg_data,
1342:
1343: WSH_INTERFACE_EXT_GRP.Create_Update_Delivery_Detail
1344: (p_api_version_number => 1.0,
1345: p_init_msg_list => fnd_api.g_false,
1346: p_commit => fnd_api.g_false,
1347: x_return_status => l_return_status,
1348: x_msg_count => l_msg_count,
1349: x_msg_data => l_msg_data,
1350: p_detail_info_tab => l_detail_info_tab,
1355: IF (l_debug = 1) THEN
1356: print_debug('AFTER Changing the line status to original release status');
1357: END IF;
1358:
1359: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1360: IF (l_debug = 1) THEN
1361: print_debug('Error returned from Create_Update_Delivery_Detail IN api ADJUST_ATR_FOR_ITEM');
1362: END IF;
1363: RAISE FND_API.G_EXC_ERROR;
1359: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
1360: IF (l_debug = 1) THEN
1361: print_debug('Error returned from Create_Update_Delivery_Detail IN api ADJUST_ATR_FOR_ITEM');
1362: END IF;
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1365: IF (l_debug = 1) THEN
1366: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN ADJUST_ATR_FOR_ITEM');
1367: END IF;
1360: IF (l_debug = 1) THEN
1361: print_debug('Error returned from Create_Update_Delivery_Detail IN api ADJUST_ATR_FOR_ITEM');
1362: END IF;
1363: RAISE FND_API.G_EXC_ERROR;
1364: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1365: IF (l_debug = 1) THEN
1366: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN ADJUST_ATR_FOR_ITEM');
1367: END IF;
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1364: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1365: IF (l_debug = 1) THEN
1366: print_debug('Unexpected errror from Create_Update_Delivery_Detail api IN ADJUST_ATR_FOR_ITEM');
1367: END IF;
1368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1369: END IF;
1370:
1371: END IF;
1372:
1381: WHEN OTHERS THEN
1382: IF (l_debug = 1) THEN
1383: print_debug('Exception in ADJUST_atr_for_item: ' || sqlcode || ', ' || sqlerrm);
1384: END IF;
1385: x_return_status := FND_API.G_RET_STS_ERROR;
1386: -- calling API will rollback
1387: END ADJUST_atr_for_item;
1388:
1389:
1419: l_return_value BOOLEAN;
1420: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1421: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1422:
1423: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1424: BEGIN
1425: x_return_status := l_return_status;
1426:
1427: SAVEPOINT push_replenishment_sp;
1470: IF l_debug = 1 THEN
1471: print_debug(' ERROR: VALIDATION FAILED !' );
1472: END IF;
1473:
1474: x_return_status := FND_API.G_RET_STS_ERROR;
1475: x_msg_data := 'Missing Required Information';
1476: RETURN;
1477:
1478: END IF;
1508: x_msg_count => x_msg_count,
1509: x_msg_data => x_msg_data);
1510:
1511:
1512: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
1513: IF (l_debug = 1) THEN
1514: PRINT_DEBUG('Demand records populated successfully');
1515: END IF;
1516:
1518: l_consol_item_repl_tbl.DELETE;
1519: IF (l_debug = 1) THEN
1520: PRINT_DEBUG('Error from API POPULATE_PUSH_REPL_DEMAND');
1521: END IF;
1522: RAISE fnd_api.g_exc_unexpected_error;
1523: END IF;
1524:
1525:
1526: -- ==========TEST CODE starts ===========
1574: x_return_status => l_return_status,
1575: x_msg_count => x_msg_count,
1576: x_msg_data => x_msg_data);
1577:
1578: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
1579: IF (l_debug = 1) THEN
1580: PRINT_DEBUG('processed replenishment successfully');
1581: END IF;
1582:
1583: ELSE
1584: IF (l_debug = 1) THEN
1585: PRINT_DEBUG('Error from API process_replenishment');
1586: END IF;
1587: RAISE fnd_api.g_exc_unexpected_error;
1588: END IF;
1589: ELSE
1590: IF (l_debug = 1) THEN
1591: print_debug('No Demand Records Identified for Chosen Criteria..Exiting...');
1602: END IF;
1603:
1604: IF g_backorder_deliv_tab.COUNT() <> 0 THEN
1605: Backorder_wdd_for_repl( l_return_status );
1606: IF l_RETURN_status <> fnd_api.g_ret_sts_success THEN
1607: IF (l_debug = 1) THEN
1608: PRINT_DEBUG('Call to Backorder_wdd_for_repl API returned failure..DO NOTHING');
1609: END IF;
1610: END IF;
1611: END IF;
1612:
1613:
1614: COMMIT; -- commit entire transaction
1615: x_return_status := FND_API.g_ret_sts_success;
1616:
1617: IF (l_debug = 1) THEN
1618: PRINT_DEBUG('Done with the Push Replenishment');
1619: END IF;
1626: g_item_uom_conversion_tb.DELETE;
1627: IF l_debug = 1 THEN
1628: print_debug('Error in PUSH_REPLENISHMENT: ' || sqlcode || ', ' || sqlerrm);
1629: END IF;
1630: x_return_status:= FND_API.g_ret_sts_error;
1631:
1632: END PUSH_REPLENISHMENT;
1633:
1634:
1644: l_return_value BOOLEAN;
1645: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1646: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1647:
1648: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1649: BEGIN
1650:
1651: x_return_status := l_return_status;
1652: SAVEPOINT dynamic_replenishment_sp;
1694: -- The API needs to revert the original status of WDD
1695: -- Even if it errors out for what ever reason, all WDDs
1696: -- should be reverted in the called API at the very least
1697: -- and return status of success with no records in consol table
1698: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
1699: IF (l_debug = 1) THEN
1700: PRINT_DEBUG('Demand records populated successfully');
1701: END IF;
1702: ELSE
1703: l_consol_item_repl_tbl.DELETE;
1704: IF (l_debug = 1) THEN
1705: PRINT_DEBUG('Error from API POPULATE_dynamic_REPL_DEMAND');
1706: END IF;
1707: RAISE fnd_api.g_exc_unexpected_error;
1708: END IF;
1709:
1710: -- To populate the demand table - WMS_REPL_DEMAND_GTMP - Get values in l_consol_item_repl_tbl
1711: -- Cache information about relevant items
1752: x_return_status => l_return_status ,
1753: x_msg_count => x_msg_count ,
1754: x_msg_data => x_msg_data );
1755:
1756: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
1757: IF (l_debug = 1) THEN
1758: PRINT_DEBUG('processed replenishment successfully');
1759: END IF;
1760:
1762: IF (l_debug = 1) THEN
1763: PRINT_DEBUG('Error from API process_replenishment');
1764: END IF;
1765: -- To call revert of WDD status for all WDDs
1766: RAISE fnd_api.g_exc_unexpected_error;
1767: END IF;
1768: ELSE
1769:
1770: IF (l_debug = 1) THEN
1781: END IF;
1782:
1783: IF g_backorder_deliv_tab.COUNT() <> 0 THEN
1784: Backorder_wdd_for_repl( l_return_status );
1785: IF l_RETURN_status <> fnd_api.g_ret_sts_success THEN
1786: IF (l_debug = 1) THEN
1787: PRINT_DEBUG('Call to Backorder_wdd_for_repl API returned failure..DO NOTHING');
1788: END IF;
1789: END IF;
1790: END IF;
1791:
1792:
1793: COMMIT;
1794: x_return_status := FND_API.g_ret_sts_success;
1795:
1796: IF (l_debug = 1) THEN
1797: PRINT_DEBUG('Done with the Pull/Dynamic Replenishment');
1798: END IF;
1817: print_debug('status:'||l_return_status);
1818: END IF;
1819: COMMIT;
1820:
1821: x_return_status:= FND_API.g_ret_sts_error;
1822: END DYNAMIC_REPLENISHMENT;
1823:
1824:
1825:
2215: l_total_demand_qty_tb num_tab;
2216: l_date_required_tb date_tab;
2217:
2218: l_temp_cnt NUMBER; -- for debugging only
2219: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
2220: BEGIN
2221: x_return_status := l_return_status;
2222:
2223: IF (l_debug = 1) THEN
2240:
2241: IF (l_debug = 1) THEN
2242: print_debug('Status after calling init_rules'||l_return_status);
2243: END IF;
2244: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2245: x_return_status := l_return_status;
2246: -- caller rollsback everything if error
2247: RETURN;
2248: END IF;
2283: IF (l_debug = 1) THEN
2284: print_debug('Exception retrieving open repl demand records :'||SQLCODE ||' '||SQLERRM);
2285: END IF;
2286: -- caller rollsback everything if error
2287: x_return_status := fnd_api.g_ret_sts_error;
2288: RETURN;
2289: END;
2290:
2291:
2380: IF (l_debug = 1) THEN
2381: print_debug('Error inserting wms_repl_demand_gtmp table');
2382: END IF;
2383: -- caller rollsback everything if error
2384: x_return_status := fnd_api.g_ret_sts_error;
2385: RETURN;
2386: END;
2387:
2388:
2409: WHEN OTHERS THEN
2410: IF (l_debug = 1) THEN
2411: print_debug('Exception retrieving item repl records');
2412: END IF;
2413: x_return_status := fnd_api.g_ret_sts_error;
2414: -- caller rollback everything if error
2415: RETURN;
2416: END;
2417:
2524: IF (l_debug = 1) THEN
2525: print_debug('Error inserting in WRDG temp table with Filter_item_flag = y : '||SQLCODE ||' '||SQLERRM);
2526: END IF;
2527: -- caller rollsback everything if error
2528: x_return_status := fnd_api.g_ret_sts_error;
2529: x_consol_item_repl_tbl.DELETE;
2530: RETURN;
2531: END;
2532:
2544: IF l_return_status <> 'S' THEN
2545: IF l_debug = 1 THEN
2546: print_debug('API ADJUST_ATR_FOR_ITEM returned error');
2547: END IF;
2548: x_return_status := fnd_api.g_ret_sts_error;
2549: x_consol_item_repl_tbl.DELETE;
2550: RETURN;
2551: END IF;
2552:
2566: --=====================TEST CODE ENDS =======
2567:
2568: END IF; -- IF l_item_id_tb.COUNT = 0
2569:
2570: x_return_status := FND_API.g_ret_sts_success;
2571:
2572: IF l_debug = 1 THEN
2573: print_debug('Done with API populate_push_repl_demand');
2574: END IF;
2579: print_debug('Error in populate_push_repl_demand SQLCODE:'||SQLCODE ||' '||SQLERRM );
2580: END IF;
2581: --
2582: -- caller rollsback everything if error
2583: x_return_status := fnd_api.g_ret_sts_unexp_error;
2584: x_consol_item_repl_tbl.DELETE;
2585: --
2586: END populate_push_repl_demand ;
2587:
2610: l_rqoh NUMBER;
2611: l_qr NUMBER;
2612: l_qs NUMBER;
2613: l_atr NUMBER;
2614: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
2615: BEGIN
2616: x_create_qty := l_create_qty;
2617: x_return_status := fnd_api.g_ret_sts_success;
2618:
2613: l_atr NUMBER;
2614: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
2615: BEGIN
2616: x_create_qty := l_create_qty;
2617: x_return_status := fnd_api.g_ret_sts_success;
2618:
2619: IF l_source_sub_atr IS NULL THEN
2620: l_source_sub_atr := -9999;
2621: END IF;
2642: print_debug('l_repl_level:'||l_repl_level);
2643: END IF;
2644:
2645: IF l_repl_level >= 4 THEN
2646: x_return_status := fnd_api.g_ret_sts_success;
2647: x_create_qty := 0;
2648: RETURN;
2649: END IF;
2650:
2665: print_debug('l_mo_source_sub:'||l_mo_source_sub);
2666: print_debug('l_mo_source_loc:'||l_mo_source_loc);
2667: END IF;
2668: IF ((l_create_qty <= 0) OR (l_mo_source_sub IS NULL)) THEN
2669: x_return_status := fnd_api.g_ret_sts_success;
2670: x_create_qty := 0;
2671: RETURN;
2672: END IF;
2673:
2699: ELSE
2700: IF (l_debug = 1) THEN
2701: print_debug('Error: Item detail not found');
2702: END IF;
2703: x_return_status := fnd_api.g_ret_sts_success;
2704: x_create_qty := 0;
2705: END IF; -- for inv_cache.set_item_rec
2706:
2707: IF (l_debug = 1) THEN
2716:
2717: inv_quantity_tree_pub.query_quantities
2718: (
2719: p_api_version_number => 1.0
2720: , p_init_msg_lst => fnd_api.g_false
2721: , x_return_status => l_return_status
2722: , x_msg_count => x_msg_count
2723: , x_msg_data => x_msg_data
2724: , p_organization_id => p_organization_id
2744:
2745: IF (l_debug = 1) THEN
2746: print_debug( 'Return status from QTY TREE:' ||x_return_status);
2747: END IF;
2748: IF l_return_status = fnd_api.g_ret_sts_success THEN
2749: x_source_sub_atr := l_source_sub_atr;
2750: ELSE
2751: l_source_sub_atr := 9999;
2752: END IF;
2754: IF (l_debug = 1) THEN
2755: print_debug( 'l_source_sub_atr is: '||l_source_sub_atr);
2756: END IF;
2757: IF l_source_sub_atr <= 0 THEN
2758: x_return_status := fnd_api.g_ret_sts_success;
2759: x_create_qty := l_create_qty;
2760: x_source_sub_atr := 0;
2761: RETURN;
2762: END IF;
2759: x_create_qty := l_create_qty;
2760: x_source_sub_atr := 0;
2761: RETURN;
2762: END IF;
2763: x_return_status := fnd_api.g_ret_sts_success;
2764: x_create_qty := 0;
2765: EXCEPTION
2766: WHEN OTHERS THEN
2767: x_return_status := fnd_api.g_ret_sts_success;
2763: x_return_status := fnd_api.g_ret_sts_success;
2764: x_create_qty := 0;
2765: EXCEPTION
2766: WHEN OTHERS THEN
2767: x_return_status := fnd_api.g_ret_sts_success;
2768: x_create_qty := 0;
2769: x_source_sub_atr := NULL;
2770: END;
2771: END check_for_next_level_repl;
2804: ORDER BY inventory_item_id, repl_to_subinventory_code;
2805:
2806: BEGIN
2807: l_org_id_tb.DELETE;
2808: l_return_status := fnd_api.g_ret_sts_success;
2809:
2810: IF (l_debug = 1) THEN
2811: print_debug('Inside API trigger_next_level_repl');
2812: END IF;
2816: FETCH c_distinct_org_id bulk collect INTO l_org_id_tb;
2817: CLOSE c_distinct_org_id;
2818: EXCEPTION
2819: WHEN OTHERS THEN
2820: x_return_status := fnd_api.g_ret_sts_error;
2821: DELETE FROM wms_repl_demand_gtmp WHERE repl_level = p_repl_level;
2822: IF (l_debug = 1) THEN
2823: print_debug('Exception getting orgs:'||p_repl_level);
2824: END IF;
2906:
2907: IF l_debug = 1 THEN
2908: print_debug('DONE WITH API trigger_next_level_repl');
2909: END IF;
2910: x_return_status := fnd_api.g_ret_sts_success;
2911:
2912: EXCEPTION
2913: WHEN OTHERS THEN
2914: IF l_debug = 1 THEN
2933:
2934: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2935: l_temp_cnt NUMBER; -- for debugging only
2936: l_repl_level NUMBER;
2937: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
2938:
2939: BEGIN
2940: x_return_status := l_return_status;
2941:
2955: x_consol_item_repl_tbl => P_consol_item_repl_tbl,
2956: x_return_status => l_return_status,
2957: x_msg_count => x_msg_count,
2958: x_msg_data => x_msg_data);
2959: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2960: x_return_status := fnd_api.g_ret_sts_error;
2961: RETURN;
2962: END IF;
2963: END IF;
2956: x_return_status => l_return_status,
2957: x_msg_count => x_msg_count,
2958: x_msg_data => x_msg_data);
2959: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2960: x_return_status := fnd_api.g_ret_sts_error;
2961: RETURN;
2962: END IF;
2963: END IF;
2964:
3014: x_consol_item_repl_tbl => P_consol_item_repl_tbl,
3015: x_return_status => l_return_status,
3016: x_msg_count => x_msg_count,
3017: x_msg_data => x_msg_data);
3018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3019: x_return_status := fnd_api.g_ret_sts_error;
3020: RETURN;
3021: END IF;
3022: END IF;
3015: x_return_status => l_return_status,
3016: x_msg_count => x_msg_count,
3017: x_msg_data => x_msg_data);
3018: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3019: x_return_status := fnd_api.g_ret_sts_error;
3020: RETURN;
3021: END IF;
3022: END IF;
3023:
3069: p_Plan_Tasks => p_Plan_Tasks,
3070: x_return_status => l_return_status,
3071: x_msg_count => x_msg_count,
3072: x_msg_data => x_msg_data);
3073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3074: x_return_status := fnd_api.g_ret_sts_error;
3075: RETURN;
3076: END IF;
3077:
3070: x_return_status => l_return_status,
3071: x_msg_count => x_msg_count,
3072: x_msg_data => x_msg_data);
3073: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3074: x_return_status := fnd_api.g_ret_sts_error;
3075: RETURN;
3076: END IF;
3077:
3078:
3122: IF l_debug = 1 THEN
3123: print_debug('PROCESS_REPLENISHMENT: Exception block: ' || sqlcode || ', ' || sqlerrm);
3124: END IF;
3125: --
3126: x_return_status := fnd_api.g_ret_sts_unexp_error;
3127: --
3128: END PROCESS_REPLENISHMENT;
3129:
3130:
3151: l_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3152: l_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3153: l_x_trohdr_rec INV_Move_Order_PUB.Trohdr_Rec_Type;
3154: l_x_trohdr_val_rec INV_Move_Order_PUB.Trohdr_Val_Rec_Type;
3155: l_commit VARCHAR2(1) := FND_API.G_TRUE;
3156:
3157: l_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3158: l_trolin_val_tbl INV_Move_Order_PUB.Trolin_Val_Tbl_Type;
3159: l_x_trolin_tbl INV_Move_Order_PUB.Trolin_Tbl_Type;
3299: l_trohdr_rec.status_date := sysdate;
3300: l_trohdr_rec.move_order_type := INV_GLOBALS.G_MOVE_ORDER_REPLENISHMENT;
3301: l_trohdr_rec.transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
3302: l_trohdr_rec.operation := INV_GLOBALS.G_OPR_CREATE;
3303: l_trohdr_rec.db_flag := FND_API.G_TRUE;
3304:
3305: -- Multi step change
3306: l_item_id_tb.DELETE;
3307: l_org_id_tb.DELETE;
3362: print_debug('CALLING INV_Move_Order_PUB.Create_Move_Order_Header');
3363: END IF;
3364:
3365: INV_Move_Order_PUB.Create_Move_Order_Header(p_api_version_number => 1.0,
3366: p_init_msg_list => FND_API.G_FALSE,
3367: p_return_values => FND_API.G_TRUE,
3368: p_commit => l_commit,
3369: x_return_status => l_return_status,
3370: x_msg_count => l_msg_count,
3363: END IF;
3364:
3365: INV_Move_Order_PUB.Create_Move_Order_Header(p_api_version_number => 1.0,
3366: p_init_msg_list => FND_API.G_FALSE,
3367: p_return_values => FND_API.G_TRUE,
3368: p_commit => l_commit,
3369: x_return_status => l_return_status,
3370: x_msg_count => l_msg_count,
3371: x_msg_data => l_msg_data,
3380: IF l_debug = 1 THEN
3381: print_debug('After Calling Create_Move_Order_Header');
3382: END IF;
3383:
3384: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3385: IF l_debug = 1 THEN
3386: print_debug('Creating MO Header failed with unexpected error returning message: ' ||
3387: l_msg_data);
3388: END IF;
3385: IF l_debug = 1 THEN
3386: print_debug('Creating MO Header failed with unexpected error returning message: ' ||
3387: l_msg_data);
3388: END IF;
3389: RAISE fnd_api.g_exc_unexpected_error;
3390: -- If cant create a common MOH, do no repl stuff
3391: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3392: IF l_debug = 1 THEN
3393: print_debug('Creating MO Header failed with expected error returning message: ' ||
3387: l_msg_data);
3388: END IF;
3389: RAISE fnd_api.g_exc_unexpected_error;
3390: -- If cant create a common MOH, do no repl stuff
3391: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3392: IF l_debug = 1 THEN
3393: print_debug('Creating MO Header failed with expected error returning message: ' ||
3394: l_msg_data);
3395: END IF;
3392: IF l_debug = 1 THEN
3393: print_debug('Creating MO Header failed with expected error returning message: ' ||
3394: l_msg_data);
3395: END IF;
3396: RAISE fnd_api.g_exc_error;
3397: -- If cant create a common MOH, do no repl stuff
3398: ELSE
3399: IF l_debug = 1 THEN
3400: print_debug('Creating MO Header returned success with MO Header Id: ' || l_x_trohdr_rec.header_id);
3417: IF l_debug = 1 THEN
3418: print_debug('Calling Get_Source_Sub_Dest_Loc_Info....');
3419: END IF;
3420: -- Get source sub and loc information for the repl MO, if available
3421: l_return_status := fnd_api.g_ret_sts_success;
3422: Get_Source_Sub_Dest_Loc_Info(p_Org_id => p_consol_item_repl_tbl(i).ORGANIZATION_ID,
3423: p_Item_id => p_consol_item_repl_tbl(i).Item_id,
3424: p_Picking_Sub => p_consol_item_repl_tbl(i).Repl_To_Subinventory_code,
3425: x_source_sub => l_src_sub,
3427: x_MAX_MINMAX_QUANTITY => l_MAX_MINMAX_QUANTITY,
3428: x_fixed_lot_multiple => l_fixed_lot_multiple,
3429: x_return_status => l_return_status);
3430:
3431: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3432: GOTO next_consol_rec;
3433: END IF;
3434:
3435: -- Final Replenishment Quantity = Maximum of min-max qty + Sum of
3625: l_trolin_tbl(l_order_count).to_subinventory_code := p_consol_item_repl_tbl(i).Repl_To_Subinventory_code;
3626: l_trolin_tbl(l_order_count).to_locator_id := NULL; -- Let Rule engine decide based ON avail_capacity
3627: l_trolin_tbl(l_order_count).transaction_source_type_id :=INV_GLOBALS.G_SOURCETYPE_MOVEORDER; -- 4
3628: l_trolin_tbl(l_order_count).transaction_type_id := INV_GLOBALS.G_TYPE_TRANSFER_ORDER_SUBXFR;
3629: l_trolin_tbl(l_order_count).db_flag := FND_API.G_TRUE;
3630: l_trolin_tbl(l_order_count).operation := INV_GLOBALS.G_OPR_CREATE;
3631:
3632:
3633: -- NO NEED TO CALL THIS API FOR EACH LINE. STORE ALL LINES FOR A
3633: -- NO NEED TO CALL THIS API FOR EACH LINE. STORE ALL LINES FOR A
3634: -- mo header IN THE l_trolin_tbl TABLE AND THEN CALL ONLY ONCE FOR
3635: -- PERFORMACE REASON. THEN FOR EACH MO LINE FROM THE SAME TABLE,
3636: -- CREATE RESERVATION FOR CORRESPONDING DEMAND LINES, IF NEEDED
3637: l_return_status := fnd_api.g_ret_sts_success;
3638: INV_Move_Order_PUB.Create_Move_Order_Lines(
3639: p_api_version_number => 1.0,
3640: p_init_msg_list => FND_API.G_FALSE,
3641: p_commit => l_commit,
3636: -- CREATE RESERVATION FOR CORRESPONDING DEMAND LINES, IF NEEDED
3637: l_return_status := fnd_api.g_ret_sts_success;
3638: INV_Move_Order_PUB.Create_Move_Order_Lines(
3639: p_api_version_number => 1.0,
3640: p_init_msg_list => FND_API.G_FALSE,
3641: p_commit => l_commit,
3642: x_return_status => l_return_status,
3643: x_msg_count => l_msg_count,
3644: x_msg_data => l_msg_data,
3652: IF L_DEBUG = 1 THEN
3653: print_debug('After call to INV_Move_Order_PUB.Create_Move_Order_Lines');
3654: END IF;
3655:
3656: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3657:
3658: IF L_DEBUG = 1 THEN
3659: print_debug('INV_Move_Order_PUB.Create_Move_Order_Lines failed with expected error returning message: ' || l_msg_data || l_msg_count);
3660: END IF;
3667: END IF;
3668: l_line_num := l_line_num - 1;
3669: l_trolin_tbl.DELETE(l_order_count);
3670: GOTO next_consol_rec;
3671: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3672: IF L_DEBUG= 1 THEN
3673: print_debug('INV_Move_Order_PUB.Create_Move_Order_Lines failed with unexpected error returning message: ' || l_msg_data);
3674: END IF;
3675:
3729: l_rsv_temp_rec.DEMAND_SOURCE_TYPE_ID := l_demand_type_id;
3730: l_rsv_temp_rec.DEMAND_SOURCE_HEADER_ID := l_demand_header_id;
3731: l_rsv_temp_rec.DEMAND_SOURCE_LINE_ID := l_demand_line_id;
3732:
3733: l_return_status := fnd_api.g_ret_sts_success;
3734: inv_reservation_pub.query_reservation(p_api_version_number =>1.0,
3735: x_return_status => l_return_status,
3736: x_msg_count => x_msg_count,
3737: x_msg_data => x_msg_data,
3739: x_mtl_reservation_tbl => l_rsv_rec,
3740: x_mtl_reservation_tbl_count => l_mtl_reservation_count,
3741: x_error_code => l_error_code);
3742:
3743: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
3744: IF L_DEBUG = 1 THEN
3745: PRINT_DEBUG('Number of reservations found: ' || l_mtl_reservation_count);
3746: END IF;
3747: ELSE
3759: -- Create high-level reservation
3760: IF L_DEBUG = 1 THEN
3761: PRINT_DEBUG('Calling Create_RSV >>>');
3762: END IF;
3763: l_return_status := fnd_api.g_ret_sts_success;
3764: Create_RSV(p_replenishment_type => 1, -- 1- Stock Up/Push; 2- Dynamic/Pull
3765: l_debug => l_debug,
3766: l_organization_id => p_consol_item_repl_tbl(i).ORGANIZATION_ID,
3767: l_inventory_item_id => p_consol_item_repl_tbl(i).item_id,
3789: x_msg_count => x_msg_count,
3790: x_msg_data => x_msg_data
3791: );
3792:
3793: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3794: IF (l_debug = 1) THEN
3795: print_debug('Error returned from create_reservation API: ' || l_return_status);
3796: END IF;
3797: l_line_num := l_line_num - 1;
3823: , p_repl_status => 'R' -- for completed status
3824: , x_return_status => l_return_status
3825: );
3826:
3827: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3828: l_line_num := l_line_num - 1;
3829: l_trolin_tbl.DELETE(l_order_count);
3830: GOTO next_consol_rec;
3831: END IF;
4034: END IF;
4035:
4036: WMS_Engine_PVT.create_suggestions(
4037: p_api_version => 1.0,
4038: p_init_msg_list => fnd_api.g_false,
4039: p_commit => fnd_api.g_false,
4040: p_validation_level => fnd_api.g_valid_level_none,
4041: x_return_status => l_return_status,
4042: x_msg_count => x_msg_count,
4035:
4036: WMS_Engine_PVT.create_suggestions(
4037: p_api_version => 1.0,
4038: p_init_msg_list => fnd_api.g_false,
4039: p_commit => fnd_api.g_false,
4040: p_validation_level => fnd_api.g_valid_level_none,
4041: x_return_status => l_return_status,
4042: x_msg_count => x_msg_count,
4043: x_msg_data => x_msg_data,
4036: WMS_Engine_PVT.create_suggestions(
4037: p_api_version => 1.0,
4038: p_init_msg_list => fnd_api.g_false,
4039: p_commit => fnd_api.g_false,
4040: p_validation_level => fnd_api.g_valid_level_none,
4041: x_return_status => l_return_status,
4042: x_msg_count => x_msg_count,
4043: x_msg_data => x_msg_data,
4044: p_transaction_temp_id => l_x_trolin_tbl(1).line_id,
4042: x_msg_count => x_msg_count,
4043: x_msg_data => x_msg_data,
4044: p_transaction_temp_id => l_x_trolin_tbl(1).line_id,
4045: p_reservations => l_rsv_tbl_tmp, --NULL value AS no rsv FOR repl MO
4046: p_suggest_serial => fnd_api.g_false,
4047: p_plan_tasks => l_plan_tasks);
4048:
4049: IF (l_debug = 1) THEN
4050: print_debug('after calling create_suggestions API');
4050: print_debug('after calling create_suggestions API');
4051: END IF;
4052:
4053:
4054: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4055: IF (l_debug = 1) THEN
4056: print_debug('Error returned from create_suggestions API: ' || l_return_status);
4057: END IF;
4058: -- even though it is failing
4060: -- it can be allocated later
4061: -- no reverting so passing success to go to next
4062: -- consol rec. Also should not do any next level
4063: -- stuff which this will help to skip.
4064: l_return_status := fnd_api.g_ret_sts_success;
4065: GOTO next_consol_rec;
4066:
4067:
4068: ELSE
4236: l_prev_org_id := p_consol_item_repl_tbl(i).ORGANIZATION_ID;
4237:
4238: END IF; -- IF p_consol_item_repl_tbl(i).final_replenishment_qty <= 0
4239: <
4240: IF l_return_status <> fnd_api.g_ret_sts_success then
4241: l_return_status := fnd_api.g_ret_sts_success;
4242: ROLLBACK TO current_mol_sp;
4243: -- if repl_type 2 and demand_type_id <> 4 then revert that WDD to original status
4244: -- remove all entries for that item from gtmp
4237:
4238: END IF; -- IF p_consol_item_repl_tbl(i).final_replenishment_qty <= 0
4239: <
4240: IF l_return_status <> fnd_api.g_ret_sts_success then
4241: l_return_status := fnd_api.g_ret_sts_success;
4242: ROLLBACK TO current_mol_sp;
4243: -- if repl_type 2 and demand_type_id <> 4 then revert that WDD to original status
4244: -- remove all entries for that item from gtmp
4245: -- both done in following API
4314: WHEN OTHERS THEN
4315: IF l_debug = 1 THEN
4316: print_debug('CREATE_REPL_MOVE_ORDER: Error creating move order: ' || sqlcode || ', ' || sqlerrm);
4317: END IF;
4318: x_return_status := fnd_api.g_ret_sts_error;
4319:
4320: END CREATE_REPL_MOVE_ORDER;
4321:
4322:
4388: -- For bulk delete from the WRDG table
4389: l_detail_id_delete_tab num_tab;
4390: l_del_index NUMBER;
4391:
4392: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
4393:
4394: CURSOR c_demand_lines_for_item(P_ORG_ID NUMBER, p_item_id number, p_fp_sub VARCHAR2) IS
4395: SELECT Repl_Sequence_id,
4396: demand_header_id,
4583: , p_repl_status => 'R' -- for completed status
4584: , x_return_status => l_return_status
4585: );
4586:
4587: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4588: GOTO next_record;
4589: END IF;
4590:
4591:
4613: x_mtl_reservation_tbl => l_rsv_rec,
4614: x_mtl_reservation_tbl_count => l_mtl_reservation_count,
4615: x_error_code => l_error_code);
4616:
4617: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
4618: IF (l_debug = 1) THEN
4619: PRINT_DEBUG('Number of reservations found: ' ||l_mtl_reservation_count);
4620: END IF;
4621:
4664: x_return_status => l_return_status,
4665: x_msg_count => x_msg_count,
4666: x_msg_data => x_msg_data);
4667:
4668: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4669: IF (l_debug = 1) THEN
4670:
4671: print_debug('Error returned from create_reservation API: ' ||
4672: l_return_status);
4740: <
4741: IF (l_debug = 1) THEN
4742: print_debug('At the end of current demand Available Open MO qty: '||L_mo_quantity);
4743: END IF;
4744: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4745: l_return_status := fnd_api.g_ret_sts_success;
4746: ROLLBACK TO current_demand_sp;
4747: END IF;
4748: END LOOP; -- for each demand line
4741: IF (l_debug = 1) THEN
4742: print_debug('At the end of current demand Available Open MO qty: '||L_mo_quantity);
4743: END IF;
4744: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4745: l_return_status := fnd_api.g_ret_sts_success;
4746: ROLLBACK TO current_demand_sp;
4747: END IF;
4748: END LOOP; -- for each demand line
4749: CLOSE c_demand_lines_for_item;
4852:
4853: IF (l_debug = 1) THEN
4854: print_debug('DONE WITH API - GET_OPEN_MO_QTY' );
4855: END IF;
4856: x_return_status := fnd_api.g_ret_sts_success;
4857: EXCEPTION
4858: WHEN OTHERS THEN
4859: x_return_status := fnd_api.g_ret_sts_error;
4860: IF c_demand_lines_for_item%ISOPEN THEN
4855: END IF;
4856: x_return_status := fnd_api.g_ret_sts_success;
4857: EXCEPTION
4858: WHEN OTHERS THEN
4859: x_return_status := fnd_api.g_ret_sts_error;
4860: IF c_demand_lines_for_item%ISOPEN THEN
4861: CLOSE c_demand_lines_for_item;
4862: END IF;
4863: IF c_open_mo_lines%ISOPEN THEN
4941: AND inventory_item_id = p_item_id
4942: AND repl_to_subinventory_code = p_fp_sub
4943: order by Repl_Sequence_id;
4944:
4945: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
4946: BEGIN
4947:
4948: x_return_status := l_return_status;
4949:
5024: ELSE
5025: IF (l_debug = 1) THEN
5026: print_debug('Error: Item detail not found');
5027: END IF;
5028: l_return_status := fnd_api.g_ret_sts_error;
5029: GOTO next_onhd_consol_rec;
5030: END IF; -- for inv_cache.set_item_rec
5031:
5032:
5042:
5043: inv_quantity_tree_pub.query_quantities
5044: (
5045: p_api_version_number => 1.0
5046: , p_init_msg_lst => fnd_api.g_false
5047: , x_return_status => l_return_status
5048: , x_msg_count => x_msg_count
5049: , x_msg_data => x_msg_data
5050: , p_organization_id => x_consol_item_repl_tbl(i).organization_id
5071: IF (l_debug = 1) THEN
5072: print_debug( 'Return status from QTY TREE:' ||l_return_status);
5073: print_debug( 'l_atr is: '||l_atr);
5074: END IF;
5075: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5076: GOTO next_onhd_consol_rec;
5077: END IF;
5078: -- Store the demand line for which the qty tree was called
5079: l_qty_tree_demand_line_id := l_demand_line_id;
5133: x_mtl_reservation_tbl => l_rsv_rec,
5134: x_mtl_reservation_tbl_count => l_mtl_reservation_count,
5135: x_error_code => l_error_code);
5136:
5137: IF l_RETURN_status = fnd_api.g_ret_sts_success THEN
5138: IF (l_debug = 1) THEN
5139: PRINT_DEBUG('*****Number of reservations found: ' ||l_mtl_reservation_count);
5140: END IF;
5141:
5176: -- means mixed level of rsv, we will rather CREATE NEW replenishment
5177: -- We will not account for these rsv in this case
5178: -- Since we need to skip to next demand and
5179: -- behave as if this demand is in error
5180: l_return_status := fnd_api.g_ret_sts_error;
5181: GOTO next_dmd_record;
5182: END IF;
5183:
5184: END IF;
5207: , p_repl_status => 'C' -- for completed status
5208: , x_return_status => l_return_status
5209: );
5210:
5211: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5212: GOTO next_dmd_record;
5213: END IF;
5214:
5215:
5271: , p_repl_status => 'C' -- for completed status
5272: , x_return_status => l_return_status
5273: );
5274:
5275: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5276: GOTO next_dmd_record;
5277: END IF;
5278:
5279: IF (l_debug = 1) THEN
5314: ELSE -- menas detailed at other sub
5315: -- SKIP current demand line assuming it will be fulfilled up by other sub
5316: -- Since we need to skip to next demand and
5317: -- behave as if this demand is in error
5318: l_return_status := fnd_api.g_ret_sts_error;
5319: GOTO next_dmd_record;
5320: END IF;
5321:
5322:
5334: print_debug('p_Create_Rsv is Y and qty available - Creating detailed rsv AT FP sub' );
5335: END IF;
5336:
5337: --TEST: CALL Create_RSV() API to create reservation AT DETAILED LEVEL to this sub
5338: l_return_status := fnd_api.g_ret_sts_success;
5339: Create_RSV(p_replenishment_type => 1, -- 1- Stock Up/Push; 2- Dynamic/Pull
5340: l_debug => l_debug,
5341: l_organization_id => x_consol_item_repl_tbl(i).ORGANIZATION_ID,
5342: l_inventory_item_id => x_consol_item_repl_tbl(i).item_id,
5365: x_msg_count => x_msg_count,
5366: x_msg_data => x_msg_data
5367: );
5368:
5369: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5370: IF (l_debug = 1) THEN
5371: print_debug('Error returned from create_reservation API: ' || l_return_status);
5372: END IF;
5373: -- Proceed to next record. In this case we might have extra amount on MOL than rsv
5403: , p_repl_status => 'C' -- for completed status
5404: , x_return_status => l_return_status
5405: );
5406:
5407: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5408: GOTO next_dmd_record;
5409: END IF;
5410:
5411: END IF; -- FOR IF l_repl_status <> 'C'
5517: l_prev_item_id := x_consol_item_repl_tbl(i).item_id;
5518: l_prev_sub_code := x_consol_item_repl_tbl(i).repl_to_subinventory_code;
5519: print_debug( 'l_atr AT THE END OF CURRENT DEMAND LINE: '||l_atr);
5520:
5521: IF l_return_status <> fnd_api.g_ret_sts_success THEN
5522: IF (l_debug = 1 ) THEN
5523: print_debug('Move to next demand record ignoring this one');
5524: END IF;
5525: ROLLBACK TO onhd_demand_line_sp;
5522: IF (l_debug = 1 ) THEN
5523: print_debug('Move to next demand record ignoring this one');
5524: END IF;
5525: ROLLBACK TO onhd_demand_line_sp;
5526: l_return_status := fnd_api.g_ret_sts_success;
5527: x_consol_item_repl_tbl(i).total_demand_qty :=
5528: x_consol_item_repl_tbl(i).total_demand_qty - l_demand_quantity_in_repl_uom;
5529:
5530: -- For pull and demand_type_id<>4, Backorder the WDD
5567: := (x_consol_item_repl_tbl(i).total_demand_qty - x_consol_item_repl_tbl(i).available_onhand_qty);
5568:
5569: --Note: the final replenishment qty will be upp by the p_Repl_Lot_Size in Create_repl_Move_order() API
5570: <
5571: IF l_return_status <> fnd_api.g_ret_sts_success then
5572: l_return_status := fnd_api.g_ret_sts_success;
5573: ROLLBACK TO onhd_consol_rec_sp;
5574: -- if repl_type 2 and demand_type_id <> 4 then revert that WDD to original status
5575: -- remove all entries for that item from gtmp
5568:
5569: --Note: the final replenishment qty will be upp by the p_Repl_Lot_Size in Create_repl_Move_order() API
5570: <
5571: IF l_return_status <> fnd_api.g_ret_sts_success then
5572: l_return_status := fnd_api.g_ret_sts_success;
5573: ROLLBACK TO onhd_consol_rec_sp;
5574: -- if repl_type 2 and demand_type_id <> 4 then revert that WDD to original status
5575: -- remove all entries for that item from gtmp
5576: -- both done in following API
5604:
5605: IF (l_debug = 1 ) THEN
5606: print_debug('DONE WITH GET_AVAILABLE_ONHAND_QTY API');
5607: END IF;
5608: x_return_status := fnd_api.g_ret_sts_success;
5609: EXCEPTION
5610: WHEN OTHERS THEN
5611: IF c_demand_lines_for_item%ISOPEN THEN
5612: CLOSE c_demand_lines_for_item;
5613: END IF;
5614: IF (l_debug = 1) THEN
5615: print_debug('Error in GET_AVAILABLE_ONHAND_QTY SQLCODE:'||SQLCODE ||' '||SQLERRM );
5616: END IF;
5617: x_return_status := fnd_api.g_ret_sts_error;
5618: END GET_AVAILABLE_ONHAND_QTY;
5619:
5620:
5621:
5745: print_debug('Call the create_reservation API to create the replenishemnt reservation');
5746: END IF;
5747:
5748: INV_RESERVATION_PVT.create_reservation(p_api_version_number => 1.0,
5749: p_init_msg_lst => fnd_api.g_false,
5750: x_return_status => x_return_status,
5751: x_msg_count => x_msg_count,
5752: x_msg_data => x_msg_data,
5753: p_rsv_rec => l_rsv_rec,
5752: x_msg_data => x_msg_data,
5753: p_rsv_rec => l_rsv_rec,
5754: p_serial_number => l_serial_number,
5755: x_serial_number => l_to_serial_number,
5756: p_partial_reservation_flag => fnd_api.g_false,
5757: p_force_reservation_flag => fnd_api.g_false,
5758: p_validation_flag => fnd_api.g_true,
5759: x_quantity_reserved => l_quantity_reserved,
5760: x_secondary_quantity_reserved => l_quantity_reserved2,
5753: p_rsv_rec => l_rsv_rec,
5754: p_serial_number => l_serial_number,
5755: x_serial_number => l_to_serial_number,
5756: p_partial_reservation_flag => fnd_api.g_false,
5757: p_force_reservation_flag => fnd_api.g_false,
5758: p_validation_flag => fnd_api.g_true,
5759: x_quantity_reserved => l_quantity_reserved,
5760: x_secondary_quantity_reserved => l_quantity_reserved2,
5761: x_reservation_id => l_rsv_id);
5754: p_serial_number => l_serial_number,
5755: x_serial_number => l_to_serial_number,
5756: p_partial_reservation_flag => fnd_api.g_false,
5757: p_force_reservation_flag => fnd_api.g_false,
5758: p_validation_flag => fnd_api.g_true,
5759: x_quantity_reserved => l_quantity_reserved,
5760: x_secondary_quantity_reserved => l_quantity_reserved2,
5761: x_reservation_id => l_rsv_id);
5762:
5759: x_quantity_reserved => l_quantity_reserved,
5760: x_secondary_quantity_reserved => l_quantity_reserved2,
5761: x_reservation_id => l_rsv_id);
5762:
5763: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5764: IF (l_debug = 1) THEN
5765:
5766: print_debug('Error returned from INV create_reservation API: ' ||
5767: x_return_status);
5766: print_debug('Error returned from INV create_reservation API: ' ||
5767: x_return_status);
5768: END IF;
5769: -- Raise an exception. The caller will do the rollback, cleanups,
5770: RAISE FND_API.G_EXC_ERROR;
5771:
5772: END IF;
5773:
5774: l_progress := '20';
5774: l_progress := '20';
5775:
5776: EXCEPTION
5777: WHEN OTHERS THEN
5778: x_return_status := fnd_api.g_ret_sts_error;
5779: fnd_msg_pub.count_and_get(p_count => x_msg_count,
5780: p_data => x_msg_data);
5781: IF (l_debug = 1) THEN
5782: print_debug('Exiting Create_RSV - Execution error: ' || l_progress || ' ' ||
6523: l_date_required_tb date_tab;
6524:
6525: l_temp_cnt NUMBER; -- removei t
6526:
6527: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
6528: l_revert_wdd BOOLEAN := FALSE;
6529:
6530: l_bkorder_cnt NUMBER;
6531: BEGIN
6554:
6555: IF (l_debug = 1) THEN
6556: print_debug('Status after calling init_rules'||l_return_status);
6557: END IF;
6558: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6559: GOTO end_populate;
6560: END IF;
6561:
6562:
6599: WHEN OTHERS THEN
6600: IF (l_debug = 1) THEN
6601: print_debug('Exception retrieving open repl demand records');
6602: END IF;
6603: l_return_status := fnd_api.g_ret_sts_error;
6604: GOTO end_populate;
6605: END;
6606:
6607: select pick_from_subinventory INTO l_PR_sub
6722: l_quantity_in_repl_uom_tb.DELETE(j);
6723: l_repl_uom_code_tb.DELETE(j);
6724:
6725:
6726: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6727: -- if we are unable to revert a WDD, we should
6728: -- essentially revery everything back
6729: -- as if could not do anything in populating
6730: l_item_id_tb.DELETE;
6739: l_released_status_tb.DELETE;
6740: l_repl_to_sub_code_tb.DELETE;
6741: l_quantity_in_repl_uom_tb.DELETE;
6742: l_repl_uom_code_tb.DELETE;
6743: l_return_status := fnd_api.g_ret_sts_error;
6744: GOTO end_populate;
6745: END IF;
6746: END IF; -- IF (l_revert_wdd) THEN
6747: END LOOP; -- FOR j IN 1..l_delivery_detail_id_tb.COUNT LOOP
6826: WHEN OTHERS THEN
6827: IF (l_debug = 1) THEN
6828: print_debug('Exception retrieving item repl records for Dynamic');
6829: END IF;
6830: l_return_status := fnd_api.g_ret_sts_error;
6831: GOTO end_populate;
6832: END;
6833:
6834: --Clear consolidated table
6868: IF l_debug = 1 THEN
6869: print_debug('Return Status after call to ADJUST_ATR_FOR_ITEM :'|| l_return_status);
6870: END IF;
6871:
6872: IF l_return_status <> FND_API.g_ret_sts_success THEN
6873: -- All error out
6874: GOTO end_populate;
6875: END IF;
6876: END IF;
6876: END IF;
6877:
6878:
6879: <
6880: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6881: -- Raising excetion so that will call revert of WDD status for all WDDs
6882: -- in the DYNAMIC_REPLENISHMENT api
6883: RAISE fnd_api.g_exc_unexpected_error;
6884: END IF;
6879: <
6880: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6881: -- Raising excetion so that will call revert of WDD status for all WDDs
6882: -- in the DYNAMIC_REPLENISHMENT api
6883: RAISE fnd_api.g_exc_unexpected_error;
6884: END IF;
6885:
6886: x_return_status := FND_API.G_RET_STS_SUCCESS;
6887: IF l_debug = 1 THEN
6882: -- in the DYNAMIC_REPLENISHMENT api
6883: RAISE fnd_api.g_exc_unexpected_error;
6884: END IF;
6885:
6886: x_return_status := FND_API.G_RET_STS_SUCCESS;
6887: IF l_debug = 1 THEN
6888: print_debug('DONE WITH API POPULATE_DYNAMIC_REPL_DEMAND');
6889: END IF;
6890:
6893: IF l_debug = 1 THEN
6894: print_debug('Exception in POPULATE_DYNAMIC_REPL_DEMAND: ' || sqlcode || ', ' || sqlerrm);
6895: END IF;
6896: ROLLBACK TO populate_dyn_demand_sp;
6897: x_return_status := fnd_api.g_ret_sts_error;
6898: x_consol_item_repl_tbl.DELETE;
6899: END POPULATE_DYNAMIC_REPL_DEMAND;
6900:
6901:
7257: END IF;
7258:
7259: WMS_Engine_PVT.create_suggestions(
7260: p_api_version => 1.0,
7261: p_init_msg_list => fnd_api.g_false,
7262: p_commit => fnd_api.g_false,
7263: p_validation_level => fnd_api.g_valid_level_none,
7264: x_return_status => l_return_status,
7265: x_msg_count => l_msg_count,
7258:
7259: WMS_Engine_PVT.create_suggestions(
7260: p_api_version => 1.0,
7261: p_init_msg_list => fnd_api.g_false,
7262: p_commit => fnd_api.g_false,
7263: p_validation_level => fnd_api.g_valid_level_none,
7264: x_return_status => l_return_status,
7265: x_msg_count => l_msg_count,
7266: x_msg_data => l_msg_data,
7259: WMS_Engine_PVT.create_suggestions(
7260: p_api_version => 1.0,
7261: p_init_msg_list => fnd_api.g_false,
7262: p_commit => fnd_api.g_false,
7263: p_validation_level => fnd_api.g_valid_level_none,
7264: x_return_status => l_return_status,
7265: x_msg_count => l_msg_count,
7266: x_msg_data => l_msg_data,
7267: p_transaction_temp_id => l_open_repl_mo.line_id,
7265: x_msg_count => l_msg_count,
7266: x_msg_data => l_msg_data,
7267: p_transaction_temp_id => l_open_repl_mo.line_id,
7268: p_reservations => l_rsv_tbl_tmp, --NULL value AS no rsv FOR repl MO
7269: p_suggest_serial => fnd_api.g_false,
7270: p_plan_tasks => FALSE);
7271:
7272:
7273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7269: p_suggest_serial => fnd_api.g_false,
7270: p_plan_tasks => FALSE);
7271:
7272:
7273: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
7274: IF (l_debug = 1) THEN
7275: print_debug('Error returned from create_suggestions API: '
7276: || l_return_status);
7277: END IF;
7278:
7279: -- If an exception occurs while modifying a database record, rollback the changes
7280: -- and raise exception. Should we proceed to next record
7281: ROLLBACK TO Current_MOL_SP;
7282: RAISE fnd_api.g_exc_error;
7283: ELSE
7284:
7285: IF (l_debug = 1) THEN
7286: print_debug('Success returned from create_suggestions API');
7411: END LOOP; -- For each REPL MO line under consideration
7412:
7413:
7414: COMMIT;
7415: x_return_status := FND_API.G_RET_STS_SUCCESS;
7416:
7417: EXCEPTION
7418: WHEN OTHERS THEN
7419: IF l_debug = 1 THEN
7418: WHEN OTHERS THEN
7419: IF l_debug = 1 THEN
7420: print_debug('Exception in ALLOCATE_REPL_MOVE_ORDER: ' || sqlcode || ', ' || sqlerrm);
7421: END IF;
7422: x_return_status := FND_API.G_RET_STS_ERROR;
7423: END ALLOCATE_REPL_MOVE_ORDER;
7424:
7425:
7426: PROCEDURE UPDATE_DELIVERY_DETAIL (
7575: END IF; -- FOR l_orig_pri_qty <> -9999
7576:
7577: END IF; -- MEANS DELIVERY IS SPLIT
7578:
7579: x_return_status := FND_API.G_RET_STS_SUCCESS;
7580: EXCEPTION
7581: WHEN OTHERS THEN
7582: IF l_debug = 1 THEN
7583: print_debug('Exception in update_delivery_detail: ' || sqlcode || ', ' || sqlerrm);