291: Check for User Routine
292: =========================================*/
293:
294:
295: IF FND_PROFILE.DEFINED('GMI_USER_LOT_AUTO_ROUTINE') THEN
296: profile_user_routine := NVL(FND_PROFILE.VALUE('GMI_USER_LOT_AUTO_ROUTINE'),0);
297: ELSE
298: profile_user_routine := 0;
299: END IF;
292: =========================================*/
293:
294:
295: IF FND_PROFILE.DEFINED('GMI_USER_LOT_AUTO_ROUTINE') THEN
296: profile_user_routine := NVL(FND_PROFILE.VALUE('GMI_USER_LOT_AUTO_ROUTINE'),0);
297: ELSE
298: profile_user_routine := 0;
299: END IF;
300:
330: /*=========================================
331: Retrieve Profile Padding Rules
332: =========================================*/
333:
334: IF FND_PROFILE.DEFINED('GMI_LOT_PAD_INDICATOR') THEN
335: prof_lot_pad := NVL(FND_PROFILE.VALUE('GMI_LOT_PAD_INDICATOR'),0);
336: IF (prof_lot_pad = '1') THEN
337: IF FND_PROFILE.DEFINED('GMI_MAX_LOT_LENGTH') THEN
338: prof_lot_max := FND_PROFILE.VALUE('GMI_MAX_LOT_LENGTH');
331: Retrieve Profile Padding Rules
332: =========================================*/
333:
334: IF FND_PROFILE.DEFINED('GMI_LOT_PAD_INDICATOR') THEN
335: prof_lot_pad := NVL(FND_PROFILE.VALUE('GMI_LOT_PAD_INDICATOR'),0);
336: IF (prof_lot_pad = '1') THEN
337: IF FND_PROFILE.DEFINED('GMI_MAX_LOT_LENGTH') THEN
338: prof_lot_max := FND_PROFILE.VALUE('GMI_MAX_LOT_LENGTH');
339: ELSE
333:
334: IF FND_PROFILE.DEFINED('GMI_LOT_PAD_INDICATOR') THEN
335: prof_lot_pad := NVL(FND_PROFILE.VALUE('GMI_LOT_PAD_INDICATOR'),0);
336: IF (prof_lot_pad = '1') THEN
337: IF FND_PROFILE.DEFINED('GMI_MAX_LOT_LENGTH') THEN
338: prof_lot_max := FND_PROFILE.VALUE('GMI_MAX_LOT_LENGTH');
339: ELSE
340: RAISE e_prof_lot_max;
341: END IF;
334: IF FND_PROFILE.DEFINED('GMI_LOT_PAD_INDICATOR') THEN
335: prof_lot_pad := NVL(FND_PROFILE.VALUE('GMI_LOT_PAD_INDICATOR'),0);
336: IF (prof_lot_pad = '1') THEN
337: IF FND_PROFILE.DEFINED('GMI_MAX_LOT_LENGTH') THEN
338: prof_lot_max := FND_PROFILE.VALUE('GMI_MAX_LOT_LENGTH');
339: ELSE
340: RAISE e_prof_lot_max;
341: END IF;
342: ELSE
347: prof_lot_max := 32;
348: END IF;
349:
350:
351: IF FND_PROFILE.DEFINED('GMI_SUBLOT_PAD_INDICATOR') THEN
352: prof_sublot_pad := NVL(FND_PROFILE.VALUE('GMI_SUBLOT_PAD_INDICATOR'),0);
353: IF (prof_sublot_pad = 1) THEN
354: IF FND_PROFILE.DEFINED('GMI_MAX_SUBLOT_LENGTH') THEN
355: prof_sublot_max := FND_PROFILE.VALUE('GMI_MAX_SUBLOT_LENGTH');
348: END IF;
349:
350:
351: IF FND_PROFILE.DEFINED('GMI_SUBLOT_PAD_INDICATOR') THEN
352: prof_sublot_pad := NVL(FND_PROFILE.VALUE('GMI_SUBLOT_PAD_INDICATOR'),0);
353: IF (prof_sublot_pad = 1) THEN
354: IF FND_PROFILE.DEFINED('GMI_MAX_SUBLOT_LENGTH') THEN
355: prof_sublot_max := FND_PROFILE.VALUE('GMI_MAX_SUBLOT_LENGTH');
356: ELSE
350:
351: IF FND_PROFILE.DEFINED('GMI_SUBLOT_PAD_INDICATOR') THEN
352: prof_sublot_pad := NVL(FND_PROFILE.VALUE('GMI_SUBLOT_PAD_INDICATOR'),0);
353: IF (prof_sublot_pad = 1) THEN
354: IF FND_PROFILE.DEFINED('GMI_MAX_SUBLOT_LENGTH') THEN
355: prof_sublot_max := FND_PROFILE.VALUE('GMI_MAX_SUBLOT_LENGTH');
356: ELSE
357: RAISE e_prof_sublot_max;
358: END IF;
351: IF FND_PROFILE.DEFINED('GMI_SUBLOT_PAD_INDICATOR') THEN
352: prof_sublot_pad := NVL(FND_PROFILE.VALUE('GMI_SUBLOT_PAD_INDICATOR'),0);
353: IF (prof_sublot_pad = 1) THEN
354: IF FND_PROFILE.DEFINED('GMI_MAX_SUBLOT_LENGTH') THEN
355: prof_sublot_max := FND_PROFILE.VALUE('GMI_MAX_SUBLOT_LENGTH');
356: ELSE
357: RAISE e_prof_sublot_max;
358: END IF;
359: ELSE