[Home] [Help]
53: BEGIN
54: -- Standard call to check for call compatibility.
55: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version, l_api_name, g_pkg_name) THEN
56: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
57: fnd_msg_pub.ADD;
58: RAISE fnd_api.g_exc_error;
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
59: END IF;
60:
61: -- Initialize message list if p_init_msg_list is set to TRUE.
62: IF fnd_api.to_boolean(p_init_msg_list) THEN
63: fnd_msg_pub.initialize;
64: END IF;
65:
66: -- Initialize API return status to success
67: x_return_status := fnd_api.g_ret_sts_success;
79: IF ( l_debug = 1 ) THEN
80: print_debug(p_organization_id || ' is not a valid org id', 1);
81: END IF;
82: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ORG');
83: fnd_msg_pub.ADD;
84: RAISE fnd_api.g_exc_error;
85: END IF;
86:
87: l_progress := 'Validate Inventory Item ID';
92: IF (l_debug = 1) THEN
93: print_debug(p_inventory_item_id || ' is not a valid inventory item id', 1);
94: END IF;
95: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_ITEM');
96: fnd_msg_pub.ADD;
97: RAISE fnd_api.g_exc_error;
98: END IF;
99:
100: l_progress := 'Validate Quantity';
102: IF (l_debug = 1) THEN
103: print_debug(p_quantity ||' is not a valid quantity', 1);
104: END IF;
105: fnd_message.set_name('WMS', 'WMS_INVALID_QTY');
106: fnd_msg_pub.ADD;
107: RAISE fnd_api.g_exc_error;
108: END IF;
109:
110: l_progress := 'Validate UOM code';
114: IF ( l_debug = 1 ) THEN
115: print_debug(p_uom_code || ' is an invalid UOM', 1);
116: END IF;
117: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_UOM');
118: fnd_msg_pub.ADD;
119: RAISE fnd_api.g_exc_error;
120: END IF;
121: END IF;
122:
154: IF (l_debug = 1) THEN
155: print_debug('Secondary UOM is not defined for this secondary priced item', 1);
156: END IF;
157: fnd_message.set_name('WMS', 'WMS_SEC_UOM_UNDEF_ERROR');
158: fnd_msg_pub.ADD;
159: RAISE FND_API.G_EXC_ERROR;
160: END IF;
161:
162: l_progress := 'Converting secondary qty';
175: fnd_message.set_name('INV', 'INV_UOM_CONVERSION_ERROR');
176: fnd_message.set_token('uom1', p_uom_code);
177: fnd_message.set_token('uom2', x_secondary_uom_code);
178: fnd_message.set_token('module', l_api_name);
179: fnd_msg_pub.ADD;
180: RAISE FND_API.G_EXC_ERROR;
181: END IF;
182: l_progress := 'Done converting secondary qty';
183: ELSE
189: print_debug(l_api_name || ' Exited ret='||l_ont_pricing_qty_source, 1);
190: print_debug('secqty='||x_secondary_quantity||' secuom='||x_secondary_uom_code, 4);
191: END IF;
192:
193: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
194:
195: RETURN l_ont_pricing_qty_source;
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
195: RETURN l_ont_pricing_qty_source;
196: EXCEPTION
197: WHEN FND_API.G_EXC_ERROR THEN
198: x_return_status := fnd_api.g_ret_sts_error;
199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
200: IF (l_debug = 1) THEN
201: FOR i in 1..x_msg_count LOOP
202: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
203: END LOOP;
198: x_return_status := fnd_api.g_ret_sts_error;
199: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
200: IF (l_debug = 1) THEN
201: FOR i in 1..x_msg_count LOOP
202: l_msgdata := substr(l_msgdata||' | '||substr(fnd_msg_pub.get(x_msg_count-i+1, 'F'), 0, 200),1,2000);
203: END LOOP;
204: print_debug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), 1);
205: print_debug('msg: '||l_msgdata, 1);
206: END IF;
206: END IF;
207: RETURN NULL;
208: WHEN OTHERS THEN
209: x_return_status := fnd_api.g_ret_sts_unexp_error;
210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
211: IF (l_debug = 1) THEN
212: print_debug(l_api_name ||' Error progress= '||l_progress||'SQL error: '|| SQLERRM(SQLCODE), 1);
213: END IF;
214: RETURN NULL;