1 PACKAGE BODY MRP_GET_LOCATION AS
2 /* $Header: MRPGLOCB.pls 115.0 99/07/16 12:21:26 porting ship $ */
3
4 FUNCTION location (arg_location_id IN NUMBER, arg_org_id IN NUMBER) return varchar2 IS
5 var_location_name VARCHAR2(240);
6
7 cursor C1 is
8 select concatenated_segments
9 from mtl_item_locations_kfv
10 where inventory_location_id = arg_location_id
11 and organization_id = arg_org_id;
12
13 BEGIN
14
15 IF arg_location_id IS NULL THEN
16 return NULL;
17 END IF;
18
19 OPEN C1;
20 LOOP
21 FETCH C1 INTO var_location_name;
22 EXIT;
23 END LOOP;
24
25 return var_location_name;
26 END location;
27
28 END mrp_get_location;