[Home] [Help]
868: END IF;
869:
870: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
871: fnd_msg_pub.ADD;
872: RAISE fnd_api.g_exc_unexpected_error;
873: END IF;
874:
875: l_next_serial := l_msni_rs_serials_csr.fm_serial_number;
876:
909: END IF;
910:
911: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
912: fnd_msg_pub.ADD;
913: RAISE fnd_api.g_exc_unexpected_error;
914: END IF;
915: END LOOP;
916: END LOOP;
917:
953: END IF;
954:
955: fnd_message.set_name ('INV', 'INV_INVALID_SERIAL_RANGE');
956: fnd_msg_pub.ADD;
957: RAISE fnd_api.g_exc_unexpected_error;
958: END IF;
959:
960: l_next_serial := l_msni_st_serials_csr.fm_serial_number;
961:
1007: END IF;
1008:
1009: fnd_message.set_name ('INV', 'INVALID_SERIAL_NUMBER');
1010: fnd_msg_pub.ADD;
1011: RAISE fnd_api.g_exc_unexpected_error;
1012: END IF;
1013: END LOOP;
1014: END LOOP;
1015:
1043: , '9'
1044: );
1045: END IF;
1046:
1047: RAISE fnd_api.g_exc_unexpected_error;
1048: END IF;
1049:
1050: IF (l_debug = 1)
1051: THEN
1274: END IF;
1275:
1276: RETURN TRUE;
1277: EXCEPTION
1278: WHEN fnd_api.g_exc_error
1279: THEN
1280: IF (l_debug = 1)
1281: THEN
1282: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
1397: l_profile VARCHAR2 (100);
1398: exp_to_ast_allowed NUMBER;
1399: exp_type_required NUMBER;
1400: numhold NUMBER := 0;
1401: l_return_status VARCHAR2 (10) := fnd_api.g_ret_sts_success;
1402: l_msg_count NUMBER;
1403: l_msg_data VARCHAR2 (2000);
1404: BEGIN
1405: IF (l_debug IS NULL)
1413: , x_msg_count => l_msg_count
1414: , x_msg_data => l_msg_data
1415: , p_userid => p_userid
1416: , p_loginid => p_loginid
1417: , p_validation_level => fnd_api.g_valid_level_full
1418: );
1419: x_return_status := l_return_status;
1420: x_msg_count := l_msg_count;
1421: x_msg_data := l_msg_data;
1419: x_return_status := l_return_status;
1420: x_msg_count := l_msg_count;
1421: x_msg_data := l_msg_data;
1422:
1423: IF (l_return_status = fnd_api.g_ret_sts_success)
1424: THEN
1425: x_return_status := fnd_api.g_ret_sts_success;
1426: --Bug: 3559328: Performance bug fix. The fnd API to clear is
1427: --already called in the private API. Since this is just a wrapper,
1421: x_msg_data := l_msg_data;
1422:
1423: IF (l_return_status = fnd_api.g_ret_sts_success)
1424: THEN
1425: x_return_status := fnd_api.g_ret_sts_success;
1426: --Bug: 3559328: Performance bug fix. The fnd API to clear is
1427: --already called in the private API. Since this is just a wrapper,
1428: --we do not need to call it here as it would alreday have been cleared
1429: --FND_MESSAGE.clear;
1422:
1423: IF (l_return_status = fnd_api.g_ret_sts_success)
1424: THEN
1425: x_return_status := fnd_api.g_ret_sts_success;
1426: --Bug: 3559328: Performance bug fix. The fnd API to clear is
1427: --already called in the private API. Since this is just a wrapper,
1428: --we do not need to call it here as it would alreday have been cleared
1429: --FND_MESSAGE.clear;
1430: END IF;
1442: , 1
1443: );
1444: END IF;
1445:
1446: x_return_status := fnd_api.g_ret_sts_error;
1447: fnd_message.CLEAR;
1448: END validate_group;
1449:
1450: /******* LINE VALIDATION OBJECTS ***************/
1517: *
1518: ******************************************************************/
1519: PROCEDURE validate_lines (
1520: p_header_id NUMBER
1521: , p_commit VARCHAR2 := fnd_api.g_false
1522: , p_validation_level NUMBER := fnd_api.g_valid_level_full
1523: , x_return_status OUT NOCOPY VARCHAR2
1524: , x_msg_count OUT NOCOPY NUMBER
1525: , x_msg_data OUT NOCOPY VARCHAR2
1518: ******************************************************************/
1519: PROCEDURE validate_lines (
1520: p_header_id NUMBER
1521: , p_commit VARCHAR2 := fnd_api.g_false
1522: , p_validation_level NUMBER := fnd_api.g_valid_level_full
1523: , x_return_status OUT NOCOPY VARCHAR2
1524: , x_msg_count OUT NOCOPY NUMBER
1525: , x_msg_data OUT NOCOPY VARCHAR2
1526: , p_userid NUMBER
1636: END IF;
1637: END;
1638: END LOOP;
1639:
1640: x_return_status := fnd_api.g_ret_sts_success;
1641: EXCEPTION
1642: WHEN OTHERS
1643: THEN
1644: IF (l_debug = 1)
1649: , 1
1650: );
1651: END IF;
1652:
1653: x_return_status := fnd_api.g_ret_sts_error;
1654: END validate_lines;
1655:
1656: /******************************************************************
1657: *
1660: *
1661: ******************************************************************/
1662: PROCEDURE validate_lines (
1663: p_line_rec_type line_rec_type
1664: , p_commit VARCHAR2 := fnd_api.g_false
1665: , p_validation_level NUMBER := fnd_api.g_valid_level_full
1666: , p_error_flag OUT NOCOPY VARCHAR2
1667: , p_userid NUMBER
1668: , p_loginid NUMBER
1661: ******************************************************************/
1662: PROCEDURE validate_lines (
1663: p_line_rec_type line_rec_type
1664: , p_commit VARCHAR2 := fnd_api.g_false
1665: , p_validation_level NUMBER := fnd_api.g_valid_level_full
1666: , p_error_flag OUT NOCOPY VARCHAR2
1667: , p_userid NUMBER
1668: , p_loginid NUMBER
1669: , p_applid NUMBER
1893: *
1894: ******************************************************************/
1895: FUNCTION process_transactions (
1896: p_api_version IN NUMBER
1897: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1898: , p_commit IN VARCHAR2 := fnd_api.g_false
1899: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1900: , x_return_status OUT NOCOPY VARCHAR2
1901: , x_msg_count OUT NOCOPY NUMBER
1894: ******************************************************************/
1895: FUNCTION process_transactions (
1896: p_api_version IN NUMBER
1897: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1898: , p_commit IN VARCHAR2 := fnd_api.g_false
1899: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1900: , x_return_status OUT NOCOPY VARCHAR2
1901: , x_msg_count OUT NOCOPY NUMBER
1902: , x_msg_data OUT NOCOPY VARCHAR2
1895: FUNCTION process_transactions (
1896: p_api_version IN NUMBER
1897: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1898: , p_commit IN VARCHAR2 := fnd_api.g_false
1899: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1900: , x_return_status OUT NOCOPY VARCHAR2
1901: , x_msg_count OUT NOCOPY NUMBER
1902: , x_msg_data OUT NOCOPY VARCHAR2
1903: , x_trans_count OUT NOCOPY NUMBER
2227: END IF;
2228:
2229: /* FND_MESSAGE.SET_NAME('INV', 'BAD_INPUT_ARGUMENTS');
2230: FND_MSG_PUB.ADD;
2231: RAISE FND_API.G_EXC_ERROR; */
2232:
2233: /*----------------------------------------------------------+
2234: | retrieving information
2235: +----------------------------------------------------------*/
2253: l_userid := 1068;
2254: l_progid := 32321;
2255: l_reqstid := null;
2256: l_applid := 401;*/
2257: x_return_status := fnd_api.g_ret_sts_error;
2258: x_msg_count := 0;
2259: x_msg_data := '';
2260: x_trans_count := 0;
2261:
2268: -- Bug 3686000: The savepoint to be established only when the caller calls
2269: -- this API with p_commit as false. Otherwise, during an exception, we
2270: -- will not find the save point as we would have committed if p_commit
2271: -- has been set to true in downstream processing.
2272: IF NOT fnd_api.to_boolean (p_commit)
2273: THEN
2274: SAVEPOINT process_transactions_svpt;
2275: END IF;
2276:
2391: x_trans_count := l_totrows;
2392:
2393: IF (l_totrows = 0)
2394: THEN
2395: IF fnd_api.to_boolean (p_commit)
2396: THEN
2397: COMMIT WORK;
2398: END IF;
2399:
2455: wip_constants.dmf_patchset_j_value
2456: )
2457: THEN
2458: wip_mtltempproc_grp.processtemp
2459: (p_initmsglist => fnd_api.g_false
2460: , p_processinv => fnd_api.g_true
2461: , -- call INV TM after WIP logic
2462: p_txnhdrid => l_header_id
2463: , x_returnstatus => l_return_status
2456: )
2457: THEN
2458: wip_mtltempproc_grp.processtemp
2459: (p_initmsglist => fnd_api.g_false
2460: , p_processinv => fnd_api.g_true
2461: , -- call INV TM after WIP logic
2462: p_txnhdrid => l_header_id
2463: , x_returnstatus => l_return_status
2464: , x_errormsg => l_msg_data
2463: , x_returnstatus => l_return_status
2464: , x_errormsg => l_msg_data
2465: );
2466:
2467: IF (l_return_status <> fnd_api.g_ret_sts_success)
2468: THEN
2469: IF (l_debug = 1)
2470: THEN
2471: inv_log_util.TRACE ('Failure from MMTT:WIP processTemp!!'
2481: inv_lpn_trx_pub.process_lpn_trx (p_trx_hdr_id => l_header_id
2482: , p_commit => p_commit
2483: , x_proc_msg => l_msg_data
2484: , p_proc_mode => 1
2485: , p_process_trx => fnd_api.g_true
2486: , p_atomic => fnd_api.g_false
2487: );
2488: END IF;
2489:
2482: , p_commit => p_commit
2483: , x_proc_msg => l_msg_data
2484: , p_proc_mode => 1
2485: , p_process_trx => fnd_api.g_true
2486: , p_atomic => fnd_api.g_false
2487: );
2488: END IF;
2489:
2490: IF (l_result <> 0)
2504: x_return_status := l_return_status;
2505:
2506: /* No need to update MMTT after returning from process_lpn_trx as this has already
2507: been done within the Java code. - Bug 2284667 */
2508: IF fnd_api.to_boolean (p_commit)
2509: THEN
2510: COMMIT WORK;
2511: END IF;
2512:
2531: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2532: END IF;
2533: END IF;
2534:
2535: IF fnd_api.to_boolean (p_commit)
2536: THEN
2537: COMMIT WORK;
2538: END IF;
2539:
2721: AND TRANSACTION_HEADER_ID = l_header_id;
2722: END IF; */
2723: l_initotrows := SQL%ROWCOUNT;
2724:
2725: IF fnd_api.to_boolean (p_commit)
2726: THEN
2727: COMMIT WORK;
2728: END IF;
2729:
2806: END IF;
2807: gme_api_grp.gme_pre_process_txns
2808: ( p_header_id => l_header_id,
2809: x_return_status => l_ret_sts_pre) ;
2810: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success) THEN
2811: IF (l_debug = 1) THEN
2812: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2813: END IF;
2814:
2811: IF (l_debug = 1) THEN
2812: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2813: END IF;
2814:
2815: IF FND_API.To_Boolean( p_commit ) then
2816: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2817: END IF;
2818:
2819: --check if all records have been failed by the wip API.
2824: AND PROCESS_FLAG = 1
2825: AND ROWNUM < 2;
2826: EXCEPTION
2827: WHEN NO_DATA_FOUND THEN
2828: x_return_status := FND_API.G_RET_STS_ERROR;
2829: x_msg_data := 'All records failed by gme_api_grp.gme_pre_process_txns';
2830: RETURN -1;
2831: END;
2832: ELSE
2832: ELSE
2833: IF (l_debug = 1) THEN
2834: inv_log_util.trace('Failure from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2835: END IF;
2836: RAISE fnd_api.g_exc_unexpected_error;
2837: END IF;--check for success
2838: ELSE/*l_wip_entity_type = 10 */
2839:
2840: wip_mti_pub.preinvwipprocessing (p_txnheaderid => l_header_id
2840: wip_mti_pub.preinvwipprocessing (p_txnheaderid => l_header_id
2841: , x_returnstatus => l_ret_sts_pre
2842: );
2843:
2844: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success)
2845: THEN
2846: IF (l_debug = 1)
2847: THEN
2848: inv_log_util.TRACE ('Success from:!!preInvWIPProcessing'
2850: , 1
2851: );
2852: END IF;
2853:
2854: IF fnd_api.to_boolean (p_commit)
2855: THEN
2856: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2857: END IF;
2858:
2866: AND ROWNUM < 2;
2867: EXCEPTION
2868: WHEN NO_DATA_FOUND
2869: THEN
2870: x_return_status := fnd_api.g_ret_sts_error;
2871: x_msg_data := 'All records failed by preInvWipProcessing';
2872: RETURN -1;
2873: END;
2874: ELSE
2879: , 1
2880: );
2881: END IF;
2882:
2883: RAISE fnd_api.g_exc_unexpected_error;
2884: END IF; --check for success
2885: END IF;--for l_wip_entity_type Pawan added for gme-convergence changes.
2886: ELSE
2887: IF (inv_txn_manager_grp.gi_flow_schedule <> 0)
2898: , l_userid
2899: , l_loginid
2900: );
2901:
2902: IF x_return_status = fnd_api.g_ret_sts_error
2903: THEN
2904: IF (l_debug = 1)
2905: THEN
2906: inv_log_util.TRACE ( 'Unexpected Error in Validate Group : '
2909: , 9
2910: );
2911: END IF;
2912:
2913: RAISE fnd_api.g_exc_unexpected_error;
2914: END IF;
2915:
2916: /** Moved to after Validate_lines loop J-dev*/
2917: /******* Group Validation for WIP records *******************/
2922: p_txnHeaderID => l_header_id,
2923: x_returnStatus => x_return_status
2924: );
2925: END IF;*/
2926: IF fnd_api.to_boolean (p_commit)
2927: THEN
2928: COMMIT WORK; /* Commit after group validating all MTI records */
2929: END IF;
2930:
3032: , x_validation_status => l_validation_status
3033: , p_parent_id => l_line_rec_type.parent_id
3034: );
3035:
3036: IF (x_return_status <> fnd_api.g_ret_sts_success)
3037: THEN
3038: -- Fetch all the error messages from the stack and log them.
3039: -- Update the MTI with last error message only, since the error messages can be redundant.
3040: FOR i IN 1 .. x_msg_count
3077: , x_validation_status => l_validation_status
3078: , p_parent_id => l_line_rec_type.parent_id
3079: );
3080:
3081: IF (x_return_status <> fnd_api.g_ret_sts_success)
3082: THEN
3083: -- Fetch all the error messages from the stack and log them.
3084: -- Update the MTI with last error message only, since the error messages can be redundant.
3085: FOR i IN 1 .. x_msg_count
3124: , x_validation_status => l_validation_status
3125: , p_parent_id => l_line_rec_type.parent_id
3126: );
3127:
3128: IF (x_return_status <> fnd_api.g_ret_sts_success)
3129: THEN
3130: -- Fetch all the error messages from the stack and log them.
3131: -- Update the MTI with last error message only, since the error messages can be redundant.
3132: FOR i IN 1 .. x_msg_count
3366:
3367: --Bug 6454464, we should not call available qty validation for CMRO job type
3368: inv_reservation_pvt.get_wip_entity_type
3369: ( p_api_version_number => 1.0
3370: , p_init_msg_lst => fnd_api.g_false
3371: , x_return_status => l_return_status
3372: , x_msg_count => l_msg_count
3373: , x_msg_data => l_msg_data
3374: , p_organization_id => null
3380: , x_wip_entity_type => l_rsv_wip_entity_type
3381: , x_wip_job_type => l_rsv_wip_job_type
3382: );
3383:
3384: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3385: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3387: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3388: END IF;
3382: );
3383:
3384: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3385: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3387: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3388: END IF;
3389:
3390: IF (l_debug = 1) THEN
3465:
3466:
3467: INV_QUANTITY_TREE_PVT.create_tree
3468: ( p_api_version_number => 1.0
3469: , p_init_msg_lst => fnd_api.g_false
3470: , x_return_status => l_return_status
3471: , x_msg_count => l_msg_count
3472: , x_msg_data => l_msg_data
3473: , p_organization_id => l_org_id
3493: ELSE
3494:
3495: INV_QUANTITY_TREE_PVT.create_tree
3496: ( p_api_version_number => 1.0
3497: , p_init_msg_lst => fnd_api.g_false
3498: , x_return_status => l_return_status
3499: , x_msg_count => l_msg_count
3500: , x_msg_data => l_msg_data
3501: , p_organization_id => l_org_id
3522: IF (l_debug = 1) THEN
3523: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3524: END IF;
3525:
3526: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3527: IF (l_debug = 1) THEN
3528: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3529: END IF;
3530: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
3568:
3569: IF ( NOT l_current_batch_failed) THEN --100
3570: INV_QUANTITY_TREE_PVT.query_tree
3571: ( p_api_version_number => 1.0
3572: , p_init_msg_lst => fnd_api.g_false
3573: , x_return_status => l_return_status
3574: , x_msg_count => l_msg_count
3575: , x_msg_data => l_msg_data
3576: , p_tree_id => l_tree_id
3587: , x_att => l_att
3588: , x_atr => l_atr
3589: );
3590:
3591: IF l_return_status = fnd_api.g_ret_sts_error THEN
3592: IF (l_debug = 1) THEN
3593: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3594: END IF;
3595:
3628: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3629:
3630: END IF ;
3631:
3632: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: IF (l_debug = 1) THEN
3634: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3635: END IF;
3636:
3766:
3767: IF (NOT l_current_batch_failed ) THEN --200
3768: INV_QUANTITY_TREE_PVT.query_tree
3769: ( p_api_version_number => 1.0
3770: , p_init_msg_lst => fnd_api.g_false
3771: , x_return_status => l_return_status
3772: , x_msg_count => l_msg_count
3773: , x_msg_data => l_msg_data
3774: , p_tree_id => l_tree_id
3784: , x_att => l_item_att
3785: , x_atr => l_item_atr
3786: );
3787:
3788: IF l_return_status = fnd_api.g_ret_sts_error THEN
3789: IF (l_debug = 1) THEN
3790: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3791: END IF;
3792:
3824: l_current_batch_failed := TRUE;--Bug#5075521
3825: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3826: END IF ;
3827:
3828: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3829: IF (l_debug = 1) THEN
3830: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3831: END IF;
3832:
3971: IF ( NOT l_current_batch_failed ) THEN --300
3972: IF (l_actid in (2,28)) then
3973: inv_quantity_tree_pub.update_quantities
3974: (p_api_version_number => 1.0,
3975: p_init_msg_lst => fnd_api.g_false,
3976: x_return_status => l_return_status,
3977: x_msg_count => l_msg_count,
3978: x_msg_data => l_msg_data,
3979: p_organization_id => l_org_id,
3999: x_att => l_att,
4000: x_atr => l_atr);
4001:
4002:
4003: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4004: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4005: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4006: l_error_code:= fnd_message.get;
4007: l_error_exp :=l_msg_data;
4041: sign is derived from transaction_quantity */
4042:
4043: inv_quantity_tree_pub.update_quantities
4044: (p_api_version_number => 1.0,
4045: p_init_msg_lst => fnd_api.g_false,
4046: x_return_status => l_return_status,
4047: x_msg_count => l_msg_count,
4048: x_msg_data => l_msg_data,
4049: p_organization_id => l_org_id,
4068: x_qs => l_qs,
4069: x_att => l_att,
4070: x_atr => l_atr);
4071:
4072: IF l_return_status <> fnd_api.g_ret_sts_success THEN
4073: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
4074: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
4075: l_error_code:= fnd_message.get;
4076: l_error_exp :=l_msg_data;
4266: /*Bug:5209598. Freeing the Tree created for reservation checks.*/
4267: IF (l_tree_id IS NOT NULL) THEN
4268: INV_QUANTITY_TREE_PVT.free_tree
4269: ( p_api_version_number => 1.0
4270: , p_init_msg_lst => fnd_api.g_false
4271: , x_return_status => l_return_status
4272: , x_msg_count => l_msg_count
4273: , x_msg_data => l_msg_data
4274: , p_tree_id => l_tree_id );
4305: AND mti2.process_flag = 3
4306: AND mti2.ERROR_CODE IS NOT NULL);
4307: */
4308: -- group error changes.
4309: IF fnd_api.to_boolean (p_commit)
4310: THEN
4311: COMMIT WORK; /* Commit after LineValidation all MTI records */
4312: END IF;
4313:
4321: AND ROWNUM < 2;
4322: EXCEPTION
4323: WHEN NO_DATA_FOUND
4324: THEN
4325: x_return_status := fnd_api.g_ret_sts_error;
4326: x_msg_data := 'All records failed after line validation';
4327:
4328: IF (l_debug = 1)
4329: THEN
4346: wip_mti_pub.postinvwipvalidation (p_txnheaderid => l_header_id
4347: , x_returnstatus => x_return_status
4348: );
4349:
4350: IF (x_return_status = fnd_api.g_ret_sts_success)
4351: THEN
4352: IF (l_debug = 1)
4353: THEN
4354: inv_log_util.TRACE ('Success from:!!postInvWIPValid'
4388: AND mti2.process_flag = 3
4389: AND mti2.ERROR_CODE IS NOT NULL);
4390: */
4391: --group error changes.
4392: IF fnd_api.to_boolean (p_commit)
4393: THEN
4394: COMMIT WORK; /* Commit after PostInvWip all MTI records */
4395: END IF;
4396:
4404: AND ROWNUM < 2;
4405: EXCEPTION
4406: WHEN NO_DATA_FOUND
4407: THEN
4408: x_return_status := fnd_api.g_ret_sts_error;
4409:
4410: /* Bug 3656824
4411: Replaced the hard coded message with the last message in the error stack from WIP validation*/
4412: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4420: , 1
4421: );
4422: END IF;
4423:
4424: RAISE fnd_api.g_exc_unexpected_error;
4425: END IF; --check for success
4426: END IF; --l_srctypeid = 5
4427:
4428: -- ADD tmp Insert here. In case of an error raise an exception.
4454: END IF;
4455:
4456: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4457: l_error_code := fnd_message.get;
4458: RAISE fnd_api.g_exc_unexpected_error;
4459: ELSE
4460: BEGIN
4461: IF(l_debug = 1) THEN
4462: inv_log_util.TRACE ( 'Calling tmpinsert2'
4483: , 9
4484: );
4485: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4486: l_error_code := fnd_message.get;
4487: RAISE fnd_api.g_exc_unexpected_error;
4488: END;
4489:
4490: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4491: l_validation_status <> 'Y') THEN
4486: l_error_code := fnd_message.get;
4487: RAISE fnd_api.g_exc_unexpected_error;
4488: END;
4489:
4490: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4491: l_validation_status <> 'Y') THEN
4492: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4493: , 'INV_TXN_MANAGER_PUB'
4494: , 9
4492: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4493: , 'INV_TXN_MANAGER_PUB'
4494: , 9
4495: );
4496: RAISE fnd_api.g_exc_error;
4497: END IF;
4498: END IF;
4499:
4500: /*Bug:5276191.Start of code changes. */
4511: AND organization_id = p_mmtt.organization_id;
4512: EXCEPTION
4513: WHEN OTHERS THEN
4514: inv_log_util.TRACE ('Exception in getting serial control code'||Sqlerrm,'INV_TXN_MANAGER_PUB ', 9);
4515: RAISE fnd_api.g_exc_unexpected_error;
4516: END;
4517:
4518: IF (l_serial_control IN (2,5)) THEN
4519:
4527: WHEN OTHERS THEN
4528: IF (l_debug = 1) THEN
4529: inv_log_util.TRACE ('exception in getting from project: ' || Sqlerrm, 'INV_TXN_MANAGER_PUB', 9);
4530: END IF;
4531: RAISE fnd_api.g_exc_unexpected_error;
4532: END;
4533: END IF;
4534:
4535: inv_cost_group_update.cost_group_update
4543: x_return_status => x_return_status,
4544: x_msg_count => x_msg_count,
4545: x_msg_data => x_msg_data);
4546:
4547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4548: l_error_exp := x_msg_data;
4549: RAISE fnd_api.g_exc_error;
4550: END IF;
4551:
4545: x_msg_data => x_msg_data);
4546:
4547: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4548: l_error_exp := x_msg_data;
4549: RAISE fnd_api.g_exc_error;
4550: END IF;
4551:
4552: END IF; --l_serial_control_code <>1
4553: END IF;--action_id in (40,42)
4557:
4558:
4559:
4560: --- End J dev
4561: IF fnd_api.to_boolean (p_commit)
4562: THEN
4563: COMMIT WORK; /* Commit after validating all MTI records */
4564: END IF;
4565:
4634:
4635: RETURN -1;
4636: END IF;
4637:
4638: IF fnd_api.to_boolean (p_commit)
4639: THEN
4640: COMMIT WORK;
4641: ELSE
4642: SAVEPOINT process_trx_save;
4653: wip_constants.dmf_patchset_j_value
4654: )
4655: THEN
4656: wip_mtltempproc_grp.processtemp
4657: (p_initmsglist => fnd_api.g_false
4658: , p_processinv => fnd_api.g_true
4659: , -- call INV TM after WIP logic
4660: p_txnhdrid => l_header_id
4661: , x_returnstatus => l_return_status
4654: )
4655: THEN
4656: wip_mtltempproc_grp.processtemp
4657: (p_initmsglist => fnd_api.g_false
4658: , p_processinv => fnd_api.g_true
4659: , -- call INV TM after WIP logic
4660: p_txnhdrid => l_header_id
4661: , x_returnstatus => l_return_status
4662: , x_errormsg => l_msg_data
4661: , x_returnstatus => l_return_status
4662: , x_errormsg => l_msg_data
4663: );
4664:
4665: IF (l_return_status <> fnd_api.g_ret_sts_success)
4666: THEN
4667: IF (l_debug = 1)
4668: THEN
4669: inv_log_util.TRACE ('Failure from WIP processTemp!!'
4681: inv_lpn_trx_pub.process_lpn_trx (p_trx_hdr_id => l_header_id
4682: , p_commit => p_commit
4683: , x_proc_msg => l_msg_data
4684: , p_proc_mode => 1
4685: , p_process_trx => fnd_api.g_true
4686: , p_atomic => fnd_api.g_false
4687: );
4688:
4689:
4682: , p_commit => p_commit
4683: , x_proc_msg => l_msg_data
4684: , p_proc_mode => 1
4685: , p_process_trx => fnd_api.g_true
4686: , p_atomic => fnd_api.g_false
4687: );
4688:
4689:
4690: END IF;
4741: END IF;
4742:
4743: -- End of change for bug 5748351
4744:
4745: IF fnd_api.to_boolean (p_commit)
4746: THEN
4747: COMMIT WORK;
4748: END IF;
4749:
4757: , 9
4758: );
4759: END IF;
4760:
4761: IF fnd_api.to_boolean (p_commit)
4762: THEN
4763: COMMIT WORK;
4764: END IF;
4765:
4899:
4900: fnd_message.set_name ('INV', 'INV_INT_SQLCODE');
4901: l_error_code := fnd_message.get;
4902:
4903: IF NOT fnd_api.to_boolean (p_commit)
4904: THEN
4905: ROLLBACK TO process_transactions_svpt;
4906: ELSE
4907: ROLLBACK WORK;
4917: , ERROR_CODE = SUBSTRB (l_error_code, 1, 240)
4918: , error_explanation = SUBSTRB (l_error_exp, 1, 240)
4919: WHERE transaction_header_id = l_header_id AND process_flag = 1;
4920:
4921: IF fnd_api.to_boolean (p_commit)
4922: THEN
4923: COMMIT WORK;
4924: END IF;
4925:
5396:
5397: l_progress_indicator := '70';
5398: inv_quantity_tree_pvt.create_tree (
5399: p_api_version_number => 1.0
5400: , p_init_msg_lst => fnd_api.g_false
5401: , x_return_status => l_return_status
5402: , x_msg_count => l_msg_count
5403: , x_msg_data => l_msg_data
5404: , p_organization_id => l_org_id
5431: , p_pick_release => 0
5432: --g_pick_release_no
5433: );
5434:
5435: IF l_return_status = fnd_api.g_ret_sts_error THEN
5436: inv_log_util.TRACE
5437: ( 'Error while creating tree : x_msg_data = '
5438: || l_msg_data
5439: , l_procedure_name
5442: fnd_message.set_name ('INV', 'INV_ERR_CREATETREE');
5443: fnd_message.set_token ('ROUTINE', 'UE:AVAIL_TO_TRX');
5444: l_error_code := fnd_message.get;
5445: l_error_exp := l_msg_data;
5446: RAISE fnd_api.g_exc_error;
5447: END IF;
5448:
5449: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5450: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5445: l_error_exp := l_msg_data;
5446: RAISE fnd_api.g_exc_error;
5447: END IF;
5448:
5449: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5450: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5451: || l_msg_data
5452: , l_procedure_name
5453: , 9
5452: , l_procedure_name
5453: , 9
5454: );
5455: l_error_exp := l_msg_data;
5456: RAISE fnd_api.g_exc_unexpected_error;
5457: END IF;
5458:
5459: l_progress_indicator := '80';
5460: g_tree_id := l_tree_id;
5479:
5480: l_progress_indicator := '100';
5481: inv_quantity_tree_pvt.query_tree
5482: (p_api_version_number => 1.0
5483: , p_init_msg_lst => fnd_api.g_false
5484: , x_return_status => l_return_status
5485: , x_msg_count => l_msg_count
5486: , x_msg_data => l_msg_data
5487: , p_tree_id => l_tree_id
5498: , x_att => l_att
5499: , x_atr => l_atr
5500: );
5501:
5502: IF l_return_status = fnd_api.g_ret_sts_error THEN
5503: inv_log_util.TRACE ( 'Expected Error while querying tree : '
5504: || l_msg_data
5505: , l_procedure_name
5506: , 9
5508: l_error_code := fnd_message.get;
5509: l_error_exp := l_msg_data;
5510: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5511: fnd_message.set_token ('token1', 'XACT_QTY1');
5512: RAISE fnd_api.g_exc_error;
5513: END IF;
5514:
5515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5511: fnd_message.set_token ('token1', 'XACT_QTY1');
5512: RAISE fnd_api.g_exc_error;
5513: END IF;
5514:
5515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5517: || l_msg_data
5518: , l_procedure_name
5519: , 9
5521: l_error_code := fnd_message.get;
5522: l_error_exp := l_msg_data;
5523: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5524: fnd_message.set_token ('token1', 'XACT_QTY1');
5525: RAISE fnd_api.g_exc_unexpected_error;
5526: END IF;
5527:
5528: l_progress_indicator := '110';
5529: IF (l_debug = 1) THEN
5564: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
5565: l_error_code := fnd_message.get;
5566: fnd_message.set_name ('INV', 'INV_QTY_LESS_OR_EQUAL');
5567: l_error_exp := fnd_message.get;
5568: RAISE fnd_api.g_exc_error;
5569: END IF;
5570: END IF;
5571:
5572: l_progress_indicator := '140';
5571:
5572: l_progress_indicator := '140';
5573: inv_quantity_tree_pvt.query_tree
5574: (p_api_version_number => 1.0
5575: , p_init_msg_lst => fnd_api.g_false
5576: , x_return_status => l_return_status
5577: , x_msg_count => l_msg_count
5578: , x_msg_data => l_msg_data
5579: , p_tree_id => l_tree_id
5589: , x_att => l_item_att
5590: , x_atr => l_item_atr
5591: );
5592:
5593: IF l_return_status = fnd_api.g_ret_sts_error THEN
5594: inv_log_util.TRACE
5595: ( 'Expected Error while querying tree : '
5596: || l_msg_data
5597: , l_procedure_name
5600: l_error_code := fnd_message.get;
5601: l_error_exp := l_msg_data;
5602: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5603: fnd_message.set_token ('token1', 'XACT_QTY1');
5604: RAISE fnd_api.g_exc_error;
5605: END IF;
5606:
5607: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5608: inv_log_util.TRACE
5603: fnd_message.set_token ('token1', 'XACT_QTY1');
5604: RAISE fnd_api.g_exc_error;
5605: END IF;
5606:
5607: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5608: inv_log_util.TRACE
5609: ( 'UnExpected Error while querying tree : '
5610: || l_msg_data
5611: , l_procedure_name
5615: l_error_code := fnd_message.get;
5616: l_error_exp := l_msg_data;
5617: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5618: fnd_message.set_token ('token1', 'XACT_QTY1');
5619: RAISE fnd_api.g_exc_unexpected_error;
5620: END IF;
5621:
5622: l_progress_indicator := '150';
5623: IF (l_debug = 1) THEN
5694: l_error_code := FND_MESSAGE.get;
5695: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
5696: FND_MSG_PUB.add;
5697: l_error_exp := FND_MESSAGE.get;
5698: RAISE fnd_api.g_exc_error;
5699: END IF;
5700:
5701: /*
5702: * The following immediate code is commented inorder to immitate the
5724: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
5725: l_error_code := fnd_message.get;
5726: fnd_message.set_name ('INV', 'INV_ORG_QUANTITY');
5727: l_error_exp := fnd_message.get;
5728: RAISE fnd_api.g_exc_error;
5729: END IF;*/
5730: END IF;
5731: END IF;
5732: ELSE --if (neg_inv_rcpt = 1)
5736: fnd_message.set_name ('INV', 'INV_LESS_OR_EQUAL');
5737: fnd_message.set_token ('ENTITY1', 'INV_QUANTITY');
5738: fnd_message.set_token ('ENTITY2', 'AVAIL_TO_TRANSACT');
5739: l_error_exp := fnd_message.get;
5740: RAISE fnd_api.g_exc_error;
5741: --exit;
5742: END IF; -- neg_inv_rcpt
5743: END IF; -- l_att
5744: /* End of changes for Bug 3462946 */
5750:
5751: IF (tree_exists) THEN
5752: l_progress_indicator := '200';
5753: inv_quantity_tree_pvt.free_all (p_api_version_number => 1.0
5754: , p_init_msg_lst => fnd_api.g_false
5755: , x_return_status => l_return_status
5756: , x_msg_count => l_msg_count
5757: , x_msg_data => l_msg_data
5758: );
5977: l_progress_indicator := '50';
5978: -- call get_wip_entity API
5979: inv_reservation_pvt.get_wip_entity_type
5980: ( p_api_version_number => 1.0
5981: , p_init_msg_lst => fnd_api.g_false
5982: , x_return_status => l_return_status
5983: , x_msg_count => l_msg_count
5984: , x_msg_data => l_msg_data
5985: , p_organization_id => null
5991: , x_wip_entity_type => l_wip_entity_type
5992: , x_wip_job_type => l_wip_job_type
5993: );
5994:
5995: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5996: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5997: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5998: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5999: END IF;
5993: );
5994:
5995: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5996: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5997: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5998: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5999: END IF;
6000:
6001: END IF; -- job_schedule
6007: END IF;
6008:
6009: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
6010: inv_reservation_global.g_wip_source_type_cmro)) THEN
6011: l_src_code := fnd_api.g_miss_char;
6012: END IF;
6013:
6014: --Bug #5086940
6015: --demand_source_name cannot be greater than 30 characters
6013:
6014: --Bug #5086940
6015: --demand_source_name cannot be greater than 30 characters
6016: IF (LENGTH(l_src_code) > 30) THEN
6017: l_src_code := fnd_api.g_miss_char;
6018: END IF;
6019:
6020: IF (l_debug = 1) THEN
6021: inv_log_util.trace('l_src_code is: ' || l_src_code, l_procedure_name, 9);
6212: p_res_sts := l_return_status;
6213: p_res_msg := l_msg_data;
6214: p_res_count := l_msg_count;
6215:
6216: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6217: IF (l_debug = 1) THEN
6218: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6219: , l_procedure_name
6220: , 9
6338:
6339: l_progress_indicator := '1351';
6340: INV_QUANTITY_TREE_PVT.create_tree
6341: ( p_api_version_number => 1.0
6342: , p_init_msg_lst => fnd_api.g_false
6343: , x_return_status => l_return_status
6344: , x_msg_count => l_msg_count
6345: , x_msg_data => l_msg_data
6346: , p_organization_id => l_org_id
6361: , p_exclusive => 0 --g_non_exclusive
6362: , p_pick_release => 0 --g_pick_release_no
6363: ) ;
6364:
6365: IF l_return_status = fnd_api.g_ret_sts_error THEN
6366: IF (l_debug = 1) THEN
6367: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,l_procedure_name, 9);
6368: END IF;
6369: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
6370: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
6371:
6372: l_error_code := FND_MESSAGE.get;
6373: l_error_exp := l_msg_data;
6374: RAISE fnd_api.g_exc_error;
6375: END IF ;
6376:
6377: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6378: IF (l_debug = 1) THEN
6373: l_error_exp := l_msg_data;
6374: RAISE fnd_api.g_exc_error;
6375: END IF ;
6376:
6377: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6378: IF (l_debug = 1) THEN
6379: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6380: END IF;
6381: l_error_exp := l_msg_data;
6378: IF (l_debug = 1) THEN
6379: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6380: END IF;
6381: l_error_exp := l_msg_data;
6382: RAISE fnd_api.g_exc_unexpected_error;
6383: END IF;
6384:
6385: g_interface_id := l_line_rec_type.transaction_interface_id;
6386: tree_exists := TRUE;
6439: , 9
6440: );
6441: END IF;
6442:
6443: RAISE fnd_api.g_exc_error;
6444: END IF;
6445: END IF;
6446: END LOOP;
6447:
6450: IF (tree_exists) THEN
6451: l_progress_indicator := '190';
6452: INV_QUANTITY_TREE_PVT.free_All
6453: ( p_api_version_number => 1.0
6454: , p_init_msg_lst => fnd_api.g_false
6455: , x_return_status => l_return_status
6456: , x_msg_count => l_msg_count
6457: , x_msg_data => l_msg_data);
6458: END IF;