[Home] [Help]
4: -- This procedure performs several queries to determine
5: -- if attributes are updateable. This only needs to be called
6: -- when working on an existing record.
7:
8: PROCEDURE Table_Queries(
9: p_org_id IN NUMBER,
10: p_item_id IN NUMBER,
11: p_master_org IN NUMBER,
12: p_primary_uom_code IN VARCHAR2,
100: shelf_level NUMBER := 0;
101: serial_level NUMBER := 0;
102: trackable_level NUMBER := 0;
103: attr_name VARCHAR2(50);
104: l_tab_exists NUMBER := 0;
105: onhand_tracking_qty_ind NUMBER := 0;
106: pendadj_tracking_qty_ind NUMBER := 0;
107: tracking_qty_ind_level NUMBER := 0;
108: onhand_primary_uom NUMBER := 0;
148: BEGIN
149:
150: -- 6531911 : Removed the intialization of out variables.
151: -- Values for these will be passed from calling routines
152: -- If not NULL, we will query the downstream tables.
153: -- Intialise the variable only when called from Item form.
154: -- Changes are too huge to make in certification phase.
155: IF p_calling_routine = 'INVIDITM' THEN
156: x_onhand_lot := 0;
869: END IF;
870: -- Bug 4139938 end
871:
872: /* Bug 1923215
873: Modified the below SQL to use the oe_order_lines_all Table
874: as so_lines_all and so_line_details are obsoleted in R11i
875: */
876: -- Check for open sales order line with a different value for
877: -- so_transactions_flag than in mtl_system_items
1220: --Bug: 2691174 Disabling vehicle items from being edited if a corresponding
1221: -- vehicle type is exists in FTE_VEHICLE_TYPES
1222: IF INV_ITEM_UTIL.Appl_Inst_FTE <> 0 AND X_fte_vechicle_exists IS NOT NULL THEN
1223: SELECT count(1)
1224: INTO l_tab_exists
1225: FROM TAB
1226: WHERE TNAME = 'FTE_VEHICLE_TYPES'
1227: AND ROWNUM = 1;
1228: IF l_tab_exists > 0 THEN
1221: -- vehicle type is exists in FTE_VEHICLE_TYPES
1222: IF INV_ITEM_UTIL.Appl_Inst_FTE <> 0 AND X_fte_vechicle_exists IS NOT NULL THEN
1223: SELECT count(1)
1224: INTO l_tab_exists
1225: FROM TAB
1226: WHERE TNAME = 'FTE_VEHICLE_TYPES'
1227: AND ROWNUM = 1;
1228: IF l_tab_exists > 0 THEN
1229: --Bug: 2812994 Corrected the Dynamic SQL
1224: INTO l_tab_exists
1225: FROM TAB
1226: WHERE TNAME = 'FTE_VEHICLE_TYPES'
1227: AND ROWNUM = 1;
1228: IF l_tab_exists > 0 THEN
1229: --Bug: 2812994 Corrected the Dynamic SQL
1230: EXECUTE IMMEDIATE
1231: 'SELECT count(1) '||
1232: 'FROM FTE_VEHICLE_TYPES '||
1251: and rownum = 1;
1252: END IF;
1253:
1254: IF X_vmiorconsign_enabled IS NOT NULL OR X_consign_enabled IS NOT NULL THEN
1255: VMI_Table_Queries(
1256: p_org_id
1257: , p_item_id
1258: , X_vmiorconsign_enabled
1259: , X_consign_enabled);
1258: , X_vmiorconsign_enabled
1259: , X_consign_enabled);
1260: END IF;
1261:
1262: END Table_Queries;
1263:
1264: FUNCTION Get_inv_item_id Return Number is
1265: BEGIN
1266:
1281: -- Check if the item is VMI/Consign enabled
1282: -- X_vmiorconsign_enabled = 'Y' if the item is VMI/Consign enabled, 'N' otherwise
1283: -- X_consign_enabled = 'Y' if the item is Consign enabled, 'N' otherwise
1284:
1285: PROCEDURE VMI_Table_Queries
1286: ( p_org_id IN NUMBER
1287: , p_item_id IN NUMBER
1288: , X_vmiorconsign_enabled OUT NOCOPY NUMBER
1289: , X_consign_enabled OUT NOCOPY NUMBER
1327: else
1328: X_consign_enabled := 0;
1329: end if;
1330:
1331: END VMI_Table_Queries;
1332:
1333: -- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1334: -- Added for 11.5.10 bug 3171098
1335: -- Check for proper catalog category setup for PLM
1503: RETURN l_return_value;
1504: END CHECK_ITEM_APPROVED;
1505:
1506: --Added for Bug: 4569555
1507: PROCEDURE CSI_Table_Queries (
1508: p_inventory_item_id IN NUMBER
1509: ,p_organization_id IN NUMBER
1510: ,X_ib_ret_status OUT NOCOPY VARCHAR2
1511: ,X_ib_msg OUT NOCOPY VARCHAR2) IS
1542: ELSE
1543: X_ib_ret_status:= FND_API.G_RET_STS_SUCCESS;
1544: X_ib_msg := NULL;
1545: END IF;
1546: END CSI_Table_Queries;
1547:
1548: END INVIDIT3;