[Home] [Help]
1: PACKAGE BODY WSH_DELIVERY_DETAILS_INV as
2: /* $Header: WSHDDICB.pls 120.21.12020000.2 2012/07/04 10:11:40 suppal ship $ */
3:
4: g_org INV_VALIDATE.Org;
5: g_item INV_VALIDATE.Item;
78: ** and to qualify the package INV_VALIDATE constants T and F.
79: ** The code is simplified, as we set only p_item.inventory_item_id.
80: **/
81: --
82: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_INV';
83: --
84:
85: -- HW OPMCONV New procedure to cach item info
86:
334:
335: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
336: THEN
337: FND_MSG_PUB.Add_Exc_Msg
338: ( 'WSH_DELIVERY_DETAILS_INV' -- Shipping package
339: , 'Inventory_Item'
340: );
341: END IF;
342:
370: */
371:
372: PROCEDURE Get_Org_Param_information (
373: p_organization_id IN NUMBER
374: , x_mtl_org_param_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec
375: , x_return_status OUT NOCOPY VARCHAR2
376: )IS
377:
378:
438:
439: EXCEPTION
440:
441: WHEN others THEN
442: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Org_Param_information');
443: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
444:
445: IF l_debug_on THEN
446: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
472:
473: PROCEDURE Get_Sec_Inv_information (
474: p_organization_id IN NUMBER
475: , p_subinventory_name IN VARCHAR2
476: , x_mtl_sec_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_sec_inv_rec
477: , x_return_status OUT NOCOPY VARCHAR2
478: )IS
479:
480:
538:
539: EXCEPTION
540:
541: WHEN others THEN
542: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV.Get_Sec_Inv_information');
543: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
544:
545: IF l_debug_on THEN
546: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
564: p_organization_id - organization_id to which inventory_item
565: belongs.
566: p_subinventory - subinventory to which the item belongs
567: x_inv_controls_rec - output record of
568: WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec type containing
569: all inv control flags for the item and organization.
570: x_return_status - return status of the API.
571: DESCRIPTION : This procedure takes a delivery detail id and optionally
572: inventory item id and organization id and determines whether
583: p_delivery_detail_id IN NUMBER DEFAULT NULL,
584: p_inventory_item_id IN NUMBER,
585: p_organization_id IN NUMBER,
586: p_subinventory IN VARCHAR2,
587: x_inv_controls_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec,
588: x_return_status OUT NOCOPY VARCHAR2) IS
589:
590: -- OPM change 1711019
591:
993: NVL(l_txn_enabled_flag, 'N') = 'Y') THEN
994: --{
995: IF l_debug_on THEN
996: wsh_debug_sv.log(l_module_name, 'Txn Enabled Flag', l_txn_enabled_flag);
997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
998: END IF;
999: --
1000: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1001: l_org_id,
996: wsh_debug_sv.log(l_module_name, 'Txn Enabled Flag', l_txn_enabled_flag);
997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
998: END IF;
999: --
1000: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1001: l_org_id,
1002: l_inv_item_id,
1003: l_dft_subinv,
1004: x_return_status);
1016: --
1017: IF (nvl(l_subinv, l_dft_subinv) IS NOT NULL) THEN
1018: --{
1019: IF l_debug_on THEN
1020: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1021: END IF;
1022: --
1023: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
1024: --
1019: IF l_debug_on THEN
1020: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1021: END IF;
1022: --
1023: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
1024: --
1025: IF l_debug_on THEN
1026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1027: END IF;
1022: --
1023: l_org_loc_code := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_org_id);
1024: --
1025: IF l_debug_on THEN
1026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1027: END IF;
1028: --
1029: l_sub_loc_code := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1030: nvl(l_subinv,l_dft_subinv),
1025: IF l_debug_on THEN
1026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1027: END IF;
1028: --
1029: l_sub_loc_code := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1030: nvl(l_subinv,l_dft_subinv),
1031: l_org_id);
1032:
1033: --
1031: l_org_id);
1032:
1033: --
1034: IF l_debug_on THEN
1035: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1036: END IF;
1037: --
1038: l_loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1039: l_org_id,
1034: IF l_debug_on THEN
1035: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1036: END IF;
1037: --
1038: l_loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1039: l_org_id,
1040: l_restrict_loc_code,
1041: l_org_loc_code,
1042: l_sub_loc_code,
1084: IF Get_Inv_Controls%ISOPEN THEN
1085: CLOSE Get_Inv_Controls;
1086: END IF;
1087:
1088: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls');
1089: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1090:
1091: --
1092: -- Debug Statements
1100:
1101: /*
1102: -----------------------------------------------------------------------------
1103: FUNCTION : Details_Required
1104: PARAMETERS : p_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
1105: that contains information about all the inventory control
1106: values on the form for the delivery detail id.
1107: p_set_default - boolean variable that indicates whether
1108: to retrieve the default values for controls if the
1106: values on the form for the delivery detail id.
1107: p_set_default - boolean variable that indicates whether
1108: to retrieve the default values for controls if the
1109: attributes are missing.
1110: x_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
1111: containing default values in the case where set_default is TRUE
1112: DESCRIPTION : This function takes a WSH_DELIVERY_DETAILS_INV.line_inv_info
1113: type with inventory control attributes for the delivery detail
1114: id from the form and determines whether additional inventory
1108: to retrieve the default values for controls if the
1109: attributes are missing.
1110: x_line_inv_rec - WSH_DELIVERY_DETAILS_INV.line_inv_info type
1111: containing default values in the case where set_default is TRUE
1112: DESCRIPTION : This function takes a WSH_DELIVERY_DETAILS_INV.line_inv_info
1113: type with inventory control attributes for the delivery detail
1114: id from the form and determines whether additional inventory
1115: control information needs to be entered or not. If additional
1116: control information is needed then the functions returns a
1123: */
1124:
1125:
1126: PROCEDURE Details_Required (
1127: p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
1128: p_set_default IN BOOLEAN DEFAULT FALSE,
1129: x_line_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.line_inv_info,
1130: x_details_required OUT NOCOPY BOOLEAN,
1131: x_return_status OUT NOCOPY VARCHAR2) IS
1125:
1126: PROCEDURE Details_Required (
1127: p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
1128: p_set_default IN BOOLEAN DEFAULT FALSE,
1129: x_line_inv_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.line_inv_info,
1130: x_details_required OUT NOCOPY BOOLEAN,
1131: x_return_status OUT NOCOPY VARCHAR2) IS
1132:
1133: dft_subinv VARCHAR2(12);
1139: item_loc_ctl NUMBER;
1140: loc_ctl_code NUMBER;
1141: default_loc VARCHAR2(2000);
1142:
1143: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
1144:
1145: l_ser_qty NUMBER;
1146: l_container_flag VARCHAR2(1) := 'N';
1147:
1197: --
1198: -- Debug Statements
1199: --
1200: IF l_debug_on THEN
1201: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.FETCH_INV_CONTROLS',WSH_DEBUG_SV.C_PROC_LEVEL);
1202: END IF;
1203: --
1204: WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls (
1205: p_line_inv_rec.delivery_detail_id,
1200: IF l_debug_on THEN
1201: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.FETCH_INV_CONTROLS',WSH_DEBUG_SV.C_PROC_LEVEL);
1202: END IF;
1203: --
1204: WSH_DELIVERY_DETAILS_INV.Fetch_Inv_Controls (
1205: p_line_inv_rec.delivery_detail_id,
1206: p_line_inv_rec.inventory_item_id,
1207: p_line_inv_rec.organization_id,
1208: p_line_inv_rec.subinventory,
1308: --
1309: -- Debug Statements
1310: --
1311: IF l_debug_on THEN
1312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1313: END IF;
1314: --
1315: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1316: p_line_inv_rec.organization_id,
1311: IF l_debug_on THEN
1312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1313: END IF;
1314: --
1315: WSH_DELIVERY_DETAILS_INV.Default_Subinventory (
1316: p_line_inv_rec.organization_id,
1317: p_line_inv_rec.inventory_item_id,
1318: dft_subinv,
1319: x_return_status);
1355: --
1356: -- Debug Statements
1357: --
1358: IF l_debug_on THEN
1359: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1360: END IF;
1361: --
1362: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (p_line_inv_rec.organization_id);
1363:
1358: IF l_debug_on THEN
1359: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
1360: END IF;
1361: --
1362: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (p_line_inv_rec.organization_id);
1363:
1364: --
1365: -- Debug Statements
1366: --
1364: --
1365: -- Debug Statements
1366: --
1367: IF l_debug_on THEN
1368: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1369: END IF;
1370: --
1371: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1372: nvl(subinv,dft_subinv),
1367: IF l_debug_on THEN
1368: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
1369: END IF;
1370: --
1371: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
1372: nvl(subinv,dft_subinv),
1373: p_line_inv_rec.organization_id);
1374:
1375: item_loc_ctl := l_inv_controls_rec.location_control_code;
1378: --
1379: -- Debug Statements
1380: --
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1383: END IF;
1384: --
1385: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1386: p_line_inv_rec.organization_id,
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
1383: END IF;
1384: --
1385: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
1386: p_line_inv_rec.organization_id,
1387: l_inv_controls_rec.restrict_loc,
1388: org_loc_ctl,
1389: sub_loc_ctl,
1399: --
1400: -- Debug Statements
1401: --
1402: IF l_debug_on THEN
1403: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
1404: END IF;
1405: --
1406: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
1407: p_line_inv_rec.organization_id,
1402: IF l_debug_on THEN
1403: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
1404: END IF;
1405: --
1406: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
1407: p_line_inv_rec.organization_id,
1408: p_line_inv_rec.inventory_item_id,
1409: NVL(subinv, dft_subinv),
1410: loc_restricted_flag);
1438: --
1439: -- Debug Statements
1440: --
1441: IF l_debug_on THEN
1442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_SERIAL_QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1443: END IF;
1444: --
1445: l_ser_qty := WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty (
1446: p_line_inv_rec.organization_id,
1441: IF l_debug_on THEN
1442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_SERIAL_QTY',WSH_DEBUG_SV.C_PROC_LEVEL);
1443: END IF;
1444: --
1445: l_ser_qty := WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty (
1446: p_line_inv_rec.organization_id,
1447: p_line_inv_rec.delivery_detail_id);
1448:
1449: IF nvl(l_ser_qty,-99) = -99 THEN
1492: --
1493: EXCEPTION
1494:
1495: WHEN Others THEN
1496: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Details_Required');
1497: x_details_required := FALSE;
1498: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1499:
1500: --
1525: p_organization_id IN NUMBER ) RETURN NUMBER IS
1526:
1527:
1528: l_sub_loc_ctl NUMBER;
1529: l_mtl_sec_inv_rec WSH_DELIVERY_DETAILS_INV.mtl_sec_inv_rec;
1530: l_return_status VARCHAR2(1);
1531: --
1532: l_debug_on BOOLEAN;
1533: --
1595:
1596: FUNCTION Get_Org_Loc (
1597: p_organization_id IN NUMBER) RETURN NUMBER IS
1598:
1599: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
1600: l_org_loc_ctl NUMBER;
1601: l_return_status VARCHAR2(1);
1602: --
1603: l_debug_on BOOLEAN;
1745: --
1746: EXCEPTION
1747:
1748: WHEN Others THEN
1749: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Default_Subinventory');
1750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1751:
1752: --
1753: -- Debug Statements
1883: prespecified CONSTANT NUMBER := 2;
1884: dynamic CONSTANT NUMBER := 3;
1885:
1886: l_neg_inv_code NUMBER;
1887: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
1888: l_return_status VARCHAR2(1);
1889: --
1890: l_debug_on BOOLEAN;
1891: --
2084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2085: END IF;
2086:
2087: WHEN others THEN
2088: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code');
2089:
2090: --
2091: -- Debug Statements
2092: --
2380: --
2381: EXCEPTION
2382:
2383: WHEN OTHERS THEN
2384: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Mark_Serial_Number');
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2386:
2387: --
2388: -- Debug Statements
2674: IF (Fetch_Item_details%ISOPEN) THEN
2675: CLOSE Fetch_Item_details;
2676: END IF;
2677: --RTV changes
2678: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Unmark_Serial_Number');
2679: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2680:
2681: --
2682: -- Debug Statements
2769: --
2770: -- Debug Statements
2771: --
2772: IF l_debug_on THEN
2773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2774: END IF;
2775: --
2776: l_result := wsh_delivery_details_inv.inventory_item(
2777: p_item => g_item,
2772: IF l_debug_on THEN
2773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2774: END IF;
2775: --
2776: l_result := wsh_delivery_details_inv.inventory_item(
2777: p_item => g_item,
2778: p_org => g_org);
2779: IF (l_result <> INV_VALIDATE.T) THEN
2780: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2844: EXCEPTION
2845:
2846: WHEN others THEN
2847: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2848: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_locator');
2849:
2850: --
2851: -- Debug Statements
2852: --
2927: --
2928: -- Debug Statements
2929: --
2930: IF l_debug_on THEN
2931: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2932: END IF;
2933: --
2934: l_result := wsh_delivery_details_inv.inventory_item(
2935: p_item => g_item,
2930: IF l_debug_on THEN
2931: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
2932: END IF;
2933: --
2934: l_result := wsh_delivery_details_inv.inventory_item(
2935: p_item => g_item,
2936: p_org => g_org);
2937: IF (l_result <> INV_VALIDATE.T) THEN
2938: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
2969: --
2970: EXCEPTION
2971: WHEN others THEN
2972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2973: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_revision');
2974:
2975: --
2976: -- Debug Statements
2977: --
3065: --
3066: -- Debug Statements
3067: --
3068: IF l_debug_on THEN
3069: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3070: END IF;
3071: --
3072: l_result := wsh_delivery_details_inv.inventory_item(
3073: p_item => g_item,
3068: IF l_debug_on THEN
3069: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3070: END IF;
3071: --
3072: l_result := wsh_delivery_details_inv.inventory_item(
3073: p_item => g_item,
3074: p_org => g_org);
3075: IF (l_result <> INV_VALIDATE.T) THEN
3076: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3159: EXCEPTION
3160:
3161: WHEN others THEN
3162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3163: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_subinventory');
3164:
3165: --
3166: -- Debug Statements
3167: --
3265: --
3266: -- Debug Statements
3267: --
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3270: END IF;
3271: --
3272: l_result := wsh_delivery_details_inv.inventory_item(
3273: p_item => g_item,
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3270: END IF;
3271: --
3272: l_result := wsh_delivery_details_inv.inventory_item(
3273: p_item => g_item,
3274: p_org => g_org);
3275: IF (l_result <> INV_VALIDATE.T) THEN
3276: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3401: --
3402: EXCEPTION
3403: WHEN others THEN
3404: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3405: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_lot_number');
3406:
3407: --
3408: -- Debug Statements
3409: --
3508: --
3509: -- Debug Statements
3510: --
3511: IF l_debug_on THEN
3512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3513: END IF;
3514: --
3515: l_result := wsh_delivery_details_inv.inventory_item(
3516: p_item => g_item,
3511: IF l_debug_on THEN
3512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
3513: END IF;
3514: --
3515: l_result := wsh_delivery_details_inv.inventory_item(
3516: p_item => g_item,
3517: p_org => g_org);
3518: IF (l_result <> INV_VALIDATE.T) THEN
3519: FND_MESSAGE.SET_NAME('WSH','WSH_INV_INVALID');
3700: EXCEPTION
3701:
3702: WHEN others THEN
3703: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3704: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial');
3705:
3706: --
3707: -- Debug Statements
3708: --
3844: --
3845: EXCEPTION
3846:
3847: WHEN OTHERS THEN
3848: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Locator_Subinv');
3849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3850:
3851: --
3852: -- Debug Statements
4069:
4070: EXCEPTION
4071:
4072: WHEN OTHERS THEN
4073: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Get_Serial_Qty');
4074: l_ser_qty := -99;
4075: --
4076: --
4077: -- Debug Statements
4095:
4096: l_type MTL_SYSTEM_ITEMS.RESERVABLE_TYPE%TYPE;
4097: l_trx_flag MTL_SYSTEM_ITEMS.MTL_TRANSACTIONS_ENABLED_FLAG%TYPE;
4098: l_flag VARCHAR2(1) := 'Y';
4099: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
4100: --
4101: l_debug_on BOOLEAN;
4102: l_return_status VARCHAR2(1);
4103: --
4185: --
4186: return 'Y';
4187:
4188: WHEN OTHERS THEN
4189: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.get_reservable_flag');
4190: --
4191: -- Debug Statements
4192: --
4193: IF l_debug_on THEN
4232:
4233: l_return_status VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4234: l_reservable_type NUMBER;
4235: l_mtl_txns_enabled_flag VARCHAR2(1);
4236: l_item_info WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec;
4237: l_debug_on BOOLEAN;
4238: --
4239: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'LINE_RESERVED';
4240: --
4329: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4330: END IF;
4331:
4332: WHEN OTHERS THEN
4333: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_INV.Line_Reserved');
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4335: --
4336: -- Debug Statements
4337: --
4377: trx_action_id NUMBER;
4378: trx_source_type VARCHAR2(3); --RTV changes
4379: l_to_number VARCHAR2(100);
4380: l_return NUMBER;
4381: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
4382: WSH_INVALID_SER_NUM EXCEPTION;
4383:
4384: --
4385: l_debug_on BOOLEAN;
4565: WHEN others THEN
4566: IF c_header_info%ISOPEN THEN
4567: close c_header_info;
4568: END IF;
4569: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial');
4570:
4571: --
4572: -- Debug Statements
4573: --
4685: END IF;
4686: g_item.inventory_item_id := p_inventory_item_id;
4687:
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: END IF;
4691: l_result := wsh_delivery_details_inv.inventory_item(
4692: p_item => g_item,
4693: p_org => g_org);
4687:
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.INVENTORY_ITEM',WSH_DEBUG_SV.C_PROC_LEVEL);
4690: END IF;
4691: l_result := wsh_delivery_details_inv.inventory_item(
4692: p_item => g_item,
4693: p_org => g_org);
4694:
4695: IF(l_debug_on) THEN
4913: END IF;
4914:
4915: WHEN others THEN
4916: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4917: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Validate_Serial_Range');
4918: IF l_debug_on THEN
4919: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4920: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4921: END IF;
4954: l_trx_action_id NUMBER;
4955: l_trx_source_type VARCHAR2(3); --RTV changes
4956: l_to_number VARCHAR2(100);
4957: l_return NUMBER;
4958: l_mtl_org_param_rec WSH_DELIVERY_DETAILS_INV.mtl_org_param_rec;
4959: --
4960: l_debug_on BOOLEAN;
4961: --
4962: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'CREATE_DYNAMIC_SERIAL_RANGE';
5112: IF c_header_info%ISOPEN THEN
5113: close c_header_info;
5114: END IF;
5115: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5116: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Create_Dynamic_Serial_Range');
5117:
5118: IF l_debug_on THEN
5119: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5128: -- defaulted in a wms organization and, if possible, defaults it.
5129: -- If the catch weight is required and cannot be defaulted,
5130: -- raises an error
5131:
5132: PROCEDURE Check_Default_Catch_Weights(p_line_inv_rec IN WSH_DELIVERY_DETAILS_INV.line_inv_info,
5133: x_return_status OUT NOCOPY VARCHAR2) IS
5134:
5135: l_msg_count NUMBER;
5136: l_msg_data VARCHAR2(20000);
5203: EXCEPTION
5204:
5205: WHEN others THEN
5206: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5207: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights');
5208:
5209: IF l_debug_on THEN
5210: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5211: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5232:
5233: PROCEDURE Get_item_information (
5234: p_organization_id IN NUMBER
5235: , p_inventory_item_id IN NUMBER
5236: , x_mtl_system_items_rec OUT NOCOPY WSH_DELIVERY_DETAILS_INV.mtl_system_items_rec
5237: , x_return_status OUT NOCOPY VARCHAR2
5238: )IS
5239:
5240:
5375:
5376: EXCEPTION
5377:
5378: WHEN others THEN
5379: wsh_util_core.default_handler ('WSH_DELIVERY_DETAILS_INV .Get_item_information');
5380: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5381:
5382: IF l_debug_on THEN
5383: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5522: EXCEPTION
5523: --
5524: WHEN OTHERS THEN
5525: --
5526: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.Update_Marked_Serial');
5527: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5528: --
5529: IF l_debug_on THEN
5530: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5694: EXCEPTION
5695:
5696: WHEN OTHERS THEN
5697: --
5698: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_INV.get_trx_type_id');
5699: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5700: --
5701: IF c_order_line_info%isopen THEN
5702: CLOSE c_order_line_info;
5719:
5720: END get_trx_type_id;
5721:
5722:
5723: END WSH_DELIVERY_DETAILS_INV;
5724: