[Home] [Help]
104: 'Entering ' || l_api_name );
105: END IF;
106:
107: IF FND_API.to_boolean(p_init_msg_list) THEN
108: FND_MSG_PUB.Initialize;
109: END IF;
110:
111: -- Standard call to check for call compatibility.
112: IF NOT FND_API.Compatible_API_Call ( l_api_version,
135: --item not an opm item do nothing just return
136: CLOSE Cr_get_opm_attr;
137: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
138: FND_MESSAGE.SET_TOKEN('ITEM',p_item_no);
139: FND_MSG_PUB.ADD;
140: RAISE FND_API.G_EXC_ERROR;
141: END IF;
142: CLOSE Cr_get_opm_attr;
143: l_progress := '002';
155: --If unit of measure is not passed the error out.
156: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
157: FND_MESSAGE.SET_TOKEN('UOM','NULL');
158: FND_MESSAGE.SET_TOKEN('ITEM',p_item_no);
159: FND_MSG_PUB.ADD;
160: RAISE FND_API.G_EXC_ERROR;
161: END;
162: ELSE
163: --If unit of measure is not passed the error out.
163: --If unit of measure is not passed the error out.
164: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
165: FND_MESSAGE.SET_TOKEN('UOM','NULL');
166: FND_MESSAGE.SET_TOKEN('ITEM',p_item_no);
167: FND_MSG_PUB.ADD;
168: RAISE FND_API.G_EXC_ERROR;
169: END IF;
170: l_progress := '004';
171: --Validate secondary unit of measure passed in case validate ind is 'Y' (receiving preprocessor)
172: IF p_secondary_unit_of_measure is NOT NULL and p_validate_ind = 'Y' THEN
173: l_passed_opm_sec_um_code := po_gml_db_common.get_opm_uom_code(p_secondary_unit_of_measure);
174:
175: -- bug# 3442888. If items secondary unit of measure is different than ROI secondary unit of
176: -- measure then error message is not put on the stack since fnd_msg_pub.add was missing.
177: -- adding fnd_msg_pub.add
178: IF l_opm_secondary_um <> l_passed_opm_sec_um_code THEN
179: --return error cause the secondary unit of measure does not match the items definition
180: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
173: l_passed_opm_sec_um_code := po_gml_db_common.get_opm_uom_code(p_secondary_unit_of_measure);
174:
175: -- bug# 3442888. If items secondary unit of measure is different than ROI secondary unit of
176: -- measure then error message is not put on the stack since fnd_msg_pub.add was missing.
177: -- adding fnd_msg_pub.add
178: IF l_opm_secondary_um <> l_passed_opm_sec_um_code THEN
179: --return error cause the secondary unit of measure does not match the items definition
180: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
181: FND_MESSAGE.SET_TOKEN('UOM',p_secondary_unit_of_measure);
179: --return error cause the secondary unit of measure does not match the items definition
180: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
181: FND_MESSAGE.SET_TOKEN('UOM',p_secondary_unit_of_measure);
182: FND_MESSAGE.SET_TOKEN('ITEM',p_item_no);
183: FND_MSG_PUB.ADD;
184: RAISE FND_API.G_EXC_ERROR;
185: END IF;
186: ELSIF p_secondary_unit_of_measure is NULL and p_validate_ind = 'Y' THEN
187: --in case validate ind is 'Y' then derive the secondary unit of measure.
217: 0 );
218:
219: IF v_ret_val in (-68) THEN
220: FND_MESSAGE.SET_NAME( 'GMI','IC_DEVIATION_HI_ERR');
221: FND_MSG_PUB.Add;
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF v_ret_val in (-69) THEN
224: FND_MESSAGE.SET_NAME( 'GMI','IC_DEVIATION_LOW_ERR');
225: FND_MSG_PUB.Add;
221: FND_MSG_PUB.Add;
222: RAISE FND_API.G_EXC_ERROR;
223: ELSIF v_ret_val in (-69) THEN
224: FND_MESSAGE.SET_NAME( 'GMI','IC_DEVIATION_LOW_ERR');
225: FND_MSG_PUB.Add;
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF ( v_ret_val < 0 ) THEN
228: FND_MESSAGE.SET_NAME( 'GMI','CONV_ERROR');
229: FND_MSG_PUB.Add;
225: FND_MSG_PUB.Add;
226: RAISE FND_API.G_EXC_ERROR;
227: ELSIF ( v_ret_val < 0 ) THEN
228: FND_MESSAGE.SET_NAME( 'GMI','CONV_ERROR');
229: FND_MSG_PUB.Add;
230: RAISE FND_API.G_EXC_ERROR;
231: END IF;
232: END IF; /*l_opm_dualum_ind = 1 */
233: END IF;/*p_validate_ind = 'N' or p_secondary_quantity IS NULL */
234: END IF; /*l_opm_um_code is NOT NULL and l_opm_secondary_um IS NOT NULL */
235: l_progress := '006';
236: END IF; /*(p_secondary_quantity IS NULL AND p_.....*/
237:
238: FND_MSG_PUB.Count_AND_GET(p_count=>x_msg_count, p_data=>x_msg_data);
239:
240: --yannamal bug4189249 Feb 17 2005 Added check to debug level before logging
241: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.string( FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name,
245:
246: EXCEPTION
247: WHEN FND_API.G_EXC_ERROR THEN
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
253: WHEN OTHERS THEN
248: x_return_status := FND_API.G_RET_STS_ERROR;
249: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
250: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
253: WHEN OTHERS THEN
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
256: --yannamal bug4189249 Feb 17 2005 Added check to debug level before logging
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
253: WHEN OTHERS THEN
254: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
255: FND_MSG_PUB.Count_AND_GET(p_count => x_msg_count, p_data => x_msg_data);
256: --yannamal bug4189249 Feb 17 2005 Added check to debug level before logging
257: IF (g_fnd_debug = 'Y' and FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
258: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED,
259: g_module_prefix || l_api_name || '.' || l_progress, x_msg_data);