[Home] [Help]
352: END IF;
353:
354: -- Initialize message list if p_init_msg_list is set to TRUE.
355: IF fnd_api.to_boolean ( p_init_msg_list ) THEN
356: fnd_msg_pub.initialize;
357: END IF;
358:
359: -- Initialize API return status to success
360: x_return_status := fnd_api.g_ret_sts_success;
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;
380: EXCEPTION
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;
391:
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
422: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in MTL_LOT_NUMBER' , 'INV_LOT_API_PUB');
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;
459: END IF;
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;
1399:
1428: COMMIT WORK;
1429: END IF;
1430:
1431: -- Standard call to get message count and if count is 1, get message info.
1432: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1433: --x_return_status := l_return_status;
1434:
1435: --print_debug('end insertlot', 4);
1436:
1442: --print_debug('insertlot other exception', 4);
1443:
1444: ROLLBACK TO apiinsertlot_apipub;
1445:
1446: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1447: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
1448: END IF;
1449:
1450: x_return_status := fnd_api.g_ret_sts_unexp_error;
1443:
1444: ROLLBACK TO apiinsertlot_apipub;
1445:
1446: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1447: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
1448: END IF;
1449:
1450: x_return_status := fnd_api.g_ret_sts_unexp_error;
1451: END insertlot;
1579:
1580: -- Initialize message list if p_init_msg_list is set to TRUE.
1581: IF fnd_api.to_boolean ( p_init_msg_list )
1582: THEN
1583: fnd_msg_pub.initialize;
1584: END IF;
1585:
1586: -- Initialize API return status to success
1587: x_return_status := fnd_api.g_ret_sts_success;
2270: COMMIT;
2271: END IF;
2272:
2273: -- Standard call to get message count and if count is 1, get message info.
2274: fnd_msg_pub.count_and_get (
2275: p_encoded => fnd_api.g_false,
2276: p_count => x_msg_count,
2277: p_data => x_msg_data
2278: );
2280: WHEN OTHERS
2281: THEN
2282: ROLLBACK TO apiinsertlot_apipub;
2283:
2284: IF fnd_msg_pub.check_msg_level (
2285: fnd_msg_pub.g_msg_lvl_unexp_error
2286: )
2287: THEN
2288: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2281: THEN
2282: ROLLBACK TO apiinsertlot_apipub;
2283:
2284: IF fnd_msg_pub.check_msg_level (
2285: fnd_msg_pub.g_msg_lvl_unexp_error
2286: )
2287: THEN
2288: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2289: END IF;
2284: IF fnd_msg_pub.check_msg_level (
2285: fnd_msg_pub.g_msg_lvl_unexp_error
2286: )
2287: THEN
2288: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2289: END IF;
2290:
2291: x_return_status := fnd_api.g_ret_sts_unexp_error;
2292: END inserttrxlot;
2408: RETURN TRUE;
2409: EXCEPTION
2410: WHEN OTHERS
2411: THEN
2412: IF fnd_msg_pub.check_msg_level (
2413: fnd_msg_pub.g_msg_lvl_unexp_error
2414: )
2415: THEN
2416: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2409: EXCEPTION
2410: WHEN OTHERS
2411: THEN
2412: IF fnd_msg_pub.check_msg_level (
2413: fnd_msg_pub.g_msg_lvl_unexp_error
2414: )
2415: THEN
2416: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2417: END IF;
2412: IF fnd_msg_pub.check_msg_level (
2413: fnd_msg_pub.g_msg_lvl_unexp_error
2414: )
2415: THEN
2416: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2417: END IF;
2418:
2419: RETURN FALSE;
2420: END validate_unique_lot;
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;
2483: END;
2784:
2785: -- Initialize message list if p_init_msg_list is set to TRUE.
2786: IF fnd_api.to_boolean ( p_init_msg_list )
2787: THEN
2788: fnd_msg_pub.initialize;
2789: END IF;
2790:
2791: -- Initialize API return status to success
2792: x_return_status := fnd_api.g_ret_sts_success;
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: /*===========================================
2828: Get the Child lot generation parameters.
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;
2843:
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: /*=================================
2890: BUG#4145437
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:
2898: ELSIF (x_lot_number_generation = 1) THEN
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
2921: CLOSE get_next_child;
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;
2936: /*===============================
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)
2950: + lengthb(x_last_child_seq)) >
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:
2957: IF (x_child_lot_zero_padding_flag = 'Y') THEN
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
3026: CLOSE get_next_child;
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;
3041: /*===============================
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?
3053: interim_child_lot_number :=
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;
3140: IF (x_lot_number_generation = 3) THEN
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;
3195:
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
3219: WHEN NO_DATA_FOUND THEN
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:
3225: BEGIN
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
3296: fnd_message.set_name ( 'INV' , 'INV_FIELD_INVALID');
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
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
3321: BEGIN
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;
3358: END IF;
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: */
3377:
3410: EXCEPTION
3411: WHEN fnd_api.g_exc_error THEN
3412: ROLLBACK TO apiauto_gen_lot_apipub;
3413: x_return_status := fnd_api.g_ret_sts_error;
3414: fnd_msg_pub.count_and_get (
3415: p_encoded => fnd_api.g_false,
3416: p_count => x_msg_count,
3417: p_data => x_msg_data
3418: );
3417: p_data => x_msg_data
3418: );
3419: --Bugfix 3940851 {
3420: if( x_msg_count > 1 ) then
3421: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3422: end if;
3423: --Bugfix 3940851 }
3424: RETURN ( NULL );
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3424: RETURN ( NULL );
3425: WHEN fnd_api.g_exc_unexpected_error THEN
3426: ROLLBACK TO apiauto_gen_lot_apipub;
3427: x_return_status := fnd_api.g_ret_sts_unexp_error;
3428: fnd_msg_pub.count_and_get (
3429: p_encoded => fnd_api.g_false,
3430: p_count => x_msg_count,
3431: p_data => x_msg_data
3432: );
3431: p_data => x_msg_data
3432: );
3433: --Bugfix 3940851 {
3434: if( x_msg_count > 1 ) then
3435: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3436: end if;
3437: --Bugfix 3940851 }
3438: RETURN ( NULL );
3439: WHEN OTHERS THEN
3439: WHEN OTHERS THEN
3440: ROLLBACK TO apiauto_gen_lot_apipub;
3441: x_return_status := fnd_api.g_ret_sts_unexp_error;
3442:
3443: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3444: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3445: END IF;
3446:
3447: fnd_msg_pub.count_and_get (
3440: ROLLBACK TO apiauto_gen_lot_apipub;
3441: x_return_status := fnd_api.g_ret_sts_unexp_error;
3442:
3443: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3444: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3445: END IF;
3446:
3447: fnd_msg_pub.count_and_get (
3448: p_encoded => fnd_api.g_false,
3443: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3444: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3445: END IF;
3446:
3447: fnd_msg_pub.count_and_get (
3448: p_encoded => fnd_api.g_false,
3449: p_count => x_msg_count,
3450: p_data => x_msg_data
3451: );
3450: p_data => x_msg_data
3451: );
3452: --Bugfix 3940851 {
3453: if( x_msg_count > 1 ) then
3454: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3455: end if;
3456: --Bugfix 3940851 }
3457: RETURN ( NULL );
3458: END auto_gen_lot;
3591: END IF;
3592: EXCEPTION
3593: WHEN OTHERS
3594: THEN
3595: IF fnd_msg_pub.check_msg_level (
3596: fnd_msg_pub.g_msg_lvl_unexp_error
3597: )
3598: THEN
3599: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3592: EXCEPTION
3593: WHEN OTHERS
3594: THEN
3595: IF fnd_msg_pub.check_msg_level (
3596: fnd_msg_pub.g_msg_lvl_unexp_error
3597: )
3598: THEN
3599: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3600: END IF;
3595: IF fnd_msg_pub.check_msg_level (
3596: fnd_msg_pub.g_msg_lvl_unexp_error
3597: )
3598: THEN
3599: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3600: END IF;
3601:
3602: x_is_unique := 'false';
3603: END validate_unique_lot;
3832: x_return_status := fnd_api.g_ret_sts_unexp_error;
3833: IF (l_debug = 1) THEN
3834: print_debug ('Exitting populatelotattributes - other exception:' || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' ),1);
3835: END IF;
3836: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3837: fnd_msg_pub.add_exc_msg (g_pkg_name,'get_lot_att_from_source');
3838: END IF;
3839: END get_lot_att_from_source;
3840:
3833: IF (l_debug = 1) THEN
3834: print_debug ('Exitting populatelotattributes - other exception:' || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' ),1);
3835: END IF;
3836: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3837: fnd_msg_pub.add_exc_msg (g_pkg_name,'get_lot_att_from_source');
3838: END IF;
3839: END get_lot_att_from_source;
3840:
3841:
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);
3988: END IF;
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
4060: print_debug('Req segment is not populated', 9);
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;
4104:
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 */
4184: EXCEPTION
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;
4200: END LOOP;
4199: e := e + 200;
4200: END LOOP;
4201:
4202: ROLLBACK TO get_lot_attr_information;
4203: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4204: WHEN g_exc_error THEN
4205: x_return_status := g_ret_sts_error;
4206: ROLLBACK TO get_lot_attr_information;
4207: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4203: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4204: WHEN g_exc_error THEN
4205: x_return_status := g_ret_sts_error;
4206: ROLLBACK TO get_lot_attr_information;
4207: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4208: WHEN g_exc_unexpected_error THEN
4209: x_return_status := g_ret_sts_unexp_error;
4210: ROLLBACK TO get_lot_attr_information;
4211: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4207: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4208: WHEN g_exc_unexpected_error THEN
4209: x_return_status := g_ret_sts_unexp_error;
4210: ROLLBACK TO get_lot_attr_information;
4211: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4212: WHEN OTHERS THEN
4213: x_return_status := g_ret_sts_unexp_error;
4214: ROLLBACK TO get_lot_attr_information;
4215: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4211: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4212: WHEN OTHERS THEN
4213: x_return_status := g_ret_sts_unexp_error;
4214: ROLLBACK TO get_lot_attr_information;
4215: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4216: print_debug('Error ' || SQLERRM, 9);
4217: END validate_lot_attr_info;
4218:
4219:
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;
4291: EXCEPTION
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:
4302: IF g_debug = 1 THEN
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;
4325:
4326: /* Call the function to check the Lot Uniqueness */
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);
4341: END IF;
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);
4372: END IF;
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;
4441: EXCEPTION
4441: EXCEPTION
4442: WHEN NO_DATA_FOUND THEN
4443: x_return_status := g_ret_sts_error;
4444: ROLLBACK TO val_lot_attr;
4445: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4446: print_debug('In No data found -val_lot_attr ' || SQLERRM, 9);
4447: WHEN g_exc_error THEN
4448: x_return_status := g_ret_sts_error;
4449: ROLLBACK TO val_lot_attr;
4446: print_debug('In No data found -val_lot_attr ' || SQLERRM, 9);
4447: WHEN g_exc_error THEN
4448: x_return_status := g_ret_sts_error;
4449: ROLLBACK TO val_lot_attr;
4450: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4451: print_debug('In g_exc_error -val_lot_attr' || SQLERRM, 9);
4452: WHEN g_exc_unexpected_error THEN
4453: x_return_status := g_ret_sts_unexp_error;
4454: ROLLBACK TO val_lot_attr;
4451: print_debug('In g_exc_error -val_lot_attr' || SQLERRM, 9);
4452: WHEN g_exc_unexpected_error THEN
4453: x_return_status := g_ret_sts_unexp_error;
4454: ROLLBACK TO val_lot_attr;
4455: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4456: print_debug('In g_exc_unexpected_error val_lot_attr' || SQLERRM, 9);
4457: WHEN OTHERS THEN
4458: x_return_status := g_ret_sts_unexp_error;
4459: ROLLBACK TO val_lot_attr;
4456: print_debug('In g_exc_unexpected_error val_lot_attr' || SQLERRM, 9);
4457: WHEN OTHERS THEN
4458: x_return_status := g_ret_sts_unexp_error;
4459: ROLLBACK TO val_lot_attr;
4460: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4461: print_debug('In others val_lot_attr' || SQLERRM, 9);
4462: END validate_lot_attr_in_param;
4463:
4464: -- nsinghi 5209065 START. Created new overloaded procedure.
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;
4699:
6712: EXCEPTION
6713: WHEN NO_DATA_FOUND THEN
6714: x_return_status := g_ret_sts_error;
6715: ROLLBACK TO upd_lot_attr;
6716: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6717: if( x_msg_count > 1 ) then
6718: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6719: end if;
6720: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6714: x_return_status := g_ret_sts_error;
6715: ROLLBACK TO upd_lot_attr;
6716: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6717: if( x_msg_count > 1 ) then
6718: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6719: end if;
6720: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6721: WHEN g_exc_error THEN
6722: x_return_status := g_ret_sts_error;
6720: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6721: WHEN g_exc_error THEN
6722: x_return_status := g_ret_sts_error;
6723: ROLLBACK TO upd_lot_attr;
6724: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6725: if( x_msg_count > 1 ) then
6726: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6727: end if;
6728: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6722: x_return_status := g_ret_sts_error;
6723: ROLLBACK TO upd_lot_attr;
6724: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6725: if( x_msg_count > 1 ) then
6726: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6727: end if;
6728: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6729: WHEN g_exc_unexpected_error THEN
6730: x_return_status := g_ret_sts_unexp_error;
6728: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6729: WHEN g_exc_unexpected_error THEN
6730: x_return_status := g_ret_sts_unexp_error;
6731: ROLLBACK TO upd_lot_attr;
6732: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6733: if ( x_msg_count > 1 ) then
6734: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6735: end if;
6736: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6730: x_return_status := g_ret_sts_unexp_error;
6731: ROLLBACK TO upd_lot_attr;
6732: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6733: if ( x_msg_count > 1 ) then
6734: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6735: end if;
6736: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6737: WHEN OTHERS THEN
6738: x_return_status := g_ret_sts_unexp_error;
6736: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6737: WHEN OTHERS THEN
6738: x_return_status := g_ret_sts_unexp_error;
6739: ROLLBACK TO upd_lot_attr;
6740: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6741: if( x_msg_count > 1 ) then
6742: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6743: end if;
6744: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
6738: x_return_status := g_ret_sts_unexp_error;
6739: ROLLBACK TO upd_lot_attr;
6740: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6741: if( x_msg_count > 1 ) then
6742: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6743: end if;
6744: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
6745: END update_inv_lot;
6746:
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:
7044: print_debug('End of the program Update_Inv_lot. Program has completed successfully ', 9);
7045: EXCEPTION
7046: WHEN NO_DATA_FOUND THEN
7047: x_return_status := g_ret_sts_error;
7048: ROLLBACK TO upd_lot_attr;
7049: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7050: if( x_msg_count > 1 ) then
7051: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7052: end if;
7053: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7047: x_return_status := g_ret_sts_error;
7048: ROLLBACK TO upd_lot_attr;
7049: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7050: if( x_msg_count > 1 ) then
7051: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7052: end if;
7053: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7054: WHEN g_exc_error THEN
7055: x_return_status := g_ret_sts_error;
7053: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7054: WHEN g_exc_error THEN
7055: x_return_status := g_ret_sts_error;
7056: ROLLBACK TO upd_lot_attr;
7057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7058: if( x_msg_count > 1 ) then
7059: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7060: end if;
7061: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7055: x_return_status := g_ret_sts_error;
7056: ROLLBACK TO upd_lot_attr;
7057: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7058: if( x_msg_count > 1 ) then
7059: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7060: end if;
7061: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7062: WHEN g_exc_unexpected_error THEN
7063: x_return_status := g_ret_sts_unexp_error;
7061: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7062: WHEN g_exc_unexpected_error THEN
7063: x_return_status := g_ret_sts_unexp_error;
7064: ROLLBACK TO upd_lot_attr;
7065: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7066: if ( x_msg_count > 1 ) then
7067: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7068: end if;
7069: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7063: x_return_status := g_ret_sts_unexp_error;
7064: ROLLBACK TO upd_lot_attr;
7065: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7066: if ( x_msg_count > 1 ) then
7067: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7068: end if;
7069: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7070: WHEN OTHERS THEN
7071: x_return_status := g_ret_sts_unexp_error;
7069: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7070: WHEN OTHERS THEN
7071: x_return_status := g_ret_sts_unexp_error;
7072: ROLLBACK TO upd_lot_attr;
7073: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7074: if( x_msg_count > 1 ) then
7075: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7076: end if;
7077: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
7071: x_return_status := g_ret_sts_unexp_error;
7072: ROLLBACK TO upd_lot_attr;
7073: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7074: if( x_msg_count > 1 ) then
7075: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7076: end if;
7077: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
7078:
7079: END update_inv_lot;
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:
7662: v_index := v_index + 1;
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:
7688: IF g_debug = 1 THEN
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;
7746: END LOOP;
7770: IF g_debug = 1 THEN
7771: print_debug('Program LOT_DFF_VALIDATE has completed with validation errors', 9);
7772: END IF;
7773:
7774: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7775: WHEN errors_received THEN
7776: x_return_status := inv_lot_api_pub.g_ret_sts_error;
7777:
7778: IF g_debug = 1 THEN
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;
7795: END LOOP;
7797: ROLLBACK TO wms_lot_dff_validate;
7798: WHEN OTHERS THEN
7799: x_return_status := inv_lot_api_pub.g_ret_sts_unexp_error;
7800: ROLLBACK TO wms_lot_dff_validate;
7801: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7802:
7803: IF g_debug = 1 THEN
7804: print_debug('Program LOT_DFF_VALIDATE has completed with errors. In when others ', 9);
7805: print_debug('Error ' || SQLERRM, 9);
7912:
7913:
7914: BEGIN
7915: IF FND_API.to_boolean(p_init_msg_list) THEN
7916: FND_MSG_PUB.Initialize;
7917: END IF;
7918:
7919: -- Standard call to check for call compatibility.
7920: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
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;
7944:
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:
7954: /*==========================================
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;
7971:
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
8042: fnd_message.set_name ('INV' , 'INV_CL_PREFIX_MISMATCH');
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
8047: /*=======================================
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:
8070: /*============================================
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;
8095: ELSE -- Item
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;
8102:
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);
8125: WHEN FND_API.G_EXC_ERROR THEN
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);
8125: WHEN FND_API.G_EXC_ERROR THEN
8126: x_return_status := FND_API.G_RET_STS_ERROR;
8127: FND_MSG_PUB.Count_AND_GET
8123: FND_MSG_PUB.Count_AND_GET
8124: (p_count => x_msg_count, p_data => x_msg_data);
8125: WHEN FND_API.G_EXC_ERROR THEN
8126: x_return_status := FND_API.G_RET_STS_ERROR;
8127: FND_MSG_PUB.Count_AND_GET
8128: (p_count => x_msg_count, p_data => x_msg_data);
8129:
8130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8128: (p_count => x_msg_count, p_data => x_msg_data);
8129:
8130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8131: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8132: FND_MSG_PUB.Count_AND_GET
8133: (p_count => x_msg_count, p_data => x_msg_data);
8134:
8135: WHEN OTHERS THEN
8136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8133: (p_count => x_msg_count, p_data => x_msg_data);
8134:
8135: WHEN OTHERS THEN
8136: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8137: FND_MSG_PUB.Count_AND_GET
8138: (p_count => x_msg_count, p_data => x_msg_data);
8139:
8140: END validate_child_lot;
8141:
8191:
8192: WHEN CREATE_TREE_ERROR THEN
8193: print_debug(' CREATE_TREE error...');
8194: x_return_status := FND_API.G_RET_STS_ERROR;
8195: FND_MSG_PUB.Count_AND_GET
8196: (p_count => x_msg_count, p_data => x_msg_data);
8197: RETURN FALSE;
8198:
8199: WHEN QUERY_TREE_ERROR THEN
8198:
8199: WHEN QUERY_TREE_ERROR THEN
8200: print_debug(' QUERY_TREE error...');
8201: x_return_status := FND_API.G_RET_STS_ERROR;
8202: FND_MSG_PUB.Count_AND_GET
8203: (p_count => x_msg_count, p_data => x_msg_data);
8204: RETURN FALSE;
8205:
8206: WHEN FND_API.G_EXC_ERROR THEN
8205:
8206: WHEN FND_API.G_EXC_ERROR THEN
8207: print_debug(' EXCP error...');
8208: x_return_status := FND_API.G_RET_STS_ERROR;
8209: FND_MSG_PUB.Count_AND_GET
8210: (p_count => x_msg_count, p_data => x_msg_data);
8211: RETURN FALSE;
8212:
8213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8212:
8213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8214: print_debug(' UNEXCP error...');
8215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8216: FND_MSG_PUB.Count_AND_GET
8217: (p_count => x_msg_count, p_data => x_msg_data);
8218: RETURN FALSE;
8219:
8220: WHEN OTHERS THEN
8219:
8220: WHEN OTHERS THEN
8221: print_debug(' OTHERS error...'||SQLERRM);
8222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8223: FND_MSG_PUB.Count_AND_GET
8224: (p_count => x_msg_count, p_data => x_msg_data);
8225: RETURN FALSE;
8226:
8227: END validate_lot_indivisible;
8368: print_debug(' ... org='||p_organization_id||', item='||p_inventory_item_id||', rev='||p_revision||', sub='||p_subinventory_code||', loct='||p_locator_id);
8369: print_debug(' ... lot='||p_lot_number||', p_qoh='||p_qoh||', p_atr='||p_atr);
8370:
8371: IF FND_API.to_boolean(p_init_msg_list) THEN
8372: FND_MSG_PUB.Initialize;
8373: END IF;
8374:
8375: -- Standard call to check for call compatibility.
8376: IF NOT FND_API.Compatible_API_Call( l_api_version
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;
8401:
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;
8446:
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);
8608: RAISE FND_API.G_EXC_ERROR;
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);
8624: -- RAISE FND_API.G_EXC_ERROR;
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);
8700: RAISE FND_API.G_EXC_ERROR;
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 )
8711:
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);
8723: RAISE FND_API.G_EXC_ERROR;
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;
8750: /* Update MTI table with error code/explanation */
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);
8752: RAISE FND_API.G_EXC_ERROR;
8764:
8765: WHEN CREATE_TREE_ERROR THEN
8766: print_debug(' CREATE_TREE error...');
8767: x_return_status := FND_API.G_RET_STS_ERROR;
8768: FND_MSG_PUB.Count_AND_GET
8769: (p_count => x_msg_count, p_data => x_msg_data);
8770: RETURN FALSE;
8771:
8772: WHEN QUERY_TREE_ERROR THEN
8771:
8772: WHEN QUERY_TREE_ERROR THEN
8773: print_debug(' QUERY_TREE error...');
8774: x_return_status := FND_API.G_RET_STS_ERROR;
8775: FND_MSG_PUB.Count_AND_GET
8776: (p_count => x_msg_count, p_data => x_msg_data);
8777: RETURN FALSE;
8778:
8779: WHEN FND_API.G_EXC_ERROR THEN
8778:
8779: WHEN FND_API.G_EXC_ERROR THEN
8780: print_debug(' EXCP error...');
8781: x_return_status := FND_API.G_RET_STS_ERROR;
8782: FND_MSG_PUB.Count_AND_GET
8783: (p_count => x_msg_count, p_data => x_msg_data);
8784: RETURN FALSE;
8785:
8786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8785:
8786: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8787: print_debug(' UNEXCP error...');
8788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8789: FND_MSG_PUB.Count_AND_GET
8790: (p_count => x_msg_count, p_data => x_msg_data);
8791: RETURN FALSE;
8792:
8793: WHEN OTHERS THEN
8792:
8793: WHEN OTHERS THEN
8794: print_debug(' OTHERS error...'||SQLERRM);
8795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8796: FND_MSG_PUB.Count_AND_GET
8797: (p_count => x_msg_count, p_data => x_msg_data);
8798: RETURN FALSE;
8799:
8800: END validate_lot_indivisible;
9074:
9075: -- Bug 7513308
9076: -- Initialize message list if p_init_msg_list is set to TRUE.
9077: IF fnd_api.to_boolean(p_init_msg_list) THEN
9078: fnd_msg_pub.initialize;
9079: END IF;
9080:
9081: l_source := p_source;
9082: l_api_version := 1.0;
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:
9124: print_debug('End of the program create_inv_lot. Program has completed successfully ', 9);
9125: EXCEPTION
9126: WHEN NO_DATA_FOUND THEN
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: ROLLBACK TO inv_lot;
9129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9130: if( x_msg_count > 1 ) then
9131: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9132: end if;
9133: print_debug('In No data found ' || SQLERRM, 9);
9127: x_return_status := fnd_api.g_ret_sts_error;
9128: ROLLBACK TO inv_lot;
9129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9130: if( x_msg_count > 1 ) then
9131: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9132: end if;
9133: print_debug('In No data found ' || SQLERRM, 9);
9134: WHEN g_exc_error THEN
9135: x_return_status := fnd_api.g_ret_sts_error;
9133: print_debug('In No data found ' || SQLERRM, 9);
9134: WHEN g_exc_error THEN
9135: x_return_status := fnd_api.g_ret_sts_error;
9136: ROLLBACK TO inv_lot;
9137: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9138: if( x_msg_count > 1 ) then
9139: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9140: end if;
9141: print_debug('In g_exc_error ' || SQLERRM, 9);
9135: x_return_status := fnd_api.g_ret_sts_error;
9136: ROLLBACK TO inv_lot;
9137: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9138: if( x_msg_count > 1 ) then
9139: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9140: end if;
9141: print_debug('In g_exc_error ' || SQLERRM, 9);
9142: WHEN g_exc_unexpected_error THEN
9143: x_return_status := fnd_api.g_ret_sts_unexp_error;
9141: print_debug('In g_exc_error ' || SQLERRM, 9);
9142: WHEN g_exc_unexpected_error THEN
9143: x_return_status := fnd_api.g_ret_sts_unexp_error;
9144: ROLLBACK TO inv_lot;
9145: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9146: if( x_msg_count > 1 ) then
9147: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9148: end if;
9149: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9143: x_return_status := fnd_api.g_ret_sts_unexp_error;
9144: ROLLBACK TO inv_lot;
9145: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9146: if( x_msg_count > 1 ) then
9147: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9148: end if;
9149: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9150: WHEN OTHERS THEN
9151: x_return_status := fnd_api.g_ret_sts_unexp_error;
9149: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9150: WHEN OTHERS THEN
9151: x_return_status := fnd_api.g_ret_sts_unexp_error;
9152: ROLLBACK TO inv_lot;
9153: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9154: if( x_msg_count > 1 ) then
9155: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9156: end if;
9157: print_debug('In others ' || SQLERRM, 9);
9151: x_return_status := fnd_api.g_ret_sts_unexp_error;
9152: ROLLBACK TO inv_lot;
9153: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9154: if( x_msg_count > 1 ) then
9155: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9156: end if;
9157: print_debug('In others ' || SQLERRM, 9);
9158: END create_inv_lot;
9159:
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:
9255:
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;
9271:
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 */
9285:
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' */
9297:
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:
9310: /* Check whether item is grade controlled */
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:
9322: END IF; /* c_chk_msi_attr*/
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 */
9335: OPEN c_chk_lot_exists(p_lot_rec.lot_number,p_lot_rec.inventory_item_id,p_lot_rec.organization_id);
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. */
9351: CLOSE c_chk_lot_exists;
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 ;
9366:
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:
9427: -- Populate local variable l_child_lot_rec with the values from x_child_lot_rec.
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:
9612: END IF; /* Call MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM_CONVERSIONS */
9631: EXCEPTION
9632: WHEN NO_DATA_FOUND THEN
9633: x_return_status := g_ret_sts_error;
9634: ROLLBACK TO inv_lot_1;
9635: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9636: if( x_msg_count > 1 ) then
9637: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9638: end if;
9639: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
9633: x_return_status := g_ret_sts_error;
9634: ROLLBACK TO inv_lot_1;
9635: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9636: if( x_msg_count > 1 ) then
9637: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9638: end if;
9639: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
9640: WHEN g_exc_error THEN
9641: x_return_status := g_ret_sts_error;
9639: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
9640: WHEN g_exc_error THEN
9641: x_return_status := g_ret_sts_error;
9642: ROLLBACK TO inv_lot_1;
9643: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9644: if( x_msg_count > 1 ) then
9645: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9646: end if;
9647: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
9641: x_return_status := g_ret_sts_error;
9642: ROLLBACK TO inv_lot_1;
9643: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9644: if( x_msg_count > 1 ) then
9645: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9646: end if;
9647: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
9648: WHEN g_exc_unexpected_error THEN
9649: x_return_status := g_ret_sts_unexp_error;
9647: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
9648: WHEN g_exc_unexpected_error THEN
9649: x_return_status := g_ret_sts_unexp_error;
9650: ROLLBACK TO inv_lot_1;
9651: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9652: if( x_msg_count > 1 ) then
9653: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9654: end if;
9655: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
9649: x_return_status := g_ret_sts_unexp_error;
9650: ROLLBACK TO inv_lot_1;
9651: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9652: if( x_msg_count > 1 ) then
9653: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9654: end if;
9655: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
9656: WHEN OTHERS THEN
9657: x_return_status := g_ret_sts_unexp_error;
9655: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
9656: WHEN OTHERS THEN
9657: x_return_status := g_ret_sts_unexp_error;
9658: ROLLBACK TO inv_lot_1;
9659: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9660: if( x_msg_count > 1 ) then
9661: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9662: end if;
9663: print_debug('In others Create_Inv_Lot ' || SQLERRM, 9);
9657: x_return_status := g_ret_sts_unexp_error;
9658: ROLLBACK TO inv_lot_1;
9659: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9660: if( x_msg_count > 1 ) then
9661: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9662: end if;
9663: print_debug('In others Create_Inv_Lot ' || SQLERRM, 9);
9664:
9665: END Create_Inv_lot;
9735: EXCEPTION
9736: WHEN fnd_api.g_exc_error THEN
9737: ROLLBACK TO apiauto_gen_lot_apipub;
9738: x_return_status := fnd_api.g_ret_sts_error;
9739: fnd_msg_pub.count_and_get (
9740: p_encoded => fnd_api.g_false,
9741: p_count => x_msg_count,
9742: p_data => x_msg_data
9743: );
9744: RETURN ( NULL );
9745: WHEN fnd_api.g_exc_unexpected_error THEN
9746: ROLLBACK TO apiauto_gen_lot_apipub;
9747: x_return_status := fnd_api.g_ret_sts_unexp_error;
9748: fnd_msg_pub.count_and_get (
9749: p_encoded => fnd_api.g_false,
9750: p_count => x_msg_count,
9751: p_data => x_msg_data
9752: );
9754: WHEN OTHERS THEN
9755: ROLLBACK TO apiauto_gen_lot_apipub;
9756: x_return_status := fnd_api.g_ret_sts_unexp_error;
9757:
9758: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9759: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
9760: END IF;
9761:
9762: fnd_msg_pub.count_and_get (
9755: ROLLBACK TO apiauto_gen_lot_apipub;
9756: x_return_status := fnd_api.g_ret_sts_unexp_error;
9757:
9758: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9759: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
9760: END IF;
9761:
9762: fnd_msg_pub.count_and_get (
9763: p_encoded => fnd_api.g_false,
9758: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9759: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
9760: END IF;
9761:
9762: fnd_msg_pub.count_and_get (
9763: p_encoded => fnd_api.g_false,
9764: p_count => x_msg_count,
9765: p_data => x_msg_data
9766: );
9862: l_progress := '001';
9863:
9864: -- Initialize message list if p_init_msg_list is set to TRUE.
9865: IF fnd_api.to_boolean(p_init_msg_list) THEN
9866: fnd_msg_pub.initialize;
9867: END IF;
9868:
9869: --Initialize the return status
9870: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
10003: END IF; -----------IF l_pmy_unit_of_meas <> p_transaction_unit_of_measure
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
10038: l_progress := '012' ;
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:
10050:
10072:
10073: WHEN NO_DATA_FOUND THEN
10074: x_return_status := fnd_api.g_ret_sts_error;
10075:
10076: fnd_msg_pub.count_and_get(
10077: p_encoded => fnd_api.g_false ,
10078: p_count => x_msg_count ,
10079: p_data => x_msg_data
10080: );
10078: p_count => x_msg_count ,
10079: p_data => x_msg_data
10080: );
10081: IF( x_msg_count > 1 ) THEN
10082: x_msg_data := fnd_msg_pub.get(
10083: x_msg_count ,
10084: FND_API.G_FALSE
10085: );
10086: END IF ;
10094: WHEN g_exc_error THEN
10095:
10096: x_return_status := fnd_api.g_ret_sts_error;
10097:
10098: fnd_msg_pub.count_and_get(
10099: p_encoded => fnd_api.g_false ,
10100: p_count => x_msg_count ,
10101: p_data => x_msg_data
10102: );
10101: p_data => x_msg_data
10102: );
10103:
10104: IF( x_msg_count > 1 ) THEN
10105: x_msg_data := fnd_msg_pub.get(
10106: x_msg_count ,
10107: FND_API.G_FALSE
10108: );
10109: END IF;
10116:
10117: WHEN g_exc_unexpected_error THEN
10118: x_return_status := fnd_api.g_ret_sts_unexp_error;
10119:
10120: fnd_msg_pub.count_and_get(
10121: p_encoded => fnd_api.g_false ,
10122: p_count => x_msg_count ,
10123: p_data => x_msg_data
10124: );
10122: p_count => x_msg_count ,
10123: p_data => x_msg_data
10124: );
10125: IF( x_msg_count > 1 ) THEN
10126: x_msg_data := fnd_msg_pub.get(
10127: x_msg_count ,
10128: FND_API.G_FALSE
10129: );
10130: END IF ;
10135: END IF;
10136:
10137: WHEN OTHERS THEN
10138: x_return_status := fnd_api.g_ret_sts_unexp_error;
10139: fnd_msg_pub.count_and_get(
10140: p_encoded => fnd_api.g_false ,
10141: p_count => x_msg_count ,
10142: p_data => x_msg_data
10143: );
10141: p_count => x_msg_count ,
10142: p_data => x_msg_data
10143: );
10144: IF( x_msg_count > 1 ) THEN
10145: x_msg_data := fnd_msg_pub.get(
10146: x_msg_count ,
10147: FND_API.G_FALSE);
10148: END IF;
10149:
10236: inv_log_util.trace('validate_quantities: Start ', g_pkg_name, 9);
10237: END IF;
10238:
10239: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
10240: FND_MSG_PUB.Initialize;
10241: END IF;
10242:
10243: -- Standard call to check for call compatibility.
10244: IF NOT FND_API.COMPATIBLE_API_CALL( l_api_version
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:
10285: IF (p_secondary_uom_code IS NOT NULL) THEN
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:
10291: ELSIF (l_tracking_quantity_ind = 'PS') THEN
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:
10301: -- Set the default UOM2 if missing or incorrect:
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: --{
10318: IF (p_secondary_quantity IS NULL) 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;
10340: IF (l_debug = 1) 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;
10365: IF (l_debug = 1) 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;
10423: IF (l_debug = 1) THEN
10470: x_return_status := FND_API.G_RET_STS_ERROR;
10471: IF (l_debug = 1) THEN
10472: inv_log_util.trace('validate_quantities: FND_API.G_EXC_ERROR ', g_pkg_name, 9);
10473: END IF;
10474: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10475: RETURN FALSE;
10476:
10477: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10479: IF (l_debug = 1) THEN
10480: inv_log_util.trace('validate_quantities:when unexp sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name, 9);
10481: END IF;
10482: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10483: RETURN FALSE;
10484:
10485: WHEN OTHERS THEN
10486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10486: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10487: IF (l_debug = 1) THEN
10488: inv_log_util.trace('validate_quantities:when others sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name, 9);
10489: END IF;
10490: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10491: RETURN FALSE;
10492:
10493: END validate_quantities;
10494: