[Home] [Help]
130: print_debug('validate_lot_status: Returned true from validate_mtstatus ', 9);
131: else
132: print_debug('validate_lot_status: Returned false from validate_mtstatus ', 9);
133: x_return_status := fnd_api.g_ret_sts_error;
134: x_msg_data := fnd_message.GET_STRING('INV', 'INV_STATUS_UPD_RESV_FAIL');
135: x_msg_count := 1;
136: return;
137: end if;
138:
163: print_debug('validate_lot_status: Return status from inv_material_status_grp.update_status: '||x_return_status, 9);
164: END IF;
165: ELSIF (l_lot_status_enabled = 'N' ) then
166: x_return_status := fnd_api.g_ret_sts_success;
167: x_msg_data := fnd_message.GET_STRING('INV', 'INV_NOT_VALID');
168: x_msg_count := 1;
169: END IF;
170: /* End of Fix for Bug8647949 */
171:
482: AND organization_id = p_organization_id;
483:
484: IF ( l_lot_control_code = 1 )
485: THEN
486: fnd_message.set_name ('INV' , 'INV_NO_LOT_CONTROL' );
487: fnd_msg_pub.ADD;
488: x_return_status := fnd_api.g_ret_sts_error;
489: RAISE fnd_api.g_exc_unexpected_error;
490: END IF;
493: THEN
494: IF (l_debug = 1) THEN
495: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in LOT_CONTROL_CODE' , 'INV_LOT_API_PUB');
496: END IF;
497: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
498: fnd_msg_pub.ADD;
499: x_return_status := fnd_api.g_ret_sts_error;
500: RAISE fnd_api.g_exc_unexpected_error;
501: END;
524: AND lot.organization_id = p_organization_id
525: AND lot.inventory_item_id = p_inventory_item_id );
526:
527: IF ( l_lotcount > 0 ) THEN
528: fnd_message.set_name ('INV' , 'INV_INT_LOTUNIQEXP' );
529: fnd_msg_pub.ADD;
530: x_return_status := fnd_api.g_ret_sts_error;
531: RAISE fnd_api.g_exc_unexpected_error;
532: IF (l_debug = 1) THEN
561: SELECT SYSDATE + l_shelf_life_days
562: INTO p_expiration_date
563: FROM DUAL;
564: ELSIF ( l_shelf_life_code = 4 ) THEN
565: fnd_message.set_name ('INV' , 'INV_LOT_EXPREQD' );
566: fnd_msg_pub.ADD;
567: x_return_status := fnd_api.g_ret_sts_error;
568: RAISE fnd_api.g_exc_unexpected_error;
569: END IF;
1509: ELSE
1510: IF (l_debug = 1) THEN
1511: inv_pick_wave_pick_confirm_pub.tracelog ( 'INV_LOT_EXISTS' , 'INV_LOT_API_PUB');
1512: END IF;
1513: fnd_message.set_name ('INV' , 'INV_LOT_EXISTS' );
1514: fnd_msg_pub.ADD;
1515: --l_return_status := FND_API.G_RET_STS_SUCCESS;
1516: x_return_status := fnd_api.g_ret_sts_success;
1517: END IF;
2614: ROLLBACK;
2615: IF (l_debug =1 ) THEN
2616: print_debug('not found',9);
2617: END IF;
2618: fnd_message.set_name ('INV' , 'INV_LOT_AUTOGEN_FAILED' ); -- Bug# 7298723
2619: -- fnd_message.set_token ('ENTITY1' , 'Item with last lot number' ); -- Bug# 7298723
2620: fnd_msg_pub.ADD;
2621: x_return_status := fnd_api.g_ret_sts_error;
2622: --AND inventory_item_id = p_inventory_item_id;
2615: IF (l_debug =1 ) THEN
2616: print_debug('not found',9);
2617: END IF;
2618: fnd_message.set_name ('INV' , 'INV_LOT_AUTOGEN_FAILED' ); -- Bug# 7298723
2619: -- fnd_message.set_token ('ENTITY1' , 'Item with last lot number' ); -- Bug# 7298723
2620: fnd_msg_pub.ADD;
2621: x_return_status := fnd_api.g_ret_sts_error;
2622: --AND inventory_item_id = p_inventory_item_id;
2623: END IF;
2957: x_child_lot_flag, x_item_parent_child_gen_flag,
2958: x_item_child_lot_prefix, x_child_lot_starting_number;
2959: IF (get_item_data%NOTFOUND) THEN
2960: CLOSE get_item_data;
2961: fnd_message.set_name ('INV' , 'INV_CL_GET_ITEM_ERR' );
2962: fnd_msg_pub.ADD;
2963: RAISE fnd_api.g_exc_error;
2964: END IF;
2965: CLOSE get_item_data;
2966: /*===========================================
2967: Is child_lot split allowed?
2968: ===========================================*/
2969: IF (nvl(x_child_lot_flag,'N') = 'N') THEN
2970: fnd_message.set_name ('INV' , 'INV_CL_CHILD_LOT_DISABLED');
2971: fnd_msg_pub.ADD;
2972: RAISE fnd_api.g_exc_error;
2973: END IF;
2974: /*===========================================
2981: x_child_lot_zero_padding_flag,
2982: x_child_lot_alpha_prefix, x_child_lot_number_length;
2983: IF (get_child_parms%NOTFOUND) THEN
2984: CLOSE get_child_parms;
2985: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
2986: fnd_msg_pub.ADD;
2987: RAISE fnd_api.g_exc_error;
2988: END IF;
2989: CLOSE get_child_parms;
3030: If child lot generated by user routine then
3031: return it, Otherwise if null then return
3032: ===========================================*/
3033: IF (interim_child_lot_number IS NULL) THEN
3034: fnd_message.set_name ('INV' , 'INV_CL_USER_PGM_ERR');
3035: fnd_msg_pub.ADD;
3036: RAISE fnd_api.g_exc_error;
3037: END IF;
3038: /*=================================
3038: /*=================================
3039: BUG#4145437
3040: =================================*/
3041: IF (lengthb(interim_child_lot_number) > 80) THEN
3042: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_LENGTH' );
3043: fnd_msg_pub.ADD;
3044: RAISE fnd_api.g_exc_error;
3045: END IF;
3046:
3061: p_inventory_item_id,
3062: p_parent_lot_number,
3063: x_last_child_seq);
3064: IF (l_ret <> 0 ) THEN
3065: fnd_message.set_name ('INV','INV_CL_INS_CHILD_ERR');
3066: fnd_msg_pub.ADD;
3067: RAISE fnd_api.g_exc_error;
3068: END IF;
3069: ELSE
3076: p_inventory_item_id,
3077: p_parent_lot_number,
3078: x_last_child_seq);
3079: IF (l_ret <> 0 ) THEN
3080: fnd_message.set_name ('INV','INV_CL_UPD_CHILD_ERR');
3081: fnd_msg_pub.ADD;
3082: RAISE fnd_api.g_exc_error;
3083: END IF;
3084: END IF;
3090:
3091:
3092: IF ( (lengthb(x_interim_child_prefix)
3093: + lengthb(x_last_child_seq)) > 80 ) THEN
3094: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_LENGTH' );
3095: fnd_msg_pub.ADD;
3096: RAISE fnd_api.g_exc_error;
3097: END IF;
3098: IF ( (lengthb(x_interim_child_prefix)
3097: END IF;
3098: IF ( (lengthb(x_interim_child_prefix)
3099: + lengthb(x_last_child_seq)) >
3100: x_child_lot_number_length ) THEN
3101: fnd_message.set_name ('INV' , 'INV_CL_MAX_CHLD_ERR' );
3102: fnd_msg_pub.ADD;
3103: RAISE fnd_api.g_exc_error;
3104: END IF;
3105:
3168: p_inventory_item_id,
3169: p_parent_lot_number,
3170: x_last_child_seq);
3171: IF (l_ret <> 0 ) THEN
3172: fnd_message.set_name ('INV','INV_CL_INS_CHILD_ERR');
3173: fnd_msg_pub.ADD;
3174: RAISE fnd_api.g_exc_error;
3175: END IF;
3176: ELSE
3183: p_inventory_item_id,
3184: p_parent_lot_number,
3185: x_last_child_seq);
3186: IF (l_ret <> 0 ) THEN
3187: fnd_message.set_name ('INV','INV_CL_UPD_CHILD_ERR');
3188: fnd_msg_pub.ADD;
3189: RAISE fnd_api.g_exc_error;
3190: END IF;
3191: END IF;
3195: x_interim_child_prefix :=
3196: p_parent_lot_number||x_item_child_lot_prefix;
3197: IF ( (lengthb(x_interim_child_prefix)
3198: + lengthb(x_last_child_seq)) > 80 ) THEN
3199: fnd_message.set_name ('INV' , 'INV_CL_MAX_FLD_ERR' );
3200: fnd_msg_pub.ADD;
3201: RAISE fnd_api.g_exc_error;
3202: END IF;
3203: --temp joe what is length for item child?
3288: x_child_lot_zero_padding_flag,
3289: x_child_lot_alpha_prefix, x_child_lot_number_length;
3290: IF (get_child_parms%NOTFOUND) THEN
3291: CLOSE get_child_parms;
3292: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
3293: fnd_msg_pub.ADD;
3294: RAISE fnd_api.g_exc_error;
3295: END IF;
3296: CLOSE get_child_parms;
3344: FROM mtl_parameters
3345: WHERE organization_id = p_org_id;
3346: EXCEPTION
3347: WHEN NO_DATA_FOUND THEN
3348: fnd_message.set_name ('INV' , 'INV_FIELD_INVALID' );
3349: fnd_message.set_token ('ENTITY1' , 'p_org_id' );
3350: fnd_msg_pub.ADD;
3351: RAISE fnd_api.g_exc_error;
3352: END;
3345: WHERE organization_id = p_org_id;
3346: EXCEPTION
3347: WHEN NO_DATA_FOUND THEN
3348: fnd_message.set_name ('INV' , 'INV_FIELD_INVALID' );
3349: fnd_message.set_token ('ENTITY1' , 'p_org_id' );
3350: fnd_msg_pub.ADD;
3351: RAISE fnd_api.g_exc_error;
3352: END;
3353: END IF;
3369: WHERE organization_id = p_org_id
3370: AND inventory_item_id = p_inventory_item_id;
3371:
3372: IF ( l_lot_control_code = 1 ) THEN
3373: fnd_message.set_name ( 'INV' , 'INV_NO_LOT_CONTROL');
3374: fnd_msg_pub.ADD;
3375: RAISE fnd_api.g_exc_error;
3376: END IF;
3377: EXCEPTION
3375: RAISE fnd_api.g_exc_error;
3376: END IF;
3377: EXCEPTION
3378: WHEN NO_DATA_FOUND THEN
3379: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3380: fnd_msg_pub.ADD;
3381: RAISE fnd_api.g_exc_error;
3382: END;
3383:
3445: RAISE fnd_api.g_exc_error;
3446: END IF;
3447: END IF;
3448: ELSE -- lot length exceeds 80
3449: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3450: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3451: fnd_msg_pub.ADD;
3452: RAISE fnd_api.g_exc_error;
3453: END IF;
3446: END IF;
3447: END IF;
3448: ELSE -- lot length exceeds 80
3449: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3450: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3451: fnd_msg_pub.ADD;
3452: RAISE fnd_api.g_exc_error;
3453: END IF;
3454: ELSE -- l_lot_suffix is NULL
3451: fnd_msg_pub.ADD;
3452: RAISE fnd_api.g_exc_error;
3453: END IF;
3454: ELSE -- l_lot_suffix is NULL
3455: fnd_message.set_name ( 'INV' , 'INV_FIELD_INVALID');
3456:
3457: -- Following query added as a part of the bug fix for Bug # 3330855
3458: SELECT ORGANIZATION_CODE, CONCATENATED_SEGMENTS
3459: INTO v_org_code, v_item_name
3461: WHERE ORG.ORGANIZATION_ID = p_org_id
3462: AND INVENTORY_ITEM_ID = p_inventory_item_id
3463: AND ITEM.ORGANIZATION_ID = p_org_id;
3464:
3465: fnd_message.set_token ( 'ENTITY1' , 'Lot Suffix for Org: ' || v_org_code || ' and Item: ' || v_item_name);
3466: fnd_msg_pub.ADD;
3467: RAISE fnd_api.g_exc_error;
3468: END IF;
3469: EXCEPTION
3470: WHEN NO_DATA_FOUND THEN
3471: IF (l_debug=1) THEN
3472: print_debug('no data found',9);
3473: END IF;
3474: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3475: fnd_message.set_token ( 'ENTITY1' , 'p_org_id, p_inventory_item_id');
3476: fnd_msg_pub.ADD;
3477: RAISE fnd_api.g_exc_error;
3478: END;
3471: IF (l_debug=1) THEN
3472: print_debug('no data found',9);
3473: END IF;
3474: fnd_message.set_name ('INV' , 'INV_INVALID_ITEM' );
3475: fnd_message.set_token ( 'ENTITY1' , 'p_org_id, p_inventory_item_id');
3476: fnd_msg_pub.ADD;
3477: RAISE fnd_api.g_exc_error;
3478: END;
3479: ELSIF ( lot_generation = 1 ) THEN -- org-level
3507: ELSE
3508: auto_lot_number := l_lot_prefix || l_lot_suffix;
3509: END IF;
3510: ELSE -- lot length exceeds 80
3511: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3512: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3513: fnd_msg_pub.ADD;
3514: RAISE fnd_api.g_exc_error;
3515: END IF;
3508: auto_lot_number := l_lot_prefix || l_lot_suffix;
3509: END IF;
3510: ELSE -- lot length exceeds 80
3511: fnd_message.set_name ( 'INV' , 'INV_SERIAL_LOT_TOO_LONG');
3512: fnd_message.set_token( 'LENGTH', nvl(lot_length, 80)); -- INVCONV
3513: fnd_msg_pub.ADD;
3514: RAISE fnd_api.g_exc_error;
3515: END IF;
3516: END;
3527: auto_lot_number)
3528: THEN
3529: RETURN (auto_lot_number);
3530: ELSE
3531: fnd_message.set_name('INV', 'INV_LOT_NUMBER_EXISTS');
3532: fnd_msg_pub.add;
3533: RAISE fnd_api.g_exc_error ;
3534: END IF;
3535: */
4137:
4138: IF l_segments_dr.is_required(i) THEN
4139: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4140: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4141: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4142: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4143: fnd_msg_pub.ADD;
4144:
4145: IF g_debug = 1 THEN
4138: IF l_segments_dr.is_required(i) THEN
4139: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4140: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4141: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4142: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4143: fnd_msg_pub.ADD;
4144:
4145: IF g_debug = 1 THEN
4146: print_debug('Req segment is not populated', 9);
4209:
4210: IF l_segments_dr.is_required(i) THEN
4211: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4212: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4213: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4214: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4215: fnd_msg_pub.ADD;
4216: RAISE g_exc_error;
4217:
4210: IF l_segments_dr.is_required(i) THEN
4211: IF NOT p_attributes_tbl.EXISTS(SUBSTR(l_segments_dr.application_column_name(i)
4212: , INSTR(l_segments_dr.application_column_name(i), 'ATTRIBUTE') + 9)) THEN
4213: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
4214: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
4215: fnd_msg_pub.ADD;
4216: RAISE g_exc_error;
4217:
4218: IF g_debug = 1 THEN
4252: END IF;
4253: END LOOP;
4254:
4255: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4256: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4257: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4258: fnd_message.set_token('CONTEXT', l_context);
4259: fnd_msg_pub.ADD;
4260: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4253: END LOOP;
4254:
4255: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4256: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4257: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4258: fnd_message.set_token('CONTEXT', l_context);
4259: fnd_msg_pub.ADD;
4260: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4261: RAISE g_exc_error;
4254:
4255: IF l_chk_flag = 0 AND p_attributes_tbl(v_index1) IS NOT NULL THEN
4256: fnd_message.set_name('INV', 'INV_WRONG_SEG_POPULATE');
4257: fnd_message.set_token('SEGMENT', 'ATTRIBUTE' || v_index1);
4258: fnd_message.set_token('CONTEXT', l_context);
4259: fnd_msg_pub.ADD;
4260: --dbms_output.put_line('Error out. Correct segmenst are not populated ');
4261: RAISE g_exc_error;
4262: END IF;
4333: ELSIF l_return_status = g_ret_sts_unexp_error THEN
4334: IF g_debug = 1 THEN
4335: print_debug('Program WMS_LOT_ATTR_VALIDATE has failed with a Unexpected exception', 9);
4336: END IF;
4337: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4338: FND_MESSAGE.SET_TOKEN('PROG_NAME','WMS_LOT_ATTR_VALIDATE');
4339: fnd_msg_pub.ADD;
4340: RAISE g_exc_unexpected_error;
4341: END IF;
4334: IF g_debug = 1 THEN
4335: print_debug('Program WMS_LOT_ATTR_VALIDATE has failed with a Unexpected exception', 9);
4336: END IF;
4337: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4338: FND_MESSAGE.SET_TOKEN('PROG_NAME','WMS_LOT_ATTR_VALIDATE');
4339: fnd_msg_pub.ADD;
4340: RAISE g_exc_unexpected_error;
4341: END IF;
4342: END IF; /* If wms_is installed */
4349:
4350: --print_debug('Here are the error messages: ',9);
4351: WHILE e < 5001
4352: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
4353: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
4354: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
4355: fnd_msg_pub.ADD;
4356: print_debug(SUBSTR(error_msg, s, e), 9);
4357: s := s + 200;
4350: --print_debug('Here are the error messages: ',9);
4351: WHILE e < 5001
4352: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
4353: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
4354: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
4355: fnd_msg_pub.ADD;
4356: print_debug(SUBSTR(error_msg, s, e), 9);
4357: s := s + 200;
4358: e := e + 200;
4441: IF g_debug = 1 THEN
4442: print_debug('Item is not lot controlled ', 9);
4443: END IF;
4444:
4445: fnd_message.set_name('INV', 'INV_NO_LOT_CONTROL');
4446: fnd_msg_pub.ADD;
4447: x_return_status := fnd_api.g_ret_sts_error;
4448: RAISE g_exc_error;
4449: END IF;
4452: IF (g_debug = 1) THEN
4453: print_debug('Exception in LOT_CONTROL_CODE', 9);
4454: END IF;
4455:
4456: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
4457: fnd_msg_pub.ADD;
4458: RAISE g_exc_error;
4459: END;
4460:
4475: IF (g_debug = 1) THEN
4476: print_debug('Lot Number Uniqueness is not defined ', 9);
4477: END IF;
4478:
4479: fnd_message.set_name('INV', 'INV_NO_UNIQUENESS_DEFN');
4480: /* Lot Number Uniqueness is not defined*/
4481: fnd_msg_pub.ADD;
4482: RAISE NO_DATA_FOUND;
4483: END;
4491: , p_auto_lot_number => p_lot_number
4492: );
4493:
4494: IF NOT l_chk_lot_uniqueness THEN
4495: fnd_message.set_name('INV', 'INV_LOT_UNIQUENESS');
4496: fnd_msg_pub.ADD;
4497:
4498: IF g_debug = 1 THEN
4499: print_debug('Lot Number Uniqueness check failed ', 9);
4522:
4523: /*IF p_attribute_category IS NULL THEN
4524: for i in 1..p_attributes_tbl.count LOOP
4525: if p_attributes_tbl(i) IS NOT NULL THEN
4526: fnd_message.set_name('INV', 'INV_NO_ATTRIBUTE_CATEGORY');
4527: fnd_msg_pub.ADD;
4528:
4529: IF g_debug = 1 THEN
4530: print_debug('Attribute Category value is null', 9);
4590: ELSIF l_return_status = g_ret_sts_unexp_error THEN
4591: IF g_debug = 1 THEN
4592: print_debug('Program get_lot_attr_info has failed with a Unexpected exception', 9);
4593: END IF;
4594: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4595: FND_MESSAGE.SET_TOKEN('PROG_NAME','get_lot_attr_info');
4596: fnd_msg_pub.ADD;
4597: RAISE g_exc_unexpected_error;
4598: END IF;
4591: IF g_debug = 1 THEN
4592: print_debug('Program get_lot_attr_info has failed with a Unexpected exception', 9);
4593: END IF;
4594: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
4595: FND_MESSAGE.SET_TOKEN('PROG_NAME','get_lot_attr_info');
4596: fnd_msg_pub.ADD;
4597: RAISE g_exc_unexpected_error;
4598: END IF;
4599: END IF;
4852: IF g_debug = 1 THEN
4853: print_debug('Upd Lot Attr : Conmbination of Lot number,Item and Org does not exists', 9);
4854: END IF;
4855:
4856: fnd_message.set_name('INV', 'INV_LOT_NOT_EXISTS');
4857: fnd_msg_pub.add;
4858: --fnd_message.set_token('LOT',p_lot_rec.lot_number);
4859: RAISE g_exc_error;
4860: END;
4854: END IF;
4855:
4856: fnd_message.set_name('INV', 'INV_LOT_NOT_EXISTS');
4857: fnd_msg_pub.add;
4858: --fnd_message.set_token('LOT',p_lot_rec.lot_number);
4859: RAISE g_exc_error;
4860: END;
4861:
4862: BEGIN
7387: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7388: IF g_debug = 1 THEN
7389: print_debug('Program Update_Inv_lot has failed with a Unexpected exception', 9);
7390: END IF;
7391: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
7392: FND_MESSAGE.SET_TOKEN('PROG_NAME','Update_Inv_lot');
7393: fnd_msg_pub.ADD;
7394: RAISE g_exc_unexpected_error;
7395: END IF;
7388: IF g_debug = 1 THEN
7389: print_debug('Program Update_Inv_lot has failed with a Unexpected exception', 9);
7390: END IF;
7391: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
7392: FND_MESSAGE.SET_TOKEN('PROG_NAME','Update_Inv_lot');
7393: fnd_msg_pub.ADD;
7394: RAISE g_exc_unexpected_error;
7395: END IF;
7396:
8005: IF g_debug = 1 THEN
8006: print_debug('The value is required and value is null ' || l_segments_dr.application_column_name(i), 9);
8007: END IF;
8008:
8009: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
8010: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
8011: fnd_msg_pub.ADD;
8012: RAISE g_exc_error;
8013: END IF;
8006: print_debug('The value is required and value is null ' || l_segments_dr.application_column_name(i), 9);
8007: END IF;
8008:
8009: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
8010: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
8011: fnd_msg_pub.ADD;
8012: RAISE g_exc_error;
8013: END IF;
8014:
8032: inv_lot_sel_attr.get_context_code(l_context, p_organization_id, p_inventory_item_id, 'Lot Attributes');
8033: END IF;
8034:
8035: IF l_context IS NULL AND l_required_flag = TRUE THEN
8036: fnd_message.set_name('WMS', 'WMS_NO_CONTEXT');
8037: fnd_msg_pub.ADD;
8038: RAISE g_exc_error;
8039: END IF;
8040:
8089: IF g_debug = 1 THEN
8090: print_debug('Segment is required and value is null', 9);
8091: END IF;
8092:
8093: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
8094: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
8095: fnd_msg_pub.ADD;
8096: RAISE g_exc_error;
8097: END IF;
8090: print_debug('Segment is required and value is null', 9);
8091: END IF;
8092:
8093: fnd_message.set_name('INV', 'INV_REQ_SEG_MISS');
8094: fnd_message.set_token('SEGMENT', l_segments_dr.segment_name(i));
8095: fnd_msg_pub.ADD;
8096: RAISE g_exc_error;
8097: END IF;
8098: v_index := v_index + 1;
8138:
8139: --print_debug('Here are the error messages: ',9);
8140: WHILE e < 5001
8141: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
8142: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
8143: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
8144: fnd_msg_pub.ADD;
8145: print_debug(SUBSTR(error_msg, s, e), 9);
8146: s := s + 200;
8139: --print_debug('Here are the error messages: ',9);
8140: WHILE e < 5001
8141: AND SUBSTR(error_msg, s, e) IS NOT NULL LOOP
8142: fnd_message.set_name('INV', 'INV_FND_GENERIC_MSG');
8143: fnd_message.set_token('MSG', SUBSTR(error_msg, s, e));
8144: fnd_msg_pub.ADD;
8145: print_debug(SUBSTR(error_msg, s, e), 9);
8146: s := s + 200;
8147: e := e + 200;
8288: l_item_child_lot_prefix, l_item_child_lot_validation,
8289: l_item_child_lot_startno;
8290: IF (get_item_data%NOTFOUND) THEN
8291: CLOSE get_item_data;
8292: fnd_message.set_name ('INV' , 'INV_CL_ITEM_ERR');
8293: fnd_msg_pub.ADD;
8294: RAISE fnd_api.g_exc_error;
8295: END IF;
8296: CLOSE get_item_data;
8298: /*==========================================
8299: If Item not autosplit enabled stop.
8300: ========================================*/
8301: IF (nvl(l_item_child_lot_flag,'N') = 'N') THEN
8302: fnd_message.set_name ('INV' , 'INV_CL_CHILD_LOT_DISABLED');
8303: fnd_msg_pub.ADD;
8304: RAISE fnd_api.g_exc_error;
8305: END IF;
8306:
8315: l_prm_child_lot_number_length, l_prm_child_lot_val_flag,
8316: l_prm_zero_padding_flag;
8317: IF (get_child_parms%NOTFOUND) THEN
8318: CLOSE get_child_parms;
8319: fnd_message.set_name ('INV' , 'INV_CL_GET_PARM_ERR');
8320: fnd_msg_pub.ADD;
8321: RAISE fnd_api.g_exc_error;
8322: END IF;
8323: CLOSE get_child_parms;
8386: ===================================================*/
8387: IF (NVL(l_child_prefix,'ZZZZ') = NVL(SUBSTRB(p_child_lot_number, l_parent_length + 1, l_child_prefix_length),'ZZZZ')) THEN
8388: NULL;
8389: ELSE
8390: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_MISMATCH');
8391: fnd_msg_pub.ADD;
8392: RAISE fnd_api.g_exc_error;
8393: END IF;
8394: ELSE
8391: fnd_msg_pub.ADD;
8392: RAISE fnd_api.g_exc_error;
8393: END IF;
8394: ELSE
8395: fnd_message.set_name ('INV' , 'INV_CL_PREFIX_MISMATCH');
8396: fnd_msg_pub.ADD;
8397: RAISE fnd_api.g_exc_error;
8398: END IF;
8399: ELSE
8414: l_final_suffix :=
8415: SUBSTRB(p_child_lot_number, l_final_start);
8416:
8417: IF (l_final_suffix IS NULL) THEN
8418: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_NONUMERIC');
8419: fnd_msg_pub.ADD;
8420: RAISE fnd_api.g_exc_error;
8421: END IF;
8422:
8439:
8440: IF (l_prm_lot_number_generation = 1) THEN --org
8441: IF (l_prm_zero_padding_flag = 'Y') THEN
8442: IF (l_overall_length <> l_child_lot_length) THEN
8443: fnd_message.set_name ('INV' , 'INV_CL_PAD_ERROR');
8444: fnd_msg_pub.ADD;
8445: RAISE fnd_api.g_exc_error;
8446: END IF;
8447: END IF;
8446: END IF;
8447: END IF;
8448: ELSE -- Item
8449: IF (NVL(l_item_child_lot_startno,0) > l_final_suffix_numeric) THEN
8450: fnd_message.set_name ('INV' , 'INV_CL_STARTING_SUFFIX_ERR');
8451: fnd_msg_pub.ADD;
8452: RAISE fnd_api.g_exc_error;
8453: END IF;
8454: END IF;
8460: length indicated is used. Otherwise use 80.
8461: ============================================*/
8462:
8463: IF (l_child_lot_length > l_overall_length ) THEN
8464: fnd_message.set_name ('INV' , 'INV_CL_OVERALL_LENGTH');
8465: fnd_msg_pub.ADD;
8466: RAISE fnd_api.g_exc_error;
8467: END IF;
8468: RETURN;
8469:
8470: EXCEPTION
8471:
8472: WHEN l_num_error THEN
8473: fnd_message.set_name ('INV' , 'INV_CL_SUFFIX_NONUMERIC');
8474: fnd_msg_pub.ADD;
8475: x_return_status := FND_API.G_RET_STS_ERROR;
8476: FND_MSG_PUB.Count_AND_GET
8477: (p_count => x_msg_count, p_data => x_msg_data);
8767: INTO l_lot_divisible,l_lot_control_code,l_tracking_quantity_ind ; /* Fix for Bug#11729772 */
8768: IF (get_item_details%NOTFOUND)
8769: THEN
8770: CLOSE get_item_details;
8771: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8772: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8773: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8774: FND_MSG_PUB.ADD;
8775: RAISE FND_API.G_EXC_ERROR;
8768: IF (get_item_details%NOTFOUND)
8769: THEN
8770: CLOSE get_item_details;
8771: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8772: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8773: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8774: FND_MSG_PUB.ADD;
8775: RAISE FND_API.G_EXC_ERROR;
8776: END IF;
8769: THEN
8770: CLOSE get_item_details;
8771: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
8772: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
8773: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
8774: FND_MSG_PUB.ADD;
8775: RAISE FND_API.G_EXC_ERROR;
8776: END IF;
8777: CLOSE get_item_details;
8813: , l_transaction_source_type_id;
8814: IF (get_transaction_details%NOTFOUND)
8815: THEN
8816: CLOSE get_transaction_details;
8817: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
8818: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
8819: FND_MSG_PUB.ADD;
8820: RAISE FND_API.G_EXC_ERROR;
8821: END IF;
8814: IF (get_transaction_details%NOTFOUND)
8815: THEN
8816: CLOSE get_transaction_details;
8817: FND_MESSAGE.SET_NAME('INV','TRX_TYPE_NOT_FOUND');
8818: FND_MESSAGE.SET_TOKEN('TRANSACTION_TYPE_ID', p_transaction_type_id);
8819: FND_MSG_PUB.ADD;
8820: RAISE FND_API.G_EXC_ERROR;
8821: END IF;
8822: CLOSE get_transaction_details;
9005: OR (p_secondary_quantity IS NOT NULL AND ABS(p_secondary_quantity) <> l_sqoh)) /* Fix for Bug#11729772 */
9006: THEN
9007: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
9008: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
9009: --l_error_exp := FND_MESSAGE.GET;
9010: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
9011: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
9012: FND_MSG_PUB.ADD;
9013: --l_error_code := FND_MESSAGE.GET;
9006: THEN
9007: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
9008: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
9009: --l_error_exp := FND_MESSAGE.GET;
9010: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
9011: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
9012: FND_MSG_PUB.ADD;
9013: --l_error_code := FND_MESSAGE.GET;
9014: /* Update MTI table with error code/explanation */
9007: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1');
9008: print_debug('INV_LOT_INDIVISIBLE_VIOLATION');
9009: --l_error_exp := FND_MESSAGE.GET;
9010: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
9011: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
9012: FND_MSG_PUB.ADD;
9013: --l_error_code := FND_MESSAGE.GET;
9014: /* Update MTI table with error code/explanation */
9015: --errupdate(p_rowid);
9009: --l_error_exp := FND_MESSAGE.GET;
9010: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION'); -- bug 4121709
9011: -- FND_MESSAGE.SET_TOKEN('QOH',l_qoh);
9012: FND_MSG_PUB.ADD;
9013: --l_error_code := FND_MESSAGE.GET;
9014: /* Update MTI table with error code/explanation */
9015: --errupdate(p_rowid);
9016: RAISE FND_API.G_EXC_ERROR;
9017: END IF;
9022: -- print_debug('within case 1.1 : Misc Issue. Can issue less than onhand qty');
9023: -- IF (p_primary_quantity > l_qoh )
9024: -- THEN
9025: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9026: -- --l_error_exp := FND_MESSAGE.GET;
9027: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9028: -- FND_MSG_PUB.ADD;
9029: -- --l_error_code := FND_MESSAGE.GET;
9030: -- /* Update MTI table with error code/explanation */
9023: -- IF (p_primary_quantity > l_qoh )
9024: -- THEN
9025: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9026: -- --l_error_exp := FND_MESSAGE.GET;
9027: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9028: -- FND_MSG_PUB.ADD;
9029: -- --l_error_code := FND_MESSAGE.GET;
9030: -- /* Update MTI table with error code/explanation */
9031: -- --errupdate(p_rowid);
9025: -- print_debug('INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9026: -- --l_error_exp := FND_MESSAGE.GET;
9027: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_ISSUE_CASE_1.1');
9028: -- FND_MSG_PUB.ADD;
9029: -- --l_error_code := FND_MESSAGE.GET;
9030: -- /* Update MTI table with error code/explanation */
9031: -- --errupdate(p_rowid);
9032: -- RAISE FND_API.G_EXC_ERROR;
9033: -- END IF;
9046: FETCH cur_any_consumptions INTO l_exists;
9047: CLOSE cur_any_consumptions;
9048:
9049: IF l_exists = 1 THEN
9050: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIVISIBLE_VIOLATION');
9051: FND_MSG_PUB.ADD;
9052: RAISE FND_API.G_EXC_ERROR;
9053: END IF;
9054: END IF;
9114: -- a different location.
9115: IF ( ll_qoh <> l_qoh ) --Bug#5469430
9116: THEN
9117: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
9118: --l_error_exp := FND_MESSAGE.GET;
9119: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
9120: FND_MSG_PUB.ADD;
9121: --l_error_expp := FND_MESSAGE.GET;
9122: /* Update MTI table with error code/explanation */
9115: IF ( ll_qoh <> l_qoh ) --Bug#5469430
9116: THEN
9117: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
9118: --l_error_exp := FND_MESSAGE.GET;
9119: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
9120: FND_MSG_PUB.ADD;
9121: --l_error_expp := FND_MESSAGE.GET;
9122: /* Update MTI table with error code/explanation */
9123: --errupdate(p_rowid);
9117: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_2');
9118: --l_error_exp := FND_MESSAGE.GET;
9119: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_2');
9120: FND_MSG_PUB.ADD;
9121: --l_error_expp := FND_MESSAGE.GET;
9122: /* Update MTI table with error code/explanation */
9123: --errupdate(p_rowid);
9124: RAISE FND_API.G_EXC_ERROR;
9125: END IF; -- ( ll_atr = 0 )
9126: -- bug 4042255 : added forgotten ELSE clause :
9127: -- Bug 4146697 - Removed ELSE condition below.
9128: -- ELSE
9129: -- print_debug('within case 3 Some Qty already available to reserve. prim_qty='||p_primary_quantity||', atr='||l_atr);
9130: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9131: -- FND_MSG_PUB.ADD;
9132:
9133: -- RAISE FND_API.G_EXC_ERROR;
9134: END IF; -- ( l_atr = 0 )
9137: THEN
9138: print_debug('within case 3 Some Qty already reserved. prim_qty='||p_primary_quantity||', qr='||l_qr);
9139:
9140: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9141: --l_error_exp := FND_MESSAGE.GET;
9142: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9143: FND_MSG_PUB.ADD;
9144: --l_error_expp := FND_MESSAGE.GET;
9145: /* Update MTI table with error code/explanation */
9138: print_debug('within case 3 Some Qty already reserved. prim_qty='||p_primary_quantity||', qr='||l_qr);
9139:
9140: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9141: --l_error_exp := FND_MESSAGE.GET;
9142: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9143: FND_MSG_PUB.ADD;
9144: --l_error_expp := FND_MESSAGE.GET;
9145: /* Update MTI table with error code/explanation */
9146: --errupdate(p_rowid);
9140: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9141: --l_error_exp := FND_MESSAGE.GET;
9142: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9143: FND_MSG_PUB.ADD;
9144: --l_error_expp := FND_MESSAGE.GET;
9145: /* Update MTI table with error code/explanation */
9146: --errupdate(p_rowid);
9147: RAISE FND_API.G_EXC_ERROR;
9148: END IF; -- ( l_qr > 0 )
9163: IF ( l_qr > 0 )
9164: THEN
9165: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
9166: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9167: --l_error_exp := FND_MESSAGE.GET;
9168: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
9169: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
9170: -- FND_MSG_PUB.ADD;
9171: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9164: THEN
9165: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
9166: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9167: --l_error_exp := FND_MESSAGE.GET;
9168: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
9169: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
9170: -- FND_MSG_PUB.ADD;
9171: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9172: FND_MSG_PUB.ADD;
9165: -- print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_4');
9166: print_debug('INV_LOT_INDIV_QTY_RCPT_CASE_3');
9167: --l_error_exp := FND_MESSAGE.GET;
9168: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
9169: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
9170: -- FND_MSG_PUB.ADD;
9171: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9172: FND_MSG_PUB.ADD;
9173: --l_error_expp := FND_MESSAGE.GET;
9167: --l_error_exp := FND_MESSAGE.GET;
9168: -- FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_4');
9169: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
9170: -- FND_MSG_PUB.ADD;
9171: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9172: FND_MSG_PUB.ADD;
9173: --l_error_expp := FND_MESSAGE.GET;
9174: /* Update MTI table with error code/explanation */
9175: --errupdate(p_rowid);
9169: ---FND_MESSAGE.SET_TOKEN('ATR',l_atr);
9170: -- FND_MSG_PUB.ADD;
9171: FND_MESSAGE.SET_NAME('INV','INV_LOT_INDIV_QTY_RCPT_CASE_3');
9172: FND_MSG_PUB.ADD;
9173: --l_error_expp := FND_MESSAGE.GET;
9174: /* Update MTI table with error code/explanation */
9175: --errupdate(p_rowid);
9176: RAISE FND_API.G_EXC_ERROR;
9177: END IF;
9538: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9539: IF g_debug = 1 THEN
9540: print_debug('Program Create_Inv_lot has failed with a Unexpected exception', 9);
9541: END IF;
9542: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9543: FND_MESSAGE.SET_TOKEN('PROG_NAME','Create_Inv_lot');
9544: fnd_msg_pub.ADD;
9545: RAISE g_exc_unexpected_error;
9546: END IF;
9539: IF g_debug = 1 THEN
9540: print_debug('Program Create_Inv_lot has failed with a Unexpected exception', 9);
9541: END IF;
9542: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9543: FND_MESSAGE.SET_TOKEN('PROG_NAME','Create_Inv_lot');
9544: fnd_msg_pub.ADD;
9545: RAISE g_exc_unexpected_error;
9546: END IF;
9547:
9715: IF p_lot_rec.organization_id IS NULL THEN
9716: IF g_debug = 1 THEN
9717: print_debug('Value for mandatory field organization id cannot be null.', 9);
9718: END IF;
9719: fnd_message.set_name('INV', 'INV_NULL_ORG_EXP') ;
9720: fnd_msg_pub.ADD;
9721: RAISE fnd_api.g_exc_error;
9722: END IF ;
9723:
9731: IF (g_debug = 1) THEN
9732: print_debug('Item not found. Invalid item. Please re-enter.', 9);
9733: END IF;
9734:
9735: fnd_message.set_name('INV', 'INV_INVALID_ITEM');
9736: fnd_msg_pub.ADD;
9737: RAISE g_exc_error;
9738: ELSE
9739: CLOSE c_chk_msi_attr;
9745: IF g_debug = 1 THEN
9746: print_debug('Item is not lot controlled ', 9);
9747: END IF;
9748:
9749: fnd_message.set_name('INV', 'INV_NO_LOT_CONTROL');
9750: fnd_msg_pub.ADD;
9751: x_return_status := fnd_api.g_ret_sts_error;
9752: RAISE g_exc_error;
9753: END IF; /* l_chk_msi_attr_rec.lot_control_code = 1 */
9757: IF g_debug = 1 THEN
9758: print_debug('Item is not child lot enabled ', 9);
9759: END IF;
9760:
9761: fnd_message.set_name('INV', 'INV_ITEM_CLOT_DISABLE_EXP');
9762: fnd_msg_pub.ADD;
9763: x_return_status := fnd_api.g_ret_sts_error;
9764: RAISE g_exc_error;
9765: END IF; /* l_chk_msi_attr_rec.child_lot_flag = 'N' */
9770: IF g_debug = 1 THEN
9771: print_debug('User defined expiration date cannot be null', 9);
9772: END IF;
9773:
9774: fnd_message.set_name('INV', 'INV_NULL_EXPIRATION_DATE_EXP') ;
9775: fnd_msg_pub.ADD;
9776: RAISE fnd_api.g_exc_error;
9777: END IF;
9778:
9782: IF g_debug = 1 THEN
9783: print_debug('Item is not grade controlled.', 9);
9784: END IF;
9785:
9786: fnd_message.set_name('INV', 'INV_ITEM_NOT_GRADE_CTRL_EXP');
9787: fnd_msg_pub.ADD;
9788: RAISE fnd_api.g_exc_error;
9789: END IF;
9790:
9795: IF g_debug = 1 THEN
9796: print_debug('Value for mandatory field Lot Number cannot be null', 9);
9797: END IF;
9798:
9799: fnd_message.set_name('INV', 'INV_NULL_CLOT_EXP');
9800: fnd_msg_pub.ADD;
9801: RAISE fnd_api.g_exc_error;
9802: ELSE
9803: /* Check child lot existence in Mtl_Lot_Numbers Table */
9810: print_debug('Child lot already exists in the system.', 9);
9811: END IF;
9812:
9813: -- Child lot already exists in the system: LOT_NUMBER
9814: fnd_message.set_name('INV', 'INV_CLOT_EXISTS_EXP');
9815: fnd_message.set_token('LOT_NUMBER', to_char(p_lot_rec.lot_number));
9816: fnd_msg_pub.ADD;
9817: RAISE fnd_api.g_exc_error;
9818: END IF;
9811: END IF;
9812:
9813: -- Child lot already exists in the system: LOT_NUMBER
9814: fnd_message.set_name('INV', 'INV_CLOT_EXISTS_EXP');
9815: fnd_message.set_token('LOT_NUMBER', to_char(p_lot_rec.lot_number));
9816: fnd_msg_pub.ADD;
9817: RAISE fnd_api.g_exc_error;
9818: END IF;
9819: /* Child lot DOES NOT exist in Mtl_Lot_Numbers Table. */
9826: /*Both the parent and child lots have same name*/
9827: IF g_debug = 1 THEN
9828: print_debug('Parent lot number and child lot number can not be same.', 9);
9829: END IF;
9830: fnd_message.set_name('INV', 'INV_SAME_LOT_NAMES_EXP');
9831: fnd_msg_pub.ADD;
9832: RAISE fnd_api.g_exc_error;
9833: END IF ;
9834: END IF ;
9887: ELSIF l_return_status = g_ret_sts_unexp_error THEN
9888: IF g_debug = 1 THEN
9889: print_debug('Program INV_LOT_API_PKG.POPULATE_LOT_RECORDS has failed with a Unexpected exception', 9);
9890: END IF;
9891: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9892: FND_MESSAGE.SET_TOKEN('PROG_NAME','INV_LOT_API_PKG.POPULATE_LOT_RECORDS');
9893: FND_MSG_PUB.ADD;
9894: RAISE g_exc_unexpected_error;
9895: END IF;
9888: IF g_debug = 1 THEN
9889: print_debug('Program INV_LOT_API_PKG.POPULATE_LOT_RECORDS has failed with a Unexpected exception', 9);
9890: END IF;
9891: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
9892: FND_MESSAGE.SET_TOKEN('PROG_NAME','INV_LOT_API_PKG.POPULATE_LOT_RECORDS');
9893: FND_MSG_PUB.ADD;
9894: RAISE g_exc_unexpected_error;
9895: END IF;
9896:
10072: ELSIF l_return_status = g_ret_sts_unexp_error THEN
10073: IF g_debug = 1 THEN
10074: print_debug('Program MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM has failed with a Unexpected exception', 9);
10075: END IF;
10076: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10077: FND_MESSAGE.SET_TOKEN('PROG_NAME','MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM');
10078: FND_MSG_PUB.ADD;
10079: RAISE g_exc_unexpected_error;
10080: END IF;
10073: IF g_debug = 1 THEN
10074: print_debug('Program MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM has failed with a Unexpected exception', 9);
10075: END IF;
10076: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10077: FND_MESSAGE.SET_TOKEN('PROG_NAME','MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM');
10078: FND_MSG_PUB.ADD;
10079: RAISE g_exc_unexpected_error;
10080: END IF;
10081:
10470: IF g_debug = 1 THEN
10471: print_debug('INV_CONVERT.inv_um_convert has failed '|| l_progress, 1);
10472: END IF;
10473:
10474: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10475: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_CONVERT.inv_um_convert');
10476: fnd_msg_pub.ADD;
10477: RAISE g_exc_unexpected_error;
10478: END IF;
10471: print_debug('INV_CONVERT.inv_um_convert has failed '|| l_progress, 1);
10472: END IF;
10473:
10474: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10475: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_CONVERT.inv_um_convert');
10476: fnd_msg_pub.ADD;
10477: RAISE g_exc_unexpected_error;
10478: END IF;
10479:
10505: IF g_debug = 1 THEN
10506: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a user defined exception '|| l_progress, 9);
10507: END IF;
10508:
10509: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10510: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10511: fnd_msg_pub.ADD;
10512: RAISE g_exc_error;
10513:
10506: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a user defined exception '|| l_progress, 9);
10507: END IF;
10508:
10509: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10510: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10511: fnd_msg_pub.ADD;
10512: RAISE g_exc_error;
10513:
10514: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10517: IF g_debug = 1 THEN
10518: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a Unexpected exception' || l_progress, 9);
10519: END IF;
10520:
10521: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10522: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10523: fnd_msg_pub.ADD;
10524: RAISE g_exc_unexpected_error;
10525: END IF;------------IF l_return_status = fnd_api.g_ret_sts_error THEN
10518: print_debug('Program INV_LOT_API_PUB.validate_lot_indivisible has failed with a Unexpected exception' || l_progress, 9);
10519: END IF;
10520:
10521: FND_MESSAGE.SET_NAME('INV','INV_PROGRAM_ERROR');
10522: FND_MESSAGE.SET_TOKEN('PGM_NAME','INV_LOT_API_PUB.validate_lot_indivisible');
10523: fnd_msg_pub.ADD;
10524: RAISE g_exc_unexpected_error;
10525: END IF;------------IF l_return_status = fnd_api.g_ret_sts_error THEN
10526:
10742:
10743: IF (get_item_details%NOTFOUND)
10744: THEN
10745: CLOSE get_item_details;
10746: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10747: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10748: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10749: FND_MSG_PUB.ADD;
10750: RAISE FND_API.G_EXC_ERROR;
10743: IF (get_item_details%NOTFOUND)
10744: THEN
10745: CLOSE get_item_details;
10746: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10747: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10748: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10749: FND_MSG_PUB.ADD;
10750: RAISE FND_API.G_EXC_ERROR;
10751: END IF;
10744: THEN
10745: CLOSE get_item_details;
10746: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
10747: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10748: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10749: FND_MSG_PUB.ADD;
10750: RAISE FND_API.G_EXC_ERROR;
10751: END IF;
10752: CLOSE get_item_details;
10753:
10754: --{
10755: IF (l_tracking_quantity_ind = 'P') THEN
10756: IF (p_secondary_quantity IS NOT NULL) THEN
10757: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_QTY_NOT_REQUIRED');
10758: FND_MSG_PUB.ADD;
10759: RAISE FND_API.G_EXC_ERROR;
10760: END IF;
10761:
10759: RAISE FND_API.G_EXC_ERROR;
10760: END IF;
10761:
10762: IF (p_secondary_uom_code IS NOT NULL) THEN
10763: FND_MESSAGE.SET_NAME('INV','INV_SECONDARY_UOM_NOT_REQUIRED');
10764: FND_MSG_PUB.ADD;
10765: RAISE FND_API.G_EXC_ERROR;
10766: END IF;
10767:
10769: -- the item is DUOM controlled
10770: /** UOM Validation **/
10771: /** UOM Validation **/
10772: IF (p_secondary_uom_code <> l_secondary_uom_code) THEN
10773: FND_MESSAGE.SET_NAME('INV','INV_INCORRECT_SECONDARY_UOM');
10774: FND_MSG_PUB.ADD;
10775: RAISE FND_API.G_EXC_ERROR;
10776: END IF;
10777:
10786: OR p_secondary_quantity IS NULL))) THEN
10787: IF (l_debug = 1) THEN
10788: inv_log_util.trace('validate_quantities: Missing both quantities or one qty for no default item ..', g_pkg_name, 9);
10789: END IF;
10790: FND_MESSAGE.SET_NAME('INV','INV_INT_QTYCODE');
10791: FND_MSG_PUB.ADD;
10792: RAISE FND_API.G_EXC_ERROR;
10793: END IF;
10794: --{
10808: IF (l_secondary_qty = -99999) THEN
10809: IF (l_debug = 1) THEN
10810: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error ', g_pkg_name, 9);
10811: END IF;
10812: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10813: FND_MSG_PUB.ADD;
10814: RAISE FND_API.G_EXC_ERROR;
10815: END IF;
10816: p_secondary_quantity := l_secondary_qty;
10833: IF (l_transaction_quantity = -99999) THEN
10834: IF (l_debug = 1) THEN
10835: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT ERROR ', g_pkg_name, 9);
10836: END IF;
10837: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10838: FND_MSG_PUB.ADD;
10839: RAISE FND_API.G_EXC_ERROR;
10840: END IF;
10841: p_transaction_quantity := l_transaction_quantity;
10891: IF (l_primary_quantity = -99999) THEN
10892: IF (l_debug = 1) THEN
10893: inv_log_util.trace('validate_quantities: INV_CONVERT.INV_UM_CONVERT error ', g_pkg_name, 9);
10894: END IF;
10895: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR');
10896: FND_MSG_PUB.ADD;
10897: RAISE FND_API.G_EXC_ERROR;
10898: END IF;
10899: p_primary_quantity := l_primary_quantity;