[Home] [Help]
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;