148:
149: IF p_ic_item_mst_row.item_id = 0 OR
150: p_ic_item_mst_row.delete_mark = 1
151: THEN
152: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
153: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
154: FND_MSG_PUB.Add;
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF p_ic_item_mst_row.inactive_ind = 1
149: IF p_ic_item_mst_row.item_id = 0 OR
150: p_ic_item_mst_row.delete_mark = 1
151: THEN
152: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
153: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
154: FND_MSG_PUB.Add;
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF p_ic_item_mst_row.inactive_ind = 1
157: AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
155: RAISE FND_API.G_EXC_ERROR;
156: ELSIF p_ic_item_mst_row.inactive_ind = 1
157: AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
158: THEN
159: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
160: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
161: FND_MSG_PUB.Add;
162: x_return_status :=FND_API.G_RET_STS_ERROR;
163: RAISE FND_API.G_EXC_ERROR;
156: ELSIF p_ic_item_mst_row.inactive_ind = 1
157: AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
158: THEN
159: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
160: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
161: FND_MSG_PUB.Add;
162: x_return_status :=FND_API.G_RET_STS_ERROR;
163: RAISE FND_API.G_EXC_ERROR;
164: END IF;
166: IF
167: p_ic_lots_mst_row.delete_mark = 1 OR
168: p_ic_lots_mst_row.inactive_ind = 1 AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
169: THEN
170: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_NO');
171: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
172: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
173: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
174: FND_MSG_PUB.Add;
167: p_ic_lots_mst_row.delete_mark = 1 OR
168: p_ic_lots_mst_row.inactive_ind = 1 AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
169: THEN
170: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_NO');
171: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
172: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
173: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
174: FND_MSG_PUB.Add;
175: RAISE FND_API.G_EXC_ERROR;
168: p_ic_lots_mst_row.inactive_ind = 1 AND GMIGUTL.IC$API_ALLOW_INACTIVE = 0
169: THEN
170: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_NO');
171: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
172: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
173: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
174: FND_MSG_PUB.Add;
175: RAISE FND_API.G_EXC_ERROR;
176: END IF;
169: THEN
170: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_NO');
171: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
172: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
173: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
174: FND_MSG_PUB.Add;
175: RAISE FND_API.G_EXC_ERROR;
176: END IF;
177:
179: -- Validate Primary Unit of Measure
180:
181: IF NOT GMA_VALID_GRP.Validate_um(l_rec_from_um)
182: THEN
183: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
185: FND_MESSAGE.SET_TOKEN('UOM',l_rec_from_um);
186: FND_MSG_PUB.Add;
187: RAISE FND_API.G_EXC_ERROR;
180:
181: IF NOT GMA_VALID_GRP.Validate_um(l_rec_from_um)
182: THEN
183: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
185: FND_MESSAGE.SET_TOKEN('UOM',l_rec_from_um);
186: FND_MSG_PUB.Add;
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
181: IF NOT GMA_VALID_GRP.Validate_um(l_rec_from_um)
182: THEN
183: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
184: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
185: FND_MESSAGE.SET_TOKEN('UOM',l_rec_from_um);
186: FND_MSG_PUB.Add;
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189:
191: -- Validate Secondary Unit of Measure
192:
193: IF NOT GMA_VALID_GRP.Validate_um(l_rec_to_um)
194: THEN
195: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
196: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
197: FND_MESSAGE.SET_TOKEN('UOM',l_rec_to_um);
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
192:
193: IF NOT GMA_VALID_GRP.Validate_um(l_rec_to_um)
194: THEN
195: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
196: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
197: FND_MESSAGE.SET_TOKEN('UOM',l_rec_to_um);
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
193: IF NOT GMA_VALID_GRP.Validate_um(l_rec_to_um)
194: THEN
195: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
196: FND_MESSAGE.SET_TOKEN('ITEM_NO',p_item_cnv_rec.item_no);
197: FND_MESSAGE.SET_TOKEN('UOM',l_rec_to_um);
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201:
206: l_type_factorrev := 1 / p_item_cnv_rec.type_factor;
207:
208: IF (l_factor <= 0)
209: THEN
210: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_TYPE_FACTOR');
211: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
212: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
213: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
214: FND_MSG_PUB.Add;
207:
208: IF (l_factor <= 0)
209: THEN
210: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_TYPE_FACTOR');
211: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
212: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
213: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
214: FND_MSG_PUB.Add;
215: RAISE FND_API.G_EXC_ERROR;
208: IF (l_factor <= 0)
209: THEN
210: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_TYPE_FACTOR');
211: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
212: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
213: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
214: FND_MSG_PUB.Add;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
209: THEN
210: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_TYPE_FACTOR');
211: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
212: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
213: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
214: FND_MSG_PUB.Add;
215: RAISE FND_API.G_EXC_ERROR;
216: END IF;
217:
247: /* Check that the from UoM type differs from the to UoM type. If not then */
248: /* error and exit */
249: IF l_from_type = l_to_type
250: THEN
251: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
252: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
253: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
254: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
255: FND_MSG_PUB.Add;
248: /* error and exit */
249: IF l_from_type = l_to_type
250: THEN
251: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
252: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
253: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
254: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
255: FND_MSG_PUB.Add;
256: RAISE FND_API.G_EXC_ERROR;
249: IF l_from_type = l_to_type
250: THEN
251: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
252: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
253: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
254: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
255: FND_MSG_PUB.Add;
256: RAISE FND_API.G_EXC_ERROR;
257: END IF;
250: THEN
251: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
252: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
253: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
254: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
255: FND_MSG_PUB.Add;
256: RAISE FND_API.G_EXC_ERROR;
257: END IF;
258:
281: l_to_um := l_rec_from_um;
282: l_to_std_um := l_from_std;
283: l_from_std_um := l_to_std;
284: ELSE
285: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
286: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
287: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
288: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
289: FND_MSG_PUB.Add;
282: l_to_std_um := l_from_std;
283: l_from_std_um := l_to_std;
284: ELSE
285: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
286: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
287: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
288: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
289: FND_MSG_PUB.Add;
290: RAISE FND_API.G_EXC_ERROR;
283: l_from_std_um := l_to_std;
284: ELSE
285: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
286: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
287: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
288: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
289: FND_MSG_PUB.Add;
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
284: ELSE
285: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_ITEM_UOM_MISMATCH');
286: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
287: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
288: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
289: FND_MSG_PUB.Add;
290: RAISE FND_API.G_EXC_ERROR;
291: END IF;
292:
309: ,patomic => 0
310: );
311: IF (l_factor < 0)
312: THEN
313: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
310: );
311: IF (l_factor < 0)
312: THEN
313: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
318: FND_MESSAGE.SET_TOKEN('UM2', l_from_std_um);
311: IF (l_factor < 0)
312: THEN
313: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
318: FND_MESSAGE.SET_TOKEN('UM2', l_from_std_um);
319: FND_MSG_PUB.Add;
312: THEN
313: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
318: FND_MESSAGE.SET_TOKEN('UM2', l_from_std_um);
319: FND_MSG_PUB.Add;
320: RAISE FND_API.G_EXC_ERROR;
313: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
318: FND_MESSAGE.SET_TOKEN('UM2', l_from_std_um);
319: FND_MSG_PUB.Add;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
314: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
315: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
316: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
317: FND_MESSAGE.SET_TOKEN('UM1', l_from_um);
318: FND_MESSAGE.SET_TOKEN('UM2', l_from_std_um);
319: FND_MSG_PUB.Add;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322:
338: ,patomic => 0
339: );
340: IF (l_factor < 0)
341: THEN
342: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
339: );
340: IF (l_factor < 0)
341: THEN
342: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
347: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
340: IF (l_factor < 0)
341: THEN
342: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
347: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
348: FND_MSG_PUB.Add;
341: THEN
342: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
347: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
348: FND_MSG_PUB.Add;
349: RAISE FND_API.G_EXC_ERROR;
342: FND_MESSAGE.SET_NAME('GMI','IC_API_ITEM_LOT_UOM_FAILED');
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
347: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
348: FND_MSG_PUB.Add;
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
343: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
344: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
345: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
346: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
347: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
348: FND_MSG_PUB.Add;
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351:
379: CLOSE Cur_journal;
380: END IF;
381: END IF;
382: IF (X_count > 0) THEN
383: FND_MESSAGE.SET_NAME('GMI','GMI_LOTCONV_TRANSACTIONS_EXIST');
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
380: END IF;
381: END IF;
382: IF (X_count > 0) THEN
383: FND_MESSAGE.SET_NAME('GMI','GMI_LOTCONV_TRANSACTIONS_EXIST');
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
388: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
381: END IF;
382: IF (X_count > 0) THEN
383: FND_MESSAGE.SET_NAME('GMI','GMI_LOTCONV_TRANSACTIONS_EXIST');
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
388: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
389: FND_MSG_PUB.Add;
382: IF (X_count > 0) THEN
383: FND_MESSAGE.SET_NAME('GMI','GMI_LOTCONV_TRANSACTIONS_EXIST');
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
388: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
389: FND_MSG_PUB.Add;
390: RAISE FND_API.G_EXC_ERROR;
383: FND_MESSAGE.SET_NAME('GMI','GMI_LOTCONV_TRANSACTIONS_EXIST');
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
388: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
389: FND_MSG_PUB.Add;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
384: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
385: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
386: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
387: FND_MESSAGE.SET_TOKEN('UM1', l_to_um);
388: FND_MESSAGE.SET_TOKEN('UM2', l_to_std_um);
389: FND_MSG_PUB.Add;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392: END IF;
416: EXCEPTION
417:
418: WHEN NO_DATA_FOUND
419: THEN
420: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_UOM');
421: FND_MESSAGE.SET_TOKEN('UOM', p_item_cnv_rec.from_uom);
422: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
423: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
424: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
417:
418: WHEN NO_DATA_FOUND
419: THEN
420: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_UOM');
421: FND_MESSAGE.SET_TOKEN('UOM', p_item_cnv_rec.from_uom);
422: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
423: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
424: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
425: FND_MSG_PUB.Add;
418: WHEN NO_DATA_FOUND
419: THEN
420: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_UOM');
421: FND_MESSAGE.SET_TOKEN('UOM', p_item_cnv_rec.from_uom);
422: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
423: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
424: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
425: FND_MSG_PUB.Add;
426: x_return_status := FND_API.G_RET_STS_ERROR;
419: THEN
420: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_UOM');
421: FND_MESSAGE.SET_TOKEN('UOM', p_item_cnv_rec.from_uom);
422: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
423: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
424: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
425: FND_MSG_PUB.Add;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
420: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_UOM');
421: FND_MESSAGE.SET_TOKEN('UOM', p_item_cnv_rec.from_uom);
422: FND_MESSAGE.SET_TOKEN('ITEM_NO', p_item_cnv_rec.item_no);
423: FND_MESSAGE.SET_TOKEN('LOT_NO', p_item_cnv_rec.lot_no);
424: FND_MESSAGE.SET_TOKEN('SUBLOT_NO', p_item_cnv_rec.sublot_no);
425: FND_MSG_PUB.Add;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
428: , p_data => x_msg_data