[Home] [Help]
79: p_api_version ,
80: l_api_name ,
81: G_PKG_NAME )
82: THEN
83: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
84: FND_MSG_PUB.ADD;
85: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
86: END IF;
87: -- Initialize message list if p_init_msg_list is set to TRUE.
98: l_lpn.lpn_id := p_lpn_id;
99: l_lpn.license_plate_number := NULL;
100: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
101: IF (l_result = INV_Validate.F) THEN
102: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
103: FND_MSG_PUB.ADD;
104: RAISE FND_API.G_EXC_ERROR;
105: END IF;
106:
109: /* Check WMS_LICENSE_PLATE_NUMBERS table for any item stored within the LPN */
110: OPEN c_lpn;
111: FETCH c_lpn INTO l_lpn_exist;
112: IF c_lpn%FOUND THEN
113: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NON_EMPTY_LPN');
114: FND_MSG_PUB.ADD;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117: CLOSE c_lpn;
119: /* Check WMS_LPN_CONTENTS table for any item(s) stored within the LPN */
120: OPEN c_lpn_contents;
121: FETCH c_lpn_contents INTO l_lpn_contents_exist;
122: IF c_lpn_contents%FOUND THEN
123: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NON_EMPTY_LPN');
124: FND_MSG_PUB.ADD;
125: RAISE FND_API.G_EXC_ERROR;
126: END IF;
127: CLOSE c_lpn_contents;
129: /* Check MTL_SERIAL_NUMBERS table for any serialized item(s) stored within the LPN */
130: OPEN c_lpn_serial_contents;
131: FETCH c_lpn_serial_contents INTO l_lpn_serial_contents_exist;
132: IF c_lpn_serial_contents%FOUND THEN
133: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NON_EMPTY_LPN');
134: FND_MSG_PUB.ADD;
135: RAISE FND_API.G_EXC_ERROR;
136: END IF;
137: CLOSE c_lpn_serial_contents;
270: p_api_version ,
271: l_api_name ,
272: G_PKG_NAME )
273: THEN
274: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
275: FND_MSG_PUB.ADD;
276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
277: END IF;
278: -- Initialize message list if p_init_msg_list is set to TRUE.
289: l_lpn.lpn_id := p_lpn_id;
290: l_lpn.license_plate_number := NULL;
291: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
292: IF (l_result = INV_Validate.F) THEN
293: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
294: FND_MSG_PUB.ADD;
295: RAISE FND_API.G_EXC_ERROR;
296: END IF;
297:
296: END IF;
297:
298: /* Validate Explosion Level */
299: IF (p_explosion_level < 0) THEN
300: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_EXP_LVL');
301: FND_MSG_PUB.ADD;
302: RAISE FND_API.G_EXC_ERROR;
303: END IF;
304: /* End of input validation */
525: p_api_version ,
526: l_api_name ,
527: G_PKG_NAME )
528: THEN
529: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
530: FND_MSG_PUB.ADD;
531: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
532: END IF;
533: -- Initialize message list if p_init_msg_list is set to TRUE.
544: l_lpn_source.lpn_id := p_lpn_id_source;
545: l_lpn_source.license_plate_number := NULL;
546: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn_source);
547: IF (l_result = INV_Validate.F) THEN
548: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
549: FND_MSG_PUB.ADD;
550: RAISE FND_API.G_EXC_ERROR;
551: END IF;
552:
554: l_lpn_dest.lpn_id := p_lpn_id_dest;
555: l_lpn_dest.license_plate_number := NULL;
556: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn_dest);
557: IF (l_result = INV_Validate.F) THEN
558: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
559: FND_MSG_PUB.ADD;
560: RAISE FND_API.G_EXC_ERROR;
561: END IF;
562: /* End of input validation */
681: p_api_version ,
682: l_api_name ,
683: G_PKG_NAME )
684: THEN
685: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
686: FND_MSG_PUB.ADD;
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689: -- Initialize message list if p_init_msg_list is set to TRUE.
699: /* Validate Organization ID */
700: l_org.organization_id := p_organization_id;
701: l_result := INV_Validate.Organization(l_org);
702: IF (l_result = INV_Validate.F) THEN
703: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
704: FND_MSG_PUB.ADD;
705: RAISE FND_API.G_EXC_ERROR;
706: END IF;
707:
708: /* Validate Source item */
709: l_source_item.inventory_item_id := p_source_item_id;
710: l_result := INV_Validate.inventory_item(l_source_item, l_org);
711: IF (l_result = INV_Validate.F) THEN
712: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ITEM');
713: FND_MSG_PUB.ADD;
714: RAISE FND_API.G_EXC_ERROR;
715: END IF;
716:
715: END IF;
716:
717: /* Validate Source Quantity */
718: IF ((p_source_qty IS NULL) OR (p_source_qty <= 0)) THEN
719: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_QTY');
720: FND_MSG_PUB.ADD;
721: RAISE FND_API.G_EXC_ERROR;
722: END IF;
723:
723:
724: /* Validate Source UOM */
725: l_result := INV_Validate.Uom(p_source_qty_uom, l_org, l_source_item);
726: IF (l_result = INV_Validate.F) THEN
727: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_SRC_UOM');
728: FND_MSG_PUB.ADD;
729: RAISE FND_API.G_EXC_ERROR;
730: END IF;
731:
731:
732: /* Validate Quantity Per Container */
733: IF (p_qty_per_cont IS NOT NULL) THEN
734: IF (p_qty_per_cont <= 0) THEN
735: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_CONT');
736: FND_MSG_PUB.ADD;
737: RAISE FND_API.G_EXC_ERROR;
738: END IF;
739: END IF;
741: /* Validate Quantity Per Container UOM */
742: IF (p_qty_per_cont IS NOT NULL) THEN
743: l_result := INV_Validate.Uom(p_qty_per_cont_uom, l_org, l_source_item);
744: IF (l_result = INV_Validate.F) THEN
745: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVLD_QTY_PER_UOM');
746: FND_MSG_PUB.ADD;
747: RAISE FND_API.G_EXC_ERROR;
748: END IF;
749: END IF;
752: IF (p_dest_cont_item_id IS NOT NULL) THEN
753: l_dest_cont_item.inventory_item_id := p_dest_cont_item_id;
754: l_result := INV_Validate.inventory_item(l_dest_cont_item, l_org);
755: IF (l_result = INV_Validate.F) THEN
756: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
757: FND_MSG_PUB.ADD;
758: RAISE FND_API.G_EXC_ERROR;
759: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
760: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
756: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
757: FND_MSG_PUB.ADD;
758: RAISE FND_API.G_EXC_ERROR;
759: ELSIF (l_dest_cont_item.container_item_flag = 'N') THEN
760: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_NOT_A_CONT');
761: FND_MSG_PUB.ADD;
762: RAISE FND_API.G_EXC_ERROR;
763: END IF;
764: END IF;
775: IF ((l_source_item.unit_weight IS NULL) OR
776: (l_source_item.weight_uom_code IS NULL) OR
777: (l_source_item.unit_volume IS NULL) OR
778: (l_source_item.volume_uom_code IS NULL)) THEN
779: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
780: FND_MSG_PUB.ADD;
781: RAISE FND_API.G_EXC_ERROR;
782: END IF;
783:
787: l_source_item.volume_uom_code,
788: l_dest_cont_item.volume_uom_code,
789: NULL, NULL);
790: IF (l_temp_value = -99999) THEN
791: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
792: FND_MSG_PUB.ADD;
793: RAISE FND_API.G_EXC_ERROR;
794: END IF;
795:
798: -- equal to the destination container item's internal volume
799: IF (l_temp_value <= l_dest_cont_item.internal_volume) THEN
800: l_max_load_quantity := FLOOR(l_dest_cont_item.internal_volume/l_temp_value);
801: ELSE
802: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
803: FND_MSG_PUB.ADD;
804: RAISE FND_API.G_EXC_ERROR;
805: END IF;
806: END IF;
810: l_source_item.weight_uom_code,
811: l_dest_cont_item.weight_uom_code,
812: NULL, NULL);
813: IF (l_temp_value = -99999) THEN
814: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
815: FND_MSG_PUB.ADD;
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
818:
826: l_max_load_quantity := FLOOR (l_dest_cont_item.maximum_load_weight /
827: l_temp_value);
828: END IF;
829: ELSE
830: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_ITEM_TOO_LARGE');
831: FND_MSG_PUB.ADD;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: END IF;
842: l_source_item.primary_uom_code,
843: p_source_qty_uom,
844: NULL, NULL);
845: IF (l_max_load_quantity = -99999) THEN
846: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
847: FND_MSG_PUB.ADD;
848: RAISE FND_API.G_EXC_ERROR;
849: END IF;
850: END IF;
856: p_qty_per_cont_uom,
857: p_source_qty_uom,
858: NULL, NULL);
859: IF (l_qty_per_cont = -99999) THEN
860: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
861: FND_MSG_PUB.ADD;
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
862: RAISE FND_API.G_EXC_ERROR;
863: END IF;
864:
865: IF (l_qty_per_cont > l_max_load_quantity) THEN
866: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_OVERPACKED_OPERATION');
867: FND_MSG_PUB.ADD;
868: RAISE FND_API.G_EXC_ERROR;
869: ELSE
870: p_qty_required := CEIL(p_source_qty/l_qty_per_cont);
873: p_qty_required := CEIL(p_source_qty/l_max_load_quantity);
874: ELSE
875: -- If the destination container item contains no internal volume or maximum
876: -- load weight restriction values, assume that it has infinite capacity
877: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
878: -- FND_MESSAGE.SHOW;
879: p_qty_required := 1;
880: END IF;
881:
874: ELSE
875: -- If the destination container item contains no internal volume or maximum
876: -- load weight restriction values, assume that it has infinite capacity
877: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_RESTRICTIONS_FND');
878: -- FND_MESSAGE.SHOW;
879: p_qty_required := 1;
880: END IF;
881:
882: ELSE /* No container item was given */
887: /* Get the item information for the current container item being considered */
888: l_cont_item.inventory_item_id := v_container_item.container_item_id;
889: l_result := INV_Validate.inventory_item(l_cont_item, l_org);
890: IF (l_result = INV_Validate.F) THEN
891: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONT_ITEM');
892: FND_MSG_PUB.ADD;
893: RAISE FND_API.G_EXC_ERROR;
894: END IF;
895:
897: l_temp_load_quantity := inv_convert.inv_um_convert
898: (l_source_item.inventory_item_id, 6, v_container_item.max_load_quantity,
899: l_source_item.primary_uom_code, p_source_qty_uom, NULL, NULL);
900: IF (l_temp_load_quantity = -99999) THEN
901: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_CONVERSION');
902: FND_MSG_PUB.ADD;
903: RAISE FND_API.G_EXC_ERROR;
904: END IF;
905:
930: END LOOP;
931: /* No containers were found that can store the source item */
932: IF (l_curr_min_container = 0) THEN
933: p_qty_required := 0;
934: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NO_CONTAINER_FOUND');
935: FND_MSG_PUB.ADD;
936: RAISE FND_API.G_EXC_ERROR;
937: ELSE
938: /* Valid container found. Store this information in the output parameters */
1037: p_api_version ,
1038: l_api_name ,
1039: G_PKG_NAME )
1040: THEN
1041: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1042: FND_MSG_PUB.ADD;
1043: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1044: END IF;
1045: -- Initialize message list if p_init_msg_list is set to TRUE.
1053: /* Validate all inputs */
1054:
1055: /* Validate that enough info has been passed in */
1056: IF ((p_lpn_id IS NULL) AND (p_inventory_item_id IS NULL)) THEN
1057: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_NOT_ENOUGH_INFO');
1058: FND_MSG_PUB.ADD;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061:
1064: l_lpn.lpn_id := p_lpn_id;
1065: l_lpn.license_plate_number := NULL;
1066: l_result := WMS_CONTAINER_PUB.Validate_LPN(l_lpn);
1067: IF (l_result = INV_Validate.F) THEN
1068: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_LPN');
1069: FND_MSG_PUB.ADD;
1070: RAISE FND_API.G_EXC_ERROR;
1071: END IF;
1072: END IF;
1294: p_api_version ,
1295: l_api_name ,
1296: G_PKG_NAME )
1297: THEN
1298: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1299: FND_MSG_PUB.ADD;
1300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1301: END IF;
1302: -- Initialize message list if p_init_msg_list is set to TRUE.
1312: /* Validate Organization ID */
1313: l_org.organization_id := p_organization_id;
1314: l_result := INV_Validate.Organization(l_org);
1315: IF (l_result = INV_Validate.F) THEN
1316: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INVALID_ORG');
1317: FND_MSG_PUB.ADD;
1318: RAISE FND_API.G_EXC_ERROR;
1319: END IF;
1320: /* End of input validation */
1807: , p_api_version_number
1808: , l_api_name
1809: , G_PKG_NAME
1810: ) THEN
1811: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
1812: FND_MSG_PUB.ADD;
1813: RAISE FND_API.G_EXC_ERROR;
1814: END IF;
1815:
1869: IF drop_lpn_rec.lpn_id = p_pick_lpn_id THEN
1870: IF (l_debug = 1) THEN
1871: mdebug ('Drop LPN cannot be the picked LPN.');
1872: END IF;
1873: FND_MESSAGE.SET_NAME('WMS', 'WMS_PICK_LPN_INVLD_DROP_LPN');
1874: FND_MSG_PUB.ADD;
1875: RAISE FND_API.G_EXC_ERROR;
1876: END IF;
1877:
1926: IF NOT l_drop_lpn_has_picked_inv THEN
1927: IF (l_debug = 1) THEN
1928: mdebug('Drop LPN does not have child LPNs with picked inventory.');
1929: END IF;
1930: FND_MESSAGE.SET_NAME('WMS', 'WMS_DROP_LPN_NOT_PICKED');
1931: FND_MSG_PUB.ADD;
1932: RAISE FND_API.G_EXC_ERROR;
1933: END IF;
1934: END IF;
1966: IF l_drop_lpn_delivery_id <> l_pick_lpn_delivery_id THEN
1967: IF (l_debug = 1) THEN
1968: mdebug('Picked and drop LPNs are on different deliveries.');
1969: END IF;
1970: FND_MESSAGE.SET_NAME('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
1971: FND_MSG_PUB.ADD;
1972: RAISE FND_API.G_EXC_ERROR;
1973: ELSE
1974: --
2005: IF l_drop_lpn_delivery_id <> l_pick_lpn_delivery_id THEN
2006: IF (l_debug = 1) THEN
2007: mdebug('LPNs are on diff deliveries.');
2008: END IF;
2009: FND_MESSAGE.SET_NAME('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
2010: FND_MSG_PUB.ADD;
2011: RAISE FND_API.G_EXC_ERROR;
2012: ELSE
2013: --
2126: , p_api_version_number
2127: , l_api_name
2128: , G_PKG_NAME
2129: ) THEN
2130: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
2131: FND_MSG_PUB.ADD;
2132: RAISE FND_API.G_EXC_ERROR;
2133: END IF;
2134: