[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
258: wsh_debug_sv.LOG(l_module_name, 'P_COMMIT', p_commit);
259: --}
260: END IF;
261:
262: IF NOT fnd_api.compatible_api_call(
263: l_api_version,
264: p_api_version_number,
265: l_api_name,
266: g_pkg_name) THEN
263: l_api_version,
264: p_api_version_number,
265: l_api_name,
266: g_pkg_name) THEN
267: RAISE fnd_api.g_exc_unexpected_error;
268: END IF;
269: -- Check p_init_msg_list
270: IF fnd_api.to_boolean(p_init_msg_list) THEN
271: --{
266: g_pkg_name) THEN
267: RAISE fnd_api.g_exc_unexpected_error;
268: END IF;
269: -- Check p_init_msg_list
270: IF fnd_api.to_boolean(p_init_msg_list) THEN
271: --{
272: fnd_msg_pub.initialize;
273: --}
274: END IF;
289: 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);
290: --}
291: END IF;
292: --
293: 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
294: --{ Passed the Values or Not
295: IF ( l_rule_id = FND_API.G_MISS_NUM ) THEN
296: --{
297: l_rule_id := NULL;
291: END IF;
292: --
293: 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
294: --{ Passed the Values or Not
295: IF ( l_rule_id = FND_API.G_MISS_NUM ) THEN
296: --{
297: l_rule_id := NULL;
298: --}
299: END IF;
296: --{
297: l_rule_id := NULL;
298: --}
299: END IF;
300: IF ( l_rule_name = FND_API.G_MISS_CHAR ) OR ( l_rule_id IS NOT NULL) THEN
301: --{
302: l_rule_name := NULL;
303: --}
304: END IF;
390: -- VALIDATE ALL THE INPUT PARAMETER VALUES
391: -- LOGIC followed
392: -- If Parameter value is NULL then treat it as NOT PASSED to the API
393: -- (*** In this case consider the value from the picking rule info if picking rule info provided)
394: -- If the parameter value is FND_API.G_MISS.xxx then treat it as NULL
395: -- Otherwise Validate the parameter value.
396: ------------------------------------------------------------------------------------------------------------
397:
398: -- Validating the Back Order Only Flag
397:
398: -- Validating the Back Order Only Flag
399: IF ( l_batch_in_rec.Backorders_Only_Flag IS NOT NULL ) THEN
400: --{ Passed the Values or Not
401: IF (l_batch_in_rec.Backorders_Only_Flag <> FND_API.G_MISS_CHAR ) THEN
402: --{ Checking value is null or not
403: -- BUG # 6719369 (Rplenishment project); Need to consider the
404: -- 'replenishment completed' status.
405: IF ( l_batch_in_rec.Backorders_Only_Flag NOT IN ('I','E','O','M') ) THEN
423:
424: --- Organization Validations
425: IF ( ( l_batch_in_rec.Organization_Id IS NOT NULL ) OR ( l_batch_in_rec.Organization_Code IS NOT NULL ) ) THEN
426: --{ Passed the Values or Not
427: IF ( l_batch_in_rec.Organization_Id = FND_API.G_MISS_NUM ) THEN
428: --{
429: l_batch_in_rec.Organization_Id := NULL;
430: --}
431: END IF;
429: l_batch_in_rec.Organization_Id := NULL;
430: --}
431: END IF;
432:
433: IF ( l_batch_in_rec.Organization_Code = FND_API.G_MISS_CHAR ) THEN
434: --{
435: l_batch_in_rec.Organization_Code := NULL;
436: --}
437: END IF;
500: --- Document Set Validations
501:
502: IF ( ( l_batch_in_rec.Document_Set_Id IS NOT NULL ) OR ( l_batch_in_rec.Document_Set_Name IS NOT NULL )) THEN
503: --{ Passed the Values or Not
504: IF ( l_batch_in_rec.Document_Set_Id = FND_API.G_MISS_NUM ) THEN
505: --{
506: l_batch_in_rec.Document_Set_id := NULL;
507: --}
508: END IF;
505: --{
506: l_batch_in_rec.Document_Set_id := NULL;
507: --}
508: END IF;
509: IF ( l_batch_in_rec.Document_Set_Name = FND_API.G_MISS_CHAR) THEN
510: --{
511: l_batch_in_rec.Document_Set_name := NULL;
512: --}
513: END IF;
548: -- Ship Method Validations
549:
550: IF ( ( l_batch_in_rec.Ship_Method_Code IS NOT NULL ) OR ( l_batch_in_rec.Ship_Method_Name IS NOT NULL )) THEN
551: --{ Passed the Values or Not
552: IF ( l_batch_in_rec.Ship_Method_Code = FND_API.G_MISS_CHAR ) THEN
553: --{
554: l_batch_in_rec.Ship_Method_Code := NULL;
555: --}
556: END IF;
553: --{
554: l_batch_in_rec.Ship_Method_Code := NULL;
555: --}
556: END IF;
557: IF ( l_batch_in_rec.Ship_Method_Name = FND_API.G_MISS_CHAR ) THEN
558: --{
559: l_batch_in_rec.Ship_Method_Name := NULL;
560: --}
561: END IF;
596: --- Customer Validations
597:
598: IF ( ( l_batch_in_rec.Customer_Id IS NOT NULL ) OR ( l_batch_in_rec.Customer_Number IS NOT NULL )) THEN
599: --{ Passed the Values or Not
600: IF l_batch_in_rec.Customer_Id = FND_API.G_MISS_NUM THEN
601: --{
602: l_batch_in_rec.Customer_Id := NULL;
603: --}
604: END IF;
601: --{
602: l_batch_in_rec.Customer_Id := NULL;
603: --}
604: END IF;
605: IF l_batch_in_rec.Customer_Number = FND_API.G_MISS_CHAR THEN
606: --{
607: l_batch_in_rec.Customer_Number := NULL;
608: --}
609: END IF;
644: -- Order Type Validations
645:
646: IF ( ( l_batch_in_rec.Order_Type_Id IS NOT NULL ) OR ( l_batch_in_rec.Order_Type_Name IS NOT NULL )) THEN
647: --{ Passed the Values or Not
648: IF ( l_batch_in_rec.Order_Type_Id = FND_API.G_MISS_NUM ) THEN
649: --{
650: l_batch_in_rec.Order_Type_Id := NULL;
651: --}
652: END IF;
649: --{
650: l_batch_in_rec.Order_Type_Id := NULL;
651: --}
652: END IF;
653: IF ( l_batch_in_rec.Order_Type_Name = FND_API.G_MISS_CHAR ) THEN
654: --{
655: l_batch_in_rec.Order_Type_Name := NULL;
656: --}
657: END IF;
684: -- Order Number Validations
685:
686: IF ( ( l_batch_in_rec.order_header_id IS NOT NULL ) OR ( l_batch_in_rec.order_number IS NOT NULL )) THEN
687: --{ Passed the Values or Not
688: IF ( l_batch_in_rec.order_header_id = FND_API.G_MISS_NUM ) THEN
689: --{
690: l_batch_in_rec.order_header_id := NULL;
691: --}
692: END IF;
689: --{
690: l_batch_in_rec.order_header_id := NULL;
691: --}
692: END IF;
693: IF ( l_batch_in_rec.order_number = FND_API.G_MISS_NUM ) OR ( l_batch_in_rec.order_header_id IS NOT NULL ) THEN
694: --{
695: l_batch_in_rec.order_number := NULL;
696: --}
697: END IF;
732: -- Ship Set Number Validations
733:
734: IF ( ( l_batch_in_rec.ship_set_id IS NOT NULL ) OR ( l_batch_in_rec.ship_set_number IS NOT NULL )) THEN
735: --{ Passed the Values or Not
736: IF ( l_batch_in_rec.ship_set_id = FND_API.G_MISS_NUM ) THEN
737: --{
738: l_batch_in_rec.ship_set_id := NULL;
739: --}
740: END IF;
737: --{
738: l_batch_in_rec.ship_set_id := NULL;
739: --}
740: END IF;
741: 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
742: --{
743: l_batch_in_rec.ship_set_number := NULL;
744: --}
745: END IF;
780: --- Ship To Location Validations
781: IF l_batch_grp_rec.Customer_Id IS NOT NULL THEN --Bug# 3480908 - Ignore Ship_To if customer not provided
782: 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
783: --{ Passed the Values or Not
784: IF ( l_batch_in_rec.Ship_To_Location_Id = FND_API.G_MISS_NUM ) THEN
785: --{
786: l_batch_in_rec.Ship_To_Location_Id := NULL;
787: --}
788: END IF;
785: --{
786: l_batch_in_rec.Ship_To_Location_Id := NULL;
787: --}
788: END IF;
789: IF ( l_batch_in_rec.Ship_To_Location_code = FND_API.G_MISS_CHAR) THEN
790: --{
791: l_batch_in_rec.Ship_To_Location_code := NULL;
792: --}
793: END IF;
832: --- Ship From Location Validations
833:
834: 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
835: --{ Passed the Values or Not
836: IF ( l_batch_in_rec.Ship_From_Location_Id = FND_API.G_MISS_NUM ) THEN
837: --{
838: l_batch_in_rec.Ship_From_Location_Id := NULL;
839: --}
840: END IF;
837: --{
838: l_batch_in_rec.Ship_From_Location_Id := NULL;
839: --}
840: END IF;
841: IF ( l_batch_in_rec.Ship_From_Location_code = FND_API.G_MISS_CHAR) THEN
842: --{
843: l_batch_in_rec.Ship_From_Location_code := NULL;
844: --}
845: END IF;
886: --- Trip Validations
887:
888: IF ( ( l_batch_in_rec.Trip_Id IS NOT NULL ) OR ( l_batch_in_rec.Trip_Name IS NOT NULL ) ) THEN
889: --{ Passed the Values or Not
890: IF ( l_batch_in_rec.Trip_Id = FND_API.G_MISS_NUM ) THEN
891: --{
892: l_batch_in_rec.Trip_Id := NULL;
893: --}
894: END IF;
891: --{
892: l_batch_in_rec.Trip_Id := NULL;
893: --}
894: END IF;
895: IF ( l_batch_in_rec.Trip_name = FND_API.G_MISS_CHAR) THEN
896: --{
897: l_batch_in_rec.Trip_name := NULL;
898: --}
899: END IF;
935: -- Delivery Validations
936:
937: IF ( ( l_batch_in_rec.Delivery_Id IS NOT NULL ) OR ( l_batch_in_rec.Delivery_Name IS NOT NULL ) ) THEN
938: --{ Passed the Values or Not
939: IF ( l_batch_in_rec.Delivery_Id = FND_API.G_MISS_NUM ) THEN
940: --{
941: l_batch_in_rec.Delivery_Id := NULL;
942: --}
943: END IF;
940: --{
941: l_batch_in_rec.Delivery_Id := NULL;
942: --}
943: END IF;
944: IF ( l_batch_in_rec.Delivery_Name = FND_API.G_MISS_CHAR) THEN
945: --{
946: l_batch_in_rec.Delivery_name := NULL;
947: --}
948: END IF;
997: IF ( l_batch_grp_rec.trip_id IS NOT NULL ) THEN
998: --{
999: IF ( ( l_batch_in_rec.Trip_Stop_Id IS NOT NULL ) OR ( l_batch_in_rec.trip_stop_location_id IS NOT NULL ) ) THEN
1000: --{ Passed the Values or Not
1001: IF ( l_batch_in_rec.Trip_Stop_Id = FND_API.G_MISS_NUM ) THEN
1002: --{
1003: l_batch_in_rec.Trip_Stop_Id := NULL;
1004: --}
1005: END IF;
1002: --{
1003: l_batch_in_rec.Trip_Stop_Id := NULL;
1004: --}
1005: END IF;
1006: IF ( l_batch_in_rec.trip_stop_location_id = FND_API.G_MISS_NUM ) THEN
1007: --{
1008: l_batch_in_rec.trip_stop_location_id := NULL;
1009: --}
1010: END IF;
1051: -- Pick_Grouping_Rule_Id Validations
1052:
1053: 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
1054: --{ Passed the Values or Not
1055: IF ( l_batch_in_rec.pick_grouping_rule_Id = FND_API.G_MISS_NUM ) THEN
1056: --{
1057: l_batch_in_rec.pick_grouping_rule_Id := NULL;
1058: --}
1059: END IF;
1056: --{
1057: l_batch_in_rec.pick_grouping_rule_Id := NULL;
1058: --}
1059: END IF;
1060: IF ( l_batch_in_rec.pick_grouping_rule_Name = FND_API.G_MISS_CHAR) THEN
1061: --{
1062: l_batch_in_rec.pick_grouping_rule_name := NULL;
1063: --}
1064: END IF;
1100: -- Pick_Sequence_Rule_Id Validations
1101:
1102: 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
1103: --{ Passed the Values or Not
1104: IF ( l_batch_in_rec.pick_sequence_rule_Id = FND_API.G_MISS_NUM ) THEN
1105: --{
1106: l_batch_in_rec.pick_sequence_rule_Id := NULL;
1107: --}
1108: END IF;
1105: --{
1106: l_batch_in_rec.pick_sequence_rule_Id := NULL;
1107: --}
1108: END IF;
1109: IF ( l_batch_in_rec.pick_sequence_rule_name = FND_API.G_MISS_CHAR) THEN
1110: --{
1111: l_batch_in_rec.pick_sequence_rule_name := NULL;
1112: --}
1113: END IF;
1148:
1149: -- Bug 3463315 Append_Flag validation
1150:
1151: IF ( l_batch_in_rec.autocreate_delivery_flag IS NOT NULL ) THEN
1152: IF ( l_batch_in_rec.autocreate_delivery_flag = FND_API.G_MISS_CHAR ) THEN
1153: l_batch_in_rec.autocreate_delivery_flag := NULL;
1154: END IF;
1155:
1156: IF (l_batch_in_rec.autocreate_delivery_flag IS NOT NULL) THEN
1169: END IF;
1170: -- Bug# 3480908 - End
1171:
1172: IF ( l_batch_in_rec.ac_delivery_criteria IS NOT NULL ) THEN
1173: IF ( l_batch_in_rec.ac_delivery_criteria = FND_API.G_MISS_CHAR ) THEN
1174: l_batch_in_rec.ac_delivery_criteria := NULL;
1175: END IF;
1176:
1177: IF (l_batch_in_rec.ac_delivery_criteria IS NOT NULL) THEN
1186: -- Ship_Confirm_Rule_Id Validations
1187:
1188: 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
1189: --{ Passed the Values or Not
1190: IF ( l_batch_in_rec.ship_confirm_rule_Id = FND_API.G_MISS_NUM ) THEN
1191: --{
1192: l_batch_in_rec.ship_confirm_rule_Id := NULL;
1193: --}
1194: END IF;
1191: --{
1192: l_batch_in_rec.ship_confirm_rule_Id := NULL;
1193: --}
1194: END IF;
1195: IF ( l_batch_in_rec.ship_confirm_rule_name = FND_API.G_MISS_CHAR) THEN
1196: --{
1197: l_batch_in_rec.ship_confirm_rule_name := NULL;
1198: --}
1199: END IF;
1285: -- Bug#: 3266659 - Removing carrier validations
1286: /*
1287: IF ( ( l_batch_in_rec.Carrier_Id IS NOT NULL ) OR ( l_batch_in_rec.Carrier_Name IS NOT NULL ) ) THEN
1288: --{ Passed the Values or Not
1289: IF ( l_batch_in_rec.Carrier_Id = FND_API.G_MISS_NUM ) THEN
1290: --{
1291: l_batch_in_rec.Carrier_Id := NULL;
1292: --}
1293: END IF;
1290: --{
1291: l_batch_in_rec.Carrier_Id := NULL;
1292: --}
1293: END IF;
1294: IF ( l_batch_in_rec.Carrier_name = FND_API.G_MISS_CHAR ) THEN
1295: --{
1296: l_batch_in_rec.Carrier_Name := NULL;
1297: --}
1298: END IF;
1334: -- Inventory Item Id Validations
1335:
1336: IF ( l_batch_in_rec.Inventory_Item_Id IS NOT NULL ) THEN
1337: --{ Passed the Values or Not
1338: IF ( l_batch_in_rec.Inventory_Item_Id <> FND_API.G_MISS_NUM ) THEN
1339: --{
1340: OPEN Check_Item_id(l_batch_in_rec.Inventory_Item_Id,l_batch_grp_rec.organization_id);
1341: FETCH Check_Item_id INTO l_batch_in_rec.Inventory_Item_Id;
1342: IF ( Check_Item_id%NOTFOUND ) THEN
1367: --{ Check subinventories and locators only when Org is specified
1368: -- Default_Stage_Subinventory Validations
1369: IF ( l_batch_in_rec.Default_Stage_Subinventory IS NOT NULL ) THEN
1370: --{ Passed the Values or Not
1371: IF ( l_batch_in_rec.Default_Stage_Subinventory <> FND_API.G_MISS_CHAR) THEN
1372: --{
1373: OPEN Check_Subinventory( l_batch_in_rec.Default_Stage_Subinventory,l_batch_grp_rec.organization_id);
1374: FETCH Check_Subinventory INTO l_batch_in_rec.Default_Stage_Subinventory;
1375: IF ( Check_Subinventory%NOTFOUND ) THEN
1394:
1395: -- Default_Stage_Locator_Id Validations
1396: IF ( l_batch_in_rec.Default_Stage_Locator_Id IS NOT NULL ) THEN
1397: --{ Passed the Values or Not
1398: IF (l_batch_in_rec.Default_Stage_Locator_Id <> FND_API.G_MISS_NUM ) THEN
1399: --{
1400: 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);
1401: FETCH Check_Locator_Id INTO l_batch_in_rec.Default_Stage_Locator_Id;
1402: IF ( Check_Locator_Id%NOTFOUND ) THEN
1422:
1423: -- Pick_From_Subinventory Validations
1424: IF ( l_batch_in_rec.Pick_From_Subinventory IS NOT NULL ) THEN
1425: --{ Passed the Values or Not
1426: IF ( l_batch_in_rec.Pick_From_Subinventory <> FND_API.G_MISS_CHAR) THEN
1427: --{
1428: OPEN Check_Subinventory( l_batch_in_rec.Pick_From_Subinventory,l_batch_grp_rec.organization_id);
1429: FETCH Check_Subinventory INTO l_batch_in_rec.Pick_From_Subinventory;
1430: IF ( Check_Subinventory%NOTFOUND ) THEN
1449:
1450: -- Pick_From_locator_Id Validations
1451: IF ( l_batch_in_rec.Pick_From_locator_Id IS NOT NULL ) THEN
1452: --{ Passed the Values or Not
1453: IF (l_batch_in_rec.Pick_From_locator_Id <> FND_API.G_MISS_NUM ) THEN
1454: --{
1455: 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 );
1456: FETCH Check_Locator_Id INTO l_batch_in_rec.Pick_From_locator_Id;
1457: IF ( Check_Locator_Id%NOTFOUND ) THEN
1481: -- Delivery_Detail_Id Validations
1482:
1483: IF ( l_batch_in_rec.Delivery_Detail_Id IS NOT NULL ) THEN
1484: --{ Passed the Values or Not
1485: IF ( l_batch_in_rec.Delivery_Detail_Id <> FND_API.G_MISS_NUM ) THEN
1486: --{
1487: OPEN Check_Delivery_Detail_Id(l_batch_in_rec.Delivery_Detail_Id);
1488: FETCH Check_Delivery_Detail_Id INTO l_batch_in_rec.Delivery_Detail_Id;
1489: IF ( Check_Delivery_Detail_Id%NOTFOUND ) THEN
1509:
1510: -- Category_Set_ID Validations
1511: IF ( l_batch_in_rec.Category_Set_Id IS NOT NULL ) THEN
1512: --{ Passed the Values or Not
1513: IF ( l_batch_in_rec.Category_Set_Id <> FND_API.G_MISS_NUM ) THEN
1514: --{
1515: OPEN Check_Category_Set_Id(l_batch_in_rec.Category_Set_Id);
1516: FETCH Check_Category_Set_Id INTO l_batch_in_rec.Category_Set_Id;
1517: IF ( Check_Category_Set_Id%NOTFOUND ) THEN
1539: IF ( l_batch_grp_rec.Category_Set_Id IS NOT NULL ) THEN
1540: --{ Set_Id
1541: IF ( l_batch_in_rec.Category_Id IS NOT NULL ) THEN
1542: --{ Passed the Values or Not
1543: IF ( l_batch_in_rec.Category_Id <> FND_API.G_MISS_NUM ) THEN
1544: --{
1545: OPEN Check_Category_Id(l_batch_in_rec.Category_Id);
1546: FETCH Check_Category_Id INTO l_batch_in_rec.Category_Id;
1547: IF ( Check_Category_Id%NOTFOUND ) THEN
1570: -- Ignore_Shipset_Smc Validations
1571:
1572: IF ( l_batch_in_rec.Ship_Set_Smc_Flag IS NOT NULL ) THEN
1573: --{ Passed the Values or Not
1574: IF ( l_batch_in_rec.Ship_Set_Smc_Flag <> FND_API.G_MISS_CHAR ) THEN
1575: --{
1576: IF ( l_batch_in_rec.Ship_Set_Smc_Flag NOT IN ('I','E','A') ) THEN
1577: --{
1578: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1595:
1596: -- Auto_Pick_Confirm_Flag Validations
1597: IF ( l_batch_in_rec.Auto_Pick_Confirm_Flag IS NOT NULL ) THEN
1598: --{ Passed the Values or Not
1599: IF (l_batch_in_rec.Auto_Pick_Confirm_Flag <> FND_API.G_MISS_CHAR) THEN
1600: --{
1601: IF ( l_batch_in_rec.Auto_Pick_Confirm_Flag NOT IN ('Y','N') ) THEN
1602: --{
1603: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1619: -- Validating the Existing Reservations Only Flag
1620:
1621: IF ( l_batch_in_rec.Existing_Rsvs_Only_Flag IS NOT NULL ) THEN
1622: --{ Passed the Values or Not
1623: IF (l_batch_in_rec.Existing_Rsvs_Only_Flag <> FND_API.G_MISS_CHAR) THEN
1624: --{
1625: IF ( l_batch_in_rec.Existing_Rsvs_Only_Flag NOT IN ('N','Y')) THEN
1626: --{
1627: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1644: -- Include Planned Lines Validations
1645:
1646: IF ( l_batch_in_rec.Include_Planned_Lines IS NOT NULL ) THEN
1647: --{ Passed the Values or Not
1648: IF (l_batch_in_rec.Include_Planned_Lines <> FND_API.G_MISS_CHAR) THEN
1649: --{
1650: IF ( l_batch_in_rec.Include_Planned_Lines NOT IN ('Y','N') ) THEN
1651: --{
1652: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1669: -- Autodetail_Pr_Flag Validations
1670:
1671: IF ( l_batch_in_rec.Autodetail_Pr_Flag IS NOT NULL ) THEN
1672: --{ Passed the Values or Not
1673: IF (l_batch_in_rec.Autodetail_Pr_Flag <> FND_API.G_MISS_CHAR) THEN
1674: --{
1675: IF ( l_batch_in_rec.Autodetail_Pr_Flag NOT IN ('Y','N') ) THEN
1676: --{
1677: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1695: -- Autopack_Flag Validations
1696:
1697: IF ( l_batch_in_rec.Autopack_Flag IS NOT NULL ) THEN
1698: --{ Passed the Values or Not
1699: IF (l_batch_in_rec.Autopack_Flag <> FND_API.G_MISS_CHAR) THEN
1700: --{
1701: IF ( l_batch_in_rec.Autopack_Flag NOT IN ('Y','N') ) THEN
1702: --{
1703: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1722: IF ( l_batch_grp_rec.Autopack_Flag = 'Y' ) THEN
1723: --{
1724: IF ( l_batch_in_rec.Autopack_Level IS NOT NULL ) THEN
1725: --{ Passed the Values or Not
1726: IF (l_batch_in_rec.Autopack_Level <> FND_API.G_MISS_NUM) THEN
1727: --{
1728: IF ( l_batch_in_rec.Autopack_Level NOT IN (0,1,2) ) THEN
1729: --{
1730: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1749: -- Task_Planning_Flag Validations
1750:
1751: IF ( l_batch_in_rec.Task_Planning_Flag IS NOT NULL ) THEN
1752: --{ Passed the Values or Not
1753: IF (l_batch_in_rec.Task_Planning_Flag <> FND_API.G_MISS_CHAR) THEN
1754: --{
1755: IF ( l_batch_in_rec.Task_Planning_Flag NOT IN ('Y','N') ) THEN
1756: --{
1757: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1781: -- dynamic_replenishment_flag Validations
1782:
1783: IF ( l_batch_in_rec.dynamic_replenishment_flag IS NOT NULL ) THEN
1784: --{ Passed the Values or Not
1785: IF (l_batch_in_rec.dynamic_replenishment_flag <> FND_API.G_MISS_CHAR) THEN
1786: --{
1787: IF ( l_batch_in_rec.dynamic_replenishment_flag NOT IN ('Y','N') ) THEN
1788: --{
1789: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1813: -- Bug#: 3266659 - Removing Non_Picking_flag validations
1814: /*
1815: IF ( l_batch_in_rec.Non_Picking_flag IS NOT NULL ) THEN
1816: --{ Passed the Values or Not
1817: IF (l_batch_in_rec.Non_Picking_flag <> FND_API.G_MISS_CHAR) THEN
1818: --{
1819: IF ( l_batch_in_rec.Non_Picking_flag NOT IN ('Y','N') ) THEN
1820: --{
1821: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
1838: -- Shipment_Priority_Code Validations
1839:
1840: IF ( l_batch_in_rec.Shipment_Priority_Code IS NOT NULL ) THEN
1841: --{
1842: IF (l_batch_in_rec.Shipment_Priority_Code <> FND_API.G_MISS_CHAR) THEN
1843: --{
1844: l_batch_in_rec.Shipment_Priority_Code := l_batch_in_rec.Shipment_Priority_Code;
1845: ELSE
1846: l_batch_in_rec.Shipment_Priority_Code := NULL;
1854:
1855: -- Project_Id Validations
1856: IF ( l_batch_in_rec.Project_Id IS NOT NULL ) THEN
1857: --{
1858: IF ( l_batch_in_rec.Project_Id <> FND_API.G_MISS_NUM ) THEN
1859: --{
1860: l_batch_grp_rec.Project_Id := l_batch_in_rec.Project_Id;
1861: ELSE
1862: l_batch_grp_rec.Project_Id := NULL;
1869:
1870: -- Task_Id Validations
1871: IF ( l_batch_in_rec.Task_Id IS NOT NULL ) THEN
1872: --{
1873: IF ( l_batch_in_rec.Task_Id <> FND_API.G_MISS_NUM ) THEN
1874: --{
1875: l_batch_grp_rec.Task_Id := l_batch_in_rec.Task_Id;
1876: ELSE
1877: l_batch_grp_rec.Task_Id := NULL;
1884: -- From Requested Date Validations
1885:
1886: IF ( l_batch_in_rec.From_Requested_Date IS NOT NULL ) THEN
1887: --{
1888: IF ( l_batch_in_rec.From_Requested_Date <> FND_API.G_MISS_DATE ) THEN
1889: --{
1890: l_batch_grp_rec.From_Requested_Date := l_batch_in_rec.From_Requested_Date;
1891: ELSE
1892: l_batch_grp_rec.From_Requested_Date := NULL;
1900: -- To Requested Date Validations
1901:
1902: IF ( l_batch_in_rec.To_Requested_Date IS NOT NULL ) THEN
1903: --{
1904: IF ( l_batch_in_rec.To_Requested_Date <> FND_API.G_MISS_DATE ) THEN
1905: --{
1906: l_batch_grp_rec.To_Requested_Date := l_batch_in_rec.To_Requested_Date;
1907: ELSE
1908: l_batch_grp_rec.To_Requested_Date := NULL;
1916: -- From Scheduled Ship Date Validations
1917:
1918: IF ( l_batch_in_rec.From_Scheduled_Ship_Date IS NOT NULL ) THEN
1919: --{
1920: IF ( l_batch_in_rec.From_Scheduled_Ship_Date <> FND_API.G_MISS_DATE ) THEN
1921: --{
1922: l_batch_grp_rec.From_Scheduled_Ship_Date := l_batch_in_rec.From_Scheduled_Ship_Date;
1923: ELSE
1924: l_batch_grp_rec.From_Scheduled_Ship_Date := NULL;
1932: -- To Scheduled Ship Date Validations
1933:
1934: IF ( l_batch_in_rec.To_Scheduled_Ship_Date IS NOT NULL ) THEN
1935: --{
1936: IF ( l_batch_in_rec.To_Scheduled_Ship_Date <> FND_API.G_MISS_DATE ) THEN
1937: --{
1938: l_batch_grp_rec.To_Scheduled_Ship_Date := l_batch_in_rec.To_Scheduled_Ship_Date;
1939: ELSE
1940: l_batch_grp_rec.To_Scheduled_Ship_Date := NULL;
1947:
1948: -- Validate all Attribute Fields
1949: IF ( l_batch_in_rec.Attribute_Category IS NOT NULL ) THEN
1950: --{
1951: IF ( l_batch_in_rec.Attribute_Category <> FND_API.G_MISS_CHAR ) THEN
1952: --{
1953: l_batch_grp_rec.Attribute_Category := l_batch_in_rec.Attribute_Category;
1954: ELSE
1955: l_batch_grp_rec.Attribute_Category := NULL;
1959: END IF;
1960:
1961: IF ( l_batch_in_rec.Attribute1 IS NOT NULL ) THEN
1962: --{
1963: IF ( l_batch_in_rec.Attribute1 <> FND_API.G_MISS_CHAR ) THEN
1964: --{
1965: l_batch_grp_rec.Attribute1 := l_batch_in_rec.Attribute1;
1966: ELSE
1967: l_batch_grp_rec.Attribute1 := NULL;
1971: END IF;
1972:
1973: IF ( l_batch_in_rec.Attribute2 IS NOT NULL ) THEN
1974: --{
1975: IF ( l_batch_in_rec.Attribute2 <> FND_API.G_MISS_CHAR ) THEN
1976: --{
1977: l_batch_grp_rec.Attribute2 := l_batch_in_rec.Attribute2;
1978: ELSE
1979: l_batch_grp_rec.Attribute2 := NULL;
1983: END IF;
1984:
1985: IF ( l_batch_in_rec.Attribute3 IS NOT NULL ) THEN
1986: --{
1987: IF ( l_batch_in_rec.Attribute3 <> FND_API.G_MISS_CHAR ) THEN
1988: --{
1989: l_batch_grp_rec.Attribute3 := l_batch_in_rec.Attribute3;
1990: ELSE
1991: l_batch_grp_rec.Attribute3 := NULL;
1995: END IF;
1996:
1997: IF ( l_batch_in_rec.Attribute4 IS NOT NULL ) THEN
1998: --{
1999: IF ( l_batch_in_rec.Attribute4 <> FND_API.G_MISS_CHAR ) THEN
2000: --{
2001: l_batch_grp_rec.Attribute4 := l_batch_in_rec.Attribute4;
2002: ELSE
2003: l_batch_grp_rec.Attribute4 := NULL;
2007: END IF;
2008:
2009: IF ( l_batch_in_rec.Attribute5 IS NOT NULL ) THEN
2010: --{
2011: IF ( l_batch_in_rec.Attribute5 <> FND_API.G_MISS_CHAR ) THEN
2012: --{
2013: l_batch_grp_rec.Attribute5 := l_batch_in_rec.Attribute5;
2014: ELSE
2015: l_batch_grp_rec.Attribute5 := NULL;
2019: END IF;
2020:
2021: IF ( l_batch_in_rec.Attribute6 IS NOT NULL ) THEN
2022: --{
2023: IF ( l_batch_in_rec.Attribute6 <> FND_API.G_MISS_CHAR ) THEN
2024: --{
2025: l_batch_grp_rec.Attribute6 := l_batch_in_rec.Attribute6;
2026: ELSE
2027: l_batch_grp_rec.Attribute6 := NULL;
2031: END IF;
2032:
2033: IF ( l_batch_in_rec.Attribute7 IS NOT NULL ) THEN
2034: --{
2035: IF ( l_batch_in_rec.Attribute7 <> FND_API.G_MISS_CHAR ) THEN
2036: --{
2037: l_batch_grp_rec.Attribute7 := l_batch_in_rec.Attribute7;
2038: ELSE
2039: l_batch_grp_rec.Attribute7 := NULL;
2043: END IF;
2044:
2045: IF ( l_batch_in_rec.Attribute8 IS NOT NULL ) THEN
2046: --{
2047: IF ( l_batch_in_rec.Attribute8 <> FND_API.G_MISS_CHAR ) THEN
2048: --{
2049: l_batch_grp_rec.Attribute8 := l_batch_in_rec.Attribute8;
2050: ELSE
2051: l_batch_grp_rec.Attribute8 := NULL;
2055: END IF;
2056:
2057: IF ( l_batch_in_rec.Attribute9 IS NOT NULL ) THEN
2058: --{
2059: IF ( l_batch_in_rec.Attribute9 <> FND_API.G_MISS_CHAR ) THEN
2060: --{
2061: l_batch_grp_rec.Attribute9 := l_batch_in_rec.Attribute9;
2062: ELSE
2063: l_batch_grp_rec.Attribute9 := NULL;
2067: END IF;
2068:
2069: IF ( l_batch_in_rec.Attribute10 IS NOT NULL ) THEN
2070: --{
2071: IF ( l_batch_in_rec.Attribute10 <> FND_API.G_MISS_CHAR ) THEN
2072: --{
2073: l_batch_grp_rec.Attribute10 := l_batch_in_rec.Attribute10;
2074: ELSE
2075: l_batch_grp_rec.Attribute10 := NULL;
2079: END IF;
2080:
2081: IF ( l_batch_in_rec.Attribute11 IS NOT NULL ) THEN
2082: --{
2083: IF ( l_batch_in_rec.Attribute11 <> FND_API.G_MISS_CHAR ) THEN
2084: --{
2085: l_batch_grp_rec.Attribute11 := l_batch_in_rec.Attribute11;
2086: ELSE
2087: l_batch_grp_rec.Attribute11 := NULL;
2091: END IF;
2092:
2093: IF ( l_batch_in_rec.Attribute12 IS NOT NULL ) THEN
2094: --{
2095: IF ( l_batch_in_rec.Attribute12 <> FND_API.G_MISS_CHAR ) THEN
2096: --{
2097: l_batch_grp_rec.Attribute12 := l_batch_in_rec.Attribute12;
2098: ELSE
2099: l_batch_grp_rec.Attribute12 := NULL;
2103: END IF;
2104:
2105: IF ( l_batch_in_rec.Attribute13 IS NOT NULL ) THEN
2106: --{
2107: IF ( l_batch_in_rec.Attribute13 <> FND_API.G_MISS_CHAR ) THEN
2108: --{
2109: l_batch_grp_rec.Attribute13 := l_batch_in_rec.Attribute13;
2110: ELSE
2111: l_batch_grp_rec.Attribute13 := NULL;
2115: END IF;
2116:
2117: IF ( l_batch_in_rec.Attribute14 IS NOT NULL ) THEN
2118: --{
2119: IF ( l_batch_in_rec.Attribute14 <> FND_API.G_MISS_CHAR ) THEN
2120: --{
2121: l_batch_grp_rec.Attribute14 := l_batch_in_rec.Attribute14;
2122: ELSE
2123: l_batch_grp_rec.Attribute14 := NULL;
2127: END IF;
2128:
2129: IF ( l_batch_in_rec.Attribute15 IS NOT NULL ) THEN
2130: --{
2131: IF ( l_batch_in_rec.Attribute15 <> FND_API.G_MISS_CHAR ) THEN
2132: --{
2133: l_batch_grp_rec.Attribute15 := l_batch_in_rec.Attribute15;
2134: ELSE
2135: l_batch_grp_rec.Attribute15 := NULL;
2140:
2141: -- End of Validating all Attribute Fields
2142:
2143: -- Validatiing the Batch Name Prefix
2144: IF ( l_batch_name_prefix = FND_API.G_MISS_CHAR ) THEN
2145: --{
2146: l_batch_name_prefix := NULL;
2147: --}
2148: END IF;
2149: -- End of Validating the Batch Name Prefix
2150:
2151: -- Bug 3463315 Append_Flag validation
2152: IF l_batch_in_rec.Append_Flag is NOT NULL THEN
2153: IF l_batch_in_rec.Append_Flag <> FND_API.G_MISS_CHAR THEN
2154: l_batch_grp_rec.Append_Flag := l_batch_in_rec.Append_Flag;
2155: ELSE
2156: l_batch_grp_rec.Append_Flag := NULL;
2157: END IF;
2158: END IF;
2159:
2160: -- Validating the Task Priority
2161: IF l_batch_in_rec.task_priority is NOT NULL THEN
2162: IF l_batch_in_rec.task_priority <> FND_API.G_MISS_NUM THEN
2163: l_batch_grp_rec.task_priority := l_batch_in_rec.task_priority;
2164: ELSE
2165: l_batch_grp_rec.task_priority := NULL;
2166: END IF;
2362:
2363: -- X-dock
2364: -- Validating the Allocation method
2365: IF l_batch_in_rec.allocation_method is NOT NULL THEN
2366: IF l_batch_in_rec.allocation_method <> FND_API.G_MISS_CHAR THEN
2367: l_batch_grp_rec.allocation_method := l_batch_in_rec.allocation_method;
2368: ELSE
2369: l_batch_grp_rec.allocation_method := 'I';
2370: END IF;
2375: --
2376: -- Public API would have already converted crossdock criteria name to id,
2377: -- so validation is only done for id.
2378: IF l_batch_in_rec.crossdock_criteria_id is NOT NULL THEN
2379: IF l_batch_in_rec.crossdock_criteria_id <> FND_API.G_MISS_NUM THEN
2380: l_batch_grp_rec.crossdock_criteria_id := l_batch_in_rec.crossdock_criteria_id;
2381: ELSE
2382: l_batch_grp_rec.crossdock_criteria_id := NULL;
2383: END IF;
2564: );
2565:
2566: x_batch_id := l_batch_grp_rec.batch_id ;
2567:
2568: IF FND_API.TO_BOOLEAN(p_commit) THEN
2569: --{
2570: COMMIT WORK;
2571: --}
2572: END IF;
2574: FND_MSG_PUB.Count_And_Get
2575: (
2576: p_count => x_msg_count,
2577: p_data => x_msg_data,
2578: p_encoded => FND_API.G_FALSE
2579: );
2580:
2581: IF l_debug_on THEN
2582: --{
2584: --}
2585: END IF;
2586: --
2587: EXCEPTION
2588: WHEN FND_API.G_EXC_ERROR THEN
2589: ROLLBACK TO PICKING_BATCH_GRP;
2590: x_return_status := FND_API.G_RET_STS_ERROR ;
2591: wsh_util_core.add_message(x_return_status);
2592: FND_MSG_PUB.Count_And_Get
2586: --
2587: EXCEPTION
2588: WHEN FND_API.G_EXC_ERROR THEN
2589: ROLLBACK TO PICKING_BATCH_GRP;
2590: x_return_status := FND_API.G_RET_STS_ERROR ;
2591: wsh_util_core.add_message(x_return_status);
2592: FND_MSG_PUB.Count_And_Get
2593: (
2594: p_count => x_msg_count,
2592: FND_MSG_PUB.Count_And_Get
2593: (
2594: p_count => x_msg_count,
2595: p_data => x_msg_data,
2596: p_encoded => FND_API.G_FALSE
2597: );
2598:
2599: IF l_debug_on THEN
2600: --{
2597: );
2598:
2599: IF l_debug_on THEN
2600: --{
2601: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2602: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2603: --}
2604: END IF;
2605: --
2598:
2599: IF l_debug_on THEN
2600: --{
2601: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2602: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2603: --}
2604: END IF;
2605: --
2606:
2607: WHEN WSH_INVALID_CONSOL_DEL THEN
2608: ROLLBACK TO PICKING_BATCH_GRP;
2609: FND_MESSAGE.SET_NAME('WSH', 'WSH_PUB_CONSOL_DEL_PR');
2610: FND_MESSAGE.SET_TOKEN('PARAMETER',l_batch_in_rec.Delivery_id);
2611: x_return_status := FND_API.G_RET_STS_ERROR ;
2612: wsh_util_core.add_message(x_return_status);
2613: FND_MSG_PUB.Count_And_Get
2614: (
2615: p_count => x_msg_count,
2613: FND_MSG_PUB.Count_And_Get
2614: (
2615: p_count => x_msg_count,
2616: p_data => x_msg_data,
2617: p_encoded => FND_API.G_FALSE
2618: );
2619:
2620: IF l_debug_on THEN
2621: --{
2624: --}
2625: END IF;
2626: --
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: ROLLBACK TO PICKING_BATCH_GRP;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2631: wsh_util_core.add_message(x_return_status, l_module_name);
2632: FND_MSG_PUB.Count_And_Get
2626: --
2627:
2628: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2629: ROLLBACK TO PICKING_BATCH_GRP;
2630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2631: wsh_util_core.add_message(x_return_status, l_module_name);
2632: FND_MSG_PUB.Count_And_Get
2633: (
2634: p_count => x_msg_count,
2632: FND_MSG_PUB.Count_And_Get
2633: (
2634: p_count => x_msg_count,
2635: p_data => x_msg_data,
2636: p_encoded => FND_API.G_FALSE
2637: );
2638: --
2639:
2640: IF l_debug_on THEN
2638: --
2639:
2640: IF l_debug_on THEN
2641: --{
2642: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2643: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2644: --}
2645: END IF;
2646: WHEN OTHERS THEN
2639:
2640: IF l_debug_on THEN
2641: --{
2642: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2643: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2644: --}
2645: END IF;
2646: WHEN OTHERS THEN
2647: ROLLBACK TO PICKING_BATCH_GRP;
2650: FND_MSG_PUB.Count_And_Get
2651: (
2652: p_count => x_msg_count,
2653: p_data => x_msg_data,
2654: p_encoded => FND_API.G_FALSE
2655: );
2656:
2657: IF l_debug_on THEN
2658: --{
2677: -- It will do some basic validations on the the input parameters
2678: -- like log_level should be positive , and on the not null values of p_batch_rec.
2679: --
2680: -- PARAMETERS : p_api_version_number known api version number
2681: -- p_init_msg_list FND_API.G_TRUE to reset list
2682: -- p_commit FND_API.G_TRUE to perform a commit
2683: -- x_return_status return status
2684: -- x_msg_count number of messages in the list
2685: -- x_msg_data text of messages
2678: -- like log_level should be positive , and on the not null values of p_batch_rec.
2679: --
2680: -- PARAMETERS : p_api_version_number known api version number
2681: -- p_init_msg_list FND_API.G_TRUE to reset list
2682: -- p_commit FND_API.G_TRUE to perform a commit
2683: -- x_return_status return status
2684: -- x_msg_count number of messages in the list
2685: -- x_msg_data text of messages
2686: -- p_batch_id Picking Batch Id which is used to get Batch
2769: wsh_debug_sv.LOG(l_module_name, 'P_NUM_WORKERS', p_num_workers);
2770: --}
2771: END IF;
2772:
2773: IF NOT fnd_api.compatible_api_call(
2774: l_api_version,
2775: p_api_version_number,
2776: l_api_name,
2777: g_pkg_name) THEN
2774: l_api_version,
2775: p_api_version_number,
2776: l_api_name,
2777: g_pkg_name) THEN
2778: RAISE fnd_api.g_exc_unexpected_error;
2779: END IF;
2780: -- Check p_init_msg_list
2781: IF fnd_api.to_boolean(p_init_msg_list) THEN
2782: --{
2777: g_pkg_name) THEN
2778: RAISE fnd_api.g_exc_unexpected_error;
2779: END IF;
2780: -- Check p_init_msg_list
2781: IF fnd_api.to_boolean(p_init_msg_list) THEN
2782: --{
2783: fnd_msg_pub.initialize;
2784: --}
2785: END IF;
2794: -- VALIDATE ALL THE INPUT VALUES
2795: ------------------------------------------------------------------------------------------------------------
2796:
2797: -- Validating Batch Name and Batch Id
2798: 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
2799: --{
2800: IF ( l_batch_Id = FND_API.G_MISS_NUM ) THEN
2801: --{
2802: l_batch_Id := NULL;
2796:
2797: -- Validating Batch Name and Batch Id
2798: 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
2799: --{
2800: IF ( l_batch_Id = FND_API.G_MISS_NUM ) THEN
2801: --{
2802: l_batch_Id := NULL;
2803: --}
2804: END IF;
2801: --{
2802: l_batch_Id := NULL;
2803: --}
2804: END IF;
2805: IF ( l_batch_name = FND_API.G_MISS_CHAR ) THEN
2806: --{
2807: l_batch_name := NULL;
2808: --}
2809: END IF;
2988: x_num_errors => l_number_of_errors,
2989: p_msg_data => l_msg_data
2990: );
2991:
2992: IF FND_API.TO_BOOLEAN(p_commit) THEN
2993: --{
2994: COMMIT WORK;
2995: --}
2996: END IF;
2998: FND_MSG_PUB.Count_And_Get
2999: (
3000: p_count => x_msg_count,
3001: p_data => x_msg_data,
3002: p_encoded => FND_API.G_FALSE
3003: );
3004:
3005: IF l_debug_on THEN
3006: --{
3008: --}
3009: END IF;
3010: --
3011: EXCEPTION
3012: WHEN FND_API.G_EXC_ERROR THEN
3013: ROLLBACK TO PICKING_BATCH_GRP;
3014: x_return_status := FND_API.G_RET_STS_ERROR ;
3015: wsh_util_core.add_message(x_return_status);
3016: FND_MSG_PUB.Count_And_Get
3010: --
3011: EXCEPTION
3012: WHEN FND_API.G_EXC_ERROR THEN
3013: ROLLBACK TO PICKING_BATCH_GRP;
3014: x_return_status := FND_API.G_RET_STS_ERROR ;
3015: wsh_util_core.add_message(x_return_status);
3016: FND_MSG_PUB.Count_And_Get
3017: (
3018: p_count => x_msg_count,
3016: FND_MSG_PUB.Count_And_Get
3017: (
3018: p_count => x_msg_count,
3019: p_data => x_msg_data,
3020: p_encoded => FND_API.G_FALSE
3021: );
3022:
3023: IF l_debug_on THEN
3024: --{
3021: );
3022:
3023: IF l_debug_on THEN
3024: --{
3025: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3027: --}
3028: END IF;
3029: --
3022:
3023: IF l_debug_on THEN
3024: --{
3025: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3027: --}
3028: END IF;
3029: --
3030:
3027: --}
3028: END IF;
3029: --
3030:
3031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3032: ROLLBACK TO PICKING_BATCH_GRP;
3033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3034: wsh_util_core.add_message(x_return_status, l_module_name);
3035: FND_MSG_PUB.Count_And_Get
3029: --
3030:
3031: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3032: ROLLBACK TO PICKING_BATCH_GRP;
3033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3034: wsh_util_core.add_message(x_return_status, l_module_name);
3035: FND_MSG_PUB.Count_And_Get
3036: (
3037: p_count => x_msg_count,
3035: FND_MSG_PUB.Count_And_Get
3036: (
3037: p_count => x_msg_count,
3038: p_data => x_msg_data,
3039: p_encoded => FND_API.G_FALSE
3040: );
3041: --
3042:
3043: IF l_debug_on THEN
3041: --
3042:
3043: IF l_debug_on THEN
3044: --{
3045: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3046: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3047: --}
3048: END IF;
3049: WHEN OTHERS THEN
3042:
3043: IF l_debug_on THEN
3044: --{
3045: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3046: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3047: --}
3048: END IF;
3049: WHEN OTHERS THEN
3050: ROLLBACK TO PICKING_BATCH_GRP;
3053: FND_MSG_PUB.Count_And_Get
3054: (
3055: p_count => x_msg_count,
3056: p_data => x_msg_data,
3057: p_encoded => FND_API.G_FALSE
3058: );
3059:
3060: IF l_debug_on THEN
3061: --{