[Home] [Help]
9: p_ship_from_org_id in number) return number is
10: dummy_for_x char(1);
11: x_item_rec OE_ORDER_CACHE.item_rec_type;
12: --
13: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14: --
15: begin
16: x_item_rec := OE_Order_Cache.Load_Item (p_inventory_item_id
17: ,p_ship_from_org_id);
32: v_return boolean;
33: v_status varchar2(100);
34: v_industry varchar2(100);
35: --
36: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
37: --
38: begin
39: v_return := fnd_installation.get(555,555,v_status,v_industry);
40: if v_return=TRUE then
60: rItem getitem%ROWTYPE;
61: vItem number;
62:
63: --
64: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
65: --
66: BEGIN
67:
68: OPEN getitem(p_organization_id, p_inventory_item_id);
83: l_item_id ic_tran_pnd.item_id%TYPE;
84: l_lot_id ic_tran_pnd.lot_id%TYPE;
85:
86: --
87: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
88: --
89: BEGIN
90:
91: SELECT iim.item_id INTO l_item_id
132: x_grade_control_flag OUT NOCOPY VARCHAR2,
133: x_wms_enabled_flag OUT NOCOPY VARCHAR2
134: )
135: IS
136: l_debug_level constant NUMBER := oe_debug_pub.g_debug_level ;
137: l_item_rec OE_Order_Cache.item_rec_type ;
138: BEGIN
139:
140: /* if both inventory_item_id and ship_from_org_id are passed then
148: l_item_rec := OE_Order_Cache.Load_Item( p_key1 => p_inventory_item_id
149: ,p_key2 => p_ship_from_org_id
150: ,p_key3 => p_org_id) ;
151: if (l_debug_level >0 ) then
152: oe_debug_pub.add('Entering dual_uom_and_grade_control - tracking_quantity_ind ='||
153: l_item_rec.tracking_quantity_ind ) ;
154: end if ;
155: IF l_item_rec.tracking_quantity_ind = 'PS' THEN
156: x_dual_control_flag := 'Y' ;
154: end if ;
155: IF l_item_rec.tracking_quantity_ind = 'PS' THEN
156: x_dual_control_flag := 'Y' ;
157: if (l_debug_level >0 ) then
158: oe_debug_pub.add('Dual UOM control is true');
159: end if ;
160: ELSE
161: x_dual_control_flag := 'N' ;
162: if (l_debug_level >0 ) then
159: end if ;
160: ELSE
161: x_dual_control_flag := 'N' ;
162: if (l_debug_level >0 ) then
163: oe_debug_pub.add('Dual UOM control is false');
164: end if ;
165: END IF ;
166:
167: IF l_item_rec.grade_control_flag = 'Y' THEN
166:
167: IF l_item_rec.grade_control_flag = 'Y' THEN
168: x_grade_control_flag := 'Y' ;
169: if (l_debug_level >0 ) then
170: oe_debug_pub.add('Grade control is true');
171: end if ;
172: ELSE
173: x_grade_control_flag := 'N' ;
174: if (l_debug_level >0 ) then
171: end if ;
172: ELSE
173: x_grade_control_flag := 'N' ;
174: if (l_debug_level >0 ) then
175: oe_debug_pub.add('Grade control is false');
176: end if ;
177: END IF ;
178:
179: x_wms_enabled_flag := l_item_rec.wms_enabled_flag ;
177: END IF ;
178:
179: x_wms_enabled_flag := l_item_rec.wms_enabled_flag ;
180: if (l_debug_level >0 ) then
181: oe_debug_pub.add('WMS Enabled Flag :'||x_wms_enabled_flag);
182: end if ;
183: END IF ;
184: EXCEPTION
185: WHEN NO_DATA_FOUND THEN
186: x_grade_control_flag := 'N' ;
187: x_dual_control_flag := 'N' ;
188: x_wms_enabled_flag := 'N' ;
189: if (l_debug_level >0 ) then
190: oe_debug_pub.add('no_data_found in dual_uom_and_grade_control');
191: end if ;
192: WHEN OTHERS THEN
193: if OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
194: then
197: 'Dual_Uom_And_Grade_Control'
198: ) ;
199: end if ;
200: if (l_debug_level >0 ) then
201: oe_debug_pub.add('Others in dual_uom_and_grade_control');
202: end if ;
203: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
204:
205: END dual_uom_and_grade_control ;