PACKAGE BODY: APPS.ECE_INVENTORY

Source

1 PACKAGE BODY ECE_INVENTORY AS
2 -- $Header: ECEINVYB.pls 115.1 99/08/23 15:39:50 porting ship $
3 
4 
5 PROCEDURE GET_ITEM_NUMBER (
6 	i_item_id 		IN 	NUMBER,
7 	i_org_id		IN	NUMBER,
8 	o_item_number 		OUT 	VARCHAR2,
9 	o_attribute_category 	OUT 	VARCHAR2,
10 	o_attribute_1		OUT	VARCHAR2,
11 	o_attribute_2		OUT	VARCHAR2,
12 	o_attribute_3		OUT	VARCHAR2,
13 	o_attribute_4		OUT	VARCHAR2,
14 	o_attribute_5		OUT	VARCHAR2,
15 	o_attribute_6		OUT	VARCHAR2,
16 	o_attribute_7		OUT	VARCHAR2,
17 	o_attribute_8		OUT	VARCHAR2,
18 	o_attribute_9		OUT	VARCHAR2,
19 	o_attribute_10		OUT	VARCHAR2,
20 	o_attribute_11		OUT	VARCHAR2,
21 	o_attribute_12		OUT	VARCHAR2,
22 	o_attribute_13		OUT	VARCHAR2,
23 	o_attribute_14		OUT	VARCHAR2,
24 	o_attribute_15		OUT	VARCHAR2)
25 IS
26 
27 	cItem_num		VARCHAR2(2000);
28 
29 BEGIN
30 
31 IF i_item_id IS NOT NULL THEN
32 
33 	SELECT  MIN(ITEM_NUMBER) INTO cItem_num
34 	FROM 	MTL_ITEM_FLEXFIELDS MSIV
35 	WHERE   MSIV.ITEM_ID = i_item_id
36 	AND	MSIV.ORGANIZATION_ID = i_org_id;
37 
38     IF cItem_num IS NOT NULL THEN
39 
40 	SELECT	MSIV.ATTRIBUTE_CATEGORY,
41 		MSIV.ATTRIBUTE1,
42 		MSIV.ATTRIBUTE2,
43 		MSIV.ATTRIBUTE3,
44 		MSIV.ATTRIBUTE4,
45 		MSIV.ATTRIBUTE5,
46 		MSIV.ATTRIBUTE6,
47 		MSIV.ATTRIBUTE7,
48 		MSIV.ATTRIBUTE8,
49 		MSIV.ATTRIBUTE9,
50 		MSIV.ATTRIBUTE10,
51 		MSIV.ATTRIBUTE11,
52 		MSIV.ATTRIBUTE12,
53 		MSIV.ATTRIBUTE13,
54 		MSIV.ATTRIBUTE14,
55 		MSIV.ATTRIBUTE15
56 	INTO	o_attribute_category,
57 		o_attribute_1,
58 		o_attribute_2,
59 		o_attribute_3,
60 		o_attribute_4,
61 		o_attribute_5,
62 		o_attribute_6,
63 		o_attribute_7,
64 		o_attribute_8,
65 		o_attribute_9,
66 		o_attribute_10,
67 		o_attribute_11,
68 		o_attribute_12,
69 		o_attribute_13,
70 		o_attribute_14,
71 		o_attribute_15
72 	FROM 	MTL_ITEM_FLEXFIELDS MSIV
73 	WHERE   MSIV.ITEM_ID = i_item_id
74 	AND	MSIV.ORGANIZATION_ID = i_org_id
75 	AND	MSIV.ITEM_NUMBER = cItem_num
76 	AND	ROWNUM = 1;
77 
78 	o_item_number := cItem_num;
79 
80     END IF;
81 END IF;
82 
83 
84 EXCEPTION
85   WHEN OTHERS THEN
86     raise_application_error(-20000,sqlerrm||'. '||
87     'ERROR: ECE_INVENTORY.GET_ITEM_NUMBER '||
88     'ITEM_ID  = '|| NVL(get_item_number.i_item_id,0)||
89     ' ORG_ID = ' || get_item_number.i_org_id ||
90     ' ITEM_NUMBER = ' || get_item_number.cItem_num);
91 
92 END GET_ITEM_NUMBER;
93 
94 
95 PROCEDURE GET_ITEM_LOCATION (
96 	i_inventory_location_id	IN 	NUMBER,
97 	i_organization_id	IN	NUMBER,
98 	o_location 		OUT 	VARCHAR2)
99 IS
100 
101 BEGIN
102 
103 SELECT  SUBSTRB(MIN(CONCATENATED_SEGMENTS),1,100) INTO o_location
104 FROM 	MTL_ITEM_LOCATIONS_KFV MILK
105 WHERE   MILK.INVENTORY_LOCATION_ID = i_inventory_location_id
106 AND	MILK.ORGANIZATION_ID = i_organization_id;
107 
108 EXCEPTION
109   WHEN OTHERS THEN
110     raise_application_error(-20000,sqlerrm||'. '||
111     'ERROR: ECE_INVENTORY.GET_ITEM_LOCATION '||
112     'LOCATE_ID  = '|| NVL(get_item_location.i_inventory_location_id,0)||
113     ' ORG_ID = ' || get_item_location.i_organization_id);
114 
115 END GET_ITEM_LOCATION;
116 
117 END ECE_INVENTORY;