DBA Data[Home] [Help]

APPS.GMI_QUANTITY_PVT dependencies on FND_API

Line 126: RAISE FND_API.G_EXC_ERROR;

122: THEN
123: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_USER_NAME');
124: FND_MESSAGE.SET_TOKEN('USER_NAME',l_user_name);
125: FND_MSG_PUB.Add;
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128:
129: -- Get required system constants
130: IC$DEFAULT_LOT := FND_PROFILE.Value_Specific( name => 'IC$DEFAULT_LOT'

Line 138: RAISE FND_API.G_EXC_ERROR;

134: THEN
135: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
136: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','IC$DEFAULT_LOT');
137: FND_MSG_PUB.Add;
138: RAISE FND_API.G_EXC_ERROR;
139: END IF;
140: IC$DEFAULT_LOCT := FND_PROFILE.Value_Specific( name => 'IC$DEFAULT_LOCT'
141: , user_id => l_user_id
142: );

Line 148: RAISE FND_API.G_EXC_ERROR;

144: THEN
145: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
146: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','IC$DEFAULT_LOCT');
147: FND_MSG_PUB.Add;
148: RAISE FND_API.G_EXC_ERROR;
149: END IF;
150: IC$ALLOWNEGINV := FND_PROFILE.Value_Specific( name => 'IC$ALLOWNEGINV'
151: , user_id => l_user_id
152: );

Line 158: RAISE FND_API.G_EXC_ERROR;

154: THEN
155: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
156: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','IC$ALLOWNEGINV');
157: FND_MSG_PUB.Add;
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
160: IC$MOVEDIFFSTAT := FND_PROFILE.Value_Specific( name => 'IC$MOVEDIFFSTAT'
161: , user_id => l_user_id
162: );

Line 168: RAISE FND_API.G_EXC_ERROR;

164: THEN
165: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_CONSTANT');
166: FND_MESSAGE.SET_TOKEN('CONSTANT_NAME','IC$MOVEDIFFSTAT');
167: FND_MSG_PUB.Add;
168: RAISE FND_API.G_EXC_ERROR;
169: END IF;
170:
171: -- Store transaction locally
172: l_trans_rec := p_trans_rec;

Line 181: RAISE FND_API.G_EXC_ERROR;

177: THEN
178: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_TRANS_TYPE');
179: FND_MESSAGE.SET_TOKEN('TRANS_TYPE',l_trans_type);
180: FND_MSG_PUB.Add;
181: RAISE FND_API.G_EXC_ERROR;
182: END IF;
183:
184: -- Check for inappropriate fields being passed for transaction type
185: -- From Warehouse

Line 194: RAISE FND_API.G_EXC_ERROR;

190: FND_MESSAGE.SET_NAME('GMI','IC_API_FROM_WHSE_NOT_REQD');
191: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
192: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
193: FND_MSG_PUB.Add;
194: RAISE FND_API.G_EXC_ERROR;
195: END IF;
196: -- To Warehouse
197: IF (l_trans_rec.to_whse_code <> ' ' AND
198: l_trans_rec.to_whse_code IS NOT NULL) AND

Line 205: RAISE FND_API.G_EXC_ERROR;

201: FND_MESSAGE.SET_NAME('GMI','IC_API_TO_WHSE_NOT_REQD');
202: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
203: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
204: FND_MSG_PUB.Add;
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: -- From Location
208: IF (l_trans_rec.from_location <> ' ' AND
209: l_trans_rec.from_location IS NOT NULL) AND

Line 216: RAISE FND_API.G_EXC_ERROR;

212: FND_MESSAGE.SET_NAME('GMI','IC_API_LOCATION_NOT_REQD');
213: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
214: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
215: FND_MSG_PUB.Add;
216: RAISE FND_API.G_EXC_ERROR;
217: END IF;
218: -- To Location
219: IF (l_trans_rec.to_location <> ' ' AND
220: l_trans_rec.to_location IS NOT NULL AND

Line 227: RAISE FND_API.G_EXC_ERROR;

223: FND_MESSAGE.SET_NAME('GMI','IC_API_LOCATION_NOT_REQD');
224: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
225: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
226: FND_MSG_PUB.Add;
227: RAISE FND_API.G_EXC_ERROR;
228: END IF;
229: -- Primary UOM
230: IF (l_trans_rec.item_um <> ' ' AND
231: l_trans_rec.item_um IS NOT NULL) AND

Line 239: RAISE FND_API.G_EXC_ERROR;

235: FND_MESSAGE.SET_NAME('GMI','IC_API_UOM_NOT_REQD');
236: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
237: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
238: FND_MSG_PUB.Add;
239: RAISE FND_API.G_EXC_ERROR;
240: END IF;
241: -- Secondary UOM
242: IF (l_trans_rec.item_um2 <> ' ' AND
243: l_trans_rec.item_um2 IS NOT NULL) AND

Line 251: RAISE FND_API.G_EXC_ERROR;

247: FND_MESSAGE.SET_NAME('GMI','IC_API_UOM2_NOT_REQD');
248: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
249: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
250: FND_MSG_PUB.Add;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
253: -- Primary qty
254: IF (l_trans_rec.trans_qty <> 0 AND
255: l_trans_rec.trans_qty IS NOT NULL) AND

Line 263: RAISE FND_API.G_EXC_ERROR;

259: FND_MESSAGE.SET_NAME('GMI','IC_API_QTY_NOT_REQD');
260: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
261: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
262: FND_MSG_PUB.Add;
263: RAISE FND_API.G_EXC_ERROR;
264: END IF;
265: -- Secondary qty
266: IF (l_trans_rec.trans_qty2 <> 0 AND
267: l_trans_rec.trans_qty2 IS NOT NULL) AND

Line 275: RAISE FND_API.G_EXC_ERROR;

271: FND_MESSAGE.SET_NAME('GMI','IC_API_QTY2_NOT_REQD');
272: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
273: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
274: FND_MSG_PUB.Add;
275: RAISE FND_API.G_EXC_ERROR;
276: END IF;
277: -- QC Grade
278: IF (l_trans_rec.qc_grade <> ' ' AND
279: l_trans_rec.qc_grade IS NOT NULL) AND

Line 286: RAISE FND_API.G_EXC_ERROR;

282: FND_MESSAGE.SET_NAME('GMI','IC_API_QC_GRADE_NOT_REQD');
283: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
284: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
285: FND_MSG_PUB.Add;
286: RAISE FND_API.G_EXC_ERROR;
287: END IF;
288: -- Lot Status
289: IF (l_trans_rec.lot_status <> ' ' AND
290: l_trans_rec.lot_status IS NOT NULL) AND

Line 297: RAISE FND_API.G_EXC_ERROR;

293: FND_MESSAGE.SET_NAME('GMI','IC_API_LOT_STATUS_NOT_REQD');
294: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
295: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
296: FND_MSG_PUB.Add;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299:
300: -- Validate Journal number
301: -- Added orgn_code to function call

Line 309: RAISE FND_API.G_EXC_ERROR;

305: THEN
306: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_JOURNAL_NO');
307: FND_MESSAGE.SET_TOKEN('JOURNAL_NO',l_trans_rec.journal_no);
308: FND_MSG_PUB.Add;
309: RAISE FND_API.G_EXC_ERROR;
310: ELSE
311: IF (l_trans_rec.journal_no = ' ' OR
312: l_trans_rec.journal_no IS NULL)
313: THEN

Line 324: RAISE FND_API.G_EXC_ERROR;

320: FND_MESSAGE.SET_NAME('GMI','IC_API_UNABLE_TO_GET_DOC_NO');
321: FND_MESSAGE.SET_TOKEN('DOC_TYPE','JRNL');
322: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_trans_rec.orgn_code);
323: FND_MSG_PUB.Add;
324: RAISE FND_API.G_EXC_ERROR;
325: END IF;
326: END IF;
327: END IF;
328:

Line 339: RAISE FND_API.G_EXC_ERROR;

335: THEN
336: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_REASON_CODE');
337: FND_MESSAGE.SET_TOKEN('REASON_CODE',l_trans_rec.reason_code);
338: FND_MSG_PUB.Add;
339: RAISE FND_API.G_EXC_ERROR;
340: END IF;
341:
342: -- Get the item details
343: GMI_GLOBAL_GRP.Get_Item ( p_item_no => l_trans_rec.item_no

Line 350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

346: );
347: -- If errors were found then raise exception
348: IF (l_ic_item_mst_rec.item_id < 0)
349: THEN
350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
351: ELSIF (l_ic_item_mst_rec.item_id = 0) OR
352: (l_ic_item_mst_rec.delete_mark = 1)
353: THEN
354: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');

Line 357: RAISE FND_API.G_EXC_ERROR;

353: THEN
354: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ITEM_NO');
355: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
356: FND_MSG_PUB.Add;
357: RAISE FND_API.G_EXC_ERROR;
358: ELSIF (l_ic_item_mst_rec.noninv_ind = 1)
359: THEN
360: FND_MESSAGE.SET_NAME('GMI','IC_API_NONINV_ITEM_NO');
361: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);

