[Home] [Help]
1: PACKAGE BODY WSH_DELIVERY_DETAILS_INV as
2: /* $Header: WSHDDICB.pls 120.10 2008/01/14 14:54:52 skanduku ship $ */
3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
74: ** and to qualify the package INV_VALIDATE constants T and F.
75: ** The code is simplified, as we set only p_item.inventory_item_id.
76: **/
77: --
78: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_INV';
79: --
80:
81: -- HW OPMCONV New procedure to cach item info
82:
235:
236: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
237: THEN
238: FND_MSG_PUB.Add_Exc_Msg
239: ( 'WSH_DELIVERY_DETAILS_INV' -- Shipping package
240: , 'Inventory_Item'
241: );
242: END IF;
243:
271: */
272:
273: PROCEDURE Get_Org_Param_information (
274: p_organization_id IN NUMBER
275: , x_mtl_org_param_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec
276: , x_return_status OUT NOCOPY VARCHAR2
277: )IS
278:
279:
339:
340: EXCEPTION
341:
342: WHEN others THEN
343: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
344: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
345:
346: IF l_debug_on THEN
347: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
373:
374: PROCEDURE Get_Sec_Inv_information (
375: p_organization_id IN NUMBER
376: , p_subinventory_name IN VARCHAR2
377: , x_mtl_sec_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_sec_inv_rec
378: , x_return_status OUT NOCOPY VARCHAR2
379: )IS
380:
381:
439:
440: EXCEPTION
441:
442: WHEN others THEN
443: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
444: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
445:
446: IF l_debug_on THEN
447: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
465: p_organization_id - organization_id to which inventory_item
466: belongs.
467: p_subinventory - subinventory to which the item belongs
468: x_inv_controls_rec - output record of
469: WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec type containing
470: all inv control flags for the item and organization.
471: x_return_status - return status of the API.
472: DESCRIPTION : This procedure takes a delivery detail id and optionally
473: inventory item id and organization id and determines whether
484: p_delivery_detail_id IN NUMBER DEFAULT NULL,
485: p_inventory_item_id IN NUMBER,
486: p_organization_id IN NUMBER,
487: p_subinventory IN VARCHAR2,
488: x_inv_controls_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec,
489: x_return_status OUT NOCOPY VARCHAR2) IS
490:
491: -- OPM change 1711019
492:
761: NVL(l_txn_enabled_flag, 'N') = 'Y') THEN
762: --{
763: IF l_debug_on THEN
764: wsh_debug_sv.log(l_module_name, 'Txn Enabled Flag', l_txn_enabled_flag);
765: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
766: END IF;
767: --
768: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
769: l_org_id,
764: wsh_debug_sv.log(l_module_name, 'Txn Enabled Flag', l_txn_enabled_flag);
765: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
766: END IF;
767: --
768: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
769: l_org_id,
770: l_inv_item_id,
771: l_dft_subinv,
772: x_return_status);
784: --
785: IF (nvl(l_subinv, l_dft_subinv) IS NOT NULL) THEN
786: --{
787: IF l_debug_on THEN
788: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
789: END IF;
790: --
791: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
792: --
787: IF l_debug_on THEN
788: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
789: END IF;
790: --
791: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
792: --
793: IF l_debug_on THEN
794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
795: END IF;
790: --
791: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
792: --
793: IF l_debug_on THEN
794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
795: END IF;
796: --
797: l_sub_loc_code := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
798: nvl(l_subinv,l_dft_subinv),
793: IF l_debug_on THEN
794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
795: END IF;
796: --
797: l_sub_loc_code := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
798: nvl(l_subinv,l_dft_subinv),
799: l_org_id);
800:
801: --
799: l_org_id);
800:
801: --
802: IF l_debug_on THEN
803: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
804: END IF;
805: --
806: l_loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
807: l_org_id,
802: IF l_debug_on THEN
803: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
804: END IF;
805: --
806: l_loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
807: l_org_id,
808: l_restrict_loc_code,
809: l_org_loc_code,
810: l_sub_loc_code,
852: IF Get_Inv_Controls%ISOPEN THEN
853: CLOSE Get_Inv_Controls;
854: END IF;
855:
856: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
857: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
858:
859: --
860: -- Debug Statements
868:
869: /*
870: -----------------------------------------------------------------------------
871: FUNCTION : Details_Required
872: PARAMETERS : p_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
873: that contains information about all the inventory control
874: values on the form for the delivery detail id.
875: p_set_default - boolean variable that indicates whether
876: to retrieve the default values for controls if the
874: values on the form for the delivery detail id.
875: p_set_default - boolean variable that indicates whether
876: to retrieve the default values for controls if the
877: attributes are missing.
878: x_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
879: containing default values in the case where set_default is TRUE
880: DESCRIPTION : This function takes a WSH_DELIVERY_DETAILS_INV.line_inv_info
881: type with inventory control attributes for the delivery detail
882: id from the form and determines whether additional inventory
876: to retrieve the default values for controls if the
877: attributes are missing.
878: x_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
879: containing default values in the case where set_default is TRUE
880: DESCRIPTION : This function takes a WSH_DELIVERY_DETAILS_INV.line_inv_info
881: type with inventory control attributes for the delivery detail
882: id from the form and determines whether additional inventory
883: control information needs to be entered or not. If additional
884: control information is needed then the functions returns a
891: */
892:
893:
894: PROCEDURE Details_Required (
895: p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
896: p_set_default IN BOOLEAN DEFAULT FALSE,
897: x_line_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.line_inv_info,
898: x_details_required OUT NOCOPY BOOLEAN,
899: x_return_status OUT NOCOPY VARCHAR2) IS
893:
894: PROCEDURE Details_Required (
895: p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
896: p_set_default IN BOOLEAN DEFAULT FALSE,
897: x_line_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.line_inv_info,
898: x_details_required OUT NOCOPY BOOLEAN,
899: x_return_status OUT NOCOPY VARCHAR2) IS
900:
901: dft_subinv VARCHAR2(12);
907: item_loc_ctl NUMBER;
908: loc_ctl_code NUMBER;
909: default_loc VARCHAR2(2000);
910:
911: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
912:
913: l_ser_qty NUMBER;
914: l_container_flag VARCHAR2(1) := 'N';
915:
965: --
966: -- Debug Statements
967: --
968: IF l_debug_on THEN
969: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.FETCH_INV_CONTROLS',WSH_DEBUG_SV.C_PROC_LEVEL);
970: END IF;
971: --
972: WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls (
973: p_line_inv_rec.delivery_detail_id,
968: IF l_debug_on THEN
969: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.FETCH_INV_CONTROLS',WSH_DEBUG_SV.C_PROC_LEVEL);
970: END IF;
971: --
972: WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls (
973: p_line_inv_rec.delivery_detail_id,
974: p_line_inv_rec.inventory_item_id,
975: p_line_inv_rec.organization_id,
976: p_line_inv_rec.subinventory,
1076: --
1077: -- Debug Statements
1078: --
1079: IF l_debug_on THEN
1080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1081: END IF;
1082: --
1083: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1084: p_line_inv_rec.organization_id,
1079: IF l_debug_on THEN
1080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1081: END IF;
1082: --
1083: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1084: p_line_inv_rec.organization_id,
1085: p_line_inv_rec.inventory_item_id,
1086: dft_subinv,
1087: x_return_status);
1120: --
1121: -- Debug Statements
1122: --
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1125: END IF;
1126: --
1127: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (p_line_inv_rec.organization_id);
1128:
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1125: END IF;
1126: --
1127: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (p_line_inv_rec.organization_id);
1128:
1129: --
1130: -- Debug Statements
1131: --
1129: --
1130: -- Debug Statements
1131: --
1132: IF l_debug_on THEN
1133: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1134: END IF;
1135: --
1136: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1137: nvl(subinv,dft_subinv),
1132: IF l_debug_on THEN
1133: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1134: END IF;
1135: --
1136: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1137: nvl(subinv,dft_subinv),
1138: p_line_inv_rec.organization_id);
1139:
1140: item_loc_ctl := l_inv_controls_rec.location_control_code;
1143: --
1144: -- Debug Statements
1145: --
1146: IF l_debug_on THEN
1147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1148: END IF;
1149: --
1150: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1151: p_line_inv_rec.organization_id,
1146: IF l_debug_on THEN
1147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1148: END IF;
1149: --
1150: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1151: p_line_inv_rec.organization_id,
1152: l_inv_controls_rec.restrict_loc,
1153: org_loc_ctl,
1154: sub_loc_ctl,
1164: --
1165: -- Debug Statements
1166: --
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
1169: END IF;
1170: --
1171: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
1172: p_line_inv_rec.organization_id,
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
1169: END IF;
1170: --
1171: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
1172: p_line_inv_rec.organization_id,
1173: p_line_inv_rec.inventory_item_id,
1174: NVL(subinv, dft_subinv),
1175: loc_restricted_flag);
1204: --
1205: -- Debug Statements
1206: --
1207: IF l_debug_on THEN
1208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_SERIAL_QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1209: END IF;
1210: --
1211: l_ser_qty := WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty (
1212: p_line_inv_rec.organization_id,
1207: IF l_debug_on THEN
1208: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_SERIAL_QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1209: END IF;
1210: --
1211: l_ser_qty := WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty (
1212: p_line_inv_rec.organization_id,
1213: p_line_inv_rec.delivery_detail_id);
1214:
1215: IF nvl(l_ser_qty,-99) = -99 THEN
1266: --
1267: EXCEPTION
1268:
1269: WHEN Others THEN
1270: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1271: x_details_required := FALSE;
1272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1273:
1274: --
1299: p_organization_id IN NUMBER ) RETURN NUMBER IS
1300:
1301:
1302: l_sub_loc_ctl NUMBER;
1303: l_mtl_sec_inv_rec WSH_DELIVERY_DETAILS_INV.mtl_sec_inv_rec;
1304: l_return_status VARCHAR2(1);
1305: --
1306: l_debug_on BOOLEAN;
1307: --
1369:
1370: FUNCTION Get_Org_Loc (
1371: p_organization_id IN NUMBER) RETURN NUMBER IS
1372:
1373: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
1374: l_org_loc_ctl NUMBER;
1375: l_return_status VARCHAR2(1);
1376: --
1377: l_debug_on BOOLEAN;
1519: --
1520: EXCEPTION
1521:
1522: WHEN Others THEN
1523: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1525:
1526: --
1527: -- Debug Statements
1657: prespecified CONSTANT NUMBER := 2;
1658: dynamic CONSTANT NUMBER := 3;
1659:
1660: l_neg_inv_code NUMBER;
1661: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
1662: l_return_status VARCHAR2(1);
1663: --
1664: l_debug_on BOOLEAN;
1665: --
1858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1859: END IF;
1860:
1861: WHEN others THEN
1862: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code');
1863:
1864: --
1865: -- Debug Statements
1866: --
2123: --
2124: EXCEPTION
2125:
2126: WHEN OTHERS THEN
2127: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2129:
2130: --
2131: -- Debug Statements
2347: --
2348: EXCEPTION
2349:
2350: WHEN OTHERS THEN
2351: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2352: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2353:
2354: --
2355: -- Debug Statements
2442: --
2443: -- Debug Statements
2444: --
2445: IF l_debug_on THEN
2446: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2447: END IF;
2448: --
2449: l_result := wsh_delivery_details_inv.inventory_item(
2450: p_item => g_item,
2445: IF l_debug_on THEN
2446: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2447: END IF;
2448: --
2449: l_result := wsh_delivery_details_inv.inventory_item(
2450: p_item => g_item,
2451: p_org => g_org);
2452: IF (l_result <> INV_VALIDATE.T) THEN
2453: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2517: EXCEPTION
2518:
2519: WHEN others THEN
2520: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2521: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2522:
2523: --
2524: -- Debug Statements
2525: --
2600: --
2601: -- Debug Statements
2602: --
2603: IF l_debug_on THEN
2604: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2605: END IF;
2606: --
2607: l_result := wsh_delivery_details_inv.inventory_item(
2608: p_item => g_item,
2603: IF l_debug_on THEN
2604: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2605: END IF;
2606: --
2607: l_result := wsh_delivery_details_inv.inventory_item(
2608: p_item => g_item,
2609: p_org => g_org);
2610: IF (l_result <> INV_VALIDATE.T) THEN
2611: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2642: --
2643: EXCEPTION
2644: WHEN others THEN
2645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2646: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2647:
2648: --
2649: -- Debug Statements
2650: --
2738: --
2739: -- Debug Statements
2740: --
2741: IF l_debug_on THEN
2742: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2743: END IF;
2744: --
2745: l_result := wsh_delivery_details_inv.inventory_item(
2746: p_item => g_item,
2741: IF l_debug_on THEN
2742: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2743: END IF;
2744: --
2745: l_result := wsh_delivery_details_inv.inventory_item(
2746: p_item => g_item,
2747: p_org => g_org);
2748: IF (l_result <> INV_VALIDATE.T) THEN
2749: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2832: EXCEPTION
2833:
2834: WHEN others THEN
2835: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2836: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
2837:
2838: --
2839: -- Debug Statements
2840: --
2936: --
2937: -- Debug Statements
2938: --
2939: IF l_debug_on THEN
2940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2941: END IF;
2942: --
2943: l_result := wsh_delivery_details_inv.inventory_item(
2944: p_item => g_item,
2939: IF l_debug_on THEN
2940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2941: END IF;
2942: --
2943: l_result := wsh_delivery_details_inv.inventory_item(
2944: p_item => g_item,
2945: p_org => g_org);
2946: IF (l_result <> INV_VALIDATE.T) THEN
2947: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3071: --
3072: EXCEPTION
3073: WHEN others THEN
3074: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3075: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3076:
3077: --
3078: -- Debug Statements
3079: --
3178: --
3179: -- Debug Statements
3180: --
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3183: END IF;
3184: --
3185: l_result := wsh_delivery_details_inv.inventory_item(
3186: p_item => g_item,
3181: IF l_debug_on THEN
3182: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3183: END IF;
3184: --
3185: l_result := wsh_delivery_details_inv.inventory_item(
3186: p_item => g_item,
3187: p_org => g_org);
3188: IF (l_result <> INV_VALIDATE.T) THEN
3189: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3370: EXCEPTION
3371:
3372: WHEN others THEN
3373: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3374: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3375:
3376: --
3377: -- Debug Statements
3378: --
3514: --
3515: EXCEPTION
3516:
3517: WHEN OTHERS THEN
3518: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3519: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3520:
3521: --
3522: -- Debug Statements
3739:
3740: EXCEPTION
3741:
3742: WHEN OTHERS THEN
3743: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty');
3744: l_ser_qty := -99;
3745: --
3746: --
3747: -- Debug Statements
3765:
3766: l_type MTL_SYSTEM_ITEMS.RESERVABLE_TYPE%TYPE;
3767: l_trx_flag MTL_SYSTEM_ITEMS.MTL_TRANSACTIONS_ENABLED_FLAG%TYPE;
3768: l_flag VARCHAR2(1) := 'Y';
3769: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
3770: --
3771: l_debug_on BOOLEAN;
3772: l_return_status VARCHAR2(1);
3773: --
3855: --
3856: return 'Y';
3857:
3858: WHEN OTHERS THEN
3859: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.get_reservable_flag');
3860: --
3861: -- Debug Statements
3862: --
3863: IF l_debug_on THEN
3902:
3903: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3904: l_reservable_type NUMBER;
3905: l_mtl_txns_enabled_flag VARCHAR2(1);
3906: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
3907: l_debug_on BOOLEAN;
3908: --
3909: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'LINE_RESERVED';
3910: --
4000: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4001: END IF;
4002:
4003: WHEN OTHERS THEN
4004: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4005: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4006: --
4007: -- Debug Statements
4008: --
4047: trx_action_id NUMBER;
4048: trx_source_type VARCHAR2(1);
4049: l_to_number VARCHAR2(100);
4050: l_return NUMBER;
4051: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
4052: WSH_INVALID_SER_NUM EXCEPTION;
4053:
4054: --
4055: l_debug_on BOOLEAN;
4214: IF c_header_info%ISOPEN THEN
4215: close c_header_info;
4216: END IF;
4217: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4218: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial');
4219:
4220: --
4221: -- Debug Statements
4222: --
4334: END IF;
4335: g_item.inventory_item_id := p_inventory_item_id;
4336:
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
4339: END IF;
4340: l_result := wsh_delivery_details_inv.inventory_item(
4341: p_item => g_item,
4342: p_org => g_org);
4336:
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
4339: END IF;
4340: l_result := wsh_delivery_details_inv.inventory_item(
4341: p_item => g_item,
4342: p_org => g_org);
4343:
4344: IF(l_debug_on) THEN
4562: END IF;
4563:
4564: WHEN others THEN
4565: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4566: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4567: IF l_debug_on THEN
4568: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: END IF;
4603: l_trx_action_id NUMBER;
4604: l_trx_source_type VARCHAR2(1);
4605: l_to_number VARCHAR2(100);
4606: l_return NUMBER;
4607: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
4608: --
4609: l_debug_on BOOLEAN;
4610: --
4611: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_DYNAMIC_SERIAL_RANGE';
4736: IF c_header_info%ISOPEN THEN
4737: close c_header_info;
4738: END IF;
4739: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4740: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
4741:
4742: IF l_debug_on THEN
4743: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4752: -- defaulted in a wms organization and, if possible, defaults it.
4753: -- If the catch weight is required and cannot be defaulted,
4754: -- raises an error
4755:
4756: PROCEDURE Check_Default_Catch_Weights(p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
4757: x_return_status OUT NOCOPY VARCHAR2) IS
4758:
4759: l_msg_count NUMBER;
4760: l_msg_data VARCHAR2(20000);
4827: EXCEPTION
4828:
4829: WHEN others THEN
4830: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4831: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
4832:
4833: IF l_debug_on THEN
4834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4856:
4857: PROCEDURE Get_item_information (
4858: p_organization_id IN NUMBER
4859: , p_inventory_item_id IN NUMBER
4860: , x_mtl_system_items_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec
4861: , x_return_status OUT NOCOPY VARCHAR2
4862: )IS
4863:
4864:
4999:
5000: EXCEPTION
5001:
5002: WHEN others THEN
5003: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5004: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5005:
5006: IF l_debug_on THEN
5007: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5099: EXCEPTION
5100: --
5101: WHEN OTHERS THEN
5102: --
5103: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5104: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5105: --
5106: IF l_debug_on THEN
5107: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5239: EXCEPTION
5240:
5241: WHEN OTHERS THEN
5242: --
5243: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5244: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5245: --
5246: IF c_order_line_info%isopen THEN
5247: CLOSE c_order_line_info;
5259:
5260: END get_trx_type_id;
5261:
5262:
5263: END WSH_DELIVERY_DETAILS_INV;
5264: