[Home] [Help]
23: -- Function : This API is called from WSH_PICKING_BATCHES_PUB
24: -- to validate all the parameters and create the Picking Batch
25: --
26: -- PARAMETERS : p_api_version_number known api versionerror buffer
27: -- p_init_msg_list FND_API.G_TRUE to reset list
28: -- x_return_status return status
29: -- x_msg_count number of messages in the list
30: -- x_msg_data text of messages
31: -- p_commit FND_API.G_TRUE to perform a commit
27: -- p_init_msg_list FND_API.G_TRUE to reset list
28: -- x_return_status return status
29: -- x_msg_count number of messages in the list
30: -- x_msg_data text of messages
31: -- p_commit FND_API.G_TRUE to perform a commit
32: -- p_rule_id Picking Rule Id used for defaulting purpose
33: -- p_rule_name Picking Rule name used for defaulting purpose, Ignore it when p_rule_id
34: -- contains value
35: -- p_batch_rec Contains the all the parameters for the batch
262: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
263: --}
264: END IF;
265:
266: IF NOT fnd_api.compatible_api_call(
267: l_api_version,
268: p_api_version_number,
269: l_api_name,
270: g_pkg_name) THEN
267: l_api_version,
268: p_api_version_number,
269: l_api_name,
270: g_pkg_name) THEN
271: RAISE fnd_api.g_exc_unexpected_error;
272: END IF;
273: -- Check p_init_msg_list
274: IF fnd_api.to_boolean(p_init_msg_list) THEN
275: --{
270: g_pkg_name) THEN
271: RAISE fnd_api.g_exc_unexpected_error;
272: END IF;
273: -- Check p_init_msg_list
274: IF fnd_api.to_boolean(p_init_msg_list) THEN
275: --{
276: fnd_msg_pub.initialize;
277: --}
278: END IF;
293: wsh_debug_sv.log(l_module_name,'PROCESSING THE RULE INFORMATION'|| ' P_RULE_ID : ' || TO_CHAR( l_rule_id ) || ' P_RULE_NAME: '|| l_rule_name);
294: --}
295: END IF;
296: --
297: IF ( l_rule_id is NOT NULL AND l_rule_id <> FND_API.G_MISS_NUM ) OR ( l_rule_name is NOT NULL AND l_rule_name <> FND_API.G_MISS_CHAR ) THEN
298: --{ Passed the Values or Not
299: IF ( l_rule_id = FND_API.G_MISS_NUM ) THEN
300: --{
301: l_rule_id := NULL;
295: END IF;
296: --
297: IF ( l_rule_id is NOT NULL AND l_rule_id <> FND_API.G_MISS_NUM ) OR ( l_rule_name is NOT NULL AND l_rule_name <> FND_API.G_MISS_CHAR ) THEN
298: --{ Passed the Values or Not
299: IF ( l_rule_id = FND_API.G_MISS_NUM ) THEN
300: --{
301: l_rule_id := NULL;
302: --}
303: END IF;
300: --{
301: l_rule_id := NULL;
302: --}
303: END IF;
304: IF ( l_rule_name = FND_API.G_MISS_CHAR ) OR ( l_rule_id IS NOT NULL) THEN
305: --{
306: l_rule_name := NULL;
307: --}
308: END IF;
395: -- VALIDATE ALL THE INPUT PARAMETER VALUES
396: -- LOGIC followed
397: -- If Parameter value is NULL then treat it as NOT PASSED to the API
398: -- (*** In this case consider the value from the picking rule info if picking rule info provided)
399: -- If the parameter value is FND_API.G_MISS.xxx then treat it as NULL
400: -- Otherwise Validate the parameter value.
401: ------------------------------------------------------------------------------------------------------------
402:
403: -- Validating the Back Order Only Flag
402:
403: -- Validating the Back Order Only Flag
404: IF ( l_batch_in_rec.Backorders_Only_Flag IS NOT NULL ) THEN
405: --{ Passed the Values or Not
406: IF (l_batch_in_rec.Backorders_Only_Flag <> FND_API.G_MISS_CHAR ) THEN
407: --{ Checking value is null or not
408: -- BUG # 6719369 (Rplenishment project); Need to consider the
409: -- 'replenishment completed' status.
410: IF ( l_batch_in_rec.Backorders_Only_Flag NOT IN ('I','E','O','M') ) THEN
432: IF (WMS_DEPLOY.WMS_DEPLOYMENT_MODE = 'L') THEN
433: --{
434: IF ( ( l_batch_in_rec.client_Id IS NOT NULL ) OR ( l_batch_in_rec.client_code IS NOT NULL )) THEN
435: --{ Passed the Values or Not
436: IF l_batch_in_rec.client_Id = FND_API.G_MISS_NUM THEN
437: --{
438: l_batch_in_rec.client_Id := NULL;
439: --}
440: END IF;
437: --{
438: l_batch_in_rec.client_Id := NULL;
439: --}
440: END IF;
441: IF l_batch_in_rec.client_code = FND_API.G_MISS_CHAR THEN
442: --{
443: l_batch_in_rec.client_code := NULL;
444: --}
445: END IF;
478: --
479: --- Organization Validations
480: IF ( ( l_batch_in_rec.Organization_Id IS NOT NULL ) OR ( l_batch_in_rec.Organization_Code IS NOT NULL ) ) THEN
481: --{ Passed the Values or Not
482: IF ( l_batch_in_rec.Organization_Id = FND_API.G_MISS_NUM ) THEN
483: --{
484: l_batch_in_rec.Organization_Id := NULL;
485: --}
486: END IF;
484: l_batch_in_rec.Organization_Id := NULL;
485: --}
486: END IF;
487:
488: IF ( l_batch_in_rec.Organization_Code = FND_API.G_MISS_CHAR ) THEN
489: --{
490: l_batch_in_rec.Organization_Code := NULL;
491: --}
492: END IF;
555: --- Document Set Validations
556:
557: IF ( ( l_batch_in_rec.Document_Set_Id IS NOT NULL ) OR ( l_batch_in_rec.Document_Set_Name IS NOT NULL )) THEN
558: --{ Passed the Values or Not
559: IF ( l_batch_in_rec.Document_Set_Id = FND_API.G_MISS_NUM ) THEN
560: --{
561: l_batch_in_rec.Document_Set_id := NULL;
562: --}
563: END IF;
560: --{
561: l_batch_in_rec.Document_Set_id := NULL;
562: --}
563: END IF;
564: IF ( l_batch_in_rec.Document_Set_Name = FND_API.G_MISS_CHAR) THEN
565: --{
566: l_batch_in_rec.Document_Set_name := NULL;
567: --}
568: END IF;
603: -- Ship Method Validations
604:
605: IF ( ( l_batch_in_rec.Ship_Method_Code IS NOT NULL ) OR ( l_batch_in_rec.Ship_Method_Name IS NOT NULL )) THEN
606: --{ Passed the Values or Not
607: IF ( l_batch_in_rec.Ship_Method_Code = FND_API.G_MISS_CHAR ) THEN
608: --{
609: l_batch_in_rec.Ship_Method_Code := NULL;
610: --}
611: END IF;
608: --{
609: l_batch_in_rec.Ship_Method_Code := NULL;
610: --}
611: END IF;
612: IF ( l_batch_in_rec.Ship_Method_Name = FND_API.G_MISS_CHAR ) THEN
613: --{
614: l_batch_in_rec.Ship_Method_Name := NULL;
615: --}
616: END IF;
651: --- Customer Validations
652:
653: IF ( ( l_batch_in_rec.Customer_Id IS NOT NULL ) OR ( l_batch_in_rec.Customer_Number IS NOT NULL )) THEN
654: --{ Passed the Values or Not
655: IF l_batch_in_rec.Customer_Id = FND_API.G_MISS_NUM THEN
656: --{
657: l_batch_in_rec.Customer_Id := NULL;
658: --}
659: END IF;
656: --{
657: l_batch_in_rec.Customer_Id := NULL;
658: --}
659: END IF;
660: IF l_batch_in_rec.Customer_Number = FND_API.G_MISS_CHAR THEN
661: --{
662: l_batch_in_rec.Customer_Number := NULL;
663: --}
664: END IF;
699: -- Order Type Validations
700:
701: IF ( ( l_batch_in_rec.Order_Type_Id IS NOT NULL ) OR ( l_batch_in_rec.Order_Type_Name IS NOT NULL )) THEN
702: --{ Passed the Values or Not
703: IF ( l_batch_in_rec.Order_Type_Id = FND_API.G_MISS_NUM ) THEN
704: --{
705: l_batch_in_rec.Order_Type_Id := NULL;
706: --}
707: END IF;
704: --{
705: l_batch_in_rec.Order_Type_Id := NULL;
706: --}
707: END IF;
708: IF ( l_batch_in_rec.Order_Type_Name = FND_API.G_MISS_CHAR ) THEN
709: --{
710: l_batch_in_rec.Order_Type_Name := NULL;
711: --}
712: END IF;
739: -- Order Number Validations
740:
741: IF ( ( l_batch_in_rec.order_header_id IS NOT NULL ) OR ( l_batch_in_rec.order_number IS NOT NULL )) THEN
742: --{ Passed the Values or Not
743: IF ( l_batch_in_rec.order_header_id = FND_API.G_MISS_NUM ) THEN
744: --{
745: l_batch_in_rec.order_header_id := NULL;
746: --}
747: END IF;
744: --{
745: l_batch_in_rec.order_header_id := NULL;
746: --}
747: END IF;
748: IF ( l_batch_in_rec.order_number = FND_API.G_MISS_NUM ) OR ( l_batch_in_rec.order_header_id IS NOT NULL ) THEN
749: --{
750: l_batch_in_rec.order_number := NULL;
751: --}
752: END IF;
787: -- Ship Set Number Validations
788:
789: IF ( ( l_batch_in_rec.ship_set_id IS NOT NULL ) OR ( l_batch_in_rec.ship_set_number IS NOT NULL )) THEN
790: --{ Passed the Values or Not
791: IF ( l_batch_in_rec.ship_set_id = FND_API.G_MISS_NUM ) THEN
792: --{
793: l_batch_in_rec.ship_set_id := NULL;
794: --}
795: END IF;
792: --{
793: l_batch_in_rec.ship_set_id := NULL;
794: --}
795: END IF;
796: IF ( ( l_batch_in_rec.ship_set_number = FND_API.G_MISS_CHAR ) OR ( l_batch_in_rec.ship_set_id IS NOT NULL ) ) THEN
797: --{
798: l_batch_in_rec.ship_set_number := NULL;
799: --}
800: END IF;
835: --- Ship To Location Validations
836: IF l_batch_grp_rec.Customer_Id IS NOT NULL THEN --Bug# 3480908 - Ignore Ship_To if customer not provided
837: IF ( ( l_batch_in_rec.Ship_To_Location_Id IS NOT NULL ) OR ( l_batch_in_rec.Ship_To_Location_code IS NOT NULL ) ) THEN
838: --{ Passed the Values or Not
839: IF ( l_batch_in_rec.Ship_To_Location_Id = FND_API.G_MISS_NUM ) THEN
840: --{
841: l_batch_in_rec.Ship_To_Location_Id := NULL;
842: --}
843: END IF;
840: --{
841: l_batch_in_rec.Ship_To_Location_Id := NULL;
842: --}
843: END IF;
844: IF ( l_batch_in_rec.Ship_To_Location_code = FND_API.G_MISS_CHAR) THEN
845: --{
846: l_batch_in_rec.Ship_To_Location_code := NULL;
847: --}
848: END IF;
887: --- Ship From Location Validations
888:
889: IF ( ( l_batch_in_rec.Ship_From_Location_Id IS NOT NULL ) OR ( l_batch_in_rec.Ship_From_Location_code IS NOT NULL ) ) THEN
890: --{ Passed the Values or Not
891: IF ( l_batch_in_rec.Ship_From_Location_Id = FND_API.G_MISS_NUM ) THEN
892: --{
893: l_batch_in_rec.Ship_From_Location_Id := NULL;
894: --}
895: END IF;
892: --{
893: l_batch_in_rec.Ship_From_Location_Id := NULL;
894: --}
895: END IF;
896: IF ( l_batch_in_rec.Ship_From_Location_code = FND_API.G_MISS_CHAR) THEN
897: --{
898: l_batch_in_rec.Ship_From_Location_code := NULL;
899: --}
900: END IF;
941: --- Trip Validations
942:
943: IF ( ( l_batch_in_rec.Trip_Id IS NOT NULL ) OR ( l_batch_in_rec.Trip_Name IS NOT NULL ) ) THEN
944: --{ Passed the Values or Not
945: IF ( l_batch_in_rec.Trip_Id = FND_API.G_MISS_NUM ) THEN
946: --{
947: l_batch_in_rec.Trip_Id := NULL;
948: --}
949: END IF;
946: --{
947: l_batch_in_rec.Trip_Id := NULL;
948: --}
949: END IF;
950: IF ( l_batch_in_rec.Trip_name = FND_API.G_MISS_CHAR) THEN
951: --{
952: l_batch_in_rec.Trip_name := NULL;
953: --}
954: END IF;
990: -- Delivery Validations
991:
992: IF ( ( l_batch_in_rec.Delivery_Id IS NOT NULL ) OR ( l_batch_in_rec.Delivery_Name IS NOT NULL ) ) THEN
993: --{ Passed the Values or Not
994: IF ( l_batch_in_rec.Delivery_Id = FND_API.G_MISS_NUM ) THEN
995: --{
996: l_batch_in_rec.Delivery_Id := NULL;
997: --}
998: END IF;
995: --{
996: l_batch_in_rec.Delivery_Id := NULL;
997: --}
998: END IF;
999: IF ( l_batch_in_rec.Delivery_Name = FND_API.G_MISS_CHAR) THEN
1000: --{
1001: l_batch_in_rec.Delivery_name := NULL;
1002: --}
1003: END IF;
1052: IF ( l_batch_grp_rec.trip_id IS NOT NULL ) THEN
1053: --{
1054: IF ( ( l_batch_in_rec.Trip_Stop_Id IS NOT NULL ) OR ( l_batch_in_rec.trip_stop_location_id IS NOT NULL ) ) THEN
1055: --{ Passed the Values or Not
1056: IF ( l_batch_in_rec.Trip_Stop_Id = FND_API.G_MISS_NUM ) THEN
1057: --{
1058: l_batch_in_rec.Trip_Stop_Id := NULL;
1059: --}
1060: END IF;
1057: --{
1058: l_batch_in_rec.Trip_Stop_Id := NULL;
1059: --}
1060: END IF;
1061: IF ( l_batch_in_rec.trip_stop_location_id = FND_API.G_MISS_NUM ) THEN
1062: --{
1063: l_batch_in_rec.trip_stop_location_id := NULL;
1064: --}
1065: END IF;
1106: -- Pick_Grouping_Rule_Id Validations
1107:
1108: IF ( ( l_batch_in_rec.pick_grouping_rule_Id IS NOT NULL ) OR ( l_batch_in_rec.pick_grouping_rule_Name IS NOT NULL ) ) THEN
1109: --{ Passed the Values or Not
1110: IF ( l_batch_in_rec.pick_grouping_rule_Id = FND_API.G_MISS_NUM ) THEN
1111: --{
1112: l_batch_in_rec.pick_grouping_rule_Id := NULL;
1113: --}
1114: END IF;
1111: --{
1112: l_batch_in_rec.pick_grouping_rule_Id := NULL;
1113: --}
1114: END IF;
1115: IF ( l_batch_in_rec.pick_grouping_rule_Name = FND_API.G_MISS_CHAR) THEN
1116: --{
1117: l_batch_in_rec.pick_grouping_rule_name := NULL;
1118: --}
1119: END IF;
1155: -- Pick_Sequence_Rule_Id Validations
1156:
1157: IF ( ( l_batch_in_rec.pick_sequence_rule_Id IS NOT NULL ) OR ( l_batch_in_rec.pick_sequence_rule_Name IS NOT NULL ) ) THEN
1158: --{ Passed the Values or Not
1159: IF ( l_batch_in_rec.pick_sequence_rule_Id = FND_API.G_MISS_NUM ) THEN
1160: --{
1161: l_batch_in_rec.pick_sequence_rule_Id := NULL;
1162: --}
1163: END IF;
1160: --{
1161: l_batch_in_rec.pick_sequence_rule_Id := NULL;
1162: --}
1163: END IF;
1164: IF ( l_batch_in_rec.pick_sequence_rule_name = FND_API.G_MISS_CHAR) THEN
1165: --{
1166: l_batch_in_rec.pick_sequence_rule_name := NULL;
1167: --}
1168: END IF;
1203:
1204: -- Bug 3463315 Append_Flag validation
1205:
1206: IF ( l_batch_in_rec.autocreate_delivery_flag IS NOT NULL ) THEN
1207: IF ( l_batch_in_rec.autocreate_delivery_flag = FND_API.G_MISS_CHAR ) THEN
1208: l_batch_in_rec.autocreate_delivery_flag := NULL;
1209: END IF;
1210:
1211: IF (l_batch_in_rec.autocreate_delivery_flag IS NOT NULL) THEN
1224: END IF;
1225: -- Bug# 3480908 - End
1226:
1227: IF ( l_batch_in_rec.ac_delivery_criteria IS NOT NULL ) THEN
1228: IF ( l_batch_in_rec.ac_delivery_criteria = FND_API.G_MISS_CHAR ) THEN
1229: l_batch_in_rec.ac_delivery_criteria := NULL;
1230: END IF;
1231:
1232: IF (l_batch_in_rec.ac_delivery_criteria IS NOT NULL) THEN
1241: -- Ship_Confirm_Rule_Id Validations
1242:
1243: IF ( ( l_batch_in_rec.ship_confirm_rule_Id IS NOT NULL ) OR ( l_batch_in_rec.ship_confirm_rule_Name IS NOT NULL ) ) THEN
1244: --{ Passed the Values or Not
1245: IF ( l_batch_in_rec.ship_confirm_rule_Id = FND_API.G_MISS_NUM ) THEN
1246: --{
1247: l_batch_in_rec.ship_confirm_rule_Id := NULL;
1248: --}
1249: END IF;
1246: --{
1247: l_batch_in_rec.ship_confirm_rule_Id := NULL;
1248: --}
1249: END IF;
1250: IF ( l_batch_in_rec.ship_confirm_rule_name = FND_API.G_MISS_CHAR) THEN
1251: --{
1252: l_batch_in_rec.ship_confirm_rule_name := NULL;
1253: --}
1254: END IF;
1340: -- Bug#: 3266659 - Removing carrier validations
1341: /*
1342: IF ( ( l_batch_in_rec.Carrier_Id IS NOT NULL ) OR ( l_batch_in_rec.Carrier_Name IS NOT NULL ) ) THEN
1343: --{ Passed the Values or Not
1344: IF ( l_batch_in_rec.Carrier_Id = FND_API.G_MISS_NUM ) THEN
1345: --{
1346: l_batch_in_rec.Carrier_Id := NULL;
1347: --}
1348: END IF;
1345: --{
1346: l_batch_in_rec.Carrier_Id := NULL;
1347: --}
1348: END IF;
1349: IF ( l_batch_in_rec.Carrier_name = FND_API.G_MISS_CHAR ) THEN
1350: --{
1351: l_batch_in_rec.Carrier_Name := NULL;
1352: --}
1353: END IF;
1389: -- Inventory Item Id Validations
1390:
1391: IF ( l_batch_in_rec.Inventory_Item_Id IS NOT NULL ) THEN
1392: --{ Passed the Values or Not
1393: IF ( l_batch_in_rec.Inventory_Item_Id <> FND_API.G_MISS_NUM ) THEN
1394: --{
1395: OPEN Check_Item_id(l_batch_in_rec.Inventory_Item_Id,l_batch_grp_rec.organization_id);
1396: FETCH Check_Item_id INTO l_batch_in_rec.Inventory_Item_Id;
1397: IF ( Check_Item_id%NOTFOUND ) THEN
1422: --{ Check subinventories and locators only when Org is specified
1423: -- Default_Stage_Subinventory Validations
1424: IF ( l_batch_in_rec.Default_Stage_Subinventory IS NOT NULL ) THEN
1425: --{ Passed the Values or Not
1426: IF ( l_batch_in_rec.Default_Stage_Subinventory <> FND_API.G_MISS_CHAR) THEN
1427: --{
1428: OPEN Check_Subinventory( l_batch_in_rec.Default_Stage_Subinventory,l_batch_grp_rec.organization_id);
1429: FETCH Check_Subinventory INTO l_batch_in_rec.Default_Stage_Subinventory;
1430: IF ( Check_Subinventory%NOTFOUND ) THEN
1448: -- End of Default_Stage_Subinventory Validations
1449: --Bug8221008 Validations for rel_subinventory
1450: IF ( l_batch_in_rec.rel_subinventory IS NOT NULL ) THEN
1451: --{ Passed the Values or Not
1452: IF ( l_batch_in_rec.rel_subinventory <> FND_API.G_MISS_CHAR) THEN
1453: --{
1454: OPEN Check_Subinventory( l_batch_in_rec.rel_subinventory,l_batch_grp_rec.organization_id);
1455: FETCH Check_Subinventory INTO l_batch_in_rec.rel_subinventory;
1456: IF ( Check_Subinventory%NOTFOUND ) THEN
1475:
1476: -- Default_Stage_Locator_Id Validations
1477: IF ( l_batch_in_rec.Default_Stage_Locator_Id IS NOT NULL ) THEN
1478: --{ Passed the Values or Not
1479: IF (l_batch_in_rec.Default_Stage_Locator_Id <> FND_API.G_MISS_NUM ) THEN
1480: --{
1481: OPEN Check_Locator_Id( l_batch_in_rec.Default_Stage_Locator_Id,l_batch_grp_rec.Default_Stage_Subinventory,l_batch_grp_rec.organization_id);
1482: FETCH Check_Locator_Id INTO l_batch_in_rec.Default_Stage_Locator_Id;
1483: IF ( Check_Locator_Id%NOTFOUND ) THEN
1503:
1504: -- Pick_From_Subinventory Validations
1505: IF ( l_batch_in_rec.Pick_From_Subinventory IS NOT NULL ) THEN
1506: --{ Passed the Values or Not
1507: IF ( l_batch_in_rec.Pick_From_Subinventory <> FND_API.G_MISS_CHAR) THEN
1508: --{
1509: OPEN Check_Subinventory( l_batch_in_rec.Pick_From_Subinventory,l_batch_grp_rec.organization_id);
1510: FETCH Check_Subinventory INTO l_batch_in_rec.Pick_From_Subinventory;
1511: IF ( Check_Subinventory%NOTFOUND ) THEN
1530:
1531: -- Pick_From_locator_Id Validations
1532: IF ( l_batch_in_rec.Pick_From_locator_Id IS NOT NULL ) THEN
1533: --{ Passed the Values or Not
1534: IF (l_batch_in_rec.Pick_From_locator_Id <> FND_API.G_MISS_NUM ) THEN
1535: --{
1536: OPEN Check_Locator_Id( l_batch_in_rec.Pick_From_locator_Id,l_batch_grp_rec.Pick_From_Subinventory,l_batch_grp_rec.organization_id );
1537: FETCH Check_Locator_Id INTO l_batch_in_rec.Pick_From_locator_Id;
1538: IF ( Check_Locator_Id%NOTFOUND ) THEN
1562: -- Delivery_Detail_Id Validations
1563:
1564: IF ( l_batch_in_rec.Delivery_Detail_Id IS NOT NULL ) THEN
1565: --{ Passed the Values or Not
1566: IF ( l_batch_in_rec.Delivery_Detail_Id <> FND_API.G_MISS_NUM ) THEN
1567: --{
1568: IF (l_batch_in_rec.Delivery_Detail_Id = -1 ) THEN
1569: --{ Bug# 7505524, in wave pick release case, wms is passing dd as -1.
1570: l_batch_grp_rec.Delivery_Detail_Id := l_batch_in_rec.Delivery_Detail_Id;
1597:
1598: -- Category_Set_ID Validations
1599: IF ( l_batch_in_rec.Category_Set_Id IS NOT NULL ) THEN
1600: --{ Passed the Values or Not
1601: IF ( l_batch_in_rec.Category_Set_Id <> FND_API.G_MISS_NUM ) THEN
1602: --{
1603: OPEN Check_Category_Set_Id(l_batch_in_rec.Category_Set_Id);
1604: FETCH Check_Category_Set_Id INTO l_batch_in_rec.Category_Set_Id;
1605: IF ( Check_Category_Set_Id%NOTFOUND ) THEN
1627: IF ( l_batch_grp_rec.Category_Set_Id IS NOT NULL ) THEN
1628: --{ Set_Id
1629: IF ( l_batch_in_rec.Category_Id IS NOT NULL ) THEN
1630: --{ Passed the Values or Not
1631: IF ( l_batch_in_rec.Category_Id <> FND_API.G_MISS_NUM ) THEN
1632: --{
1633: OPEN Check_Category_Id(l_batch_in_rec.Category_Id);
1634: FETCH Check_Category_Id INTO l_batch_in_rec.Category_Id;
1635: IF ( Check_Category_Id%NOTFOUND ) THEN
1658: -- Ignore_Shipset_Smc Validations
1659:
1660: IF ( l_batch_in_rec.Ship_Set_Smc_Flag IS NOT NULL ) THEN
1661: --{ Passed the Values or Not
1662: IF ( l_batch_in_rec.Ship_Set_Smc_Flag <> FND_API.G_MISS_CHAR ) THEN
1663: --{
1664: IF ( l_batch_in_rec.Ship_Set_Smc_Flag NOT IN ('I','E','A') ) THEN
1665: --{
1666: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1683:
1684: -- Auto_Pick_Confirm_Flag Validations
1685: IF ( l_batch_in_rec.Auto_Pick_Confirm_Flag IS NOT NULL ) THEN
1686: --{ Passed the Values or Not
1687: IF (l_batch_in_rec.Auto_Pick_Confirm_Flag <> FND_API.G_MISS_CHAR) THEN
1688: --{
1689: IF ( l_batch_in_rec.Auto_Pick_Confirm_Flag NOT IN ('Y','N') ) THEN
1690: --{
1691: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1707: -- Validating the Existing Reservations Only Flag
1708:
1709: IF ( l_batch_in_rec.Existing_Rsvs_Only_Flag IS NOT NULL ) THEN
1710: --{ Passed the Values or Not
1711: IF (l_batch_in_rec.Existing_Rsvs_Only_Flag <> FND_API.G_MISS_CHAR) THEN
1712: --{
1713: IF ( l_batch_in_rec.Existing_Rsvs_Only_Flag NOT IN ('N','Y')) THEN
1714: --{
1715: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1732: -- Include Planned Lines Validations
1733:
1734: IF ( l_batch_in_rec.Include_Planned_Lines IS NOT NULL ) THEN
1735: --{ Passed the Values or Not
1736: IF (l_batch_in_rec.Include_Planned_Lines <> FND_API.G_MISS_CHAR) THEN
1737: --{
1738: IF ( l_batch_in_rec.Include_Planned_Lines NOT IN ('Y','N') ) THEN
1739: --{
1740: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1757: -- Autodetail_Pr_Flag Validations
1758:
1759: IF ( l_batch_in_rec.Autodetail_Pr_Flag IS NOT NULL ) THEN
1760: --{ Passed the Values or Not
1761: IF (l_batch_in_rec.Autodetail_Pr_Flag <> FND_API.G_MISS_CHAR) THEN
1762: --{
1763: IF ( l_batch_in_rec.Autodetail_Pr_Flag NOT IN ('Y','N') ) THEN
1764: --{
1765: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1783: -- Autopack_Flag Validations
1784:
1785: IF ( l_batch_in_rec.Autopack_Flag IS NOT NULL ) THEN
1786: --{ Passed the Values or Not
1787: IF (l_batch_in_rec.Autopack_Flag <> FND_API.G_MISS_CHAR) THEN
1788: --{
1789: IF ( l_batch_in_rec.Autopack_Flag NOT IN ('Y','N') ) THEN
1790: --{
1791: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1810: IF ( l_batch_grp_rec.Autopack_Flag = 'Y' ) THEN
1811: --{
1812: IF ( l_batch_in_rec.Autopack_Level IS NOT NULL ) THEN
1813: --{ Passed the Values or Not
1814: IF (l_batch_in_rec.Autopack_Level <> FND_API.G_MISS_NUM) THEN
1815: --{
1816: IF ( l_batch_in_rec.Autopack_Level NOT IN (0,1,2) ) THEN
1817: --{
1818: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1837: -- Task_Planning_Flag Validations
1838:
1839: IF ( l_batch_in_rec.Task_Planning_Flag IS NOT NULL ) THEN
1840: --{ Passed the Values or Not
1841: IF (l_batch_in_rec.Task_Planning_Flag <> FND_API.G_MISS_CHAR) THEN
1842: --{
1843: IF ( l_batch_in_rec.Task_Planning_Flag NOT IN ('Y','N') ) THEN
1844: --{
1845: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1869: -- dynamic_replenishment_flag Validations
1870:
1871: IF ( l_batch_in_rec.dynamic_replenishment_flag IS NOT NULL ) THEN
1872: --{ Passed the Values or Not
1873: IF (l_batch_in_rec.dynamic_replenishment_flag <> FND_API.G_MISS_CHAR) THEN
1874: --{
1875: IF ( l_batch_in_rec.dynamic_replenishment_flag NOT IN ('Y','N') ) THEN
1876: --{
1877: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1901: -- Bug#: 3266659 - Removing Non_Picking_flag validations
1902: /*
1903: IF ( l_batch_in_rec.Non_Picking_flag IS NOT NULL ) THEN
1904: --{ Passed the Values or Not
1905: IF (l_batch_in_rec.Non_Picking_flag <> FND_API.G_MISS_CHAR) THEN
1906: --{
1907: IF ( l_batch_in_rec.Non_Picking_flag NOT IN ('Y','N') ) THEN
1908: --{
1909: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1926: -- Shipment_Priority_Code Validations
1927:
1928: IF ( l_batch_in_rec.Shipment_Priority_Code IS NOT NULL ) THEN
1929: --{
1930: IF (l_batch_in_rec.Shipment_Priority_Code <> FND_API.G_MISS_CHAR) THEN
1931: --{
1932: l_batch_grp_rec.Shipment_Priority_Code := l_batch_in_rec.Shipment_Priority_Code; --Bugfix 10121045
1933: ELSE
1934: l_batch_grp_rec.Shipment_Priority_Code := NULL; --Bugfix 10121045
1942:
1943: -- Project_Id Validations
1944: IF ( l_batch_in_rec.Project_Id IS NOT NULL ) THEN
1945: --{
1946: IF ( l_batch_in_rec.Project_Id <> FND_API.G_MISS_NUM ) THEN
1947: --{
1948: l_batch_grp_rec.Project_Id := l_batch_in_rec.Project_Id;
1949: ELSE
1950: l_batch_grp_rec.Project_Id := NULL;
1957:
1958: -- Task_Id Validations
1959: IF ( l_batch_in_rec.Task_Id IS NOT NULL ) THEN
1960: --{
1961: IF ( l_batch_in_rec.Task_Id <> FND_API.G_MISS_NUM ) THEN
1962: --{
1963: l_batch_grp_rec.Task_Id := l_batch_in_rec.Task_Id;
1964: ELSE
1965: l_batch_grp_rec.Task_Id := NULL;
1972: -- From Requested Date Validations
1973:
1974: IF ( l_batch_in_rec.From_Requested_Date IS NOT NULL ) THEN
1975: --{
1976: IF ( l_batch_in_rec.From_Requested_Date <> FND_API.G_MISS_DATE ) THEN
1977: --{
1978: l_batch_grp_rec.From_Requested_Date := l_batch_in_rec.From_Requested_Date;
1979: ELSE
1980: l_batch_grp_rec.From_Requested_Date := NULL;
1988: -- To Requested Date Validations
1989:
1990: IF ( l_batch_in_rec.To_Requested_Date IS NOT NULL ) THEN
1991: --{
1992: IF ( l_batch_in_rec.To_Requested_Date <> FND_API.G_MISS_DATE ) THEN
1993: --{
1994: l_batch_grp_rec.To_Requested_Date := l_batch_in_rec.To_Requested_Date;
1995: ELSE
1996: l_batch_grp_rec.To_Requested_Date := NULL;
2004: -- From Scheduled Ship Date Validations
2005:
2006: IF ( l_batch_in_rec.From_Scheduled_Ship_Date IS NOT NULL ) THEN
2007: --{
2008: IF ( l_batch_in_rec.From_Scheduled_Ship_Date <> FND_API.G_MISS_DATE ) THEN
2009: --{
2010: l_batch_grp_rec.From_Scheduled_Ship_Date := l_batch_in_rec.From_Scheduled_Ship_Date;
2011: ELSE
2012: l_batch_grp_rec.From_Scheduled_Ship_Date := NULL;
2020: -- To Scheduled Ship Date Validations
2021:
2022: IF ( l_batch_in_rec.To_Scheduled_Ship_Date IS NOT NULL ) THEN
2023: --{
2024: IF ( l_batch_in_rec.To_Scheduled_Ship_Date <> FND_API.G_MISS_DATE ) THEN
2025: --{
2026: l_batch_grp_rec.To_Scheduled_Ship_Date := l_batch_in_rec.To_Scheduled_Ship_Date;
2027: ELSE
2028: l_batch_grp_rec.To_Scheduled_Ship_Date := NULL;
2035:
2036: -- Validate all Attribute Fields
2037: IF ( l_batch_in_rec.Attribute_Category IS NOT NULL ) THEN
2038: --{
2039: IF ( l_batch_in_rec.Attribute_Category <> FND_API.G_MISS_CHAR ) THEN
2040: --{
2041: l_batch_grp_rec.Attribute_Category := l_batch_in_rec.Attribute_Category;
2042: ELSE
2043: l_batch_grp_rec.Attribute_Category := NULL;
2047: END IF;
2048:
2049: IF ( l_batch_in_rec.Attribute1 IS NOT NULL ) THEN
2050: --{
2051: IF ( l_batch_in_rec.Attribute1 <> FND_API.G_MISS_CHAR ) THEN
2052: --{
2053: l_batch_grp_rec.Attribute1 := l_batch_in_rec.Attribute1;
2054: ELSE
2055: l_batch_grp_rec.Attribute1 := NULL;
2059: END IF;
2060:
2061: IF ( l_batch_in_rec.Attribute2 IS NOT NULL ) THEN
2062: --{
2063: IF ( l_batch_in_rec.Attribute2 <> FND_API.G_MISS_CHAR ) THEN
2064: --{
2065: l_batch_grp_rec.Attribute2 := l_batch_in_rec.Attribute2;
2066: ELSE
2067: l_batch_grp_rec.Attribute2 := NULL;
2071: END IF;
2072:
2073: IF ( l_batch_in_rec.Attribute3 IS NOT NULL ) THEN
2074: --{
2075: IF ( l_batch_in_rec.Attribute3 <> FND_API.G_MISS_CHAR ) THEN
2076: --{
2077: l_batch_grp_rec.Attribute3 := l_batch_in_rec.Attribute3;
2078: ELSE
2079: l_batch_grp_rec.Attribute3 := NULL;
2083: END IF;
2084:
2085: IF ( l_batch_in_rec.Attribute4 IS NOT NULL ) THEN
2086: --{
2087: IF ( l_batch_in_rec.Attribute4 <> FND_API.G_MISS_CHAR ) THEN
2088: --{
2089: l_batch_grp_rec.Attribute4 := l_batch_in_rec.Attribute4;
2090: ELSE
2091: l_batch_grp_rec.Attribute4 := NULL;
2095: END IF;
2096:
2097: IF ( l_batch_in_rec.Attribute5 IS NOT NULL ) THEN
2098: --{
2099: IF ( l_batch_in_rec.Attribute5 <> FND_API.G_MISS_CHAR ) THEN
2100: --{
2101: l_batch_grp_rec.Attribute5 := l_batch_in_rec.Attribute5;
2102: ELSE
2103: l_batch_grp_rec.Attribute5 := NULL;
2107: END IF;
2108:
2109: IF ( l_batch_in_rec.Attribute6 IS NOT NULL ) THEN
2110: --{
2111: IF ( l_batch_in_rec.Attribute6 <> FND_API.G_MISS_CHAR ) THEN
2112: --{
2113: l_batch_grp_rec.Attribute6 := l_batch_in_rec.Attribute6;
2114: ELSE
2115: l_batch_grp_rec.Attribute6 := NULL;
2119: END IF;
2120:
2121: IF ( l_batch_in_rec.Attribute7 IS NOT NULL ) THEN
2122: --{
2123: IF ( l_batch_in_rec.Attribute7 <> FND_API.G_MISS_CHAR ) THEN
2124: --{
2125: l_batch_grp_rec.Attribute7 := l_batch_in_rec.Attribute7;
2126: ELSE
2127: l_batch_grp_rec.Attribute7 := NULL;
2131: END IF;
2132:
2133: IF ( l_batch_in_rec.Attribute8 IS NOT NULL ) THEN
2134: --{
2135: IF ( l_batch_in_rec.Attribute8 <> FND_API.G_MISS_CHAR ) THEN
2136: --{
2137: l_batch_grp_rec.Attribute8 := l_batch_in_rec.Attribute8;
2138: ELSE
2139: l_batch_grp_rec.Attribute8 := NULL;
2143: END IF;
2144:
2145: IF ( l_batch_in_rec.Attribute9 IS NOT NULL ) THEN
2146: --{
2147: IF ( l_batch_in_rec.Attribute9 <> FND_API.G_MISS_CHAR ) THEN
2148: --{
2149: l_batch_grp_rec.Attribute9 := l_batch_in_rec.Attribute9;
2150: ELSE
2151: l_batch_grp_rec.Attribute9 := NULL;
2155: END IF;
2156:
2157: IF ( l_batch_in_rec.Attribute10 IS NOT NULL ) THEN
2158: --{
2159: IF ( l_batch_in_rec.Attribute10 <> FND_API.G_MISS_CHAR ) THEN
2160: --{
2161: l_batch_grp_rec.Attribute10 := l_batch_in_rec.Attribute10;
2162: ELSE
2163: l_batch_grp_rec.Attribute10 := NULL;
2167: END IF;
2168:
2169: IF ( l_batch_in_rec.Attribute11 IS NOT NULL ) THEN
2170: --{
2171: IF ( l_batch_in_rec.Attribute11 <> FND_API.G_MISS_CHAR ) THEN
2172: --{
2173: l_batch_grp_rec.Attribute11 := l_batch_in_rec.Attribute11;
2174: ELSE
2175: l_batch_grp_rec.Attribute11 := NULL;
2179: END IF;
2180:
2181: IF ( l_batch_in_rec.Attribute12 IS NOT NULL ) THEN
2182: --{
2183: IF ( l_batch_in_rec.Attribute12 <> FND_API.G_MISS_CHAR ) THEN
2184: --{
2185: l_batch_grp_rec.Attribute12 := l_batch_in_rec.Attribute12;
2186: ELSE
2187: l_batch_grp_rec.Attribute12 := NULL;
2191: END IF;
2192:
2193: IF ( l_batch_in_rec.Attribute13 IS NOT NULL ) THEN
2194: --{
2195: IF ( l_batch_in_rec.Attribute13 <> FND_API.G_MISS_CHAR ) THEN
2196: --{
2197: l_batch_grp_rec.Attribute13 := l_batch_in_rec.Attribute13;
2198: ELSE
2199: l_batch_grp_rec.Attribute13 := NULL;
2203: END IF;
2204:
2205: IF ( l_batch_in_rec.Attribute14 IS NOT NULL ) THEN
2206: --{
2207: IF ( l_batch_in_rec.Attribute14 <> FND_API.G_MISS_CHAR ) THEN
2208: --{
2209: l_batch_grp_rec.Attribute14 := l_batch_in_rec.Attribute14;
2210: ELSE
2211: l_batch_grp_rec.Attribute14 := NULL;
2215: END IF;
2216:
2217: IF ( l_batch_in_rec.Attribute15 IS NOT NULL ) THEN
2218: --{
2219: IF ( l_batch_in_rec.Attribute15 <> FND_API.G_MISS_CHAR ) THEN
2220: --{
2221: l_batch_grp_rec.Attribute15 := l_batch_in_rec.Attribute15;
2222: ELSE
2223: l_batch_grp_rec.Attribute15 := NULL;
2228:
2229: -- End of Validating all Attribute Fields
2230:
2231: -- Validatiing the Batch Name Prefix
2232: IF ( l_batch_name_prefix = FND_API.G_MISS_CHAR ) THEN
2233: --{
2234: l_batch_name_prefix := NULL;
2235: --}
2236: END IF;
2237: -- End of Validating the Batch Name Prefix
2238:
2239: -- Bug 3463315 Append_Flag validation
2240: IF l_batch_in_rec.Append_Flag is NOT NULL THEN
2241: IF l_batch_in_rec.Append_Flag <> FND_API.G_MISS_CHAR THEN
2242: l_batch_grp_rec.Append_Flag := l_batch_in_rec.Append_Flag;
2243: ELSE
2244: l_batch_grp_rec.Append_Flag := NULL;
2245: END IF;
2246: END IF;
2247:
2248: -- Validating the Task Priority
2249: IF l_batch_in_rec.task_priority is NOT NULL THEN
2250: IF l_batch_in_rec.task_priority <> FND_API.G_MISS_NUM THEN
2251: l_batch_grp_rec.task_priority := l_batch_in_rec.task_priority;
2252: ELSE
2253: l_batch_grp_rec.task_priority := NULL;
2254: END IF;
2450:
2451: -- X-dock
2452: -- Validating the Allocation method
2453: IF l_batch_in_rec.allocation_method is NOT NULL THEN
2454: IF l_batch_in_rec.allocation_method <> FND_API.G_MISS_CHAR THEN
2455: l_batch_grp_rec.allocation_method := l_batch_in_rec.allocation_method;
2456: ELSE
2457: l_batch_grp_rec.allocation_method := 'I';
2458: END IF;
2492: --
2493: -- Public API would have already converted crossdock criteria name to id,
2494: -- so validation is only done for id.
2495: IF l_batch_in_rec.crossdock_criteria_id is NOT NULL THEN
2496: IF l_batch_in_rec.crossdock_criteria_id <> FND_API.G_MISS_NUM THEN
2497: l_batch_grp_rec.crossdock_criteria_id := l_batch_in_rec.crossdock_criteria_id;
2498: ELSE
2499: l_batch_grp_rec.crossdock_criteria_id := NULL;
2500: END IF;
2698: );
2699:
2700: x_batch_id := l_batch_grp_rec.batch_id ;
2701:
2702: IF FND_API.TO_BOOLEAN(p_commit) THEN
2703: --{
2704: COMMIT WORK;
2705: --}
2706: END IF;
2708: FND_MSG_PUB.Count_And_Get
2709: (
2710: p_count => x_msg_count,
2711: p_data => x_msg_data,
2712: p_encoded => FND_API.G_FALSE
2713: );
2714:
2715: IF l_debug_on THEN
2716: --{
2718: --}
2719: END IF;
2720: --
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: ROLLBACK TO PICKING_BATCH_GRP;
2724: x_return_status := FND_API.G_RET_STS_ERROR ;
2725: wsh_util_core.add_message(x_return_status);
2726: FND_MSG_PUB.Count_And_Get
2720: --
2721: EXCEPTION
2722: WHEN FND_API.G_EXC_ERROR THEN
2723: ROLLBACK TO PICKING_BATCH_GRP;
2724: x_return_status := FND_API.G_RET_STS_ERROR ;
2725: wsh_util_core.add_message(x_return_status);
2726: FND_MSG_PUB.Count_And_Get
2727: (
2728: p_count => x_msg_count,
2726: FND_MSG_PUB.Count_And_Get
2727: (
2728: p_count => x_msg_count,
2729: p_data => x_msg_data,
2730: p_encoded => FND_API.G_FALSE
2731: );
2732:
2733: IF l_debug_on THEN
2734: --{
2731: );
2732:
2733: IF l_debug_on THEN
2734: --{
2735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2737: --}
2738: END IF;
2739: --
2732:
2733: IF l_debug_on THEN
2734: --{
2735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2737: --}
2738: END IF;
2739: --
2740:
2741: WHEN WSH_INVALID_CONSOL_DEL THEN
2742: ROLLBACK TO PICKING_BATCH_GRP;
2743: FND_MESSAGE.SET_NAME('WSH', 'WSH_PUB_CONSOL_DEL_PR');
2744: FND_MESSAGE.SET_TOKEN('PARAMETER',l_batch_in_rec.Delivery_id);
2745: x_return_status := FND_API.G_RET_STS_ERROR ;
2746: wsh_util_core.add_message(x_return_status);
2747: FND_MSG_PUB.Count_And_Get
2748: (
2749: p_count => x_msg_count,
2747: FND_MSG_PUB.Count_And_Get
2748: (
2749: p_count => x_msg_count,
2750: p_data => x_msg_data,
2751: p_encoded => FND_API.G_FALSE
2752: );
2753:
2754: IF l_debug_on THEN
2755: --{
2758: --}
2759: END IF;
2760: --
2761:
2762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2763: ROLLBACK TO PICKING_BATCH_GRP;
2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2765: wsh_util_core.add_message(x_return_status, l_module_name);
2766: FND_MSG_PUB.Count_And_Get
2760: --
2761:
2762: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2763: ROLLBACK TO PICKING_BATCH_GRP;
2764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2765: wsh_util_core.add_message(x_return_status, l_module_name);
2766: FND_MSG_PUB.Count_And_Get
2767: (
2768: p_count => x_msg_count,
2766: FND_MSG_PUB.Count_And_Get
2767: (
2768: p_count => x_msg_count,
2769: p_data => x_msg_data,
2770: p_encoded => FND_API.G_FALSE
2771: );
2772: --
2773:
2774: IF l_debug_on THEN
2772: --
2773:
2774: IF l_debug_on THEN
2775: --{
2776: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2777: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2778: --}
2779: END IF;
2780: WHEN OTHERS THEN
2773:
2774: IF l_debug_on THEN
2775: --{
2776: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2777: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2778: --}
2779: END IF;
2780: WHEN OTHERS THEN
2781: ROLLBACK TO PICKING_BATCH_GRP;
2784: FND_MSG_PUB.Count_And_Get
2785: (
2786: p_count => x_msg_count,
2787: p_data => x_msg_data,
2788: p_encoded => FND_API.G_FALSE
2789: );
2790:
2791: IF l_debug_on THEN
2792: --{
2811: -- It will do some basic validations on the the input parameters
2812: -- like log_level should be positive , and on the not null values of p_batch_rec.
2813: --
2814: -- PARAMETERS : p_api_version_number known api version number
2815: -- p_init_msg_list FND_API.G_TRUE to reset list
2816: -- p_commit FND_API.G_TRUE to perform a commit
2817: -- x_return_status return status
2818: -- x_msg_count number of messages in the list
2819: -- x_msg_data text of messages
2812: -- like log_level should be positive , and on the not null values of p_batch_rec.
2813: --
2814: -- PARAMETERS : p_api_version_number known api version number
2815: -- p_init_msg_list FND_API.G_TRUE to reset list
2816: -- p_commit FND_API.G_TRUE to perform a commit
2817: -- x_return_status return status
2818: -- x_msg_count number of messages in the list
2819: -- x_msg_data text of messages
2820: -- p_batch_id Picking Batch Id which is used to get Batch
2904: --wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers); -- Bug # 7505524.
2905: --}
2906: END IF;
2907:
2908: IF NOT fnd_api.compatible_api_call(
2909: l_api_version,
2910: p_api_version_number,
2911: l_api_name,
2912: g_pkg_name) THEN
2909: l_api_version,
2910: p_api_version_number,
2911: l_api_name,
2912: g_pkg_name) THEN
2913: RAISE fnd_api.g_exc_unexpected_error;
2914: END IF;
2915: -- Check p_init_msg_list
2916: IF fnd_api.to_boolean(p_init_msg_list) THEN
2917: --{
2912: g_pkg_name) THEN
2913: RAISE fnd_api.g_exc_unexpected_error;
2914: END IF;
2915: -- Check p_init_msg_list
2916: IF fnd_api.to_boolean(p_init_msg_list) THEN
2917: --{
2918: fnd_msg_pub.initialize;
2919: --}
2920: END IF;
2929: -- VALIDATE ALL THE INPUT VALUES
2930: ------------------------------------------------------------------------------------------------------------
2931:
2932: -- Validating Batch Name and Batch Id
2933: IF ( ( l_batch_Id IS NOT NULL AND l_batch_Id <> FND_API.G_MISS_NUM ) OR ( l_batch_Name IS NOT NULL AND l_batch_name <> FND_API.G_MISS_CHAR ) ) THEN
2934: --{
2935: IF ( l_batch_Id = FND_API.G_MISS_NUM ) THEN
2936: --{
2937: l_batch_Id := NULL;
2931:
2932: -- Validating Batch Name and Batch Id
2933: IF ( ( l_batch_Id IS NOT NULL AND l_batch_Id <> FND_API.G_MISS_NUM ) OR ( l_batch_Name IS NOT NULL AND l_batch_name <> FND_API.G_MISS_CHAR ) ) THEN
2934: --{
2935: IF ( l_batch_Id = FND_API.G_MISS_NUM ) THEN
2936: --{
2937: l_batch_Id := NULL;
2938: --}
2939: END IF;
2936: --{
2937: l_batch_Id := NULL;
2938: --}
2939: END IF;
2940: IF ( l_batch_name = FND_API.G_MISS_CHAR ) THEN
2941: --{
2942: l_batch_name := NULL;
2943: --}
2944: END IF;
3129: x_num_errors => l_number_of_errors,
3130: p_msg_data => l_msg_data
3131: );
3132:
3133: IF FND_API.TO_BOOLEAN(p_commit) THEN
3134: --{
3135: COMMIT WORK;
3136: --}
3137: END IF;
3139: FND_MSG_PUB.Count_And_Get
3140: (
3141: p_count => x_msg_count,
3142: p_data => x_msg_data,
3143: p_encoded => FND_API.G_FALSE
3144: );
3145:
3146: IF l_debug_on THEN
3147: --{
3149: --}
3150: END IF;
3151: --
3152: EXCEPTION
3153: WHEN FND_API.G_EXC_ERROR THEN
3154: ROLLBACK TO PICKING_BATCH_GRP;
3155: x_return_status := FND_API.G_RET_STS_ERROR ;
3156: wsh_util_core.add_message(x_return_status);
3157: FND_MSG_PUB.Count_And_Get
3151: --
3152: EXCEPTION
3153: WHEN FND_API.G_EXC_ERROR THEN
3154: ROLLBACK TO PICKING_BATCH_GRP;
3155: x_return_status := FND_API.G_RET_STS_ERROR ;
3156: wsh_util_core.add_message(x_return_status);
3157: FND_MSG_PUB.Count_And_Get
3158: (
3159: p_count => x_msg_count,
3157: FND_MSG_PUB.Count_And_Get
3158: (
3159: p_count => x_msg_count,
3160: p_data => x_msg_data,
3161: p_encoded => FND_API.G_FALSE
3162: );
3163:
3164: IF l_debug_on THEN
3165: --{
3162: );
3163:
3164: IF l_debug_on THEN
3165: --{
3166: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3168: --}
3169: END IF;
3170: --
3163:
3164: IF l_debug_on THEN
3165: --{
3166: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3168: --}
3169: END IF;
3170: --
3171:
3168: --}
3169: END IF;
3170: --
3171:
3172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3173: ROLLBACK TO PICKING_BATCH_GRP;
3174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3175: wsh_util_core.add_message(x_return_status, l_module_name);
3176: FND_MSG_PUB.Count_And_Get
3170: --
3171:
3172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3173: ROLLBACK TO PICKING_BATCH_GRP;
3174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3175: wsh_util_core.add_message(x_return_status, l_module_name);
3176: FND_MSG_PUB.Count_And_Get
3177: (
3178: p_count => x_msg_count,
3176: FND_MSG_PUB.Count_And_Get
3177: (
3178: p_count => x_msg_count,
3179: p_data => x_msg_data,
3180: p_encoded => FND_API.G_FALSE
3181: );
3182: --
3183:
3184: IF l_debug_on THEN
3182: --
3183:
3184: IF l_debug_on THEN
3185: --{
3186: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3188: --}
3189: END IF;
3190: WHEN OTHERS THEN
3183:
3184: IF l_debug_on THEN
3185: --{
3186: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3188: --}
3189: END IF;
3190: WHEN OTHERS THEN
3191: ROLLBACK TO PICKING_BATCH_GRP;
3194: FND_MSG_PUB.Count_And_Get
3195: (
3196: p_count => x_msg_count,
3197: p_data => x_msg_data,
3198: p_encoded => FND_API.G_FALSE
3199: );
3200:
3201: IF l_debug_on THEN
3202: --{
3366: END IF;
3367: --
3368: WHEN others THEN
3369: rollback to lock_delivery_detail_loop;
3370: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3371: END;
3372: --
3373: END LOOP;
3374: --Update the detail lines with batch id.
3444: ELSE -- Get debug msgs when all dds failed while locking
3445: FND_MSG_PUB.Count_And_Get(
3446: p_count => x_msg_count,
3447: p_data => x_msg_data,
3448: p_encoded => FND_API.G_FALSE
3449: );
3450: --}
3451: END IF;
3452: --