[Home] [Help]
79: l_api_version CONSTANT NUMBER := 1.0;
80: l_msg_count NUMBER :=0;
81: l_msg_data VARCHAR2(2000);
82: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
83: l_spec GMD_SPECIFICATIONS%ROWTYPE;
84: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
85: l_inventory_spec_vrs_out GMD_INVENTORY_SPEC_VRS%ROWTYPE;
86: l_inventory_spec_vrs_tbl GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl;
87: l_rowid ROWID;
257: l_api_version CONSTANT NUMBER := 1.0;
258: l_msg_count NUMBER :=0;
259: l_msg_data VARCHAR2(2000);
260: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
261: l_spec GMD_SPECIFICATIONS%ROWTYPE;
262: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
263: l_wip_spec_vrs_out GMD_WIP_SPEC_VRS%ROWTYPE;
264: l_wip_spec_vrs_tbl GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl;
265: l_rowid ROWID;
966: l_api_version CONSTANT NUMBER := 1.0;
967: l_msg_count NUMBER :=0;
968: l_msg_data VARCHAR2(2000);
969: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
970: l_spec GMD_SPECIFICATIONS%ROWTYPE;
971: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
972: l_deleted_rows NUMBER :=0;
973:
974: BEGIN
1042: END IF;
1043:
1044: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS
1045: -- ======================================================
1046: IF NOT GMD_Specifications_PVT.Lock_Row(l_inventory_spec_vrs.spec_id)
1047: THEN
1048: -- Report Failure to obtain locks
1049: -- ==============================
1050: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1047: THEN
1048: -- Report Failure to obtain locks
1049: -- ==============================
1050: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1051: 'l_table_name', 'GMD_SPECIFICATIONS',
1052: 'l_column_name', 'SPEC_ID',
1053: 'l_key_value', l_inventory_spec_vrs.spec_id);
1054: RAISE FND_API.G_EXC_ERROR;
1055: END IF;
1183: l_api_version CONSTANT NUMBER := 1.0;
1184: l_msg_count NUMBER :=0;
1185: l_msg_data VARCHAR2(2000);
1186: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1187: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1188: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
1189: l_deleted_rows NUMBER :=0;
1190:
1191: BEGIN
1259: END IF;
1260:
1261: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS
1262: -- ======================================================
1263: IF NOT GMD_Specifications_PVT.Lock_Row(l_wip_spec_vrs.spec_id)
1264: THEN
1265: -- Report Failure to obtain locks
1266: -- ==============================
1267: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1264: THEN
1265: -- Report Failure to obtain locks
1266: -- ==============================
1267: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1268: 'l_table_name', 'GMD_SPECIFICATIONS',
1269: 'l_column_name', 'SPEC_ID',
1270: 'l_key_value', l_wip_spec_vrs.spec_id);
1271: RAISE FND_API.G_EXC_ERROR;
1272: END IF;
1397: l_api_version CONSTANT NUMBER := 1.0;
1398: l_msg_count NUMBER :=0;
1399: l_msg_data VARCHAR2(2000);
1400: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1401: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1402: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
1403: l_deleted_rows NUMBER :=0;
1404:
1405: BEGIN
1473: END IF;
1474:
1475: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS
1476: -- ======================================================
1477: IF NOT GMD_Specifications_PVT.Lock_Row(l_customer_spec_vrs.spec_id)
1478: THEN
1479: -- Report Failure to obtain locks
1480: -- ==============================
1481: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1478: THEN
1479: -- Report Failure to obtain locks
1480: -- ==============================
1481: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1482: 'l_table_name', 'GMD_SPECIFICATIONS',
1483: 'l_column_name', 'SPEC_ID',
1484: 'l_key_value', l_customer_spec_vrs.spec_id);
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1611: l_api_version CONSTANT NUMBER := 1.0;
1612: l_msg_count NUMBER :=0;
1613: l_msg_data VARCHAR2(2000);
1614: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1615: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1616: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
1617: l_deleted_rows NUMBER :=0;
1618:
1619: BEGIN
1687: END IF;
1688:
1689: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS
1690: -- ======================================================
1691: IF NOT GMD_Specifications_PVT.Lock_Row(l_supplier_spec_vrs.spec_id)
1692: THEN
1693: -- Report Failure to obtain locks
1694: -- ==============================
1695: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1692: THEN
1693: -- Report Failure to obtain locks
1694: -- ==============================
1695: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1696: 'l_table_name', 'GMD_SPECIFICATIONS',
1697: 'l_column_name', 'SPEC_ID',
1698: 'l_key_value', l_supplier_spec_vrs.spec_id);
1699: RAISE FND_API.G_EXC_ERROR;
1700: END IF;
1827: l_api_version CONSTANT NUMBER := 1.0;
1828: l_msg_count NUMBER :=0;
1829: l_msg_data VARCHAR2(2000);
1830: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1831: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1832: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
1833: l_deleted_rows NUMBER :=0;
1834:
1835: BEGIN
1903: END IF;
1904:
1905: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS
1906: -- ======================================================
1907: IF NOT GMD_Specifications_PVT.Lock_Row(l_monitoring_spec_vrs.spec_id)
1908: THEN
1909: -- Report Failure to obtain locks
1910: -- ==============================
1911: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1908: THEN
1909: -- Report Failure to obtain locks
1910: -- ==============================
1911: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1912: 'l_table_name', 'GMD_SPECIFICATIONS',
1913: 'l_column_name', 'SPEC_ID',
1914: 'l_key_value', l_monitoring_spec_vrs.spec_id);
1915: RAISE FND_API.G_EXC_ERROR;
1916: END IF;