[Home] [Help]
439: P_segment20 IN VARCHAR2) IS
440:
441: --CURSORS
442:
443: /* Bug 5529682 - Changed reference to mtl_item_locations_kfv to mtl_item_locations */
444: /* Bug 5607797 - Changed the following select to return the inventory location id instead of 1 */
445: CURSOR Cur_check_sub_location(V_location VARCHAR2) IS
446: SELECT inventory_location_id
447: FROM mtl_item_locations
443: /* Bug 5529682 - Changed reference to mtl_item_locations_kfv to mtl_item_locations */
444: /* Bug 5607797 - Changed the following select to return the inventory location id instead of 1 */
445: CURSOR Cur_check_sub_location(V_location VARCHAR2) IS
446: SELECT inventory_location_id
447: FROM mtl_item_locations
448: WHERE segment1 = V_location
449: AND subinventory_code = P_subinventory_code
450: AND organization_id = p_organization_id;
451:
448: WHERE segment1 = V_location
449: AND subinventory_code = P_subinventory_code
450: AND organization_id = p_organization_id;
451:
452: /* Bug 5529682 - Changed reference to mtl_item_locations_kfv to mtl_item_locations */
453: CURSOR Cur_check_location(V_location VARCHAR2) IS
454: SELECT 1
455: FROM dual
456: WHERE EXISTS (SELECT 1
453: CURSOR Cur_check_location(V_location VARCHAR2) IS
454: SELECT 1
455: FROM dual
456: WHERE EXISTS (SELECT 1
457: FROM mtl_item_locations
458: WHERE segment1 = V_location
459: AND organization_id = p_organization_id);
460:
461: CURSOR Cur_get_id IS
458: WHERE segment1 = V_location
459: AND organization_id = p_organization_id);
460:
461: CURSOR Cur_get_id IS
462: SELECT mtl_item_locations_s.nextval
463: FROM dual;
464:
465: --Local Variables
466: l_migration_id NUMBER;
525: ELSE
526: l_start_date_active := P_start_date_active;
527: END IF;
528:
529: --Insert the location into mtl_item_locations table
530: INSERT INTO mtl_item_locations(
531: inventory_location_id,organization_id,description,descriptive_text,disable_date,picking_order,location_maximum_units,
532: subinventory_code,location_weight_uom_code,max_weight,volume_uom_code,max_cubic_area,segment1,segment2,segment3,segment4,
533: segment5,segment6,segment7,segment8,segment9,segment10,segment11,segment12,segment13,segment14,segment15,segment16,
526: l_start_date_active := P_start_date_active;
527: END IF;
528:
529: --Insert the location into mtl_item_locations table
530: INSERT INTO mtl_item_locations(
531: inventory_location_id,organization_id,description,descriptive_text,disable_date,picking_order,location_maximum_units,
532: subinventory_code,location_weight_uom_code,max_weight,volume_uom_code,max_cubic_area,segment1,segment2,segment3,segment4,
533: segment5,segment6,segment7,segment8,segment9,segment10,segment11,segment12,segment13,segment14,segment15,segment16,
534: segment17,segment18,segment19,segment20,summary_flag,enabled_flag,start_date_active,end_date_active,attribute_category,
616: X_location_id OUT NOCOPY NUMBER,
617: X_failure_count OUT NOCOPY NUMBER) IS
618: --CURSORS
619: -- Removed select of segment1 etc from kfv views. Thomas Daniel. B4712289
620: /* Bug 5529682 - Removed reference to mtl_item_locations_kfv */
621: /* duplicate checking is now being done using segment1 */
622: CURSOR Cur_get_location (V_location VARCHAR2) IS
623: SELECT il.*, l.delete_mark
624: FROM mtl_item_locations il, ic_loct_mst l
620: /* Bug 5529682 - Removed reference to mtl_item_locations_kfv */
621: /* duplicate checking is now being done using segment1 */
622: CURSOR Cur_get_location (V_location VARCHAR2) IS
623: SELECT il.*, l.delete_mark
624: FROM mtl_item_locations il, ic_loct_mst l
625: WHERE l.location <> V_location
626: AND l.whse_code = P_subinventory_code
627: AND l.inventory_location_id = il.inventory_location_id;
628: