[Home] [Help]
371: AND organization_id = p_organization_id;
372:
373: IF ( l_lot_control_code = 1 )
374: THEN
375: fnd_message.set_name ('INV' , 'INV_NO_LOT_CONTROL' );
376: fnd_msg_pub.ADD;
377: x_return_status := fnd_api.g_ret_sts_error;
378: RAISE fnd_api.g_exc_unexpected_error;
379: END IF;
382: THEN
383: IF (l_debug = 1) THEN
384: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in LOT_CONTROL_CODE' , 'INV_LOT_API_PUB');
385: END IF;
386: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
387: fnd_msg_pub.ADD;
388: x_return_status := fnd_api.g_ret_sts_error;
389: RAISE fnd_api.g_exc_unexpected_error;
390: END;
413: AND lot.organization_id = p_organization_id
414: AND lot.inventory_item_id = p_inventory_item_id );
415:
416: IF ( l_lotcount > 0 ) THEN
417: fnd_message.set_name ('INV' , 'INV_INT_LOTUNIQEXP' );
418: fnd_msg_pub.ADD;
419: x_return_status := fnd_api.g_ret_sts_error;
420: RAISE fnd_api.g_exc_unexpected_error;
421: IF (l_debug = 1) THEN
450: SELECT SYSDATE + l_shelf_life_days
451: INTO p_expiration_date
452: FROM DUAL;
453: ELSIF ( l_shelf_life_code = 4 ) THEN
454: fnd_message.set_name ('INV' , 'INV_LOT_EXPREQD' );
455: fnd_msg_pub.ADD;
456: x_return_status := fnd_api.g_ret_sts_error;
457: RAISE fnd_api.g_exc_unexpected_error;
458: END IF;
1390: ELSE
1391: IF (l_debug = 1) THEN
1392: inv_pick_wave_pick_confirm_pub.tracelog ( 'INV_LOT_EXISTS' , 'INV_LOT_API_PUB');
1393: END IF;
1394: fnd_message.set_name ('INV' , 'INV_LOT_EXISTS' );
1395: fnd_msg_pub.ADD;
1396: --l_return_status := FND_API.G_RET_STS_SUCCESS;
1397: x_return_status := fnd_api.g_ret_sts_success;
1398: END IF;
2473: ROLLBACK;
2474: IF (l_debug =1 ) THEN
2475: print_debug('not found',9);
2476: END IF;
2477: fnd_message.set_name ('INV' , 'INV_LOT_AUTOGEN_FAILED' ); -- Bug# 7298723
2478: -- fnd_message.set_token ('ENTITY1' , 'Item with last lot number' ); -- Bug# 7298723
2479: fnd_msg_pub.ADD;
2480: x_return_status := fnd_api.g_ret_sts_error;
2481: --AND inventory_item_id = p_inventory_item_id;
2474: IF (l_debug =1 ) THEN
2475: print_debug('not found',9);
2476: END IF;
2477: fnd_message.set_name ('INV' , 'INV_LOT_AUTOGEN_FAILED' ); -- Bug# 7298723
2478: -- fnd_message.set_token ('ENTITY1' , 'Item with last lot number' ); -- Bug# 7298723
2479: fnd_msg_pub.ADD;
2480: x_return_status := fnd_api.g_ret_sts_error;
2481: --AND inventory_item_id = p_inventory_item_id;
2482: END IF;
2810: x_child_lot_flag, x_item_parent_child_gen_flag,
2811: x_item_child_lot_prefix, x_child_lot_starting_number;
2812: IF (get_item_data%NOTFOUND) THEN
2813: CLOSE get_item_data;
2814: fnd_message.set_name ('INV' , 'INV_CL_GET_ITEM_ERR' );
2815: fnd_msg_pub.ADD;
2816: RAISE fnd_api.g_exc_error;
2817: END IF;
2818: CLOSE get_item_data;
2819: /*===========================================
2820: Is child_lot split allowed?
2821: ===========================================*/
2822: IF (nvl(x_child_lot_flag,'N') = 'N') THEN
2823: fnd_message.set_name ('INV' , 'INV_CL_CHILD_LOT_DISABLED');
2824: fnd_msg_pub.ADD;
2825: RAISE fnd_api.g_exc_error;
2826: END IF;
2827: /*===========================================
2834: x_child_lot_zero_padding_flag,
2835: x_child_lot_alpha_prefix, x_child_lot_number_length;
2836: IF (get_child_parms%NOTFOUND) THEN
2837: CLOSE get_child_parms;
2838: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
2839: fnd_msg_pub.ADD;
2840: RAISE fnd_api.g_exc_error;
2841: END IF;
2842: CLOSE get_child_parms;
2881: If child lot generated by user routine then
2882: return it, Otherwise if null then return
2883: ===========================================*/
2884: IF (interim_child_lot_number IS NULL) THEN
2885: fnd_message.set_name ('INV' , 'INV_CL_USER_PGM_ERR');
2886: fnd_msg_pub.ADD;
2887: RAISE fnd_api.g_exc_error;
2888: END IF;
2889: /*=================================
2889: /*=================================
2890: BUG#4145437
2891: =================================*/
2892: IF (lengthb(interim_child_lot_number) > 80) THEN
2893: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_LENGTH' );
2894: fnd_msg_pub.ADD;
2895: RAISE fnd_api.g_exc_error;
2896: END IF;
2897:
2912: p_inventory_item_id,
2913: p_parent_lot_number,
2914: x_last_child_seq);
2915: IF (l_ret <> 0 ) THEN
2916: fnd_message.set_name ('INV','INV_CL_INS_CHILD_ERR');
2917: fnd_msg_pub.ADD;
2918: RAISE fnd_api.g_exc_error;
2919: END IF;
2920: ELSE
2927: p_inventory_item_id,
2928: p_parent_lot_number,
2929: x_last_child_seq);
2930: IF (l_ret <> 0 ) THEN
2931: fnd_message.set_name ('INV','INV_CL_UPD_CHILD_ERR');
2932: fnd_msg_pub.ADD;
2933: RAISE fnd_api.g_exc_error;
2934: END IF;
2935: END IF;
2941:
2942:
2943: IF ( (lengthb(x_interim_child_prefix)
2944: + lengthb(x_last_child_seq)) > 80 ) THEN
2945: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_LENGTH' );
2946: fnd_msg_pub.ADD;
2947: RAISE fnd_api.g_exc_error;
2948: END IF;
2949: IF ( (lengthb(x_interim_child_prefix)
2948: END IF;
2949: IF ( (lengthb(x_interim_child_prefix)
2950: + lengthb(x_last_child_seq)) >
2951: x_child_lot_number_length ) THEN
2952: fnd_message.set_name ('INV' , 'INV_CL_MAX_CHLD_ERR' );
2953: fnd_msg_pub.ADD;
2954: RAISE fnd_api.g_exc_error;
2955: END IF;
2956:
3017: p_inventory_item_id,
3018: p_parent_lot_number,
3019: x_last_child_seq);
3020: IF (l_ret <> 0 ) THEN
3021: fnd_message.set_name ('INV','INV_CL_INS_CHILD_ERR');
3022: fnd_msg_pub.ADD;
3023: RAISE fnd_api.g_exc_error;
3024: END IF;
3025: ELSE
3032: p_inventory_item_id,
3033: p_parent_lot_number,
3034: x_last_child_seq);
3035: IF (l_ret <> 0 ) THEN
3036: fnd_message.set_name ('INV','INV_CL_UPD_CHILD_ERR');
3037: fnd_msg_pub.ADD;
3038: RAISE fnd_api.g_exc_error;
3039: END IF;
3040: END IF;
3044: x_interim_child_prefix :=
3045: p_parent_lot_number||x_item_child_lot_prefix;
3046: IF ( (lengthb(x_interim_child_prefix)
3047: + lengthb(x_last_child_seq)) > 80 ) THEN
3048: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_ERR' );
3049: fnd_msg_pub.ADD;
3050: RAISE fnd_api.g_exc_error;
3051: END IF;
3052: --temp joe what is length for item child?
3131: x_child_lot_zero_padding_flag,
3132: x_child_lot_alpha_prefix, x_child_lot_number_length;
3133: IF (get_child_parms%NOTFOUND) THEN
3134: CLOSE get_child_parms;
3135: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
3136: fnd_msg_pub.ADD;
3137: RAISE fnd_api.g_exc_error;
3138: END IF;
3139: CLOSE get_child_parms;
3185: FROM mtl_parameters
3186: WHERE organization_id = p_org_id;
3187: EXCEPTION
3188: WHEN NO_DATA_FOUND THEN
3189: fnd_message.set_name ('INV' , 'INV_FIELD_INVALID' );
3190: fnd_message.set_token ('ENTITY1' , 'p_org_id' );
3191: fnd_msg_pub.ADD;
3192: RAISE fnd_api.g_exc_error;
3193: END;
3186: WHERE organization_id = p_org_id;
3187: EXCEPTION
3188: WHEN NO_DATA_FOUND THEN
3189: fnd_message.set_name ('INV' , 'INV_FIELD_INVALID' );
3190: fnd_message.set_token ('ENTITY1' , 'p_org_id' );
3191: fnd_msg_pub.ADD;
3192: RAISE fnd_api.g_exc_error;
3193: END;
3194: END IF;
3210: WHERE organization_id = p_org_id
3211: AND inventory_item_id = p_inventory_item_id;
3212:
3213: IF ( l_lot_control_code = 1 ) THEN
3214: fnd_message.set_name ( 'INV' , 'INV_NO_LOT_CONTROL');
3215: fnd_msg_pub.ADD;
3216: RAISE fnd_api.g_exc_error;
3217: END IF;
3218: EXCEPTION
3216: RAISE fnd_api.g_exc_error;
3217: END IF;
3218: EXCEPTION
3219: WHEN NO_DATA_FOUND THEN
3220: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3221: fnd_msg_pub.ADD;
3222: RAISE fnd_api.g_exc_error;
3223: END;
3224:
3286: RAISE fnd_api.g_exc_error;
3287: END IF;
3288: END IF;
3289: ELSE -- lot length exceeds 80
3290: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3291: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3292: fnd_msg_pub.ADD;
3293: RAISE fnd_api.g_exc_error;
3294: END IF;
3287: END IF;
3288: END IF;
3289: ELSE -- lot length exceeds 80
3290: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3291: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3292: fnd_msg_pub.ADD;
3293: RAISE fnd_api.g_exc_error;
3294: END IF;
3295: ELSE -- l_lot_suffix is NULL
3292: fnd_msg_pub.ADD;
3293: RAISE fnd_api.g_exc_error;
3294: END IF;
3295: ELSE -- l_lot_suffix is NULL
3296: fnd_message.set_name ( 'INV' , 'INV_FIELD_INVALID');
3297:
3298: -- Following query added as a part of the bug fix for Bug # 3330855
3299: SELECT ORGANIZATION_CODE, CONCATENATED_SEGMENTS
3300: INTO v_org_code, v_item_name
3302: WHERE ORG.ORGANIZATION_ID = p_org_id
3303: AND INVENTORY_ITEM_ID = p_inventory_item_id
3304: AND ITEM.ORGANIZATION_ID = p_org_id;
3305:
3306: fnd_message.set_token ( 'ENTITY1' , 'Lot Suffix for Org: ' || v_org_code || ' and Item: ' || v_item_name);
3307: fnd_msg_pub.ADD;
3308: RAISE fnd_api.g_exc_error;
3309: END IF;
3310: EXCEPTION
3311: WHEN NO_DATA_FOUND THEN
3312: IF (l_debug=1) THEN
3313: print_debug('no data found',9);
3314: END IF;
3315: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3316: fnd_message.set_token ( 'ENTITY1' , 'p_org_id, p_inventory_item_id');
3317: fnd_msg_pub.ADD;
3318: RAISE fnd_api.g_exc_error;
3319: END;
3312: IF (l_debug=1) THEN
3313: print_debug('no data found',9);
3314: END IF;
3315: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3316: fnd_message.set_token ( 'ENTITY1' , 'p_org_id, p_inventory_item_id');
3317: fnd_msg_pub.ADD;
3318: RAISE fnd_api.g_exc_error;
3319: END;
3320: ELSIF ( lot_generation = 1 ) THEN -- org-level
3348: ELSE
3349: auto_lot_number := l_lot_prefix || l_lot_suffix;
3350: END IF;
3351: ELSE -- lot length exceeds 80
3352: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3353: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3354: fnd_msg_pub.ADD;
3355: RAISE fnd_api.g_exc_error;
3356: END IF;
3349: auto_lot_number := l_lot_prefix || l_lot_suffix;
3350: END IF;
3351: ELSE -- lot length exceeds 80
3352: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3353: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3354: fnd_msg_pub.ADD;
3355: RAISE fnd_api.g_exc_error;
3356: END IF;
3357: END;
3368: auto_lot_number)
3369: THEN
3370: RETURN (auto_lot_number);
3371: ELSE
3372: fnd_message.set_name('INV', 'INV_LOT_NUMBER_EXISTS');
3373: fnd_msg_pub.add;
3374: RAISE fnd_api.g_exc_error ;
3375: END IF;
3376: */
3978:
3979: IF l_segments_dr.is_required(i) THEN
3980: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
3981: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
3982: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
3983: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
3984: fnd_msg_pub.ADD;
3985:
3986: IF g_debug = 1 THEN
3979: IF l_segments_dr.is_required(i) THEN
3980: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
3981: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
3982: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
3983: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
3984: fnd_msg_pub.ADD;
3985:
3986: IF g_debug = 1 THEN
3987: print_debug('Req segment is not populated', 9);
4050:
4051: IF l_segments_dr.is_required(i) THEN
4052: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4053: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4054: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4055: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4056: fnd_msg_pub.ADD;
4057: RAISE g_exc_error;
4058:
4051: IF l_segments_dr.is_required(i) THEN
4052: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4053: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4054: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4055: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4056: fnd_msg_pub.ADD;
4057: RAISE g_exc_error;
4058:
4059: IF g_debug = 1 THEN
4093: END IF;
4094: END LOOP;
4095:
4096: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4097: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4098: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4099: fnd_message.set_token('CONTEXT', l_context);
4100: fnd_msg_pub.ADD;
4101: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4094: END LOOP;
4095:
4096: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4097: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4098: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4099: fnd_message.set_token('CONTEXT', l_context);
4100: fnd_msg_pub.ADD;
4101: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4102: RAISE g_exc_error;
4095:
4096: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4097: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4098: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4099: fnd_message.set_token('CONTEXT', l_context);
4100: fnd_msg_pub.ADD;
4101: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4102: RAISE g_exc_error;
4103: END IF;
4174: ELSIF l_return_status = g_ret_sts_unexp_error THEN
4175: IF g_debug = 1 THEN
4176: print_debug('Program WMS_LOT_ATTR_VALIDATE has failed with a Unexpected exception', 9);
4177: END IF;
4178: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4179: FND_MESSAGE.SET_TOKEN('PROG_NAME','WMS_LOT_ATTR_VALIDATE');
4180: fnd_msg_pub.ADD;
4181: RAISE g_exc_unexpected_error;
4182: END IF;
4175: IF g_debug = 1 THEN
4176: print_debug('Program WMS_LOT_ATTR_VALIDATE has failed with a Unexpected exception', 9);
4177: END IF;
4178: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4179: FND_MESSAGE.SET_TOKEN('PROG_NAME','WMS_LOT_ATTR_VALIDATE');
4180: fnd_msg_pub.ADD;
4181: RAISE g_exc_unexpected_error;
4182: END IF;
4183: END IF; /* If wms_is installed */
4190:
4191: --print_debug('Here are the error messages: ',9);
4192: WHILE e < 5001
4193: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
4194: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
4195: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
4196: fnd_msg_pub.ADD;
4197: print_debug(SUBSTR(error_msg, s, e), 9);
4198: s := s + 200;
4191: --print_debug('Here are the error messages: ',9);
4192: WHILE e < 5001
4193: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
4194: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
4195: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
4196: fnd_msg_pub.ADD;
4197: print_debug(SUBSTR(error_msg, s, e), 9);
4198: s := s + 200;
4199: e := e + 200;
4282: IF g_debug = 1 THEN
4283: print_debug('Item is not lot controlled ', 9);
4284: END IF;
4285:
4286: fnd_message.set_name('INV', 'INV_NO_LOT_CONTROL');
4287: fnd_msg_pub.ADD;
4288: x_return_status := fnd_api.g_ret_sts_error;
4289: RAISE g_exc_error;
4290: END IF;
4293: IF (g_debug = 1) THEN
4294: print_debug('Exception in LOT_CONTROL_CODE', 9);
4295: END IF;
4296:
4297: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
4298: fnd_msg_pub.ADD;
4299: RAISE g_exc_error;
4300: END;
4301:
4316: IF (g_debug = 1) THEN
4317: print_debug('Lot Number Uniqueness is not defined ', 9);
4318: END IF;
4319:
4320: fnd_message.set_name('INV', 'INV_NO_UNIQUENESS_DEFN');
4321: /* Lot Number Uniqueness is not defined*/
4322: fnd_msg_pub.ADD;
4323: RAISE NO_DATA_FOUND;
4324: END;
4332: , p_auto_lot_number => p_lot_number
4333: );
4334:
4335: IF NOT l_chk_lot_uniqueness THEN
4336: fnd_message.set_name('INV', 'INV_LOT_UNIQUENESS');
4337: fnd_msg_pub.ADD;
4338:
4339: IF g_debug = 1 THEN
4340: print_debug('Lot Number Uniqueness check failed ', 9);
4363:
4364: /*IF p_attribute_category IS NULL THEN
4365: for i in 1..p_attributes_tbl.count LOOP
4366: if p_attributes_tbl(i) IS NOT NULL THEN
4367: fnd_message.set_name('INV', 'INV_NO_ATTRIBUTE_CATEGORY');
4368: fnd_msg_pub.ADD;
4369:
4370: IF g_debug = 1 THEN
4371: print_debug('Attribute Category value is null', 9);
4431: ELSIF l_return_status = g_ret_sts_unexp_error THEN
4432: IF g_debug = 1 THEN
4433: print_debug('Program get_lot_attr_info has failed with a Unexpected exception', 9);
4434: END IF;
4435: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4436: FND_MESSAGE.SET_TOKEN('PROG_NAME','get_lot_attr_info');
4437: fnd_msg_pub.ADD;
4438: RAISE g_exc_unexpected_error;
4439: END IF;
4432: IF g_debug = 1 THEN
4433: print_debug('Program get_lot_attr_info has failed with a Unexpected exception', 9);
4434: END IF;
4435: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4436: FND_MESSAGE.SET_TOKEN('PROG_NAME','get_lot_attr_info');
4437: fnd_msg_pub.ADD;
4438: RAISE g_exc_unexpected_error;
4439: END IF;
4440: END IF;
4690: IF g_debug = 1 THEN
4691: print_debug('Upd Lot Attr : Conmbination of Lot number,Item and Org does not exists', 9);
4692: END IF;
4693:
4694: fnd_message.set_name('INV', 'INV_LOT_NOT_EXISTS');
4695: fnd_msg_pub.add;
4696: --fnd_message.set_token('LOT',p_lot_rec.lot_number);
4697: RAISE g_exc_error;
4698: END;
4692: END IF;
4693:
4694: fnd_message.set_name('INV', 'INV_LOT_NOT_EXISTS');
4695: fnd_msg_pub.add;
4696: --fnd_message.set_token('LOT',p_lot_rec.lot_number);
4697: RAISE g_exc_error;
4698: END;
4699:
4700: BEGIN
7034: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7035: IF g_debug = 1 THEN
7036: print_debug('Program Update_Inv_lot has failed with a Unexpected exception', 9);
7037: END IF;
7038: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
7039: FND_MESSAGE.SET_TOKEN('PROG_NAME','Update_Inv_lot');
7040: fnd_msg_pub.ADD;
7041: RAISE g_exc_unexpected_error;
7042: END IF;
7035: IF g_debug = 1 THEN
7036: print_debug('Program Update_Inv_lot has failed with a Unexpected exception', 9);
7037: END IF;
7038: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
7039: FND_MESSAGE.SET_TOKEN('PROG_NAME','Update_Inv_lot');
7040: fnd_msg_pub.ADD;
7041: RAISE g_exc_unexpected_error;
7042: END IF;
7043:
7652: IF g_debug = 1 THEN
7653: print_debug('The value is required and value is null ' || l_segments_dr.application_column_name(i), 9);
7654: END IF;
7655:
7656: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
7657: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
7658: fnd_msg_pub.ADD;
7659: RAISE g_exc_error;
7660: END IF;
7653: print_debug('The value is required and value is null ' || l_segments_dr.application_column_name(i), 9);
7654: END IF;
7655:
7656: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
7657: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
7658: fnd_msg_pub.ADD;
7659: RAISE g_exc_error;
7660: END IF;
7661:
7679: inv_lot_sel_attr.get_context_code(l_context, p_organization_id, p_inventory_item_id, 'Lot Attributes');
7680: END IF;
7681:
7682: IF l_context IS NULL AND l_required_flag = TRUE THEN
7683: fnd_message.set_name('WMS', 'WMS_NO_CONTEXT');
7684: fnd_msg_pub.ADD;
7685: RAISE g_exc_error;
7686: END IF;
7687:
7736: IF g_debug = 1 THEN
7737: print_debug('Segment is required and value is null', 9);
7738: END IF;
7739:
7740: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
7741: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
7742: fnd_msg_pub.ADD;
7743: RAISE g_exc_error;
7744: END IF;
7737: print_debug('Segment is required and value is null', 9);
7738: END IF;
7739:
7740: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
7741: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
7742: fnd_msg_pub.ADD;
7743: RAISE g_exc_error;
7744: END IF;
7745: v_index := v_index + 1;
7785:
7786: --print_debug('Here are the error messages: ',9);
7787: WHILE e < 5001
7788: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
7789: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
7790: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
7791: fnd_msg_pub.ADD;
7792: print_debug(SUBSTR(error_msg, s, e), 9);
7793: s := s + 200;
7786: --print_debug('Here are the error messages: ',9);
7787: WHILE e < 5001
7788: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
7789: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
7790: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
7791: fnd_msg_pub.ADD;
7792: print_debug(SUBSTR(error_msg, s, e), 9);
7793: s := s + 200;
7794: e := e + 200;
7935: l_item_child_lot_prefix, l_item_child_lot_validation,
7936: l_item_child_lot_startno;
7937: IF (get_item_data%NOTFOUND) THEN
7938: CLOSE get_item_data;
7939: fnd_message.set_name ('INV' , 'INV_CL_ITEM_ERR');
7940: fnd_msg_pub.ADD;
7941: RAISE fnd_api.g_exc_error;
7942: END IF;
7943: CLOSE get_item_data;
7945: /*==========================================
7946: If Item not autosplit enabled stop.
7947: ========================================*/
7948: IF (nvl(l_item_child_lot_flag,'N') = 'N') THEN
7949: fnd_message.set_name ('INV' , 'INV_CL_CHILD_LOT_DISABLED');
7950: fnd_msg_pub.ADD;
7951: RAISE fnd_api.g_exc_error;
7952: END IF;
7953:
7962: l_prm_child_lot_number_length, l_prm_child_lot_val_flag,
7963: l_prm_zero_padding_flag;
7964: IF (get_child_parms%NOTFOUND) THEN
7965: CLOSE get_child_parms;
7966: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
7967: fnd_msg_pub.ADD;
7968: RAISE fnd_api.g_exc_error;
7969: END IF;
7970: CLOSE get_child_parms;
8033: ===================================================*/
8034: IF (NVL(l_child_prefix,'ZZZZ') = NVL(SUBSTRB(p_child_lot_number, l_parent_length + 1, l_child_prefix_length),'ZZZZ')) THEN
8035: NULL;
8036: ELSE
8037: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_MISMATCH');
8038: fnd_msg_pub.ADD;
8039: RAISE fnd_api.g_exc_error;
8040: END IF;
8041: ELSE
8038: fnd_msg_pub.ADD;
8039: RAISE fnd_api.g_exc_error;
8040: END IF;
8041: ELSE
8042: fnd_message.set_name ('INV' , 'INV_CL_PREFIX_MISMATCH');
8043: fnd_msg_pub.ADD;
8044: RAISE fnd_api.g_exc_error;
8045: END IF;
8046: ELSE
8061: l_final_suffix :=
8062: SUBSTRB(p_child_lot_number, l_final_start);
8063:
8064: IF (l_final_suffix IS NULL) THEN
8065: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_NONUMERIC');
8066: fnd_msg_pub.ADD;
8067: RAISE fnd_api.g_exc_error;
8068: END IF;
8069:
8086:
8087: IF (l_prm_lot_number_generation = 1) THEN --org
8088: IF (l_prm_zero_padding_flag = 'Y') THEN
8089: IF (l_overall_length <> l_child_lot_length) THEN
8090: fnd_message.set_name ('INV' , 'INV_CL_PAD_ERROR');
8091: fnd_msg_pub.ADD;
8092: RAISE fnd_api.g_exc_error;
8093: END IF;
8094: END IF;
8093: END IF;
8094: END IF;
8095: ELSE -- Item
8096: IF (NVL(l_item_child_lot_startno,0) > l_final_suffix_numeric) THEN
8097: fnd_message.set_name ('INV' , 'INV_CL_STARTING_SUFFIX_ERR');
8098: fnd_msg_pub.ADD;
8099: RAISE fnd_api.g_exc_error;
8100: END IF;
8101: END IF;
8107: length indicated is used. Otherwise use 80.
8108: ============================================*/
8109:
8110: IF (l_child_lot_length > l_overall_length ) THEN
8111: fnd_message.set_name ('INV' , 'INV_CL_OVERALL_LENGTH');
8112: fnd_msg_pub.ADD;
8113: RAISE fnd_api.g_exc_error;
8114: END IF;
8115: RETURN;
8116:
8117: EXCEPTION
8118:
8119: WHEN l_num_error THEN
8120: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_NONUMERIC');
8121: fnd_msg_pub.ADD;
8122: x_return_status := FND_API.G_RET_STS_ERROR;
8123: FND_MSG_PUB.Count_AND_GET
8124: (p_count => x_msg_count, p_data => x_msg_data);
8390: INTO l_lot_divisible,l_lot_control_code;
8391: IF (get_item_details%NOTFOUND)
8392: THEN
8393: CLOSE get_item_details;
8394: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8395: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8396: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8397: FND_MSG_PUB.ADD;
8398: RAISE FND_API.G_EXC_ERROR;
8391: IF (get_item_details%NOTFOUND)
8392: THEN
8393: CLOSE get_item_details;
8394: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8395: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8396: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8397: FND_MSG_PUB.ADD;
8398: RAISE FND_API.G_EXC_ERROR;
8399: END IF;
8392: THEN
8393: CLOSE get_item_details;
8394: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8395: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8396: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8397: FND_MSG_PUB.ADD;
8398: RAISE FND_API.G_EXC_ERROR;
8399: END IF;
8400: CLOSE get_item_details;
8436: , l_transaction_source_type_id;
8437: IF (get_transaction_details%NOTFOUND)
8438: THEN
8439: CLOSE get_transaction_details;
8440: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
8441: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
8442: FND_MSG_PUB.ADD;
8443: RAISE FND_API.G_EXC_ERROR;
8444: END IF;
8437: IF (get_transaction_details%NOTFOUND)
8438: THEN
8439: CLOSE get_transaction_details;
8440: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
8441: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
8442: FND_MSG_PUB.ADD;
8443: RAISE FND_API.G_EXC_ERROR;
8444: END IF;
8445: CLOSE get_transaction_details;
8597: IF (ABS(p_primary_quantity) <> l_qoh )
8598: THEN
8599: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
8600: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
8601: --l_error_exp := FND_MESSAGE.GET;
8602: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
8603: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
8604: FND_MSG_PUB.ADD;
8605: --l_error_code := FND_MESSAGE.GET;
8598: THEN
8599: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
8600: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
8601: --l_error_exp := FND_MESSAGE.GET;
8602: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
8603: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
8604: FND_MSG_PUB.ADD;
8605: --l_error_code := FND_MESSAGE.GET;
8606: /* Update MTI table with error code/explanation */
8599: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
8600: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
8601: --l_error_exp := FND_MESSAGE.GET;
8602: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
8603: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
8604: FND_MSG_PUB.ADD;
8605: --l_error_code := FND_MESSAGE.GET;
8606: /* Update MTI table with error code/explanation */
8607: --errupdate(p_rowid);
8601: --l_error_exp := FND_MESSAGE.GET;
8602: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
8603: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
8604: FND_MSG_PUB.ADD;
8605: --l_error_code := FND_MESSAGE.GET;
8606: /* Update MTI table with error code/explanation */
8607: --errupdate(p_rowid);
8608: RAISE FND_API.G_EXC_ERROR;
8609: END IF;
8614: -- print_debug('within case 1.1 : Misc Issue. Can issue less than onhand qty');
8615: -- IF (p_primary_quantity > l_qoh )
8616: -- THEN
8617: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8618: -- --l_error_exp := FND_MESSAGE.GET;
8619: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8620: -- FND_MSG_PUB.ADD;
8621: -- --l_error_code := FND_MESSAGE.GET;
8622: -- /* Update MTI table with error code/explanation */
8615: -- IF (p_primary_quantity > l_qoh )
8616: -- THEN
8617: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8618: -- --l_error_exp := FND_MESSAGE.GET;
8619: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8620: -- FND_MSG_PUB.ADD;
8621: -- --l_error_code := FND_MESSAGE.GET;
8622: -- /* Update MTI table with error code/explanation */
8623: -- --errupdate(p_rowid);
8617: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8618: -- --l_error_exp := FND_MESSAGE.GET;
8619: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
8620: -- FND_MSG_PUB.ADD;
8621: -- --l_error_code := FND_MESSAGE.GET;
8622: -- /* Update MTI table with error code/explanation */
8623: -- --errupdate(p_rowid);
8624: -- RAISE FND_API.G_EXC_ERROR;
8625: -- END IF;
8690: -- a different location.
8691: IF ( ll_qoh <> l_qoh ) --Bug#5469430
8692: THEN
8693: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
8694: --l_error_exp := FND_MESSAGE.GET;
8695: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
8696: FND_MSG_PUB.ADD;
8697: --l_error_expp := FND_MESSAGE.GET;
8698: /* Update MTI table with error code/explanation */
8691: IF ( ll_qoh <> l_qoh ) --Bug#5469430
8692: THEN
8693: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
8694: --l_error_exp := FND_MESSAGE.GET;
8695: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
8696: FND_MSG_PUB.ADD;
8697: --l_error_expp := FND_MESSAGE.GET;
8698: /* Update MTI table with error code/explanation */
8699: --errupdate(p_rowid);
8693: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
8694: --l_error_exp := FND_MESSAGE.GET;
8695: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
8696: FND_MSG_PUB.ADD;
8697: --l_error_expp := FND_MESSAGE.GET;
8698: /* Update MTI table with error code/explanation */
8699: --errupdate(p_rowid);
8700: RAISE FND_API.G_EXC_ERROR;
8701: END IF; -- ( ll_atr = 0 )
8702: -- bug 4042255 : added forgotten ELSE clause :
8703: -- Bug 4146697 - Removed ELSE condition below.
8704: -- ELSE
8705: -- print_debug('within case 3 Some Qty already available to reserve. prim_qty='||p_primary_quantity||', atr='||l_atr);
8706: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8707: -- FND_MSG_PUB.ADD;
8708:
8709: -- RAISE FND_API.G_EXC_ERROR;
8710: END IF; -- ( l_atr = 0 )
8713: THEN
8714: print_debug('within case 3 Some Qty already reserved. prim_qty='||p_primary_quantity||', qr='||l_qr);
8715:
8716: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8717: --l_error_exp := FND_MESSAGE.GET;
8718: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8719: FND_MSG_PUB.ADD;
8720: --l_error_expp := FND_MESSAGE.GET;
8721: /* Update MTI table with error code/explanation */
8714: print_debug('within case 3 Some Qty already reserved. prim_qty='||p_primary_quantity||', qr='||l_qr);
8715:
8716: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8717: --l_error_exp := FND_MESSAGE.GET;
8718: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8719: FND_MSG_PUB.ADD;
8720: --l_error_expp := FND_MESSAGE.GET;
8721: /* Update MTI table with error code/explanation */
8722: --errupdate(p_rowid);
8716: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8717: --l_error_exp := FND_MESSAGE.GET;
8718: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8719: FND_MSG_PUB.ADD;
8720: --l_error_expp := FND_MESSAGE.GET;
8721: /* Update MTI table with error code/explanation */
8722: --errupdate(p_rowid);
8723: RAISE FND_API.G_EXC_ERROR;
8724: END IF; -- ( l_qr > 0 )
8739: IF ( l_qr > 0 )
8740: THEN
8741: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
8742: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8743: --l_error_exp := FND_MESSAGE.GET;
8744: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
8745: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
8746: -- FND_MSG_PUB.ADD;
8747: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8740: THEN
8741: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
8742: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8743: --l_error_exp := FND_MESSAGE.GET;
8744: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
8745: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
8746: -- FND_MSG_PUB.ADD;
8747: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8748: FND_MSG_PUB.ADD;
8741: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
8742: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
8743: --l_error_exp := FND_MESSAGE.GET;
8744: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
8745: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
8746: -- FND_MSG_PUB.ADD;
8747: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8748: FND_MSG_PUB.ADD;
8749: --l_error_expp := FND_MESSAGE.GET;
8743: --l_error_exp := FND_MESSAGE.GET;
8744: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
8745: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
8746: -- FND_MSG_PUB.ADD;
8747: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8748: FND_MSG_PUB.ADD;
8749: --l_error_expp := FND_MESSAGE.GET;
8750: /* Update MTI table with error code/explanation */
8751: --errupdate(p_rowid);
8745: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
8746: -- FND_MSG_PUB.ADD;
8747: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
8748: FND_MSG_PUB.ADD;
8749: --l_error_expp := FND_MESSAGE.GET;
8750: /* Update MTI table with error code/explanation */
8751: --errupdate(p_rowid);
8752: RAISE FND_API.G_EXC_ERROR;
8753: END IF;
9114: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9115: IF g_debug = 1 THEN
9116: print_debug('Program Create_Inv_lot has failed with a Unexpected exception', 9);
9117: END IF;
9118: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9119: FND_MESSAGE.SET_TOKEN('PROG_NAME','Create_Inv_lot');
9120: fnd_msg_pub.ADD;
9121: RAISE g_exc_unexpected_error;
9122: END IF;
9115: IF g_debug = 1 THEN
9116: print_debug('Program Create_Inv_lot has failed with a Unexpected exception', 9);
9117: END IF;
9118: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9119: FND_MESSAGE.SET_TOKEN('PROG_NAME','Create_Inv_lot');
9120: fnd_msg_pub.ADD;
9121: RAISE g_exc_unexpected_error;
9122: END IF;
9123:
9246: IF p_lot_rec.organization_id IS NULL THEN
9247: IF g_debug = 1 THEN
9248: print_debug('Value for mandatory field organization id cannot be null.', 9);
9249: END IF;
9250: fnd_message.set_name('INV', 'INV_NULL_ORG_EXP') ;
9251: fnd_msg_pub.ADD;
9252: RAISE fnd_api.g_exc_error;
9253: END IF ;
9254:
9262: IF (g_debug = 1) THEN
9263: print_debug('Item not found. Invalid item. Please re-enter.', 9);
9264: END IF;
9265:
9266: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
9267: fnd_msg_pub.ADD;
9268: RAISE g_exc_error;
9269: ELSE
9270: CLOSE c_chk_msi_attr;
9276: IF g_debug = 1 THEN
9277: print_debug('Item is not lot controlled ', 9);
9278: END IF;
9279:
9280: fnd_message.set_name('INV', 'INV_NO_LOT_CONTROL');
9281: fnd_msg_pub.ADD;
9282: x_return_status := fnd_api.g_ret_sts_error;
9283: RAISE g_exc_error;
9284: END IF; /* l_chk_msi_attr_rec.lot_control_code = 1 */
9288: IF g_debug = 1 THEN
9289: print_debug('Item is not child lot enabled ', 9);
9290: END IF;
9291:
9292: fnd_message.set_name('INV', 'INV_ITEM_CLOT_DISABLE_EXP');
9293: fnd_msg_pub.ADD;
9294: x_return_status := fnd_api.g_ret_sts_error;
9295: RAISE g_exc_error;
9296: END IF; /* l_chk_msi_attr_rec.child_lot_flag = 'N' */
9301: IF g_debug = 1 THEN
9302: print_debug('User defined expiration date cannot be null', 9);
9303: END IF;
9304:
9305: fnd_message.set_name('INV', 'INV_NULL_EXPIRATION_DATE_EXP') ;
9306: fnd_msg_pub.ADD;
9307: RAISE fnd_api.g_exc_error;
9308: END IF;
9309:
9313: IF g_debug = 1 THEN
9314: print_debug('Item is not grade controlled.', 9);
9315: END IF;
9316:
9317: fnd_message.set_name('INV', 'INV_ITEM_NOT_GRADE_CTRL_EXP');
9318: fnd_msg_pub.ADD;
9319: RAISE fnd_api.g_exc_error;
9320: END IF;
9321:
9326: IF g_debug = 1 THEN
9327: print_debug('Value for mandatory field Lot Number cannot be null', 9);
9328: END IF;
9329:
9330: fnd_message.set_name('INV', 'INV_NULL_CLOT_EXP');
9331: fnd_msg_pub.ADD;
9332: RAISE fnd_api.g_exc_error;
9333: ELSE
9334: /* Check child lot existence in Mtl_Lot_Numbers Table */
9341: print_debug('Child lot already exists in the system.', 9);
9342: END IF;
9343:
9344: -- Child lot already exists in the system: LOT_NUMBER
9345: fnd_message.set_name('INV', 'INV_CLOT_EXISTS_EXP');
9346: fnd_message.set_token('LOT_NUMBER', to_char(p_lot_rec.lot_number));
9347: fnd_msg_pub.ADD;
9348: RAISE fnd_api.g_exc_error;
9349: END IF;
9342: END IF;
9343:
9344: -- Child lot already exists in the system: LOT_NUMBER
9345: fnd_message.set_name('INV', 'INV_CLOT_EXISTS_EXP');
9346: fnd_message.set_token('LOT_NUMBER', to_char(p_lot_rec.lot_number));
9347: fnd_msg_pub.ADD;
9348: RAISE fnd_api.g_exc_error;
9349: END IF;
9350: /* Child lot DOES NOT exist in Mtl_Lot_Numbers Table. */
9357: /*Both the parent and child lots have same name*/
9358: IF g_debug = 1 THEN
9359: print_debug('Parent lot number and child lot number can not be same.', 9);
9360: END IF;
9361: fnd_message.set_name('INV', 'INV_SAME_LOT_NAMES_EXP');
9362: fnd_msg_pub.ADD;
9363: RAISE fnd_api.g_exc_error;
9364: END IF ;
9365: END IF ;
9417: ELSIF l_return_status = g_ret_sts_unexp_error THEN
9418: IF g_debug = 1 THEN
9419: print_debug('Program INV_LOT_API_PKG.POPULATE_LOT_RECORDS has failed with a Unexpected exception', 9);
9420: END IF;
9421: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9422: FND_MESSAGE.SET_TOKEN('PROG_NAME','INV_LOT_API_PKG.POPULATE_LOT_RECORDS');
9423: FND_MSG_PUB.ADD;
9424: RAISE g_exc_unexpected_error;
9425: END IF;
9418: IF g_debug = 1 THEN
9419: print_debug('Program INV_LOT_API_PKG.POPULATE_LOT_RECORDS has failed with a Unexpected exception', 9);
9420: END IF;
9421: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9422: FND_MESSAGE.SET_TOKEN('PROG_NAME','INV_LOT_API_PKG.POPULATE_LOT_RECORDS');
9423: FND_MSG_PUB.ADD;
9424: RAISE g_exc_unexpected_error;
9425: END IF;
9426:
9602: ELSIF l_return_status = g_ret_sts_unexp_error THEN
9603: IF g_debug = 1 THEN
9604: print_debug('Program MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM has failed with a Unexpected exception', 9);
9605: END IF;
9606: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9607: FND_MESSAGE.SET_TOKEN('PROG_NAME','MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM');
9608: FND_MSG_PUB.ADD;
9609: RAISE g_exc_unexpected_error;
9610: END IF;
9603: IF g_debug = 1 THEN
9604: print_debug('Program MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM has failed with a Unexpected exception', 9);
9605: END IF;
9606: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9607: FND_MESSAGE.SET_TOKEN('PROG_NAME','MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM');
9608: FND_MSG_PUB.ADD;
9609: RAISE g_exc_unexpected_error;
9610: END IF;
9611:
9993: IF g_debug = 1 THEN
9994: print_debug('INV_CONVERT.inv_um_convert has failed '|| l_progress, 1);
9995: END IF;
9996:
9997: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
9998: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_CONVERT.inv_um_convert');
9999: fnd_msg_pub.ADD;
10000: RAISE g_exc_unexpected_error;
10001: END IF;
9994: print_debug('INV_CONVERT.inv_um_convert has failed '|| l_progress, 1);
9995: END IF;
9996:
9997: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
9998: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_CONVERT.inv_um_convert');
9999: fnd_msg_pub.ADD;
10000: RAISE g_exc_unexpected_error;
10001: END IF;
10002:
10028: IF g_debug = 1 THEN
10029: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a user defined exception '|| l_progress, 9);
10030: END IF;
10031:
10032: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10033: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10034: fnd_msg_pub.ADD;
10035: RAISE g_exc_error;
10036:
10029: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a user defined exception '|| l_progress, 9);
10030: END IF;
10031:
10032: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10033: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10034: fnd_msg_pub.ADD;
10035: RAISE g_exc_error;
10036:
10037: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10040: IF g_debug = 1 THEN
10041: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a Unexpected exception' || l_progress, 9);
10042: END IF;
10043:
10044: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10045: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10046: fnd_msg_pub.ADD;
10047: RAISE g_exc_unexpected_error;
10048: END IF;------------IF l_return_status = fnd_api.g_ret_sts_error THEN
10041: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a Unexpected exception' || l_progress, 9);
10042: END IF;
10043:
10044: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10045: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10046: fnd_msg_pub.ADD;
10047: RAISE g_exc_unexpected_error;
10048: END IF;------------IF l_return_status = fnd_api.g_ret_sts_error THEN
10049:
10265:
10266: IF (get_item_details%NOTFOUND)
10267: THEN
10268: CLOSE get_item_details;
10269: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10270: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10272: FND_MSG_PUB.ADD;
10273: RAISE FND_API.G_EXC_ERROR;
10266: IF (get_item_details%NOTFOUND)
10267: THEN
10268: CLOSE get_item_details;
10269: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10270: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10272: FND_MSG_PUB.ADD;
10273: RAISE FND_API.G_EXC_ERROR;
10274: END IF;
10267: THEN
10268: CLOSE get_item_details;
10269: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10270: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10271: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10272: FND_MSG_PUB.ADD;
10273: RAISE FND_API.G_EXC_ERROR;
10274: END IF;
10275: CLOSE get_item_details;
10276:
10277: --{
10278: IF (l_tracking_quantity_ind = 'P') THEN
10279: IF (p_secondary_quantity IS NOT NULL) THEN
10280: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED');
10281: FND_MSG_PUB.ADD;
10282: RAISE FND_API.G_EXC_ERROR;
10283: END IF;
10284:
10282: RAISE FND_API.G_EXC_ERROR;
10283: END IF;
10284:
10285: IF (p_secondary_uom_code IS NOT NULL) THEN
10286: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED');
10287: FND_MSG_PUB.ADD;
10288: RAISE FND_API.G_EXC_ERROR;
10289: END IF;
10290:
10292: -- the item is DUOM controlled
10293: /** UOM Validation **/
10294: /** UOM Validation **/
10295: IF (p_secondary_uom_code <> l_secondary_uom_code) THEN
10296: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_SECONDARY_UOM');
10297: FND_MSG_PUB.ADD;
10298: RAISE FND_API.G_EXC_ERROR;
10299: END IF;
10300:
10309: OR p_secondary_quantity IS NULL))) THEN
10310: IF (l_debug = 1) THEN
10311: inv_log_util.trace('validate_quantities: Missing both quantities or one qty for no default item ..', g_pkg_name, 9);
10312: END IF;
10313: FND_MESSAGE.SET_NAME('INV','INV_INT_QTYCODE');
10314: FND_MSG_PUB.ADD;
10315: RAISE FND_API.G_EXC_ERROR;
10316: END IF;
10317: --{
10331: IF (l_secondary_qty = -99999) THEN
10332: IF (l_debug = 1) THEN
10333: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error ', g_pkg_name, 9);
10334: END IF;
10335: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10336: FND_MSG_PUB.ADD;
10337: RAISE FND_API.G_EXC_ERROR;
10338: END IF;
10339: p_secondary_quantity := l_secondary_qty;
10356: IF (l_transaction_quantity = -99999) THEN
10357: IF (l_debug = 1) THEN
10358: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT ERROR ', g_pkg_name, 9);
10359: END IF;
10360: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10361: FND_MSG_PUB.ADD;
10362: RAISE FND_API.G_EXC_ERROR;
10363: END IF;
10364: p_transaction_quantity := l_transaction_quantity;
10414: IF (l_primary_quantity = -99999) THEN
10415: IF (l_debug = 1) THEN
10416: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error ', g_pkg_name, 9);
10417: END IF;
10418: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10419: FND_MSG_PUB.ADD;
10420: RAISE FND_API.G_EXC_ERROR;
10421: END IF;
10422: p_primary_quantity := l_primary_quantity;