[Home] [Help]
1: PACKAGE BODY GME_SUPPLY_RES_PVT AS
2: /* $Header: GMEORESB.pls 120.6 2008/01/02 14:49:51 srpuri ship $
3: +=========================================================================+
4: | Copyright (c) 2000 Oracle Corporation |
5: | TVP, Reading, England |
18: | Archana Mundhe Bug 5763818 Modified the code to use constants |
19: | that are added to gme_common_pvt instead of using the hardcoded |
20: | WF event names such as 'oracle.apps.gme...' |
21: +=========================================================================+
22: API Name : GME_SUPPLY_RES_PVT
23: Type : Private
24: Function : This package contains Private procedures used for change management
25: of reservations placed against OPM Production as a source of supply
26: Pre-reqs : N/A
29: Current Vers : 1.0
30:
31: */
32:
33: G_PKG_NAME CONSTANT VARCHAR2(30):='GME_SUPPLY_RES_PVT';
34: g_debug VARCHAR2 (5) := fnd_profile.VALUE ('AFLOG_LEVEL');
35:
36: PROCEDURE create_reservation_from_FPO
37: (
297: <
298: null;
299: END loop;
300: /* notify the CSR*/
301: GME_SUPPLY_RES_PVT.notify_CSR
302: ( P_Batch_id => p_new_batch_id
303: , P_fpo_id => p_fpo_batch_id
304: , P_organization_id => l_organization_id
305: , P_action_code => 'CONVERT_FPO'
925: -- If reservations exist, we will transfer the supply source from production to inventory
926: -- Otherwise, if no sales demand exists, nothing more to do.
927: -- =========================================================
928:
929: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
930: (p_matl_dtl_rec => p_matl_dtl_rec
931: ,x_mtl_reservation_tbl => l_rsv_tbl
932: ,x_mtl_reservation_tbl_count => l_rsv_count
933: ,x_msg_count => x_message_count
1131: END IF;
1132: -- If demand is from sales, issue Notification Advising that Reservation Transfer is not possible
1133: -- ==============================================================================================
1134: IF l_rsv_rec.demand_source_type_id = inv_reservation_global.g_source_type_oe THEN
1135: GME_SUPPLY_RES_PVT.notify_CSR
1136: ( P_Batch_id => NULL
1137: , P_Batch_line_id => l_rsv_rec.supply_source_line_id
1138: , P_So_line_id => l_rsv_rec.demand_source_line_id
1139: , P_batch_trans_id => NULL
1437: IF p_matl_dtl_rec.line_type not in (1,2) THEN
1438: RETURN;
1439: END IF;
1440:
1441: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1442: (p_matl_dtl_rec => p_matl_dtl_rec
1443: ,x_mtl_reservation_tbl => l_rsv_tbl
1444: ,x_mtl_reservation_tbl_count => l_rsv_count
1445: ,x_msg_count => x_msg_count
1539: END IF;
1540:
1541: -- Notify the sales department that reservations are being relieved
1542: -- ================================================================
1543: GME_SUPPLY_RES_PVT.notify_CSR
1544: ( P_Batch_id => p_matl_dtl_rec.batch_id
1545: , P_Batch_line_id => p_matl_dtl_rec.material_detail_id
1546: , P_So_line_id => l_rsv_rec.demand_source_line_id
1547: , P_batch_trans_id => NULL
1746: IF NVL(p_matl_dtl_rec.line_type,1) not in (1,2) THEN
1747: RETURN;
1748: END IF;
1749:
1750: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1751: (p_matl_dtl_rec => l_matl_dtl_rec
1752: ,x_mtl_reservation_tbl => l_rsv_tbl
1753: ,x_mtl_reservation_tbl_count => l_rsv_count
1754: ,x_msg_count => x_msg_count
1801: -- Set up notifccation ahead of deleting the reservation
1802: -- This will advise the sales representative of the deletion
1803: -- =========================================================
1804:
1805: GME_SUPPLY_RES_PVT.notify_CSR
1806: ( P_Batch_id => l_rsv_rec.supply_source_header_id
1807: , P_Batch_line_id => l_rsv_rec.supply_source_line_id
1808: , P_So_line_id => l_rsv_rec.demand_source_line_id
1809: , P_batch_trans_id => NULL
1869: END IF;
1870: WHEN notify_CSR_err THEN
1871: IF (g_debug <= gme_debug.g_log_error) THEN
1872: gme_debug.put_line
1873: ( 'gme_supply_res_pvt.notify_CSR failure ');
1874: gme_debug.put_line ('error message is ' || x_msg_data);
1875: END IF;
1876: WHEN matl_fetch_error THEN
1877: x_return_status := fnd_api.g_ret_sts_error;
1921: x_return_status := fnd_api.g_ret_sts_success;
1922:
1923: -- Query all the reservations agains this batch as a source of supply
1924: l_matl_dtl_rec.batch_id := p_batch_header_rec.batch_id;
1925: GME_SUPPLY_RES_PVT.query_prod_supply_reservations
1926: (p_matl_dtl_rec => l_matl_dtl_rec
1927: ,x_mtl_reservation_tbl => l_rsv_tbl
1928: ,x_mtl_reservation_tbl_count => l_rsv_count
1929: ,x_msg_count => x_msg_count
1971: -- Set up notifications ahead of deleting the reservation
1972: -- This will advise the sales representative of the deletion
1973: -- =========================================================
1974:
1975: GME_SUPPLY_RES_PVT.notify_CSR
1976: ( P_Batch_id => p_batch_header_rec.batch_id
1977: , P_Batch_line_id => NULL
1978: , P_So_line_id => NULL
1979: , P_batch_trans_id => NULL
2048: END IF;
2049: WHEN notify_CSR_err THEN
2050: IF (g_debug <= gme_debug.g_log_error) THEN
2051: gme_debug.put_line
2052: ( 'gme_supply_res_pvt.notify_CSR failure ');
2053: gme_debug.put_line ('error message is ' || x_msg_data);
2054: END IF;
2055: WHEN matl_fetch_error THEN
2056: x_return_status := fnd_api.g_ret_sts_error;
2068: x_return_status := fnd_api.g_ret_sts_unexp_error;
2069:
2070: END delete_batch_prod_supply_resv;
2071:
2072: END GME_SUPPLY_RES_PVT;