eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GMI_OM_ALLOC_API_PUB dependencies on FND_API

Line 39: | p_init_msg_list FND_API.G_TRUE to reset list

35: /***************************************************************************/
36: /*
37: | PARAMETERS:
38: | p_api_version Known api version
39: | p_init_msg_list FND_API.G_TRUE to reset list
40: | p_commit Commit flag. API commits if this is set.
41: | x_return_status Return status
42: | x_msg_count Number of messages in the list
43: | x_msg_data Text of messages

Line 116: l_error_flag VARCHAR2(1) DEFAULT FND_API.G_FALSE;

112: l_ic_lots_mst_rec ic_lots_mst%ROWTYPE;
113: l_message VARCHAR2(1000);
114: i NUMBER;
115: l_epsilon NUMBER;
116: l_error_flag VARCHAR2(1) DEFAULT FND_API.G_FALSE;
117: l_return_val NUMBER:=0;
118: n NUMBER;
119:
120:

Line 267: x_return_status := FND_API.G_RET_STS_SUCCESS;

263: BEGIN
264:
265: /*Init variables
266: =========================================*/
267: x_return_status := FND_API.G_RET_STS_SUCCESS;
268: l_default_lot := FND_PROFILE.VALUE('IC$DEFAULT_LOT');
269: l_default_location := FND_PROFILE.VALUE('IC$DEFAULT_LOCT');
270: l_allow_negative_inv := FND_PROFILE.VALUE('IC$ALLOWNEGINV');
271: l_overpick_enabled := FND_PROFILE.VALUE('WSH_OVERPICK_ENABLED');

Line 291: IF NOT FND_API.compatible_api_call (

287:
288: /*Standard call to check for call compatibility.
289: ==============================================*/
290:
291: IF NOT FND_API.compatible_api_call (
292: l_api_version,
293: p_api_version,
294: l_api_name,
295: G_PKG_NAME)

Line 297: PrintMsg('FND_API.compatible_api_call failed');

293: p_api_version,
294: l_api_name,
295: G_PKG_NAME)
296: THEN
297: PrintMsg('FND_API.compatible_api_call failed');
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: END IF;
300:
301:

Line 298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

294: l_api_name,
295: G_PKG_NAME)
296: THEN
297: PrintMsg('FND_API.compatible_api_call failed');
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: END IF;
300:
301:
302:

Line 305: IF FND_API.to_boolean(p_init_msg_list)

301:
302:
303: /* Check p_init_msg_list
304: =========================================*/
305: IF FND_API.to_boolean(p_init_msg_list)
306: THEN
307: FND_MSG_PUB.initialize;
308: END IF;
309:

Line 361: RAISE FND_API.G_EXC_ERROR;

357: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_ACTION_CODE');
358: FND_MESSAGE.SET_TOKEN('ACTION_CODE ',l_tran_rec.action_code );
359: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
360: FND_MSG_PUB.Add;
361: RAISE FND_API.G_EXC_ERROR;
362: END IF;
363:
364: /*====================================
365: Validations

Line 376: l_error_flag := FND_API.G_TRUE;

372: THEN
373: IF( NVL(l_tran_rec.trans_id,0) = 0 )
374: THEN
375: PrintMsg('ERROR - Validation failed for trans_id');
376: l_error_flag := FND_API.G_TRUE;
377: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_ID_REQUIRED');
378: FND_MESSAGE.SET_TOKEN('ACTION_CODE ',l_tran_rec.action_code );
379: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
380: FND_MSG_PUB.Add;

Line 381: RAISE FND_API.G_EXC_ERROR;

377: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_ID_REQUIRED');
378: FND_MESSAGE.SET_TOKEN('ACTION_CODE ',l_tran_rec.action_code );
379: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
380: FND_MSG_PUB.Add;
381: RAISE FND_API.G_EXC_ERROR;
382: END IF;
383: ELSIF( NVL(l_tran_rec.trans_id,0) <> 0)
384: THEN
385: PrintMsg('ERROR - Trans_id not required for INSERT');

Line 386: l_error_flag := FND_API.G_TRUE;

382: END IF;
383: ELSIF( NVL(l_tran_rec.trans_id,0) <> 0)
384: THEN
385: PrintMsg('ERROR - Trans_id not required for INSERT');
386: l_error_flag := FND_API.G_TRUE;
387: FND_MESSAGE.SET_NAME('GMI','GMI_API_TRANS_ID_NOT_REQUIRED');
388: FND_MESSAGE.SET_TOKEN('ACTION_CODE ',l_tran_rec.action_code );
389: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
390: FND_MSG_PUB.Add;

Line 391: RAISE FND_API.G_EXC_ERROR;

387: FND_MESSAGE.SET_NAME('GMI','GMI_API_TRANS_ID_NOT_REQUIRED');
388: FND_MESSAGE.SET_TOKEN('ACTION_CODE ',l_tran_rec.action_code );
389: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
390: FND_MSG_PUB.Add;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
394: IF( UPPER(NVL(l_tran_rec.action_code,'N')) IN ('DELETE','UPDATE') AND
395: NVL(l_tran_rec.trans_id,0) <> 0 )

Line 405: l_error_flag := FND_API.G_TRUE;

401: IF( validate_trans_id_cur%NOTFOUND)
402: THEN
403: CLOSE validate_trans_id_cur;
404: PrintMsg('ERROR - Invalid Trans_id for action code : '||l_tran_rec.action_code);
405: l_error_flag := FND_API.G_TRUE;
406: FND_MESSAGE.SET_NAME('GML','GMI_API_INVALID_TRANS_ID');
407: FND_MESSAGE.SET_TOKEN('TRANS_ID',l_tran_rec.trans_id );
408: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.LINE_ID );
409: FND_MSG_PUB.Add;

Line 410: RAISE FND_API.G_EXC_ERROR;

406: FND_MESSAGE.SET_NAME('GML','GMI_API_INVALID_TRANS_ID');
407: FND_MESSAGE.SET_TOKEN('TRANS_ID',l_tran_rec.trans_id );
408: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.LINE_ID );
409: FND_MSG_PUB.Add;
410: RAISE FND_API.G_EXC_ERROR;
411: ELSIF (l_delete_mark = 1)
412: THEN
413: CLOSE validate_trans_id_cur;
414: PrintMsg('ERROR - Invalid Trans_id Transaction is already deleted : '||l_tran_rec.trans_id);

Line 415: l_error_flag := FND_API.G_TRUE;

411: ELSIF (l_delete_mark = 1)
412: THEN
413: CLOSE validate_trans_id_cur;
414: PrintMsg('ERROR - Invalid Trans_id Transaction is already deleted : '||l_tran_rec.trans_id);
415: l_error_flag := FND_API.G_TRUE;
416: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_DELETED');
417: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
418: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
419: FND_MSG_PUB.Add;

Line 420: RAISE FND_API.G_EXC_ERROR;

416: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_DELETED');
417: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
418: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
419: FND_MSG_PUB.Add;
420: RAISE FND_API.G_EXC_ERROR;
421: ELSIF (l_completed_ind = 1)
422: THEN
423: CLOSE validate_trans_id_cur;
424: PrintMsg('ERROR - Invalid Trans_id Transaction is already completed : '||l_tran_rec.trans_id);

Line 425: l_error_flag := FND_API.G_TRUE;

421: ELSIF (l_completed_ind = 1)
422: THEN
423: CLOSE validate_trans_id_cur;
424: PrintMsg('ERROR - Invalid Trans_id Transaction is already completed : '||l_tran_rec.trans_id);
425: l_error_flag := FND_API.G_TRUE;
426: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_COMPLETED');
427: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
428: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
429: FND_MSG_PUB.Add;

Line 430: RAISE FND_API.G_EXC_ERROR;

426: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_COMPLETED');
427: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
428: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
429: FND_MSG_PUB.Add;
430: RAISE FND_API.G_EXC_ERROR;
431: ELSIF (l_staged_ind = 1)
432: THEN
433: CLOSE validate_trans_id_cur;
434: PrintMsg('ERROR - Invalid Trans_id Transaction is already staged : '||l_tran_rec.trans_id);

Line 435: l_error_flag := FND_API.G_TRUE;

431: ELSIF (l_staged_ind = 1)
432: THEN
433: CLOSE validate_trans_id_cur;
434: PrintMsg('ERROR - Invalid Trans_id Transaction is already staged : '||l_tran_rec.trans_id);
435: l_error_flag := FND_API.G_TRUE;
436: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_STAGED');
437: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
438: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
439: FND_MSG_PUB.Add;

Line 440: RAISE FND_API.G_EXC_ERROR;

436: FND_MESSAGE.SET_NAME('GML','GMI_API_TRANS_STAGED');
437: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id );
438: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id );
439: FND_MSG_PUB.Add;
440: RAISE FND_API.G_EXC_ERROR;
441: END IF;
442:
443:
444: END IF; /* action code 'DELETE' OR 'UPDATE' and trans_id <>0) */

Line 455: l_error_flag := FND_API.G_TRUE;

451: ==============*/
452: IF (NVL(l_tran_rec.line_id,0) = 0 )
453: THEN
454: PrintMsg('ERROR - validation failed on line id');
455: l_error_flag := FND_API.G_TRUE;
456: FND_MESSAGE.SET_NAME('GMI','MISSING');
457: FND_MESSAGE.SET_TOKEN('MISSING','line_id');
458: FND_MSG_PUB.Add;
459: RAISE FND_API.G_EXC_ERROR;

Line 459: RAISE FND_API.G_EXC_ERROR;

455: l_error_flag := FND_API.G_TRUE;
456: FND_MESSAGE.SET_NAME('GMI','MISSING');
457: FND_MESSAGE.SET_TOKEN('MISSING','line_id');
458: FND_MSG_PUB.Add;
459: RAISE FND_API.G_EXC_ERROR;
460: ELSE
461:
462: OPEN oe_order_lines_cur(l_tran_rec.line_id);
463: FETCH oe_order_lines_cur INTO l_line_status,l_inventory_item_id,

Line 470: l_error_flag := FND_API.G_TRUE;

466:
467: IF(oe_order_lines_cur%NOTFOUND)
468: THEN
469: PrintMsg('ERROR - in oe_order_lines_cur%NOTFOUND : Invalid line_id');
470: l_error_flag := FND_API.G_TRUE;
471: CLOSE oe_order_lines_cur;
472: FND_MESSAGE.SET_NAME('GML','GMI_API_INVALID_LINE_ID');
473: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
474: FND_MSG_PUB.Add;

Line 475: RAISE FND_API.G_EXC_ERROR;

471: CLOSE oe_order_lines_cur;
472: FND_MESSAGE.SET_NAME('GML','GMI_API_INVALID_LINE_ID');
473: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
474: FND_MSG_PUB.Add;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: PrintMsg('Quantity1 on the Sales Order Line is : '|| l_ordered_quantity);
479: PrintMsg('Quantity2 on the Sales Order Line is : '|| l_ordered_quantity2);

Line 496: l_error_flag := FND_API.G_TRUE;

492: l_line_status = 'FULFILLED' OR l_line_status = 'SHIPPED')
493: THEN
494:
495: PrintMsg('ERROR - Invalid line_status : '||l_line_status);
496: l_error_flag := FND_API.G_TRUE;
497: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LINE_STATUS');
498: FND_MESSAGE.SET_TOKEN('LINE_STATUS ',l_line_status);
499: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
500: FND_MSG_PUB.Add;

Line 501: RAISE FND_API.G_EXC_ERROR;

497: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LINE_STATUS');
498: FND_MESSAGE.SET_TOKEN('LINE_STATUS ',l_line_status);
499: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
500: FND_MSG_PUB.Add;
501: RAISE FND_API.G_EXC_ERROR;
502:
503: END IF;
504:
505: l_pick_lots_rec.line_id := l_tran_rec.line_id;

Line 539: l_error_flag := FND_API.G_TRUE;

535:
536: IF (l_line_id <> l_tran_rec.line_id)
537: THEN
538: PrintMsg('ERROR - Invalid line_detail_id : '||l_line_detail_id);
539: l_error_flag := FND_API.G_TRUE;
540: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LINE_DETAIL_ID');
541: FND_MESSAGE.SET_TOKEN('LINE_DETAIL_ID ',l_tran_rec.line_detail_id);
542: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
543: FND_MSG_PUB.Add; /**** Define this message ****/

Line 544: RAISE FND_API.G_EXC_ERROR;

540: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LINE_DETAIL_ID');
541: FND_MESSAGE.SET_TOKEN('LINE_DETAIL_ID ',l_tran_rec.line_detail_id);
542: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
543: FND_MSG_PUB.Add; /**** Define this message ****/
544: RAISE FND_API.G_EXC_ERROR;
545: END IF;
546:
547: l_pick_lots_rec.line_detail_id := l_tran_rec.line_detail_id;
548:

Line 580: l_error_flag := FND_API.G_TRUE;

576: IF ( l_count > 1 )
577: THEN
578: PrintMsg(' There are more than one delivery lines for this line_id : '||
579: l_tran_rec.line_id || 'Please specify one');
580: l_error_flag := FND_API.G_TRUE;
581: FND_MESSAGE.SET_NAME('GMI','MISSING');
582: FND_MESSAGE.SET_TOKEN('MISSING','Line_detail_id');
583: FND_MSG_PUB.Add;
584: RAISE FND_API.G_EXC_ERROR;

Line 584: RAISE FND_API.G_EXC_ERROR;

580: l_error_flag := FND_API.G_TRUE;
581: FND_MESSAGE.SET_NAME('GMI','MISSING');
582: FND_MESSAGE.SET_TOKEN('MISSING','Line_detail_id');
583: FND_MSG_PUB.Add;
584: RAISE FND_API.G_EXC_ERROR;
585: ELSIF (l_count = 1)
586: THEN
587: OPEN line_detail_id_cur(l_tran_rec.line_id);
588: FETCH line_detail_id_cur INTO l_line_detail_id,l_mo_line_id;

Line 594: l_error_flag := FND_API.G_TRUE;

590: IF(line_detail_id_cur%NOTFOUND)
591: THEN
592: PrintMsg('ERROR - line_detail_id_cur%NOTFOUND for line_id'||
593: l_tran_rec.line_id);
594: l_error_flag := FND_API.G_TRUE;
595: CLOSE line_detail_id_cur;
596: FND_MESSAGE.SET_NAME('GMI','MISSING');
597: FND_MESSAGE.SET_TOKEN('MISSING','Line_detail_id');
598: FND_MSG_PUB.Add;

Line 599: RAISE FND_API.G_EXC_ERROR;

595: CLOSE line_detail_id_cur;
596: FND_MESSAGE.SET_NAME('GMI','MISSING');
597: FND_MESSAGE.SET_TOKEN('MISSING','Line_detail_id');
598: FND_MSG_PUB.Add;
599: RAISE FND_API.G_EXC_ERROR;
600:
601: END IF;
602:
603: IF(line_detail_id_cur%ISOPEN)

Line 632: l_error_flag := FND_API.G_TRUE;

628: IF (reas_code_cur%NOTFOUND)
629: THEN
630: PrintMsg('ERROR - Invalid reason_ code : '||l_tran_rec.reason_code);
631: CLOSE reas_code_cur;
632: l_error_flag := FND_API.G_TRUE;
633: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_REASON_CODE');
634: FND_MESSAGE.SET_TOKEN('REASON_CODE ',l_tran_rec.reason_code);
635: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
636: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id);

Line 639: RAISE FND_API.G_EXC_ERROR;

635: FND_MESSAGE.SET_TOKEN('LINE_ID ',l_tran_rec.line_id);
636: FND_MESSAGE.SET_TOKEN('TRANS_ID ',l_tran_rec.trans_id);
637: FND_MESSAGE.SET_TOKEN('LINE_DETAIL_ID ',l_tran_rec.line_detail_id);
638: FND_MSG_PUB.Add;
639: RAISE FND_API.G_EXC_ERROR;
640: END IF;
641:
642: IF(reas_code_cur%ISOPEN)
643: THEN

Line 664: l_error_flag := FND_API.G_TRUE;

660: IF(ic_whse_mst_cur%NOTFOUND)
661: THEN
662: PrintMsg('ic_whse_mst_cur%NOTFOUND for Organization '||l_ship_from_org_id);
663: CLOSE ic_whse_mst_cur;
664: l_error_flag := FND_API.G_TRUE;
665: FND_MESSAGE.SET_NAME('GMI','GMI_API_WHSE_NOT_FOUND');
666: FND_MESSAGE.SET_TOKEN('ORG', l_ship_from_org_id);
667: FND_MESSAGE.SET_TOKEN('LINE_ID', l_tran_rec.line_id);
668: FND_MSG_PUB.Add;

Line 669: RAISE FND_API.G_EXC_ERROR;

665: FND_MESSAGE.SET_NAME('GMI','GMI_API_WHSE_NOT_FOUND');
666: FND_MESSAGE.SET_TOKEN('ORG', l_ship_from_org_id);
667: FND_MESSAGE.SET_TOKEN('LINE_ID', l_tran_rec.line_id);
668: FND_MSG_PUB.Add;
669: RAISE FND_API.G_EXC_ERROR;
670: ELSE
671: CLOSE ic_whse_mst_cur;
672: END IF;
673:

Line 693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)

689: , x_msg_count => x_msg_count
690: , x_msg_data => x_msg_data) ;
691:
692:
693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
694: THEN
695: PrintMsg('ERROR - Get Item Details returned Error ');
696: l_error_flag := FND_API.G_TRUE;
697: FND_MESSAGE.Set_Name('GMI','GMI_API_ITEM_NOT_FOUND');

Line 696: l_error_flag := FND_API.G_TRUE;

692:
693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
694: THEN
695: PrintMsg('ERROR - Get Item Details returned Error ');
696: l_error_flag := FND_API.G_TRUE;
697: FND_MESSAGE.Set_Name('GMI','GMI_API_ITEM_NOT_FOUND');
698: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
699: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_ship_from_org_id);
700: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 702: RAISE FND_API.G_EXC_ERROR;

698: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
699: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_ship_from_org_id);
700: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
701: FND_MSG_PUB.Add;
702: RAISE FND_API.G_EXC_ERROR;
703: END IF;
704:
705: PrintMsg('l_ic_item_mst_rec.dualum_ind : '|| l_ic_item_mst_rec.dualum_ind);
706: PrintMsg('l_ic_item_mst_rec.loct_ctl : '|| l_ic_item_mst_rec.loct_ctl);

Line 716: l_error_flag := FND_API.G_TRUE;

712: /* Must not be a non inventory item */
713: IF (l_ic_item_mst_rec.noninv_ind = 1)
714: THEN
715: PrintMsg('ERROR - Item is a non inventory item :'|| l_ic_item_mst_rec.item_no);
716: l_error_flag := FND_API.G_TRUE;
717: FND_MESSAGE.SET_NAME('GMI','GMI_API_NONINV_ITEM');
718: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
719: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
720: FND_MSG_PUB.Add;

Line 721: RAISE FND_API.G_EXC_ERROR;

717: FND_MESSAGE.SET_NAME('GMI','GMI_API_NONINV_ITEM');
718: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
719: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
720: FND_MSG_PUB.Add;
721: RAISE FND_API.G_EXC_ERROR;
722:
723: /* Must be active */
724: ELSIF (l_ic_item_mst_rec.inactive_ind = 1)
725: THEN

Line 727: l_error_flag := FND_API.G_TRUE;

723: /* Must be active */
724: ELSIF (l_ic_item_mst_rec.inactive_ind = 1)
725: THEN
726: PrintMsg('ERROR - Inactive item :'|| l_ic_item_mst_rec.item_no);
727: l_error_flag := FND_API.G_TRUE;
728: FND_MESSAGE.SET_NAME('GMI','GMI_API_INACTIVE_ITEM');
729: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
730: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
731: FND_MSG_PUB.Add;

Line 732: RAISE FND_API.G_EXC_ERROR;

728: FND_MESSAGE.SET_NAME('GMI','GMI_API_INACTIVE_ITEM');
729: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
730: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
731: FND_MSG_PUB.Add;
732: RAISE FND_API.G_EXC_ERROR;
733:
734: /* Item should not be a no control item */
735: ELSIF (l_ic_item_mst_rec.lot_ctl = 0 AND (l_ic_item_mst_rec.loct_ctl = 0) )
736: THEN

Line 738: l_error_flag := FND_API.G_TRUE;

734: /* Item should not be a no control item */
735: ELSIF (l_ic_item_mst_rec.lot_ctl = 0 AND (l_ic_item_mst_rec.loct_ctl = 0) )
736: THEN
737: PrintMsg('ERROR - No Controls item :'|| l_ic_item_mst_rec.item_no);
738: l_error_flag := FND_API.G_TRUE;
739: FND_MESSAGE.SET_NAME('GMI','GMI_API_NO_CONTROL_ITEM');
740: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
741: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
742: FND_MSG_PUB.Add;

Line 743: RAISE FND_API.G_EXC_ERROR;

739: FND_MESSAGE.SET_NAME('GMI','GMI_API_NO_CONTROL_ITEM');
740: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
741: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
742: FND_MSG_PUB.Add;
743: RAISE FND_API.G_EXC_ERROR;
744:
745: END IF;
746:
747: /* See if either item is or the warehouse is not location controlled */

Line 767: l_error_flag := FND_API.G_TRUE;

763: l_ic_item_mst_rec.lot_ctl <> 1 )
764: THEN
765: PrintMsg('ERROR - lot is specified but item is
766: not lot controlled'|| l_ic_item_mst_rec.item_no);
767: l_error_flag := FND_API.G_TRUE;
768: FND_MESSAGE.SET_NAME('GMI','GMI_API_NOT_LOT_CONTROL_ITEM');
769: FND_MESSAGE.SET_TOKEN('ITEM_NO_',l_ic_item_mst_rec.item_no);
770: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
771: FND_MSG_PUB.Add;

Line 772: RAISE FND_API.G_EXC_ERROR;

768: FND_MESSAGE.SET_NAME('GMI','GMI_API_NOT_LOT_CONTROL_ITEM');
769: FND_MESSAGE.SET_TOKEN('ITEM_NO_',l_ic_item_mst_rec.item_no);
770: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
771: FND_MSG_PUB.Add;
772: RAISE FND_API.G_EXC_ERROR;
773: END IF;
774:
775: IF( NVL(p_tran_rec.sublot_no,' ') <> ' ' AND
776: l_ic_item_mst_rec.sublot_ctl <> 1)

Line 780: l_error_flag := FND_API.G_TRUE;

776: l_ic_item_mst_rec.sublot_ctl <> 1)
777: THEN
778: PrintMsg('ERROR - sublot is specified but item is not sublot controlled , Item_no : '||
779: l_ic_item_mst_rec.item_no ||' Sublot_no : '|| p_tran_rec.sublot_no);
780: l_error_flag := FND_API.G_TRUE;
781: FND_MESSAGE.SET_NAME('GMI','GMI_API_SUBLOT_NOT_REQUIRED');
782: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_ic_item_mst_rec.item_no);
783: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
784: FND_MSG_PUB.Add;

Line 785: RAISE FND_API.G_EXC_ERROR;

781: FND_MESSAGE.SET_NAME('GMI','GMI_API_SUBLOT_NOT_REQUIRED');
782: FND_MESSAGE.SET_TOKEN('ITEM_NO', l_ic_item_mst_rec.item_no);
783: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
784: FND_MSG_PUB.Add;
785: RAISE FND_API.G_EXC_ERROR;
786: END IF;
787:
788: l_pick_lots_rec.item_id := l_ic_item_mst_rec.item_id;
789: PrintMsg('l_pick_lots_rec.item_id : '|| l_pick_lots_rec.item_id);

Line 803: l_error_flag := FND_API.G_TRUE;

799: (l_ic_item_mst_rec.loct_ctl * l_ic_whse_mst_rec.loct_ctl) = 0)
800: THEN
801: PrintMsg('location is specified but either the item or the warehouse not location controlled :'
802: || l_ic_item_mst_rec.item_no);
803: l_error_flag := FND_API.G_TRUE;
804: FND_MESSAGE.SET_NAME('GMI','GMI_API_NON_LOCT_CTL_ITEM_WHSE');
805: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
806: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_ic_whse_mst_rec.whse_code);
807: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);

Line 810: RAISE FND_API.G_EXC_ERROR;

806: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_ic_whse_mst_rec.whse_code);
807: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
808: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
809: FND_MSG_PUB.Add;
810: RAISE FND_API.G_EXC_ERROR;
811: END IF;
812:
813:
814: /* If a location is not specified and the item is location controlled */

Line 820: l_error_flag := FND_API.G_TRUE;

816: (l_ic_item_mst_rec.loct_ctl * l_ic_whse_mst_rec.loct_ctl) <> 0 )
817: THEN
818: PrintMsg('location is NOT specified but item and warehouse are location controlled :'||
819: l_ic_item_mst_rec.item_no);
820: l_error_flag := FND_API.G_TRUE;
821: FND_MESSAGE.SET_NAME('GMI','GMI_API_LOCATION_REQUIRED');
822: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
823: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_ic_whse_mst_rec.whse_code);
824: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);

Line 826: RAISE FND_API.G_EXC_ERROR;

822: FND_MESSAGE.SET_TOKEN('ITEM_NO',l_ic_item_mst_rec.item_no);
823: FND_MESSAGE.SET_TOKEN('WHSE_CODE',l_ic_whse_mst_rec.whse_code);
824: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
825: FND_MSG_PUB.Add;
826: RAISE FND_API.G_EXC_ERROR;
827: END IF;
828:
829:
830: /* If whse is non validated location controlled, do not validate location but verify that

Line 839: l_error_flag := FND_API.G_TRUE;

835: IF( LENGTH(l_tran_rec.location) > 16 )
836: THEN
837: PrintMsg('Non validated location length can not be > 16 : '||
838: l_ic_item_mst_rec.item_no);
839: l_error_flag := FND_API.G_TRUE;
840: FND_MESSAGE.SET_NAME('GMI','GMI_API_LOCT_INVALID_LENGTH');
841: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
842: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
843: FND_MSG_PUB.Add;

Line 844: RAISE FND_API.G_EXC_ERROR;

840: FND_MESSAGE.SET_NAME('GMI','GMI_API_LOCT_INVALID_LENGTH');
841: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
842: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
843: FND_MSG_PUB.Add;
844: RAISE FND_API.G_EXC_ERROR;
845: END IF;
846:
847: /* This is not a non validated location */
848:

Line 861: l_error_flag := FND_API.G_TRUE;

857: IF ic_loct_mst_cur%NOTFOUND
858: THEN
859: close ic_loct_mst_cur;
860: PrintMsg('ic_loct_mst_cur%NOTFOUND - Location is not found : '|| l_tran_rec.location);
861: l_error_flag := FND_API.G_TRUE;
862: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LOCATION');
863: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
864: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
865: FND_MSG_PUB.Add;

Line 866: RAISE FND_API.G_EXC_ERROR;

862: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVALID_LOCATION');
863: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
864: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
865: FND_MSG_PUB.Add;
866: RAISE FND_API.G_EXC_ERROR;
867: END IF;
868:
869: IF (l_loc_inactive = 1)
870: THEN

Line 872: l_error_flag := FND_API.G_TRUE;

868:
869: IF (l_loc_inactive = 1)
870: THEN
871: PrintMsg('Location Specified is NOT Active : '|| l_tran_rec.location);
872: l_error_flag := FND_API.G_TRUE;
873: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_LOCATION');
874: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
875: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
876: FND_MSG_PUB.Add;

Line 877: RAISE FND_API.G_EXC_ERROR;

873: FND_MESSAGE.SET_NAME('GMI','IC_API_INACTIVE_LOCATION');
874: FND_MESSAGE.SET_TOKEN('LOCATION',l_tran_rec.location);
875: FND_MESSAGE.SET_TOKEN('LINE_ID',l_tran_rec.line_id);
876: FND_MSG_PUB.Add;
877: RAISE FND_API.G_EXC_ERROR;
878: END IF;
879:
880: END IF; /* non validated location */
881:

Line 904: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)

900: ,x_return_status
901: ,x_msg_count
902: ,x_msg_data);
903:
904: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
905: THEN
906: PrintMsg(' Get_Lot_Details failed, Lot_no :'||l_tran_rec.lot_no||
907: ' lot_id : '||l_tran_rec.lot_id);
908: l_error_flag := FND_API.G_TRUE;

Line 908: l_error_flag := FND_API.G_TRUE;

904: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
905: THEN
906: PrintMsg(' Get_Lot_Details failed, Lot_no :'||l_tran_rec.lot_no||
907: ' lot_id : '||l_tran_rec.lot_id);
908: l_error_flag := FND_API.G_TRUE;
909: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_FOUND');
910: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
911: FND_MESSAGE.Set_Token('SUBLOT_NO', l_tran_rec.sublot_no);
912: FND_MESSAGE.Set_Token('LOT_ID', l_tran_rec.lot_id);

Line 916: RAISE FND_API.G_EXC_ERROR;

912: FND_MESSAGE.Set_Token('LOT_ID', l_tran_rec.lot_id);
913: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
914: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
915: FND_MSG_PUB.Add;
916: RAISE FND_API.G_EXC_ERROR;
917: END IF;
918:
919: l_tran_rec.lot_no := l_ic_lots_mst_rec.lot_no;
920:

Line 926: l_error_flag := FND_API.G_TRUE;

922: IF( l_ic_lots_mst_rec.inactive_ind = 1)
923: THEN
924: PrintMsg(' ERROR : Lot is not active , Lot_no : '||l_tran_rec.lot_no||
925: ' lot_id : '||l_tran_rec.lot_id);
926: l_error_flag := FND_API.G_TRUE;
927: FND_MESSAGE.Set_Name('GMI','GMI_API_INACTIVE_LOT');
928: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
929: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
930: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 932: RAISE FND_API.G_EXC_ERROR;

928: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
929: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
930: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
931: FND_MSG_PUB.Add;
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: /* Is it expired? */
936: IF( l_ic_lots_mst_rec.expire_date < SYSDATE)

Line 940: l_error_flag := FND_API.G_TRUE;

936: IF( l_ic_lots_mst_rec.expire_date < SYSDATE)
937: THEN
938: PrintMsg(' Lot is Expired , Lot_no '||l_tran_rec.lot_no||
939: ', lot_id : '||l_tran_rec.lot_id);
940: l_error_flag := FND_API.G_TRUE;
941: FND_MESSAGE.Set_Name('GMI','GMI_API_EXPIRED_LOT');
942: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
943: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
944: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 946: RAISE FND_API.G_EXC_ERROR;

942: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
943: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
944: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
945: FND_MSG_PUB.Add;
946: RAISE FND_API.G_EXC_ERROR;
947: END IF;
948:
949: /* Is it Deleted? */
950: IF( l_ic_lots_mst_rec.delete_mark = 1)

Line 954: l_error_flag := FND_API.G_TRUE;

950: IF( l_ic_lots_mst_rec.delete_mark = 1)
951: THEN
952: PrintMsg(' Lot is Deleted , Lot_no '||l_tran_rec.lot_no||
953: 'lot_id : '||l_tran_rec.lot_id);
954: l_error_flag := FND_API.G_TRUE;
955: FND_MESSAGE.Set_Name('GMI','GMI_API_DELETED_LOT');
956: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
957: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
958: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 960: RAISE FND_API.G_EXC_ERROR;

956: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
957: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
958: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
959: FND_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962:
963: -- BEGIN BUG 2966077
964: -- Is GRADE null for grade controlled item?

Line 968: l_error_flag := FND_API.G_TRUE;

964: -- Is GRADE null for grade controlled item?
965: IF( NVL(l_ic_item_mst_rec.grade_ctl, 0) > 0 AND l_ic_lots_mst_rec.qc_grade IS NULL)
966: THEN
967: PrintMsg(' GRADE for LOT '||l_tran_rec.lot_no ||' IS NOT VALID');
968: l_error_flag := FND_API.G_TRUE;
969: FND_MESSAGE.Set_Name('GMI','IC_INVALID_QC_GRADE');
970: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
971: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
972: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 974: RAISE FND_API.G_EXC_ERROR;

970: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
971: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
972: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
973: FND_MSG_PUB.Add;
974: RAISE FND_API.G_EXC_ERROR;
975: END IF;
976: --END BUG 2966077
977:
978: ELSE /* item is not lot controlled */

Line 1018: --l_error_flag := FND_API.G_TRUE;

1014: IF(get_loct_inv_dtls_cur2%NOTFOUND)
1015: THEN
1016: CLOSE get_loct_inv_dtls_cur2;
1017: PrintMsg('No inventory in ic_loct_inv for the item, whse,lot combination ');
1018: --l_error_flag := FND_API.G_TRUE;
1019: --FND_MESSAGE.Set_Name('GMI','GMI_API_NO_INVENTORY');
1020: --FND_MESSAGE.Set_Token('item_no', l_ic_item_mst_rec.item_no);
1021: --FND_MESSAGE.Set_Token('lot_no', l_tran_rec.lot_no);
1022: --FND_MSG_PUB.Add;

Line 1023: --RAISE FND_API.G_EXC_ERROR;

1019: --FND_MESSAGE.Set_Name('GMI','GMI_API_NO_INVENTORY');
1020: --FND_MESSAGE.Set_Token('item_no', l_ic_item_mst_rec.item_no);
1021: --FND_MESSAGE.Set_Token('lot_no', l_tran_rec.lot_no);
1022: --FND_MSG_PUB.Add;
1023: --RAISE FND_API.G_EXC_ERROR;
1024: ELSE
1025: CLOSE get_loct_inv_dtls_cur2;
1026: END IF;
1027:

Line 1032: --l_error_flag := FND_API.G_TRUE;

1028: ELSE /* Else print that the row is not found in ic_loct_inv */
1029:
1030: CLOSE get_loct_inv_dtls_cur;
1031: PrintMsg('No inventory in ic_loct_inv for the item, whse,lot,location combination ');
1032: --l_error_flag := FND_API.G_TRUE;
1033: --FND_MESSAGE.Set_Name('GMI','GMI_API_NO_INVENTORY');
1034: --FND_MESSAGE.Set_Token('item_no', l_ic_item_mst_rec.item_no);
1035: --FND_MESSAGE.Set_Token('lot_no', l_tran_rec.lot_no);
1036: --FND_MSG_PUB.Add;

Line 1037: --RAISE FND_API.G_EXC_ERROR;

1033: --FND_MESSAGE.Set_Name('GMI','GMI_API_NO_INVENTORY');
1034: --FND_MESSAGE.Set_Token('item_no', l_ic_item_mst_rec.item_no);
1035: --FND_MESSAGE.Set_Token('lot_no', l_tran_rec.lot_no);
1036: --FND_MSG_PUB.Add;
1037: --RAISE FND_API.G_EXC_ERROR;
1038: END IF;
1039:
1040: ELSE
1041: CLOSE get_loct_inv_dtls_cur;

Line 1061: l_error_flag := FND_API.G_TRUE;

1057: IF (lot_status_cur%NOTFOUND)
1058: THEN
1059: CLOSE lot_status_cur;
1060: PrintMsg('ERROR - No row in ic_lots_sts');
1061: l_error_flag := FND_API.G_TRUE;
1062: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_STATUS_NOT_FOUND');
1063: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1064: FND_MESSAGE.Set_Token('LOT_STATUS', l_loct_inv_rec.lot_status);
1065: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 1067: RAISE FND_API.G_EXC_ERROR;

1063: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1064: FND_MESSAGE.Set_Token('LOT_STATUS', l_loct_inv_rec.lot_status);
1065: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1066: FND_MSG_PUB.Add;
1067: RAISE FND_API.G_EXC_ERROR;
1068:
1069: ELSE
1070: CLOSE lot_status_cur;
1071: END IF;

Line 1076: l_error_flag := FND_API.G_TRUE;

1072:
1073: IF( l_lot_status_rec.rejected_ind = 1 )
1074: THEN
1075: PrintMsg('Rejected ind is 1 - unusable lot'|| l_ic_lots_mst_rec.lot_no);
1076: l_error_flag := FND_API.G_TRUE;
1077: FND_MESSAGE.SET_NAME('GMI','GMI_API_REJECTED_LOT');
1078: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1079: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1080: FND_MSG_PUB.Add;

Line 1081: RAISE FND_API.G_EXC_ERROR;

1077: FND_MESSAGE.SET_NAME('GMI','GMI_API_REJECTED_LOT');
1078: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1079: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1080: FND_MSG_PUB.Add;
1081: RAISE FND_API.G_EXC_ERROR;
1082:
1083: END IF;
1084:
1085: IF(l_lot_status_rec.order_proc_ind = 0)

Line 1088: l_error_flag := FND_API.G_TRUE;

1084:
1085: IF(l_lot_status_rec.order_proc_ind = 0)
1086: THEN
1087: PrintMsg('Order_proc_ind is 0 - unusable lot'|| l_ic_lots_mst_rec.lot_no);
1088: l_error_flag := FND_API.G_TRUE;
1089: FND_MESSAGE.SET_NAME('GMI', 'GMI_API_LOT_NOT_ORDERABLE');
1090: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1091: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1092: FND_MSG_PUB.Add;

Line 1093: RAISE FND_API.G_EXC_ERROR;

1089: FND_MESSAGE.SET_NAME('GMI', 'GMI_API_LOT_NOT_ORDERABLE');
1090: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1091: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1092: FND_MSG_PUB.Add;
1093: RAISE FND_API.G_EXC_ERROR;
1094: END IF;
1095:
1096: IF(l_lot_status_rec.nettable_ind <> 1)
1097: THEN

Line 1099: l_error_flag := FND_API.G_TRUE;

1095:
1096: IF(l_lot_status_rec.nettable_ind <> 1)
1097: THEN
1098: PrintMsg('Lot is not Nettable Lot_no :'||l_ic_lots_mst_rec.lot_no);
1099: l_error_flag := FND_API.G_TRUE;
1100: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_NETTABLE');
1101: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1102: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1103: FND_MSG_PUB.Add;

Line 1104: RAISE FND_API.G_EXC_ERROR;

1100: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_NOT_NETTABLE');
1101: FND_MESSAGE.Set_Token('LOT_NO', l_tran_rec.lot_no);
1102: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1103: FND_MSG_PUB.Add;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106:
1107: END IF; /* Status_ctl >0 */
1108:

Line 1131: l_error_flag := FND_API.G_TRUE;

1127:
1128: IF ( NVL(l_tran_rec.trans_um,' ') = ' ')
1129: THEN
1130: PrintMsg('ERROR - Trans_um is not passed ');
1131: l_error_flag := FND_API.G_TRUE;
1132: FND_MESSAGE.Set_Name('GMI','GMI_API_UOM_REQUIRED');
1133: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1134: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1135: FND_MSG_PUB.Add;

Line 1136: RAISE FND_API.G_EXC_ERROR;

1132: FND_MESSAGE.Set_Name('GMI','GMI_API_UOM_REQUIRED');
1133: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1134: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1135: FND_MSG_PUB.Add;
1136: RAISE FND_API.G_EXC_ERROR;
1137:
1138: ELSE /* l_tran_rec.trans_um is NOT NULL */
1139:
1140: gmi_reservation_util.Get_AppsUOM_from_OpmUOM(

Line 1147: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)

1143: , x_return_status => x_return_status
1144: , x_msg_count => x_msg_count
1145: , x_msg_data => x_msg_data);
1146:
1147: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1148: THEN
1149: PrintMsg('ERROR - uom conversion does not exist for: '||l_ic_item_mst_rec.item_um);
1150: l_error_flag := FND_API.G_TRUE;
1151: FND_MESSAGE.Set_Name('GMI','GMI_API_APPS_UOM_NOT_FOUND');

Line 1150: l_error_flag := FND_API.G_TRUE;

1146:
1147: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1148: THEN
1149: PrintMsg('ERROR - uom conversion does not exist for: '||l_ic_item_mst_rec.item_um);
1150: l_error_flag := FND_API.G_TRUE;
1151: FND_MESSAGE.Set_Name('GMI','GMI_API_APPS_UOM_NOT_FOUND');
1152: FND_MESSAGE.Set_Token('OPM_UOM',l_ic_item_mst_rec.item_um);
1153: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1154: FND_MSG_PUB.Add;

Line 1155: RAISE FND_API.G_EXC_ERROR;

1151: FND_MESSAGE.Set_Name('GMI','GMI_API_APPS_UOM_NOT_FOUND');
1152: FND_MESSAGE.Set_Token('OPM_UOM',l_ic_item_mst_rec.item_um);
1153: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1154: FND_MSG_PUB.Add;
1155: RAISE FND_API.G_EXC_ERROR;
1156: END IF;
1157:
1158:
1159: IF ( l_tran_rec.trans_um <> l_apps_um )

Line 1169: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN

1165: x_return_status =>x_return_status,
1166: x_msg_count =>x_msg_count,
1167: x_msg_data =>x_msg_data);
1168:
1169: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1170: PrintMsg('ERROR: OPM UOM not found for apps uom : '|| l_tran_rec.trans_um);
1171: l_error_flag := FND_API.G_TRUE;
1172: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1173: FND_MESSAGE.Set_Token('APPS_UOM', l_tran_rec.trans_um);

Line 1171: l_error_flag := FND_API.G_TRUE;

1167: x_msg_data =>x_msg_data);
1168:
1169: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1170: PrintMsg('ERROR: OPM UOM not found for apps uom : '|| l_tran_rec.trans_um);
1171: l_error_flag := FND_API.G_TRUE;
1172: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1173: FND_MESSAGE.Set_Token('APPS_UOM', l_tran_rec.trans_um);
1174: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1175: FND_MSG_PUB.Add;

Line 1176: RAISE FND_API.G_EXC_ERROR;

1172: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1173: FND_MESSAGE.Set_Token('APPS_UOM', l_tran_rec.trans_um);
1174: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1175: FND_MSG_PUB.Add;
1176: RAISE FND_API.G_EXC_ERROR;
1177: END IF;
1178: PrintMsg('to uom (OPM) '||l_opm_um);
1179:
1180: GMICUOM.icuomcv(

Line 1197: --IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)

1193: PrintMsg('converted_qty l_tmp_qty after rounding : '|| l_tmp_qty);
1194:
1195:
1196: IF( NVL(l_tmp_qty, -1) < 0 )
1197: --IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1198: THEN
1199: PrintMsg('ERROR - from GMICUOM.icuomcv, pcur_uom : ' || l_opm_um || 'pnew_uom : '||l_ic_item_mst_rec.item_um);
1200: l_error_flag := FND_API.G_TRUE;
1201: FND_MESSAGE.Set_Name('GMI','GMI_API_UOM_CONV_NOT_FOUND');

Line 1200: l_error_flag := FND_API.G_TRUE;

1196: IF( NVL(l_tmp_qty, -1) < 0 )
1197: --IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1198: THEN
1199: PrintMsg('ERROR - from GMICUOM.icuomcv, pcur_uom : ' || l_opm_um || 'pnew_uom : '||l_ic_item_mst_rec.item_um);
1200: l_error_flag := FND_API.G_TRUE;
1201: FND_MESSAGE.Set_Name('GMI','GMI_API_UOM_CONV_NOT_FOUND');
1202: FND_MESSAGE.Set_Token('FROM_UOM', l_opm_um);
1203: FND_MESSAGE.Set_Token('TO_UOM', l_ic_item_mst_rec.item_um);
1204: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);

Line 1207: RAISE FND_API.G_EXC_ERROR;

1203: FND_MESSAGE.Set_Token('TO_UOM', l_ic_item_mst_rec.item_um);
1204: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1205: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1206: FND_MSG_PUB.Add;
1207: RAISE FND_API.G_EXC_ERROR;
1208:
1209: ELSE
1210: l_pick_lots_rec.trans_qty := l_tmp_qty;
1211: -- l_pick_lots_rec.trans_um := l_ic_item_mst_rec.item_um;

Line 1263: l_error_flag := FND_API.G_TRUE;

1259: ELSIF(l_ic_item_mst_rec.dualum_ind = 3)
1260: THEN
1261: PrintMsg('ERROR - Trans_qty2 for a dual3 item Can not be NULL. Please provide
1262: a valid trans_qty2 ');
1263: l_error_flag := FND_API.G_TRUE;
1264: FND_MESSAGE.Set_Name('GMI','GMI_API_QTY2_REQUIRED_DUAL3');
1265: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1266: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1267: FND_MSG_PUB.Add;

Line 1268: RAISE FND_API.G_EXC_ERROR;

1264: FND_MESSAGE.Set_Name('GMI','GMI_API_QTY2_REQUIRED_DUAL3');
1265: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1266: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1267: FND_MSG_PUB.Add;
1268: RAISE FND_API.G_EXC_ERROR;
1269: END IF;
1270:
1271: ELSE /* trans_qty2 is not 0,in this case check deviation */
1272:

Line 1276: l_error_flag := FND_API.G_TRUE;

1272:
1273: IF (nvl(l_ic_item_mst_rec.deviation_hi,0) <> 0 AND
1274: l_tran_rec.trans_qty2 > l_tmp_qty2 *(1 + l_ic_item_mst_rec.deviation_hi)) THEN
1275: PrintMsg('ERROR - Trans_qty2 Deviation Hi error ');
1276: l_error_flag := FND_API.G_TRUE;
1277: FND_MESSAGE.SET_NAME('GMI','GMI_API_DEVIATION_ERR');
1278: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1279: FND_MESSAGE.Set_Token('QTY', l_pick_lots_rec.trans_qty);
1280: FND_MESSAGE.Set_Token('QTY2', l_tran_rec.trans_qty2);

Line 1283: RAISE FND_API.G_EXC_ERROR;

1279: FND_MESSAGE.Set_Token('QTY', l_pick_lots_rec.trans_qty);
1280: FND_MESSAGE.Set_Token('QTY2', l_tran_rec.trans_qty2);
1281: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1282: FND_MSG_PUB.Add;
1283: RAISE FND_API.G_EXC_ERROR;
1284:
1285: ELSIF (nvl(l_ic_item_mst_rec.deviation_lo,0)<>0 AND
1286: l_tran_rec.trans_qty2 < l_tmp_qty2 * (1-l_ic_item_mst_rec.deviation_lo)) THEN
1287: PrintMsg('ERROR - Trans_qty2 Deviation Lo error ');

Line 1288: l_error_flag := FND_API.G_TRUE;

1284:
1285: ELSIF (nvl(l_ic_item_mst_rec.deviation_lo,0)<>0 AND
1286: l_tran_rec.trans_qty2 < l_tmp_qty2 * (1-l_ic_item_mst_rec.deviation_lo)) THEN
1287: PrintMsg('ERROR - Trans_qty2 Deviation Lo error ');
1288: l_error_flag := FND_API.G_TRUE;
1289: FND_MESSAGE.SET_NAME('GMI','GMI_API_DEVIATION_ERR');
1290: FND_MESSAGE.Set_Token('QTY', l_pick_lots_rec.trans_qty);
1291: FND_MESSAGE.Set_Token('QTY2', l_tran_rec.trans_qty2);
1292: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);

Line 1295: RAISE FND_API.G_EXC_ERROR;

1291: FND_MESSAGE.Set_Token('QTY2', l_tran_rec.trans_qty2);
1292: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1293: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1294: FND_MSG_PUB.Add;
1295: RAISE FND_API.G_EXC_ERROR;
1296:
1297: END IF;
1298:
1299: l_pick_lots_rec.trans_qty2 := NVL(l_tran_rec.trans_qty2,0);

Line 1317: l_error_flag := FND_API.G_TRUE;

1313: THEN
1314: IF( NVL(l_tran_rec.trans_qty,0) <= 0 )
1315: THEN
1316: PrintMsg('ERROR - trans_qty Has to be > 0 For actions INSERT and Update ');
1317: l_error_flag := FND_API.G_TRUE;
1318: FND_MESSAGE.Set_Name('GMI','GMI_API_QTY_REQ_FOR_ACT_CODE');
1319: FND_MESSAGE.Set_Token('ACTION_CODE', l_tran_rec.action_code);
1320: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1321: FND_MSG_PUB.Add;

Line 1322: RAISE FND_API.G_EXC_ERROR;

1318: FND_MESSAGE.Set_Name('GMI','GMI_API_QTY_REQ_FOR_ACT_CODE');
1319: FND_MESSAGE.Set_Token('ACTION_CODE', l_tran_rec.action_code);
1320: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1321: FND_MSG_PUB.Add;
1322: RAISE FND_API.G_EXC_ERROR;
1323: END IF;
1324:
1325: OPEN get_commited_qty_cur;
1326: FETCH get_commited_qty_cur

Line 1333: RAISE FND_API.G_EXC_ERROR;

1329: IF(get_commited_qty_cur%NOTFOUND)
1330: THEN
1331: PrintMsg('ERROR - get_commited_qty_cur%NOTFOUND ');
1332: CLOSE get_commited_qty_cur;
1333: RAISE FND_API.G_EXC_ERROR;
1334: ELSE
1335: CLOSE get_commited_qty_cur;
1336: END IF;
1337:

Line 1360: l_error_flag := FND_API.G_TRUE;

1356: ( NVL(l_pick_lots_rec.trans_qty2,0) > NVL(l_available_qty2,0)) )
1357: THEN
1358: IF(l_allow_negative_inv = 0) THEN
1359: PrintMsg('ERROR - -ve inventory is not allowed. This allocation would drive the inventory -ve. ');
1360: l_error_flag := FND_API.G_TRUE;
1361: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVQTYNEG');
1362: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1363: FND_MSG_PUB.Add;
1364: RAISE FND_API.G_EXC_ERROR;

Line 1364: RAISE FND_API.G_EXC_ERROR;

1360: l_error_flag := FND_API.G_TRUE;
1361: FND_MESSAGE.SET_NAME('GMI','GMI_API_INVQTYNEG');
1362: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1363: FND_MSG_PUB.Add;
1364: RAISE FND_API.G_EXC_ERROR;
1365:
1366: ELSIF(l_allow_negative_inv = 2) THEN
1367: PrintMsg('Warning - This allocation would drive the inventory -ve. ');
1368: FND_MESSAGE.SET_NAME('GMI','GMI_API_WARNINVQTYNEG');

Line 1453: l_error_flag := FND_API.G_TRUE;

1449:
1450: ELSE /* Over Picking is not enabled and the lot is indivisible. so error */
1451: PrintMsg('ERROR - lot is indivisible. trans_qty is less than
1452: available qty and over picking is not enabled');
1453: l_error_flag := FND_API.G_TRUE;
1454: FND_MESSAGE.Set_Name('GMI','GMI_API_LOT_INDIV_NO_OVEPIC');
1455: FND_MESSAGE.Set_Token('LOT_NO', l_ic_lots_mst_rec.lot_no);
1456: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1457: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);

Line 1459: RAISE FND_API.G_EXC_ERROR;

1455: FND_MESSAGE.Set_Token('LOT_NO', l_ic_lots_mst_rec.lot_no);
1456: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1457: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1458: FND_MSG_PUB.Add;
1459: RAISE FND_API.G_EXC_ERROR;
1460:
1461: END IF;
1462: ELSIF ( (l_pick_lots_rec.trans_qty > l_available_qty) OR
1463: ( NVL(l_pick_lots_rec.trans_qty2,0) > NVL(l_available_qty2,0) ) )

Line 1528: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN

1524: x_return_status =>x_return_status,
1525: x_msg_count =>x_msg_count,
1526: x_msg_data =>x_msg_data);
1527:
1528: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1529: PrintMsg('ERROR: OPM UOM not found for apps uom : '|| l_ordered_quantity_uom);
1530: l_error_flag := FND_API.G_TRUE;
1531: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1532: FND_MESSAGE.Set_Token('APPS_UOM', l_ordered_quantity_uom);

Line 1530: l_error_flag := FND_API.G_TRUE;

1526: x_msg_data =>x_msg_data);
1527:
1528: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1529: PrintMsg('ERROR: OPM UOM not found for apps uom : '|| l_ordered_quantity_uom);
1530: l_error_flag := FND_API.G_TRUE;
1531: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1532: FND_MESSAGE.Set_Token('APPS_UOM', l_ordered_quantity_uom);
1533: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1534: FND_MSG_PUB.Add;

Line 1535: RAISE FND_API.G_EXC_ERROR;

1531: FND_MESSAGE.Set_Name('GMI','GMI_API_OPM_UOM_NOT_FOUND');
1532: FND_MESSAGE.Set_Token('APPS_UOM', l_ordered_quantity_uom);
1533: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1534: FND_MSG_PUB.Add;
1535: RAISE FND_API.G_EXC_ERROR;
1536: END IF;
1537:
1538: GMICUOM.icuomcv(
1539: pitem_id =>l_ic_item_mst_rec.item_id,

Line 1589: l_error_flag := FND_API.G_TRUE;

1585: PrintMsg('requested_quantity2 : '|| l_requested_quantity2);
1586: PrintMsg('picked_qty2 : '|| l_picked_qty2);
1587: PrintMsg(' ');
1588: PrintMsg('ERROR - Over picking is not enabled');
1589: l_error_flag := FND_API.G_TRUE;
1590: FND_MESSAGE.Set_Name('GMI','GMI_API_OVERPICK_NOT_ALLOWED');
1591: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1592: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1593: FND_MSG_PUB.Add;

Line 1594: RAISE FND_API.G_EXC_ERROR;

1590: FND_MESSAGE.Set_Name('GMI','GMI_API_OVERPICK_NOT_ALLOWED');
1591: FND_MESSAGE.Set_Token('ITEM_NO', l_ic_item_mst_rec.item_no);
1592: FND_MESSAGE.Set_Token('LINE_ID', l_tran_rec.line_id);
1593: FND_MSG_PUB.Add;
1594: RAISE FND_API.G_EXC_ERROR;
1595: END IF;
1596:
1597: END IF; /* Over pick not enabled */
1598:

Line 1660: l_error_flag := FND_API.G_TRUE;

1656: ELSE
1657: FND_MESSAGE.SET_NAME('GMI','ICCAL_GENL_ERR');
1658: FND_MSG_PUB.Add;
1659: END IF;
1660: l_error_flag := FND_API.G_TRUE;
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: l_pick_lots_rec.trans_date := l_tran_rec.trans_date;

Line 1661: RAISE FND_API.G_EXC_ERROR;

1657: FND_MESSAGE.SET_NAME('GMI','ICCAL_GENL_ERR');
1658: FND_MSG_PUB.Add;
1659: END IF;
1660: l_error_flag := FND_API.G_TRUE;
1661: RAISE FND_API.G_EXC_ERROR;
1662: END IF;
1663:
1664: l_pick_lots_rec.trans_date := l_tran_rec.trans_date;
1665:

Line 1666: IF(l_error_flag = FND_API.G_TRUE)

1662: END IF;
1663:
1664: l_pick_lots_rec.trans_date := l_tran_rec.trans_date;
1665:
1666: IF(l_error_flag = FND_API.G_TRUE)
1667: THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: --RAISE FND_API.G_EXC_ERROR;
1670: RETURN;

Line 1668: x_return_status := FND_API.G_RET_STS_ERROR;

1664: l_pick_lots_rec.trans_date := l_tran_rec.trans_date;
1665:
1666: IF(l_error_flag = FND_API.G_TRUE)
1667: THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: --RAISE FND_API.G_EXC_ERROR;
1670: RETURN;
1671: END IF;
1672:

Line 1669: --RAISE FND_API.G_EXC_ERROR;

1665:
1666: IF(l_error_flag = FND_API.G_TRUE)
1667: THEN
1668: x_return_status := FND_API.G_RET_STS_ERROR;
1669: --RAISE FND_API.G_EXC_ERROR;
1670: RETURN;
1671: END IF;
1672:
1673: /* Build the record for Set_Pick_Lots Private API

Line 1684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)

1680: , x_msg_count => x_msg_count
1681: , x_msg_data => x_msg_data );
1682:
1683:
1684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1685: THEN
1686: PrintMsg('in allocate_opm_orders.call to
1687: set_pick_lots returns error');
1688: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1688: x_return_status := FND_API.G_RET_STS_ERROR;

1684: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
1685: THEN
1686: PrintMsg('in allocate_opm_orders.call to
1687: set_pick_lots returns error');
1688: x_return_status := FND_API.G_RET_STS_ERROR;
1689: FND_MESSAGE.Set_Name('GMI','GMI_SET_PIC_LOTS_ERROR');
1690: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_ship_from_org_id);
1691: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
1692: FND_MSG_PUB.Add;

Line 1693: RAISE FND_API.G_EXC_ERROR;

1689: FND_MESSAGE.Set_Name('GMI','GMI_SET_PIC_LOTS_ERROR');
1690: FND_MESSAGE.Set_Token('ORGANIZATION_ID', l_ship_from_org_id);
1691: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', l_inventory_item_id);
1692: FND_MSG_PUB.Add;
1693: RAISE FND_API.G_EXC_ERROR;
1694: RETURN;
1695: ELSE
1696: PrintMsg('Successfully returning from Allocate_OPM_Orders');
1697: END IF;

Line 1703: WHEN FND_API.G_EXC_ERROR THEN

1699:
1700: /* EXCEPTION HANDLING
1701: ====================*/
1702: EXCEPTION
1703: WHEN FND_API.G_EXC_ERROR THEN
1704: ROLLBACK TO SAVEPOINT Allocate_Opm_Orders_SP;
1705:
1706:
1707: x_return_status := FND_API.G_RET_STS_ERROR;

Line 1707: x_return_status := FND_API.G_RET_STS_ERROR;

1703: WHEN FND_API.G_EXC_ERROR THEN
1704: ROLLBACK TO SAVEPOINT Allocate_Opm_Orders_SP;
1705:
1706:
1707: x_return_status := FND_API.G_RET_STS_ERROR;
1708:
1709: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1710: , l_api_name
1711: );

Line 1712: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE

1708:
1709: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1710: , l_api_name
1711: );
1712: FND_MSG_PUB.Count_AND_GET ( p_encoded => FND_API.G_FALSE
1713: , p_count => x_msg_count
1714: , p_data => x_msg_data
1715: );
1716:

Line 1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1713: , p_count => x_msg_count
1714: , p_data => x_msg_data
1715: );
1716:
1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1718: ROLLBACK TO SAVEPOINT Allocate_Opm_Orders_SP;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720:
1721: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME

Line 1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1715: );
1716:
1717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1718: ROLLBACK TO SAVEPOINT Allocate_Opm_Orders_SP;
1719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1720:
1721: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1722: , l_api_name
1723: );

Line 1724: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE

1720:
1721: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1722: , l_api_name
1723: );
1724: FND_MSG_PUB.Count_AND_GET ( p_encoded=> FND_API.G_FALSE
1725: , p_count => x_msg_count
1726: , p_data => x_msg_data
1727: );
1728: WHEN OTHERS THEN

Line 1798: x_return_status := FND_API.G_RET_STS_SUCCESS;

1794:
1795: BEGIN
1796:
1797: /* Init variables */
1798: x_return_status := FND_API.G_RET_STS_SUCCESS;
1799:
1800:
1801: IF ( NVL(p_lot_id,-1) <> -1) THEN
1802:

Line 1817: RAISE FND_API.G_EXC_ERROR;

1813: FND_MESSAGE.Set_Token('SUBLOT_NO', p_sublot_no);
1814: FND_MESSAGE.Set_Token('LOT_ID', p_lot_id);
1815: FND_MSG_PUB.Add;
1816:
1817: RAISE FND_API.G_EXC_ERROR;
1818:
1819: END IF;
1820:
1821: IF (ic_lots_mst_c2%ISOPEN)

Line 1841: RAISE FND_API.G_EXC_ERROR;

1837: FND_MESSAGE.Set_Token('SUBLOT_NO', p_sublot_no);
1838: FND_MESSAGE.Set_Token('LOT_ID', p_lot_id);
1839: FND_MSG_PUB.Add;
1840:
1841: RAISE FND_API.G_EXC_ERROR;
1842:
1843: END IF;
1844:
1845: IF(ic_lots_mst_c1%ISOPEN)

Line 1852: WHEN FND_API.G_EXC_ERROR THEN

1848: END IF;
1849: END IF;
1850:
1851: EXCEPTION
1852: WHEN FND_API.G_EXC_ERROR THEN
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: /* Get message count and data */
1855: FND_MSG_PUB.count_and_get
1856: ( p_count => x_msg_count

Line 1853: x_return_status := FND_API.G_RET_STS_ERROR;

1849: END IF;
1850:
1851: EXCEPTION
1852: WHEN FND_API.G_EXC_ERROR THEN
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: /* Get message count and data */
1855: FND_MSG_PUB.count_and_get
1856: ( p_count => x_msg_count
1857: , p_data => x_msg_data

Line 1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1857: , p_data => x_msg_data
1858: );
1859:
1860: WHEN OTHERS THEN
1861: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862:
1863: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1864: , l_api_name
1865: );

Line 1921: x_return_status := FND_API.G_RET_STS_SUCCESS;

1917:
1918: BEGIN
1919:
1920: /* Init variables */
1921: x_return_status := FND_API.G_RET_STS_SUCCESS;
1922:
1923:
1924: OPEN ic_item_mst_cur( p_organization_id , p_inventory_item_id);
1925: FETCH ic_item_mst_cur INTO x_ic_item_mst_rec;

Line 1936: RAISE FND_API.G_EXC_ERROR;

1932: FND_MESSAGE.Set_Token('INVENTORY_ITEM_ID', p_inventory_item_id);
1933: FND_MESSAGE.Set_Token('ORGANIZATION_ID', p_organization_id);
1934:
1935: FND_MSG_PUB.Add;
1936: RAISE FND_API.G_EXC_ERROR;
1937: ELSE
1938: CLOSE ic_item_mst_cur;
1939: PrintMsg(' Item_no = '|| x_ic_item_mst_rec.item_no);
1940: END IF;

Line 1943: WHEN FND_API.G_EXC_ERROR THEN

1939: PrintMsg(' Item_no = '|| x_ic_item_mst_rec.item_no);
1940: END IF;
1941:
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_ERROR;
1945: /* Get message count and data */
1946: FND_MSG_PUB.count_and_get
1947: ( p_count => x_msg_count

Line 1944: x_return_status := FND_API.G_RET_STS_ERROR;

1940: END IF;
1941:
1942: EXCEPTION
1943: WHEN FND_API.G_EXC_ERROR THEN
1944: x_return_status := FND_API.G_RET_STS_ERROR;
1945: /* Get message count and data */
1946: FND_MSG_PUB.count_and_get
1947: ( p_count => x_msg_count
1948: , p_data => x_msg_data

Line 1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1948: , p_data => x_msg_data
1949: );
1950:
1951: WHEN OTHERS THEN
1952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1953: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
1954: , l_api_name
1955: );
1956: