42: From mtl_inv_picking_rules
43: Where inv_rule_id = p_inv_rule_id;
44:
45: BEGIN
46: x_return_status := FND_API.G_RET_STS_SUCCESS;
47: debug('Procedure Save');
48: l_is_new_rec := 1;
49: if p_mtl_picking_rule_rec.inv_rule_id is not null then
50: l_is_new_rec := 0;
108: , x_msg_count => x_msg_count
109: );
110: END IF;
111: EXCEPTION
112: WHEN FND_API.G_EXC_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: FND_MSG_Pub.count_and_get
115: ( p_count => x_msg_count
116: , p_data => x_msg_data
109: );
110: END IF;
111: EXCEPTION
112: WHEN FND_API.G_EXC_ERROR THEN
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: FND_MSG_Pub.count_and_get
115: ( p_count => x_msg_count
116: , p_data => x_msg_data
117: );
137: IS
138: l_api_name CONSTANT VARCHAR2 (30) := 'Save_to_mtl_picking_rules';
139: l_inv_rule_id NUMBER;
140: BEGIN
141: x_return_status := FND_API.G_RET_STS_SUCCESS;
142: l_inv_rule_id := p_mtl_picking_rule_rec.inv_rule_id;
143: debug('Procedure Save_to_mtl_picking_rules');
144: If l_inv_rule_id is null then
145: select mtl_inv_picking_rules_s.nextval into l_inv_Rule_id from dual;
224: , LAST_UPDATE_LOGIN = fnd_global.login_id
225: where inv_rule_id = l_inv_rule_id;
226: end if;
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_Pub.count_and_get
231: ( p_count => x_msg_count
232: , p_data => x_msg_data
225: where inv_rule_id = l_inv_rule_id;
226: end if;
227: EXCEPTION
228: WHEN FND_API.G_EXC_ERROR THEN
229: x_return_status := FND_API.G_RET_STS_ERROR;
230: FND_MSG_Pub.count_and_get
231: ( p_count => x_msg_count
232: , p_data => x_msg_data
233: );
257: l_organization_id NUMBER;
258: l_allocation_mode_id NUMBER;
259:
260: BEGIN
261: x_return_status := FND_API.G_RET_STS_SUCCESS;
262: l_picking_rule_rec := p_mtl_picking_rule_rec;
263: l_organization_id := -1; -- all orgs
264: l_allocation_mode_id := 3; -- NON LPN
265: l_wms_rule_id := p_mtl_picking_rule_rec.wms_rule_id;
357:
358: p_mtl_picking_rule_rec := l_picking_rule_rec;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_ERROR THEN
362: x_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_Pub.count_and_get
364: ( p_count => x_msg_count
365: , p_data => x_msg_data
358: p_mtl_picking_rule_rec := l_picking_rule_rec;
359:
360: EXCEPTION
361: WHEN FND_API.G_EXC_ERROR THEN
362: x_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_Pub.count_and_get
364: ( p_count => x_msg_count
365: , p_data => x_msg_data
366: );
411: * 1) shelf days
412: * 2) grade for SO
413: * 3) customer spec match for SO
414: */
415: x_return_status := FND_API.G_RET_STS_SUCCESS;
416: l_picking_rule_rec := p_mtl_picking_rule_rec;
417: l_apply_to_source := l_picking_rule_rec.apply_to_source;
418:
419: For i in 1..8 Loop
690: );
691: END IF;
692: END LOOP;
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696: FND_MSG_Pub.count_and_get
697: ( p_count => x_msg_count
698: , p_data => x_msg_data
691: END IF;
692: END LOOP;
693: EXCEPTION
694: WHEN FND_API.G_EXC_ERROR THEN
695: x_return_status := FND_API.G_RET_STS_ERROR;
696: FND_MSG_Pub.count_and_get
697: ( p_count => x_msg_count
698: , p_data => x_msg_data
699: );
721: , x_msg_count OUT NOCOPY NUMBER)
722: IS
723: l_api_name CONSTANT VARCHAR2 (30) := 'Restrictions_Update';
724: Begin
725: x_return_status := FND_API.G_RET_STS_SUCCESS;
726: inv_rule_gen_pvt.Restrictions_delete
727: (p_mtl_picking_rule_rec=> p_mtl_picking_rule_rec
728: , x_return_status => x_return_status
729: , x_msg_data => x_msg_data
735: , x_msg_data => x_msg_data
736: , x_msg_count => x_msg_count
737: );
738: EXCEPTION
739: WHEN FND_API.G_EXC_ERROR THEN
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MSG_Pub.count_and_get
742: ( p_count => x_msg_count
743: , p_data => x_msg_data
736: , x_msg_count => x_msg_count
737: );
738: EXCEPTION
739: WHEN FND_API.G_EXC_ERROR THEN
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: FND_MSG_Pub.count_and_get
742: ( p_count => x_msg_count
743: , p_data => x_msg_data
744: );
762: , x_msg_count OUT NOCOPY NUMBER)
763: IS
764: l_api_name CONSTANT VARCHAR2 (30) := 'Restrictions_Delete';
765: Begin
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: Delete wms_restrictions where rule_id = p_mtl_picking_rule_rec.wms_rule_id;
768: EXCEPTION
769: WHEN FND_API.G_EXC_ERROR THEN
770: x_return_status := FND_API.G_RET_STS_ERROR;
765: Begin
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: Delete wms_restrictions where rule_id = p_mtl_picking_rule_rec.wms_rule_id;
768: EXCEPTION
769: WHEN FND_API.G_EXC_ERROR THEN
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: FND_MSG_Pub.count_and_get
772: ( p_count => x_msg_count
773: , p_data => x_msg_data
766: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: Delete wms_restrictions where rule_id = p_mtl_picking_rule_rec.wms_rule_id;
768: EXCEPTION
769: WHEN FND_API.G_EXC_ERROR THEN
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: FND_MSG_Pub.count_and_get
772: ( p_count => x_msg_count
773: , p_data => x_msg_data
774: );
797: l_consistency_id NUMBER;
798: l_row_id VARCHAR2(500);
799: l_parameter_id NUMBER;
800: Begin
801: x_return_status := FND_API.G_RET_STS_SUCCESS;
802: l_picking_rule_rec := p_mtl_picking_rule_rec;
803: If p_mtl_picking_rule_rec.single_lot = 'Y' then
804: -- find the parameter for lot.lot_number
805: l_parameter_id := 60006; -- lot.lot_Number
834: );
835:
836: end if;
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: FND_MSG_Pub.count_and_get
841: ( p_count => x_msg_count
842: , p_data => x_msg_data
835:
836: end if;
837: EXCEPTION
838: WHEN FND_API.G_EXC_ERROR THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: FND_MSG_Pub.count_and_get
841: ( p_count => x_msg_count
842: , p_data => x_msg_data
843: );
862: )
863: IS
864: l_api_name CONSTANT VARCHAR2 (30) := 'Consistency_Update';
865: Begin
866: x_return_status := FND_API.G_RET_STS_SUCCESS;
867: inv_rule_gen_pvt.consistency_delete
868: (p_mtl_picking_rule_rec=> p_mtl_picking_rule_rec
869: , x_return_status => x_return_status
870: , x_msg_data => x_msg_data
876: , x_msg_data => x_msg_data
877: , x_msg_count => x_msg_count
878: );
879: EXCEPTION
880: WHEN FND_API.G_EXC_ERROR THEN
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: FND_MSG_Pub.count_and_get
883: ( p_count => x_msg_count
884: , p_data => x_msg_data
877: , x_msg_count => x_msg_count
878: );
879: EXCEPTION
880: WHEN FND_API.G_EXC_ERROR THEN
881: x_return_status := FND_API.G_RET_STS_ERROR;
882: FND_MSG_Pub.count_and_get
883: ( p_count => x_msg_count
884: , p_data => x_msg_data
885: );
904: )
905: IS
906: l_api_name CONSTANT VARCHAR2 (30) := 'Consistency_Delete';
907: Begin
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: Delete wms_rule_consistencies where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_ERROR;
907: Begin
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: Delete wms_rule_consistencies where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_ERROR;
913: FND_MSG_Pub.count_and_get
914: ( p_count => x_msg_count
915: , p_data => x_msg_data
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: Delete wms_rule_consistencies where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: x_return_status := FND_API.G_RET_STS_ERROR;
913: FND_MSG_Pub.count_and_get
914: ( p_count => x_msg_count
915: , p_data => x_msg_data
916: );
941: l_order_code NUMBER;
942: i NUMBER;
943: l_go_ahead NUMBER;
944: Begin
945: x_return_status := FND_API.G_RET_STS_SUCCESS;
946: debug('sort insert, lot_sort_rank '||p_mtl_picking_rule_rec.lot_sort_rank);
947: debug('sort insert, revision_sort_rank '||p_mtl_picking_rule_rec.revision_sort_rank);
948: debug('sort insert, sub_sort_rank '||p_mtl_picking_rule_rec.subinventory_sort_rank);
949: debug('sort insert, locator_sort_rank '||p_mtl_picking_rule_rec.locator_sort_rank);
1067: );
1068: end if;
1069: END LOOP;
1070: EXCEPTION
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: x_return_status := FND_API.G_RET_STS_ERROR;
1073: FND_MSG_Pub.count_and_get
1074: ( p_count => x_msg_count
1075: , p_data => x_msg_data
1068: end if;
1069: END LOOP;
1070: EXCEPTION
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: x_return_status := FND_API.G_RET_STS_ERROR;
1073: FND_MSG_Pub.count_and_get
1074: ( p_count => x_msg_count
1075: , p_data => x_msg_data
1076: );
1099: , x_msg_count OUT NOCOPY NUMBER)
1100: IS
1101: l_api_name CONSTANT VARCHAR2 (30) := 'Sorting_criteria_Update';
1102: Begin
1103: x_return_status := FND_API.G_RET_STS_SUCCESS;
1104: inv_rule_gen_pvt.sorting_criteria_delete
1105: (p_mtl_picking_rule_rec=> p_mtl_picking_rule_rec
1106: , x_return_status => x_return_status
1107: , x_msg_data => x_msg_data
1113: , x_msg_data => x_msg_data
1114: , x_msg_count => x_msg_count
1115: );
1116: EXCEPTION
1117: WHEN FND_API.G_EXC_ERROR THEN
1118: x_return_status := FND_API.G_RET_STS_ERROR;
1119: FND_MSG_Pub.count_and_get
1120: ( p_count => x_msg_count
1121: , p_data => x_msg_data
1114: , x_msg_count => x_msg_count
1115: );
1116: EXCEPTION
1117: WHEN FND_API.G_EXC_ERROR THEN
1118: x_return_status := FND_API.G_RET_STS_ERROR;
1119: FND_MSG_Pub.count_and_get
1120: ( p_count => x_msg_count
1121: , p_data => x_msg_data
1122: );
1140: , x_msg_count OUT NOCOPY NUMBER)
1141: IS
1142: l_api_name CONSTANT VARCHAR2 (30) := 'Sorting_criteria_Delete';
1143: Begin
1144: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145: debug('delete sorting criteria');
1146: Delete wms_sort_criteria where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1144: x_return_status := FND_API.G_RET_STS_SUCCESS;
1145: debug('delete sorting criteria');
1146: Delete wms_sort_criteria where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: FND_MSG_Pub.count_and_get
1151: ( p_count => x_msg_count
1152: , p_data => x_msg_data
1145: debug('delete sorting criteria');
1146: Delete wms_sort_criteria where rule_id = p_mtl_picking_Rule_rec.wms_rule_id;
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: x_return_status := FND_API.G_RET_STS_ERROR;
1150: FND_MSG_Pub.count_and_get
1151: ( p_count => x_msg_count
1152: , p_data => x_msg_data
1153: );
1175: l_strategy_id NUMBER;
1176: l_strategy_name VARCHAR2(50);
1177: l_rowid VARCHAR2(500);
1178: Begin
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180: --check enabled flag for the rule, only insert strategy for enabled rules
1181: debug('Procedure Strategy_insert');
1182: if p_mtl_picking_rule_rec.enabled_flag <> 'Y' Then
1183: return;
1256: , X_Date_Type_From => null
1257: , X_Date_Type_To => null
1258: );
1259: EXCEPTION
1260: WHEN FND_API.G_EXC_ERROR THEN
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: FND_MSG_Pub.count_and_get
1263: ( p_count => x_msg_count
1264: , p_data => x_msg_data
1257: , X_Date_Type_To => null
1258: );
1259: EXCEPTION
1260: WHEN FND_API.G_EXC_ERROR THEN
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: FND_MSG_Pub.count_and_get
1263: ( p_count => x_msg_count
1264: , p_data => x_msg_data
1265: );
1286: )
1287: IS
1288: l_api_name CONSTANT VARCHAR2 (30) := 'Strategy_Update';
1289: Begin
1290: x_return_status := FND_API.G_RET_STS_SUCCESS;
1291: if p_mtl_picking_rule_rec.enabled_flag = 'N' then
1292: WMS_STRATEGIES_PKG.Update_Row(
1293: X_Strategy_Id => p_mtl_picking_rule_rec.wms_Strategy_Id,
1294: X_Organization_Id => -1,
1318: X_Attribute_Category => null
1319: );
1320: end if;
1321: EXCEPTION
1322: WHEN FND_API.G_EXC_ERROR THEN
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: FND_MSG_Pub.count_and_get
1325: ( p_count => x_msg_count
1326: , p_data => x_msg_data
1319: );
1320: end if;
1321: EXCEPTION
1322: WHEN FND_API.G_EXC_ERROR THEN
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: FND_MSG_Pub.count_and_get
1325: ( p_count => x_msg_count
1326: , p_data => x_msg_data
1327: );
1347: )
1348: IS
1349: l_api_name CONSTANT VARCHAR2 (30) := 'Strategy_Delete';
1350: Begin
1351: x_return_status := FND_API.G_RET_STS_SUCCESS;
1352: null;
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1350: Begin
1351: x_return_status := FND_API.G_RET_STS_SUCCESS;
1352: null;
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356: FND_MSG_Pub.count_and_get
1357: ( p_count => x_msg_count
1358: , p_data => x_msg_data
1351: x_return_status := FND_API.G_RET_STS_SUCCESS;
1352: null;
1353: EXCEPTION
1354: WHEN FND_API.G_EXC_ERROR THEN
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356: FND_MSG_Pub.count_and_get
1357: ( p_count => x_msg_count
1358: , p_data => x_msg_data
1359: );
1382: l_msg_data VARCHAR2(2000);
1383: l_msg_count NUMBER;
1384: v_type_code number;
1385: BEGIN
1386: x_return_status := FND_API.G_RET_STS_SUCCESS;
1387: l_picking_rule_rec := p_mtl_picking_rule_rec;
1388: debug('Procedure rule enable flag');
1389: IF l_picking_rule_rec.Enabled_Flag = 'Y' THEN
1390: l_picking_rule_rec.enabled_flag:='Y';
1391: -- Check rule Syntax
1392: debug('checksyntax');
1393: WMS_rule_PVT.CheckSyntax (
1394: p_api_version => 1.0
1395: ,p_init_msg_list => FND_API.G_TRUE
1396: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1397: ,x_return_status => l_return_status
1398: ,x_msg_count => l_msg_count
1399: ,x_msg_data => l_msg_data
1392: debug('checksyntax');
1393: WMS_rule_PVT.CheckSyntax (
1394: p_api_version => 1.0
1395: ,p_init_msg_list => FND_API.G_TRUE
1396: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1397: ,x_return_status => l_return_status
1398: ,x_msg_count => l_msg_count
1399: ,x_msg_data => l_msg_data
1400: ,p_rule_id => l_picking_rule_rec.wms_rule_ID
1398: ,x_msg_count => l_msg_count
1399: ,x_msg_data => l_msg_data
1400: ,p_rule_id => l_picking_rule_rec.wms_rule_ID
1401: );
1402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: debug('checksyntax failed');
1404: --INV_GLOBAL_PKG.Show_Errors;
1405: l_picking_rule_rec.Enabled_Flag := 'N';
1406: END IF;
1409: debug('generateruleexecpkgs');
1410: WMS_rule_gen_pkgs.GenerateRuleExecPkgs
1411: (
1412: p_api_version => 1.0
1413: ,p_init_msg_list => FND_API.G_TRUE
1414: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1415: ,x_return_status => l_return_status
1416: ,x_msg_count => l_msg_count
1417: ,x_msg_data => l_msg_data
1410: WMS_rule_gen_pkgs.GenerateRuleExecPkgs
1411: (
1412: p_api_version => 1.0
1413: ,p_init_msg_list => FND_API.G_TRUE
1414: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1415: ,x_return_status => l_return_status
1416: ,x_msg_count => l_msg_count
1417: ,x_msg_data => l_msg_data
1418: ,p_pick_code => 2
1463: where rule_id=p_mtl_picking_rule_rec.wms_rule_id;
1464: commit;
1465: END IF;
1466: EXCEPTION
1467: WHEN FND_API.G_EXC_ERROR THEN
1468: x_return_status := FND_API.G_RET_STS_ERROR;
1469: FND_MSG_Pub.count_and_get
1470: ( p_count => x_msg_count
1471: , p_data => x_msg_data
1464: commit;
1465: END IF;
1466: EXCEPTION
1467: WHEN FND_API.G_EXC_ERROR THEN
1468: x_return_status := FND_API.G_RET_STS_ERROR;
1469: FND_MSG_Pub.count_and_get
1470: ( p_count => x_msg_count
1471: , p_data => x_msg_data
1472: );
1530:
1531: l_nDummy VARCHAR2(1);
1532: l_bReturn BOOLEAN;
1533: BEGIN
1534: x_return_status := FND_API.G_RET_STS_SUCCESS;
1535: debug('check rule is assigned');
1536: debug('rule_id '|| p_mtl_picking_rule_rec.wms_rule_id);
1537: debug('strategy_id '|| p_mtl_picking_rule_rec.wms_strategy_id);
1538: /*
1573: end if;
1574:
1575: RETURN(l_bReturn);
1576: EXCEPTION
1577: WHEN FND_API.G_EXC_ERROR THEN
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579: FND_MSG_Pub.count_and_get
1580: ( p_count => x_msg_count
1581: , p_data => x_msg_data
1574:
1575: RETURN(l_bReturn);
1576: EXCEPTION
1577: WHEN FND_API.G_EXC_ERROR THEN
1578: x_return_status := FND_API.G_RET_STS_ERROR;
1579: FND_MSG_Pub.count_and_get
1580: ( p_count => x_msg_count
1581: , p_data => x_msg_data
1582: );
1604: l_msg_data VARCHAR2(2000);
1605: l_msg_count NUMBER;
1606: rec_status VARCHAR2(25);
1607: BEGIN
1608: x_return_status := FND_API.G_RET_STS_SUCCESS;
1609: IF p_mtl_picking_rule_rec.Enabled_Flag = 'Y' THEN
1610: WMS_Rule_PVT.GenerateRulePackage
1611: (
1612: p_api_version => 1.0
1609: IF p_mtl_picking_rule_rec.Enabled_Flag = 'Y' THEN
1610: WMS_Rule_PVT.GenerateRulePackage
1611: (
1612: p_api_version => 1.0
1613: ,p_init_msg_list => FND_API.G_TRUE
1614: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1615: ,x_return_status => x_return_status
1616: ,x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data
1610: WMS_Rule_PVT.GenerateRulePackage
1611: (
1612: p_api_version => 1.0
1613: ,p_init_msg_list => FND_API.G_TRUE
1614: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
1615: ,x_return_status => x_return_status
1616: ,x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data
1618: ,p_rule_id => p_mtl_picking_rule_rec.wms_RULE_ID
1616: ,x_msg_count => x_msg_count
1617: ,x_msg_data => x_msg_data
1618: ,p_rule_id => p_mtl_picking_rule_rec.wms_RULE_ID
1619: );
1620: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1621: THEN
1622: p_mtl_picking_rule_rec.Enabled_Flag := 'N';
1623: RAISE FND_API.G_EXC_ERROR;
1624: ELSE
1619: );
1620: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1621: THEN
1622: p_mtl_picking_rule_rec.Enabled_Flag := 'N';
1623: RAISE FND_API.G_EXC_ERROR;
1624: ELSE
1625: fnd_message.set_name('WMS','WMS_PACKAGE_REGENERATE');
1626: FND_MSG_PUB.Add;
1627: RAISE FND_API.G_EXC_ERROR;
1623: RAISE FND_API.G_EXC_ERROR;
1624: ELSE
1625: fnd_message.set_name('WMS','WMS_PACKAGE_REGENERATE');
1626: FND_MSG_PUB.Add;
1627: RAISE FND_API.G_EXC_ERROR;
1628: END IF;
1629: END IF;
1630: EXCEPTION
1631: WHEN FND_API.G_EXC_ERROR THEN
1627: RAISE FND_API.G_EXC_ERROR;
1628: END IF;
1629: END IF;
1630: EXCEPTION
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: FND_MSG_Pub.count_and_get
1634: ( p_count => x_msg_count
1635: , p_data => x_msg_data
1628: END IF;
1629: END IF;
1630: EXCEPTION
1631: WHEN FND_API.G_EXC_ERROR THEN
1632: x_return_status := FND_API.G_RET_STS_ERROR;
1633: FND_MSG_Pub.count_and_get
1634: ( p_count => x_msg_count
1635: , p_data => x_msg_data
1636: );