Line 363: RAISE FND_API.G_EXC_ERROR;

359: THEN
360: FND_MESSAGE.SET_NAME('GMI','IC_API_NONINV_ITEM_NO');
361: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
362: FND_MSG_PUB.Add;
363: RAISE FND_API.G_EXC_ERROR;
364: ELSIF (l_ic_item_mst_rec.inactive_ind = 1)
365: THEN
366: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
367: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);

Line 369: RAISE FND_API.G_EXC_ERROR;

365: THEN
366: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_ITEM_NO');
367: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
368: FND_MSG_PUB.Add;
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: -- Check that transaction type is applicable to item
373: -- QC grade change

Line 380: RAISE FND_API.G_EXC_ERROR;

376: FND_MESSAGE.SET_NAME('GMI','IC_API_INV_TRANS_TYPE_FOR_ITEM');
377: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
378: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
379: FND_MSG_PUB.Add;
380: RAISE FND_API.G_EXC_ERROR;
381: END IF;
382:
383: -- Lot status change
384: IF (l_ic_item_mst_rec.status_ctl = 0 AND l_trans_type = 4)

Line 390: RAISE FND_API.G_EXC_ERROR;

386: FND_MESSAGE.SET_NAME('GMI','IC_API_INV_TRANS_TYPE_FOR_ITEM');
387: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
388: FND_MESSAGE.SET_TOKEN('TRANS_TYPE', l_trans_type);
389: FND_MSG_PUB.Add;
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392:
393: -- Default unit of measure fields for status and QC grade change
394: IF (l_trans_type > 3)

Line 427: RAISE FND_API.G_EXC_ERROR;

423: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
424: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
425: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
426: FND_MSG_PUB.Add;
427: RAISE FND_API.G_EXC_ERROR;
428: END IF;
429: ELSE
430: IF (l_trans_rec.lot_no = ' ' OR
431: l_trans_rec.lot_no IS NULL)

Line 438: RAISE FND_API.G_EXC_ERROR;

434: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
435: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
436: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
437: FND_MSG_PUB.Add;
438: RAISE FND_API.G_EXC_ERROR;
439: END IF;
440: END IF;
441:
442: -- Check sub-lot parameters

Line 455: RAISE FND_API.G_EXC_ERROR;

451: THEN
452: FND_MESSAGE.SET_NAME('GMI','IC_API_SUBLOT_NOT_REQD');
453: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
454: FND_MSG_PUB.Add;
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457: END IF;
458:
459: -- Get existing lot details. If item not lot controlled then

Line 478: RAISE FND_API.G_EXC_ERROR;

474: l_trans_rec.lot_no='DEFAULTLOT')
475: THEN
476: FND_MESSAGE.SET_NAME('GMI','IC_DEFAULTLOTERR');
477: FND_MSG_PUB.Add;
478: RAISE FND_API.G_EXC_ERROR;
479: END IF;
480: END IF;
481:
482:

Line 498: RAISE FND_API.G_EXC_ERROR;

494: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
495: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
496: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
497: FND_MSG_PUB.Add;
498: RAISE FND_API.G_EXC_ERROR;
499: ELSIF (l_ic_lots_mst_rec.lot_id = -2)
500: THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;

