263:
264: IF (db_autolot_active = 0 OR db_autolot_active IS NULL) THEN
265: /*===================================================
266: Commented out message so it stays off stack.
267: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NO_SETUP');
268: ===================================================*/
269: p_return_status := 5;
270: RETURN;
271: END IF;
452: ======================================*/
453:
454: EXCEPTION
455: WHEN e_noitem_id THEN
456: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NO_ITEM_ID');
457: p_return_status := -80;
458: RETURN;
459: WHEN e_item_not_found THEN
460: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_ITEM_NOTFOUND');
456: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NO_ITEM_ID');
457: p_return_status := -80;
458: RETURN;
459: WHEN e_item_not_found THEN
460: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_ITEM_NOTFOUND');
461: FND_MESSAGE.SET_TOKEN ('BADITEM',to_char(p_item_id));
462: p_return_status := -82;
463: RETURN;
464: WHEN e_nolot_ctl THEN
457: p_return_status := -80;
458: RETURN;
459: WHEN e_item_not_found THEN
460: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_ITEM_NOTFOUND');
461: FND_MESSAGE.SET_TOKEN ('BADITEM',to_char(p_item_id));
462: p_return_status := -82;
463: RETURN;
464: WHEN e_nolot_ctl THEN
465: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NOLOT_CTL_ITEM');
461: FND_MESSAGE.SET_TOKEN ('BADITEM',to_char(p_item_id));
462: p_return_status := -82;
463: RETURN;
464: WHEN e_nolot_ctl THEN
465: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NOLOT_CTL_ITEM');
466: p_return_status := -84;
467: RETURN;
468: WHEN e_invalid_sublot THEN
469: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_INVALID_SUBLOT_REQ');
465: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NOLOT_CTL_ITEM');
466: p_return_status := -84;
467: RETURN;
468: WHEN e_invalid_sublot THEN
469: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_INVALID_SUBLOT_REQ');
470: p_return_status := -86;
471: RETURN;
472: WHEN e_prof_lot_max THEN
473: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_LOT_MAX_ERROR');
469: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_INVALID_SUBLOT_REQ');
470: p_return_status := -86;
471: RETURN;
472: WHEN e_prof_lot_max THEN
473: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_LOT_MAX_ERROR');
474: p_return_status := -88;
475: RETURN;
476: WHEN e_prof_sublot_max THEN
477: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_SUBLOT_MAX_ERROR');
473: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_LOT_MAX_ERROR');
474: p_return_status := -88;
475: RETURN;
476: WHEN e_prof_sublot_max THEN
477: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_SUBLOT_MAX_ERROR');
478: p_return_status := -90;
479: RETURN;
480: WHEN e_lot_length_error THEN
481: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_LOT_LENGTH_ERROR');
477: FND_MESSAGE.SET_NAME('GMI','GMI_AUTOLOT_SUBLOT_MAX_ERROR');
478: p_return_status := -90;
479: RETURN;
480: WHEN e_lot_length_error THEN
481: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_LOT_LENGTH_ERROR');
482: p_return_status := -120;
483: ROLLBACK;
484: RETURN;
485: WHEN e_sublot_length_error THEN
482: p_return_status := -120;
483: ROLLBACK;
484: RETURN;
485: WHEN e_sublot_length_error THEN
486: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_SUBLOT_LENGTH_ERR');
487: p_return_status := -122;
488: ROLLBACK;
489: RETURN;
490: WHEN e_sublot_insert THEN
487: p_return_status := -122;
488: ROLLBACK;
489: RETURN;
490: WHEN e_sublot_insert THEN
491: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_INSERT_SUBLOT_ERR');
492: p_return_status := -126;
493: ROLLBACK;
494: RETURN;
495: WHEN OTHERS THEN
492: p_return_status := -126;
493: ROLLBACK;
494: RETURN;
495: WHEN OTHERS THEN
496: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_UNHANDLED');
497: w_err_code := SQLCODE;
498: FND_MESSAGE.SET_TOKEN ('BADCODE',to_char(w_err_code));
499: p_return_status := -136;
500: ROLLBACK;
494: RETURN;
495: WHEN OTHERS THEN
496: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_UNHANDLED');
497: w_err_code := SQLCODE;
498: FND_MESSAGE.SET_TOKEN ('BADCODE',to_char(w_err_code));
499: p_return_status := -136;
500: ROLLBACK;
501: RAISE;
502:
562: END IF;
563:
564: EXCEPTION
565: WHEN e_noitem_passed THEN
566: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NO_ITEM_ID');
567: RETURN -80;
568: WHEN e_item_not_found THEN
569: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_ITEM_NOTFOUND');
570: RETURN -82;
565: WHEN e_noitem_passed THEN
566: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_NO_ITEM_ID');
567: RETURN -80;
568: WHEN e_item_not_found THEN
569: FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_ITEM_NOTFOUND');
570: RETURN -82;
571:
572:
573: END check_for_autolot;