[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
2211: END IF;
2212:
2213: /* FND_MESSAGE.SET_NAME('INV', 'BAD_INPUT_ARGUMENTS');
2214: FND_MSG_PUB.ADD;
2215: RAISE FND_API.G_EXC_ERROR; */
2216:
2217: /*----------------------------------------------------------+
2218: | retrieving information
2219: +----------------------------------------------------------*/
2237: l_userid := 1068;
2238: l_progid := 32321;
2239: l_reqstid := null;
2240: l_applid := 401;*/
2241: x_return_status := fnd_api.g_ret_sts_error;
2242: x_msg_count := 0;
2243: x_msg_data := '';
2244: x_trans_count := 0;
2245:
2252: -- Bug 3686000: The savepoint to be established only when the caller calls
2253: -- this API with p_commit as false. Otherwise, during an exception, we
2254: -- will not find the save point as we would have committed if p_commit
2255: -- has been set to true in downstream processing.
2256: IF NOT fnd_api.to_boolean (p_commit)
2257: THEN
2258: SAVEPOINT process_transactions_svpt;
2259: END IF;
2260:
2375: x_trans_count := l_totrows;
2376:
2377: IF (l_totrows = 0)
2378: THEN
2379: IF fnd_api.to_boolean (p_commit)
2380: THEN
2381: COMMIT WORK;
2382: END IF;
2383:
2439: wip_constants.dmf_patchset_j_value
2440: )
2441: THEN
2442: wip_mtltempproc_grp.processtemp
2443: (p_initmsglist => fnd_api.g_false
2444: , p_processinv => fnd_api.g_true
2445: , -- call INV TM after WIP logic
2446: p_txnhdrid => l_header_id
2447: , x_returnstatus => l_return_status
2440: )
2441: THEN
2442: wip_mtltempproc_grp.processtemp
2443: (p_initmsglist => fnd_api.g_false
2444: , p_processinv => fnd_api.g_true
2445: , -- call INV TM after WIP logic
2446: p_txnhdrid => l_header_id
2447: , x_returnstatus => l_return_status
2448: , x_errormsg => l_msg_data
2447: , x_returnstatus => l_return_status
2448: , x_errormsg => l_msg_data
2449: );
2450:
2451: IF (l_return_status <> fnd_api.g_ret_sts_success)
2452: THEN
2453: IF (l_debug = 1)
2454: THEN
2455: inv_log_util.TRACE ('Failure from MMTT:WIP processTemp!!'
2465: inv_lpn_trx_pub.process_lpn_trx (p_trx_hdr_id => l_header_id
2466: , p_commit => p_commit
2467: , x_proc_msg => l_msg_data
2468: , p_proc_mode => 1
2469: , p_process_trx => fnd_api.g_true
2470: , p_atomic => fnd_api.g_false
2471: );
2472: END IF;
2473:
2466: , p_commit => p_commit
2467: , x_proc_msg => l_msg_data
2468: , p_proc_mode => 1
2469: , p_process_trx => fnd_api.g_true
2470: , p_atomic => fnd_api.g_false
2471: );
2472: END IF;
2473:
2474: IF (l_result <> 0)
2488: x_return_status := l_return_status;
2489:
2490: /* No need to update MMTT after returning from process_lpn_trx as this has already
2491: been done within the Java code. - Bug 2284667 */
2492: IF fnd_api.to_boolean (p_commit)
2493: THEN
2494: COMMIT WORK;
2495: END IF;
2496:
2515: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2516: END IF;
2517: END IF;
2518:
2519: IF fnd_api.to_boolean (p_commit)
2520: THEN
2521: COMMIT WORK;
2522: END IF;
2523:
2677: AND TRANSACTION_HEADER_ID = l_header_id;
2678: END IF; */
2679: l_initotrows := SQL%ROWCOUNT;
2680:
2681: IF fnd_api.to_boolean (p_commit)
2682: THEN
2683: COMMIT WORK;
2684: END IF;
2685:
2762: END IF;
2763: gme_api_grp.gme_pre_process_txns
2764: ( p_header_id => l_header_id,
2765: x_return_status => l_ret_sts_pre) ;
2766: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success) THEN
2767: IF (l_debug = 1) THEN
2768: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2769: END IF;
2770:
2767: IF (l_debug = 1) THEN
2768: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2769: END IF;
2770:
2771: IF FND_API.To_Boolean( p_commit ) then
2772: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2773: END IF;
2774:
2775: --check if all records have been failed by the wip API.
2780: AND PROCESS_FLAG = 1
2781: AND ROWNUM < 2;
2782: EXCEPTION
2783: WHEN NO_DATA_FOUND THEN
2784: x_return_status := FND_API.G_RET_STS_ERROR;
2785: x_msg_data := 'All records failed by gme_api_grp.gme_pre_process_txns';
2786: RETURN -1;
2787: END;
2788: ELSE
2788: ELSE
2789: IF (l_debug = 1) THEN
2790: inv_log_util.trace('Failure from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2791: END IF;
2792: RAISE fnd_api.g_exc_unexpected_error;
2793: END IF;--check for success
2794: ELSE/*l_wip_entity_type = 10 */
2795:
2796: wip_mti_pub.preinvwipprocessing (p_txnheaderid => l_header_id
2796: wip_mti_pub.preinvwipprocessing (p_txnheaderid => l_header_id
2797: , x_returnstatus => l_ret_sts_pre
2798: );
2799:
2800: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success)
2801: THEN
2802: IF (l_debug = 1)
2803: THEN
2804: inv_log_util.TRACE ('Success from:!!preInvWIPProcessing'
2806: , 1
2807: );
2808: END IF;
2809:
2810: IF fnd_api.to_boolean (p_commit)
2811: THEN
2812: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2813: END IF;
2814:
2822: AND ROWNUM < 2;
2823: EXCEPTION
2824: WHEN NO_DATA_FOUND
2825: THEN
2826: x_return_status := fnd_api.g_ret_sts_error;
2827: x_msg_data := 'All records failed by preInvWipProcessing';
2828: RETURN -1;
2829: END;
2830: ELSE
2835: , 1
2836: );
2837: END IF;
2838:
2839: RAISE fnd_api.g_exc_unexpected_error;
2840: END IF; --check for success
2841: END IF;--for l_wip_entity_type Pawan added for gme-convergence changes.
2842: ELSE
2843: IF (inv_txn_manager_grp.gi_flow_schedule <> 0)
2854: , l_userid
2855: , l_loginid
2856: );
2857:
2858: IF x_return_status = fnd_api.g_ret_sts_error
2859: THEN
2860: IF (l_debug = 1)
2861: THEN
2862: inv_log_util.TRACE ( 'Unexpected Error in Validate Group : '
2865: , 9
2866: );
2867: END IF;
2868:
2869: RAISE fnd_api.g_exc_unexpected_error;
2870: END IF;
2871:
2872: /** Moved to after Validate_lines loop J-dev*/
2873: /******* Group Validation for WIP records *******************/
2878: p_txnHeaderID => l_header_id,
2879: x_returnStatus => x_return_status
2880: );
2881: END IF;*/
2882: IF fnd_api.to_boolean (p_commit)
2883: THEN
2884: COMMIT WORK; /* Commit after group validating all MTI records */
2885: END IF;
2886:
2988: , x_validation_status => l_validation_status
2989: , p_parent_id => l_line_rec_type.parent_id
2990: );
2991:
2992: IF (x_return_status <> fnd_api.g_ret_sts_success)
2993: THEN
2994: -- Fetch all the error messages from the stack and log them.
2995: -- Update the MTI with last error message only, since the error messages can be redundant.
2996: FOR i IN 1 .. x_msg_count
3033: , x_validation_status => l_validation_status
3034: , p_parent_id => l_line_rec_type.parent_id
3035: );
3036:
3037: IF (x_return_status <> fnd_api.g_ret_sts_success)
3038: THEN
3039: -- Fetch all the error messages from the stack and log them.
3040: -- Update the MTI with last error message only, since the error messages can be redundant.
3041: FOR i IN 1 .. x_msg_count
3080: , x_validation_status => l_validation_status
3081: , p_parent_id => l_line_rec_type.parent_id
3082: );
3083:
3084: IF (x_return_status <> fnd_api.g_ret_sts_success)
3085: THEN
3086: -- Fetch all the error messages from the stack and log them.
3087: -- Update the MTI with last error message only, since the error messages can be redundant.
3088: FOR i IN 1 .. x_msg_count
3247:
3248: --Bug 6454464, we should not call available qty validation for CMRO job type
3249: inv_reservation_pvt.get_wip_entity_type
3250: ( p_api_version_number => 1.0
3251: , p_init_msg_lst => fnd_api.g_false
3252: , x_return_status => l_return_status
3253: , x_msg_count => l_msg_count
3254: , x_msg_data => l_msg_data
3255: , p_organization_id => null
3261: , x_wip_entity_type => l_rsv_wip_entity_type
3262: , x_wip_job_type => l_rsv_wip_job_type
3263: );
3264:
3265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3266: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3267: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3268: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3269: END IF;
3263: );
3264:
3265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3266: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3267: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3268: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3269: END IF;
3270:
3271: IF (l_debug = 1) THEN
3346:
3347:
3348: INV_QUANTITY_TREE_PVT.create_tree
3349: ( p_api_version_number => 1.0
3350: , p_init_msg_lst => fnd_api.g_false
3351: , x_return_status => l_return_status
3352: , x_msg_count => l_msg_count
3353: , x_msg_data => l_msg_data
3354: , p_organization_id => l_org_id
3374: ELSE
3375:
3376: INV_QUANTITY_TREE_PVT.create_tree
3377: ( p_api_version_number => 1.0
3378: , p_init_msg_lst => fnd_api.g_false
3379: , x_return_status => l_return_status
3380: , x_msg_count => l_msg_count
3381: , x_msg_data => l_msg_data
3382: , p_organization_id => l_org_id
3403: IF (l_debug = 1) THEN
3404: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3405: END IF;
3406:
3407: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3408: IF (l_debug = 1) THEN
3409: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3410: END IF;
3411: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
3449:
3450: IF ( NOT l_current_batch_failed) THEN --100
3451: INV_QUANTITY_TREE_PVT.query_tree
3452: ( p_api_version_number => 1.0
3453: , p_init_msg_lst => fnd_api.g_false
3454: , x_return_status => l_return_status
3455: , x_msg_count => l_msg_count
3456: , x_msg_data => l_msg_data
3457: , p_tree_id => l_tree_id
3468: , x_att => l_att
3469: , x_atr => l_atr
3470: );
3471:
3472: IF l_return_status = fnd_api.g_ret_sts_error THEN
3473: IF (l_debug = 1) THEN
3474: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3475: END IF;
3476:
3509: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3510:
3511: END IF ;
3512:
3513: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3514: IF (l_debug = 1) THEN
3515: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3516: END IF;
3517:
3647:
3648: IF (NOT l_current_batch_failed ) THEN --200
3649: INV_QUANTITY_TREE_PVT.query_tree
3650: ( p_api_version_number => 1.0
3651: , p_init_msg_lst => fnd_api.g_false
3652: , x_return_status => l_return_status
3653: , x_msg_count => l_msg_count
3654: , x_msg_data => l_msg_data
3655: , p_tree_id => l_tree_id
3665: , x_att => l_item_att
3666: , x_atr => l_item_atr
3667: );
3668:
3669: IF l_return_status = fnd_api.g_ret_sts_error THEN
3670: IF (l_debug = 1) THEN
3671: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3672: END IF;
3673:
3705: l_current_batch_failed := TRUE;--Bug#5075521
3706: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3707: END IF ;
3708:
3709: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3710: IF (l_debug = 1) THEN
3711: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3712: END IF;
3713:
3852: IF ( NOT l_current_batch_failed ) THEN --300
3853: IF (l_actid in (2,28)) then
3854: inv_quantity_tree_pub.update_quantities
3855: (p_api_version_number => 1.0,
3856: p_init_msg_lst => fnd_api.g_false,
3857: x_return_status => l_return_status,
3858: x_msg_count => l_msg_count,
3859: x_msg_data => l_msg_data,
3860: p_organization_id => l_org_id,
3880: x_att => l_att,
3881: x_atr => l_atr);
3882:
3883:
3884: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3885: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
3886: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
3887: l_error_code:= fnd_message.get;
3888: l_error_exp :=l_msg_data;
3922: sign is derived from transaction_quantity */
3923:
3924: inv_quantity_tree_pub.update_quantities
3925: (p_api_version_number => 1.0,
3926: p_init_msg_lst => fnd_api.g_false,
3927: x_return_status => l_return_status,
3928: x_msg_count => l_msg_count,
3929: x_msg_data => l_msg_data,
3930: p_organization_id => l_org_id,
3949: x_qs => l_qs,
3950: x_att => l_att,
3951: x_atr => l_atr);
3952:
3953: IF l_return_status <> fnd_api.g_ret_sts_success THEN
3954: FND_MESSAGE.set_name('INV', 'INV_ERR_CREATETREE');
3955: FND_MESSAGE.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.UPDATE_QUANTITIES');
3956: l_error_code:= fnd_message.get;
3957: l_error_exp :=l_msg_data;
4144: /*Bug:5209598. Freeing the Tree created for reservation checks.*/
4145: IF (l_tree_id IS NOT NULL) THEN
4146: INV_QUANTITY_TREE_PVT.free_tree
4147: ( p_api_version_number => 1.0
4148: , p_init_msg_lst => fnd_api.g_false
4149: , x_return_status => l_return_status
4150: , x_msg_count => l_msg_count
4151: , x_msg_data => l_msg_data
4152: , p_tree_id => l_tree_id );
4174: AND mti2.process_flag = 3
4175: AND mti2.ERROR_CODE IS NOT NULL);
4176:
4177: -- group error changes.
4178: IF fnd_api.to_boolean (p_commit)
4179: THEN
4180: COMMIT WORK; /* Commit after LineValidation all MTI records */
4181: END IF;
4182:
4190: AND ROWNUM < 2;
4191: EXCEPTION
4192: WHEN NO_DATA_FOUND
4193: THEN
4194: x_return_status := fnd_api.g_ret_sts_error;
4195: x_msg_data := 'All records failed after line validation';
4196:
4197: IF (l_debug = 1)
4198: THEN
4214: wip_mti_pub.postinvwipvalidation (p_txnheaderid => l_header_id
4215: , x_returnstatus => x_return_status
4216: );
4217:
4218: IF (x_return_status = fnd_api.g_ret_sts_success)
4219: THEN
4220: IF (l_debug = 1)
4221: THEN
4222: inv_log_util.TRACE ('Success from:!!postInvWIPValid'
4247: AND mti2.process_flag = 3
4248: AND mti2.ERROR_CODE IS NOT NULL);
4249:
4250: --group error changes.
4251: IF fnd_api.to_boolean (p_commit)
4252: THEN
4253: COMMIT WORK; /* Commit after PostInvWip all MTI records */
4254: END IF;
4255:
4263: AND ROWNUM < 2;
4264: EXCEPTION
4265: WHEN NO_DATA_FOUND
4266: THEN
4267: x_return_status := fnd_api.g_ret_sts_error;
4268:
4269: /* Bug 3656824
4270: Replaced the hard coded message with the last message in the error stack from WIP validation*/
4271: fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
4279: , 1
4280: );
4281: END IF;
4282:
4283: RAISE fnd_api.g_exc_unexpected_error;
4284: END IF; --check for success
4285: END IF; --l_srctypeid = 5
4286:
4287: -- ADD tmp Insert here. In case of an error raise an exception.
4313: END IF;
4314:
4315: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4316: l_error_code := fnd_message.get;
4317: RAISE fnd_api.g_exc_unexpected_error;
4318: ELSE
4319: BEGIN
4320: IF(l_debug = 1) THEN
4321: inv_log_util.TRACE ( 'Calling tmpinsert2'
4342: , 9
4343: );
4344: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4345: l_error_code := fnd_message.get;
4346: RAISE fnd_api.g_exc_unexpected_error;
4347: END;
4348:
4349: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4350: l_validation_status <> 'Y') THEN
4345: l_error_code := fnd_message.get;
4346: RAISE fnd_api.g_exc_unexpected_error;
4347: END;
4348:
4349: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4350: l_validation_status <> 'Y') THEN
4351: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4352: , 'INV_TXN_MANAGER_PUB'
4353: , 9
4351: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4352: , 'INV_TXN_MANAGER_PUB'
4353: , 9
4354: );
4355: RAISE fnd_api.g_exc_error;
4356: END IF;
4357: END IF;
4358:
4359: /*Bug:5276191.Start of code changes. */
4370: AND organization_id = p_mmtt.organization_id;
4371: EXCEPTION
4372: WHEN OTHERS THEN
4373: inv_log_util.TRACE ('Exception in getting serial control code'||Sqlerrm,'INV_TXN_MANAGER_PUB ', 9);
4374: RAISE fnd_api.g_exc_unexpected_error;
4375: END;
4376:
4377: IF (l_serial_control IN (2,5)) THEN
4378:
4386: WHEN OTHERS THEN
4387: IF (l_debug = 1) THEN
4388: inv_log_util.TRACE ('exception in getting from project: ' || Sqlerrm, 'INV_TXN_MANAGER_PUB', 9);
4389: END IF;
4390: RAISE fnd_api.g_exc_unexpected_error;
4391: END;
4392: END IF;
4393:
4394: inv_cost_group_update.cost_group_update
4402: x_return_status => x_return_status,
4403: x_msg_count => x_msg_count,
4404: x_msg_data => x_msg_data);
4405:
4406: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4407: l_error_exp := x_msg_data;
4408: RAISE fnd_api.g_exc_error;
4409: END IF;
4410:
4404: x_msg_data => x_msg_data);
4405:
4406: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
4407: l_error_exp := x_msg_data;
4408: RAISE fnd_api.g_exc_error;
4409: END IF;
4410:
4411: END IF; --l_serial_control_code <>1
4412: END IF;--action_id in (40,42)
4416:
4417:
4418:
4419: --- End J dev
4420: IF fnd_api.to_boolean (p_commit)
4421: THEN
4422: COMMIT WORK; /* Commit after validating all MTI records */
4423: END IF;
4424:
4493:
4494: RETURN -1;
4495: END IF;
4496:
4497: IF fnd_api.to_boolean (p_commit)
4498: THEN
4499: COMMIT WORK;
4500: ELSE
4501: SAVEPOINT process_trx_save;
4512: wip_constants.dmf_patchset_j_value
4513: )
4514: THEN
4515: wip_mtltempproc_grp.processtemp
4516: (p_initmsglist => fnd_api.g_false
4517: , p_processinv => fnd_api.g_true
4518: , -- call INV TM after WIP logic
4519: p_txnhdrid => l_header_id
4520: , x_returnstatus => l_return_status
4513: )
4514: THEN
4515: wip_mtltempproc_grp.processtemp
4516: (p_initmsglist => fnd_api.g_false
4517: , p_processinv => fnd_api.g_true
4518: , -- call INV TM after WIP logic
4519: p_txnhdrid => l_header_id
4520: , x_returnstatus => l_return_status
4521: , x_errormsg => l_msg_data
4520: , x_returnstatus => l_return_status
4521: , x_errormsg => l_msg_data
4522: );
4523:
4524: IF (l_return_status <> fnd_api.g_ret_sts_success)
4525: THEN
4526: IF (l_debug = 1)
4527: THEN
4528: inv_log_util.TRACE ('Failure from WIP processTemp!!'
4540: inv_lpn_trx_pub.process_lpn_trx (p_trx_hdr_id => l_header_id
4541: , p_commit => p_commit
4542: , x_proc_msg => l_msg_data
4543: , p_proc_mode => 1
4544: , p_process_trx => fnd_api.g_true
4545: , p_atomic => fnd_api.g_false
4546: );
4547:
4548:
4541: , p_commit => p_commit
4542: , x_proc_msg => l_msg_data
4543: , p_proc_mode => 1
4544: , p_process_trx => fnd_api.g_true
4545: , p_atomic => fnd_api.g_false
4546: );
4547:
4548:
4549: END IF;
4600: END IF;
4601:
4602: -- End of change for bug 5748351
4603:
4604: IF fnd_api.to_boolean (p_commit)
4605: THEN
4606: COMMIT WORK;
4607: END IF;
4608:
4616: , 9
4617: );
4618: END IF;
4619:
4620: IF fnd_api.to_boolean (p_commit)
4621: THEN
4622: COMMIT WORK;
4623: END IF;
4624:
4758:
4759: fnd_message.set_name ('INV', 'INV_INT_SQLCODE');
4760: l_error_code := fnd_message.get;
4761:
4762: IF NOT fnd_api.to_boolean (p_commit)
4763: THEN
4764: ROLLBACK TO process_transactions_svpt;
4765: ELSE
4766: ROLLBACK WORK;
4776: , ERROR_CODE = SUBSTRB (l_error_code, 1, 240)
4777: , error_explanation = SUBSTRB (l_error_exp, 1, 240)
4778: WHERE transaction_header_id = l_header_id AND process_flag = 1;
4779:
4780: IF fnd_api.to_boolean (p_commit)
4781: THEN
4782: COMMIT WORK;
4783: END IF;
4784:
5253:
5254: l_progress_indicator := '70';
5255: inv_quantity_tree_pvt.create_tree (
5256: p_api_version_number => 1.0
5257: , p_init_msg_lst => fnd_api.g_false
5258: , x_return_status => l_return_status
5259: , x_msg_count => l_msg_count
5260: , x_msg_data => l_msg_data
5261: , p_organization_id => l_org_id
5288: , p_pick_release => 0
5289: --g_pick_release_no
5290: );
5291:
5292: IF l_return_status = fnd_api.g_ret_sts_error THEN
5293: inv_log_util.TRACE
5294: ( 'Error while creating tree : x_msg_data = '
5295: || l_msg_data
5296: , l_procedure_name
5299: fnd_message.set_name ('INV', 'INV_ERR_CREATETREE');
5300: fnd_message.set_token ('ROUTINE', 'UE:AVAIL_TO_TRX');
5301: l_error_code := fnd_message.get;
5302: l_error_exp := l_msg_data;
5303: RAISE fnd_api.g_exc_error;
5304: END IF;
5305:
5306: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5307: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5302: l_error_exp := l_msg_data;
5303: RAISE fnd_api.g_exc_error;
5304: END IF;
5305:
5306: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5307: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5308: || l_msg_data
5309: , l_procedure_name
5310: , 9
5309: , l_procedure_name
5310: , 9
5311: );
5312: l_error_exp := l_msg_data;
5313: RAISE fnd_api.g_exc_unexpected_error;
5314: END IF;
5315:
5316: l_progress_indicator := '80';
5317: g_tree_id := l_tree_id;
5336:
5337: l_progress_indicator := '100';
5338: inv_quantity_tree_pvt.query_tree
5339: (p_api_version_number => 1.0
5340: , p_init_msg_lst => fnd_api.g_false
5341: , x_return_status => l_return_status
5342: , x_msg_count => l_msg_count
5343: , x_msg_data => l_msg_data
5344: , p_tree_id => l_tree_id
5355: , x_att => l_att
5356: , x_atr => l_atr
5357: );
5358:
5359: IF l_return_status = fnd_api.g_ret_sts_error THEN
5360: inv_log_util.TRACE ( 'Expected Error while querying tree : '
5361: || l_msg_data
5362: , l_procedure_name
5363: , 9
5365: l_error_code := fnd_message.get;
5366: l_error_exp := l_msg_data;
5367: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5368: fnd_message.set_token ('token1', 'XACT_QTY1');
5369: RAISE fnd_api.g_exc_error;
5370: END IF;
5371:
5372: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5373: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5368: fnd_message.set_token ('token1', 'XACT_QTY1');
5369: RAISE fnd_api.g_exc_error;
5370: END IF;
5371:
5372: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5373: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5374: || l_msg_data
5375: , l_procedure_name
5376: , 9
5378: l_error_code := fnd_message.get;
5379: l_error_exp := l_msg_data;
5380: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5381: fnd_message.set_token ('token1', 'XACT_QTY1');
5382: RAISE fnd_api.g_exc_unexpected_error;
5383: END IF;
5384:
5385: l_progress_indicator := '110';
5386: IF (l_debug = 1) THEN
5414: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
5415: l_error_code := fnd_message.get;
5416: fnd_message.set_name ('INV', 'INV_QTY_LESS_OR_EQUAL');
5417: l_error_exp := fnd_message.get;
5418: RAISE fnd_api.g_exc_error;
5419: END IF;
5420:
5421: l_progress_indicator := '140';
5422: inv_quantity_tree_pvt.query_tree
5420:
5421: l_progress_indicator := '140';
5422: inv_quantity_tree_pvt.query_tree
5423: (p_api_version_number => 1.0
5424: , p_init_msg_lst => fnd_api.g_false
5425: , x_return_status => l_return_status
5426: , x_msg_count => l_msg_count
5427: , x_msg_data => l_msg_data
5428: , p_tree_id => l_tree_id
5438: , x_att => l_item_att
5439: , x_atr => l_item_atr
5440: );
5441:
5442: IF l_return_status = fnd_api.g_ret_sts_error THEN
5443: inv_log_util.TRACE
5444: ( 'Expected Error while querying tree : '
5445: || l_msg_data
5446: , l_procedure_name
5449: l_error_code := fnd_message.get;
5450: l_error_exp := l_msg_data;
5451: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5452: fnd_message.set_token ('token1', 'XACT_QTY1');
5453: RAISE fnd_api.g_exc_error;
5454: END IF;
5455:
5456: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5457: inv_log_util.TRACE
5452: fnd_message.set_token ('token1', 'XACT_QTY1');
5453: RAISE fnd_api.g_exc_error;
5454: END IF;
5455:
5456: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5457: inv_log_util.TRACE
5458: ( 'UnExpected Error while querying tree : '
5459: || l_msg_data
5460: , l_procedure_name
5464: l_error_code := fnd_message.get;
5465: l_error_exp := l_msg_data;
5466: fnd_message.set_name ('INV', 'INV_INTERNAL_ERROR');
5467: fnd_message.set_token ('token1', 'XACT_QTY1');
5468: RAISE fnd_api.g_exc_unexpected_error;
5469: END IF;
5470:
5471: l_progress_indicator := '150';
5472: IF (l_debug = 1) THEN
5528: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
5529: l_error_code := fnd_message.get;
5530: fnd_message.set_name ('INV', 'INV_ORG_QUANTITY');
5531: l_error_exp := fnd_message.get;
5532: RAISE fnd_api.g_exc_error;
5533: END IF;
5534: END IF;
5535: END IF;
5536: ELSE --if (neg_inv_rcpt = 1)
5540: fnd_message.set_name ('INV', 'INV_LESS_OR_EQUAL');
5541: fnd_message.set_token ('ENTITY1', 'INV_QUANTITY');
5542: fnd_message.set_token ('ENTITY2', 'AVAIL_TO_TRANSACT');
5543: l_error_exp := fnd_message.get;
5544: RAISE fnd_api.g_exc_error;
5545: --exit;
5546: END IF; -- neg_inv_rcpt
5547: END IF; -- l_att
5548: /* End of changes for Bug 3462946 */
5554:
5555: IF (tree_exists) THEN
5556: l_progress_indicator := '200';
5557: inv_quantity_tree_pvt.free_all (p_api_version_number => 1.0
5558: , p_init_msg_lst => fnd_api.g_false
5559: , x_return_status => l_return_status
5560: , x_msg_count => l_msg_count
5561: , x_msg_data => l_msg_data
5562: );
5781: l_progress_indicator := '50';
5782: -- call get_wip_entity API
5783: inv_reservation_pvt.get_wip_entity_type
5784: ( p_api_version_number => 1.0
5785: , p_init_msg_lst => fnd_api.g_false
5786: , x_return_status => l_return_status
5787: , x_msg_count => l_msg_count
5788: , x_msg_data => l_msg_data
5789: , p_organization_id => null
5795: , x_wip_entity_type => l_wip_entity_type
5796: , x_wip_job_type => l_wip_job_type
5797: );
5798:
5799: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5800: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5801: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5802: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5803: END IF;
5797: );
5798:
5799: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5800: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5801: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5802: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5803: END IF;
5804:
5805: END IF; -- job_schedule
5811: END IF;
5812:
5813: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
5814: inv_reservation_global.g_wip_source_type_cmro)) THEN
5815: l_src_code := fnd_api.g_miss_char;
5816: END IF;
5817:
5818: --Bug #5086940
5819: --demand_source_name cannot be greater than 30 characters
5817:
5818: --Bug #5086940
5819: --demand_source_name cannot be greater than 30 characters
5820: IF (LENGTH(l_src_code) > 30) THEN
5821: l_src_code := fnd_api.g_miss_char;
5822: END IF;
5823:
5824: IF (l_debug = 1) THEN
5825: inv_log_util.trace('l_src_code is: ' || l_src_code, l_procedure_name, 9);
6016: p_res_sts := l_return_status;
6017: p_res_msg := l_msg_data;
6018: p_res_count := l_msg_count;
6019:
6020: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6021: IF (l_debug = 1) THEN
6022: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6023: , l_procedure_name
6024: , 9
6142:
6143: l_progress_indicator := '1351';
6144: INV_QUANTITY_TREE_PVT.create_tree
6145: ( p_api_version_number => 1.0
6146: , p_init_msg_lst => fnd_api.g_false
6147: , x_return_status => l_return_status
6148: , x_msg_count => l_msg_count
6149: , x_msg_data => l_msg_data
6150: , p_organization_id => l_org_id
6165: , p_exclusive => 0 --g_non_exclusive
6166: , p_pick_release => 0 --g_pick_release_no
6167: ) ;
6168:
6169: IF l_return_status = fnd_api.g_ret_sts_error THEN
6170: IF (l_debug = 1) THEN
6171: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,l_procedure_name, 9);
6172: END IF;
6173: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
6174: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
6175:
6176: l_error_code := FND_MESSAGE.get;
6177: l_error_exp := l_msg_data;
6178: RAISE fnd_api.g_exc_error;
6179: END IF ;
6180:
6181: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6182: IF (l_debug = 1) THEN
6177: l_error_exp := l_msg_data;
6178: RAISE fnd_api.g_exc_error;
6179: END IF ;
6180:
6181: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6182: IF (l_debug = 1) THEN
6183: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6184: END IF;
6185: l_error_exp := l_msg_data;
6182: IF (l_debug = 1) THEN
6183: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6184: END IF;
6185: l_error_exp := l_msg_data;
6186: RAISE fnd_api.g_exc_unexpected_error;
6187: END IF;
6188:
6189: g_interface_id := l_line_rec_type.transaction_interface_id;
6190: tree_exists := TRUE;
6243: , 9
6244: );
6245: END IF;
6246:
6247: RAISE fnd_api.g_exc_error;
6248: END IF;
6249: END IF;
6250: END LOOP;
6251:
6254: IF (tree_exists) THEN
6255: l_progress_indicator := '190';
6256: INV_QUANTITY_TREE_PVT.free_All
6257: ( p_api_version_number => 1.0
6258: , p_init_msg_lst => fnd_api.g_false
6259: , x_return_status => l_return_status
6260: , x_msg_count => l_msg_count
6261: , x_msg_data => l_msg_data);
6262: END IF;