1: PACKAGE BODY MTL_INV_VALIDATE_GRP AS
2: /* $Header: INVGIVVB.pls 120.2 2005/06/22 09:57:14 appldev ship $ */
3: Current_Error_Code VARCHAR2(30) := NULL;
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MTL_INV_VALIDATE_GRP';
1: PACKAGE BODY MTL_INV_VALIDATE_GRP AS
2: /* $Header: INVGIVVB.pls 120.2 2005/06/22 09:57:14 appldev ship $ */
3: Current_Error_Code VARCHAR2(30) := NULL;
4: --
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MTL_INV_VALIDATE_GRP';
6:
7:
8: procedure mdebug(msg in varchar2)
9: is
1976: WHERE
1977: inventory_item_id = id
1978: AND cycle_count_header_id = cchead;
1979: --
1980: L_org INV_Validate.ORG;
1981: L_item INV_Validate.ITEM;
1982: --
1983: L_counter integer := 0;
1984: --
1977: inventory_item_id = id
1978: AND cycle_count_header_id = cchead;
1979: --
1980: L_org INV_Validate.ORG;
1981: L_item INV_Validate.ITEM;
1982: --
1983: L_counter integer := 0;
1984: --
1985: L_api_version CONSTANT NUMBER := 0.9;
2010: MDEBUG( 'Validating Item');
2011: END IF;
2012: --
2013: -- Assigning variables to l_item record type to call
2014: -- INV_Validate.inventory_item procedure
2015: l_org.organization_id := p_organization_id;
2016: l_item.organization_id := p_organization_id;
2017: IF (l_debug = 1) THEN
2018: MDEBUG( 'Validating Item-1');
2041: IF (l_debug = 1) THEN
2042: MDEBUG( 'Validating Item-2');
2043: END IF;
2044: --
2045: IF INV_Validate.Inventory_Item(L_item,
2046: L_org
2047: ) = INV_Validate.T then
2048:
2049: IF (l_debug = 1) THEN
2043: END IF;
2044: --
2045: IF INV_Validate.Inventory_Item(L_item,
2046: L_org
2047: ) = INV_Validate.T then
2048:
2049: IF (l_debug = 1) THEN
2050: MDEBUG( 'Validating Item-3');
2051: END IF;
2225: -- Notes : Note text
2226: -- END OF comments
2227: DECLARE
2228: --
2229: L_org INV_VALIDATE.ORG;
2230: L_item INV_VALIDATE.ITEM;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2226: -- END OF comments
2227: DECLARE
2228: --
2229: L_org INV_VALIDATE.ORG;
2230: L_item INV_VALIDATE.ITEM;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2234: L_dynamic_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_OR_CREATE;
2227: DECLARE
2228: --
2229: L_org INV_VALIDATE.ORG;
2230: L_item INV_VALIDATE.ITEM;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2234: L_dynamic_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_OR_CREATE;
2235: L_dynamic_not_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_ONLY;
2228: --
2229: L_org INV_VALIDATE.ORG;
2230: L_item INV_VALIDATE.ITEM;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2234: L_dynamic_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_OR_CREATE;
2235: L_dynamic_not_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_ONLY;
2236: --
2230: L_item INV_VALIDATE.ITEM;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2234: L_dynamic_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_OR_CREATE;
2235: L_dynamic_not_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_ONLY;
2236: --
2237: L_counter NUMBER := 0;
2238: L_Location_Id NUMBER;
2231: L_sub INV_VALIDATE.SUB;
2232: L_loc INV_VALIDATE.LOCATOR;
2233: --
2234: L_dynamic_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_OR_CREATE;
2235: L_dynamic_not_ok CONSTANT VARCHAR2(20) := INV_Validate.EXISTS_ONLY;
2236: --
2237: L_counter NUMBER := 0;
2238: L_Location_Id NUMBER;
2239: --
2299: --
2300: IF (l_debug = 1) THEN
2301: MDEBUG( 'Validating Locator Id and Segments ');
2302: END IF;
2303: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,L_dynamic_not_ok)
2304: = INV_Validate.T then
2305: MTL_CCEOI_VAR_PVT.G_LOCATOR_ID := l_loc.inventory_location_id;
2306: IF (l_debug = 1) THEN
2307: MDEBUG( 'Valid Locator Id and Segments ');
2300: IF (l_debug = 1) THEN
2301: MDEBUG( 'Validating Locator Id and Segments ');
2302: END IF;
2303: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,L_dynamic_not_ok)
2304: = INV_Validate.T then
2305: MTL_CCEOI_VAR_PVT.G_LOCATOR_ID := l_loc.inventory_location_id;
2306: IF (l_debug = 1) THEN
2307: MDEBUG( 'Valid Locator Id and Segments ');
2308: END IF;
2330: IF p_locator_control = 3 THEN
2331: IF (l_debug = 1) THEN
2332: MDEBUG( 'Validating Locator DynLoc - Yes' );
2333: END IF;
2334: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,l_dynamic_ok)
2335: = INV_Validate.T then
2336: MTL_CCEOI_VAR_PVT.G_LOCATOR_ID := l_loc.inventory_location_id;
2337: ELSE
2338: IF (l_debug = 1) THEN
2331: IF (l_debug = 1) THEN
2332: MDEBUG( 'Validating Locator DynLoc - Yes' );
2333: END IF;
2334: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,l_dynamic_ok)
2335: = INV_Validate.T then
2336: MTL_CCEOI_VAR_PVT.G_LOCATOR_ID := l_loc.inventory_location_id;
2337: ELSE
2338: IF (l_debug = 1) THEN
2339: mdebug('Error ');
2356: L_counter := 0;
2357: IF (l_debug = 1) THEN
2358: MDEBUG( 'Validating Locator Id and Segments ');
2359: END IF;
2360: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,l_item)
2361: = INV_Validate.T then
2362: L_counter := L_counter + 1;
2363: END IF;
2364:
2357: IF (l_debug = 1) THEN
2358: MDEBUG( 'Validating Locator Id and Segments ');
2359: END IF;
2360: IF INV_Validate.validateLocator(l_loc,l_org,l_sub,l_item)
2361: = INV_Validate.T then
2362: L_counter := L_counter + 1;
2363: END IF;
2364:
2365: IF L_counter = 0 THEN
2657: WHERE
2658: SUBINVENTORY = sub
2659: AND cycle_count_header_id = CCId;
2660: --
2661: l_org INV_Validate.ORG;
2662: l_sub INV_Validate.SUB;
2663: L_counter integer := 0;
2664: --
2665: L_api_version CONSTANT NUMBER := 0.9;
2658: SUBINVENTORY = sub
2659: AND cycle_count_header_id = CCId;
2660: --
2661: l_org INV_Validate.ORG;
2662: l_sub INV_Validate.SUB;
2663: L_counter integer := 0;
2664: --
2665: L_api_version CONSTANT NUMBER := 0.9;
2666: L_api_name CONSTANT VARCHAR2(30) := 'Validate_SubInv';
2701: --
2702: l_org.organization_id := p_organization_id;
2703: l_sub.secondary_inventory_name := p_subinventory ;
2704: --
2705: IF INV_Validate.subinventory(L_sub,L_org) = INV_Validate.T then
2706: MTL_CCEOI_VAR_PVT.G_SUB_LOCATOR_TYPE := l_sub.LOCATOR_TYPE;
2707: IF l_sub.QUANTITY_TRACKED <> 1 THEN
2708: x_errorcode := 8;
2709: FND_MESSAGE.SET_NAME('INV', 'INV_CCEOI_NON_QTY_TRKD_SUB');
3631: END validate_secondarycountqty;
3632:
3633: -- END INVCONV
3634:
3635: END MTL_INV_VALIDATE_GRP;