Line 501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

497: FND_MSG_PUB.Add;
498: RAISE FND_API.G_EXC_ERROR;
499: ELSIF (l_ic_lots_mst_rec.lot_id = -2)
500: THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504: -- If the was lot not found and not creating inventory then error
505: IF (l_trans_type <> 1)

Line 514: RAISE FND_API.G_EXC_ERROR;

510: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
511: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
512: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
513: FND_MSG_PUB.Add;
514: RAISE FND_API.G_EXC_ERROR;
515: END IF;
516: ELSE
517: -- If the lot was not found when creating inventory then create it
518: IF (l_ic_lots_mst_rec.lot_id = -1)

Line 533: IF (l_return_status = FND_API.G_RET_STS_ERROR)

529: , x_msg_data => l_msg_data
530: , p_lot_rec => l_lot_rec
531: );
532: -- If errors were found then raise exception
533: IF (l_return_status = FND_API.G_RET_STS_ERROR)
534: THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
537: THEN

Line 535: RAISE FND_API.G_EXC_ERROR;

531: );
532: -- If errors were found then raise exception
533: IF (l_return_status = FND_API.G_RET_STS_ERROR)
534: THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
537: THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: END IF;

Line 536: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)

532: -- If errors were found then raise exception
533: IF (l_return_status = FND_API.G_RET_STS_ERROR)
534: THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
537: THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: END IF;
540:

Line 538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

534: THEN
535: RAISE FND_API.G_EXC_ERROR;
536: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR)
537: THEN
538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
539: END IF;
540:
541: -- Initialize message list to remove 'Lot created' message
542: FND_MSG_PUB.Initialize;

Line 570: RAISE FND_API.G_EXC_ERROR;

566: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
567: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
568: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
569: FND_MSG_PUB.Add;
570: RAISE FND_API.G_EXC_ERROR;
571: END IF;
572: ELSE
573: l_trans_rec.qc_grade :=l_ic_lots_mst_rec.qc_grade;
574: END IF;

Line 588: RAISE FND_API.G_EXC_ERROR;

584: THEN
585: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
586: FND_MESSAGE.SET_TOKEN('WHSE_CODE', l_trans_rec.from_whse_code);
587: FND_MSG_PUB.Add;
588: RAISE FND_API.G_EXC_ERROR;
589: ELSE
590: -- Check location parameters
591: IF NOT GMI_VALID_GRP.Validate_Location
592: ( p_item_loct_ctl => l_ic_item_mst_rec.loct_ctl

Line 603: RAISE FND_API.G_EXC_ERROR;

599: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_trans_rec.item_no);
600: FND_MESSAGE.SET_TOKEN('WHSE_CODE', l_trans_rec.from_whse_code);
601: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
602: FND_MSG_PUB.Add;
603: RAISE FND_API.G_EXC_ERROR;
604: ELSIF (l_trans_rec.from_location = ' ' OR
605: l_trans_rec.from_location IS NULL)
606: THEN
607: l_trans_rec.from_location := IC$DEFAULT_LOCT;

Line 628: RAISE FND_API.G_EXC_ERROR;

624: THEN
625: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_WHSE_CODE');
626: FND_MESSAGE.SET_TOKEN('WHSE_CODE', l_trans_rec.to_whse_code);
627: FND_MSG_PUB.Add;
628: RAISE FND_API.G_EXC_ERROR;
629: ELSE
630: -- Check location parameters
631: IF NOT GMI_VALID_GRP.Validate_Location
632: ( p_item_loct_ctl => l_ic_item_mst_rec.loct_ctl

Line 643: RAISE FND_API.G_EXC_ERROR;

639: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_trans_rec.item_no);
640: FND_MESSAGE.SET_TOKEN('WHSE_CODE', l_trans_rec.to_whse_code);
641: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.to_location);
642: FND_MSG_PUB.Add;
643: RAISE FND_API.G_EXC_ERROR;
644: ELSE
645: IF (l_trans_rec.to_location = ' ' OR
646: l_trans_rec.to_location IS NULL)
647: THEN

Line 661: RAISE FND_API.G_EXC_ERROR;

657: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
658: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
659: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
660: FND_MSG_PUB.Add;
661: RAISE FND_API.G_EXC_ERROR;
662: END IF;
663: -- For Change lot status 'to' warehouse and location are the same as 'from'
664: ELSIF (l_trans_type = 4)
665: THEN

Line 705: RAISE FND_API.G_EXC_ERROR;

701: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
702: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_trans_rec.from_whse_code);
703: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
704: FND_MSG_PUB.Add;
705: RAISE FND_API.G_EXC_ERROR;
706: ELSIF (l_ic_loct_inv_rec_from.item_id = 0) OR
707: (l_ic_loct_inv_rec_from.loct_onhand = 0 AND l_trans_type =4)
708: THEN
709: FND_MESSAGE.SET_NAME('GMI','IC_API_NO_LOCT_ONHAND');

Line 716: RAISE FND_API.G_EXC_ERROR;

712: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
713: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_trans_rec.from_whse_code);
714: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
715: FND_MSG_PUB.Add;
716: RAISE FND_API.G_EXC_ERROR;
717: ELSIF (l_trans_type = 2)
718: THEN
719: l_trans_rec.lot_status :=l_ic_loct_inv_rec_from.lot_status;
720: -- If adjust inventory then this will also be new lot status

Line 729: RAISE FND_API.G_EXC_ERROR;

725: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
726: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
727: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
728: FND_MSG_PUB.Add;
729: RAISE FND_API.G_EXC_ERROR;
730: ELSE
731: -- Store original lot status
732: x_old_lot_status :=l_ic_loct_inv_rec_from.lot_status;
733: END IF;

Line 749: RAISE FND_API.G_EXC_ERROR;

745: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
746: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
747: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
748: FND_MSG_PUB.Add;
749: RAISE FND_API.G_EXC_ERROR;
750: END IF;
751: END IF;
752:
753: -- Check for zero quantity

Line 763: RAISE FND_API.G_EXC_ERROR;

759: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
760: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
761: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
762: FND_MSG_PUB.Add;
763: RAISE FND_API.G_EXC_ERROR;
764: END IF;
765: IF (l_trans_rec.trans_qty2 <> 0 AND
766: l_trans_rec.trans_qty2 IS NOT NULL) AND
767: (l_ic_item_mst_rec.dualum_ind = 0 OR

Line 775: RAISE FND_API.G_EXC_ERROR;

771: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
772: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
773: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
774: FND_MSG_PUB.Add;
775: RAISE FND_API.G_EXC_ERROR;
776: END IF;
777: END IF;
778:
779: -- Check Primary UoM

Line 786: RAISE FND_API.G_EXC_ERROR;

782: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_UOM');
783: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
784: FND_MESSAGE.SET_TOKEN('UOM',l_trans_rec.item_um);
785: FND_MSG_PUB.Add;
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788:
789: -- Handle Quantities
790: -- If primary Uom differs from item primary UoM then convert

Line 817: RAISE FND_API.G_EXC_ERROR;

813: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
814: FND_MESSAGE.SET_TOKEN('FROM_UOM',l_trans_rec.item_um);
815: FND_MESSAGE.SET_TOKEN('TO_UOM',l_ic_item_mst_rec.item_um);
816: FND_MSG_PUB.Add;
817: RAISE FND_API.G_EXC_ERROR;
818: ELSE
819: l_trans_rec.item_um :=l_ic_item_mst_rec.item_um;
820: -- Reverse quantity sign if reversed above
821: IF l_neg_qty = 1

Line 854: RAISE FND_API.G_EXC_ERROR;

850: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
851: FND_MESSAGE.SET_TOKEN('FROM_UOM',l_ic_item_mst_rec.item_um);
852: FND_MESSAGE.SET_TOKEN('TO_UOM',l_ic_item_mst_rec.item_um2);
853: FND_MSG_PUB.Add;
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856: -- Reverse quantity sign if reversed above
857: IF l_neg_qty = 1
858: THEN

Line 896: RAISE FND_API.G_EXC_ERROR;

892: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
893: FND_MESSAGE.SET_TOKEN('FROM_UOM',l_trans_rec.item_um2);
894: FND_MESSAGE.SET_TOKEN('TO_UOM',l_ic_item_mst_rec.item_um2);
895: FND_MSG_PUB.Add;
896: RAISE FND_API.G_EXC_ERROR;
897: ELSE
898: l_trans_rec.item_um2 :=l_ic_item_mst_rec.item_um2;
899: -- Reverse quantity sign if reversed above
900: IF l_neg_qty = 1

Line 919: RAISE FND_API.G_EXC_ERROR;

915: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
916: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
917: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
918: FND_MSG_PUB.Add;
919: RAISE FND_API.G_EXC_ERROR;
920: END IF;
921: END IF;
922: ELSE
923: --LE fix

Line 935: RAISE FND_API.G_EXC_ERROR;

931: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
932: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
933: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
934: FND_MSG_PUB.Add;
935: RAISE FND_API.G_EXC_ERROR;
936: END IF;
937:
938: -- Check location inventory for becoming negative
939: IF (IC$ALLOWNEGINV = '0')

Line 954: RAISE FND_API.G_EXC_ERROR;

950: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
951: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_trans_rec.from_whse_code);
952: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
953: FND_MSG_PUB.Add;
954: RAISE FND_API.G_EXC_ERROR;
955: END IF;
956: END IF;
957:
958: -- Check reason type allows quantity

Line 969: RAISE FND_API.G_EXC_ERROR;

965: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
966: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
967: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
968: FND_MSG_PUB.Add;
969: RAISE FND_API.G_EXC_ERROR;
970: ELSIF ((l_sy_reas_cds_rec.reason_type = 2) AND
971: (l_trans_rec.trans_qty > 0))
972: THEN
973: FND_MESSAGE.SET_NAME('GMI','IC_API_INC_NOT_ALLOWED');

Line 978: RAISE FND_API.G_EXC_ERROR;

974: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
975: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
976: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
977: FND_MSG_PUB.Add;
978: RAISE FND_API.G_EXC_ERROR;
979: END IF;
980: END IF;
981:
982: -- Check move quantity if item is lot-indivisble

Line 994: RAISE FND_API.G_EXC_ERROR;

990: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
991: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_trans_rec.from_whse_code);
992: FND_MESSAGE.SET_TOKEN('LOCATION',l_trans_rec.from_location);
993: FND_MSG_PUB.Add;
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996:
997: -- If moving inventory, check inventory at to warehouse /location
998: IF (l_trans_type = 3)

Line 1032: RAISE FND_API.G_EXC_ERROR;

1028: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1029: FND_MESSAGE.SET_TOKEN('LOT_NO',l_trans_rec.lot_no);
1030: FND_MESSAGE.SET_TOKEN('SUBLOT_NO',l_trans_rec.sublot_no);
1031: FND_MSG_PUB.Add;
1032: RAISE FND_API.G_EXC_ERROR;
1033: END IF;
1034: ELSE
1035: l_trans_rec.lot_status := l_ic_loct_inv_rec_from.lot_status;
1036: END IF;

Line 1052: RAISE FND_API.G_EXC_ERROR;

1048: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_LOT_STATUS');
1049: FND_MESSAGE.SET_TOKEN('LOT_STATUS',l_trans_rec.lot_status);
1050: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1051: FND_MSG_PUB.Add;
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054: -- Check for unposted journals with different lot status
1055: IF Check_unposted_jnl_lot_status
1056: ( p_item_id => l_item_id

Line 1067: RAISE FND_API.G_EXC_ERROR;

1063: FND_MESSAGE.SET_NAME('GMI','IC_API_UNPOSTED_JNL_LOT_STATUS');
1064: FND_MESSAGE.SET_TOKEN('LOT_STATUS',l_trans_rec.lot_status);
1065: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1066: FND_MSG_PUB.Add;
1067: RAISE FND_API.G_EXC_ERROR;
1068: END IF;
1069: END IF;
1070:
1071: -- Validate QC grade for change QC grade transaction

Line 1082: RAISE FND_API.G_EXC_ERROR;

1078: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_QC_GRADE');
1079: FND_MESSAGE.SET_TOKEN('QC_GRADE',l_trans_rec.qc_grade);
1080: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1081: FND_MSG_PUB.Add;
1082: RAISE FND_API.G_EXC_ERROR;
1083: END IF;
1084: -- Check for unposted journals with different QC grade
1085: IF Check_unposted_jnl_qc_grade
1086: ( p_item_id => l_item_id

Line 1095: RAISE FND_API.G_EXC_ERROR;

1091: FND_MESSAGE.SET_NAME('GMI','IC_API_UNPOSTED_JNL_QC_GRADE');
1092: FND_MESSAGE.SET_TOKEN('QC_GRADE',l_trans_rec.qc_grade);
1093: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_trans_rec.item_no);
1094: FND_MSG_PUB.Add;
1095: RAISE FND_API.G_EXC_ERROR;
1096: END IF;
1097: END IF;
1098:
1099: -- Validate Company Code

Line 1105: RAISE FND_API.G_EXC_ERROR;

1101: THEN
1102: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_CO_CODE');
1103: FND_MESSAGE.SET_TOKEN('CO_CODE',l_trans_rec.co_code);
1104: FND_MSG_PUB.Add;
1105: RAISE FND_API.G_EXC_ERROR;
1106: END IF;
1107:
1108: -- Validate Organisation Code belongs to Company Code
1109: IF NOT GMA_VALID_GRP.Validate_orgn_for_company ( l_trans_rec.orgn_code

Line 1116: RAISE FND_API.G_EXC_ERROR;

1112: THEN
1113: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
1114: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_trans_rec.orgn_code);
1115: FND_MSG_PUB.Add;
1116: RAISE FND_API.G_EXC_ERROR;
1117: END IF;
1118:
1119: -- Validate Transaction Date For Transactions
1120: -- That are not type 5 - GRADE CHANGE

Line 1133: RAISE FND_API.G_EXC_ERROR;

1129: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_CLOSED');
1130: FND_MESSAGE.SET_TOKEN('ITEM_NO' , l_trans_rec.item_no);
1131: FND_MESSAGE.SET_TOKEN('TRANS_DATE', l_trans_rec.trans_date);
1132: FND_MSG_PUB.Add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: ELSIF TRUNC(l_trans_rec.trans_date, 'DD') >
1135: TRUNC(SYSDATE, 'DD')
1136: THEN
1137: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');

Line 1141: RAISE FND_API.G_EXC_ERROR;

1137: FND_MESSAGE.SET_NAME('GMI','IC_API_CANNOT_POST_FUTURE');
1138: FND_MESSAGE.SET_TOKEN('ITEM_NO' , l_trans_rec.item_no);
1139: FND_MESSAGE.SET_TOKEN('TRANS_DATE', l_trans_rec.trans_date);
1140: FND_MSG_PUB.Add;
1141: RAISE FND_API.G_EXC_ERROR;
1142: END IF;
1143:
1144: -- If no errors then move local trans_rec to output parameter
1145: x_trans_rec :=l_trans_rec;

Line 1149: WHEN FND_API.G_EXC_ERROR THEN

1145: x_trans_rec :=l_trans_rec;
1146:
1147:
1148: EXCEPTION
1149: WHEN FND_API.G_EXC_ERROR THEN
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1152: , p_data => x_msg_data
1153: );

Line 1150: x_return_status := FND_API.G_RET_STS_ERROR;

1146:
1147:
1148: EXCEPTION
1149: WHEN FND_API.G_EXC_ERROR THEN
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1152: , p_data => x_msg_data
1153: );
1154:

Line 1155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1151: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1152: , p_data => x_msg_data
1153: );
1154:
1155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1158: , p_data => x_msg_data
1159: );

Line 1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1152: , p_data => x_msg_data
1153: );
1154:
1155: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1158: , p_data => x_msg_data
1159: );
1160: WHEN OTHERS THEN

Line 1161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1157: FND_MSG_PUB.Count_AND_GET ( p_count => x_msg_count
1158: , p_data => x_msg_data
1159: );
1160: WHEN OTHERS THEN
1161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1162: -- IF FND_MSG_PUB.check_msg_level
1163: -- (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1164: -- THEN
1165: