[Home] [Help]
1: PACKAGE BODY GME_SUPPLY_RES_PVT AS
2: /* $Header: GMEORESB.pls 120.9.12020000.2 2012/07/26 16:23:11 gmurator ship $
3: +=========================================================================+
4: | Copyright (c) 2000 Oracle Corporation |
5: | TVP, Reading, England |
32: | 15-Feb-2012 G. Muratore Bug 13630492 |
33: | Allow reservations to be transferred from fpo to batch for other |
34: | batch demand. PROCEDURE create_reservation_from_FPO |
35: +=========================================================================+
36: API Name : GME_SUPPLY_RES_PVT
37: Type : Private
38: Function : This package contains Private procedures used for change management
39: of reservations placed against OPM Production as a source of supply
40: Pre-reqs : N/A
43: Current Vers : 1.0
44:
45: */
46:
47: G_PKG_NAME CONSTANT VARCHAR2(30):='GME_SUPPLY_RES_PVT';
48: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
49:
50: PROCEDURE create_reservation_from_FPO
51: (
313: <
314: null;
315: END loop;
316: /* notify the CSR*/
317: GME_SUPPLY_RES_PVT.notify_CSR
318: ( P_Batch_id => p_new_batch_id
319: , P_fpo_id => p_fpo_batch_id
320: , P_organization_id => l_organization_id
321: , P_action_code => 'CONVERT_FPO'
947: -- If reservations exist, we will transfer the supply source from production to inventory
948: -- Otherwise, if no sales demand exists, nothing more to do.
949: -- =========================================================
950:
951: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
952: (p_matl_dtl_rec => p_matl_dtl_rec
953: ,x_mtl_reservation_tbl => l_rsv_tbl
954: ,x_mtl_reservation_tbl_count => l_rsv_count
955: ,x_msg_count => x_message_count
1190: END IF;
1191: -- If demand is from sales, issue Notification Advising that Reservation Transfer is not possible
1192: -- ==============================================================================================
1193: IF l_rsv_rec.demand_source_type_id = inv_reservation_global.g_source_type_oe THEN
1194: GME_SUPPLY_RES_PVT.notify_CSR
1195: ( P_Batch_id => NULL
1196: , P_Batch_line_id => l_rsv_rec.supply_source_line_id
1197: , P_So_line_id => l_rsv_rec.demand_source_line_id
1198: , P_batch_trans_id => NULL
1500: IF p_matl_dtl_rec.line_type not in (1,2) THEN
1501: RETURN;
1502: END IF;
1503:
1504: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1505: (p_matl_dtl_rec => p_matl_dtl_rec
1506: ,x_mtl_reservation_tbl => l_rsv_tbl
1507: ,x_mtl_reservation_tbl_count => l_rsv_count
1508: ,x_msg_count => x_msg_count
1602: END IF;
1603:
1604: -- Notify the sales department that reservations are being relieved
1605: -- ================================================================
1606: GME_SUPPLY_RES_PVT.notify_CSR
1607: ( P_Batch_id => p_matl_dtl_rec.batch_id
1608: , P_Batch_line_id => p_matl_dtl_rec.material_detail_id
1609: , P_So_line_id => l_rsv_rec.demand_source_line_id
1610: , P_batch_trans_id => NULL
1809: IF NVL(p_matl_dtl_rec.line_type,1) not in (1,2) THEN
1810: RETURN;
1811: END IF;
1812:
1813: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1814: (p_matl_dtl_rec => l_matl_dtl_rec
1815: ,x_mtl_reservation_tbl => l_rsv_tbl
1816: ,x_mtl_reservation_tbl_count => l_rsv_count
1817: ,x_msg_count => x_msg_count
1864: -- Set up notifccation ahead of deleting the reservation
1865: -- This will advise the sales representative of the deletion
1866: -- =========================================================
1867:
1868: GME_SUPPLY_RES_PVT.notify_CSR
1869: ( P_Batch_id => l_rsv_rec.supply_source_header_id
1870: , P_Batch_line_id => l_rsv_rec.supply_source_line_id
1871: , P_So_line_id => l_rsv_rec.demand_source_line_id
1872: , P_batch_trans_id => NULL
1932: END IF;
1933: WHEN notify_CSR_err THEN
1934: IF (g_debug <= gme_debug.g_log_error) THEN
1935: gme_debug.put_line
1936: ( 'gme_supply_res_pvt.notify_CSR failure ');
1937: gme_debug.put_line ('error message is ' || x_msg_data);
1938: END IF;
1939: WHEN matl_fetch_error THEN
1940: x_return_status := fnd_api.g_ret_sts_error;
1984: x_return_status := fnd_api.g_ret_sts_success;
1985:
1986: -- Query all the reservations agains this batch as a source of supply
1987: l_matl_dtl_rec.batch_id := p_batch_header_rec.batch_id;
1988: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1989: (p_matl_dtl_rec => l_matl_dtl_rec
1990: ,x_mtl_reservation_tbl => l_rsv_tbl
1991: ,x_mtl_reservation_tbl_count => l_rsv_count
1992: ,x_msg_count => x_msg_count
2034: -- Set up notifications ahead of deleting the reservation
2035: -- This will advise the sales representative of the deletion
2036: -- =========================================================
2037:
2038: GME_SUPPLY_RES_PVT.notify_CSR
2039: ( P_Batch_id => p_batch_header_rec.batch_id
2040: , P_Batch_line_id => NULL
2041: , P_So_line_id => NULL
2042: , P_batch_trans_id => NULL
2111: END IF;
2112: WHEN notify_CSR_err THEN
2113: IF (g_debug <= gme_debug.g_log_error) THEN
2114: gme_debug.put_line
2115: ( 'gme_supply_res_pvt.notify_CSR failure ');
2116: gme_debug.put_line ('error message is ' || x_msg_data);
2117: END IF;
2118: WHEN matl_fetch_error THEN
2119: x_return_status := fnd_api.g_ret_sts_error;
2131: x_return_status := fnd_api.g_ret_sts_unexp_error;
2132:
2133: END delete_batch_prod_supply_resv;
2134:
2135: END GME_SUPPLY_RES_PVT;