PACKAGE BODY: APPS.MRP_GET_LOCATION

Source

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;