[Home] [Help]
171:
172: EXCEPTION
173: WHEN OTHERS THEN
174: x_return_status := g_ret_sts_unexp_error;
175: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
176: if( x_msg_count > 1 ) then
177: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
178: end if;
179: print_debug('validate_lot_status: In others ' || SQLERRM, 9);
173: WHEN OTHERS THEN
174: x_return_status := g_ret_sts_unexp_error;
175: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
176: if( x_msg_count > 1 ) then
177: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
178: end if;
179: print_debug('validate_lot_status: In others ' || SQLERRM, 9);
180: END validate_lot_status;
181:
463: END IF;
464:
465: -- Initialize message list if p_init_msg_list is set to TRUE.
466: IF fnd_api.to_boolean ( p_init_msg_list ) THEN
467: fnd_msg_pub.initialize;
468: END IF;
469:
470: -- Initialize API return status to success
471: x_return_status := fnd_api.g_ret_sts_success;
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;
491: EXCEPTION
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;
502:
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
533: inv_pick_wave_pick_confirm_pub.tracelog ( 'Exception in MTL_LOT_NUMBER' , 'INV_LOT_API_PUB');
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;
570: END IF;
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;
1518:
1547: COMMIT WORK;
1548: END IF;
1549:
1550: -- Standard call to get message count and if count is 1, get message info.
1551: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1552: --x_return_status := l_return_status;
1553:
1554: --print_debug('end insertlot', 4);
1555:
1561: --print_debug('insertlot other exception', 4);
1562:
1563: ROLLBACK TO apiinsertlot_apipub;
1564:
1565: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1566: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
1567: END IF;
1568:
1569: x_return_status := fnd_api.g_ret_sts_unexp_error;
1562:
1563: ROLLBACK TO apiinsertlot_apipub;
1564:
1565: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1566: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
1567: END IF;
1568:
1569: x_return_status := fnd_api.g_ret_sts_unexp_error;
1570: END insertlot;
1698:
1699: -- Initialize message list if p_init_msg_list is set to TRUE.
1700: IF fnd_api.to_boolean ( p_init_msg_list )
1701: THEN
1702: fnd_msg_pub.initialize;
1703: END IF;
1704:
1705: -- Initialize API return status to success
1706: x_return_status := fnd_api.g_ret_sts_success;
2389: COMMIT;
2390: END IF;
2391:
2392: -- Standard call to get message count and if count is 1, get message info.
2393: fnd_msg_pub.count_and_get (
2394: p_encoded => fnd_api.g_false,
2395: p_count => x_msg_count,
2396: p_data => x_msg_data
2397: );
2399: WHEN OTHERS
2400: THEN
2401: ROLLBACK TO apiinsertlot_apipub;
2402:
2403: IF fnd_msg_pub.check_msg_level (
2404: fnd_msg_pub.g_msg_lvl_unexp_error
2405: )
2406: THEN
2407: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2400: THEN
2401: ROLLBACK TO apiinsertlot_apipub;
2402:
2403: IF fnd_msg_pub.check_msg_level (
2404: fnd_msg_pub.g_msg_lvl_unexp_error
2405: )
2406: THEN
2407: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2408: END IF;
2403: IF fnd_msg_pub.check_msg_level (
2404: fnd_msg_pub.g_msg_lvl_unexp_error
2405: )
2406: THEN
2407: fnd_msg_pub.add_exc_msg ('INV_LOT_API_PUB' , 'insertLot' );
2408: END IF;
2409:
2410: x_return_status := fnd_api.g_ret_sts_unexp_error;
2411: END inserttrxlot;
2527: RETURN TRUE;
2528: EXCEPTION
2529: WHEN OTHERS
2530: THEN
2531: IF fnd_msg_pub.check_msg_level (
2532: fnd_msg_pub.g_msg_lvl_unexp_error
2533: )
2534: THEN
2535: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2528: EXCEPTION
2529: WHEN OTHERS
2530: THEN
2531: IF fnd_msg_pub.check_msg_level (
2532: fnd_msg_pub.g_msg_lvl_unexp_error
2533: )
2534: THEN
2535: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2536: END IF;
2531: IF fnd_msg_pub.check_msg_level (
2532: fnd_msg_pub.g_msg_lvl_unexp_error
2533: )
2534: THEN
2535: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
2536: END IF;
2537:
2538: RETURN FALSE;
2539: END validate_unique_lot;
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;
2624: END IF; /* if not (l_got_lock) */
2931:
2932: -- Initialize message list if p_init_msg_list is set to TRUE.
2933: IF fnd_api.to_boolean ( p_init_msg_list )
2934: THEN
2935: fnd_msg_pub.initialize;
2936: END IF;
2937:
2938: -- Initialize API return status to success
2939: x_return_status := fnd_api.g_ret_sts_success;
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: /*===========================================
2975: Get the Child lot generation parameters.
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;
2990:
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: /*=================================
3039: BUG#4145437
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:
3047: ELSIF (x_lot_number_generation = 1) THEN
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
3070: CLOSE get_next_child;
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;
3085: /*===============================
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)
3099: + lengthb(x_last_child_seq)) >
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:
3106: IF (x_child_lot_zero_padding_flag = 'Y') THEN
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
3177: CLOSE get_next_child;
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;
3192: /*===============================
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?
3204: interim_child_lot_number :=
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;
3297: IF (x_lot_number_generation = 3) THEN
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;
3354:
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
3378: WHEN NO_DATA_FOUND THEN
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:
3384: BEGIN
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
3455: fnd_message.set_name ( 'INV' , 'INV_FIELD_INVALID');
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
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
3480: BEGIN
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;
3517: END IF;
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: */
3536:
3569: EXCEPTION
3570: WHEN fnd_api.g_exc_error THEN
3571: ROLLBACK TO apiauto_gen_lot_apipub;
3572: x_return_status := fnd_api.g_ret_sts_error;
3573: fnd_msg_pub.count_and_get (
3574: p_encoded => fnd_api.g_false,
3575: p_count => x_msg_count,
3576: p_data => x_msg_data
3577: );
3576: p_data => x_msg_data
3577: );
3578: --Bugfix 3940851 {
3579: if( x_msg_count > 1 ) then
3580: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3581: end if;
3582: --Bugfix 3940851 }
3583: RETURN ( NULL );
3584: WHEN fnd_api.g_exc_unexpected_error THEN
3583: RETURN ( NULL );
3584: WHEN fnd_api.g_exc_unexpected_error THEN
3585: ROLLBACK TO apiauto_gen_lot_apipub;
3586: x_return_status := fnd_api.g_ret_sts_unexp_error;
3587: fnd_msg_pub.count_and_get (
3588: p_encoded => fnd_api.g_false,
3589: p_count => x_msg_count,
3590: p_data => x_msg_data
3591: );
3590: p_data => x_msg_data
3591: );
3592: --Bugfix 3940851 {
3593: if( x_msg_count > 1 ) then
3594: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3595: end if;
3596: --Bugfix 3940851 }
3597: RETURN ( NULL );
3598: WHEN OTHERS THEN
3598: WHEN OTHERS THEN
3599: ROLLBACK TO apiauto_gen_lot_apipub;
3600: x_return_status := fnd_api.g_ret_sts_unexp_error;
3601:
3602: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3603: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3604: END IF;
3605:
3606: fnd_msg_pub.count_and_get (
3599: ROLLBACK TO apiauto_gen_lot_apipub;
3600: x_return_status := fnd_api.g_ret_sts_unexp_error;
3601:
3602: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3603: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3604: END IF;
3605:
3606: fnd_msg_pub.count_and_get (
3607: p_encoded => fnd_api.g_false,
3602: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3603: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3604: END IF;
3605:
3606: fnd_msg_pub.count_and_get (
3607: p_encoded => fnd_api.g_false,
3608: p_count => x_msg_count,
3609: p_data => x_msg_data
3610: );
3609: p_data => x_msg_data
3610: );
3611: --Bugfix 3940851 {
3612: if( x_msg_count > 1 ) then
3613: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
3614: end if;
3615: --Bugfix 3940851 }
3616: RETURN ( NULL );
3617: END auto_gen_lot;
3750: END IF;
3751: EXCEPTION
3752: WHEN OTHERS
3753: THEN
3754: IF fnd_msg_pub.check_msg_level (
3755: fnd_msg_pub.g_msg_lvl_unexp_error
3756: )
3757: THEN
3758: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3751: EXCEPTION
3752: WHEN OTHERS
3753: THEN
3754: IF fnd_msg_pub.check_msg_level (
3755: fnd_msg_pub.g_msg_lvl_unexp_error
3756: )
3757: THEN
3758: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3759: END IF;
3754: IF fnd_msg_pub.check_msg_level (
3755: fnd_msg_pub.g_msg_lvl_unexp_error
3756: )
3757: THEN
3758: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
3759: END IF;
3760:
3761: x_is_unique := 'false';
3762: END validate_unique_lot;
3991: x_return_status := fnd_api.g_ret_sts_unexp_error;
3992: IF (l_debug = 1) THEN
3993: print_debug ('Exitting populatelotattributes - other exception:' || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' ),1);
3994: END IF;
3995: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3996: fnd_msg_pub.add_exc_msg (g_pkg_name,'get_lot_att_from_source');
3997: END IF;
3998: END get_lot_att_from_source;
3999:
3992: IF (l_debug = 1) THEN
3993: print_debug ('Exitting populatelotattributes - other exception:' || TO_CHAR ( SYSDATE, 'YYYY-MM-DD HH:DD:SS' ),1);
3994: END IF;
3995: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3996: fnd_msg_pub.add_exc_msg (g_pkg_name,'get_lot_att_from_source');
3997: END IF;
3998: END get_lot_att_from_source;
3999:
4000:
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);
4147: END IF;
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
4219: print_debug('Req segment is not populated', 9);
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;
4263:
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 */
4343: EXCEPTION
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;
4359: END LOOP;
4358: e := e + 200;
4359: END LOOP;
4360:
4361: ROLLBACK TO get_lot_attr_information;
4362: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4363: WHEN g_exc_error THEN
4364: x_return_status := g_ret_sts_error;
4365: ROLLBACK TO get_lot_attr_information;
4366: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4362: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4363: WHEN g_exc_error THEN
4364: x_return_status := g_ret_sts_error;
4365: ROLLBACK TO get_lot_attr_information;
4366: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4367: WHEN g_exc_unexpected_error THEN
4368: x_return_status := g_ret_sts_unexp_error;
4369: ROLLBACK TO get_lot_attr_information;
4370: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4366: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4367: WHEN g_exc_unexpected_error THEN
4368: x_return_status := g_ret_sts_unexp_error;
4369: ROLLBACK TO get_lot_attr_information;
4370: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4371: WHEN OTHERS THEN
4372: x_return_status := g_ret_sts_unexp_error;
4373: ROLLBACK TO get_lot_attr_information;
4374: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4370: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4371: WHEN OTHERS THEN
4372: x_return_status := g_ret_sts_unexp_error;
4373: ROLLBACK TO get_lot_attr_information;
4374: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4375: print_debug('Error ' || SQLERRM, 9);
4376: END validate_lot_attr_info;
4377:
4378:
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;
4450: EXCEPTION
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:
4461: IF g_debug = 1 THEN
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;
4484:
4485: /* Call the function to check the Lot Uniqueness */
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);
4500: END IF;
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);
4531: END IF;
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;
4600: EXCEPTION
4600: EXCEPTION
4601: WHEN NO_DATA_FOUND THEN
4602: x_return_status := g_ret_sts_error;
4603: ROLLBACK TO val_lot_attr;
4604: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4605: print_debug('In No data found -val_lot_attr ' || SQLERRM, 9);
4606: WHEN g_exc_error THEN
4607: x_return_status := g_ret_sts_error;
4608: ROLLBACK TO val_lot_attr;
4605: print_debug('In No data found -val_lot_attr ' || SQLERRM, 9);
4606: WHEN g_exc_error THEN
4607: x_return_status := g_ret_sts_error;
4608: ROLLBACK TO val_lot_attr;
4609: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4610: print_debug('In g_exc_error -val_lot_attr' || SQLERRM, 9);
4611: WHEN g_exc_unexpected_error THEN
4612: x_return_status := g_ret_sts_unexp_error;
4613: ROLLBACK TO val_lot_attr;
4610: print_debug('In g_exc_error -val_lot_attr' || SQLERRM, 9);
4611: WHEN g_exc_unexpected_error THEN
4612: x_return_status := g_ret_sts_unexp_error;
4613: ROLLBACK TO val_lot_attr;
4614: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4615: print_debug('In g_exc_unexpected_error val_lot_attr' || SQLERRM, 9);
4616: WHEN OTHERS THEN
4617: x_return_status := g_ret_sts_unexp_error;
4618: ROLLBACK TO val_lot_attr;
4615: print_debug('In g_exc_unexpected_error val_lot_attr' || SQLERRM, 9);
4616: WHEN OTHERS THEN
4617: x_return_status := g_ret_sts_unexp_error;
4618: ROLLBACK TO val_lot_attr;
4619: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4620: print_debug('In others val_lot_attr' || SQLERRM, 9);
4621: END validate_lot_attr_in_param;
4622:
4623: -- nsinghi 5209065 START. Created new overloaded procedure.
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;
4861:
6929: EXCEPTION
6930: WHEN NO_DATA_FOUND THEN
6931: x_return_status := g_ret_sts_error;
6932: ROLLBACK TO upd_lot_attr;
6933: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6934: if( x_msg_count > 1 ) then
6935: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6936: end if;
6937: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6931: x_return_status := g_ret_sts_error;
6932: ROLLBACK TO upd_lot_attr;
6933: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6934: if( x_msg_count > 1 ) then
6935: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6936: end if;
6937: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6938: WHEN g_exc_error THEN
6939: x_return_status := g_ret_sts_error;
6937: print_debug('Upd Lort Attr: In No data found ' || SQLERRM, 9);
6938: WHEN g_exc_error THEN
6939: x_return_status := g_ret_sts_error;
6940: ROLLBACK TO upd_lot_attr;
6941: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6942: if( x_msg_count > 1 ) then
6943: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6944: end if;
6945: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6939: x_return_status := g_ret_sts_error;
6940: ROLLBACK TO upd_lot_attr;
6941: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6942: if( x_msg_count > 1 ) then
6943: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6944: end if;
6945: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6946: WHEN g_exc_unexpected_error THEN
6947: x_return_status := g_ret_sts_unexp_error;
6945: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
6946: WHEN g_exc_unexpected_error THEN
6947: x_return_status := g_ret_sts_unexp_error;
6948: ROLLBACK TO upd_lot_attr;
6949: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6950: if ( x_msg_count > 1 ) then
6951: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6952: end if;
6953: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6947: x_return_status := g_ret_sts_unexp_error;
6948: ROLLBACK TO upd_lot_attr;
6949: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6950: if ( x_msg_count > 1 ) then
6951: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6952: end if;
6953: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6954: WHEN OTHERS THEN
6955: x_return_status := g_ret_sts_unexp_error;
6953: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
6954: WHEN OTHERS THEN
6955: x_return_status := g_ret_sts_unexp_error;
6956: ROLLBACK TO upd_lot_attr;
6957: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6958: if( x_msg_count > 1 ) then
6959: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6960: end if;
6961: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
6955: x_return_status := g_ret_sts_unexp_error;
6956: ROLLBACK TO upd_lot_attr;
6957: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6958: if( x_msg_count > 1 ) then
6959: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
6960: end if;
6961: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
6962: END update_inv_lot;
6963:
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:
7397: print_debug('End of the program Update_Inv_lot. Program has completed successfully ', 9);
7398: EXCEPTION
7399: WHEN NO_DATA_FOUND THEN
7400: x_return_status := g_ret_sts_error;
7401: ROLLBACK TO upd_lot_attr;
7402: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7403: if( x_msg_count > 1 ) then
7404: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7405: end if;
7406: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7400: x_return_status := g_ret_sts_error;
7401: ROLLBACK TO upd_lot_attr;
7402: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7403: if( x_msg_count > 1 ) then
7404: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7405: end if;
7406: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7407: WHEN g_exc_error THEN
7408: x_return_status := g_ret_sts_error;
7406: print_debug('Upd Lot Attr: In No data found ' || SQLERRM, 9);
7407: WHEN g_exc_error THEN
7408: x_return_status := g_ret_sts_error;
7409: ROLLBACK TO upd_lot_attr;
7410: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7411: if( x_msg_count > 1 ) then
7412: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7413: end if;
7414: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7408: x_return_status := g_ret_sts_error;
7409: ROLLBACK TO upd_lot_attr;
7410: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7411: if( x_msg_count > 1 ) then
7412: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7413: end if;
7414: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7415: WHEN g_exc_unexpected_error THEN
7416: x_return_status := g_ret_sts_unexp_error;
7414: print_debug('Upd Lot Attr: In g_exc_error ' || SQLERRM, 9);
7415: WHEN g_exc_unexpected_error THEN
7416: x_return_status := g_ret_sts_unexp_error;
7417: ROLLBACK TO upd_lot_attr;
7418: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7419: if ( x_msg_count > 1 ) then
7420: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7421: end if;
7422: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7416: x_return_status := g_ret_sts_unexp_error;
7417: ROLLBACK TO upd_lot_attr;
7418: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7419: if ( x_msg_count > 1 ) then
7420: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7421: end if;
7422: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7423: WHEN OTHERS THEN
7424: x_return_status := g_ret_sts_unexp_error;
7422: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
7423: WHEN OTHERS THEN
7424: x_return_status := g_ret_sts_unexp_error;
7425: ROLLBACK TO upd_lot_attr;
7426: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7427: if( x_msg_count > 1 ) then
7428: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7429: end if;
7430: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
7424: x_return_status := g_ret_sts_unexp_error;
7425: ROLLBACK TO upd_lot_attr;
7426: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
7427: if( x_msg_count > 1 ) then
7428: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
7429: end if;
7430: print_debug('Upd Lot Attr: In others ' || SQLERRM, 9);
7431:
7432: END update_inv_lot;
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:
8015: v_index := v_index + 1;
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:
8041: IF g_debug = 1 THEN
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;
8099: END LOOP;
8123: IF g_debug = 1 THEN
8124: print_debug('Program LOT_DFF_VALIDATE has completed with validation errors', 9);
8125: END IF;
8126:
8127: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8128: WHEN errors_received THEN
8129: x_return_status := inv_lot_api_pub.g_ret_sts_error;
8130:
8131: IF g_debug = 1 THEN
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;
8148: END LOOP;
8150: ROLLBACK TO wms_lot_dff_validate;
8151: WHEN OTHERS THEN
8152: x_return_status := inv_lot_api_pub.g_ret_sts_unexp_error;
8153: ROLLBACK TO wms_lot_dff_validate;
8154: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
8155:
8156: IF g_debug = 1 THEN
8157: print_debug('Program LOT_DFF_VALIDATE has completed with errors. In when others ', 9);
8158: print_debug('Error ' || SQLERRM, 9);
8265:
8266:
8267: BEGIN
8268: IF FND_API.to_boolean(p_init_msg_list) THEN
8269: FND_MSG_PUB.Initialize;
8270: END IF;
8271:
8272: -- Standard call to check for call compatibility.
8273: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
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;
8297:
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:
8307: /*==========================================
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;
8324:
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
8395: fnd_message.set_name ('INV' , 'INV_CL_PREFIX_MISMATCH');
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
8400: /*=======================================
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:
8423: /*============================================
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;
8448: ELSE -- Item
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;
8455:
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);
8478: WHEN FND_API.G_EXC_ERROR THEN
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);
8478: WHEN FND_API.G_EXC_ERROR THEN
8479: x_return_status := FND_API.G_RET_STS_ERROR;
8480: FND_MSG_PUB.Count_AND_GET
8476: FND_MSG_PUB.Count_AND_GET
8477: (p_count => x_msg_count, p_data => x_msg_data);
8478: WHEN FND_API.G_EXC_ERROR THEN
8479: x_return_status := FND_API.G_RET_STS_ERROR;
8480: FND_MSG_PUB.Count_AND_GET
8481: (p_count => x_msg_count, p_data => x_msg_data);
8482:
8483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8481: (p_count => x_msg_count, p_data => x_msg_data);
8482:
8483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8484: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8485: FND_MSG_PUB.Count_AND_GET
8486: (p_count => x_msg_count, p_data => x_msg_data);
8487:
8488: WHEN OTHERS THEN
8489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8486: (p_count => x_msg_count, p_data => x_msg_data);
8487:
8488: WHEN OTHERS THEN
8489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8490: FND_MSG_PUB.Count_AND_GET
8491: (p_count => x_msg_count, p_data => x_msg_data);
8492:
8493: END validate_child_lot;
8494:
8550:
8551: WHEN CREATE_TREE_ERROR THEN
8552: print_debug(' CREATE_TREE error...');
8553: x_return_status := FND_API.G_RET_STS_ERROR;
8554: FND_MSG_PUB.Count_AND_GET
8555: (p_count => x_msg_count, p_data => x_msg_data);
8556: RETURN FALSE;
8557:
8558: WHEN QUERY_TREE_ERROR THEN
8557:
8558: WHEN QUERY_TREE_ERROR THEN
8559: print_debug(' QUERY_TREE error...');
8560: x_return_status := FND_API.G_RET_STS_ERROR;
8561: FND_MSG_PUB.Count_AND_GET
8562: (p_count => x_msg_count, p_data => x_msg_data);
8563: RETURN FALSE;
8564:
8565: WHEN FND_API.G_EXC_ERROR THEN
8564:
8565: WHEN FND_API.G_EXC_ERROR THEN
8566: print_debug(' EXCP error...');
8567: x_return_status := FND_API.G_RET_STS_ERROR;
8568: FND_MSG_PUB.Count_AND_GET
8569: (p_count => x_msg_count, p_data => x_msg_data);
8570: RETURN FALSE;
8571:
8572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8571:
8572: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8573: print_debug(' UNEXCP error...');
8574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8575: FND_MSG_PUB.Count_AND_GET
8576: (p_count => x_msg_count, p_data => x_msg_data);
8577: RETURN FALSE;
8578:
8579: WHEN OTHERS THEN
8578:
8579: WHEN OTHERS THEN
8580: print_debug(' OTHERS error...'||SQLERRM);
8581: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8582: FND_MSG_PUB.Count_AND_GET
8583: (p_count => x_msg_count, p_data => x_msg_data);
8584: RETURN FALSE;
8585:
8586: END validate_lot_indivisible;
8745: print_debug(' ... org='||p_organization_id||', item='||p_inventory_item_id||', rev='||p_revision||', sub='||p_subinventory_code||', loct='||p_locator_id);
8746: print_debug(' ... lot='||p_lot_number||', p_qoh='||p_qoh||', p_atr='||p_atr);
8747:
8748: IF FND_API.to_boolean(p_init_msg_list) THEN
8749: FND_MSG_PUB.Initialize;
8750: END IF;
8751:
8752: -- Standard call to check for call compatibility.
8753: IF NOT FND_API.Compatible_API_Call( l_api_version
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;
8778:
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;
8823:
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);
9016: RAISE FND_API.G_EXC_ERROR;
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);
9032: -- RAISE FND_API.G_EXC_ERROR;
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;
9055:
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);
9124: RAISE FND_API.G_EXC_ERROR;
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 )
9135:
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);
9147: RAISE FND_API.G_EXC_ERROR;
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;
9174: /* Update MTI table with error code/explanation */
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);
9176: RAISE FND_API.G_EXC_ERROR;
9188:
9189: WHEN CREATE_TREE_ERROR THEN
9190: print_debug(' CREATE_TREE error...');
9191: x_return_status := FND_API.G_RET_STS_ERROR;
9192: FND_MSG_PUB.Count_AND_GET
9193: (p_count => x_msg_count, p_data => x_msg_data);
9194: RETURN FALSE;
9195:
9196: WHEN QUERY_TREE_ERROR THEN
9195:
9196: WHEN QUERY_TREE_ERROR THEN
9197: print_debug(' QUERY_TREE error...');
9198: x_return_status := FND_API.G_RET_STS_ERROR;
9199: FND_MSG_PUB.Count_AND_GET
9200: (p_count => x_msg_count, p_data => x_msg_data);
9201: RETURN FALSE;
9202:
9203: WHEN FND_API.G_EXC_ERROR THEN
9202:
9203: WHEN FND_API.G_EXC_ERROR THEN
9204: print_debug(' EXCP error...');
9205: x_return_status := FND_API.G_RET_STS_ERROR;
9206: FND_MSG_PUB.Count_AND_GET
9207: (p_count => x_msg_count, p_data => x_msg_data);
9208: RETURN FALSE;
9209:
9210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9209:
9210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9211: print_debug(' UNEXCP error...');
9212: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9213: FND_MSG_PUB.Count_AND_GET
9214: (p_count => x_msg_count, p_data => x_msg_data);
9215: RETURN FALSE;
9216:
9217: WHEN OTHERS THEN
9216:
9217: WHEN OTHERS THEN
9218: print_debug(' OTHERS error...'||SQLERRM);
9219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9220: FND_MSG_PUB.Count_AND_GET
9221: (p_count => x_msg_count, p_data => x_msg_data);
9222: RETURN FALSE;
9223:
9224: END validate_lot_indivisible;
9498:
9499: -- Bug 7513308
9500: -- Initialize message list if p_init_msg_list is set to TRUE.
9501: IF fnd_api.to_boolean(p_init_msg_list) THEN
9502: fnd_msg_pub.initialize;
9503: END IF;
9504:
9505: l_source := p_source;
9506: l_api_version := 1.0;
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:
9548: print_debug('End of the program create_inv_lot. Program has completed successfully ', 9);
9549: EXCEPTION
9550: WHEN NO_DATA_FOUND THEN
9551: x_return_status := fnd_api.g_ret_sts_error;
9552: ROLLBACK TO inv_lot;
9553: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9554: if( x_msg_count > 1 ) then
9555: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9556: end if;
9557: print_debug('In No data found ' || SQLERRM, 9);
9551: x_return_status := fnd_api.g_ret_sts_error;
9552: ROLLBACK TO inv_lot;
9553: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9554: if( x_msg_count > 1 ) then
9555: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9556: end if;
9557: print_debug('In No data found ' || SQLERRM, 9);
9558: WHEN g_exc_error THEN
9559: x_return_status := fnd_api.g_ret_sts_error;
9557: print_debug('In No data found ' || SQLERRM, 9);
9558: WHEN g_exc_error THEN
9559: x_return_status := fnd_api.g_ret_sts_error;
9560: ROLLBACK TO inv_lot;
9561: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9562: if( x_msg_count > 1 ) then
9563: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9564: end if;
9565: print_debug('In g_exc_error ' || SQLERRM, 9);
9559: x_return_status := fnd_api.g_ret_sts_error;
9560: ROLLBACK TO inv_lot;
9561: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9562: if( x_msg_count > 1 ) then
9563: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9564: end if;
9565: print_debug('In g_exc_error ' || SQLERRM, 9);
9566: WHEN g_exc_unexpected_error THEN
9567: x_return_status := fnd_api.g_ret_sts_unexp_error;
9565: print_debug('In g_exc_error ' || SQLERRM, 9);
9566: WHEN g_exc_unexpected_error THEN
9567: x_return_status := fnd_api.g_ret_sts_unexp_error;
9568: ROLLBACK TO inv_lot;
9569: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9570: if( x_msg_count > 1 ) then
9571: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9572: end if;
9573: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9567: x_return_status := fnd_api.g_ret_sts_unexp_error;
9568: ROLLBACK TO inv_lot;
9569: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9570: if( x_msg_count > 1 ) then
9571: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9572: end if;
9573: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9574: WHEN OTHERS THEN
9575: x_return_status := fnd_api.g_ret_sts_unexp_error;
9573: print_debug('In g_exc_unexpected_error ' || SQLERRM, 9);
9574: WHEN OTHERS THEN
9575: x_return_status := fnd_api.g_ret_sts_unexp_error;
9576: ROLLBACK TO inv_lot;
9577: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9578: if( x_msg_count > 1 ) then
9579: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9580: end if;
9581: print_debug('In others ' || SQLERRM, 9);
9575: x_return_status := fnd_api.g_ret_sts_unexp_error;
9576: ROLLBACK TO inv_lot;
9577: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
9578: if( x_msg_count > 1 ) then
9579: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
9580: end if;
9581: print_debug('In others ' || SQLERRM, 9);
9582: END create_inv_lot;
9583:
9705:
9706: -- Bug 7686319
9707: -- Initialize message list if p_init_msg_list is set to TRUE.
9708: IF fnd_api.to_boolean(p_init_msg_list) THEN
9709: fnd_msg_pub.initialize;
9710: END IF;
9711:
9712: x_return_status := g_ret_sts_success;
9713:
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:
9724:
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;
9740:
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 */
9754:
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' */
9766:
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:
9779: /* Check whether item is grade controlled */
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:
9791: END IF; /* c_chk_msi_attr*/
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 */
9804: OPEN c_chk_lot_exists(p_lot_rec.lot_number,p_lot_rec.inventory_item_id,p_lot_rec.organization_id);
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. */
9820: CLOSE c_chk_lot_exists;
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 ;
9835:
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:
9897: -- Populate local variable l_child_lot_rec with the values from x_child_lot_rec.
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:
10082: END IF; /* Call MTL_LOT_UOM_CONV_PVT.COPY_LOT_UOM_CONVERSIONS */
10101: EXCEPTION
10102: WHEN NO_DATA_FOUND THEN
10103: x_return_status := g_ret_sts_error;
10104: ROLLBACK TO inv_lot_1;
10105: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10106: if( x_msg_count > 1 ) then
10107: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10108: end if;
10109: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
10103: x_return_status := g_ret_sts_error;
10104: ROLLBACK TO inv_lot_1;
10105: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10106: if( x_msg_count > 1 ) then
10107: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10108: end if;
10109: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
10110: WHEN g_exc_error THEN
10111: x_return_status := g_ret_sts_error;
10109: print_debug('In No data found Create_Inv_Lot ' || SQLERRM, 9);
10110: WHEN g_exc_error THEN
10111: x_return_status := g_ret_sts_error;
10112: ROLLBACK TO inv_lot_1;
10113: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10114: if( x_msg_count > 1 ) then
10115: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10116: end if;
10117: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
10111: x_return_status := g_ret_sts_error;
10112: ROLLBACK TO inv_lot_1;
10113: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10114: if( x_msg_count > 1 ) then
10115: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10116: end if;
10117: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
10118: WHEN g_exc_unexpected_error THEN
10119: x_return_status := g_ret_sts_unexp_error;
10117: print_debug('In g_exc_error Create_Inv_Lot ' || SQLERRM, 9);
10118: WHEN g_exc_unexpected_error THEN
10119: x_return_status := g_ret_sts_unexp_error;
10120: ROLLBACK TO inv_lot_1;
10121: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10122: if( x_msg_count > 1 ) then
10123: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10124: end if;
10125: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
10119: x_return_status := g_ret_sts_unexp_error;
10120: ROLLBACK TO inv_lot_1;
10121: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10122: if( x_msg_count > 1 ) then
10123: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10124: end if;
10125: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
10126: WHEN OTHERS THEN
10127: x_return_status := g_ret_sts_unexp_error;
10125: print_debug('In g_exc_unexpected_error Create_Inv_Lot ' || SQLERRM, 9);
10126: WHEN OTHERS THEN
10127: x_return_status := g_ret_sts_unexp_error;
10128: ROLLBACK TO inv_lot_1;
10129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10130: if( x_msg_count > 1 ) then
10131: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10132: end if;
10133: print_debug('In others Create_Inv_Lot ' || SQLERRM, 9);
10127: x_return_status := g_ret_sts_unexp_error;
10128: ROLLBACK TO inv_lot_1;
10129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
10130: if( x_msg_count > 1 ) then
10131: x_msg_data := fnd_msg_pub.get(x_msg_count, FND_API.G_FALSE);
10132: end if;
10133: print_debug('In others Create_Inv_Lot ' || SQLERRM, 9);
10134:
10135: END Create_Inv_lot;
10212: EXCEPTION
10213: WHEN fnd_api.g_exc_error THEN
10214: ROLLBACK TO apiauto_gen_lot_apipub;
10215: x_return_status := fnd_api.g_ret_sts_error;
10216: fnd_msg_pub.count_and_get (
10217: p_encoded => fnd_api.g_false,
10218: p_count => x_msg_count,
10219: p_data => x_msg_data
10220: );
10221: RETURN ( NULL );
10222: WHEN fnd_api.g_exc_unexpected_error THEN
10223: ROLLBACK TO apiauto_gen_lot_apipub;
10224: x_return_status := fnd_api.g_ret_sts_unexp_error;
10225: fnd_msg_pub.count_and_get (
10226: p_encoded => fnd_api.g_false,
10227: p_count => x_msg_count,
10228: p_data => x_msg_data
10229: );
10231: WHEN OTHERS THEN
10232: ROLLBACK TO apiauto_gen_lot_apipub;
10233: x_return_status := fnd_api.g_ret_sts_unexp_error;
10234:
10235: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
10236: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
10237: END IF;
10238:
10239: fnd_msg_pub.count_and_get (
10232: ROLLBACK TO apiauto_gen_lot_apipub;
10233: x_return_status := fnd_api.g_ret_sts_unexp_error;
10234:
10235: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
10236: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
10237: END IF;
10238:
10239: fnd_msg_pub.count_and_get (
10240: p_encoded => fnd_api.g_false,
10235: IF fnd_msg_pub.check_msg_level ( fnd_msg_pub.g_msg_lvl_unexp_error) THEN
10236: fnd_msg_pub.add_exc_msg ( g_pkg_name, l_api_name );
10237: END IF;
10238:
10239: fnd_msg_pub.count_and_get (
10240: p_encoded => fnd_api.g_false,
10241: p_count => x_msg_count,
10242: p_data => x_msg_data
10243: );
10339: l_progress := '001';
10340:
10341: -- Initialize message list if p_init_msg_list is set to TRUE.
10342: IF fnd_api.to_boolean(p_init_msg_list) THEN
10343: fnd_msg_pub.initialize;
10344: END IF;
10345:
10346: --Initialize the return status
10347: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
10480: END IF; -----------IF l_pmy_unit_of_meas <> p_transaction_unit_of_measure
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
10515: l_progress := '012' ;
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:
10527:
10549:
10550: WHEN NO_DATA_FOUND THEN
10551: x_return_status := fnd_api.g_ret_sts_error;
10552:
10553: fnd_msg_pub.count_and_get(
10554: p_encoded => fnd_api.g_false ,
10555: p_count => x_msg_count ,
10556: p_data => x_msg_data
10557: );
10555: p_count => x_msg_count ,
10556: p_data => x_msg_data
10557: );
10558: IF( x_msg_count > 1 ) THEN
10559: x_msg_data := fnd_msg_pub.get(
10560: x_msg_count ,
10561: FND_API.G_FALSE
10562: );
10563: END IF ;
10571: WHEN g_exc_error THEN
10572:
10573: x_return_status := fnd_api.g_ret_sts_error;
10574:
10575: fnd_msg_pub.count_and_get(
10576: p_encoded => fnd_api.g_false ,
10577: p_count => x_msg_count ,
10578: p_data => x_msg_data
10579: );
10578: p_data => x_msg_data
10579: );
10580:
10581: IF( x_msg_count > 1 ) THEN
10582: x_msg_data := fnd_msg_pub.get(
10583: x_msg_count ,
10584: FND_API.G_FALSE
10585: );
10586: END IF;
10593:
10594: WHEN g_exc_unexpected_error THEN
10595: x_return_status := fnd_api.g_ret_sts_unexp_error;
10596:
10597: fnd_msg_pub.count_and_get(
10598: p_encoded => fnd_api.g_false ,
10599: p_count => x_msg_count ,
10600: p_data => x_msg_data
10601: );
10599: p_count => x_msg_count ,
10600: p_data => x_msg_data
10601: );
10602: IF( x_msg_count > 1 ) THEN
10603: x_msg_data := fnd_msg_pub.get(
10604: x_msg_count ,
10605: FND_API.G_FALSE
10606: );
10607: END IF ;
10612: END IF;
10613:
10614: WHEN OTHERS THEN
10615: x_return_status := fnd_api.g_ret_sts_unexp_error;
10616: fnd_msg_pub.count_and_get(
10617: p_encoded => fnd_api.g_false ,
10618: p_count => x_msg_count ,
10619: p_data => x_msg_data
10620: );
10618: p_count => x_msg_count ,
10619: p_data => x_msg_data
10620: );
10621: IF( x_msg_count > 1 ) THEN
10622: x_msg_data := fnd_msg_pub.get(
10623: x_msg_count ,
10624: FND_API.G_FALSE);
10625: END IF;
10626:
10713: inv_log_util.trace('validate_quantities: Start ', g_pkg_name, 9);
10714: END IF;
10715:
10716: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
10717: FND_MSG_PUB.Initialize;
10718: END IF;
10719:
10720: -- Standard call to check for call compatibility.
10721: IF NOT FND_API.COMPATIBLE_API_CALL( l_api_version
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:
10762: IF (p_secondary_uom_code IS NOT NULL) THEN
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:
10768: ELSIF (l_tracking_quantity_ind = 'PS') THEN
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:
10778: -- Set the default UOM2 if missing or incorrect:
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: --{
10795: IF (p_secondary_quantity IS NULL) 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;
10817: IF (l_debug = 1) 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;
10842: IF (l_debug = 1) 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;
10900: IF (l_debug = 1) THEN
10947: x_return_status := FND_API.G_RET_STS_ERROR;
10948: IF (l_debug = 1) THEN
10949: inv_log_util.trace('validate_quantities: FND_API.G_EXC_ERROR ', g_pkg_name, 9);
10950: END IF;
10951: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10952: RETURN FALSE;
10953:
10954: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10956: IF (l_debug = 1) THEN
10957: inv_log_util.trace('validate_quantities:when unexp sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name, 9);
10958: END IF;
10959: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10960: RETURN FALSE;
10961:
10962: WHEN OTHERS THEN
10963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10964: IF (l_debug = 1) THEN
10965: inv_log_util.trace('validate_quantities:when others sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name, 9);
10966: END IF;
10967: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
10968: RETURN FALSE;
10969:
10970: END validate_quantities;
10971:
11193: x_return_status := FND_API.G_RET_STS_ERROR;
11194: IF (l_debug = 1) THEN
11195: inv_log_util.trace('lot_UOM_conv_OrgTxf: FND_API.G_EXC_ERROR ', g_pkg_name,9);
11196: END IF;
11197: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11198:
11199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11201: IF (l_debug = 1) THEN
11200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11201: IF (l_debug = 1) THEN
11202: inv_log_util.trace('lot_UOM_conv_OrgTxf:when unexp sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name,9);
11203: END IF;
11204: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11205:
11206: WHEN OTHERS THEN
11207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11208: IF (l_debug = 1) THEN
11207: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11208: IF (l_debug = 1) THEN
11209: inv_log_util.trace('lot_UOM_conv_OrgTxf:when others sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name,9);
11210: END IF;
11211: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11212: END lot_UOM_conv_OrgTxf;
11213:
11214: --this procedure inserts data in MTL_LOT_UOM_CLASS_CONVERSIONS table
11215: --Bug#10202198
11304: x_return_status := FND_API.G_RET_STS_ERROR;
11305: IF (l_debug = 1) THEN
11306: inv_log_util.trace('create_lot_UOM_conv_orgtxf: FND_API.G_EXC_ERROR ', g_pkg_name,9);
11307: END IF;
11308: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11309:
11310: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11312: IF (l_debug = 1) THEN
11311: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11312: IF (l_debug = 1) THEN
11313: inv_log_util.trace('create_lot_UOM_conv_orgtxf:when unexp sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name,9);
11314: END IF;
11315: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11316:
11317: WHEN OTHERS THEN
11318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11319: IF (l_debug = 1) THEN
11318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11319: IF (l_debug = 1) THEN
11320: inv_log_util.trace('create_lot_UOM_conv_orgtxf:when others sqlcode= '||sqlcode||' sqlerrm= '||substr(sqlerrm,1,240), g_pkg_name,9);
11321: END IF;
11322: FND_MSG_PUB.Count_AND_GET (p_count => x_msg_count, p_data => x_msg_data);
11323:
11324:
11325: END create_lot_UOM_conv_orgtxf;
11326: