[Home] [Help]
1: PACKAGE BODY gme_reservations_pvt AS
2: /* $Header: GMEVRSVB.pls 120.24.12010000.1 2008/07/25 10:31:51 appldev ship $ */
3: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_RESERVATIONS_PVT';
5:
1: PACKAGE BODY gme_reservations_pvt AS
2: /* $Header: GMEVRSVB.pls 120.24.12010000.1 2008/07/25 10:31:51 appldev ship $ */
3: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
4: g_pkg_name CONSTANT VARCHAR2 (30) := 'GME_RESERVATIONS_PVT';
5:
6: /*************************************************************************************************/
7: /* Oracle Process Manufacturing Process Execution APIs */
8: /* */
607:
608: x_return_status := fnd_api.g_ret_sts_success;
609:
610: FOR get_rec IN cur_batch_materials LOOP
611: gme_reservations_pvt.delete_material_reservations
612: (p_organization_id => get_rec.organization_id
613: ,p_batch_id => get_rec.batch_id
614: ,p_material_detail_id => get_rec.material_detail_id
615: ,x_return_status => l_return_status);
661: gme_debug.put_line ('p_material_detail_id = ' || p_material_detail_id);
662: END IF;
663:
664: x_return_status := fnd_api.g_ret_sts_success;
665: gme_reservations_pvt.get_material_reservations
666: (p_organization_id => p_organization_id
667: ,p_batch_id => p_batch_id
668: ,p_material_detail_id => p_material_detail_id
669: ,x_return_status => x_return_status
669: ,x_return_status => x_return_status
670: ,x_reservations_tbl => l_rsv_tbl);
671:
672: FOR i IN 1 .. l_rsv_tbl.COUNT LOOP
673: gme_reservations_pvt.delete_reservation
674: (p_reservation_id => l_rsv_tbl (i).reservation_id
675: ,x_return_status => l_return_status);
676:
677: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1362:
1363: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
1364: /* Verify that the reservation is fully detailed */
1365: l_rsv_type :=
1366: gme_reservations_pvt.reservation_fully_specified
1367: (p_reservation_rec => p_reservation_rec
1368: ,p_item_location_control => NVL(l_item_rec.location_control_code,1)
1369: ,p_item_restrict_locators => l_item_rec.restrict_locators_code);
1370:
1372: gme_debug.put_line
1373: ( g_pkg_name
1374: || '.'
1375: || l_api_name
1376: || ' Return rsv_type from gme_reservations_pvt.reservation_fully_specified is '
1377: || TO_CHAR (l_rsv_type) );
1378: END IF;
1379:
1380: IF l_rsv_type = -1 THEN
1384:
1385: IF l_rsv_type IN (0, 2) THEN -- Not fully detailed
1386: /* Detail the reservation to sub, locator level where possible */
1387: /* There must be sufficient inventory to support the reservation */
1388: gme_reservations_pvt.convert_partial_to_dlr
1389: (p_reservation_rec => p_reservation_rec
1390: ,p_material_dtl_rec => p_material_details_rec
1391: ,p_item_rec => l_item_rec
1392: ,x_reservation_rec => l_reservation_rec
1396: gme_debug.put_line
1397: ( g_pkg_name
1398: || '.'
1399: || l_api_name
1400: || ' Return status from gme_reservations_pvt.convert_partial_to_dlr is '
1401: || x_return_status);
1402: END IF;
1403:
1404: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1634: IF NVL (l_item_rec.reservable_type, 1) <> 1 /*Reservable*/ THEN
1635: RAISE reservable_type_error;
1636: END IF;
1637:
1638: gme_reservations_pvt.get_material_reservations
1639: (p_organization_id => p_material_details_rec.organization_id
1640: ,p_batch_id => p_material_details_rec.batch_id
1641: ,p_material_detail_id => p_material_details_rec.material_detail_id
1642: ,x_return_status => x_return_status
1663: l_rsv_rec := l_rsv_tbl (l_count);
1664: /* Verify that the reservation is fully detailed */
1665: /* Bug 5441643 Added NVL condition for location control code*/
1666: l_rsv_type :=
1667: gme_reservations_pvt.reservation_fully_specified
1668: (p_reservation_rec => l_rsv_rec
1669: ,p_item_location_control => NVL(l_item_rec.location_control_code,1)
1670: ,p_item_restrict_locators => l_item_rec.restrict_locators_code);
1671:
1673: gme_debug.put_line
1674: ( g_pkg_name
1675: || '.'
1676: || l_api_name
1677: || ' Return rsv_type from gme_reservations_pvt.reservation_fully_specified is '
1678: || TO_CHAR (l_rsv_type) );
1679: END IF;
1680:
1681: IF l_rsv_type = -1 THEN
1683: RAISE error_unexpected;
1684: END IF;
1685:
1686: IF l_rsv_type = 0 /*HLT*/ THEN
1687: gme_reservations_pvt.relieve_reservation
1688: (p_reservation_id => l_rsv_rec.reservation_id
1689: ,p_prim_relieve_qty => l_rsv_rec.primary_reservation_quantity
1690: ,x_return_status => x_return_status);
1691:
1950: || l_api_name
1951: || ' attempting to create a HLR for the outstanding qty '
1952: || l_open_qty );
1953: END IF;
1954: gme_reservations_pvt.create_material_reservation
1955: (p_matl_dtl_rec => p_material_details_rec
1956: ,p_resv_qty => l_open_qty
1957: ,x_return_status => l_return_status);
1958:
2066: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoke auto detail for material detail id '||get_matl_rec.material_detail_id);
2067: END IF;
2068:
2069: /*calling auto detail line */
2070: gme_reservations_pvt.auto_detail_line(p_material_details_rec => get_matl_rec
2071: ,x_return_status => l_return_status);
2072:
2073: IF g_debug <= gme_debug.g_log_statement THEN
2074: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Call to auto detail line returns '||x_return_status);
2185:
2186: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2187: x_return_status := fnd_api.g_ret_sts_unexp_error;
2188: END validate_mtl_for_reservation;
2189: END gme_reservations_pvt;