2007: ,p_txn_action_id IN NUMBER)
2008: RETURN BOOLEAN
2009: IS
2010: l_api_name CONSTANT VARCHAR2 (30) := 'check_locator';
2011: l_locator inv_validate.LOCATOR;
2012: l_org inv_validate.org;
2013: l_item inv_validate.item;
2014: l_sub inv_validate.sub;
2015: BEGIN
2008: RETURN BOOLEAN
2009: IS
2010: l_api_name CONSTANT VARCHAR2 (30) := 'check_locator';
2011: l_locator inv_validate.LOCATOR;
2012: l_org inv_validate.org;
2013: l_item inv_validate.item;
2014: l_sub inv_validate.sub;
2015: BEGIN
2016: IF g_debug <= gme_debug.g_log_procedure THEN
2009: IS
2010: l_api_name CONSTANT VARCHAR2 (30) := 'check_locator';
2011: l_locator inv_validate.LOCATOR;
2012: l_org inv_validate.org;
2013: l_item inv_validate.item;
2014: l_sub inv_validate.sub;
2015: BEGIN
2016: IF g_debug <= gme_debug.g_log_procedure THEN
2017: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2010: l_api_name CONSTANT VARCHAR2 (30) := 'check_locator';
2011: l_locator inv_validate.LOCATOR;
2012: l_org inv_validate.org;
2013: l_item inv_validate.item;
2014: l_sub inv_validate.sub;
2015: BEGIN
2016: IF g_debug <= gme_debug.g_log_procedure THEN
2017: gme_debug.put_line ('Entering api ' || g_pkg_name || '.'
2018: || l_api_name);
2056: l_item.restrict_locators_code := p_item_loc_restrict;
2057: l_sub.secondary_inventory_name := p_subinventory;
2058: l_sub.locator_type := p_sub_control;
2059:
2060: IF (inv_validate.check_locator (p_locator => l_locator
2061: ,p_org => l_org
2062: ,p_item => l_item
2063: ,p_sub => l_sub
2064: ,p_project_id => NULL
2065: ,p_task_id => NULL
2066: ,p_txn_action_id => p_txn_action_id
2067: ,p_is_from_locator => NULL
2068: ,p_dynamic_ok => TRUE) =
2069: inv_validate.f) THEN
2070: fnd_message.set_name ('INV', 'INV_INVALID_LOCATION');
2071: fnd_msg_pub.ADD;
2072:
2073: IF g_debug <= gme_debug.g_log_statement THEN
2107: ,p_restrict_subinv IN NUMBER DEFAULT NULL)
2108: RETURN BOOLEAN
2109: IS
2110: l_api_name CONSTANT VARCHAR2 (30) := 'check_subinventory';
2111: l_org inv_validate.org;
2112: l_item inv_validate.item;
2113: l_sub inv_validate.sub;
2114:
2115: CURSOR cur_item_control
2108: RETURN BOOLEAN
2109: IS
2110: l_api_name CONSTANT VARCHAR2 (30) := 'check_subinventory';
2111: l_org inv_validate.org;
2112: l_item inv_validate.item;
2113: l_sub inv_validate.sub;
2114:
2115: CURSOR cur_item_control
2116: IS
2109: IS
2110: l_api_name CONSTANT VARCHAR2 (30) := 'check_subinventory';
2111: l_org inv_validate.org;
2112: l_item inv_validate.item;
2113: l_sub inv_validate.sub;
2114:
2115: CURSOR cur_item_control
2116: IS
2117: SELECT restrict_subinventories_code
2159: l_item_restict_subinv := p_restrict_subinv;
2160: END IF;
2161:
2162: IF (l_item_restict_subinv = 1) THEN
2163: IF (inv_validate.subinventory (p_org => l_org
2164: ,p_item => l_item
2165: ,p_sub => l_sub) = inv_validate.f) THEN
2166: IF g_debug <= gme_debug.g_log_statement THEN
2167: gme_debug.put_line ( g_pkg_name
2161:
2162: IF (l_item_restict_subinv = 1) THEN
2163: IF (inv_validate.subinventory (p_org => l_org
2164: ,p_item => l_item
2165: ,p_sub => l_sub) = inv_validate.f) THEN
2166: IF g_debug <= gme_debug.g_log_statement THEN
2167: gme_debug.put_line ( g_pkg_name
2168: || '.'
2169: || l_api_name
2172:
2173: RETURN FALSE;
2174: END IF;
2175: ELSE
2176: IF (inv_validate.subinventory (p_org => l_org, p_sub => l_sub) =
2177: inv_validate.f) THEN
2178: IF g_debug <= gme_debug.g_log_statement THEN
2179: gme_debug.put_line ( g_pkg_name
2180: || '.'
2173: RETURN FALSE;
2174: END IF;
2175: ELSE
2176: IF (inv_validate.subinventory (p_org => l_org, p_sub => l_sub) =
2177: inv_validate.f) THEN
2178: IF g_debug <= gme_debug.g_log_statement THEN
2179: gme_debug.put_line ( g_pkg_name
2180: || '.'
2181: || l_api_name