[Home] [Help]
110: g_oe_header_type oe_header_src_type;
111:
112: g_fulfillment_base VARCHAR2(1) := 'P';
113: g_matl_stat_checked BOOLEAN := FALSE;
114: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
115: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
116: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
117: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
118: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
111:
112: g_fulfillment_base VARCHAR2(1) := 'P';
113: g_matl_stat_checked BOOLEAN := FALSE;
114: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
115: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
116: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
117: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
118: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
119: G_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
112: g_fulfillment_base VARCHAR2(1) := 'P';
113: g_matl_stat_checked BOOLEAN := FALSE;
114: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
115: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
116: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
117: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
118: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
119: G_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
120:
113: g_matl_stat_checked BOOLEAN := FALSE;
114: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
115: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
116: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
117: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
118: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
119: G_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
120:
121: PROCEDURE DEBUG(p_message IN VARCHAR2,
114: G_RET_STS_SUCCESS VARCHAR2(1) := FND_API.g_ret_sts_success;
115: G_RET_STS_ERROR VARCHAR2(1) := FND_API.g_ret_sts_error;
116: G_RET_STS_UNEXP_ERROR VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
117: G_FALSE VARCHAR2(1) := FND_API.G_FALSE;
118: G_TRUE VARCHAR2(1) := FND_API.G_TRUE;
119: G_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
120:
121: PROCEDURE DEBUG(p_message IN VARCHAR2,
122: p_module IN VARCHAR2 ,
198: IF (l_debug = 1) THEN
199: DEBUG('Exception getting order src from OE order headers: ' || SQLERRM, 'get_demand_src_type');
200: END IF;
201:
202: RAISE fnd_api.g_exc_error;
203: END get_demand_src_type;
204:
205: PROCEDURE GET_TRIPSTOP_INFO(x_tripstop_info OUT NOCOPY t_genref
206: ,p_trip_id IN NUMBER
324: IF (l_debug = 1) THEN
325: DEBUG('Exception occured','check_direct_ship_for_lpn');
326: END IF;
327:
328: RAISE fnd_api.g_exc_error;
329: END;
330: END IF;
331:
332: IF (l_direct_ship ='Y') THEN
553: debug('p_delivery_id : ' || p_delivery_id ,'Check_Delivery');
554: debug('p_org_id : ' || p_org_id ,'Check_Delivery');
555: debug('p_dock_door_id : ' || p_dock_door_id,'Check_Delivery');
556: END IF;
557: x_return_Status := fnd_api.g_ret_sts_success;
558: x_error_code := 0; -- everything is fine
559: -- This procedure does all validation for a Delivery before it can be CONFIRMED
560: -- x_error_code = 1 Missing Item Calling program should call Missing Item cursor
561: -- x_error_code = 2 Material Status does not allow Sales Order Issue transaction
587: IF (l_debug = 1) THEN
588: debug('Lock delivery successful','Check_Delivery');
589: END IF;
590: EXCEPTION WHEN others THEN
591: x_return_Status := fnd_api.g_ret_sts_error;
592: fnd_message.set_name('WMS','WMS_DEL_LOCK_FAILURE');
593: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
594: /*Failed to aquire locks on wsh_new_deliveries for
595: fnd_msg_pub.add;
624: END IF;
625: fnd_msg_pub.count_and_get( p_count => x_msg_count,
626: p_data => x_msg_data
627: );
628: x_return_Status := fnd_api.g_ret_sts_error;
629: x_error_code := 1; -- not entire delivery is ready
630: rollback;
631: return;
632: ELSIF l_return_status <> 'S' THEN
629: x_error_code := 1; -- not entire delivery is ready
630: rollback;
631: return;
632: ELSIF l_return_status <> 'S' THEN
633: x_return_Status := fnd_api.g_ret_sts_unexp_error;
634: rollback;
635: return;
636: END IF;
637:
642: INV_SHIPPING_TRANSACTION_PUB.CHECK_DELIVERY_STATUS
643: (p_delivery_id => p_delivery_id
644: ,x_return_Status => l_return_status
645: ,x_error_msg => x_error_msg);
646: IF l_return_status = fnd_api.g_ret_sts_error THEN
647: fnd_message.set_name('WMS','WMS_NO_ISSUE_TRX');
648: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
649: /*Material Status prevents the sales order issue transaction for one
650: or more items in the delivery
654: 'returned with Status E '||P_DELIVERY_ID,'Check_Delivery');
655: END IF;
656: x_error_code := 2; -- status doesn't allow ship confirm
657: RAISE incomplete_delivery;
658: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
659: fnd_message.set_name('WMS','WMS_NO_ISSUE_TRX');
660: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
661: /*Material Status prevents the sales order issue transaction for one or
662: more items in the delivery
661: /*Material Status prevents the sales order issue transaction for one or
662: more items in the delivery
663: FND_MSG_PUB.ADD;
664: x_error_code := 2;
665: RAISE fnd_api.g_exc_unexpected_error;
666: END IF;
667: IF (l_debug = 1) THEN
668: debug('INV_SHIPPING_TRANSACTION_PUB.CHECK_DELIVERY_STATUS was successful','Check_Delivery');
669: END IF;
676: x_ship_set => l_ship_set,
677: x_return_Status => l_return_status,
678: x_error_msg => l_error_msg,
679: p_direct_ship_flag => 'Y' );
680: IF l_return_status = fnd_api.g_ret_sts_error THEN
681: IF (l_debug = 1) THEN
682: debug('WMS_SHIPPING_TRANSACTION_PUB.ship_set_check returned with status' ||
683: ' E- shipset '||l_ship_set,'Check_Delivery');
684: END IF;
685: FND_MESSAGE.SET_NAME('INV', 'WMS_WSH_SHIPSET_FORCED');
686: FND_MESSAGE.SET_TOKEN('SHIP_SET_NAME', l_ship_set);
687: FND_MSG_PUB.ADD;
688: RAISE unspec_ship_set_exists;
689: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
690: FND_MESSAGE.SET_NAME('INV', 'WMS_SHIPSET_FAILED');
691: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
692: /*Ship set validation for the delivery
693: FND_MSG_PUB.ADD;
693: FND_MSG_PUB.ADD;
694: IF (l_debug = 1) THEN
695: debug('WMS_SHIPPING_TRANSACTION_PUB.ship_set_check returned with status U','Check_Delivery');
696: END IF;
697: RAISE fnd_api.g_exc_unexpected_error;
698: END IF;
699: IF (l_debug = 1) THEN
700: debug('Call to WMS_SHIPPING_TRANSACTION_PUB.SHIP_SET_CHECK was successful ','Check_Delivery');
701: END IF;
718: FND_MSG_PUB.ADD;
719: fnd_msg_pub.count_and_get( p_count => x_msg_count,
720: p_data => x_msg_data
721: );
722: l_return_status := fnd_api.g_ret_sts_error;
723: x_error_code := 4;
724: IF (l_debug = 1) THEN
725: debug('lpn is in other dock door lpn,dock_door and del_id are '
726: || x_outermost_lpn ||' - ' ||l_loaded_dock_door || ' - '
740: ,x_msg_count => l_msg_count
741: ,x_msg_data => l_msg_data
742: ,p_delivery_id => p_delivery_id
743: );
744: IF l_return_status = fnd_api.g_ret_sts_error THEN
745: IF (l_debug = 1) THEN
746: debug('Call to chk_del_for_direct_ship returned with Status E '||P_DELIVERY_ID,'Check_Delivery');
747: END IF;
748: RAISE delivery_lines_mix;
745: IF (l_debug = 1) THEN
746: debug('Call to chk_del_for_direct_ship returned with Status E '||P_DELIVERY_ID,'Check_Delivery');
747: END IF;
748: RAISE delivery_lines_mix;
749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: IF (l_debug = 1) THEN
751: debug('Call to chk_del_for_direct_ship returned with Status U '||P_DELIVERY_ID,'Check_Delivery');
752: END IF;
753: RAISE fnd_api.g_exc_unexpected_error;
749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: IF (l_debug = 1) THEN
751: debug('Call to chk_del_for_direct_ship returned with Status U '||P_DELIVERY_ID,'Check_Delivery');
752: END IF;
753: RAISE fnd_api.g_exc_unexpected_error;
754: END IF;
755: EXCEPTION
756: WHEN unspec_ship_set_exists THEN
757: x_return_status := fnd_api.g_ret_sts_error;
753: RAISE fnd_api.g_exc_unexpected_error;
754: END IF;
755: EXCEPTION
756: WHEN unspec_ship_set_exists THEN
757: x_return_status := fnd_api.g_ret_sts_error;
758: x_error_code := 3;
759: IF (l_debug = 1) THEN
760: debug('In exception unspec_ship_set_exists -Check_Deliveries - errorcode '
761: ||x_error_code,'Check_Delivery');
765: ( p_count => x_msg_count
766: , p_data => x_msg_data);
767:
768: WHEN incomplete_delivery THEN
769: x_return_status := fnd_api.g_ret_sts_error;
770: fnd_msg_pub.count_and_get( p_count => x_msg_count,
771: p_data => x_msg_data
772: );
773: x_error_code := 2;
775: debug('In exception incomplete_delivery -Check_Deliveries - errorcode '||x_error_code,'Check_Delivery');
776: END IF;
777:
778: WHEN no_ship_method_code THEN
779: x_return_status := fnd_api.g_ret_sts_error;
780: FND_MESSAGE.SET_NAME('WMS','WMS_SHIP_METHOD_CODE');
781: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
782: /* No Ship method code provided for the delivery DELIVERY_NAME .This is required */
783: FND_MSG_PUB.ADD;
788: debug('In exception no_ship_method_code -Check_Deliveries - errorcode '||x_error_code,'Check_Delivery');
789: END IF;
790: x_error_code := 6;
791: WHEN check_ord_line_split THEN
792: x_return_status := fnd_api.g_ret_sts_error;
793: x_error_code := 7;
794: fnd_msg_pub.count_and_get
795: ( p_count => x_msg_count
796: , p_data => x_msg_data
795: ( p_count => x_msg_count
796: , p_data => x_msg_data
797: );
798: WHEN delivery_lines_mix THEN
799: x_return_status := fnd_api.g_ret_sts_error;
800: x_error_code := 8;
801: FND_MESSAGE.SET_NAME('WMS','WMS_DEL_LINES_MIX');
802: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_del_name);
803: /* The Delivery also has lines that were not staged through Direct Ship*/
805: fnd_msg_pub.count_and_get
806: ( p_count => x_msg_count
807: , p_data => x_msg_data
808: );
809: WHEN fnd_api.g_exc_unexpected_error THEN
810: x_return_status := fnd_api.g_ret_sts_unexp_error ;
811: -- Get message count and data
812: fnd_msg_pub.count_and_get
813: ( p_count => x_msg_count
806: ( p_count => x_msg_count
807: , p_data => x_msg_data
808: );
809: WHEN fnd_api.g_exc_unexpected_error THEN
810: x_return_status := fnd_api.g_ret_sts_unexp_error ;
811: -- Get message count and data
812: fnd_msg_pub.count_and_get
813: ( p_count => x_msg_count
814: , p_data => x_msg_data
817: debug('In unexpected -Check_Deliveries - errorcode '||x_error_code,'Check_Delivery');
818: END IF;
819:
820: WHEN OTHERS THEN
821: x_return_status := fnd_api.g_ret_sts_unexp_error;
822: fnd_msg_pub.count_and_get
823: ( p_count => x_msg_count
824: , p_data => x_msg_data
825: );
846: ,p_freight_term_name IN VARCHAR2
847: ,p_intmed_shipto_loc_id IN NUMBER
848: )IS
849:
850: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
851: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
852: l_msg_count NUMBER;
853: l_msg_data VARCHAR2(20000);
854: l_fob_location_id NUMBER := P_fob_location_id;
847: ,p_intmed_shipto_loc_id IN NUMBER
848: )IS
849:
850: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
851: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
852: l_msg_count NUMBER;
853: l_msg_data VARCHAR2(20000);
854: l_fob_location_id NUMBER := P_fob_location_id;
855: l_intmed_shipto_loc_id NUMBER :=p_intmed_shipto_loc_id;
877: AND FREIGHT_COST_ID IS NULL
878: FOR UPDATE OF FREIGHT_COST_ID;
879: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
880: BEGIN
881: x_return_status := fnd_api.g_ret_sts_success;
882:
883: IF p_delivery_id IS NOT NULL THEN
884: SELECT status_code
885: INTO l_status_code
933:
934: WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs (
935: p_api_version_number =>1.0
936: , p_init_msg_list =>l_init_msg_list
937: , p_commit => FND_API.G_FALSE
938: , x_return_status => l_return_status
939: , x_msg_count => l_msg_count
940: , x_msg_data => l_msg_data
941: , p_pub_freight_costs => l_freight_cost_rec
942: , p_action_code => 'CREATE'
943: , x_freight_cost_id => l_freight_cost_id
944: );
945:
946: IF( l_return_status IN(fnd_api.g_ret_sts_error)) THEN
947: FND_MESSAGE.SET_NAME('WMS','WMS_CREATE_FREIGHT_FAIL');
948: FND_MESSAGE.SET_TOKEN('OBJ','Delivery');
949: FND_MESSAGE.SET_TOKEN('VAL',l_del_name);
950: /* Creation of freight cost for OBJ VAL has failed */
951: fnd_msg_pub.add;
952: IF (l_debug = 1) THEN
953: debug('Update of Freight Cost for Del is failed ','UPDATE_DELIVERY');
954: END IF;
955: raise FND_API.G_EXC_ERROR;
956: ELSIF (l_return_status = 'U' ) THEN
957: FND_MESSAGE.SET_TOKEN('OBJ','Delivery');
958: FND_MESSAGE.SET_TOKEN('VAL',l_del_name);
959: /* Creation of freight cost for
960: fnd_msg_pub.add;
961: IF (l_debug = 1) THEN
962: debug('Update of Freight Cost for Del is succ ','UPDATE_DELIVERY');
963: END IF;
964: raise fnd_api.g_exc_unexpected_error;
965: END IF;
966:
967: UPDATE WMS_FREIGHT_COST_TEMP
968: SET freight_cost_id = l_freight_cost_id,
1038: ,p_delivery_name => l_delivery_name
1039: ,x_delivery_id => l_delivery_id
1040: ,x_name => l_name);
1041:
1042: IF( l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1043: IF (l_debug = 1) THEN
1044: debug('Create _Update_Delivery has errored ','UPDATE_DELIVERY');
1045: END IF;
1046: FND_MESSAGE.SET_NAME('WMS','WMS_UPDATE_DELIVERY_FAILED');
1046: FND_MESSAGE.SET_NAME('WMS','WMS_UPDATE_DELIVERY_FAILED');
1047: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1048: /* Updation of delivery
1049: fnd_msg_pub.add;
1050: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF (l_return_status IN (fnd_api.g_ret_sts_error)) THEN
1052: FND_MESSAGE.SET_NAME('WMS','UPDATE_DELIVERY_FAILED');
1053: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1054: /* Updation of delivery
1047: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1048: /* Updation of delivery
1049: fnd_msg_pub.add;
1050: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF (l_return_status IN (fnd_api.g_ret_sts_error)) THEN
1052: FND_MESSAGE.SET_NAME('WMS','UPDATE_DELIVERY_FAILED');
1053: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1054: /* Updation of delivery
1055: fnd_msg_pub.add;
1052: FND_MESSAGE.SET_NAME('WMS','UPDATE_DELIVERY_FAILED');
1053: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1054: /* Updation of delivery
1055: fnd_msg_pub.add;
1056: raise FND_API.G_EXC_ERROR;
1057: END IF;
1058: END IF;
1059: IF (l_debug = 1) THEN
1060: debug('Update delivery completed successfully');
1059: IF (l_debug = 1) THEN
1060: debug('Update delivery completed successfully');
1061: END IF;
1062: EXCEPTION
1063: WHEN fnd_api.g_exc_error THEN
1064: x_return_status := fnd_api.g_ret_sts_error;
1065: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1066: p_data => x_msg_data
1067: );
1060: debug('Update delivery completed successfully');
1061: END IF;
1062: EXCEPTION
1063: WHEN fnd_api.g_exc_error THEN
1064: x_return_status := fnd_api.g_ret_sts_error;
1065: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1066: p_data => x_msg_data
1067: );
1068: ROLLBACK;
1070: IF delivery_freight%ISOPEN THEN
1071: CLOSE delivery_freight;
1072: END IF;
1073:
1074: WHEN fnd_api.g_exc_unexpected_error THEN
1075: x_return_status := fnd_api.g_ret_sts_unexp_error;
1076: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data
1078: );
1071: CLOSE delivery_freight;
1072: END IF;
1073:
1074: WHEN fnd_api.g_exc_unexpected_error THEN
1075: x_return_status := fnd_api.g_ret_sts_unexp_error;
1076: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1077: p_data => x_msg_data
1078: );
1079: ROLLBACK;
1086: END IF;
1087:
1088: WHEN OTHERS THEN
1089: ROLLBACK;
1090: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1091: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1092: p_data => x_msg_data
1093: );
1094: IF delivery_freight%ISOPEN THEN
1183: ,p_intmed_shipto_loc_id IN NUMBER DEFAULT NULL
1184: ,p_org_id IN NUMBER DEFAULT NULL
1185: ,p_dock_door_id IN NUMBER DEFAULT NULL
1186: ) IS
1187: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
1188: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
1189: l_msg_count NUMBER;
1190: l_msg_data VARCHAR2(20000);
1191:
1184: ,p_org_id IN NUMBER DEFAULT NULL
1185: ,p_dock_door_id IN NUMBER DEFAULT NULL
1186: ) IS
1187: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
1188: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
1189: l_msg_count NUMBER;
1190: l_msg_data VARCHAR2(20000);
1191:
1192: l_ship_set VARCHAR2(2000) := NULL;
1242: FROM wsh_new_deliveries_ob_grp_v
1243: WHERE delivery_id = p_delivery_id;
1244:
1245: BEGIN
1246: x_return_status := FND_API.G_RET_STS_SUCCESS;
1247: x_ret_code := 0;
1248: IF (l_debug = 1) THEN
1249: debug('p_delivery_id : '||p_delivery_id,'ship_confirm');
1250: debug('p_net_weight : '||p_net_weight,'ship_confirm');
1306: ,p_freight_term_code => p_freight_term_code
1307: ,p_freight_term_name => p_freight_term_name
1308: ,p_intmed_shipto_loc_id => p_intmed_shipto_loc_id
1309: );
1310: IF l_return_status = fnd_api.g_ret_sts_error THEN
1311: IF (l_debug = 1) THEN
1312: DEBUG('Update Delivery API failed with status E ','SHIP_CONFIRM');
1313: END IF;
1314: RAISE fnd_api.g_exc_error;
1310: IF l_return_status = fnd_api.g_ret_sts_error THEN
1311: IF (l_debug = 1) THEN
1312: DEBUG('Update Delivery API failed with status E ','SHIP_CONFIRM');
1313: END IF;
1314: RAISE fnd_api.g_exc_error;
1315: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1316: IF (l_debug = 1) THEN
1317: DEBUG('Update Delivery API failed with status U','SHIP_CONFIRM');
1318: END IF;
1311: IF (l_debug = 1) THEN
1312: DEBUG('Update Delivery API failed with status E ','SHIP_CONFIRM');
1313: END IF;
1314: RAISE fnd_api.g_exc_error;
1315: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1316: IF (l_debug = 1) THEN
1317: DEBUG('Update Delivery API failed with status U','SHIP_CONFIRM');
1318: END IF;
1319: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1315: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1316: IF (l_debug = 1) THEN
1317: DEBUG('Update Delivery API failed with status U','SHIP_CONFIRM');
1318: END IF;
1319: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1320: END IF;
1321: END IF;
1322:
1323: -- Check for material status, shipset and missing item
1343: ,p_delivery_id => p_delivery_id
1344: ,p_organization_id => p_org_id
1345: ,p_dock_door_id => p_dock_door_id);
1346: x_error_code := l_error_code;
1347: x_return_status := FND_API.G_RET_STS_ERROR;
1348: fnd_msg_pub.count_and_get( p_count => x_msg_count,
1349: p_data => x_msg_data);
1350: RETURN;
1351: ELSIF (l_error_code in (2,3,4,5,6,7,8) ) THEN
1420: ,p_dock_door_id => p_dock_door_id
1421: ,p_delivery_id =>p_delivery_id /* bug 2741857 */
1422: ,p_direct_ship_flag => 'Y'
1423: );
1424: IF l_return_status = fnd_api.g_ret_sts_error THEN
1425: IF (l_debug = 1) THEN
1426: debug(' Ship_Confirm. Create Trip Failed','Ship_Confirm');
1427: END IF;
1428: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1428: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1429: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1430: /* Failed to create trip for the delivery DELIVERY_NAME */
1431: FND_MSG_PUB.ADD;
1432: RAISE fnd_api.g_exc_error;
1433: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1434: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1435: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1436: FND_MSG_PUB.ADD;
1429: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1430: /* Failed to create trip for the delivery DELIVERY_NAME */
1431: FND_MSG_PUB.ADD;
1432: RAISE fnd_api.g_exc_error;
1433: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1434: fnd_message.set_name('WMS','WMS_CREATE_TRIP_FAIL');
1435: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1436: FND_MSG_PUB.ADD;
1437: IF (l_debug = 1) THEN
1436: FND_MSG_PUB.ADD;
1437: IF (l_debug = 1) THEN
1438: debug(' Ship_Confirm. Create Trip Failed Unexpected Error','Ship_Confirm');
1439: END IF;
1440: RAISE fnd_api.g_exc_unexpected_error;
1441: END IF;
1442: IF (l_debug = 1) THEN
1443: debug('before calling Ship Confirm','Ship Confirm');
1444: END IF;
1463: debug('l_trip_id: ' || l_trip_id, 'Ship_Confirm');
1464: debug('l_trip_shipmethod_code: ' || l_trip_shipmethod_code, 'Ship_Confirm');
1465: debug('l_trip_shipmethod_meaning: ' || l_trip_shipmethod_meaning,'Ship_Confirm');
1466: END IF;
1467: IF l_return_status = fnd_api.g_ret_sts_error THEN
1468: RAISE fnd_api.g_exc_error;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1464: debug('l_trip_shipmethod_code: ' || l_trip_shipmethod_code, 'Ship_Confirm');
1465: debug('l_trip_shipmethod_meaning: ' || l_trip_shipmethod_meaning,'Ship_Confirm');
1466: END IF;
1467: IF l_return_status = fnd_api.g_ret_sts_error THEN
1468: RAISE fnd_api.g_exc_error;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472:
1465: debug('l_trip_shipmethod_meaning: ' || l_trip_shipmethod_meaning,'Ship_Confirm');
1466: END IF;
1467: IF l_return_status = fnd_api.g_ret_sts_error THEN
1468: RAISE fnd_api.g_exc_error;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472:
1473: -- If everything is fine then confirm the delivery
1466: END IF;
1467: IF l_return_status = fnd_api.g_ret_sts_error THEN
1468: RAISE fnd_api.g_exc_error;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: RAISE fnd_api.g_exc_unexpected_error;
1471: END IF;
1472:
1473: -- If everything is fine then confirm the delivery
1474:
1508:
1509: IF (l_debug = 1) THEN
1510: debug('after calling Ship confirm','Ship confirm');
1511: END IF;
1512: IF (l_return_status=fnd_api.g_ret_sts_success) THEN
1513: l_count:=0;
1514:
1515: FOR i in 1..WSH_INTEGRATION.G_MSG_TABLE.COUNT LOOP
1516: IF (WSH_INTEGRATION.G_MSG_TABLE(i).MESSAGE_TYPE = 'W' ) THEN
1523: END IF;
1524: WMS_SHIPPING_MESSAGES.PROCESS_SHIPPING_WARNING_MSGS(x_return_status => l_return_status ,
1525: x_msg_count => l_msg_count ,
1526: x_msg_data => l_msg_data,
1527: p_commit => FND_API.g_false,
1528: x_shipping_msg_tab => l_msg_table);
1529:
1530: FOR i in 1..l_msg_table.count LOOP
1531: IF ( l_msg_table(i).MESSAGE_TYPE = 'E' ) THEN
1529:
1530: FOR i in 1..l_msg_table.count LOOP
1531: IF ( l_msg_table(i).MESSAGE_TYPE = 'E' ) THEN
1532: --l_error_exists := TRUE;
1533: l_return_status:=fnd_api.g_ret_sts_error;
1534: FOR j in 1..WSH_INTEGRATION.G_MSG_TABLE.COUNT LOOP
1535: IF (l_msg_table(i).message_name = WSH_INTEGRATION.G_MSG_TABLE(j).MESSAGE_NAME) THEN
1536: WSH_INTEGRATION.G_MSG_TABLE(j).MESSAGE_TYPE := 'E';
1537: END IF;
1539: END IF;
1540: END LOOP;
1541: l_msg_table.delete;
1542: END IF;
1543: IF( l_return_status IN (fnd_api.g_ret_sts_error)) THEN
1544: FND_MESSAGE.SET_NAME('WMS','WMS_CONFIRM_DEL_FAIL');
1545: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1546: -- Ship Confirm of delivey
1547: FND_MSG_PUB.ADD;
1547: FND_MSG_PUB.ADD;
1548: IF (l_debug = 1) THEN
1549: debug(' Ship_Confirm. Confirm Delivery is failing from WSH_DELIVERY_PUB','Ship_Confirm');
1550: END IF;
1551: raise FND_API.G_EXC_ERROR;
1552:
1553: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1554: FND_MESSAGE.SET_NAME('WMS','WMS_CONFIRM_DEL_FAIL');
1555: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1549: debug(' Ship_Confirm. Confirm Delivery is failing from WSH_DELIVERY_PUB','Ship_Confirm');
1550: END IF;
1551: raise FND_API.G_EXC_ERROR;
1552:
1553: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1554: FND_MESSAGE.SET_NAME('WMS','WMS_CONFIRM_DEL_FAIL');
1555: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME',l_del_name);
1556: /* cONFIRM DELIVERY FAILED*/
1557: FND_MSG_PUB.ADD;
1557: FND_MSG_PUB.ADD;
1558: IF (l_debug = 1) THEN
1559: debug(' Ship_Confirm. Confirm Delivery is failing from WSH_DELIVERY_PUB, Unexpected error','Ship_Confirm');
1560: END IF;
1561: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1562: END IF;
1563:
1564: --Ship confirm successful. Display only Interface Trip stop message from shipping
1565: process_mobile_msg;
1564: --Ship confirm successful. Display only Interface Trip stop message from shipping
1565: process_mobile_msg;
1566: x_msg_count := fnd_msg_pub.count_msg;
1567: EXCEPTION
1568: WHEN fnd_api.g_exc_error THEN
1569: x_return_status := fnd_api.g_ret_sts_error;
1570: IF (l_debug = 1) THEN
1571: debug('In Exception (expected error) - E ','Ship_Confirm');
1572: END IF;
1565: process_mobile_msg;
1566: x_msg_count := fnd_msg_pub.count_msg;
1567: EXCEPTION
1568: WHEN fnd_api.g_exc_error THEN
1569: x_return_status := fnd_api.g_ret_sts_error;
1570: IF (l_debug = 1) THEN
1571: debug('In Exception (expected error) - E ','Ship_Confirm');
1572: END IF;
1573: fnd_msg_pub.count_and_get
1573: fnd_msg_pub.count_and_get
1574: ( p_count => x_msg_count,
1575: p_data => x_msg_data
1576: );
1577: WHEN fnd_api.g_exc_unexpected_error THEN
1578: x_return_status := fnd_api.g_ret_sts_unexp_error;
1579: IF (l_debug = 1) THEN
1580: debug('In Exception (unexpected error) - U ','Ship_Confirm');
1581: END IF;
1574: ( p_count => x_msg_count,
1575: p_data => x_msg_data
1576: );
1577: WHEN fnd_api.g_exc_unexpected_error THEN
1578: x_return_status := fnd_api.g_ret_sts_unexp_error;
1579: IF (l_debug = 1) THEN
1580: debug('In Exception (unexpected error) - U ','Ship_Confirm');
1581: END IF;
1582: fnd_msg_pub.count_and_get
1583: ( p_count => x_msg_count,
1584: p_data => x_msg_data
1585: );
1586: WHEN OTHERS THEN
1587: x_return_status := fnd_api.g_ret_sts_unexp_error;
1588: IF (l_debug = 1) THEN
1589: debug('In Exception (others)' ||SQLERRM,'Ship_Confirm');
1590: END IF;
1591: fnd_msg_pub.count_and_get
1614: ,p_freight_term_name IN VARCHAR2
1615: ,p_intmed_shipto_loc_id IN NUMBER
1616: ,p_org_id IN NUMBER
1617: ,p_dock_door_id IN NUMBER)IS
1618: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
1619: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
1620: l_msg_count NUMBER;
1621: l_msg_data VARCHAR2(20000);
1622: l_rowid ROWID;
1615: ,p_intmed_shipto_loc_id IN NUMBER
1616: ,p_org_id IN NUMBER
1617: ,p_dock_door_id IN NUMBER)IS
1618: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
1619: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
1620: l_msg_count NUMBER;
1621: l_msg_data VARCHAR2(20000);
1622: l_rowid ROWID;
1623: l_delivery_id NUMBER;
1656: -- delivery loaded on the dock.
1657: IF (l_debug = 1) THEN
1658: debug('Confirm All Deliveries: Begin delivery_id'||to_char(p_delivery_id),'CONFIRM_ALL_DELIVERIES');
1659: END IF;
1660: x_return_status:= FND_API.G_RET_STS_SUCCESS;
1661: IF (l_debug = 1) THEN
1662: debug('The value OF p_delivery_id is '||p_delivery_id,'Confirm_All_Delivery');
1663: debug('The value OF p_net_weight is '||p_net_weight,'Confirm_All_Delivery');
1664: debug('The value OF p_gross_weight is '||p_gross_weight,'Confirm_All_Delivery');
1703: );
1704: IF (l_debug = 1) THEN
1705: debug('Return Status from Update_Delivery: '||l_return_status, ' Confirm_All_Deliveries');
1706: END IF;
1707: IF l_return_status = fnd_api.g_ret_sts_error THEN
1708: IF (l_debug = 1) THEN
1709: debug('Update Delivery API failed with status E ','Confirm_All_deliveries');
1710: END IF;
1711: RAISE fnd_api.g_exc_error;
1707: IF l_return_status = fnd_api.g_ret_sts_error THEN
1708: IF (l_debug = 1) THEN
1709: debug('Update Delivery API failed with status E ','Confirm_All_deliveries');
1710: END IF;
1711: RAISE fnd_api.g_exc_error;
1712: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1713: IF (l_debug = 1) THEN
1714: debug('Update Delivery API failed with status U','Confirm_All_Deliveries');
1715: END IF;
1708: IF (l_debug = 1) THEN
1709: debug('Update Delivery API failed with status E ','Confirm_All_deliveries');
1710: END IF;
1711: RAISE fnd_api.g_exc_error;
1712: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1713: IF (l_debug = 1) THEN
1714: debug('Update Delivery API failed with status U','Confirm_All_Deliveries');
1715: END IF;
1716: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1712: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1713: IF (l_debug = 1) THEN
1714: debug('Update Delivery API failed with status U','Confirm_All_Deliveries');
1715: END IF;
1716: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1717: END IF;
1718: END IF;
1719: /* bug # 2994098 */
1720: -- If a delivery is ship confirmed from STF without closing the trip
1768: IF (l_debug = 1) THEN
1769: debug('Return Status - Error_code from Ship_Confirm 1: '||l_return_status
1770: ||' - '||l_error_code, ' Confirm_All_Deliveries');
1771: END IF;
1772: IF l_return_status = fnd_api.g_ret_sts_error THEN
1773: IF (l_debug = 1) THEN
1774: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1775: END IF;
1776: RAISE fnd_api.g_exc_error;
1772: IF l_return_status = fnd_api.g_ret_sts_error THEN
1773: IF (l_debug = 1) THEN
1774: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1775: END IF;
1776: RAISE fnd_api.g_exc_error;
1777: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1778: IF (l_debug = 1) THEN
1779: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1780: END IF;
1773: IF (l_debug = 1) THEN
1774: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1775: END IF;
1776: RAISE fnd_api.g_exc_error;
1777: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1778: IF (l_debug = 1) THEN
1779: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1780: END IF;
1781: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1777: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1778: IF (l_debug = 1) THEN
1779: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1780: END IF;
1781: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1782: END IF;
1783: END IF;
1784: IF ((p_org_id IS NOT NULL) AND (p_dock_door_id IS NOT NULL)) THEN
1785: IF (l_debug = 1) THEN
1808: IF (l_debug = 1) THEN
1809: debug('Return Status - Error_code from Ship_Confirm 2: '||l_return_status
1810: ||' - '||l_error_code, ' Confirm_All_Deliveries');
1811: END IF;
1812: IF l_return_status = fnd_api.g_ret_sts_error THEN
1813: IF (l_debug = 1) THEN
1814: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1815: END IF;
1816: RAISE fnd_api.g_exc_error;
1812: IF l_return_status = fnd_api.g_ret_sts_error THEN
1813: IF (l_debug = 1) THEN
1814: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1815: END IF;
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: IF (l_debug = 1) THEN
1819: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1820: END IF;
1813: IF (l_debug = 1) THEN
1814: debug('Ship Confirm API failed with status E ','Confirm_All_deliveries');
1815: END IF;
1816: RAISE fnd_api.g_exc_error;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: IF (l_debug = 1) THEN
1819: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1820: END IF;
1821: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1817: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1818: IF (l_debug = 1) THEN
1819: debug('Ship Confirm API failed with status U','Confirm_All_Deliveries');
1820: END IF;
1821: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1822: END IF;
1823: END LOOP;
1824: close loaded_deliveries;
1825: END IF;
1824: close loaded_deliveries;
1825: END IF;
1826:
1827: EXCEPTION
1828: WHEN fnd_api.g_exc_error THEN
1829: x_return_status := fnd_api.g_ret_sts_error;
1830: IF loaded_deliveries%isopen THEN
1831: CLOSE loaded_deliveries;
1832: END IF ;
1825: END IF;
1826:
1827: EXCEPTION
1828: WHEN fnd_api.g_exc_error THEN
1829: x_return_status := fnd_api.g_ret_sts_error;
1830: IF loaded_deliveries%isopen THEN
1831: CLOSE loaded_deliveries;
1832: END IF ;
1833: IF (l_debug = 1) THEN
1836: fnd_msg_pub.count_and_get
1837: ( p_count => x_msg_count,
1838: p_data => x_msg_data
1839: );
1840: WHEN fnd_api.g_exc_unexpected_error THEN
1841: x_return_status := fnd_api.g_ret_sts_unexp_error;
1842: IF loaded_deliveries%isopen THEN
1843: CLOSE loaded_deliveries;
1844: END IF ;
1837: ( p_count => x_msg_count,
1838: p_data => x_msg_data
1839: );
1840: WHEN fnd_api.g_exc_unexpected_error THEN
1841: x_return_status := fnd_api.g_ret_sts_unexp_error;
1842: IF loaded_deliveries%isopen THEN
1843: CLOSE loaded_deliveries;
1844: END IF ;
1845: IF (l_debug = 1) THEN
1849: ( p_count => x_msg_count,
1850: p_data => x_msg_data
1851: );
1852: WHEN OTHERS THEN
1853: x_return_status := fnd_api.g_ret_sts_unexp_error;
1854: IF loaded_deliveries%isopen THEN
1855: CLOSE loaded_deliveries;
1856: END IF ;
1857: IF (l_debug = 1) THEN
1886: l_out_trip_name VARCHAR2(30);
1887:
1888: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1889: BEGIN
1890: x_return_status:= fnd_api.g_ret_sts_success;
1891: wms_globals.g_ship_confirm_method := 'DIRECT';
1892: IF (l_debug = 1) THEN
1893: debug('Begin Create Trip ','CREATE_TRIP');
1894: debug('p_organization_id : ' || p_organization_id,'CREATE_TRIP');
1950: debug('The value of l_chk_trip_id is '||l_chk_trip_id,'create_trip');
1951: END IF;
1952: WSH_DELIVERIES_PUB.Delivery_Action
1953: ( p_api_version_number => 1.0,
1954: p_init_msg_list => FND_API.G_TRUE,
1955: x_return_status => l_return_status,
1956: x_msg_count => l_msg_count,
1957: x_msg_data => l_msg_data,
1958: p_action_code => 'ASSIGN-TRIP',
1959: p_delivery_id => l_del_tab(i),
1960: p_asg_trip_id => l_chk_trip_id ,
1961: x_trip_id => l_out_trip_id,
1962: X_TRIP_NAME => l_out_trip_name );
1963: IF l_return_status IN (fnd_api.g_ret_sts_success) THEN
1964: IF (l_debug = 1) THEN
1965: debug('UPDATE WSTT with the trip_id assigned','CREATE_TRIP');
1966: END IF;
1967: UPDATE WMS_SHIPPING_TRANSACTION_TEMP
1966: END IF;
1967: UPDATE WMS_SHIPPING_TRANSACTION_TEMP
1968: SET trip_id = l_chk_trip_id
1969: WHERE delivery_id = l_del_tab(i);
1970: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
1971: l_auto_trip_del(l_auto_trip_index) := l_del_tab(i);
1972: l_auto_trip_index := l_auto_trip_index +1;
1973: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1974: IF (l_debug = 1) THEN
1969: WHERE delivery_id = l_del_tab(i);
1970: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
1971: l_auto_trip_del(l_auto_trip_index) := l_del_tab(i);
1972: l_auto_trip_index := l_auto_trip_index +1;
1973: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1974: IF (l_debug = 1) THEN
1975: debug('Return unexpected error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',
1976: 'WMS_DIRECT_SHIP_PVT.Create_Trip');
1977: END IF;
1974: IF (l_debug = 1) THEN
1975: debug('Return unexpected error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',
1976: 'WMS_DIRECT_SHIP_PVT.Create_Trip');
1977: END IF;
1978: RAISE fnd_api.g_exc_unexpected_error;
1979: END IF;
1980: END LOOP;
1981: ELSIF l_del_tab.COUNT >0 THEN
1982: IF (l_debug = 1) THEN
1985: WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP(p_del_rows => l_del_tab,
1986: x_trip_id => l_trip_id,
1987: x_trip_name => l_trip_name,
1988: x_return_status => l_return_status);
1989: IF l_return_status IN (fnd_api.g_ret_sts_success) THEN
1990: IF (l_debug = 1) THEN
1991: debug('UPDATE WSTT with the trip created','CREATE_TRIP');
1992: END IF;
1993: FOR k in 1..l_del_tab.COUNT LOOP
1994: UPDATE WMS_SHIPPING_TRANSACTION_TEMP
1995: SET trip_id = l_trip_id
1996: WHERE delivery_id = l_del_tab(k);
1997: END LOOP;
1998: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
1999: IF (l_debug = 1) THEN
2000: debug('Return error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP','WMS_DIRECT_SHIP_PVT.Create_Trip');
2001: END IF;
2002: RAISE fnd_api.g_exc_error;
1998: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
1999: IF (l_debug = 1) THEN
2000: debug('Return error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP','WMS_DIRECT_SHIP_PVT.Create_Trip');
2001: END IF;
2002: RAISE fnd_api.g_exc_error;
2003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: IF (l_debug = 1) THEN
2005: debug('Return unexpected error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',
2006: 'WMS_DIRECT_SHIP_PVT.Create_Trip');
1999: IF (l_debug = 1) THEN
2000: debug('Return error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP','WMS_DIRECT_SHIP_PVT.Create_Trip');
2001: END IF;
2002: RAISE fnd_api.g_exc_error;
2003: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2004: IF (l_debug = 1) THEN
2005: debug('Return unexpected error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',
2006: 'WMS_DIRECT_SHIP_PVT.Create_Trip');
2007: END IF;
2004: IF (l_debug = 1) THEN
2005: debug('Return unexpected error from WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',
2006: 'WMS_DIRECT_SHIP_PVT.Create_Trip');
2007: END IF;
2008: RAISE fnd_api.g_exc_unexpected_error;
2009: END IF;
2010: END IF;
2011:
2012: IF l_auto_trip_del.count >0 THEN
2017: WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP(p_del_rows => l_auto_trip_del,
2018: x_trip_id => l_trip_id,
2019: x_trip_name => l_trip_name,
2020: x_return_status => l_return_status);
2021: IF l_return_status IN (fnd_api.g_ret_sts_success) THEN
2022: IF (l_debug = 1) THEN
2023: debug('UPDATE WSTT with the trip for failed assignments','CREATE_TRIP');
2024: END IF;
2025:
2028: SET trip_id = l_trip_id
2029: WHERE delivery_id = l_auto_trip_del(j);
2030: END LOOP;
2031:
2032: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
2033: IF (l_debug = 1) THEN
2034: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status E ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2035: END IF;
2036: RAISE fnd_api.g_exc_error;
2032: ELSIF l_return_status IN (fnd_api.g_ret_sts_error) THEN
2033: IF (l_debug = 1) THEN
2034: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status E ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2035: END IF;
2036: RAISE fnd_api.g_exc_error;
2037: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2038: IF (l_debug = 1) THEN
2039: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status U ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2040: END IF;
2033: IF (l_debug = 1) THEN
2034: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status E ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2035: END IF;
2036: RAISE fnd_api.g_exc_error;
2037: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2038: IF (l_debug = 1) THEN
2039: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status U ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2040: END IF;
2041: RAISE fnd_api.g_exc_unexpected_error;
2037: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2038: IF (l_debug = 1) THEN
2039: debug('The API WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP returned status U ','WMS_DIRECT_SHIP_PVT.Create_Trip');
2040: END IF;
2041: RAISE fnd_api.g_exc_unexpected_error;
2042: END IF;
2043: END IF;
2044:
2045: wms_globals.g_ship_confirm_method := null;
2043: END IF;
2044:
2045: wms_globals.g_ship_confirm_method := null;
2046: EXCEPTION
2047: WHEN fnd_api.g_exc_error THEN
2048: x_return_status := fnd_api.g_ret_sts_error;
2049: wms_globals.g_ship_confirm_method := NULL;
2050: IF (l_debug = 1) THEN
2051: debug('In Exception (expected error) - E ','CREATE_TRIP');
2044:
2045: wms_globals.g_ship_confirm_method := null;
2046: EXCEPTION
2047: WHEN fnd_api.g_exc_error THEN
2048: x_return_status := fnd_api.g_ret_sts_error;
2049: wms_globals.g_ship_confirm_method := NULL;
2050: IF (l_debug = 1) THEN
2051: debug('In Exception (expected error) - E ','CREATE_TRIP');
2052: END IF;
2053: fnd_msg_pub.count_and_get
2054: ( p_count => l_msg_count,
2055: p_data => l_msg_data
2056: );
2057: WHEN fnd_api.g_exc_unexpected_error THEN
2058: x_return_status := fnd_api.g_ret_sts_unexp_error;
2059: wms_globals.g_ship_confirm_method := NULL;
2060: IF (l_debug = 1) THEN
2061: debug('In Exception (unexpected error) - U ','Create_Trip');
2054: ( p_count => l_msg_count,
2055: p_data => l_msg_data
2056: );
2057: WHEN fnd_api.g_exc_unexpected_error THEN
2058: x_return_status := fnd_api.g_ret_sts_unexp_error;
2059: wms_globals.g_ship_confirm_method := NULL;
2060: IF (l_debug = 1) THEN
2061: debug('In Exception (unexpected error) - U ','Create_Trip');
2062: END IF;
2085: ,p_dock_door_id IN NUMBER DEFAULT NULL
2086: ,p_ship_method_code IN VARCHAR2 DEFAULT NULL)
2087: IS
2088:
2089: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
2090: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
2091: l_msg_count NUMBER;
2092: l_msg_data VARCHAR2(20000);
2093:
2086: ,p_ship_method_code IN VARCHAR2 DEFAULT NULL)
2087: IS
2088:
2089: l_init_msg_list VARCHAR2(1) :=FND_API.G_TRUE;
2090: l_return_status VARCHAR2(1) :=FND_API.G_RET_STS_SUCCESS;
2091: l_msg_count NUMBER;
2092: l_msg_data VARCHAR2(20000);
2093:
2094: l_freight_cost_rec WSH_FREIGHT_COSTS_PUB.PubFreightCostRecType;
2153: IF p_dock_door_id <> 0 THEN
2154: l_dock_door_id := p_dock_door_id;
2155: END IF;
2156:
2157: l_return_status := fnd_api.g_ret_sts_success;
2158: IF (l_debug = 1) THEN
2159: debug('In the procedure update trip_stop','trip_Stop');
2160: END IF;
2161:
2204: --patchst J. Shipping API cleanup
2205: WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs
2206: (p_api_version_number =>1.0
2207: , p_init_msg_list =>l_init_msg_list
2208: , p_commit => FND_API.G_FALSE
2209: , x_return_status => l_return_status
2210: , x_msg_count => l_msg_count
2211: , x_msg_data => l_msg_DATA
2212: , p_pub_freight_costs => l_freight_cost_rec
2212: , p_pub_freight_costs => l_freight_cost_rec
2213: , p_action_code => 'CREATE'
2214: , x_freight_cost_id => l_freight_cost_id
2215: );
2216: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2217: FND_MESSAGE.SET_NAME('WMS','WMS_CREATE_FREIGHT_FAIL');
2218: FND_MESSAGE.SET_TOKEN('OBJ','Trip');
2219: FND_MESSAGE.SET_TOKEN('VAL',l_name);
2220: /* Creation of freight cost for
2222: FND_MSG_PUB.ADD;
2223: IF (l_debug = 1) THEN
2224: debug('Create_Update Freight Cost API failed with status E ','Update Trip Stop');
2225: END IF;
2226: RAISE fnd_api.g_exc_error;
2227: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2228: FND_MESSAGE.SET_NAME('WMS','CREATE_FREIGHT_FAIL');
2229: FND_MSG_PUB.ADD;
2230: IF (l_debug = 1) THEN
2223: IF (l_debug = 1) THEN
2224: debug('Create_Update Freight Cost API failed with status E ','Update Trip Stop');
2225: END IF;
2226: RAISE fnd_api.g_exc_error;
2227: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2228: FND_MESSAGE.SET_NAME('WMS','CREATE_FREIGHT_FAIL');
2229: FND_MSG_PUB.ADD;
2230: IF (l_debug = 1) THEN
2231: debug('Update Freight Cost failed with status U','Update TripStop');
2229: FND_MSG_PUB.ADD;
2230: IF (l_debug = 1) THEN
2231: debug('Update Freight Cost failed with status U','Update TripStop');
2232: END IF;
2233: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2234: END IF;
2235: --\Shipping API cleanup
2236:
2237: UPDATE WMS_FREIGHT_COST_TEMP
2275: ,p_stop_info => l_stop_info
2276: ,p_trip_id => l_trip_id
2277: ,x_stop_id => l_stop_id);
2278:
2279: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2280: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_STOP_FAIL');
2281: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_name);
2282: -- Failed to Create/update Trip Stop for the trip
2283: fnd_msg_pub.ADD;
2283: fnd_msg_pub.ADD;
2284: IF (l_debug = 1) THEN
2285: debug('Create_Update_Stop API failed with status E ','Update Trip Stop');
2286: END IF;
2287: RAISE fnd_api.g_exc_error;
2288: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2289: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_STOP_FAIL');
2290: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_name);
2291: -- Failed to Create/update Trip Stop for the trip
2284: IF (l_debug = 1) THEN
2285: debug('Create_Update_Stop API failed with status E ','Update Trip Stop');
2286: END IF;
2287: RAISE fnd_api.g_exc_error;
2288: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2289: FND_MESSAGE.SET_NAME('WMS','WMS_UPD_STOP_FAIL');
2290: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_name);
2291: -- Failed to Create/update Trip Stop for the trip
2292: fnd_msg_pub.ADD;
2292: fnd_msg_pub.ADD;
2293: IF (l_debug = 1) THEN
2294: debug('Create_Update_Stop failed with status U','Update TripStop');
2295: END IF;
2296: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2297: END IF;
2298: --\Shipping API cleanup
2299: END IF; -- Update Stop
2300:
2326: ,p_action_code => 'UPDATE'
2327: ,p_trip_info => p_trip_info
2328: ,x_trip_id => l_trip_id
2329: ,x_trip_name => l_trip_name);
2330: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2331: IF (l_debug = 1) THEN
2332: debug('Create_Update_Trip API failed with status E ','Update Trip Stop');
2333: END IF;
2334: RAISE fnd_api.g_exc_error;
2330: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2331: IF (l_debug = 1) THEN
2332: debug('Create_Update_Trip API failed with status E ','Update Trip Stop');
2333: END IF;
2334: RAISE fnd_api.g_exc_error;
2335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2336: IF (l_debug = 1) THEN
2337: debug('Create_Update_Trip failed with status U','Update TripStop');
2338: END IF;
2331: IF (l_debug = 1) THEN
2332: debug('Create_Update_Trip API failed with status E ','Update Trip Stop');
2333: END IF;
2334: RAISE fnd_api.g_exc_error;
2335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2336: IF (l_debug = 1) THEN
2337: debug('Create_Update_Trip failed with status U','Update TripStop');
2338: END IF;
2339: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2335: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2336: IF (l_debug = 1) THEN
2337: debug('Create_Update_Trip failed with status U','Update TripStop');
2338: END IF;
2339: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2340: END IF;
2341:
2342: -- Update Trip
2343:
2343:
2344: COMMIT;
2345:
2346: EXCEPTION
2347: WHEN fnd_api.g_exc_error THEN
2348: x_return_status := fnd_api.g_ret_sts_error;
2349: IF (l_debug = 1) THEN
2350: debug('In exception (E) ','Update_Trip_Stop');
2351: END IF;
2344: COMMIT;
2345:
2346: EXCEPTION
2347: WHEN fnd_api.g_exc_error THEN
2348: x_return_status := fnd_api.g_ret_sts_error;
2349: IF (l_debug = 1) THEN
2350: debug('In exception (E) ','Update_Trip_Stop');
2351: END IF;
2352: ROLLBACK;
2357: ( p_count => x_msg_count,
2358: p_data => x_msg_data
2359: );
2360:
2361: WHEN fnd_api.g_exc_unexpected_error THEN
2362: x_return_status := fnd_api.g_ret_sts_unexp_error;
2363: IF (l_debug = 1) THEN
2364: debug('Update of Trip Stop has failed :Unexpected Error','Update_Trip_Stop');
2365: END IF;
2358: p_data => x_msg_data
2359: );
2360:
2361: WHEN fnd_api.g_exc_unexpected_error THEN
2362: x_return_status := fnd_api.g_ret_sts_unexp_error;
2363: IF (l_debug = 1) THEN
2364: debug('Update of Trip Stop has failed :Unexpected Error','Update_Trip_Stop');
2365: END IF;
2366: ROLLBACK;
2373: );
2374:
2375: WHEN OTHERS THEN
2376: ROLLBACK;
2377: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2378: IF (l_debug = 1) THEN
2379: debug('Update of Trip has failed : Unexpected Error '||SQLERRM,'Update_trip_Stop');
2380: END IF;
2381: IF trip_freight%ISOPEN THEN
2416: AND wdl.pick_up_stop_id = wts.stop_id;
2417:
2418: l_del_cur del_cur%ROWTYPE;
2419: l_stop_cur stop_cur%ROWTYPE;
2420: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
2421: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2422: l_msg_count NUMBER;
2423: l_msg_data VARCHAR2(20000);
2424: l_report_set_id NUMBER;
2417:
2418: l_del_cur del_cur%ROWTYPE;
2419: l_stop_cur stop_cur%ROWTYPE;
2420: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
2421: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2422: l_msg_count NUMBER;
2423: l_msg_data VARCHAR2(20000);
2424: l_report_set_id NUMBER;
2425: l_trip_id wsh_util_core.id_tab_type;
2432: l_num NUMBER;
2433: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2434:
2435: BEGIN
2436: x_return_status := fnd_api.g_ret_sts_success;
2437:
2438: IF (l_debug = 1) THEN
2439: debug('Begin print_shipping_document ','print_shipping_document');
2440: debug('p_trip_id : ' || p_trip_id , 'print_shipping_document');
2461: , p_dock_door_id => p_dock_door_id
2462: , p_ship_method_code => p_ship_method_code
2463: );
2464:
2465: IF l_return_status = fnd_api.g_ret_sts_error THEN
2466: IF (l_debug = 1) THEN
2467: DEBUG('Update tripstop API failed with status E ', 'Print_shipping_dcouments');
2468: END IF;
2469:
2466: IF (l_debug = 1) THEN
2467: DEBUG('Update tripstop API failed with status E ', 'Print_shipping_dcouments');
2468: END IF;
2469:
2470: RAISE fnd_api.g_exc_error;
2471: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2472: IF (l_debug = 1) THEN
2473: DEBUG('Update tripstop API failed with status U ', 'Print_shipping_dcouments');
2474: END IF;
2467: DEBUG('Update tripstop API failed with status E ', 'Print_shipping_dcouments');
2468: END IF;
2469:
2470: RAISE fnd_api.g_exc_error;
2471: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2472: IF (l_debug = 1) THEN
2473: DEBUG('Update tripstop API failed with status U ', 'Print_shipping_dcouments');
2474: END IF;
2475:
2472: IF (l_debug = 1) THEN
2473: DEBUG('Update tripstop API failed with status U ', 'Print_shipping_dcouments');
2474: END IF;
2475:
2476: RAISE fnd_api.g_exc_unexpected_error;
2477: END IF;
2478:
2479: IF p_document_set_id = 0 THEN
2480: l_report_set_id := NULL;
2546: IF l_count2 > l_count1 THEN
2547: l_count1 := l_count1 + 2;
2548:
2549: FOR i IN REVERSE l_count1 .. l_count2 LOOP
2550: l_dummy := fnd_msg_pub.get(i, fnd_api.g_true);
2551:
2552: IF (l_debug = 1) THEN
2553: DEBUG('Messages are' || l_dummy, 'Print_Shipping_document');
2554: END IF;
2556: fnd_msg_pub.delete_msg(i);
2557: END LOOP;
2558: END IF;
2559:
2560: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2561: fnd_message.set_name('WMS', 'WMS_PRINT_DOC_SET_FAIL');
2562: /* Failed to print the documents set */
2563: fnd_msg_pub.ADD;
2564:
2564:
2565: IF (l_debug = 1) THEN
2566: DEBUG('Print Document_sets API failed with status E ', 'Print_shipping_dcouments');
2567: END IF;
2568: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2569: fnd_message.set_name('WMS', 'WMS_PRINT_DOC_SET_FAIL');
2570: /* Failed to print the documents set */
2571: fnd_msg_pub.ADD;
2572:
2576: END IF;
2577:
2578: END IF; -- Print report set
2579: EXCEPTION
2580: WHEN fnd_api.g_exc_error THEN
2581: x_return_status := fnd_api.g_ret_sts_error;
2582:
2583: IF (l_debug = 1) THEN
2584: DEBUG('Print Document has failed :Error', 'Print_shipping_dcouments');
2577:
2578: END IF; -- Print report set
2579: EXCEPTION
2580: WHEN fnd_api.g_exc_error THEN
2581: x_return_status := fnd_api.g_ret_sts_error;
2582:
2583: IF (l_debug = 1) THEN
2584: DEBUG('Print Document has failed :Error', 'Print_shipping_dcouments');
2585: END IF;
2586:
2587: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2588: ROLLBACK;
2589: -- Think of some messages here.
2590: WHEN fnd_api.g_exc_unexpected_error THEN
2591: IF (l_debug = 1) THEN
2592: DEBUG('Print Document has failed with status U', 'Print_shipping_dcouments');
2593: END IF;
2594:
2591: IF (l_debug = 1) THEN
2592: DEBUG('Print Document has failed with status U', 'Print_shipping_dcouments');
2593: END IF;
2594:
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: ROLLBACK;
2597: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2598:
2599: -- Think of some messages here.
2601: DEBUG('Print Document has failed :Unexpected Error', 'Print_shipping_dcouments');
2602: END IF;
2603: WHEN OTHERS THEN
2604: ROLLBACK;
2605: x_return_status := fnd_api.g_ret_sts_unexp_error;
2606:
2607: IF (l_debug = 1) THEN
2608: DEBUG('Print Document has failed : Unexpected Error', 'Print_shipping_dcouments');
2609: END IF;
2632: , p_org_id IN NUMBER DEFAULT NULL
2633: , p_dock_door_id IN NUMBER DEFAULT NULL
2634: , p_ship_method_code IN VARCHAR2 DEFAULT NULL
2635: ) IS
2636: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
2637: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2638: l_msg_count NUMBER;
2639: l_msg_data VARCHAR2(20000);
2640: l_stop_id NUMBER;
2633: , p_dock_door_id IN NUMBER DEFAULT NULL
2634: , p_ship_method_code IN VARCHAR2 DEFAULT NULL
2635: ) IS
2636: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
2637: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2638: l_msg_count NUMBER;
2639: l_msg_data VARCHAR2(20000);
2640: l_stop_id NUMBER;
2641: l_trip_name VARCHAR2(30);
2689: DEBUG('p_dock_door_id : ' || p_dock_door_id, 'close_trip');
2690: DEBUG('p_ship_method_code : ' || p_ship_method_code, 'close_trip');
2691: END IF;
2692:
2693: x_return_status := fnd_api.g_ret_sts_success;
2694: fnd_msg_pub.initialize;
2695:
2696: IF (l_debug = 1) THEN
2697: DEBUG('Begin Close Trip ', 'CLOSE_TRIP');
2707: IF (l_debug = 1) THEN
2708: DEBUG('The value for trip_id passed is zero. Exiting out ', 'close_trip');
2709: END IF;
2710:
2711: RAISE fnd_api.g_exc_error;
2712: ELSE
2713: BEGIN
2714: SELECT NAME
2715: INTO l_name
2757: , p_dock_door_id => p_dock_door_id
2758: , p_ship_method_code => p_ship_method_code
2759: );
2760:
2761: IF l_return_status = fnd_api.g_ret_sts_error THEN
2762: IF (l_debug = 1) THEN
2763: DEBUG('Print shipping documents API failed with status E ', 'Close_Trip');
2764: END IF;
2765:
2762: IF (l_debug = 1) THEN
2763: DEBUG('Print shipping documents API failed with status E ', 'Close_Trip');
2764: END IF;
2765:
2766: RAISE fnd_api.g_exc_error;
2767: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2768: IF (l_debug = 1) THEN
2769: DEBUG('Print shipping documents API failed with status U', 'Close_Trip');
2770: END IF;
2763: DEBUG('Print shipping documents API failed with status E ', 'Close_Trip');
2764: END IF;
2765:
2766: RAISE fnd_api.g_exc_error;
2767: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2768: IF (l_debug = 1) THEN
2769: DEBUG('Print shipping documents API failed with status U', 'Close_Trip');
2770: END IF;
2771:
2768: IF (l_debug = 1) THEN
2769: DEBUG('Print shipping documents API failed with status U', 'Close_Trip');
2770: END IF;
2771:
2772: RAISE fnd_api.g_exc_unexpected_error;
2773: END IF;
2774:
2775: -- Check if there is an LPN loaded on a different Dock Door for the Trip. If so throw an error
2776: -- Error code in this case is
2795: fnd_message.set_token('TRIP', l_trip_name);
2796: fnd_message.set_token('DOCK', l_loaded_dock_door);
2797: /*Close Trip failed */
2798: fnd_msg_pub.ADD;
2799: x_return_status := fnd_api.g_ret_sts_error;
2800: CLOSE lpn_in_other_dock;
2801: RETURN;
2802: END IF;
2803:
2838: , p_trip_id => p_trip_id
2839: , p_defer_interface_flag => 'N'
2840: );
2841:
2842: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2843: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2844: fnd_message.set_token('TRIP_NAME', l_name);
2845: /*Failed to close the trip TRIP_NAME*/
2846: fnd_msg_pub.ADD;
2848: IF (l_debug = 1) THEN
2849: DEBUG('Stop_Action API failed with status E ', 'Close_Trip');
2850: END IF;
2851:
2852: RAISE fnd_api.g_exc_error;
2853: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2854: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2855: fnd_message.set_token('TRIP_NAME', l_name);
2856: /*Failed to close the trip TRIP_NAME*/
2849: DEBUG('Stop_Action API failed with status E ', 'Close_Trip');
2850: END IF;
2851:
2852: RAISE fnd_api.g_exc_error;
2853: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2854: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2855: fnd_message.set_token('TRIP_NAME', l_name);
2856: /*Failed to close the trip TRIP_NAME*/
2857: fnd_msg_pub.ADD;
2859: IF (l_debug = 1) THEN
2860: DEBUG('Stop_Action API failed with status U', 'Close_Trip');
2861: END IF;
2862:
2863: RAISE fnd_api.g_exc_unexpected_error;
2864: END IF;
2865:
2866: /*8973130-starts */
2867: -- Get the drop off stop for the trip so that it may be closed.
2891: , p_trip_id => p_trip_id
2892: , p_defer_interface_flag => 'N'
2893: );
2894:
2895: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
2896: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2897: fnd_message.set_token('TRIP_NAME', l_name);
2898: /*Failed to close the trip TRIP_NAME*/
2899: fnd_msg_pub.ADD;
2901: IF (l_debug = 1) THEN
2902: DEBUG('Stop_Action API failed with status E ', 'Close_Trip');
2903: END IF;
2904:
2905: RAISE fnd_api.g_exc_error;
2906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2907: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2908: fnd_message.set_token('TRIP_NAME', l_name);
2909: /*Failed to close the trip TRIP_NAME*/
2902: DEBUG('Stop_Action API failed with status E ', 'Close_Trip');
2903: END IF;
2904:
2905: RAISE fnd_api.g_exc_error;
2906: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2907: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2908: fnd_message.set_token('TRIP_NAME', l_name);
2909: /*Failed to close the trip TRIP_NAME*/
2910: fnd_msg_pub.ADD;
2912: IF (l_debug = 1) THEN
2913: DEBUG('Stop_Action API failed with status U', 'Close_Trip');
2914: END IF;
2915:
2916: RAISE fnd_api.g_exc_unexpected_error;
2917: END IF;
2918: /*8973130-Ends */
2919:
2920: OPEN delivery_details;
2928: END LOOP;
2929:
2930: wms_shipping_transaction_pub.print_label(l_delivery_details_tab, l_return_status);
2931:
2932: IF x_return_status <>(fnd_api.g_ret_sts_success) THEN
2933: fnd_message.set_name('INV', 'INV_RCV_CRT_PRINT_LAB_FAIL');
2934:
2935: IF (l_debug = 1) THEN
2936: DEBUG('Label Printing failed ', 'Close Trip');
2955: , p_outermost_lpn_id => NULL
2956: , p_trip_id => l_trip_id
2957: );
2958:
2959: IF l_return_status =(fnd_api.g_ret_sts_error) THEN
2960: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2961: /*Failed while running cleanup program */
2962: fnd_msg_pub.ADD;
2963:
2964: IF (l_debug = 1) THEN
2965: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Close_Trip');
2966: END IF;
2967:
2968: RAISE fnd_api.g_exc_error;
2969: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2970: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2971: /*Failed while running cleanup program */
2972: fnd_msg_pub.ADD;
2965: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Close_Trip');
2966: END IF;
2967:
2968: RAISE fnd_api.g_exc_error;
2969: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2970: fnd_message.set_name('WMS', 'WMS_CLOSE_TRIP_FAIL');
2971: /*Failed while running cleanup program */
2972: fnd_msg_pub.ADD;
2973:
2974: IF (l_debug = 1) THEN
2975: DEBUG('CLEANUP_TEMP_RECS API failed with status U', 'Close_Trip');
2976: END IF;
2977:
2978: RAISE fnd_api.g_exc_unexpected_error;
2979: END IF;
2980: END LOOP;
2981:
2982: CLOSE closed_trips;
2982: CLOSE closed_trips;
2983: -- Call clean up API at this time. This API will create
2984: EXCEPTION
2985: WHEN no_ship_method_code THEN
2986: x_return_status := fnd_api.g_ret_sts_error;
2987: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
2988: fnd_message.set_token('TRIP_NAME', l_name);
2989: /* No Ship method code provided for the Trip .This is required */
2990: fnd_msg_pub.ADD;
2989: /* No Ship method code provided for the Trip .This is required */
2990: fnd_msg_pub.ADD;
2991: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2992: DEBUG('In exception no_ship_method_code - - errorcode ', 'Close Trip');
2993: WHEN fnd_api.g_exc_error THEN
2994: x_return_status := fnd_api.g_ret_sts_error;
2995: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2996: ROLLBACK;
2997:
2990: fnd_msg_pub.ADD;
2991: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2992: DEBUG('In exception no_ship_method_code - - errorcode ', 'Close Trip');
2993: WHEN fnd_api.g_exc_error THEN
2994: x_return_status := fnd_api.g_ret_sts_error;
2995: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2996: ROLLBACK;
2997:
2998: -- Think of some messages here.
2998: -- Think of some messages here.
2999: IF (l_debug = 1) THEN
3000: DEBUG('Close Trip has failed :Error', 'Close_Trip');
3001: END IF;
3002: WHEN fnd_api.g_exc_unexpected_error THEN
3003: x_return_status := fnd_api.g_ret_sts_unexp_error;
3004: ROLLBACK;
3005:
3006: -- Think of some messages here.
2999: IF (l_debug = 1) THEN
3000: DEBUG('Close Trip has failed :Error', 'Close_Trip');
3001: END IF;
3002: WHEN fnd_api.g_exc_unexpected_error THEN
3003: x_return_status := fnd_api.g_ret_sts_unexp_error;
3004: ROLLBACK;
3005:
3006: -- Think of some messages here.
3007: IF (l_debug = 1) THEN
3010:
3011: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3012: WHEN OTHERS THEN
3013: ROLLBACK;
3014: x_return_status := fnd_api.g_ret_sts_unexp_error;
3015:
3016: IF (l_debug = 1) THEN
3017: DEBUG('Close Trip has failed : Unexpected Error', 'Close_Trip');
3018: END IF;
3081:
3082: l_del_lpn del_lpn%ROWTYPE;
3083: l_del_det_id NUMBER;
3084: l_status_code VARCHAR2(2);
3085: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
3086: l_del_id NUMBER;
3087: l_trip_id NUMBER;
3088: l_trip_name VARCHAR2(30);
3089: l_delivery_detail_id NUMBER;
3133: where outermost_lpn_id = p_outermost_lpn_id;
3134:
3135:
3136: BEGIN
3137: x_return_status := fnd_api.g_ret_sts_success;
3138:
3139: IF (l_debug = 1) THEN
3140: DEBUG('p_org_id: ' || p_org_id, 'UNLOAD_TRUCK');
3141: DEBUG('p_outermost_lpn_id: ' || p_outermost_lpn_id, 'UNLOAD_TRUCK');
3162: END IF;
3163: wsh_freight_costs_pub.delete_freight_costs
3164: (p_api_version_number => 1.0,
3165: p_init_msg_list => l_init_msg_list,
3166: p_commit => fnd_api.g_false,
3167: x_return_status => l_return_status,
3168: x_msg_count => l_msg_count,
3169: x_msg_data => l_msg_data,
3170: p_pub_freight_costs => l_freight_costs);
3215: IF (l_debug = 1) THEN
3216: DEBUG('The value of return status of delivery_actions is ' || l_return_status, 'unload_truck');
3217: END IF;
3218:
3219: IF (l_return_status IN(fnd_api.g_ret_sts_error)) THEN
3220: IF (l_debug = 1) THEN
3221: DEBUG('Reopening of delivery failed ' || l_del_id, 'UNLOAD_TRUCK');
3222: END IF;
3223:
3220: IF (l_debug = 1) THEN
3221: DEBUG('Reopening of delivery failed ' || l_del_id, 'UNLOAD_TRUCK');
3222: END IF;
3223:
3224: RAISE fnd_api.g_exc_error;
3225: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3226: IF (l_debug = 1) THEN
3227: DEBUG(' Reopening of delivery failed with Unexpected error' || l_del_id, 'UNLOAD_TRUCK');
3228: END IF;
3221: DEBUG('Reopening of delivery failed ' || l_del_id, 'UNLOAD_TRUCK');
3222: END IF;
3223:
3224: RAISE fnd_api.g_exc_error;
3225: ELSIF(l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3226: IF (l_debug = 1) THEN
3227: DEBUG(' Reopening of delivery failed with Unexpected error' || l_del_id, 'UNLOAD_TRUCK');
3228: END IF;
3229:
3226: IF (l_debug = 1) THEN
3227: DEBUG(' Reopening of delivery failed with Unexpected error' || l_del_id, 'UNLOAD_TRUCK');
3228: END IF;
3229:
3230: RAISE fnd_api.g_exc_unexpected_error;
3231: END IF;
3232: END IF;
3233: EXCEPTION
3234: WHEN NO_DATA_FOUND THEN
3282: ELSE
3283: IF (l_debug = 1) THEN
3284: DEBUG('Error from inv_cache.set_item_rec', 'Unload Truck');
3285: END IF;
3286: RAISE fnd_api.g_exc_unexpected_error;
3287: END IF;
3288:
3289: --Increment the loop counter
3290: counter := counter + 1;
3377: , p_sec_shipped_quantity => 0
3378: , x_msg_data => x_msg_data
3379: , x_msg_count => x_msg_count
3380: , x_return_status => l_return_status
3381: , p_commit_flag => fnd_api.g_false
3382: ,p_relieve_rsv => l_relieve_rsv /*added 3396821*/
3383: );
3384: ELSE
3385: inv_shipping_transaction_pub.inv_line_return_to_stock(
3388: , p_shipped_quantity => 0
3389: , x_msg_data => x_msg_data
3390: , x_msg_count => x_msg_count
3391: , x_return_status => l_return_status
3392: , p_commit_flag => fnd_api.g_false
3393: ,p_relieve_rsv => l_relieve_rsv /*added 3396821*/
3394: );
3395: END IF;
3396:
3393: ,p_relieve_rsv => l_relieve_rsv /*added 3396821*/
3394: );
3395: END IF;
3396:
3397: IF l_return_status = fnd_api.g_ret_sts_error THEN
3398: fnd_message.set_name('WMS', 'WMS_RET_LINE_TO_STOCK');
3399: /* Failed to unload the delivery line */
3400: fnd_msg_pub.ADD;
3401:
3402: IF (l_debug = 1) THEN
3403: DEBUG('inv_line_return_to_stock API failed with status E ', 'Unload_Truck');
3404: END IF;
3405:
3406: RAISE fnd_api.g_exc_error;
3407: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3408: IF (l_debug = 1) THEN
3409: DEBUG('inv_line_return_to_stock API failed with status U', 'Unload_Truck');
3410: END IF;
3403: DEBUG('inv_line_return_to_stock API failed with status E ', 'Unload_Truck');
3404: END IF;
3405:
3406: RAISE fnd_api.g_exc_error;
3407: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3408: IF (l_debug = 1) THEN
3409: DEBUG('inv_line_return_to_stock API failed with status U', 'Unload_Truck');
3410: END IF;
3411:
3411:
3412: fnd_message.set_name('WMS', 'WMS_RET_LINE_TO_STOCK');
3413: /* Failed to unload the delivery line */
3414: fnd_msg_pub.ADD;
3415: RAISE fnd_api.g_exc_unexpected_error;
3416: END IF;
3417:
3418: IF (l_debug = 1) THEN
3419: DEBUG('inv_line_return_to_stock successful for iteration #:' || counter, 'Unload_truck');
3451: END IF;
3452:
3453: WMS_CONTAINER_PVT.Modify_LPNs(
3454: p_api_version => 1.0
3455: , p_init_msg_list => fnd_api.g_true
3456: , p_commit => fnd_api.g_false
3457: , x_return_status => l_return_status
3458: , x_msg_count => x_msg_count
3459: , x_msg_data => x_msg_data
3452:
3453: WMS_CONTAINER_PVT.Modify_LPNs(
3454: p_api_version => 1.0
3455: , p_init_msg_list => fnd_api.g_true
3456: , p_commit => fnd_api.g_false
3457: , x_return_status => l_return_status
3458: , x_msg_count => x_msg_count
3459: , x_msg_data => x_msg_data
3460: , p_caller => 'WMS_DIRECTSHIP'
3459: , x_msg_data => x_msg_data
3460: , p_caller => 'WMS_DIRECTSHIP'
3461: , p_lpn_table => l_lpn_tbl
3462: );
3463: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3464: IF (l_debug = 1) THEN
3465: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3466: END IF;
3467: RAISE fnd_api.g_exc_error;
3463: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3464: IF (l_debug = 1) THEN
3465: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3466: END IF;
3467: RAISE fnd_api.g_exc_error;
3468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3469: IF (l_debug = 1) THEN
3470: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3471: END IF;
3464: IF (l_debug = 1) THEN
3465: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3466: END IF;
3467: RAISE fnd_api.g_exc_error;
3468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3469: IF (l_debug = 1) THEN
3470: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3471: END IF;
3472: RAISE fnd_api.g_exc_unexpected_error;
3468: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3469: IF (l_debug = 1) THEN
3470: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3471: END IF;
3472: RAISE fnd_api.g_exc_unexpected_error;
3473: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
3474: null;
3475: END IF;
3476: -- End of Release 12 change
3469: IF (l_debug = 1) THEN
3470: DEBUG('return error from WMS_CONTAINER_PVT.Modify_LPNs', 'Unload_Truck');
3471: END IF;
3472: RAISE fnd_api.g_exc_unexpected_error;
3473: ELSIF l_return_status = fnd_api.g_ret_sts_success THEN
3474: null;
3475: END IF;
3476: -- End of Release 12 change
3477:
3484: , p_outermost_lpn_id => p_outermost_lpn_id
3485: , p_trip_id => NULL
3486: );
3487:
3488: IF l_return_status = fnd_api.g_ret_sts_error THEN
3489: fnd_message.set_name('WMS', 'WMS_CLEANUP_TEMP');
3490: /*Failed in cleanup program*/
3491: fnd_msg_pub.ADD;
3492:
3493: IF (l_debug = 1) THEN
3494: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Unload_truck');
3495: END IF;
3496:
3497: RAISE fnd_api.g_exc_error;
3498: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3499: fnd_message.set_name('WMS', 'WMS_CLEANUP_TEMP');
3500: /*Failed in cleanup program*/
3501: fnd_msg_pub.ADD;
3494: DEBUG('CLEANUP_TEMP_RECS API failed with status E ', 'Unload_truck');
3495: END IF;
3496:
3497: RAISE fnd_api.g_exc_error;
3498: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3499: fnd_message.set_name('WMS', 'WMS_CLEANUP_TEMP');
3500: /*Failed in cleanup program*/
3501: fnd_msg_pub.ADD;
3502:
3503: IF (l_debug = 1) THEN
3504: DEBUG('CLEANUP_TEMP_RECS failed with status U', 'Unload_truck');
3505: END IF;
3506:
3507: RAISE fnd_api.g_exc_unexpected_error;
3508: END IF;
3509:
3510: IF (l_debug = 1) THEN
3511: DEBUG('UNLOAD_TRUCK Completed successfully', 'Unload Truck');
3513:
3514: -- Commit if no errors
3515: COMMIT;
3516: EXCEPTION
3517: WHEN fnd_api.g_exc_error THEN
3518: x_return_status := fnd_api.g_ret_sts_error;
3519: ROLLBACK;
3520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3521:
3514: -- Commit if no errors
3515: COMMIT;
3516: EXCEPTION
3517: WHEN fnd_api.g_exc_error THEN
3518: x_return_status := fnd_api.g_ret_sts_error;
3519: ROLLBACK;
3520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3521:
3522: IF (l_debug = 1) THEN
3521:
3522: IF (l_debug = 1) THEN
3523: DEBUG('Execution Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3524: END IF;
3525: WHEN fnd_api.g_exc_unexpected_error THEN
3526: x_return_status := fnd_api.g_ret_sts_unexp_error;
3527: ROLLBACK;
3528: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3529:
3522: IF (l_debug = 1) THEN
3523: DEBUG('Execution Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3524: END IF;
3525: WHEN fnd_api.g_exc_unexpected_error THEN
3526: x_return_status := fnd_api.g_ret_sts_unexp_error;
3527: ROLLBACK;
3528: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3529:
3530: IF (l_debug = 1) THEN
3531: DEBUG('Unexpected Error in Unload_Truck:' || SUBSTR(SQLERRM, 1, 240), 'Unload_Truck');
3532: END IF;
3533: WHEN OTHERS THEN
3534: --x_error_code := 9999;
3535: x_return_status := fnd_api.g_ret_sts_unexp_error;
3536: ROLLBACK;
3537:
3538: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3539: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'UNLOAD_TRUCK');
3569:
3570: l_outermost_lpn_id NUMBER;
3571: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3572: BEGIN
3573: x_return_status := fnd_api.g_ret_sts_success;
3574:
3575: IF p_trip_id IS NOT NULL THEN
3576: BEGIN
3577: --Delete the records for the LPN
3647: END IF;
3648: EXCEPTION
3649: WHEN OTHERS THEN
3650: --x_error_code := 9999;
3651: x_return_status := fnd_api.g_ret_sts_unexp_error;
3652: ROLLBACK;
3653:
3654: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3655: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'CLEANUP_TEMP');
3737: l_trx_status_enabled NUMBER;
3738: l_lpn_status VARCHAR2(1) := 'Y';
3739: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3740: BEGIN
3741: x_return_status := fnd_api.g_ret_sts_success;
3742:
3743: SELECT NVL(status_control_flag,2)
3744: INTO l_trx_status_enabled
3745: FROM mtl_transaction_types
3770: , p_object_type => 'A'
3771: );
3772:
3773: IF l_lpn_status <> 'Y' THEN
3774: x_return_status := fnd_api.g_ret_sts_error;
3775: EXIT;
3776: END IF;
3777:
3778: END LOOP;
3779:
3780: CLOSE lpn_contents;
3781: EXCEPTION
3782: WHEN OTHERS THEN
3783: x_return_status := fnd_api.g_ret_sts_unexp_error;
3784:
3785: IF lpn_contents%ISOPEN THEN
3786: CLOSE lpn_contents;
3787: END IF;
3818:
3819: l_freight_cost_rec wsh_freight_costs_pub.pubfreightcostrectype;
3820: l_delivery_detail delivery_detail%ROWTYPE;
3821: l_lpn_freight lpn_freight%ROWTYPE;
3822: l_init_msg_list VARCHAR2(1) := fnd_api.g_true;
3823: l_return_status VARCHAR2(1);
3824: l_msg_count NUMBER;
3825: l_msg_data VARCHAR2(20000);
3826: l_freight_cost_id NUMBER;
3825: l_msg_data VARCHAR2(20000);
3826: l_freight_cost_id NUMBER;
3827: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3828: BEGIN
3829: x_return_status := fnd_api.g_ret_sts_success;
3830: SAVEPOINT freight_cost;
3831: OPEN delivery_detail;
3832:
3833: LOOP
3849: l_freight_cost_rec.action_code := 'CREATE';
3850: wsh_freight_costs_pub.create_update_freight_costs(
3851: p_api_version_number => 1.0
3852: , p_init_msg_list => l_init_msg_list
3853: , p_commit => fnd_api.g_false
3854: , x_return_status => l_return_status
3855: , x_msg_count => l_msg_count
3856: , x_msg_data => l_msg_data
3857: , p_pub_freight_costs => l_freight_cost_rec
3858: , p_action_code => 'CREATE'
3859: , x_freight_cost_id => l_freight_cost_id
3860: );
3861:
3862: IF l_return_status = fnd_api.g_ret_sts_error THEN
3863: IF (l_debug = 1) THEN
3864: DEBUG('Create_Update_Freight_Costs API completed status E ', 'update_freight_cost');
3865: END IF;
3866:
3863: IF (l_debug = 1) THEN
3864: DEBUG('Create_Update_Freight_Costs API completed status E ', 'update_freight_cost');
3865: END IF;
3866:
3867: RAISE fnd_api.g_exc_error;
3868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3869: IF (l_debug = 1) THEN
3870: DEBUG('Create_Update_Freight_Costs API completed status U ', 'update_freight_cost');
3871: END IF;
3864: DEBUG('Create_Update_Freight_Costs API completed status E ', 'update_freight_cost');
3865: END IF;
3866:
3867: RAISE fnd_api.g_exc_error;
3868: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3869: IF (l_debug = 1) THEN
3870: DEBUG('Create_Update_Freight_Costs API completed status U ', 'update_freight_cost');
3871: END IF;
3872:
3869: IF (l_debug = 1) THEN
3870: DEBUG('Create_Update_Freight_Costs API completed status U ', 'update_freight_cost');
3871: END IF;
3872:
3873: RAISE fnd_api.g_exc_unexpected_error;
3874: END IF;
3875:
3876: UPDATE wms_freight_cost_temp
3877: SET freight_cost_id = l_freight_cost_id
3885: IF (l_debug = 1) THEN
3886: DEBUG('Update_Freight cost Update was successful', 'update_freight_cost');
3887: END IF;
3888: EXCEPTION
3889: WHEN fnd_api.g_exc_error THEN
3890: IF (l_debug = 1) THEN
3891: DEBUG('Update_Freight cost API failed with status (E)', 'update_freight_cost');
3892: END IF;
3893:
3898: IF delivery_detail%ISOPEN THEN
3899: CLOSE delivery_detail;
3900: END IF;
3901:
3902: x_return_status := fnd_api.g_ret_sts_error;
3903: ROLLBACK TO freight_cost;
3904: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3905: WHEN fnd_api.g_exc_unexpected_error THEN
3906: IF lpn_freight%ISOPEN THEN
3901:
3902: x_return_status := fnd_api.g_ret_sts_error;
3903: ROLLBACK TO freight_cost;
3904: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3905: WHEN fnd_api.g_exc_unexpected_error THEN
3906: IF lpn_freight%ISOPEN THEN
3907: CLOSE lpn_freight;
3908: END IF;
3909:
3910: IF delivery_detail%ISOPEN THEN
3911: CLOSE delivery_detail;
3912: END IF;
3913:
3914: x_return_status := fnd_api.g_ret_sts_unexp_error;
3915:
3916: IF (l_debug = 1) THEN
3917: DEBUG('Update_Freight cost API failed with status (U)', 'update_freight_cost');
3918: END IF;
3927: IF delivery_detail%ISOPEN THEN
3928: CLOSE delivery_detail;
3929: END IF;
3930:
3931: x_return_status := fnd_api.g_ret_sts_unexp_error;
3932:
3933: IF (l_debug = 1) THEN
3934: DEBUG('Update_Freight cost API failed with status (U)', 'update_freight_cost');
3935: END IF;
4143: l_serial_number_str VARCHAR2(3000);
4144: l_cur_group_mark_id NUMBER;
4145: l_cur_reservation_id NUMBER;
4146: BEGIN
4147: --x_return_status := fnd_api.g_ret_sts_success;
4148:
4149: IF (l_debug = 1) THEN
4150: DEBUG('p_organization_id : ' || p_organization_id, 'EXPLODE_DELIVERY_DETAILS');
4151: DEBUG(' p_lpn_id : ' || p_lpn_id , 'EXPLODE_DELIVERY_DETAILS');
4701: IF (l_debug = 1) THEN
4702: DEBUG('inv_mark_serial ended with errors (E) ', 'EXPLODE_DELIVERY_DETAILS');
4703: END IF;
4704:
4705: RAISE fnd_api.g_exc_error;
4706: END IF; */
4707:
4708: /* 5506223: Because of the above, using direct update to MSN to set the
4709: * group_mark_id */
4724: DEBUG( 'p_organization_id : '|| p_organization_id ,
4725: 'EXPLODE_DELIVERY_DETAILS');
4726: END IF;
4727:
4728: RAISE fnd_api.g_exc_error;
4729: END IF;
4730: END ;
4731: IF (l_debug = 1) THEN
4732: DEBUG( 'inserting serials ' || l_serial_numbers_table(n) || ' into msnt WITH temp_id ='
4746: IF (l_debug = 1) THEN
4747: DEBUG('insert_ser_trx ended with errors ' || l_proc_msg, 'EXPLODE_DELIVERY_DETAILS');
4748: END IF;
4749:
4750: RAISE fnd_api.g_exc_error;
4751: END IF;
4752:
4753: IF (l_debug = 1) THEN
4754: DEBUG('l_running_quantity (while_loop)= ' || l_running_quantity, 'EXPLODE_DELIVERY_DETAILS');
4758: n := n + 1;
4759: END LOOP;
4760: END IF; -- Serial Control Code If
4761: EXCEPTION
4762: WHEN fnd_api.g_exc_error THEN
4763: x_return_status := fnd_api.g_ret_sts_error;
4764: ROLLBACK;
4765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4766: WHEN fnd_api.g_exc_unexpected_error THEN
4759: END LOOP;
4760: END IF; -- Serial Control Code If
4761: EXCEPTION
4762: WHEN fnd_api.g_exc_error THEN
4763: x_return_status := fnd_api.g_ret_sts_error;
4764: ROLLBACK;
4765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4766: WHEN fnd_api.g_exc_unexpected_error THEN
4767: x_return_status := fnd_api.g_ret_sts_unexp_error;
4762: WHEN fnd_api.g_exc_error THEN
4763: x_return_status := fnd_api.g_ret_sts_error;
4764: ROLLBACK;
4765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4766: WHEN fnd_api.g_exc_unexpected_error THEN
4767: x_return_status := fnd_api.g_ret_sts_unexp_error;
4768: ROLLBACK;
4769: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4770: WHEN OTHERS THEN
4763: x_return_status := fnd_api.g_ret_sts_error;
4764: ROLLBACK;
4765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4766: WHEN fnd_api.g_exc_unexpected_error THEN
4767: x_return_status := fnd_api.g_ret_sts_unexp_error;
4768: ROLLBACK;
4769: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4770: WHEN OTHERS THEN
4771: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4809: l_picked_qty NUMBER;
4810: l_sec_picked_qty NUMBER;
4811: l_shipped_qty NUMBER;
4812: l_sec_shipped_qty NUMBER;
4813: l_commit VARCHAR2(1) := fnd_api.g_false;
4814: l_new_delivery_detail_id NUMBER;
4815: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
4816: l_trip_id NUMBER;
4817: l_oe_order_header_id NUMBER;
4811: l_shipped_qty NUMBER;
4812: l_sec_shipped_qty NUMBER;
4813: l_commit VARCHAR2(1) := fnd_api.g_false;
4814: l_new_delivery_detail_id NUMBER;
4815: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
4816: l_trip_id NUMBER;
4817: l_oe_order_header_id NUMBER;
4818: l_dual_uom_item BOOLEAN := FALSE;
4819:
4823: WHERE outermost_lpn_id = p_outermost_lpn_id
4824: ORDER BY lpn_id;
4825:
4826: BEGIN
4827: x_return_status := fnd_api.g_ret_sts_success;
4828: /*Query Reservations for LPN to be staged*/
4829:
4830: IF (l_debug = 1) THEN
4831: DEBUG('Inside Overship_Staged_Lines ', 'Overship Staged Lines');
4859: END IF;
4860:
4861: inv_reservation_pub.query_reservation(
4862: p_api_version_number => 1.0
4863: , p_init_msg_lst => fnd_api.g_false
4864: , x_return_status => l_return_status
4865: , x_msg_count => l_msg_count
4866: , x_msg_data => l_msg_data
4867: , p_query_input => l_reservation_record
4864: , x_return_status => l_return_status
4865: , x_msg_count => l_msg_count
4866: , x_msg_data => l_msg_data
4867: , p_query_input => l_reservation_record
4868: , p_lock_records => fnd_api.g_false
4869: , x_mtl_reservation_tbl => l_reservation_tbl
4870: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4871: , x_error_code => l_error_code);
4872:
4869: , x_mtl_reservation_tbl => l_reservation_tbl
4870: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4871: , x_error_code => l_error_code);
4872:
4873: IF l_return_status = fnd_api.g_ret_sts_error THEN
4874: IF (l_debug = 1) THEN
4875: DEBUG('Error during query_reservation for mso ID ' || p_mso_id
4876: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4877: END IF;
4875: DEBUG('Error during query_reservation for mso ID ' || p_mso_id
4876: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4877: END IF;
4878:
4879: RAISE fnd_api.g_exc_error;
4880: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4881: IF (l_debug = 1) THEN
4882: DEBUG('Unexpected error during query_reservation for mso ID ' || p_mso_id
4883: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4876: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4877: END IF;
4878:
4879: RAISE fnd_api.g_exc_error;
4880: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4881: IF (l_debug = 1) THEN
4882: DEBUG('Unexpected error during query_reservation for mso ID ' || p_mso_id
4883: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4884: END IF;
4882: DEBUG('Unexpected error during query_reservation for mso ID ' || p_mso_id
4883: || ', oe line ID ' || p_source_line_id, 'Overship Staged Lines');
4884: END IF;
4885:
4886: RAISE fnd_api.g_exc_unexpected_error;
4887: END IF;
4888:
4889: FOR i IN 1..l_mtl_reservation_tbl_count LOOP
4890: l_mtl_reservation_tbl(l_mtl_reservation_tbl.COUNT + 1) := l_reservation_tbl(i);
4910: ELSE
4911: IF (l_debug = 1) THEN
4912: DEBUG('Error from inv_cache.set_item_rec', 'Overship Staged Lines');
4913: END IF;
4914: RAISE fnd_api.g_exc_unexpected_error;
4915: END IF;
4916:
4917: IF (l_debug = 1) THEN
4918: DEBUG('After call to query_reservation. Record count: '||l_mtl_reservation_tbl_count,
4999: IF (l_debug = 1) THEN
5000: DEBUG('After calling Update_shipping_attributes', 'Overship Staged Lines');
5001: END IF;
5002:
5003: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5004: IF (l_debug = 1) THEN
5005: DEBUG('Return error from update shipping attributes 2', 'Overship Staged Lines');
5006: END IF;
5007:
5004: IF (l_debug = 1) THEN
5005: DEBUG('Return error from update shipping attributes 2', 'Overship Staged Lines');
5006: END IF;
5007:
5008: RAISE fnd_api.g_exc_error;
5009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5010: IF (l_debug = 1) THEN
5011: DEBUG('Return unexpected error from update shipping attributes', 'Overship Staged Lines');
5012: END IF;
5005: DEBUG('Return error from update shipping attributes 2', 'Overship Staged Lines');
5006: END IF;
5007:
5008: RAISE fnd_api.g_exc_error;
5009: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5010: IF (l_debug = 1) THEN
5011: DEBUG('Return unexpected error from update shipping attributes', 'Overship Staged Lines');
5012: END IF;
5013:
5010: IF (l_debug = 1) THEN
5011: DEBUG('Return unexpected error from update shipping attributes', 'Overship Staged Lines');
5012: END IF;
5013:
5014: RAISE fnd_api.g_exc_unexpected_error;
5015: ELSIF l_return_status = 'S' THEN
5016: IF (l_debug = 1) THEN
5017: DEBUG('Shipping attributes updated successfully','Overship Staged Lines');
5018: END IF;
5024: END IF;
5025:
5026: WSH_DELIVERY_DETAILS_PUB.split_line
5027: (p_api_version => 1.0,
5028: p_init_msg_list => fnd_api.g_false,
5029: p_commit => fnd_api.g_false,
5030: x_return_status => l_return_status,
5031: x_msg_count => l_msg_count,
5032: x_msg_data => l_msg_data,
5025:
5026: WSH_DELIVERY_DETAILS_PUB.split_line
5027: (p_api_version => 1.0,
5028: p_init_msg_list => fnd_api.g_false,
5029: p_commit => fnd_api.g_false,
5030: x_return_status => l_return_status,
5031: x_msg_count => l_msg_count,
5032: x_msg_data => l_msg_data,
5033: p_from_detail_id => l_delivery_detail_id,
5038: IF (l_debug = 1) THEN
5039: DEBUG('After Split Line'||l_new_delivery_Detail_id,'Overship Staged Lines');
5040: END IF;
5041:
5042: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5043: IF (l_debug = 1) THEN
5044: DEBUG('Return error from split_delivery_details ', 'Overship Staged Lines');
5045: END IF;
5046:
5043: IF (l_debug = 1) THEN
5044: DEBUG('Return error from split_delivery_details ', 'Overship Staged Lines');
5045: END IF;
5046:
5047: RAISE fnd_api.g_exc_error;
5048: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5049: IF (l_debug = 1) THEN
5050: DEBUG('Return unexpected error from split_delivery_details', 'Overship Staged Lines');
5051: END IF;
5044: DEBUG('Return error from split_delivery_details ', 'Overship Staged Lines');
5045: END IF;
5046:
5047: RAISE fnd_api.g_exc_error;
5048: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5049: IF (l_debug = 1) THEN
5050: DEBUG('Return unexpected error from split_delivery_details', 'Overship Staged Lines');
5051: END IF;
5052:
5049: IF (l_debug = 1) THEN
5050: DEBUG('Return unexpected error from split_delivery_details', 'Overship Staged Lines');
5051: END IF;
5052:
5053: RAISE fnd_api.g_exc_unexpected_error;
5054: END IF;
5055:
5056: /*Unassign from old container*/
5057:
5062: IF (l_debug = 1) THEN
5063: DEBUG('After Unassign'|| l_return_status, 'Overship Staged Lines');
5064: END IF;
5065:
5066: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5067: IF (l_debug = 1) THEN
5068: DEBUG('Error Unassign_Detail_from_Cont'|| l_return_status, 'Overship Staged Lines');
5069: END IF;
5070: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5068: DEBUG('Error Unassign_Detail_from_Cont'|| l_return_status, 'Overship Staged Lines');
5069: END IF;
5070: FND_MESSAGE.SET_NAME('INV', 'INV_UNASSIGN_DEL_FAILURE');
5071: FND_MSG_PUB.ADD;
5072: RAISE FND_API.G_EXC_ERROR;
5073: END IF;
5074:
5075: /*Now update the new delivery_Detail with correct attributes*/
5076: l_shipping_attr_tab.DELETE;
5130: IF (l_debug = 1) THEN
5131: DEBUG('After update shipping attributes', 'Overship Staged Lines');
5132: END IF;
5133:
5134: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5135: IF (l_debug = 1) THEN
5136: DEBUG('Return error from update shipping attributes', 'Overship Staged Lines');
5137: END IF;
5138:
5135: IF (l_debug = 1) THEN
5136: DEBUG('Return error from update shipping attributes', 'Overship Staged Lines');
5137: END IF;
5138:
5139: RAISE fnd_api.g_exc_error;
5140: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5141: IF (l_debug = 1) THEN
5142: DEBUG('Return unexpected error from update shipping attributes','Overship Staged Lines');
5143: END IF;
5136: DEBUG('Return error from update shipping attributes', 'Overship Staged Lines');
5137: END IF;
5138:
5139: RAISE fnd_api.g_exc_error;
5140: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5141: IF (l_debug = 1) THEN
5142: DEBUG('Return unexpected error from update shipping attributes','Overship Staged Lines');
5143: END IF;
5144:
5141: IF (l_debug = 1) THEN
5142: DEBUG('Return unexpected error from update shipping attributes','Overship Staged Lines');
5143: END IF;
5144:
5145: RAISE fnd_api.g_exc_unexpected_error;
5146: END IF;
5147:
5148: SELECT wds.ORGANIZATION_ID
5149: ,WDS.DOCK_DOOR_ID
5423: , p_org_id => p_organization_id
5424: , p_outermost_lpn_id => l_outer_lpn.lpn_id
5425: );
5426:
5427: IF l_return_status IN(fnd_api.g_ret_sts_error) THEN
5428: IF (l_debug = 1) THEN
5429: DEBUG('create_update_containers API failed with status E ', 'STAGE_LPN');
5430: END IF;
5431:
5428: IF (l_debug = 1) THEN
5429: DEBUG('create_update_containers API failed with status E ', 'STAGE_LPN');
5430: END IF;
5431:
5432: RAISE fnd_api.g_exc_error;
5433: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5434: IF (l_debug = 1) THEN
5435: DEBUG('create_update_containers failed with status U', 'STAGE_LPN');
5436: END IF;
5429: DEBUG('create_update_containers API failed with status E ', 'STAGE_LPN');
5430: END IF;
5431:
5432: RAISE fnd_api.g_exc_error;
5433: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5434: IF (l_debug = 1) THEN
5435: DEBUG('create_update_containers failed with status U', 'STAGE_LPN');
5436: END IF;
5437:
5434: IF (l_debug = 1) THEN
5435: DEBUG('create_update_containers failed with status U', 'STAGE_LPN');
5436: END IF;
5437:
5438: RAISE fnd_api.g_exc_unexpected_error;
5439: END IF;
5440:
5441: SELECT delivery_detail_id
5442: INTO l_cont_instance_id
5466: , p_organization_id => p_organization_id
5467: , p_outermost_lpn_id => l_outer_lpn.lpn_id
5468: , p_action_code => 'PACK');
5469:
5470: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5471: IF (l_debug = 1) THEN
5472: DEBUG('container nesting API failed for outermost_lpn_id ' || l_outer_lpn.lpn_id, 'stage_lpns');
5473: END IF;
5474:
5471: IF (l_debug = 1) THEN
5472: DEBUG('container nesting API failed for outermost_lpn_id ' || l_outer_lpn.lpn_id, 'stage_lpns');
5473: END IF;
5474:
5475: RAISE fnd_api.g_exc_error;
5476: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5477: IF (l_debug = 1) THEN
5478: DEBUG('container nesting API failed with unexpected errors for outermost_lpn_id '
5479: || l_outer_lpn.lpn_id, 'stage_lpns');
5472: DEBUG('container nesting API failed for outermost_lpn_id ' || l_outer_lpn.lpn_id, 'stage_lpns');
5473: END IF;
5474:
5475: RAISE fnd_api.g_exc_error;
5476: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5477: IF (l_debug = 1) THEN
5478: DEBUG('container nesting API failed with unexpected errors for outermost_lpn_id '
5479: || l_outer_lpn.lpn_id, 'stage_lpns');
5480: END IF;
5478: DEBUG('container nesting API failed with unexpected errors for outermost_lpn_id '
5479: || l_outer_lpn.lpn_id, 'stage_lpns');
5480: END IF;
5481:
5482: RAISE fnd_api.g_exc_unexpected_error;
5483: END IF;
5484:
5485: IF (l_debug = 1) THEN
5486: DEBUG('Container nesting completed', 'xxxx');
5552: ELSE
5553: IF (l_debug = 1) THEN
5554: DEBUG('Error from inv_cache.set_item_rec', 'Stage_LPNS');
5555: END IF;
5556: RAISE fnd_api.g_exc_unexpected_error;
5557: END IF;
5558:
5559: IF (l_sub_reservable = 1
5560: AND l_item_reservable = 1) THEN
5577: END IF;
5578:
5579: inv_reservation_pub.query_reservation
5580: (p_api_version_number => 1.0
5581: , p_init_msg_lst => fnd_api.g_false
5582: , x_return_status => l_return_status
5583: , x_msg_count => l_msg_count
5584: , x_msg_data => l_msg_data
5585: , p_query_input => l_reservation_record
5582: , x_return_status => l_return_status
5583: , x_msg_count => l_msg_count
5584: , x_msg_data => l_msg_data
5585: , p_query_input => l_reservation_record
5586: , p_lock_records => fnd_api.g_false
5587: , x_mtl_reservation_tbl => l_reservation_tbl
5588: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5589: , x_error_code => l_error_code);
5590:
5587: , x_mtl_reservation_tbl => l_reservation_tbl
5588: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5589: , x_error_code => l_error_code);
5590:
5591: IF l_return_status = fnd_api.g_ret_sts_error THEN
5592: IF (l_debug = 1) THEN
5593: DEBUG('Validation error during query of Reservations ' || l_header_id
5594: || ' ' || l_line_id, 'STAGE_LPNS');
5595: END IF;
5593: DEBUG('Validation error during query of Reservations ' || l_header_id
5594: || ' ' || l_line_id, 'STAGE_LPNS');
5595: END IF;
5596:
5597: RAISE fnd_api.g_exc_error;
5598: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5599: IF (l_debug = 1) THEN
5600: DEBUG('Unexpected error during query of Reservations ' || l_header_id || ' '
5601: || l_line_id, 'STAGE_LPNS');
5594: || ' ' || l_line_id, 'STAGE_LPNS');
5595: END IF;
5596:
5597: RAISE fnd_api.g_exc_error;
5598: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5599: IF (l_debug = 1) THEN
5600: DEBUG('Unexpected error during query of Reservations ' || l_header_id || ' '
5601: || l_line_id, 'STAGE_LPNS');
5602: END IF;
5600: DEBUG('Unexpected error during query of Reservations ' || l_header_id || ' '
5601: || l_line_id, 'STAGE_LPNS');
5602: END IF;
5603:
5604: RAISE fnd_api.g_exc_unexpected_error;
5605: END IF;
5606:
5607: FOR i IN 1..l_mtl_reservation_tbl_count LOOP
5608: l_mtl_reservation_tbl(l_mtl_reservation_tbl.COUNT + 1) := l_reservation_tbl(i);
6004: , p_transaction_temp_id => l_delivery_detail_tab(i).transaction_temp_id
6005: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6006: , p_last_action => l_shipping_attr(1).action_flag);
6007:
6008: IF l_return_status = fnd_api.g_ret_sts_error THEN
6009: IF (l_debug = 1) THEN
6010: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6011: END IF;
6012:
6009: IF (l_debug = 1) THEN
6010: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6011: END IF;
6012:
6013: RAISE fnd_api.g_exc_error;
6014: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6015: IF (l_debug = 1) THEN
6016: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6017: END IF;
6010: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6011: END IF;
6012:
6013: RAISE fnd_api.g_exc_error;
6014: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6015: IF (l_debug = 1) THEN
6016: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6017: END IF;
6018:
6015: IF (l_debug = 1) THEN
6016: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6017: END IF;
6018:
6019: RAISE fnd_api.g_exc_unexpected_error;
6020: END IF;
6021: ELSIF(l_serial_number_control_code = 6) THEN -- Serial in MSNT
6022: IF (l_debug = 1) THEN
6023: DEBUG('The serial number control code is 6', 'stage_lpns');
6041: , p_transaction_temp_id => l_delivery_detail_tab(i).transaction_temp_id
6042: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6043: , p_last_action => l_shipping_attr(1).action_flag);
6044:
6045: IF l_return_status = fnd_api.g_ret_sts_error THEN
6046: IF (l_debug = 1) THEN
6047: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6048: END IF;
6049:
6046: IF (l_debug = 1) THEN
6047: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6048: END IF;
6049:
6050: RAISE fnd_api.g_exc_error;
6051: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6052: IF (l_debug = 1) THEN
6053: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6054: END IF;
6047: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6048: END IF;
6049:
6050: RAISE fnd_api.g_exc_error;
6051: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6052: IF (l_debug = 1) THEN
6053: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6054: END IF;
6055:
6052: IF (l_debug = 1) THEN
6053: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6054: END IF;
6055:
6056: RAISE fnd_api.g_exc_unexpected_error;
6057: END IF;
6058: END IF;
6059:
6060: l_invpcinrectype.transaction_temp_id := l_delivery_detail_tab(i).transaction_temp_id;
6105: , x_msg_count => l_msg_data
6106: , x_msg_data => l_msg_count
6107: );
6108:
6109: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6110: IF (l_debug = 1) THEN
6111: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6112: END IF;
6113:
6110: IF (l_debug = 1) THEN
6111: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6112: END IF;
6113:
6114: RAISE fnd_api.g_exc_error;
6115: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6116: IF (l_debug = 1) THEN
6117: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6118: END IF;
6111: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6112: END IF;
6113:
6114: RAISE fnd_api.g_exc_error;
6115: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6116: IF (l_debug = 1) THEN
6117: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6118: END IF;
6119:
6116: IF (l_debug = 1) THEN
6117: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6118: END IF;
6119:
6120: RAISE fnd_api.g_exc_unexpected_error;
6121: END IF;
6122: ELSE
6123: BEGIN
6124: SELECT fm_serial_number
6175: , l_shipping_attr(1).revision
6176: , l_shipping_attr(1).lot_number
6177: , l_shipping_attr(1).picked_quantity);
6178: ELSE
6179: IF NVL(l_shipping_attr(1).picked_quantity2, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6180: IF (l_debug = 1) THEN
6181: DEBUG('Dual UoM items but no entry in WMS_DS_CT_WT_GTEMP so use uom_convert to get picked_quantity2', 'stage_lpns');
6182: END IF;
6183: l_shipping_attr(1).picked_quantity2 := inv_convert.inv_um_convert (
6218: IF (l_debug = 1) THEN
6219: DEBUG('after update shipping attributes', 'stage_lpns');
6220: END IF;
6221:
6222: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6223: IF (l_debug = 1) THEN
6224: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6225: END IF;
6226:
6223: IF (l_debug = 1) THEN
6224: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6225: END IF;
6226:
6227: RAISE fnd_api.g_exc_error;
6228: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6229: IF (l_debug = 1) THEN
6230: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6231: END IF;
6224: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6225: END IF;
6226:
6227: RAISE fnd_api.g_exc_error;
6228: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6229: IF (l_debug = 1) THEN
6230: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6231: END IF;
6232:
6229: IF (l_debug = 1) THEN
6230: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6231: END IF;
6232:
6233: RAISE fnd_api.g_exc_unexpected_error;
6234: END IF;
6235:
6236: l_delivery_detail_tab(i).requested_quantity := 0;
6237: IF l_dual_uom_item THEN
6354: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6355: , p_last_action => l_shipping_attr(1).action_flag
6356: );
6357:
6358: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6359: IF (l_debug = 1) THEN
6360: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
6361: END IF;
6362:
6359: IF (l_debug = 1) THEN
6360: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
6361: END IF;
6362:
6363: RAISE fnd_api.g_exc_error;
6364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6365: IF (l_debug = 1) THEN
6366: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6367: END IF;
6360: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
6361: END IF;
6362:
6363: RAISE fnd_api.g_exc_error;
6364: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6365: IF (l_debug = 1) THEN
6366: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6367: END IF;
6368:
6365: IF (l_debug = 1) THEN
6366: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6367: END IF;
6368:
6369: RAISE fnd_api.g_exc_unexpected_error;
6370: END IF;
6371: ELSIF(l_serial_number_control_code = 6) THEN -- Serial in MSNT
6372: IF (l_debug = 1) THEN
6373: DEBUG('The serial number control code is 6', 'stage_lpns');
6392: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6393: , p_last_action => l_shipping_attr(1).action_flag
6394: );
6395:
6396: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6397: IF (l_debug = 1) THEN
6398: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6399: END IF;
6400:
6397: IF (l_debug = 1) THEN
6398: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6399: END IF;
6400:
6401: RAISE fnd_api.g_exc_error;
6402: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6403: IF (l_debug = 1) THEN
6404: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6405: END IF;
6398: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6399: END IF;
6400:
6401: RAISE fnd_api.g_exc_error;
6402: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6403: IF (l_debug = 1) THEN
6404: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6405: END IF;
6406:
6403: IF (l_debug = 1) THEN
6404: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
6405: END IF;
6406:
6407: RAISE fnd_api.g_exc_unexpected_error;
6408: END IF;
6409: END IF; -- Serial Control Code
6410:
6411: /*******************************************
6447: , x_return_status => l_return_status
6448: , x_msg_count => l_msg_data
6449: , x_msg_data => l_msg_count );
6450:
6451: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6452: IF (l_debug = 1) THEN
6453: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6454: END IF;
6455:
6452: IF (l_debug = 1) THEN
6453: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6454: END IF;
6455:
6456: RAISE fnd_api.g_exc_error;
6457: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6458: IF (l_debug = 1) THEN
6459: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6460: END IF;
6453: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6454: END IF;
6455:
6456: RAISE fnd_api.g_exc_error;
6457: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6458: IF (l_debug = 1) THEN
6459: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6460: END IF;
6461:
6458: IF (l_debug = 1) THEN
6459: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6460: END IF;
6461:
6462: RAISE fnd_api.g_exc_unexpected_error;
6463: END IF;
6464: ELSE
6465: BEGIN
6466: SELECT fm_serial_number
6509: , x_msg_count => l_msg_data
6510: , x_msg_data => l_msg_count
6511: );
6512:
6513: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6514: IF (l_debug = 1) THEN
6515: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6516: END IF;
6517:
6514: IF (l_debug = 1) THEN
6515: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6516: END IF;
6517:
6518: RAISE fnd_api.g_exc_error;
6519: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6520: IF (l_debug = 1) THEN
6521: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6522: END IF;
6515: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6516: END IF;
6517:
6518: RAISE fnd_api.g_exc_error;
6519: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6520: IF (l_debug = 1) THEN
6521: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6522: END IF;
6523:
6520: IF (l_debug = 1) THEN
6521: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6522: END IF;
6523:
6524: RAISE fnd_api.g_exc_unexpected_error;
6525: END IF;
6526: ELSE
6527: BEGIN
6528: SELECT fm_serial_number
6579: , l_shipping_attr(1).revision
6580: , l_shipping_attr(1).lot_number
6581: , l_shipping_attr(1).picked_quantity);
6582: ELSE
6583: IF NVL(l_shipping_attr(1).picked_quantity2, fnd_api.g_miss_num) = fnd_api.g_miss_num THEN
6584: IF (l_debug = 1) THEN
6585: DEBUG('Dual UoM items but no entry in WMS_DS_CT_WT_GTEMP so use uom_convert to get picked_quantity2', 'stage_lpns');
6586: END IF;
6587: l_shipping_attr(1).picked_quantity2 := inv_convert.inv_um_convert (
6620: IF (l_debug = 1) THEN
6621: DEBUG('after update shipping attributes', 'stage_lpns');
6622: END IF;
6623:
6624: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6625: IF (l_debug = 1) THEN
6626: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
6627: END IF;
6628:
6625: IF (l_debug = 1) THEN
6626: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
6627: END IF;
6628:
6629: RAISE fnd_api.g_exc_error;
6630: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6631: IF (l_debug = 1) THEN
6632: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6633: END IF;
6626: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
6627: END IF;
6628:
6629: RAISE fnd_api.g_exc_error;
6630: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6631: IF (l_debug = 1) THEN
6632: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6633: END IF;
6634:
6631: IF (l_debug = 1) THEN
6632: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
6633: END IF;
6634:
6635: RAISE fnd_api.g_exc_unexpected_error;
6636: END IF;
6637:
6638: --Since we have split the WDD line, we need to process
6639: --this newly split line also.
6804: , p_transaction_temp_id => l_delivery_detail_tab(i).transaction_temp_id
6805: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6806: , p_last_action => l_shipping_attr(1).action_flag);
6807:
6808: IF l_return_status = fnd_api.g_ret_sts_error THEN
6809: IF (l_debug = 1) THEN
6810: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6811: END IF;
6812:
6809: IF (l_debug = 1) THEN
6810: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6811: END IF;
6812:
6813: RAISE fnd_api.g_exc_error;
6814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6815: IF (l_debug = 1) THEN
6816: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6817: END IF;
6810: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6811: END IF;
6812:
6813: RAISE fnd_api.g_exc_error;
6814: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6815: IF (l_debug = 1) THEN
6816: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6817: END IF;
6818:
6815: IF (l_debug = 1) THEN
6816: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6817: END IF;
6818:
6819: RAISE fnd_api.g_exc_unexpected_error;
6820: END IF;
6821: ELSIF(l_serial_number_control_code = 6) THEN -- Serial in MSNT
6822: IF (l_debug = 1) THEN
6823: DEBUG('The serial number control code is 6', 'stage_lpns');
6841: , p_transaction_temp_id => l_delivery_detail_tab(i).transaction_temp_id
6842: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
6843: , p_last_action => l_shipping_attr(1).action_flag);
6844:
6845: IF l_return_status = fnd_api.g_ret_sts_error THEN
6846: IF (l_debug = 1) THEN
6847: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6848: END IF;
6849:
6846: IF (l_debug = 1) THEN
6847: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6848: END IF;
6849:
6850: RAISE fnd_api.g_exc_error;
6851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6852: IF (l_debug = 1) THEN
6853: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6854: END IF;
6847: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status E', 'STAGE_LPNS');
6848: END IF;
6849:
6850: RAISE fnd_api.g_exc_error;
6851: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6852: IF (l_debug = 1) THEN
6853: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6854: END IF;
6855:
6852: IF (l_debug = 1) THEN
6853: DEBUG('CALL TO EXPLODE_DELIVERY_DETAILS api returns status U', 'STAGE_LPNS');
6854: END IF;
6855:
6856: RAISE fnd_api.g_exc_unexpected_error;
6857: END IF;
6858: END IF;
6859:
6860: l_invpcinrectype.transaction_temp_id := l_delivery_detail_tab(i).transaction_temp_id;
6905: , x_msg_count => l_msg_data
6906: , x_msg_data => l_msg_count
6907: );
6908:
6909: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6910: IF (l_debug = 1) THEN
6911: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6912: END IF;
6913:
6910: IF (l_debug = 1) THEN
6911: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6912: END IF;
6913:
6914: RAISE fnd_api.g_exc_error;
6915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6916: IF (l_debug = 1) THEN
6917: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6918: END IF;
6911: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
6912: END IF;
6913:
6914: RAISE fnd_api.g_exc_error;
6915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6916: IF (l_debug = 1) THEN
6917: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6918: END IF;
6919:
6916: IF (l_debug = 1) THEN
6917: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
6918: END IF;
6919:
6920: RAISE fnd_api.g_exc_unexpected_error;
6921: END IF;
6922: ELSE
6923: BEGIN
6924: SELECT fm_serial_number
6956: IF (l_debug = 1) THEN
6957: DEBUG('after update shipping attributes', 'stage_lpns');
6958: END IF;
6959:
6960: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6961: IF (l_debug = 1) THEN
6962: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6963: END IF;
6964:
6961: IF (l_debug = 1) THEN
6962: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6963: END IF;
6964:
6965: RAISE fnd_api.g_exc_error;
6966: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6967: IF (l_debug = 1) THEN
6968: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6969: END IF;
6962: DEBUG('return error from update shipping attributes 3', 'STAGE_LPN');
6963: END IF;
6964:
6965: RAISE fnd_api.g_exc_error;
6966: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6967: IF (l_debug = 1) THEN
6968: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6969: END IF;
6970:
6967: IF (l_debug = 1) THEN
6968: DEBUG('return unexpected error from update shipping attributes', 'STAGE_LPN');
6969: END IF;
6970:
6971: RAISE fnd_api.g_exc_unexpected_error;
6972: END IF;
6973:
6974: l_delivery_detail_tab(i).requested_quantity := 0;
6975: l_delivery_detail_tab(i).requested_quantity2 := 0;
7079: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
7080: , p_last_action => l_shipping_attr(1).action_flag
7081: );
7082:
7083: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7084: IF (l_debug = 1) THEN
7085: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
7086: END IF;
7087:
7084: IF (l_debug = 1) THEN
7085: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
7086: END IF;
7087:
7088: RAISE fnd_api.g_exc_error;
7089: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7090: IF (l_debug = 1) THEN
7091: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7092: END IF;
7085: DEBUG('return error from update shipping attributes 3', 'stage_lpns');
7086: END IF;
7087:
7088: RAISE fnd_api.g_exc_error;
7089: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7090: IF (l_debug = 1) THEN
7091: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7092: END IF;
7093:
7090: IF (l_debug = 1) THEN
7091: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7092: END IF;
7093:
7094: RAISE fnd_api.g_exc_unexpected_error;
7095: END IF;
7096: ELSIF(l_serial_number_control_code = 6) THEN -- Serial in MSNT
7097: IF (l_debug = 1) THEN
7098: DEBUG('The serial number control code is 6', 'stage_lpns');
7117: , p_reservation_id => l_mtl_reservation_tbl(j).reservation_id
7118: , p_last_action => l_shipping_attr(1).action_flag
7119: );
7120:
7121: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7122: IF (l_debug = 1) THEN
7123: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7124: END IF;
7125:
7122: IF (l_debug = 1) THEN
7123: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7124: END IF;
7125:
7126: RAISE fnd_api.g_exc_error;
7127: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7128: IF (l_debug = 1) THEN
7129: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7130: END IF;
7123: DEBUG('return error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7124: END IF;
7125:
7126: RAISE fnd_api.g_exc_error;
7127: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7128: IF (l_debug = 1) THEN
7129: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7130: END IF;
7131:
7128: IF (l_debug = 1) THEN
7129: DEBUG('return unexpected error from EXPLODE_DELIVERY_DETAILS 3', 'stage_lpns');
7130: END IF;
7131:
7132: RAISE fnd_api.g_exc_unexpected_error;
7133: END IF;
7134: END IF; -- Serial Control Code
7135:
7136: /*******************************************
7172: , x_return_status => l_return_status
7173: , x_msg_count => l_msg_data
7174: , x_msg_data => l_msg_count );
7175:
7176: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7177: IF (l_debug = 1) THEN
7178: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7179: END IF;
7180:
7177: IF (l_debug = 1) THEN
7178: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7179: END IF;
7180:
7181: RAISE fnd_api.g_exc_error;
7182: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7183: IF (l_debug = 1) THEN
7184: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7185: END IF;
7178: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7179: END IF;
7180:
7181: RAISE fnd_api.g_exc_error;
7182: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7183: IF (l_debug = 1) THEN
7184: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7185: END IF;
7186:
7183: IF (l_debug = 1) THEN
7184: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7185: END IF;
7186:
7187: RAISE fnd_api.g_exc_unexpected_error;
7188: END IF;
7189: ELSE
7190: BEGIN
7191: SELECT fm_serial_number
7231: , x_msg_count => l_msg_data
7232: , x_msg_data => l_msg_count
7233: );
7234:
7235: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7236: IF (l_debug = 1) THEN
7237: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7238: END IF;
7239:
7236: IF (l_debug = 1) THEN
7237: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7238: END IF;
7239:
7240: RAISE fnd_api.g_exc_error;
7241: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7242: IF (l_debug = 1) THEN
7243: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7244: END IF;
7237: DEBUG('return error E from Set_Inv_PC_Attributes', 'STAGE_LPN');
7238: END IF;
7239:
7240: RAISE fnd_api.g_exc_error;
7241: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7242: IF (l_debug = 1) THEN
7243: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7244: END IF;
7245:
7242: IF (l_debug = 1) THEN
7243: DEBUG('return error U from Set_Inv_PC_Attributes', 'STAGE_LPN');
7244: END IF;
7245:
7246: RAISE fnd_api.g_exc_unexpected_error;
7247: END IF;
7248: ELSE
7249: BEGIN
7250: SELECT fm_serial_number
7283: IF (l_debug = 1) THEN
7284: DEBUG('after update shipping attributes', 'stage_lpns');
7285: END IF;
7286:
7287: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7288: IF (l_debug = 1) THEN
7289: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
7290: END IF;
7291:
7288: IF (l_debug = 1) THEN
7289: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
7290: END IF;
7291:
7292: RAISE fnd_api.g_exc_error;
7293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7294: IF (l_debug = 1) THEN
7295: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7296: END IF;
7289: DEBUG('return error from update shipping attributes 2', 'stage_lpns');
7290: END IF;
7291:
7292: RAISE fnd_api.g_exc_error;
7293: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7294: IF (l_debug = 1) THEN
7295: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7296: END IF;
7297:
7294: IF (l_debug = 1) THEN
7295: DEBUG('return unexpected error from update shipping attributes', 'stage_lpns');
7296: END IF;
7297:
7298: RAISE fnd_api.g_exc_unexpected_error;
7299: END IF;
7300:
7301: --Since we have split the WDD line, we need to process
7302: --this newly split line also.
7340: l_shipping_attr(1).released_status := 'Y';
7341: wsh_interface.update_shipping_attributes(p_source_code => 'INV', p_changed_attributes => l_shipping_attr
7342: , x_return_status => l_return_status);
7343:
7344: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
7345: IF (l_debug = 1) THEN
7346: DEBUG('Non-Reservable: return error from update shipping attributes', 'stage_lpns');
7347: END IF;
7348:
7345: IF (l_debug = 1) THEN
7346: DEBUG('Non-Reservable: return error from update shipping attributes', 'stage_lpns');
7347: END IF;
7348:
7349: RAISE fnd_api.g_exc_error;
7350: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7351: IF (l_debug = 1) THEN
7352: DEBUG('Non-Reservable: return unexpected error from update shipping attributes', 'stage_lpns');
7353: END IF;
7346: DEBUG('Non-Reservable: return error from update shipping attributes', 'stage_lpns');
7347: END IF;
7348:
7349: RAISE fnd_api.g_exc_error;
7350: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7351: IF (l_debug = 1) THEN
7352: DEBUG('Non-Reservable: return unexpected error from update shipping attributes', 'stage_lpns');
7353: END IF;
7354:
7351: IF (l_debug = 1) THEN
7352: DEBUG('Non-Reservable: return unexpected error from update shipping attributes', 'stage_lpns');
7353: END IF;
7354:
7355: RAISE fnd_api.g_exc_unexpected_error;
7356: END IF;
7357: END LOOP; -- Non-Reservable delivery_details
7358: END IF; -- Reservable
7359: END LOOP; -- STAGE_LINE;
7384: , p_direct_ship_flag => 'Y'
7385: );
7386:
7387: IF l_return = 1 THEN
7388: x_return_status := fnd_api.g_ret_sts_error;
7389: RAISE fnd_api.g_exc_error;
7390: END IF;
7391:
7392: SELECT COUNT(*)
7385: );
7386:
7387: IF l_return = 1 THEN
7388: x_return_status := fnd_api.g_ret_sts_error;
7389: RAISE fnd_api.g_exc_error;
7390: END IF;
7391:
7392: SELECT COUNT(*)
7393: INTO l_trip_id
7434: IF (l_debug = 1) THEN
7435: DEBUG('return success from create_delivery ', 'stage_lpns');
7436: END IF;
7437:
7438: x_return_status := fnd_api.g_ret_sts_success;
7439: ELSIF l_return_status IN('E') THEN
7440: IF (l_debug = 1) THEN
7441: DEBUG('return error from create_delivery', 'stage_lpns');
7442: END IF;
7440: IF (l_debug = 1) THEN
7441: DEBUG('return error from create_delivery', 'stage_lpns');
7442: END IF;
7443:
7444: x_return_status := fnd_api.g_ret_sts_error;
7445: RAISE fnd_api.g_exc_error;
7446: ELSE
7447: IF (l_debug = 1) THEN
7448: DEBUG('return unexpected error from create_delivery', 'stage_lpns');
7441: DEBUG('return error from create_delivery', 'stage_lpns');
7442: END IF;
7443:
7444: x_return_status := fnd_api.g_ret_sts_error;
7445: RAISE fnd_api.g_exc_error;
7446: ELSE
7447: IF (l_debug = 1) THEN
7448: DEBUG('return unexpected error from create_delivery', 'stage_lpns');
7449: END IF;
7447: IF (l_debug = 1) THEN
7448: DEBUG('return unexpected error from create_delivery', 'stage_lpns');
7449: END IF;
7450:
7451: x_return_status := fnd_api.g_ret_sts_unexp_error;
7452: RAISE fnd_api.g_exc_unexpected_error;
7453: END IF;
7454:
7455: ---
7448: DEBUG('return unexpected error from create_delivery', 'stage_lpns');
7449: END IF;
7450:
7451: x_return_status := fnd_api.g_ret_sts_unexp_error;
7452: RAISE fnd_api.g_exc_unexpected_error;
7453: END IF;
7454:
7455: ---
7456: IF g_wms_current_release_level >= g_j_release_level THEN
7462: l_delivery_id_tab(1) := l_delivery_id;
7463:
7464: wsh_interface_ext_grp.delivery_action
7465: (p_api_version_number => 1.0,
7466: p_init_msg_list => fnd_api.g_false,
7467: p_commit => fnd_api.g_false,
7468: p_action_prms => l_action_prms,
7469: p_delivery_id_tab => l_delivery_id_tab,
7470: x_delivery_out_rec => l_delivery_out_rec,
7463:
7464: wsh_interface_ext_grp.delivery_action
7465: (p_api_version_number => 1.0,
7466: p_init_msg_list => fnd_api.g_false,
7467: p_commit => fnd_api.g_false,
7468: p_action_prms => l_action_prms,
7469: p_delivery_id_tab => l_delivery_id_tab,
7470: x_delivery_out_rec => l_delivery_out_rec,
7471: x_return_status => l_return_status,
7510: IF l_ignore_for_planning = 'N' AND l_tms_interface_flag = 'CR' THEN
7511: l_action_prms.action_code := 'IGNORE_PLAN';
7512: wsh_interface_ext_grp.delivery_action
7513: (p_api_version_number => 1.0,
7514: p_init_msg_list => fnd_api.g_false,
7515: p_commit => fnd_api.g_false,
7516: p_action_prms => l_action_prms,
7517: p_delivery_id_tab => l_delivery_id_tab,
7518: x_delivery_out_rec => l_delivery_out_rec,
7511: l_action_prms.action_code := 'IGNORE_PLAN';
7512: wsh_interface_ext_grp.delivery_action
7513: (p_api_version_number => 1.0,
7514: p_init_msg_list => fnd_api.g_false,
7515: p_commit => fnd_api.g_false,
7516: p_action_prms => l_action_prms,
7517: p_delivery_id_tab => l_delivery_id_tab,
7518: x_delivery_out_rec => l_delivery_out_rec,
7519: x_return_status => l_return_status,
7523: IF (l_debug = 1) THEN
7524: debug('Called wsh_interface_ext_grp.delivery_action with action_code IGNORE_PLAN and return status: ' || l_return_status, 'stage_lpns');
7525: END IF;
7526:
7527: IF l_return_status = fnd_api.g_ret_sts_error THEN
7528: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7529: RAISE fnd_api.g_exc_error;
7530: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7531: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7525: END IF;
7526:
7527: IF l_return_status = fnd_api.g_ret_sts_error THEN
7528: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7529: RAISE fnd_api.g_exc_error;
7530: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7531: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7532: RAISE fnd_api.g_exc_unexpected_error;
7533: END IF;
7526:
7527: IF l_return_status = fnd_api.g_ret_sts_error THEN
7528: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7529: RAISE fnd_api.g_exc_error;
7530: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7531: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7532: RAISE fnd_api.g_exc_unexpected_error;
7533: END IF;
7534: END IF;
7528: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7529: RAISE fnd_api.g_exc_error;
7530: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7531: x_msg_data := 'WMS_DELIVERY_ACTION_FAIL';
7532: RAISE fnd_api.g_exc_unexpected_error;
7533: END IF;
7534: END IF;
7535:
7536: END IF; --g-log changes
7547: DEBUG('Exiting Stage LPNs..: ' , 'STAGE_LPN');
7548: END IF;
7549: --COMMIT;
7550: EXCEPTION
7551: WHEN fnd_api.g_exc_error THEN
7552: x_return_status := fnd_api.g_ret_sts_error;
7553:
7554: IF (l_debug = 1) THEN
7555: DEBUG('In exception type E', 'stage_lpns');
7548: END IF;
7549: --COMMIT;
7550: EXCEPTION
7551: WHEN fnd_api.g_exc_error THEN
7552: x_return_status := fnd_api.g_ret_sts_error;
7553:
7554: IF (l_debug = 1) THEN
7555: DEBUG('In exception type E', 'stage_lpns');
7556: END IF;
7556: END IF;
7557: -- ROLLBACK;
7558: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7559:
7560: WHEN fnd_api.g_exc_unexpected_error THEN
7561: x_return_status := fnd_api.g_ret_sts_unexp_error;
7562:
7563: IF (l_debug = 1) THEN
7564: DEBUG('In exception type U', 'stage_lpns');
7557: -- ROLLBACK;
7558: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7559:
7560: WHEN fnd_api.g_exc_unexpected_error THEN
7561: x_return_status := fnd_api.g_ret_sts_unexp_error;
7562:
7563: IF (l_debug = 1) THEN
7564: DEBUG('In exception type U', 'stage_lpns');
7565: END IF;
7620: no_ship_method_code EXCEPTION;
7621:
7622: BEGIN
7623: --SAVEPOINT closetruck;
7624: x_return_status := fnd_api.g_ret_sts_success;
7625:
7626: IF (l_debug = 1) THEN
7627: inv_trx_util_pub.TRACE('In close truck program ', 'close_truck', 9);
7628: inv_trx_util_pub.TRACE('p_dock_door_id : ' || p_dock_door_id , 'close_truck', 9);
7654: , p_org_id => p_org_id
7655: , p_dock_door_id => p_dock_door_id
7656: );
7657:
7658: IF l_return_status = fnd_api.g_ret_sts_error THEN
7659: IF (l_debug = 1) THEN
7660: inv_trx_util_pub.TRACE('Confirm All deliveries API failed with status E ', 'close_truck', 9);
7661: END IF;
7662:
7663: IF (l_debug = 1) THEN
7664: DEBUG('Confirm All deliveries API failed with status E close_truck');
7665: END IF;
7666:
7667: RAISE fnd_api.g_exc_error;
7668: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7669: IF (l_debug = 1) THEN
7670: inv_trx_util_pub.TRACE('Confirm All deliveries failed with status U', 'close_truck', 9);
7671: END IF;
7664: DEBUG('Confirm All deliveries API failed with status E close_truck');
7665: END IF;
7666:
7667: RAISE fnd_api.g_exc_error;
7668: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7669: IF (l_debug = 1) THEN
7670: inv_trx_util_pub.TRACE('Confirm All deliveries failed with status U', 'close_truck', 9);
7671: END IF;
7672:
7673: IF (l_debug = 1) THEN
7674: DEBUG('Confirm All deliveries failed with status U close_truck');
7675: END IF;
7676:
7677: RAISE fnd_api.g_exc_unexpected_error;
7678: END IF;
7679:
7680: IF (l_debug = 1) THEN
7681: inv_trx_util_pub.TRACE('Confirm All deliveries successfully completed ', 'close_truck', 9);
7755: IF (l_debug = 1) THEN
7756: DEBUG('After call to Close Trip API close_truck');
7757: END IF;
7758:
7759: IF l_return_status = fnd_api.g_ret_sts_error THEN
7760: IF (l_debug = 1) THEN
7761: DEBUG('Close trip API failed with status E ', 'close_truck');
7762: END IF;
7763:
7760: IF (l_debug = 1) THEN
7761: DEBUG('Close trip API failed with status E ', 'close_truck');
7762: END IF;
7763:
7764: RAISE fnd_api.g_exc_error;
7765: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7766: IF (l_debug = 1) THEN
7767: DEBUG('Close trip failed with status U', 'close_truck');
7768: END IF;
7761: DEBUG('Close trip API failed with status E ', 'close_truck');
7762: END IF;
7763:
7764: RAISE fnd_api.g_exc_error;
7765: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7766: IF (l_debug = 1) THEN
7767: DEBUG('Close trip failed with status U', 'close_truck');
7768: END IF;
7769:
7766: IF (l_debug = 1) THEN
7767: DEBUG('Close trip failed with status U', 'close_truck');
7768: END IF;
7769:
7770: RAISE fnd_api.g_exc_unexpected_error;
7771: END IF;
7772:
7773: IF (l_debug = 1) THEN
7774: DEBUG('Close trip API completed successfully ', 'close_truck');
7782: DEBUG('End of close truck ', 'close_truck', 9);
7783: END IF;
7784: EXCEPTION
7785: WHEN no_ship_method_code THEN
7786: x_return_status := fnd_api.g_ret_sts_error;
7787: fnd_message.set_name('WMS', 'WMS_SHIP_METHOD_CODE');
7788: fnd_message.set_token('TRIP_NAME', l_trip_name);
7789: /* No Ship method code provided for the Trip .This is required */
7790: fnd_msg_pub.ADD;
7791: /*fnd_msg_pub.count_and_get( p_count => x_msg_count,
7792: p_data => x_msg_data
7793: );*/
7794: DEBUG('In exception no_ship_method_code ', 'Close Trip');
7795: WHEN fnd_api.g_exc_error THEN
7796: x_return_status := fnd_api.g_ret_sts_error;
7797: ROLLBACK; --TO closetruck;
7798: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7799: WHEN fnd_api.g_exc_unexpected_error THEN
7792: p_data => x_msg_data
7793: );*/
7794: DEBUG('In exception no_ship_method_code ', 'Close Trip');
7795: WHEN fnd_api.g_exc_error THEN
7796: x_return_status := fnd_api.g_ret_sts_error;
7797: ROLLBACK; --TO closetruck;
7798: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7799: WHEN fnd_api.g_exc_unexpected_error THEN
7800: x_return_status := fnd_api.g_ret_sts_unexp_error;
7795: WHEN fnd_api.g_exc_error THEN
7796: x_return_status := fnd_api.g_ret_sts_error;
7797: ROLLBACK; --TO closetruck;
7798: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7799: WHEN fnd_api.g_exc_unexpected_error THEN
7800: x_return_status := fnd_api.g_ret_sts_unexp_error;
7801: ROLLBACK; --TO closetruck;
7802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7803: WHEN OTHERS THEN
7796: x_return_status := fnd_api.g_ret_sts_error;
7797: ROLLBACK; --TO closetruck;
7798: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7799: WHEN fnd_api.g_exc_unexpected_error THEN
7800: x_return_status := fnd_api.g_ret_sts_unexp_error;
7801: ROLLBACK; --TO closetruck;
7802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7803: WHEN OTHERS THEN
7804: x_return_status := fnd_api.g_ret_sts_unexp_error;
7800: x_return_status := fnd_api.g_ret_sts_unexp_error;
7801: ROLLBACK; --TO closetruck;
7802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7803: WHEN OTHERS THEN
7804: x_return_status := fnd_api.g_ret_sts_unexp_error;
7805: ROLLBACK; --TO closetruck;
7806: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7807: END;
7808:
7842: l_msg_data VARCHAR2(20000);
7843: l_demand_source_type_id NUMBER;
7844: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7845: BEGIN
7846: x_return_status := fnd_api.g_ret_sts_success;
7847:
7848: IF (l_debug = 1) THEN
7849: DEBUG('The value of lpn_id is ' || p_lpn_id, 'GET_LPN_AVAILABLE_QUANTITY');
7850: DEBUG('The value of p_inventory_item_id is ' || p_inventory_item_id, 'GET_LPN_AVAILABLE_QUANTITY');
7890: /* Bug 2440408: All the Trees in the cache have to be cleared so that trees are rebuild */
7891: inv_quantity_tree_pub.clear_quantity_cache;
7892: inv_quantity_tree_pub.query_quantities(
7893: p_api_version_number => 1.0
7894: , p_init_msg_lst => fnd_api.g_false
7895: , x_return_status => x_return_status
7896: , x_msg_count => x_msg_count
7897: , x_msg_data => x_msg_data
7898: , p_organization_id => p_organization_id
7921: DEBUG('The value of x_att is ' || x_att, 'GET_LPN_AVAILABLE_QUANTITY');
7922: END IF;
7923:
7924: -- If the qty tree returns and error raise an exception.
7925: IF x_return_status <> fnd_api.g_ret_sts_success THEN
7926: IF (l_debug = 1) THEN
7927: inv_log_util.TRACE('Qty Tree Failed' || l_msg_data, 'INV_VMI_VALIDATIONS', 9);
7928: END IF;
7929:
7926: IF (l_debug = 1) THEN
7927: inv_log_util.TRACE('Qty Tree Failed' || l_msg_data, 'INV_VMI_VALIDATIONS', 9);
7928: END IF;
7929:
7930: RAISE fnd_api.g_exc_unexpected_error;
7931: END IF;
7932:
7933: IF (x_att > 0) THEN
7934: IF (l_debug = 1) THEN
7934: IF (l_debug = 1) THEN
7935: DEBUG('The value of x_att is - in if ' || x_att, 'GET_LPN_AVAILABLE_QUANTITY');
7936: END IF;
7937:
7938: x_return_status := fnd_api.g_ret_sts_success;
7939: EXIT;
7940: END IF;
7941: END LOOP;
7942:
7939: EXIT;
7940: END IF;
7941: END LOOP;
7942:
7943: x_return_status := fnd_api.g_ret_sts_success;
7944: EXCEPTION
7945: WHEN OTHERS THEN
7946: IF (l_debug = 1) THEN
7947: inv_log_util.TRACE('When others Exception in get_available_vmi_quantity', 'GET_LPN_AVAILABLE_QUANTITY', 9);
7947: inv_log_util.TRACE('When others Exception in get_available_vmi_quantity', 'GET_LPN_AVAILABLE_QUANTITY', 9);
7948: END IF;
7949:
7950: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7951: x_return_status := fnd_api.g_ret_sts_unexp_error;
7952: RETURN;
7953: END get_lpn_available_quantity;
7954:
7955: PROCEDURE create_update_containers(
8013: l_OUT_rec WSH_GLBL_VAR_STRCT_GRP.detailOutRecType;
8014:
8015:
8016: BEGIN
8017: x_return_status := fnd_api.g_ret_sts_success;
8018:
8019: /* Release 12(K), changed to use l_lpn_cur as type of WMS_Data_Type_Definitions_PUB.LPNRecordType; */
8020: OPEN lpn_details;
8021: LOOP
8092: l_IN_rec.action_code := 'UPDATE_NULL';
8093:
8094: WSH_WMS_LPN_GRP.Create_Update_Containers (
8095: p_api_version => 1.0
8096: , p_init_msg_list => fnd_api.g_false
8097: , p_commit => fnd_api.g_false
8098: , x_return_status => x_return_status
8099: , x_msg_count => x_msg_count
8100: , x_msg_data => x_msg_data
8093:
8094: WSH_WMS_LPN_GRP.Create_Update_Containers (
8095: p_api_version => 1.0
8096: , p_init_msg_list => fnd_api.g_false
8097: , p_commit => fnd_api.g_false
8098: , x_return_status => x_return_status
8099: , x_msg_count => x_msg_count
8100: , x_msg_data => x_msg_data
8101: , p_detail_info_tab => wsh_update_tbl
8102: , p_IN_rec => l_IN_rec
8103: , x_OUT_rec => l_OUT_rec );
8104:
8105:
8106: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
8107: IF (l_debug = 1) THEN
8108: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8109: END IF;
8110:
8107: IF (l_debug = 1) THEN
8108: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8109: END IF;
8110:
8111: RAISE fnd_api.g_exc_error;
8112: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8113: IF (l_debug = 1) THEN
8114: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8115: END IF;
8108: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8109: END IF;
8110:
8111: RAISE fnd_api.g_exc_error;
8112: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8113: IF (l_debug = 1) THEN
8114: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8115: END IF;
8116:
8113: IF (l_debug = 1) THEN
8114: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8115: END IF;
8116:
8117: RAISE fnd_api.g_exc_unexpected_error;
8118: ELSE
8119: l_count := 0;
8120: IF (l_debug = 1) THEN
8121: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success, AF Container exists, set lpn_id to NULL', 'create_update_containers');
8170: l_IN_rec.action_code := 'CREATE';
8171:
8172: WSH_WMS_LPN_GRP.Create_Update_Containers (
8173: p_api_version => 1.0
8174: , p_init_msg_list => fnd_api.g_false
8175: , p_commit => fnd_api.g_false
8176: , x_return_status => x_return_status
8177: , x_msg_count => x_msg_count
8178: , x_msg_data => x_msg_data
8171:
8172: WSH_WMS_LPN_GRP.Create_Update_Containers (
8173: p_api_version => 1.0
8174: , p_init_msg_list => fnd_api.g_false
8175: , p_commit => fnd_api.g_false
8176: , x_return_status => x_return_status
8177: , x_msg_count => x_msg_count
8178: , x_msg_data => x_msg_data
8179: , p_detail_info_tab => wsh_create_tbl
8180: , p_IN_rec => l_IN_rec
8181: , x_OUT_rec => l_OUT_rec );
8182:
8183:
8184: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
8185: IF (l_debug = 1) THEN
8186: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8187: END IF;
8188:
8185: IF (l_debug = 1) THEN
8186: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8187: END IF;
8188:
8189: RAISE fnd_api.g_exc_error;
8190: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8191: IF (l_debug = 1) THEN
8192: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8193: END IF;
8186: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns error', 'create_update_containers');
8187: END IF;
8188:
8189: RAISE fnd_api.g_exc_error;
8190: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8191: IF (l_debug = 1) THEN
8192: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8193: END IF;
8194:
8191: IF (l_debug = 1) THEN
8192: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns unexpected error', 'create_update_containers');
8193: END IF;
8194:
8195: RAISE fnd_api.g_exc_unexpected_error;
8196: ELSE
8197: IF (l_debug = 1) THEN
8198: DEBUG('WSH_WMS_LPN_GRP.Create_Update_Containers returns success', 'create_update_containers');
8199: END IF;
8203: IF (l_debug = 1) THEN
8204: DEBUG('The API return status is ' || x_return_status, 'create_update_containers');
8205: END IF;
8206: EXCEPTION
8207: WHEN fnd_api.g_exc_error THEN
8208: x_return_status := fnd_api.g_ret_sts_error;
8209: ROLLBACK;
8210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8211:
8204: DEBUG('The API return status is ' || x_return_status, 'create_update_containers');
8205: END IF;
8206: EXCEPTION
8207: WHEN fnd_api.g_exc_error THEN
8208: x_return_status := fnd_api.g_ret_sts_error;
8209: ROLLBACK;
8210: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8211:
8212: IF (l_debug = 1) THEN
8211:
8212: IF (l_debug = 1) THEN
8213: DEBUG('Execution Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 9);
8214: END IF;
8215: WHEN fnd_api.g_exc_unexpected_error THEN
8216: x_return_status := fnd_api.g_ret_sts_unexp_error;
8217: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8218:
8219: IF (l_debug = 1) THEN
8212: IF (l_debug = 1) THEN
8213: DEBUG('Execution Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 9);
8214: END IF;
8215: WHEN fnd_api.g_exc_unexpected_error THEN
8216: x_return_status := fnd_api.g_ret_sts_unexp_error;
8217: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8218:
8219: IF (l_debug = 1) THEN
8220: DEBUG('Unexpected Error in Create_Update_Container:' || SUBSTR(SQLERRM, 1, 240), 'create_update_containers');
8223: --x_error_code := 9999;
8224: IF l_debug = 1 THEN
8225: debug('Others exception raised: ' || SUBSTR(SQLERRM, 1, 240),'create_update_containers');
8226: END IF;
8227: x_return_status := fnd_api.g_ret_sts_unexp_error;
8228: ROLLBACK;
8229:
8230: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8231: fnd_msg_pub.add_exc_msg('WMS_DIRECT_SHIP_PVT', 'create_update_containers');
8281: l_extra_qty NUMBER;
8282: l_lpn_qty NUMBER;
8283: l_lpn_item_count NUMBER;
8284: l_delivery_item_count NUMBER;
8285: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
8286: l_commit VARCHAR2(1) := fnd_api.g_false;
8287: l_return_status VARCHAR2(1);
8288: l_msg_data VARCHAR2(20000);
8289: l_msg_count NUMBER;
8282: l_lpn_qty NUMBER;
8283: l_lpn_item_count NUMBER;
8284: l_delivery_item_count NUMBER;
8285: l_init_msg_list VARCHAR2(1) := fnd_api.g_false;
8286: l_commit VARCHAR2(1) := fnd_api.g_false;
8287: l_return_status VARCHAR2(1);
8288: l_msg_data VARCHAR2(20000);
8289: l_msg_count NUMBER;
8290: x_error_code NUMBER;
8289: l_msg_count NUMBER;
8290: x_error_code NUMBER;
8291: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8292: BEGIN
8293: x_return_status := fnd_api.g_ret_sts_success;
8294:
8295: BEGIN
8296: --Query to get the total no. of distinct items in the lpn to be shipped
8297:
8320: DEBUG('LPN contains items not belonging to the delivery.', 'Update_shipped_Quantity');
8321: DEBUG('Cannot ship', 'Update_shipped_Quantity');
8322: END IF;
8323:
8324: RAISE fnd_api.g_exc_error;
8325: END IF;
8326: EXCEPTION
8327: WHEN fnd_api.g_exc_error THEN
8328: -- Log a message for item count mismatch
8323:
8324: RAISE fnd_api.g_exc_error;
8325: END IF;
8326: EXCEPTION
8327: WHEN fnd_api.g_exc_error THEN
8328: -- Log a message for item count mismatch
8329: x_return_status := fnd_api.g_ret_sts_error;
8330: x_error_code := 10;
8331:
8325: END IF;
8326: EXCEPTION
8327: WHEN fnd_api.g_exc_error THEN
8328: -- Log a message for item count mismatch
8329: x_return_status := fnd_api.g_ret_sts_error;
8330: x_error_code := 10;
8331:
8332: IF (l_debug = 1) THEN
8333: DEBUG('LPN has more items than Delivery Details', 'Update_Shipped_Quantity');
8387: IF (l_debug = 1) THEN
8388: DEBUG('after calling Update_shipping_attributes', 'Update_shipped_Quantity');
8389: END IF;
8390:
8391: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
8392: IF (l_debug = 1) THEN
8393: DEBUG('return error from update shipping attributes 2', 'Update_shipped_Quantity');
8394: END IF;
8395:
8392: IF (l_debug = 1) THEN
8393: DEBUG('return error from update shipping attributes 2', 'Update_shipped_Quantity');
8394: END IF;
8395:
8396: RAISE fnd_api.g_exc_error;
8397: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8398: IF (l_debug = 1) THEN
8399: DEBUG('return unexpected error from update shipping attributes', 'Update_shipped_Quantity');
8400: END IF;
8393: DEBUG('return error from update shipping attributes 2', 'Update_shipped_Quantity');
8394: END IF;
8395:
8396: RAISE fnd_api.g_exc_error;
8397: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8398: IF (l_debug = 1) THEN
8399: DEBUG('return unexpected error from update shipping attributes', 'Update_shipped_Quantity');
8400: END IF;
8401:
8398: IF (l_debug = 1) THEN
8399: DEBUG('return unexpected error from update shipping attributes', 'Update_shipped_Quantity');
8400: END IF;
8401:
8402: RAISE fnd_api.g_exc_unexpected_error;
8403: ELSIF l_return_status = 'S' THEN
8404: IF (l_debug = 1) THEN
8405: DEBUG('Shipping attributes updated successfully');
8406: END IF;
8404: IF (l_debug = 1) THEN
8405: DEBUG('Shipping attributes updated successfully');
8406: END IF;
8407:
8408: x_return_status := fnd_api.g_ret_sts_success;
8409: END IF;
8410: END IF; -- end if l_lpn_qty > l_del_qty
8411: END LOOP;
8412:
8411: END LOOP;
8412:
8413: CLOSE delivery_item_qty;
8414: EXCEPTION
8415: WHEN fnd_api.g_exc_error THEN
8416: x_return_status := fnd_api.g_ret_sts_error;
8417: x_error_code := 10;
8418: ROLLBACK;
8419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8412:
8413: CLOSE delivery_item_qty;
8414: EXCEPTION
8415: WHEN fnd_api.g_exc_error THEN
8416: x_return_status := fnd_api.g_ret_sts_error;
8417: x_error_code := 10;
8418: ROLLBACK;
8419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8420:
8421: IF (l_debug = 1) THEN
8422: DEBUG('Execution Error in Update_shipped_Quantity', 'Update_shipped_Quantity');
8423: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
8424: END IF;
8425: WHEN fnd_api.g_exc_unexpected_error THEN
8426: x_return_status := fnd_api.g_ret_sts_unexp_error;
8427: x_error_code := 20;
8428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8429:
8422: DEBUG('Execution Error in Update_shipped_Quantity', 'Update_shipped_Quantity');
8423: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
8424: END IF;
8425: WHEN fnd_api.g_exc_unexpected_error THEN
8426: x_return_status := fnd_api.g_ret_sts_unexp_error;
8427: x_error_code := 20;
8428: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8429:
8430: IF (l_debug = 1) THEN
8432: DEBUG('Could not update shipping attributes', 'Update_shipped_Quantity');
8433: END IF;
8434: WHEN OTHERS THEN
8435: x_error_code := 30;
8436: x_return_status := fnd_api.g_ret_sts_unexp_error;
8437: ROLLBACK;
8438: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8439:
8440: IF (l_debug = 1) THEN
8502: l_wsh_defaults WSH_GLBL_VAR_STRCT_GRP.dd_default_parameters_rec_type;
8503: l_wsh_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
8504:
8505: BEGIN
8506: x_return_status := fnd_api.g_ret_sts_success;
8507:
8508: IF l_debug = 1 THEN
8509: debug('Entered container_nesting with p_action_code: ' ||p_action_code,
8510: 'Container_Nesting');
8518: IF l_debug = 1 THEN
8519: debug('Invalid p_action_code passed in','Container_Nesting');
8520: END IF;
8521:
8522: RAISE fnd_api.g_exc_unexpected_error;
8523: END IF;
8524:
8525: --Loop through containers that have nested container
8526: OPEN lpn_hierarchy;
8617: END IF;
8618:
8619: WSH_WMS_LPN_GRP.Delivery_Detail_Action(
8620: p_api_version_number => 1.0,
8621: p_init_msg_list => fnd_api.g_false,
8622: p_commit => fnd_api.g_false,
8623: x_return_status => x_return_status,
8624: x_msg_count => x_msg_count,
8625: x_msg_data => x_msg_data,
8618:
8619: WSH_WMS_LPN_GRP.Delivery_Detail_Action(
8620: p_api_version_number => 1.0,
8621: p_init_msg_list => fnd_api.g_false,
8622: p_commit => fnd_api.g_false,
8623: x_return_status => x_return_status,
8624: x_msg_count => x_msg_count,
8625: x_msg_data => x_msg_data,
8626: p_lpn_id_tbl => l_wsh_lpn_id_tbl,
8629: x_defaults => l_wsh_defaults,
8630: x_action_out_rec => l_wsh_action_out_rec
8631: );
8632:
8633: IF (x_return_status IN(fnd_api.g_ret_sts_error)) THEN
8634: --debug('WSH_Container_Grp.Container_Actions returns an exec. error','Pack_Lpns);
8635: IF (l_debug = 1) THEN
8636: DEBUG('Exec. error in packing' || SUBSTR(SQLERRM, 1, 240) || ' ret st:' || x_return_status, 'Container_Nesting');
8637: END IF;
8635: IF (l_debug = 1) THEN
8636: DEBUG('Exec. error in packing' || SUBSTR(SQLERRM, 1, 240) || ' ret st:' || x_return_status, 'Container_Nesting');
8637: END IF;
8638:
8639: RAISE fnd_api.g_exc_error;
8640: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8641: --debug('WSH_Container_Grp.Container_Actions returns an unexp. error','Pack_Lpns);
8642: IF (l_debug = 1) THEN
8643: DEBUG('Unexp. error in packing', 'Container_Nesting');
8636: DEBUG('Exec. error in packing' || SUBSTR(SQLERRM, 1, 240) || ' ret st:' || x_return_status, 'Container_Nesting');
8637: END IF;
8638:
8639: RAISE fnd_api.g_exc_error;
8640: ELSIF(x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
8641: --debug('WSH_Container_Grp.Container_Actions returns an unexp. error','Pack_Lpns);
8642: IF (l_debug = 1) THEN
8643: DEBUG('Unexp. error in packing', 'Container_Nesting');
8644: END IF;
8642: IF (l_debug = 1) THEN
8643: DEBUG('Unexp. error in packing', 'Container_Nesting');
8644: END IF;
8645:
8646: RAISE fnd_api.g_exc_unexpected_error;
8647: ELSE
8648: IF (l_debug = 1) THEN
8649: DEBUG('Nesting is success. Outermost LPN ID: ' || p_outermost_lpn_id, 'Container_Nesting');
8650: END IF;
8680: IF (l_debug = 1) THEN
8681: DEBUG('Unpack other exception..delivery not assign to LPN? ','Container_Nesting');
8682: debug(SQLERRM, 'Container_Nesting');
8683: END IF;
8684: RAISE fnd_api.g_exc_unexpected_error;
8685: END;
8686:
8687: IF l_delivery_planned_flag NOT IN ('Y','F') THEN
8688: DEBUG('Delivery not planned. Just unassign the outer LPN lines','Container_Nesting');
8689: wsh_container_grp.container_actions
8690: (p_api_version => 1.0,
8691: p_init_msg_list => G_TRUE,
8692: p_commit => G_FALSE,
8693: p_validation_level => fnd_api.g_valid_level_full,
8694: x_return_status => x_return_status,
8695: x_msg_count => x_msg_count,
8696: x_msg_data => x_msg_data,
8697: p_detail_tab => l_par_del_det_tab,
8704: THEN
8705: debug('Unassign from delivery failed' , 'Container_Nesting');
8706: debug('wsh_container_grp.container_actions returned ' ||
8707: x_return_status,'Container_Nesting');
8708: RAISE fnd_api.g_exc_unexpected_error;
8709: END IF;
8710: ELSE
8711: DEBUG('Delivery is planned.','Container_Nesting');
8712: IF l_delivery_planned_flag = 'F' THEN
8724: EXCEPTION
8725: WHEN OTHERS THEN
8726: debug('Cannot find trip ID?','Container_Nesting');
8727: debug(SQLERRM,'Container_Nesting');
8728: RAISE fnd_api.g_exc_unexpected_error;
8729: END;
8730:
8731: wsh_interface_ext_grp.trip_action
8732: (p_api_version_number => 1.0,
8729: END;
8730:
8731: wsh_interface_ext_grp.trip_action
8732: (p_api_version_number => 1.0,
8733: p_init_msg_list => fnd_api.g_false,
8734: p_commit => fnd_api.g_false,
8735: p_action_prms => l_trip_action_prms,
8736: p_entity_id_tab => l_trip_id_tab,
8737: x_trip_out_rec => l_trip_out_rec,
8730:
8731: wsh_interface_ext_grp.trip_action
8732: (p_api_version_number => 1.0,
8733: p_init_msg_list => fnd_api.g_false,
8734: p_commit => fnd_api.g_false,
8735: p_action_prms => l_trip_action_prms,
8736: p_entity_id_tab => l_trip_id_tab,
8737: x_trip_out_rec => l_trip_out_rec,
8738: x_return_status => x_return_status,
8742:
8743: IF x_return_status IN (G_RET_STS_ERROR,G_RET_STS_UNEXP_ERROR) THEN
8744: DEBUG('Unfirming trip failed!','Container_Nesting');
8745: debug('msg_data: ' || x_msg_data,'Container_Nesting');
8746: RAISE fnd_api.g_exc_unexpected_error;
8747: END IF;
8748: END IF;
8749:
8750: l_action_prms.caller := 'WMS';
8754:
8755: DEBUG('Unfirm delivery','Container_Nesting');
8756: wsh_interface_ext_grp.delivery_action
8757: (p_api_version_number => 1.0,
8758: p_init_msg_list => fnd_api.g_false,
8759: p_commit => fnd_api.g_false,
8760: p_action_prms => l_action_prms,
8761: p_delivery_id_tab => l_delivery_id_tab,
8762: x_delivery_out_rec => l_delivery_out_rec,
8755: DEBUG('Unfirm delivery','Container_Nesting');
8756: wsh_interface_ext_grp.delivery_action
8757: (p_api_version_number => 1.0,
8758: p_init_msg_list => fnd_api.g_false,
8759: p_commit => fnd_api.g_false,
8760: p_action_prms => l_action_prms,
8761: p_delivery_id_tab => l_delivery_id_tab,
8762: x_delivery_out_rec => l_delivery_out_rec,
8763: x_return_status => x_return_status,
8766:
8767: IF x_return_status IN (G_RET_STS_ERROR,G_RET_STS_UNEXP_ERROR) THEN
8768: DEBUG('Unfirming delivery failed!','Container_Nesting');
8769: debug('msg_data: ' || x_msg_data,'Container_Nesting');
8770: RAISE fnd_api.g_exc_unexpected_error;
8771: END IF;
8772:
8773: DEBUG('Unassign the lines from delivery','Container_Nesting');
8774: wsh_container_grp.container_actions
8774: wsh_container_grp.container_actions
8775: (p_api_version => 1.0,
8776: p_init_msg_list => G_TRUE,
8777: p_commit => G_FALSE,
8778: p_validation_level => fnd_api.g_valid_level_full,
8779: x_return_status => x_return_status,
8780: x_msg_count => x_msg_count,
8781: x_msg_data => x_msg_data,
8782: p_detail_tab => l_par_del_det_tab,
8785:
8786: IF x_return_status IN (G_RET_STS_ERROR,G_RET_STS_UNEXP_ERROR) THEN
8787: DEBUG('Unassigning from delivery failed!','Container_Nesting');
8788: debug('msg_data: ' || x_msg_data,'Container_Nesting');
8789: RAISE fnd_api.g_exc_unexpected_error;
8790: END IF;
8791:
8792: IF l_delivery_planned_flag = 'Y' THEN
8793:
8794: l_action_prms.action_code := 'PLAN';
8795: DEBUG('Planned flag is Y need to firm back the delivery','Container_Nesting');
8796: wsh_interface_ext_grp.delivery_action
8797: (p_api_version_number => 1.0,
8798: p_init_msg_list => fnd_api.g_false,
8799: p_commit => fnd_api.g_false,
8800: p_action_prms => l_action_prms,
8801: p_delivery_id_tab => l_delivery_id_tab,
8802: x_delivery_out_rec => l_delivery_out_rec,
8795: DEBUG('Planned flag is Y need to firm back the delivery','Container_Nesting');
8796: wsh_interface_ext_grp.delivery_action
8797: (p_api_version_number => 1.0,
8798: p_init_msg_list => fnd_api.g_false,
8799: p_commit => fnd_api.g_false,
8800: p_action_prms => l_action_prms,
8801: p_delivery_id_tab => l_delivery_id_tab,
8802: x_delivery_out_rec => l_delivery_out_rec,
8803: x_return_status => x_return_status,
8806:
8807: IF x_return_status IN (G_RET_STS_ERROR,G_RET_STS_UNEXP_ERROR) THEN
8808: DEBUG('Firming delivery failed!','Container_Nesting');
8809: debug('msg_data: ' || x_msg_data,'Container_Nesting');
8810: RAISE fnd_api.g_exc_unexpected_error;
8811: END IF;
8812:
8813: else
8814: debug('Planned flag is F. Firm back the trip: ' || l_trip_id_tab(1),'Container_Nesting');
8815: l_trip_action_prms.action_code := 'FIRM';
8816:
8817: wsh_interface_ext_grp.trip_action
8818: (p_api_version_number => 1.0,
8819: p_init_msg_list => fnd_api.g_false,
8820: p_commit => fnd_api.g_false,
8821: p_action_prms => l_trip_action_prms,
8822: p_entity_id_tab => l_trip_id_tab,
8823: x_trip_out_rec => l_trip_out_rec,
8816:
8817: wsh_interface_ext_grp.trip_action
8818: (p_api_version_number => 1.0,
8819: p_init_msg_list => fnd_api.g_false,
8820: p_commit => fnd_api.g_false,
8821: p_action_prms => l_trip_action_prms,
8822: p_entity_id_tab => l_trip_id_tab,
8823: x_trip_out_rec => l_trip_out_rec,
8824: x_return_status => x_return_status,
8828:
8829: IF x_return_status IN (G_RET_STS_ERROR,G_RET_STS_UNEXP_ERROR) THEN
8830: DEBUG('Firming trip failed!','Container_Nesting');
8831: debug('msg_data: ' || x_msg_data,'Container_Nesting');
8832: RAISE fnd_api.g_exc_unexpected_error;
8833: END IF;
8834: END IF;
8835: END IF;
8836: END IF;--p_action_code = 'UNPACK'
8835: END IF;
8836: END IF;--p_action_code = 'UNPACK'
8837:
8838: EXCEPTION
8839: WHEN fnd_api.g_exc_error THEN
8840: x_return_status := fnd_api.g_ret_sts_error;
8841: ROLLBACK;
8842: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8843:
8836: END IF;--p_action_code = 'UNPACK'
8837:
8838: EXCEPTION
8839: WHEN fnd_api.g_exc_error THEN
8840: x_return_status := fnd_api.g_ret_sts_error;
8841: ROLLBACK;
8842: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8843:
8844: IF container_details%ISOPEN THEN
8851:
8852: IF (l_debug = 1) THEN
8853: DEBUG('Execution Error in lpn_hiearchy:' || x_msg_data || '-' || SUBSTR(SQLERRM, 1, 240), 'Container_Nesting');
8854: END IF;
8855: WHEN fnd_api.g_exc_unexpected_error THEN
8856: x_return_status := fnd_api.g_ret_sts_unexp_error;
8857: ROLLBACK;
8858: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8859:
8852: IF (l_debug = 1) THEN
8853: DEBUG('Execution Error in lpn_hiearchy:' || x_msg_data || '-' || SUBSTR(SQLERRM, 1, 240), 'Container_Nesting');
8854: END IF;
8855: WHEN fnd_api.g_exc_unexpected_error THEN
8856: x_return_status := fnd_api.g_ret_sts_unexp_error;
8857: ROLLBACK;
8858: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8859:
8860: IF (l_debug = 1) THEN
8868: IF lpn_hierarchy%ISOPEN THEN
8869: CLOSE lpn_hierarchy;
8870: END IF;
8871: WHEN OTHERS THEN
8872: x_return_status := fnd_api.g_ret_sts_unexp_error;
8873: ROLLBACK;
8874: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8875:
8876: --debug('Unexpected Error in pack_lpns:' || substr(SQLERRM,1,240),9);
8906: l_count_del_assign NUMBER;
8907: lpn_name VARCHAR2(30);
8908: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8909: BEGIN
8910: x_return_status := fnd_api.g_ret_sts_success;
8911: x_error_code := NULL;
8912: OPEN lpn_cur;
8913:
8914: LOOP
8937: fnd_message.set_name('WMS', 'WMS_ORDER_LINE_SPLIT');
8938: fnd_message.set_token('CONTAINER_NAME', lpn_name);
8939: fnd_msg_pub.ADD;
8940: x_error_code := 7;
8941: RAISE fnd_api.g_exc_error;
8942:
8943: --dbms_output.put_line('Contents of the container '||lpn_name||' are split in order management');
8944: IF (l_debug = 1) THEN
8945: DEBUG('Contents of the container ' || lpn_name || ' are split in order management', 'CHECK_ORDER_LINE_SPLIT');
8948: END LOOP;
8949:
8950: CLOSE lpn_cur;
8951: EXCEPTION
8952: WHEN fnd_api.g_exc_error THEN
8953: x_return_status := fnd_api.g_ret_sts_error;
8954:
8955: IF lpn_cur%ISOPEN THEN
8956: CLOSE lpn_cur;
8949:
8950: CLOSE lpn_cur;
8951: EXCEPTION
8952: WHEN fnd_api.g_exc_error THEN
8953: x_return_status := fnd_api.g_ret_sts_error;
8954:
8955: IF lpn_cur%ISOPEN THEN
8956: CLOSE lpn_cur;
8957: END IF;
8960: DEBUG('In Exception (expected error) - E ', 'CHECK_ORDER_LINE_SPLIT');
8961: END IF;
8962:
8963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8964: WHEN fnd_api.g_exc_unexpected_error THEN
8965: x_return_status := fnd_api.g_ret_sts_unexp_error;
8966:
8967: IF lpn_cur%ISOPEN THEN
8968: CLOSE lpn_cur;
8961: END IF;
8962:
8963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8964: WHEN fnd_api.g_exc_unexpected_error THEN
8965: x_return_status := fnd_api.g_ret_sts_unexp_error;
8966:
8967: IF lpn_cur%ISOPEN THEN
8968: CLOSE lpn_cur;
8969: END IF;
8973: END IF;
8974:
8975: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8976: WHEN OTHERS THEN
8977: x_return_status := fnd_api.g_ret_sts_unexp_error;
8978:
8979: IF lpn_cur%ISOPEN THEN
8980: CLOSE lpn_cur;
8981: END IF;
8997: l_count NUMBER;
8998: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
8999: BEGIN
9000: x_missing_count := 0;
9001: x_return_status := fnd_api.g_ret_sts_success;
9002:
9003: SELECT COUNT(*)
9004: INTO l_count
9005: FROM wsh_delivery_details_ob_grp_v wdd, wsh_delivery_assignments_v wda, mtl_system_items_kfv msik
9021: EXCEPTION
9022: WHEN NO_DATA_FOUND THEN
9023: l_count := 0;
9024: WHEN OTHERS THEN
9025: x_return_status := fnd_api.g_ret_sts_unexp_error;
9026:
9027: IF (l_debug = 1) THEN
9028: DEBUG('Unexp-Error in missing item procedure ', 'CHECK_MISSING_ITEM_CUR');
9029: END IF;
9063: AND direct_ship_flag = 'Y'));
9064:
9065: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9066: BEGIN
9067: x_return_status := fnd_api.g_ret_sts_success;
9068:
9069: BEGIN
9070: SELECT NVL(SUM(DECODE(direct_ship_flag, 'N', 1)), 0) l_flag_n
9071: INTO l_flag_n
9083: IF (l_debug = 1) THEN
9084: DEBUG('Records in wstt for direct ship flag =N', 'chk_del_for_direct_ship');
9085: END IF;
9086:
9087: RAISE fnd_api.g_exc_error;
9088: END IF;
9089: --DBMS_OUTPUT.PUT_LINE('tHERE ARE NO LINES WITH DIRECT_FLAG =N');
9090: EXCEPTION
9091: WHEN NO_DATA_FOUND THEN
9133: );
9134: DEBUG('Check failed', 'chk_del_for_direct_ship');
9135: END IF;
9136:
9137: RAISE fnd_api.g_exc_error;
9138: END IF;
9139: END LOOP;
9140: EXCEPTION
9141: WHEN NO_DATA_FOUND THEN
9146: NULL;
9147: END;
9148: END;
9149: EXCEPTION
9150: WHEN fnd_api.g_exc_error THEN
9151: x_return_status := fnd_api.g_ret_sts_error;
9152: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9153: WHEN fnd_api.g_exc_unexpected_error THEN
9154: x_return_status := fnd_api.g_ret_sts_unexp_error;
9147: END;
9148: END;
9149: EXCEPTION
9150: WHEN fnd_api.g_exc_error THEN
9151: x_return_status := fnd_api.g_ret_sts_error;
9152: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9153: WHEN fnd_api.g_exc_unexpected_error THEN
9154: x_return_status := fnd_api.g_ret_sts_unexp_error;
9155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9149: EXCEPTION
9150: WHEN fnd_api.g_exc_error THEN
9151: x_return_status := fnd_api.g_ret_sts_error;
9152: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9153: WHEN fnd_api.g_exc_unexpected_error THEN
9154: x_return_status := fnd_api.g_ret_sts_unexp_error;
9155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9156: WHEN OTHERS THEN
9157: x_return_status := fnd_api.g_ret_sts_unexp_error;
9150: WHEN fnd_api.g_exc_error THEN
9151: x_return_status := fnd_api.g_ret_sts_error;
9152: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9153: WHEN fnd_api.g_exc_unexpected_error THEN
9154: x_return_status := fnd_api.g_ret_sts_unexp_error;
9155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9156: WHEN OTHERS THEN
9157: x_return_status := fnd_api.g_ret_sts_unexp_error;
9158: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9153: WHEN fnd_api.g_exc_unexpected_error THEN
9154: x_return_status := fnd_api.g_ret_sts_unexp_error;
9155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9156: WHEN OTHERS THEN
9157: x_return_status := fnd_api.g_ret_sts_unexp_error;
9158: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9159: END chk_del_for_direct_ship;
9160:
9161:
9181: l_return_status VARCHAR2(30);
9182: l_line_set_id NUMBER ;
9183: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
9184: BEGIN
9185: x_return_status := fnd_api.g_ret_sts_success;
9186: x_prim_qty := 0;
9187: x_sec_qty := 0;
9188:
9189: IF (l_debug = 1) THEN
9210: DEBUG('l_avail_req_quantity='||l_avail_req_quantity,'Get_qty_to_pick');
9211: DEBUG('l_avail_req_sec_qty='||l_avail_req_sec_qty,'Get_qty_to_pick');
9212: DEBUG('l_return_status='||l_return_status,'Get_qty_to_pick');
9213: END IF;
9214: IF l_return_status = fnd_api.g_ret_sts_error THEN
9215: IF (l_debug = 1) THEN
9216: DEBUG('Check_Quantity_To_Pick API failed , ERROR ', 'Get_qty_to_pick');
9217: END IF;
9218: RAISE fnd_api.g_exc_error;
9214: IF l_return_status = fnd_api.g_ret_sts_error THEN
9215: IF (l_debug = 1) THEN
9216: DEBUG('Check_Quantity_To_Pick API failed , ERROR ', 'Get_qty_to_pick');
9217: END IF;
9218: RAISE fnd_api.g_exc_error;
9219: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9220: IF (l_debug = 1) THEN
9221: DEBUG('Check_Quantity_To_Pick API failed,UNEXPECTED ERROR', 'Get_qty_to_pick');
9222: END IF;
9215: IF (l_debug = 1) THEN
9216: DEBUG('Check_Quantity_To_Pick API failed , ERROR ', 'Get_qty_to_pick');
9217: END IF;
9218: RAISE fnd_api.g_exc_error;
9219: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9220: IF (l_debug = 1) THEN
9221: DEBUG('Check_Quantity_To_Pick API failed,UNEXPECTED ERROR', 'Get_qty_to_pick');
9222: END IF;
9223: RAISE fnd_api.g_exc_unexpected_error;
9219: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9220: IF (l_debug = 1) THEN
9221: DEBUG('Check_Quantity_To_Pick API failed,UNEXPECTED ERROR', 'Get_qty_to_pick');
9222: END IF;
9223: RAISE fnd_api.g_exc_unexpected_error;
9224: END IF;
9225:
9226: SELECT nvl(wdd.source_line_set_id,wdd.source_line_id) into l_line_set_id
9227: FROM wsh_delivery_details_ob_grp_v wdd
9272: x_sec_qty := NVL(l_max_sec_qty_allowed,0) + NVL(l_staged_sec_qty,0) - NVL(l_total_resvd_sec_qty,0);
9273:
9274: EXCEPTION
9275: WHEN OTHERS THEN
9276: x_return_status := fnd_api.g_ret_sts_unexp_error;
9277: IF (l_debug = 1) THEN
9278: DEBUG('OTHER EXCEPTION: ' || SQLERRM,'Get_qty_to_pick');
9279: END IF;
9280: END Get_qty_to_pick;
9417: IF (l_debug = 1) THEN
9418: DEBUG('Process_LPN called with parameters : p_lpn_id = ' || p_lpn_id || ' : p_org_id = ' || p_org_id, 'Process_LPN');
9419: END IF;
9420:
9421: x_return_status := fnd_api.g_ret_sts_success;
9422:
9423: --clear all cached data structures
9424: g_lpn_contents_tab.DELETE;
9425: g_lpn_contents_lookup_tab.DELETE;
9468: IF (l_debug = 1) THEN
9469: DEBUG('Exception getting reservable type of sub', 'Process_LPN');
9470: END IF;
9471:
9472: RAISE fnd_api.g_exc_error;
9473: END;
9474:
9475: IF l_sub_reservable_type <> 1 THEN
9476: IF (l_debug = 1) THEN
9476: IF (l_debug = 1) THEN
9477: DEBUG('LPN containes non reservable items', 'Process_LPN');
9478: END IF;
9479:
9480: x_return_status := fnd_api.g_ret_sts_error;
9481: fnd_message.set_name('WMS', 'WMS_SUB_NON_RESERVABLE');
9482: fnd_msg_pub.ADD;
9483: RETURN;
9484: ELSE
9585: IF (l_debug = 1) THEN
9586: DEBUG('LPN containes non reservable items', 'Process_LPN');
9587: END IF;
9588:
9589: x_return_status := fnd_api.g_ret_sts_error;
9590: fnd_message.set_name('WMS', 'WMS_ITEM_NON_RESERVABLE');
9591: fnd_msg_pub.ADD;
9592: RETURN;
9593: END IF;
9611: IF(g_fulfillment_base = 'S' AND NVL(l_lpn_content_cur_rec.secondary_quantity,0) = 0) THEN
9612: IF (l_debug = 1) THEN
9613: DEBUG('Fulfillment base is S but LPN content record has 0 sec - Invalid sec qty for FB=S so stop further processing', 'Process_LPN');
9614: END IF;
9615: x_return_status := fnd_api.g_ret_sts_error;
9616: fnd_message.set_name('WMS','WMS_INVALID_SEC_QTY');
9617: fnd_msg_pub.ADD;
9618: RETURN;
9619: END IF;
9680: DEBUG('G_total_lpn_sec_qty =' || g_total_lpn_sec_qty, 'Process_LPN');
9681: END IF;
9682:
9683: IF g_lpn_contents_tab.COUNT = 0 THEN
9684: x_return_status := fnd_api.g_ret_sts_error;
9685: fnd_message.set_name('WMS', 'WMS_EMPTY_LPN');
9686: fnd_msg_pub.ADD;
9687:
9688: IF (l_debug = 1) THEN
9720: IF (l_debug = 1) THEN
9721: DEBUG('Exception getting PJM Parameters ', 'Process_LPN');
9722: END IF;
9723:
9724: x_return_status := fnd_api.g_ret_sts_error;
9725: RAISE fnd_api.g_exc_error;
9726: END;
9727:
9728: x_cross_project_allowed := g_cross_project_allowed;
9721: DEBUG('Exception getting PJM Parameters ', 'Process_LPN');
9722: END IF;
9723:
9724: x_return_status := fnd_api.g_ret_sts_error;
9725: RAISE fnd_api.g_exc_error;
9726: END;
9727:
9728: x_cross_project_allowed := g_cross_project_allowed;
9729: x_cross_unit_allowed := g_cross_unit_allowed;
9751: IF (l_debug = 1) THEN
9752: DEBUG('Exception getting Project and Task Ids ', 'Process_LPN');
9753: END IF;
9754:
9755: x_return_status := fnd_api.g_ret_sts_error;
9756: RAISE fnd_api.g_exc_error;
9757: END; -- get project and task id
9758:
9759: x_project_id := g_project_id;
9752: DEBUG('Exception getting Project and Task Ids ', 'Process_LPN');
9753: END IF;
9754:
9755: x_return_status := fnd_api.g_ret_sts_error;
9756: RAISE fnd_api.g_exc_error;
9757: END; -- get project and task id
9758:
9759: x_project_id := g_project_id;
9760: x_task_id := g_task_id;
9796: IF (l_debug = 1) THEN
9797: DEBUG('No data found for delivery grouping flags', 'Process_LPN');
9798: END IF;
9799:
9800: x_return_status := fnd_api.g_ret_sts_error;
9801: RAISE fnd_api.g_exc_error;
9802: WHEN OTHERS THEN
9803: IF (l_debug = 1) THEN
9804: DEBUG('Exception getting delivery grouping rule flags', 'Process_LPN');
9797: DEBUG('No data found for delivery grouping flags', 'Process_LPN');
9798: END IF;
9799:
9800: x_return_status := fnd_api.g_ret_sts_error;
9801: RAISE fnd_api.g_exc_error;
9802: WHEN OTHERS THEN
9803: IF (l_debug = 1) THEN
9804: DEBUG('Exception getting delivery grouping rule flags', 'Process_LPN');
9805: END IF;
9803: IF (l_debug = 1) THEN
9804: DEBUG('Exception getting delivery grouping rule flags', 'Process_LPN');
9805: END IF;
9806:
9807: x_return_status := fnd_api.g_ret_sts_error;
9808: RAISE fnd_api.g_exc_error;
9809: END;
9810:
9811: -- start process lines reserved against this lpn
9804: DEBUG('Exception getting delivery grouping rule flags', 'Process_LPN');
9805: END IF;
9806:
9807: x_return_status := fnd_api.g_ret_sts_error;
9808: RAISE fnd_api.g_exc_error;
9809: END;
9810:
9811: -- start process lines reserved against this lpn
9812: IF (l_debug = 1) THEN
9860: ELSE
9861: IF (l_debug = 1) THEN
9862: DEBUG('Error from inv_cache.set_item_rec', 'Process_LPN');
9863: END IF;
9864: RAISE fnd_api.g_exc_unexpected_error;
9865: END IF;
9866:
9867: l_qry_reservation_record.inventory_item_id := g_lpn_contents_tab(c_index).inventory_item_id;
9868: l_qry_reservation_record.revision := g_lpn_contents_tab(c_index).revision;
9871: l_qry_reservation_record.supply_source_type_id := inv_reservation_global.g_source_type_inv;
9872:
9873: inv_reservation_pub.query_reservation(
9874: p_api_version_number => 1.0
9875: , p_init_msg_lst => fnd_api.g_false
9876: , x_return_status => l_return_status
9877: , x_msg_count => l_msg_count
9878: , x_msg_data => l_msg_data
9879: , p_query_input => l_qry_reservation_record
9876: , x_return_status => l_return_status
9877: , x_msg_count => l_msg_count
9878: , x_msg_data => l_msg_data
9879: , p_query_input => l_qry_reservation_record
9880: , p_lock_records => fnd_api.g_false
9881: , x_mtl_reservation_tbl => l_mtl_reservation_tab
9882: , x_mtl_reservation_tbl_count => l_mtl_reservation_tab_count
9883: , x_error_code => l_error_code
9884: );
9882: , x_mtl_reservation_tbl_count => l_mtl_reservation_tab_count
9883: , x_error_code => l_error_code
9884: );
9885:
9886: IF l_return_status = fnd_api.g_ret_sts_error THEN
9887: IF (l_debug = 1) THEN
9888: DEBUG('Reservation query api failed', 'Process_LPN');
9889: END IF;
9890:
9887: IF (l_debug = 1) THEN
9888: DEBUG('Reservation query api failed', 'Process_LPN');
9889: END IF;
9890:
9891: RAISE fnd_api.g_exc_error;
9892: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9893: IF (l_debug = 1) THEN
9894: DEBUG('Reservation query api failed', 'Process_LPN');
9895: END IF;
9888: DEBUG('Reservation query api failed', 'Process_LPN');
9889: END IF;
9890:
9891: RAISE fnd_api.g_exc_error;
9892: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9893: IF (l_debug = 1) THEN
9894: DEBUG('Reservation query api failed', 'Process_LPN');
9895: END IF;
9896:
9893: IF (l_debug = 1) THEN
9894: DEBUG('Reservation query api failed', 'Process_LPN');
9895: END IF;
9896:
9897: RAISE fnd_api.g_exc_unexpected_error;
9898: END IF;
9899: END IF; --bug13830442
9900:
9901: IF (l_debug = 1) THEN
9910: DEBUG('Non-Sales Order reservation exists, error out', 'Process_LPN');
9911: END IF;
9912: fnd_message.set_name('WMS', 'WMS_LINE_NOT_BOOKED');
9913: fnd_msg_pub.ADD;
9914: RAISE fnd_api.g_exc_error;
9915: END IF;
9916:
9917: BEGIN
9918: SELECT oel.header_id
9944: IF (l_debug = 1) THEN
9945: DEBUG('No data found for line', 'Process_LPN');
9946: END IF;
9947:
9948: x_return_status := fnd_api.g_ret_sts_error;
9949: RAISE fnd_api.g_exc_error;
9950: WHEN OTHERS THEN
9951: IF (l_debug = 1) THEN
9952: DEBUG('Exception getting data for line ', 'Process_LPN');
9945: DEBUG('No data found for line', 'Process_LPN');
9946: END IF;
9947:
9948: x_return_status := fnd_api.g_ret_sts_error;
9949: RAISE fnd_api.g_exc_error;
9950: WHEN OTHERS THEN
9951: IF (l_debug = 1) THEN
9952: DEBUG('Exception getting data for line ', 'Process_LPN');
9953: END IF;
9951: IF (l_debug = 1) THEN
9952: DEBUG('Exception getting data for line ', 'Process_LPN');
9953: END IF;
9954:
9955: x_return_status := fnd_api.g_ret_sts_error;
9956: RAISE fnd_api.g_exc_error;
9957: END;
9958:
9959: IF (l_debug = 1) THEN
9952: DEBUG('Exception getting data for line ', 'Process_LPN');
9953: END IF;
9954:
9955: x_return_status := fnd_api.g_ret_sts_error;
9956: RAISE fnd_api.g_exc_error;
9957: END;
9958:
9959: IF (l_debug = 1) THEN
9960: DEBUG('Processing line: ', 'Process_LPN');
9994: IF (l_debug = 1) THEN
9995: DEBUG('Order Line not booked', 'Process_LPN');
9996: END IF;
9997:
9998: x_return_status := fnd_api.g_ret_sts_error;
9999: fnd_message.set_name('WMS', 'WMS_LINE_NOT_BOOKED');
10000: fnd_msg_pub.ADD;
10001: RETURN;
10002: END;
10012: IF (l_debug = 1) THEN
10013: DEBUG('Validation of PJM parameters failed', 'Process_LPN');
10014: END IF;
10015:
10016: x_return_status := fnd_api.g_ret_sts_error;
10017: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
10018: fnd_msg_pub.ADD;
10019: RETURN;
10020: END IF;
10045: IF (l_debug = 1) THEN
10046: DEBUG('LPN quantity is less then the reserved quantity', 'Process_LPN');
10047: END IF;
10048:
10049: x_return_status := fnd_api.g_ret_sts_error;
10050: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
10051: fnd_msg_pub.ADD;
10052: RETURN;
10053: END IF;
10059: IF (l_debug = 1) THEN
10060: DEBUG('Delivery grouping failed', 'Process_LPN');
10061: END IF;
10062:
10063: x_return_status := fnd_api.g_ret_sts_error;
10064: fnd_message.set_name('WMS', 'WMS_DEL_GRP_FAILED');
10065: fnd_msg_pub.ADD;
10066: RETURN;
10067: END IF;
10072: IF (l_debug = 1) THEN
10073: DEBUG('Checl del for direct ship failed', 'Process_LPN');
10074: END IF;
10075:
10076: x_return_status := fnd_api.g_ret_sts_error;
10077: fnd_message.set_name('WMS', 'WMS_DEL_LINES_MIX');
10078: fnd_msg_pub.ADD;
10079: RETURN;
10080: END IF;
10102: , x_msg_count => l_msg_count
10103: , x_msg_data => l_msg_data
10104: );
10105:
10106: IF l_return_status = fnd_api.g_ret_sts_error THEN
10107: IF (l_debug = 1) THEN
10108: DEBUG('Check Holds Failed', 'Process_LPN');
10109: END IF;
10110:
10107: IF (l_debug = 1) THEN
10108: DEBUG('Check Holds Failed', 'Process_LPN');
10109: END IF;
10110:
10111: x_return_status := fnd_api.g_ret_sts_error;
10112: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10113: fnd_msg_pub.ADD;
10114: RETURN;
10115: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10111: x_return_status := fnd_api.g_ret_sts_error;
10112: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10113: fnd_msg_pub.ADD;
10114: RETURN;
10115: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10116: IF (l_debug = 1) THEN
10117: DEBUG('Check holds Failed :Unexpected', 'Process_LPN');
10118: END IF;
10119:
10116: IF (l_debug = 1) THEN
10117: DEBUG('Check holds Failed :Unexpected', 'Process_LPN');
10118: END IF;
10119:
10120: x_return_status := fnd_api.g_ret_sts_error;
10121: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10122: fnd_msg_pub.ADD;
10123: RETURN;
10124: ELSE
10135: DEBUG('Cannot mix fulfillment modes', 'Process_LPN');
10136: END IF;
10137: fnd_message.set_name('WMS', 'WMS_LPN_FB_COMINGLE');
10138: fnd_msg_pub.ADD;
10139: RAISE fnd_api.g_exc_error;
10140: END IF;
10141:
10142: -- get oe_order_header_id from sales order header id
10143: inv_salesorder.get_oeheader_for_salesorder(
10151: DEBUG('l_oe_order_line_id = ' || l_mtl_reservation_tab(resv_index).demand_source_line_id, 'Process_LPN');
10152: END IF;
10153:
10154: --Bug5262108. Begin. Check qty to pick considering overship tolerance.
10155: l_return_status := fnd_api.g_ret_sts_success;
10156: WMS_DIRECT_SHIP_PVT.Get_qty_to_pick(
10157: p_order_header_id => l_oe_order_header_id,
10158: p_order_line_id => l_mtl_reservation_tab(resv_index).demand_source_line_id,
10159: p_org_id => p_org_id,
10160: x_return_status => l_return_status,
10161: x_prim_qty => l_qty_to_pick,
10162: x_sec_qty => l_sec_qty_to_pick);
10163:
10164: IF l_return_status <> fnd_api.g_ret_sts_success THEN
10165: IF (l_debug = 1) THEN
10166: DEBUG('Get_qty_to_pick returned error status: ' || l_return_status, 'Process_LPN');
10167: END IF;
10168: RAISE fnd_api.g_exc_unexpected_error;
10164: IF l_return_status <> fnd_api.g_ret_sts_success THEN
10165: IF (l_debug = 1) THEN
10166: DEBUG('Get_qty_to_pick returned error status: ' || l_return_status, 'Process_LPN');
10167: END IF;
10168: RAISE fnd_api.g_exc_unexpected_error;
10169: END IF;
10170:
10171: IF (l_debug = 1) THEN
10172: DEBUG('l_qty_to_pick = ' || l_qty_to_pick, 'Process_LPN');
10215: l_new_upd_resv_rec.staged_flag :='Y';
10216:
10217: inv_reservation_pub.update_reservation(
10218: p_api_version_number => 1.0
10219: , p_init_msg_lst => fnd_api.g_false
10220: , x_return_status => l_return_status
10221: , x_msg_count => l_msg_count
10222: , x_msg_data => l_msg_data
10223: , p_original_rsv_rec => l_old_upd_resv_rec
10223: , p_original_rsv_rec => l_old_upd_resv_rec
10224: , p_to_rsv_rec => l_new_upd_resv_rec
10225: , p_original_serial_number => l_upd_dummy_sn
10226: , p_to_serial_number => l_upd_dummy_sn
10227: , p_validation_flag => fnd_api.g_true
10228: );
10229: ELSIF g_fulfillment_base = 'S' THEN
10230: IF l_sec_qty_to_pick > 0
10231: AND (l_mtl_reservation_tab(resv_index).secondary_reservation_quantity > l_sec_qty_to_pick
10278: l_new_upd_resv_rec.staged_flag :='Y';
10279:
10280: inv_reservation_pub.update_reservation(
10281: p_api_version_number => 1.0
10282: , p_init_msg_lst => fnd_api.g_false
10283: , x_return_status => l_return_status
10284: , x_msg_count => l_msg_count
10285: , x_msg_data => l_msg_data
10286: , p_original_rsv_rec => l_old_upd_resv_rec
10286: , p_original_rsv_rec => l_old_upd_resv_rec
10287: , p_to_rsv_rec => l_new_upd_resv_rec
10288: , p_original_serial_number => l_upd_dummy_sn
10289: , p_to_serial_number => l_upd_dummy_sn
10290: , p_validation_flag => fnd_api.g_true
10291: );
10292: END IF;
10293: ELSIF ( (g_fulfillment_base = 'P' AND l_qty_to_pick > 0)
10294: OR (g_fulfillment_base = 'S' AND l_sec_qty_to_pick > 0) )
10303: ELSE
10304: EXIT;
10305: END IF;
10306:
10307: IF l_return_status = fnd_api.g_ret_sts_error THEN
10308: IF (l_debug = 1) THEN
10309: DEBUG('Update reservation failed for reservation_id ' || l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10310: END IF;
10311: RAISE fnd_api.g_exc_error;
10307: IF l_return_status = fnd_api.g_ret_sts_error THEN
10308: IF (l_debug = 1) THEN
10309: DEBUG('Update reservation failed for reservation_id ' || l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10310: END IF;
10311: RAISE fnd_api.g_exc_error;
10312: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10313: IF (l_debug = 1) THEN
10314: DEBUG('Update reservation failed for reservation_id with status U' ||l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10315: END IF;
10308: IF (l_debug = 1) THEN
10309: DEBUG('Update reservation failed for reservation_id ' || l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10310: END IF;
10311: RAISE fnd_api.g_exc_error;
10312: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10313: IF (l_debug = 1) THEN
10314: DEBUG('Update reservation failed for reservation_id with status U' ||l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10315: END IF;
10316: RAISE fnd_api.g_exc_unexpected_error;
10312: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10313: IF (l_debug = 1) THEN
10314: DEBUG('Update reservation failed for reservation_id with status U' ||l_old_upd_resv_rec.reservation_id, 'Process_LPN');
10315: END IF;
10316: RAISE fnd_api.g_exc_unexpected_error;
10317: END IF;
10318: --Bug#5262108.ends
10319:
10320: -- update processed quantity
10405: IF (l_debug = 1) THEN
10406: DEBUG('End item unit validation failed', 'Process_LPN');
10407: END IF;
10408:
10409: x_return_status := fnd_api.g_ret_sts_error;
10410: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
10411: fnd_msg_pub.ADD;
10412: RETURN;
10413: END IF;
10479: , p_trx_type_id => 53
10480: );
10481: END IF;
10482:
10483: IF l_return_status = fnd_api.g_ret_sts_error THEN
10484: IF (l_debug = 1) THEN
10485: DEBUG('Validate Status LPN Contents procedure failed with error status E ', 'Process_LPN');
10486: END IF;
10487:
10484: IF (l_debug = 1) THEN
10485: DEBUG('Validate Status LPN Contents procedure failed with error status E ', 'Process_LPN');
10486: END IF;
10487:
10488: x_return_status := fnd_api.g_ret_sts_error;
10489: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10490: fnd_msg_pub.ADD;
10491: RETURN;
10492: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10488: x_return_status := fnd_api.g_ret_sts_error;
10489: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10490: fnd_msg_pub.ADD;
10491: RETURN;
10492: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10493: IF (l_debug = 1) THEN
10494: DEBUG('Validate Status LPN Contents procedure failed with error status U ', 'Process_LPN');
10495: END IF;
10496:
10493: IF (l_debug = 1) THEN
10494: DEBUG('Validate Status LPN Contents procedure failed with error status U ', 'Process_LPN');
10495: END IF;
10496:
10497: x_return_status := fnd_api.g_ret_sts_error;
10498: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10499: fnd_msg_pub.ADD;
10500: RETURN;
10501: END IF;
10512: IF (l_debug = 1) THEN
10513: DEBUG('Unable to get transaction_temp_id', 'Process_LPN');
10514: END IF;
10515:
10516: x_return_status := fnd_api.g_ret_sts_error;
10517: RAISE fnd_api.g_exc_error;
10518: END;
10519: ELSE
10520: l_trx_temp_id := NULL;
10513: DEBUG('Unable to get transaction_temp_id', 'Process_LPN');
10514: END IF;
10515:
10516: x_return_status := fnd_api.g_ret_sts_error;
10517: RAISE fnd_api.g_exc_error;
10518: END;
10519: ELSE
10520: l_trx_temp_id := NULL;
10521: END IF;
10571: IF (l_debug = 1) THEN
10572: DEBUG('Unexpected error occured: ' || SQLERRM, 'Process_LPN');
10573: END IF;
10574:
10575: x_return_status := fnd_api.g_ret_sts_unexp_error;
10576: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
10577: fnd_msg_pub.ADD;
10578: END process_lpn;
10579:
10743: IF (l_debug = 1) THEN
10744: DEBUG('Line item not found in LPN', 'Process_Line');
10745: END IF;
10746:
10747: x_return_status := fnd_api.g_ret_sts_error;
10748: fnd_message.set_name('WMS', 'WMS_ITEM_NOT_AVAILABLE');
10749: fnd_msg_pub.ADD;
10750: RETURN;
10751: END IF;
10756: IF (l_debug = 1) THEN
10757: DEBUG('End item unit validation failed', 'Process_Line');
10758: END IF;
10759:
10760: x_return_status := fnd_api.g_ret_sts_error;
10761: fnd_message.set_name('WMS', 'WMS_PJM_VALIDATION_FAILED');
10762: fnd_msg_pub.ADD;
10763: RETURN;
10764: END IF;
10768: IF (l_debug = 1) THEN
10769: DEBUG('Checl del for direct ship failed', 'Process_Line');
10770: END IF;
10771:
10772: x_return_status := fnd_api.g_ret_sts_error;
10773: fnd_message.set_name('WMS', 'WMS_DEL_LINES_MIX');
10774: fnd_msg_pub.ADD;
10775: RETURN;
10776: END IF;
10783: , x_msg_count => l_msg_count
10784: , x_msg_data => l_msg_data
10785: );
10786:
10787: IF l_return_status = fnd_api.g_ret_sts_error THEN
10788: IF (l_debug = 1) THEN
10789: DEBUG('Check Holds Failed', 'Process_Line');
10790: END IF;
10791:
10788: IF (l_debug = 1) THEN
10789: DEBUG('Check Holds Failed', 'Process_Line');
10790: END IF;
10791:
10792: x_return_status := fnd_api.g_ret_sts_error;
10793: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10794: fnd_msg_pub.ADD;
10795: RETURN;
10796: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10792: x_return_status := fnd_api.g_ret_sts_error;
10793: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10794: fnd_msg_pub.ADD;
10795: RETURN;
10796: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10797: IF (l_debug = 1) THEN
10798: DEBUG('Check Holds Failed', 'Process_Line');
10799: END IF;
10800:
10797: IF (l_debug = 1) THEN
10798: DEBUG('Check Holds Failed', 'Process_Line');
10799: END IF;
10800:
10801: x_return_status := fnd_api.g_ret_sts_error;
10802: fnd_message.set_name('WMS', 'WMS_HOLD_APPLIED');
10803: fnd_msg_pub.ADD;
10804: RETURN;
10805: ELSE
10843: ELSE
10844: IF (l_debug = 1) THEN
10845: DEBUG('Error from inv_cache.set_item_rec','Process_Line');
10846: END IF;
10847: RAISE fnd_api.g_exc_unexpected_error;
10848: END IF;
10849:
10850: IF NVL(OE_DUAL_UOM_UTIL.get_fulfillment_base(p_order_line_id), 'P') <> g_fulfillment_base
10851: THEN
10854: DEBUG('Cannot mix fulfillment modes', 'Process_Line');
10855: END IF;
10856: fnd_message.set_name('WMS', 'WMS_LPN_FB_COMINGLE');
10857: fnd_msg_pub.ADD;
10858: RAISE fnd_api.g_exc_error;
10859: END IF;
10860:
10861: IF NOT g_matl_stat_checked THEN
10862: l_mtlstat_prev_unchk := TRUE;
10879: , p_trx_type_id => 53
10880: );
10881: END IF;
10882:
10883: IF l_return_status = fnd_api.g_ret_sts_error THEN
10884: IF (l_debug = 1) THEN
10885: DEBUG('Validate Status LPN Contents procedure failed with error status E ', 'Process_Line');
10886: END IF;
10887:
10884: IF (l_debug = 1) THEN
10885: DEBUG('Validate Status LPN Contents procedure failed with error status E ', 'Process_Line');
10886: END IF;
10887:
10888: x_return_status := fnd_api.g_ret_sts_error;
10889: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10890: fnd_msg_pub.ADD;
10891: RETURN;
10892: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10888: x_return_status := fnd_api.g_ret_sts_error;
10889: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10890: fnd_msg_pub.ADD;
10891: RETURN;
10892: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10893: IF (l_debug = 1) THEN
10894: DEBUG('Validate Status LPN Contents procedure failed with error status U ', 'Process_Line');
10895: END IF;
10896:
10893: IF (l_debug = 1) THEN
10894: DEBUG('Validate Status LPN Contents procedure failed with error status U ', 'Process_Line');
10895: END IF;
10896:
10897: x_return_status := fnd_api.g_ret_sts_error;
10898: fnd_message.set_name('WMS', 'WMS_INVALID_MAT_STATUS');
10899: fnd_msg_pub.ADD;
10900: RETURN;
10901: END IF;
10925: END IF;
10926:
10927: inv_reservation_pub.query_reservation(
10928: p_api_version_number => 1.0
10929: , p_init_msg_lst => fnd_api.g_false
10930: , x_return_status => l_return_status
10931: , x_msg_count => l_msg_count
10932: , x_msg_data => l_msg_data
10933: , p_query_input => l_qry_reservation_record
10930: , x_return_status => l_return_status
10931: , x_msg_count => l_msg_count
10932: , x_msg_data => l_msg_data
10933: , p_query_input => l_qry_reservation_record
10934: , p_lock_records => fnd_api.g_false
10935: , x_mtl_reservation_tbl => l_mtl_reservation_tab_temp
10936: , x_mtl_reservation_tbl_count => l_mtl_resv_tab_count_temp
10937: , x_error_code => l_error_code
10938: );
10936: , x_mtl_reservation_tbl_count => l_mtl_resv_tab_count_temp
10937: , x_error_code => l_error_code
10938: );
10939:
10940: IF l_return_status = fnd_api.g_ret_sts_error THEN
10941: IF (l_debug = 1) THEN
10942: DEBUG('Query reservation failed', 'Process_Line');
10943: END IF;
10944:
10941: IF (l_debug = 1) THEN
10942: DEBUG('Query reservation failed', 'Process_Line');
10943: END IF;
10944:
10945: RAISE fnd_api.g_exc_error;
10946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10947: IF (l_debug = 1) THEN
10948: DEBUG('Query reservation failed', 'Process_Line');
10949: END IF;
10942: DEBUG('Query reservation failed', 'Process_Line');
10943: END IF;
10944:
10945: RAISE fnd_api.g_exc_error;
10946: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10947: IF (l_debug = 1) THEN
10948: DEBUG('Query reservation failed', 'Process_Line');
10949: END IF;
10950:
10947: IF (l_debug = 1) THEN
10948: DEBUG('Query reservation failed', 'Process_Line');
10949: END IF;
10950:
10951: RAISE fnd_api.g_exc_unexpected_error;
10952: END IF;
10953:
10954: IF (l_debug = 1) THEN
10955: DEBUG('After call to query reservation', 'Process_Line');
11111: WHEN NO_DATA_FOUND THEN
11112: IF (l_debug = 1) THEN
11113: DEBUG('Exception getting l_grade_code ', 'Process_Line');
11114: END IF;
11115: RAISE fnd_api.g_exc_unexpected_error;
11116: END;
11117: END IF;
11118: /* bug 14211350 */
11119:
11130: END IF;
11131:
11132: inv_quantity_tree_pub.query_quantities(
11133: p_api_version_number => 1.0
11134: , p_init_msg_lst => fnd_api.g_false
11135: , x_return_status => l_return_status
11136: , x_msg_count => l_msg_count
11137: , x_msg_data => l_msg_data
11138: , p_organization_id => p_org_id
11164: , x_satr => l_satr
11165: , p_lpn_id => l_lpn_cont_rec.lpn_id
11166: );
11167:
11168: IF l_return_status = fnd_api.g_ret_sts_error THEN
11169: IF (l_debug = 1) THEN
11170: DEBUG( 'Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11171: || p_order_header_id
11172: || ' '
11174: , 'Process_Line'
11175: );
11176: END IF;
11177:
11178: RAISE fnd_api.g_exc_error;
11179: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11180: IF (l_debug = 1) THEN
11181: DEBUG( 'Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11182: || p_order_header_id
11175: );
11176: END IF;
11177:
11178: RAISE fnd_api.g_exc_error;
11179: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11180: IF (l_debug = 1) THEN
11181: DEBUG( 'Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11182: || p_order_header_id
11183: || ' '
11185: , 'Process_Line'
11186: );
11187: END IF;
11188:
11189: RAISE fnd_api.g_exc_unexpected_error;
11190: END IF;
11191:
11192: IF (l_debug = 1) THEN
11193: DEBUG('Query tree Return status is ' || l_return_status, 'Process_Line');
11269: IF(NVL(l_new_resv_rec.primary_reservation_quantity,0) <> NVL(l_resv_rec.primary_reservation_quantity,0)) THEN
11270: l_upd_resv_rec.primary_reservation_quantity := l_new_resv_rec.primary_reservation_quantity;
11271: inv_reservation_pub.update_reservation(
11272: p_api_version_number => 1.0
11273: , p_init_msg_lst => fnd_api.g_false
11274: , x_return_status => l_return_status
11275: , x_msg_count => l_msg_count
11276: , x_msg_data => l_msg_data
11277: , p_original_rsv_rec => l_old_upd_resv_rec
11277: , p_original_rsv_rec => l_old_upd_resv_rec
11278: , p_to_rsv_rec => l_upd_resv_rec
11279: , p_original_serial_number => l_upd_dummy_sn
11280: , p_to_serial_number => l_upd_dummy_sn
11281: , p_validation_flag => fnd_api.g_true
11282: , p_over_reservation_flag => 3
11283: );
11284: END IF;
11285: END IF;
11330: END IF;
11331:
11332: inv_reservation_pub.transfer_reservation(
11333: p_api_version_number => 1.0
11334: , p_init_msg_lst => fnd_api.g_true
11335: , x_return_status => l_return_status
11336: , x_msg_count => l_msg_count
11337: , x_msg_data => l_msg_data
11338: , p_is_transfer_supply => fnd_api.g_true
11334: , p_init_msg_lst => fnd_api.g_true
11335: , x_return_status => l_return_status
11336: , x_msg_count => l_msg_count
11337: , x_msg_data => l_msg_data
11338: , p_is_transfer_supply => fnd_api.g_true
11339: , p_original_rsv_rec => l_old_resv_rec
11340: , p_to_rsv_rec => l_new_resv_rec
11341: , p_original_serial_number => l_dummy_sn -- no serial contorl
11342: , p_to_serial_number => l_dummy_sn -- no serial control
11339: , p_original_rsv_rec => l_old_resv_rec
11340: , p_to_rsv_rec => l_new_resv_rec
11341: , p_original_serial_number => l_dummy_sn -- no serial contorl
11342: , p_to_serial_number => l_dummy_sn -- no serial control
11343: , p_validation_flag => fnd_api.g_true
11344: , x_to_reservation_id => l_new_rsv_id
11345: , p_over_reservation_flag => 3
11346: );
11347:
11344: , x_to_reservation_id => l_new_rsv_id
11345: , p_over_reservation_flag => 3
11346: );
11347:
11348: IF l_return_status = fnd_api.g_ret_sts_error THEN
11349: IF (l_debug = 1) THEN
11350: DEBUG('Unexpected error during transfer of Reservations, Line_id '
11351: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11352: END IF;
11350: DEBUG('Unexpected error during transfer of Reservations, Line_id '
11351: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11352: END IF;
11353:
11354: RAISE fnd_api.g_exc_error;
11355: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11356: IF (l_debug = 1) THEN
11357: DEBUG('Unexpected error during transfer of Reservations, Line_id '
11358: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11351: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11352: END IF;
11353:
11354: RAISE fnd_api.g_exc_error;
11355: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11356: IF (l_debug = 1) THEN
11357: DEBUG('Unexpected error during transfer of Reservations, Line_id '
11358: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11359: END IF;
11357: DEBUG('Unexpected error during transfer of Reservations, Line_id '
11358: || p_order_line_id || ' LPN_ID= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11359: END IF;
11360:
11361: RAISE fnd_api.g_exc_unexpected_error;
11362: END IF;
11363:
11364: IF (l_debug = 1) THEN
11365: DEBUG('Transfer reservation successful, reservation_id= ' || l_new_rsv_id, 'Process_Line');
11434: --Bug#5262108.Begin.
11435: --This is to handle overship case. Once the requested qty for the line is satisfied,
11436: --we will try to overship against the line.
11437: IF l_overship_case = 'Y' THEN
11438: l_return_status := fnd_api.g_ret_sts_success;
11439: WMS_DIRECT_SHIP_PVT.Get_qty_to_pick(
11440: p_order_header_id => p_order_header_id,
11441: p_order_line_id => p_order_line_id,
11442: p_org_id => p_org_id,
11443: x_return_status => l_return_status,
11444: x_prim_qty => l_qty_to_pick,
11445: x_sec_qty => l_sec_qty_to_pick);
11446:
11447: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11448: IF (l_debug = 1) THEN
11449: DEBUG('Get_qty_to_pick returned error status: ' || l_return_status, 'Process_Line');
11450: END IF;
11451: RAISE fnd_api.g_exc_unexpected_error;
11447: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11448: IF (l_debug = 1) THEN
11449: DEBUG('Get_qty_to_pick returned error status: ' || l_return_status, 'Process_Line');
11450: END IF;
11451: RAISE fnd_api.g_exc_unexpected_error;
11452: END IF;
11453:
11454:
11455: IF (l_debug = 1) THEN
11531: END IF;
11532:
11533: inv_quantity_tree_pub.query_quantities(
11534: p_api_version_number => 1.0
11535: , p_init_msg_lst => fnd_api.g_false
11536: , x_return_status => l_return_status
11537: , x_msg_count => l_msg_count
11538: , x_msg_data => l_msg_data
11539: , p_organization_id => p_org_id
11564: , x_satr => l_satr
11565: , p_lpn_id => l_lpn_cont_rec.lpn_id
11566: );
11567:
11568: IF l_return_status = fnd_api.g_ret_sts_error THEN
11569: IF (l_debug = 1) THEN
11570: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11571: || p_order_header_id || ', ' || p_order_line_id , 'Process_Line');
11572: END IF;
11570: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11571: || p_order_header_id || ', ' || p_order_line_id , 'Process_Line');
11572: END IF;
11573:
11574: RAISE fnd_api.g_exc_error;
11575: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11576: IF (l_debug = 1) THEN
11577: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11578: || p_order_header_id || ', ' || p_order_line_id, 'Process_Line');
11571: || p_order_header_id || ', ' || p_order_line_id , 'Process_Line');
11572: END IF;
11573:
11574: RAISE fnd_api.g_exc_error;
11575: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11576: IF (l_debug = 1) THEN
11577: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11578: || p_order_header_id || ', ' || p_order_line_id, 'Process_Line');
11579: END IF;
11577: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities for combination of '
11578: || p_order_header_id || ', ' || p_order_line_id, 'Process_Line');
11579: END IF;
11580:
11581: RAISE fnd_api.g_exc_unexpected_error;
11582: END IF;
11583:
11584: IF (l_debug = 1) THEN
11585: DEBUG('Query tree Return status is ' || l_return_status, 'Process_Line');
11762: , x_quantity_reserved => l_quantity_reserved_tmp
11763: , x_secondary_quantity_reserved => l_sec_qty_reserved_tmp
11764: , x_reservation_id => l_reservation_id
11765: , p_api_version_number => 1.0
11766: , p_init_msg_lst => fnd_api.g_false
11767: , p_rsv_rec => l_reservation_record
11768: , p_partial_reservation_flag => fnd_api.g_true
11769: , p_force_reservation_flag => fnd_api.g_true
11770: , p_serial_number => l_dummy_sn
11764: , x_reservation_id => l_reservation_id
11765: , p_api_version_number => 1.0
11766: , p_init_msg_lst => fnd_api.g_false
11767: , p_rsv_rec => l_reservation_record
11768: , p_partial_reservation_flag => fnd_api.g_true
11769: , p_force_reservation_flag => fnd_api.g_true
11770: , p_serial_number => l_dummy_sn
11771: , p_validation_flag => fnd_api.g_true
11772: , p_over_reservation_flag => 3
11765: , p_api_version_number => 1.0
11766: , p_init_msg_lst => fnd_api.g_false
11767: , p_rsv_rec => l_reservation_record
11768: , p_partial_reservation_flag => fnd_api.g_true
11769: , p_force_reservation_flag => fnd_api.g_true
11770: , p_serial_number => l_dummy_sn
11771: , p_validation_flag => fnd_api.g_true
11772: , p_over_reservation_flag => 3
11773: );
11767: , p_rsv_rec => l_reservation_record
11768: , p_partial_reservation_flag => fnd_api.g_true
11769: , p_force_reservation_flag => fnd_api.g_true
11770: , p_serial_number => l_dummy_sn
11771: , p_validation_flag => fnd_api.g_true
11772: , p_over_reservation_flag => 3
11773: );
11774:
11775: IF l_return_status = fnd_api.g_ret_sts_error THEN
11771: , p_validation_flag => fnd_api.g_true
11772: , p_over_reservation_flag => 3
11773: );
11774:
11775: IF l_return_status = fnd_api.g_ret_sts_error THEN
11776: IF (l_debug = 1) THEN
11777: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11778: END IF;
11779:
11776: IF (l_debug = 1) THEN
11777: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11778: END IF;
11779:
11780: RAISE fnd_api.g_exc_error;
11781: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11782: IF (l_debug = 1) THEN
11783: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11784: END IF;
11777: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11778: END IF;
11779:
11780: RAISE fnd_api.g_exc_error;
11781: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11782: IF (l_debug = 1) THEN
11783: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11784: END IF;
11785:
11782: IF (l_debug = 1) THEN
11783: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Process_Line');
11784: END IF;
11785:
11786: RAISE fnd_api.g_exc_unexpected_error;
11787: END IF;
11788:
11789: IF (l_debug = 1) THEN
11790: DEBUG('Create reservations is successful ' || l_reservation_id, 'Process_Line');
11822: END IF;
11823:
11824: inv_quantity_tree_pub.update_quantities(
11825: p_api_version_number => 1.0
11826: , p_init_msg_lst => fnd_api.g_false
11827: , x_return_status => l_return_status
11828: , x_msg_count => l_msg_count
11829: , x_msg_data => l_msg_data
11830: , p_organization_id => p_org_id
11926: WHEN NO_DATA_FOUND THEN
11927: IF (l_debug = 1) THEN
11928: DEBUG('Error getting transaction_temp_id', 'Process_Line');
11929: END IF;
11930: x_return_status := fnd_api.g_ret_sts_error;
11931: RAISE fnd_api.g_exc_error;
11932: END;
11933: ELSE
11934: l_trx_temp_id := NULL;
11927: IF (l_debug = 1) THEN
11928: DEBUG('Error getting transaction_temp_id', 'Process_Line');
11929: END IF;
11930: x_return_status := fnd_api.g_ret_sts_error;
11931: RAISE fnd_api.g_exc_error;
11932: END;
11933: ELSE
11934: l_trx_temp_id := NULL;
11935: END IF;
11973: );
11974: END; --} update / insert
11975: END IF; --} l_processed_quantity > 0
11976:
11977: x_return_status := fnd_api.g_ret_sts_success;
11978:
11979: EXCEPTION
11980: WHEN OTHERS THEN
11981: IF (l_debug = 1) THEN
11993: IF l_mtlstat_prev_unchk THEN
11994: g_matl_stat_checked := FALSE;
11995: END IF;
11996:
11997: x_return_status := fnd_api.g_ret_sts_unexp_error;
11998: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LINE');
11999: fnd_msg_pub.ADD;
12000: END process_line;
12001:
12053: IF (l_debug = 1) THEN
12054: DEBUG('Record not found in wdd for line_id=' || p_line_id, 'Validate_Del_Grp_Rules');
12055: END IF;
12056:
12057: RAISE fnd_api.g_exc_error;
12058: END IF;
12059:
12060: IF p_line_processed = 0 THEN
12061: -- loading first line no need to do comparision
12102: IF (l_debug = 1) THEN
12103: DEBUG('Exception occured', 'Validate_Del_Grp_Rules');
12104: END IF;
12105:
12106: RAISE fnd_api.g_exc_error;
12107: END validate_del_grp_rules;
12108:
12109: /*
12110: This method checks that there should be no record for this lpn in wstt (delivery)
12168: , x_msg_data => l_msg_data
12169: , p_delivery_id => l_del_cur_rec.delivery_id
12170: );
12171:
12172: IF l_return_status = fnd_api.g_ret_sts_error THEN
12173: IF (l_debug = 1) THEN
12174: DEBUG('l_return_status from chk_del_for_direct_ship: ' || l_return_status,
12175: 'Validate_Del_For_DS');
12176: END IF;
12176: END IF;
12177: l_result := FALSE;
12178:
12179: RAISE l_chk_del_exc;
12180: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12181: IF (l_debug = 1) THEN
12182: DEBUG('l_return_status from chk_del_for_direct_ship: ' || l_return_status,
12183: 'Validate_Del_For_DS');
12184: END IF;
12219: IF (l_debug = 1) THEN
12220: DEBUG('Exception occured', 'Validate_Del_For_DS');
12221: END IF;
12222:
12223: RAISE fnd_api.g_exc_error;
12224: END validate_del_for_ds;
12225:
12226: /*
12227: This procedure perform the following processing for a lpn.
12311: END IF;
12312:
12313: inv_reservation_pub.query_reservation(
12314: p_api_version_number => 1.0
12315: , p_init_msg_lst => fnd_api.g_false
12316: , x_return_status => l_return_status
12317: , x_msg_count => l_msg_count
12318: , x_msg_data => l_msg_data
12319: , p_query_input => l_qry_reservation_record
12316: , x_return_status => l_return_status
12317: , x_msg_count => l_msg_count
12318: , x_msg_data => l_msg_data
12319: , p_query_input => l_qry_reservation_record
12320: , p_lock_records => fnd_api.g_false
12321: , x_mtl_reservation_tbl => l_mtl_reservation_tab
12322: , x_mtl_reservation_tbl_count => l_mtl_reservation_tab_count
12323: , x_error_code => l_error_code
12324: );
12322: , x_mtl_reservation_tbl_count => l_mtl_reservation_tab_count
12323: , x_error_code => l_error_code
12324: );
12325:
12326: IF l_return_status = fnd_api.g_ret_sts_error THEN
12327: IF (l_debug = 1) THEN
12328: DEBUG('Query reservation failed', 'Load_LPN');
12329: END IF;
12330:
12327: IF (l_debug = 1) THEN
12328: DEBUG('Query reservation failed', 'Load_LPN');
12329: END IF;
12330:
12331: RAISE fnd_api.g_exc_error;
12332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12333: IF (l_debug = 1) THEN
12334: DEBUG('Query reservation failed', 'Load_LPN');
12335: END IF;
12328: DEBUG('Query reservation failed', 'Load_LPN');
12329: END IF;
12330:
12331: RAISE fnd_api.g_exc_error;
12332: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12333: IF (l_debug = 1) THEN
12334: DEBUG('Query reservation failed', 'Load_LPN');
12335: END IF;
12336:
12333: IF (l_debug = 1) THEN
12334: DEBUG('Query reservation failed', 'Load_LPN');
12335: END IF;
12336:
12337: RAISE fnd_api.g_exc_unexpected_error;
12338: END IF;
12339:
12340: IF (l_debug = 1) THEN
12341: DEBUG('After call to query reservation', 'Load_LPN');
12352: , p_reservation_id => l_mtl_reservation_tab(l_rec).reservation_id
12353: , p_staged_flag => 'Y'
12354: );
12355:
12356: IF l_return_status = fnd_api.g_ret_sts_error THEN
12357: IF (l_debug = 1) THEN
12358: DEBUG('Update_staged_flag failed with error', 'Load_LPN');
12359: END IF;
12360:
12357: IF (l_debug = 1) THEN
12358: DEBUG('Update_staged_flag failed with error', 'Load_LPN');
12359: END IF;
12360:
12361: RAISE fnd_api.g_exc_error;
12362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12363: IF (l_debug = 1) THEN
12364: DEBUG('Update_staged_flag failed with exception', 'Load_LPN');
12365: END IF;
12358: DEBUG('Update_staged_flag failed with error', 'Load_LPN');
12359: END IF;
12360:
12361: RAISE fnd_api.g_exc_error;
12362: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12363: IF (l_debug = 1) THEN
12364: DEBUG('Update_staged_flag failed with exception', 'Load_LPN');
12365: END IF;
12366:
12363: IF (l_debug = 1) THEN
12364: DEBUG('Update_staged_flag failed with exception', 'Load_LPN');
12365: END IF;
12366:
12367: RAISE fnd_api.g_exc_unexpected_error;
12368: END IF;
12369:
12370: IF (l_debug = 1) THEN
12371: DEBUG(
12399: , p_organization_id => p_org_id
12400: , p_dock_door_id => p_dock_door_id
12401: );
12402:
12403: IF l_return_status = fnd_api.g_ret_sts_error THEN
12404: x_msg_data := l_msg_data;
12405: IF (l_debug = 1) THEN
12406: DEBUG('Stage LPN API failed with status E ', 'Load_LPN');
12407: END IF;
12405: IF (l_debug = 1) THEN
12406: DEBUG('Stage LPN API failed with status E ', 'Load_LPN');
12407: END IF;
12408:
12409: RAISE fnd_api.g_exc_error;
12410: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12411: x_msg_data := l_msg_data;
12412: IF (l_debug = 1) THEN
12413: DEBUG('Stage LPN API failed with status U', 'Load_LPN');
12406: DEBUG('Stage LPN API failed with status E ', 'Load_LPN');
12407: END IF;
12408:
12409: RAISE fnd_api.g_exc_error;
12410: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12411: x_msg_data := l_msg_data;
12412: IF (l_debug = 1) THEN
12413: DEBUG('Stage LPN API failed with status U', 'Load_LPN');
12414: END IF;
12412: IF (l_debug = 1) THEN
12413: DEBUG('Stage LPN API failed with status U', 'Load_LPN');
12414: END IF;
12415:
12416: RAISE fnd_api.g_exc_unexpected_error;
12417: END IF;
12418:
12419: IF (l_debug = 1) THEN
12420: DEBUG('Staging LPNs completed', 'Load_LPN');
12427:
12428: wms_direct_ship_pvt.update_freight_cost(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data
12429: , p_lpn_id => p_lpn_id);
12430:
12431: IF l_return_status = fnd_api.g_ret_sts_error THEN
12432: IF (l_debug = 1) THEN
12433: DEBUG('Update Freight Cost API failed with status E ', 'Load_LPN');
12434: END IF;
12435:
12432: IF (l_debug = 1) THEN
12433: DEBUG('Update Freight Cost API failed with status E ', 'Load_LPN');
12434: END IF;
12435:
12436: RAISE fnd_api.g_exc_error;
12437: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12438: IF (l_debug = 1) THEN
12439: DEBUG('Update Freight Cost failed with status U', 'Load_LPN');
12440: END IF;
12433: DEBUG('Update Freight Cost API failed with status E ', 'Load_LPN');
12434: END IF;
12435:
12436: RAISE fnd_api.g_exc_error;
12437: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12438: IF (l_debug = 1) THEN
12439: DEBUG('Update Freight Cost failed with status U', 'Load_LPN');
12440: END IF;
12441:
12438: IF (l_debug = 1) THEN
12439: DEBUG('Update Freight Cost failed with status U', 'Load_LPN');
12440: END IF;
12441:
12442: RAISE fnd_api.g_exc_unexpected_error;
12443: END IF;
12444:
12445: IF (l_debug = 1) THEN
12446: DEBUG('Update freight cost completed', 'Load_LPN');
12449:
12450: -- All processing complete for this LPN, so reset fulfillment base
12451: g_fulfillment_base := 'P';
12452:
12453: x_return_status := fnd_api.g_ret_sts_success;
12454: EXCEPTION
12455: WHEN OTHERS THEN
12456: IF (l_debug = 1) THEN
12457: DEBUG('Exception loading lpn', 'Load_LPN');
12456: IF (l_debug = 1) THEN
12457: DEBUG('Exception loading lpn', 'Load_LPN');
12458: END IF;
12459:
12460: x_return_status := fnd_api.g_ret_sts_unexp_error;
12461: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
12462: fnd_msg_pub.ADD;
12463: END load_lpn;
12464:
12576: DEBUG('p_dock_door_id=' || p_dock_door_id, 'Perform_Overship_Distribution');
12577: DEBUG('lpn_content_record count=' || g_lpn_contents_tab.COUNT, 'Perform_Overship_Distribution');
12578: END IF;
12579:
12580: x_return_status := fnd_api.g_ret_sts_success;
12581:
12582: -- clear cache
12583: l_lpn_cont_qty_used.DELETE;
12584: l_lpn_sec_qty_used.DELETE;
12608: ELSE
12609: IF (l_debug = 1) THEN
12610: DEBUG('Error from inv_cache.set_item_rec', 'Perform_Overship_Distribution');
12611: END IF;
12612: RAISE fnd_api.g_exc_unexpected_error;
12613: END IF;
12614:
12615: l_qry_reservation_record.lpn_id := l_lpn_cont_rec.lpn_id;
12616: l_qry_reservation_record.inventory_item_id := l_lpn_cont_rec.inventory_item_id;
12623: END IF;
12624:
12625: inv_reservation_pub.query_reservation(
12626: p_api_version_number => 1.0
12627: , p_init_msg_lst => fnd_api.g_false
12628: , x_return_status => l_return_status
12629: , x_msg_count => l_msg_count
12630: , x_msg_data => l_msg_data
12631: , p_query_input => l_qry_reservation_record
12628: , x_return_status => l_return_status
12629: , x_msg_count => l_msg_count
12630: , x_msg_data => l_msg_data
12631: , p_query_input => l_qry_reservation_record
12632: , p_lock_records => fnd_api.g_false
12633: , x_mtl_reservation_tbl => l_mtl_reservation_tab
12634: , x_mtl_reservation_tbl_count => l_mtl_resv_tab_count
12635: , x_error_code => l_error_code
12636: );
12634: , x_mtl_reservation_tbl_count => l_mtl_resv_tab_count
12635: , x_error_code => l_error_code
12636: );
12637:
12638: IF l_return_status = fnd_api.g_ret_sts_error THEN
12639: IF (l_debug = 1) THEN
12640: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12641: END IF;
12642:
12639: IF (l_debug = 1) THEN
12640: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12641: END IF;
12642:
12643: RAISE fnd_api.g_exc_error;
12644: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12645: IF (l_debug = 1) THEN
12646: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12647: END IF;
12640: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12641: END IF;
12642:
12643: RAISE fnd_api.g_exc_error;
12644: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12645: IF (l_debug = 1) THEN
12646: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12647: END IF;
12648:
12645: IF (l_debug = 1) THEN
12646: DEBUG('Query reservation failed', 'Perform_Overship_Distribution');
12647: END IF;
12648:
12649: RAISE fnd_api.g_exc_unexpected_error;
12650: END IF;
12651:
12652: IF (l_debug = 1) THEN
12653: DEBUG('After call to query reservation', 'Perform_Overship_Distribution');
12665: DEBUG('Non-Sales Order reservation exists, error out', 'Perform_Overship_Distribution');
12666: END IF;
12667: fnd_message.set_name('WMS', 'WMS_LINE_NOT_BOOKED');
12668: fnd_msg_pub.ADD;
12669: RAISE fnd_api.g_exc_error;
12670: END IF;
12671:
12672: l_order_line_id := l_mtl_reservation_tab(l_index_r).demand_source_line_id;
12673: -- get oe_order_header_id from sales order header id
12708: IF (l_debug = 1) THEN
12709: DEBUG('No data found for line=' || l_order_line_id, 'Perform_Overship_Distribution');
12710: END IF;
12711:
12712: RAISE fnd_api.g_exc_error;
12713: END;
12714:
12715: IF (l_debug = 1) THEN
12716: DEBUG('Before call to WSH_DETAILS_VALIDATIONS.Check_Quantity_To_Pick', 'Perform_Overship_Distribution');
12739: END IF;
12740:
12741: -- End bug 5262108
12742:
12743: IF l_return_status = fnd_api.g_ret_sts_error THEN
12744: IF (l_debug = 1) THEN
12745: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12746: END IF;
12747:
12744: IF (l_debug = 1) THEN
12745: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12746: END IF;
12747:
12748: RAISE fnd_api.g_exc_error;
12749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12750: IF (l_debug = 1) THEN
12751: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12752: END IF;
12745: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12746: END IF;
12747:
12748: RAISE fnd_api.g_exc_error;
12749: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12750: IF (l_debug = 1) THEN
12751: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12752: END IF;
12753:
12750: IF (l_debug = 1) THEN
12751: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
12752: END IF;
12753:
12754: RAISE fnd_api.g_exc_unexpected_error;
12755: END IF;
12756:
12757: -- commented for 5262108 l_max_shippable_quantity := l_minmaxoutrectype.max_remaining_quantity; --Removed trunc bug3994915
12758:
12782: IF (l_debug = 1) THEN
12783: DEBUG('Exception getting total reserved quantity for line = ' || l_order_line_id, 'Perform_Overship_Distribution');
12784: END IF;
12785:
12786: RAISE fnd_api.g_exc_unexpected_error;
12787: END;
12788:
12789: inv_quantity_tree_pub.clear_quantity_cache;
12790:
12802: END IF;
12803:
12804: inv_quantity_tree_pub.query_quantities(
12805: p_api_version_number => 1.0
12806: , p_init_msg_lst => fnd_api.g_false
12807: , x_return_status => l_return_status
12808: , x_msg_count => l_msg_count
12809: , x_msg_data => l_msg_data
12810: , p_organization_id => p_org_id
12835: , x_satr => l_satr
12836: , p_lpn_id => l_lpn_cont_rec.lpn_id
12837: );
12838:
12839: IF l_return_status = fnd_api.g_ret_sts_error THEN
12840: IF (l_debug = 1) THEN
12841: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12842: END IF;
12843:
12840: IF (l_debug = 1) THEN
12841: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12842: END IF;
12843:
12844: RAISE fnd_api.g_exc_error;
12845: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12846: IF (l_debug = 1) THEN
12847: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12848: END IF;
12841: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12842: END IF;
12843:
12844: RAISE fnd_api.g_exc_error;
12845: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12846: IF (l_debug = 1) THEN
12847: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12848: END IF;
12849:
12846: IF (l_debug = 1) THEN
12847: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
12848: END IF;
12849:
12850: RAISE fnd_api.g_exc_unexpected_error;
12851: END IF;
12852:
12853: IF (l_debug = 1) THEN
12854: DEBUG('Query tree Return status is ' || l_return_status, 'Perform_Overship_Distribution');
12991: END IF;
12992:
12993: inv_reservation_pub.update_reservation(
12994: p_api_version_number => 1.0
12995: , p_init_msg_lst => fnd_api.g_false
12996: , x_return_status => l_return_status
12997: , x_msg_count => l_msg_count
12998: , x_msg_data => l_msg_data
12999: , p_original_rsv_rec => l_old_upd_resv_rec
12999: , p_original_rsv_rec => l_old_upd_resv_rec
13000: , p_to_rsv_rec => l_upd_resv_rec
13001: , p_original_serial_number => l_upd_dummy_sn
13002: , p_to_serial_number => l_upd_dummy_sn
13003: , p_validation_flag => fnd_api.g_true
13004: , p_over_reservation_flag => 3
13005: );
13006:
13007: IF l_return_status = fnd_api.g_ret_sts_error THEN
13003: , p_validation_flag => fnd_api.g_true
13004: , p_over_reservation_flag => 3
13005: );
13006:
13007: IF l_return_status = fnd_api.g_ret_sts_error THEN
13008: IF (l_debug = 1) THEN
13009: DEBUG('Update reservation failed ', 'Perform_Overship_Distribution');
13010: END IF;
13011:
13008: IF (l_debug = 1) THEN
13009: DEBUG('Update reservation failed ', 'Perform_Overship_Distribution');
13010: END IF;
13011:
13012: RAISE fnd_api.g_exc_error;
13013: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13014: IF (l_debug = 1) THEN
13015: DEBUG('Update reservation failed', 'Perform_Overship_Distribution');
13016: END IF;
13009: DEBUG('Update reservation failed ', 'Perform_Overship_Distribution');
13010: END IF;
13011:
13012: RAISE fnd_api.g_exc_error;
13013: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13014: IF (l_debug = 1) THEN
13015: DEBUG('Update reservation failed', 'Perform_Overship_Distribution');
13016: END IF;
13017:
13014: IF (l_debug = 1) THEN
13015: DEBUG('Update reservation failed', 'Perform_Overship_Distribution');
13016: END IF;
13017:
13018: RAISE fnd_api.g_exc_unexpected_error;
13019: END IF;
13020:
13021: IF (l_debug = 1) THEN
13022: DEBUG('Update reservation is successful ', 'Perform_Overship_Distribution');
13066: IF (l_debug = 1) THEN
13067: DEBUG('Exception updating WDS', 'Perform_Overship_Distribution');
13068: END IF;
13069:
13070: RAISE fnd_api.g_exc_unexpected_error;
13071: END;
13072: END IF; --} l_qty_overship >0
13073:
13074: -- if all quantity consumed exit to lpn_content loop
13136: IF (l_debug = 1) THEN
13137: DEBUG('Exception getting total reserved quantity for line = ' || l_order_line_id, 'Perform_Overship_Distribution');
13138: END IF;
13139:
13140: RAISE fnd_api.g_exc_unexpected_error;
13141: END;
13142:
13143: -- Begin Bug 4908571
13144: WSH_DETAILS_VALIDATIONS.Check_Quantity_To_Pick(
13162: END IF;
13163:
13164: -- End bug 4908571
13165:
13166: IF l_return_status = fnd_api.g_ret_sts_error THEN
13167: IF (l_debug = 1) THEN
13168: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13169: END IF;
13170:
13167: IF (l_debug = 1) THEN
13168: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13169: END IF;
13170:
13171: RAISE fnd_api.g_exc_error;
13172: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13173: IF (l_debug = 1) THEN
13174: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13175: END IF;
13168: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13169: END IF;
13170:
13171: RAISE fnd_api.g_exc_error;
13172: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13173: IF (l_debug = 1) THEN
13174: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13175: END IF;
13176:
13173: IF (l_debug = 1) THEN
13174: DEBUG('Tolerance API failed', 'Perform_Overship_Distribution');
13175: END IF;
13176:
13177: RAISE fnd_api.g_exc_unexpected_error;
13178: END IF;
13179:
13180: inv_quantity_tree_pub.clear_quantity_cache;
13181:
13193: END IF;
13194:
13195: inv_quantity_tree_pub.query_quantities(
13196: p_api_version_number => 1.0
13197: , p_init_msg_lst => fnd_api.g_false
13198: , x_return_status => l_return_status
13199: , x_msg_count => l_msg_count
13200: , x_msg_data => l_msg_data
13201: , p_organization_id => p_org_id
13226: , x_satr => l_satr
13227: , p_lpn_id => l_lpn_cont_rec.lpn_id
13228: );
13229:
13230: IF l_return_status = fnd_api.g_ret_sts_error THEN
13231: IF (l_debug = 1) THEN
13232: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13233: END IF;
13234:
13231: IF (l_debug = 1) THEN
13232: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13233: END IF;
13234:
13235: RAISE fnd_api.g_exc_error;
13236: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13237: IF (l_debug = 1) THEN
13238: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13239: END IF;
13232: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13233: END IF;
13234:
13235: RAISE fnd_api.g_exc_error;
13236: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13237: IF (l_debug = 1) THEN
13238: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13239: END IF;
13240:
13237: IF (l_debug = 1) THEN
13238: DEBUG('Validation failed for inv_quantity_tree_pub.query_quantities', 'Perform_Overship_Distribution');
13239: END IF;
13240:
13241: RAISE fnd_api.g_exc_unexpected_error;
13242: END IF;
13243:
13244: IF (l_debug = 1) THEN
13245: DEBUG('Query tree Return status is ' || l_return_status, 'Perform_Overship_Distribution');
13402: , x_quantity_reserved => l_quantity_reserved_tmp
13403: , x_secondary_quantity_reserved => l_sec_qty_reserved_tmp
13404: , x_reservation_id => l_reservation_id
13405: , p_api_version_number => 1.0
13406: , p_init_msg_lst => fnd_api.g_false
13407: , p_rsv_rec => l_reservation_record
13408: , p_partial_reservation_flag => fnd_api.g_true
13409: , p_force_reservation_flag => fnd_api.g_true
13410: , p_serial_number => l_dummy_sn
13404: , x_reservation_id => l_reservation_id
13405: , p_api_version_number => 1.0
13406: , p_init_msg_lst => fnd_api.g_false
13407: , p_rsv_rec => l_reservation_record
13408: , p_partial_reservation_flag => fnd_api.g_true
13409: , p_force_reservation_flag => fnd_api.g_true
13410: , p_serial_number => l_dummy_sn
13411: , p_validation_flag => fnd_api.g_true
13412: , p_over_reservation_flag => 3
13405: , p_api_version_number => 1.0
13406: , p_init_msg_lst => fnd_api.g_false
13407: , p_rsv_rec => l_reservation_record
13408: , p_partial_reservation_flag => fnd_api.g_true
13409: , p_force_reservation_flag => fnd_api.g_true
13410: , p_serial_number => l_dummy_sn
13411: , p_validation_flag => fnd_api.g_true
13412: , p_over_reservation_flag => 3
13413: );
13407: , p_rsv_rec => l_reservation_record
13408: , p_partial_reservation_flag => fnd_api.g_true
13409: , p_force_reservation_flag => fnd_api.g_true
13410: , p_serial_number => l_dummy_sn
13411: , p_validation_flag => fnd_api.g_true
13412: , p_over_reservation_flag => 3
13413: );
13414:
13415: IF l_return_status = fnd_api.g_ret_sts_error THEN
13411: , p_validation_flag => fnd_api.g_true
13412: , p_over_reservation_flag => 3
13413: );
13414:
13415: IF l_return_status = fnd_api.g_ret_sts_error THEN
13416: IF (l_debug = 1) THEN
13417: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Perform_Overship_Distribution');
13418: END IF;
13419:
13416: IF (l_debug = 1) THEN
13417: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Perform_Overship_Distribution');
13418: END IF;
13419:
13420: RAISE fnd_api.g_exc_error;
13421: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13422: IF (l_debug = 1) THEN
13423: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id
13424: , 'Perform_Overship_Distribution');
13417: DEBUG('Create reservation failed for lpn_id= ' || l_lpn_cont_rec.lpn_id, 'Perform_Overship_Distribution');
13418: END IF;
13419:
13420: RAISE fnd_api.g_exc_error;
13421: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13422: IF (l_debug = 1) THEN
13423: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id
13424: , 'Perform_Overship_Distribution');
13425: END IF;
13423: DEBUG('Unexpected error during create of Reservations lpn_id= ' || l_lpn_cont_rec.lpn_id
13424: , 'Perform_Overship_Distribution');
13425: END IF;
13426:
13427: RAISE fnd_api.g_exc_unexpected_error;
13428: END IF;
13429:
13430: IF (l_debug = 1) THEN
13431: DEBUG('Create reservations is successful ' || l_reservation_id, 'Perform_Overship_Distribution');
13476: IF (l_debug = 1) THEN
13477: DEBUG('Exception updating WDS', 'Perform_Overship_Distribution');
13478: END IF;
13479:
13480: RAISE fnd_api.g_exc_unexpected_error;
13481: END;
13482: END IF; --} l_qty_overship > 0
13483: END IF; --} l_transactable_qty>0
13484:
13506: IF (l_debug = 1) THEN
13507: DEBUG('Lpn cannot be loaded, unused quantity found', 'Perform_Overship_Distribution');
13508: END IF;
13509:
13510: x_return_status := fnd_api.g_ret_sts_error;
13511:
13512: -- bug#2830138
13513: -- revert back the changes to lpn_contents from backup
13514: IF l_lpn_cont_qty_used.COUNT > 0 THEN
13543: DEBUG('l_index= ' || l_index, 'Perform_Overship_Distribution');
13544: END IF;
13545: END LOOP; --} g_lpn_contents_tab
13546:
13547: x_return_status := fnd_api.g_ret_sts_success;
13548:
13549: EXCEPTION
13550: WHEN OTHERS THEN
13551: IF (l_debug = 1) THEN
13551: IF (l_debug = 1) THEN
13552: DEBUG('Exception occured', 'Perform_Overship_Distribution');
13553: END IF;
13554:
13555: x_return_status := fnd_api.g_ret_sts_unexp_error;
13556: fnd_message.set_name('WMS', 'WMS_ERROR_LOADING_LPN');
13557: fnd_msg_pub.ADD;
13558: END perform_overship_distribution;
13559:
13579: DEBUG('header id:' || p_order_header_id, 'Check_holds');
13580: DEBUG('line id:' || p_order_line_id, 'Check_Holds');
13581: END IF;
13582:
13583: x_return_status := fnd_api.g_ret_sts_success;
13584:
13585: SELECT delivery_detail_id
13586: INTO l_delivery_detail_id
13587: FROM wsh_delivery_details_ob_grp_v
13595:
13596: wsh_details_validations.check_credit_holds(p_detail_id => l_delivery_detail_id, p_activity_type => 'PICK', p_source_code => 'OE'
13597: , x_return_status => l_return_status);
13598:
13599: IF l_return_status = fnd_api.g_ret_sts_error THEN
13600: IF (l_debug = 1) THEN
13601: DEBUG('Credit Check holds API failed with status E ', 'Check_holds');
13602: END IF;
13603:
13600: IF (l_debug = 1) THEN
13601: DEBUG('Credit Check holds API failed with status E ', 'Check_holds');
13602: END IF;
13603:
13604: RAISE fnd_api.g_exc_error;
13605: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13606: IF (l_debug = 1) THEN
13607: DEBUG('Check Credit Holds API failed with status U', 'Check_holds');
13608: END IF;
13601: DEBUG('Credit Check holds API failed with status E ', 'Check_holds');
13602: END IF;
13603:
13604: RAISE fnd_api.g_exc_error;
13605: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13606: IF (l_debug = 1) THEN
13607: DEBUG('Check Credit Holds API failed with status U', 'Check_holds');
13608: END IF;
13609:
13606: IF (l_debug = 1) THEN
13607: DEBUG('Check Credit Holds API failed with status U', 'Check_holds');
13608: END IF;
13609:
13610: RAISE fnd_api.g_exc_unexpected_error;
13611: END IF;
13612: EXCEPTION
13613: WHEN fnd_api.g_exc_error THEN
13614: x_return_status := fnd_api.g_ret_sts_error;
13609:
13610: RAISE fnd_api.g_exc_unexpected_error;
13611: END IF;
13612: EXCEPTION
13613: WHEN fnd_api.g_exc_error THEN
13614: x_return_status := fnd_api.g_ret_sts_error;
13615:
13616: IF (l_debug = 1) THEN
13617: DEBUG('fnd_api.g_exe_error ' || SQLERRM, 'Check_holds');
13610: RAISE fnd_api.g_exc_unexpected_error;
13611: END IF;
13612: EXCEPTION
13613: WHEN fnd_api.g_exc_error THEN
13614: x_return_status := fnd_api.g_ret_sts_error;
13615:
13616: IF (l_debug = 1) THEN
13617: DEBUG('fnd_api.g_exe_error ' || SQLERRM, 'Check_holds');
13618: END IF;
13613: WHEN fnd_api.g_exc_error THEN
13614: x_return_status := fnd_api.g_ret_sts_error;
13615:
13616: IF (l_debug = 1) THEN
13617: DEBUG('fnd_api.g_exe_error ' || SQLERRM, 'Check_holds');
13618: END IF;
13619:
13620: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13621: WHEN fnd_api.g_exc_unexpected_error THEN
13617: DEBUG('fnd_api.g_exe_error ' || SQLERRM, 'Check_holds');
13618: END IF;
13619:
13620: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13621: WHEN fnd_api.g_exc_unexpected_error THEN
13622: x_return_status := fnd_api.g_ret_sts_unexp_error;
13623:
13624: IF (l_debug = 1) THEN
13625: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
13618: END IF;
13619:
13620: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13621: WHEN fnd_api.g_exc_unexpected_error THEN
13622: x_return_status := fnd_api.g_ret_sts_unexp_error;
13623:
13624: IF (l_debug = 1) THEN
13625: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
13626: END IF;
13621: WHEN fnd_api.g_exc_unexpected_error THEN
13622: x_return_status := fnd_api.g_ret_sts_unexp_error;
13623:
13624: IF (l_debug = 1) THEN
13625: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
13626: END IF;
13627:
13628: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13629: WHEN OTHERS THEN
13626: END IF;
13627:
13628: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13629: WHEN OTHERS THEN
13630: x_return_status := fnd_api.g_ret_sts_unexp_error;
13631:
13632: IF (l_debug = 1) THEN
13633: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
13634: END IF;
13629: WHEN OTHERS THEN
13630: x_return_status := fnd_api.g_ret_sts_unexp_error;
13631:
13632: IF (l_debug = 1) THEN
13633: DEBUG('FND_API.G_UNEXPECTED_ERR' || SQLERRM, 'check_holds');
13634: END IF;
13635:
13636: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13637: END check_holds;
13703: IF c_wstt_closed_del%ISOPEN THEN
13704: CLOSE c_wstt_closed_del;
13705: END IF;
13706:
13707: RAISE fnd_api.g_exc_unexpected_error;
13708: END cleanup_orphan_rec;
13709:
13710: /*
13711: This function finds out if there is any record in lpn contents having
13845: END IF;
13846: IF (l_debug = 1) THEN
13847: DEBUG('Value of x_ct_wt_enabled is = ' || x_ct_wt_enabled, 'is_ct_wt_enabled');
13848: END IF;
13849: x_return_status := FND_API.G_RET_STS_SUCCESS;
13850: EXCEPTION
13851: WHEN NO_DATA_FOUND THEN
13852: IF (l_debug = 1) THEN
13853: DEBUG('No data found for LPN i.e no dual uom or pricing sec item in LPN', 'is_ct_wt_enabled');