[Home] [Help]
1: PACKAGE BODY gme_reservations_pvt AS
2: /* $Header: GMEVRSVB.pls 120.43.12020000.2 2012/07/26 15:46:10 gmurator 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.43.12020000.2 2012/07/26 15:46:10 gmurator 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:
887:
888: x_return_status := fnd_api.g_ret_sts_success;
889:
890: FOR get_rec IN cur_batch_materials LOOP
891: gme_reservations_pvt.delete_material_reservations
892: (p_organization_id => get_rec.organization_id
893: ,p_batch_id => get_rec.batch_id
894: ,p_material_detail_id => get_rec.material_detail_id
895: ,x_return_status => l_return_status);
941: gme_debug.put_line ('p_material_detail_id = ' || p_material_detail_id);
942: END IF;
943:
944: x_return_status := fnd_api.g_ret_sts_success;
945: gme_reservations_pvt.get_material_reservations
946: (p_organization_id => p_organization_id
947: ,p_batch_id => p_batch_id
948: ,p_material_detail_id => p_material_detail_id
949: ,x_return_status => x_return_status
949: ,x_return_status => x_return_status
950: ,x_reservations_tbl => l_rsv_tbl);
951:
952: FOR i IN 1 .. l_rsv_tbl.COUNT LOOP
953: gme_reservations_pvt.delete_reservation
954: (p_reservation_id => l_rsv_tbl (i).reservation_id
955: ,x_return_status => l_return_status);
956:
957: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
1656:
1657: gme_common_pvt.g_move_to_temp := fnd_api.g_false;
1658: /* Verify that the reservation is fully detailed */
1659: l_rsv_type :=
1660: gme_reservations_pvt.reservation_fully_specified
1661: (p_reservation_rec => p_reservation_rec
1662: ,p_item_location_control => NVL(l_item_rec.location_control_code,1)
1663: ,p_item_restrict_locators => l_item_rec.restrict_locators_code);
1664:
1666: gme_debug.put_line
1667: ( g_pkg_name
1668: || '.'
1669: || l_api_name
1670: || ' Return rsv_type from gme_reservations_pvt.reservation_fully_specified is '
1671: || TO_CHAR (l_rsv_type) );
1672: END IF;
1673:
1674: IF l_rsv_type = -1 THEN
1678:
1679: IF l_rsv_type IN (0, 2) THEN -- Not fully detailed
1680: /* Detail the reservation to sub, locator level where possible */
1681: /* There must be sufficient inventory to support the reservation */
1682: gme_reservations_pvt.convert_partial_to_dlr
1683: (p_reservation_rec => p_reservation_rec
1684: ,p_material_dtl_rec => p_material_details_rec
1685: ,p_item_rec => l_item_rec
1686: ,x_reservation_rec => l_reservation_rec
1690: gme_debug.put_line
1691: ( g_pkg_name
1692: || '.'
1693: || l_api_name
1694: || ' Return status from gme_reservations_pvt.convert_partial_to_dlr is '
1695: || x_return_status);
1696: END IF;
1697:
1698: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1939: IF NVL (l_item_rec.reservable_type, 1) <> 1 /*Reservable*/ THEN
1940: RAISE reservable_type_error;
1941: END IF;
1942:
1943: gme_reservations_pvt.get_material_reservations
1944: (p_organization_id => p_material_details_rec.organization_id
1945: ,p_batch_id => p_material_details_rec.batch_id
1946: ,p_material_detail_id => p_material_details_rec.material_detail_id
1947: ,x_return_status => x_return_status
1968: l_rsv_rec := l_rsv_tbl (l_count);
1969: /* Verify that the reservation is fully detailed */
1970: /* Bug 5441643 Added NVL condition for location control code*/
1971: l_rsv_type :=
1972: gme_reservations_pvt.reservation_fully_specified
1973: (p_reservation_rec => l_rsv_rec
1974: ,p_item_location_control => NVL(l_item_rec.location_control_code,1)
1975: ,p_item_restrict_locators => l_item_rec.restrict_locators_code);
1976:
1978: gme_debug.put_line
1979: ( g_pkg_name
1980: || '.'
1981: || l_api_name
1982: || ' Return rsv_type from gme_reservations_pvt.reservation_fully_specified is '
1983: || TO_CHAR (l_rsv_type) );
1984: END IF;
1985:
1986: IF l_rsv_type = -1 THEN
1988: RAISE error_unexpected;
1989: END IF;
1990:
1991: IF l_rsv_type = 0 /*HLT*/ THEN
1992: gme_reservations_pvt.relieve_reservation
1993: (p_reservation_id => l_rsv_rec.reservation_id
1994: ,p_prim_relieve_qty => l_rsv_rec.primary_reservation_quantity
1995: ,x_return_status => x_return_status);
1996:
2349: || l_api_name
2350: || ' attempting to create a HLR for the outstanding qty '
2351: || l_open_qty );
2352: END IF;
2353: gme_reservations_pvt.create_material_reservation
2354: (p_matl_dtl_rec => p_material_details_rec
2355: ,p_resv_qty => l_open_qty
2356: ,x_return_status => l_return_status);
2357:
2517: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Invoke auto detail for material detail id '||get_matl_rec.material_detail_id);
2518: END IF;
2519:
2520: /*calling auto detail line */
2521: gme_reservations_pvt.auto_detail_line(p_material_details_rec => get_matl_rec
2522: ,x_return_status => l_return_status);
2523:
2524: IF g_debug <= gme_debug.g_log_statement THEN
2525: gme_debug.put_line(g_pkg_name||'.'||l_api_name||' Call to auto detail line returns '||x_return_status);
2662:
2663: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2664: x_return_status := fnd_api.g_ret_sts_unexp_error;
2665: END validate_mtl_for_reservation;
2666: END gme_reservations_pvt;