[Home] [Help]
1: PACKAGE BODY inv_rsv_detail_stage_pvt AS
2: /* $Header: INVRSDSB.pls 120.0.12010000.2 2010/03/11 09:41:32 viiyer noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_RSV_DETAIL_STAGE_PVT';
5: g_version_printed BOOLEAN := FALSE;
1: PACKAGE BODY inv_rsv_detail_stage_pvt AS
2: /* $Header: INVRSDSB.pls 120.0.12010000.2 2010/03/11 09:41:32 viiyer noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'INV_RSV_DETAIL_STAGE_PVT';
5: g_version_printed BOOLEAN := FALSE;
6: g_debug NUMBER;
7:
8: -- procedure to print a message to dbms_output
8: -- procedure to print a message to dbms_output
9: -- disable by default since dbms_output.put_line is not allowed
10: PROCEDURE debug_print(p_message IN VARCHAR2, p_level IN NUMBER := 9) IS
11: BEGIN
12: inv_log_util.TRACE(p_message, 'INV_RSV_DETAIL_STAGE_PVT', p_level);
13: END debug_print;
14:
15:
16: -- Function
845: IF l_mtl_rsv_non_staged_count > 1 THEN
846:
847: -- Reservation table needs to be sorted as per the order
848: -- mentioned in sort_reservation helper procedure
849: inv_rsv_detail_stage_pvt.Sort_Reservation (
850: p_mtl_reservation => l_mtl_reservation_non_staged,
851: p_rsv_rec => l_rsv_rec,
852: x_return_status => l_return_status,
853: x_msg_count => l_msg_count,
1037:
1038: END IF; --IF l_rsv_rec.reservation_quantity >= l_primary_reservation_qty
1039:
1040: -- Check the atr for the sku passed for detailing/staging the reservation
1041: inv_rsv_detail_stage_pvt.Get_atr(
1042: p_rsv_rec => l_rsv_rec
1043: , x_atr => l_atr
1044: , x_return_status => l_return_status
1045: , x_msg_count => l_msg_count
1047: );
1048:
1049: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1050: IF (l_debug = 1) THEN
1051: debug_print(' return error from inv_rsv_detail_stage_pvt.Get_atr '||l_return_status);
1052: END IF;
1053: RAISE fnd_api.g_exc_unexpected_error;
1054: ELSE
1055: IF (l_debug = 1) THEN
1326: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1327:
1328: END process_reservation;
1329:
1330: END inv_rsv_detail_stage_pvt;