[Home] [Help]
81: l_api_version CONSTANT NUMBER := 1.0;
82: l_msg_count NUMBER :=0;
83: l_msg_data VARCHAR2(2000);
84: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
85: l_spec GMD_SPECIFICATIONS%ROWTYPE;
86: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
87: l_inventory_spec_vrs_out GMD_INVENTORY_SPEC_VRS%ROWTYPE;
88: l_inventory_spec_vrs_tbl GMD_SPEC_VRS_PUB.inventory_spec_vrs_tbl;
89: l_rowid ROWID;
261: l_api_version CONSTANT NUMBER := 1.0;
262: l_msg_count NUMBER :=0;
263: l_msg_data VARCHAR2(2000);
264: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
265: l_spec GMD_SPECIFICATIONS%ROWTYPE;
266: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
267: l_wip_spec_vrs_out GMD_WIP_SPEC_VRS%ROWTYPE;
268: l_wip_spec_vrs_tbl GMD_SPEC_VRS_PUB.wip_spec_vrs_tbl;
269: l_rowid ROWID;
978: l_api_version CONSTANT NUMBER := 1.0;
979: l_msg_count NUMBER :=0;
980: l_msg_data VARCHAR2(2000);
981: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
982: l_spec GMD_SPECIFICATIONS%ROWTYPE;
983: l_inventory_spec_vrs GMD_INVENTORY_SPEC_VRS%ROWTYPE;
984: l_deleted_rows NUMBER :=0;
985:
986: BEGIN
1054: END IF;
1055:
1056: -- Lock the SPEC ahead of manipulating INVENTORY_SPEC_VRS
1057: -- ======================================================
1058: IF NOT GMD_Specifications_PVT.Lock_Row(l_inventory_spec_vrs.spec_id)
1059: THEN
1060: -- Report Failure to obtain locks
1061: -- ==============================
1062: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1059: THEN
1060: -- Report Failure to obtain locks
1061: -- ==============================
1062: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1063: 'l_table_name', 'GMD_SPECIFICATIONS',
1064: 'l_column_name', 'SPEC_ID',
1065: 'l_key_value', l_inventory_spec_vrs.spec_id);
1066: RAISE FND_API.G_EXC_ERROR;
1067: END IF;
1195: l_api_version CONSTANT NUMBER := 1.0;
1196: l_msg_count NUMBER :=0;
1197: l_msg_data VARCHAR2(2000);
1198: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1199: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1200: l_wip_spec_vrs GMD_WIP_SPEC_VRS%ROWTYPE;
1201: l_deleted_rows NUMBER :=0;
1202:
1203: BEGIN
1271: END IF;
1272:
1273: -- Lock the SPEC ahead of manipulating WIP_SPEC_VRS
1274: -- ======================================================
1275: IF NOT GMD_Specifications_PVT.Lock_Row(l_wip_spec_vrs.spec_id)
1276: THEN
1277: -- Report Failure to obtain locks
1278: -- ==============================
1279: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1276: THEN
1277: -- Report Failure to obtain locks
1278: -- ==============================
1279: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1280: 'l_table_name', 'GMD_SPECIFICATIONS',
1281: 'l_column_name', 'SPEC_ID',
1282: 'l_key_value', l_wip_spec_vrs.spec_id);
1283: RAISE FND_API.G_EXC_ERROR;
1284: END IF;
1409: l_api_version CONSTANT NUMBER := 1.0;
1410: l_msg_count NUMBER :=0;
1411: l_msg_data VARCHAR2(2000);
1412: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1413: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1414: l_customer_spec_vrs GMD_CUSTOMER_SPEC_VRS%ROWTYPE;
1415: l_deleted_rows NUMBER :=0;
1416:
1417: BEGIN
1485: END IF;
1486:
1487: -- Lock the SPEC ahead of manipulating CUSTOMER_SPEC_VRS
1488: -- ======================================================
1489: IF NOT GMD_Specifications_PVT.Lock_Row(l_customer_spec_vrs.spec_id)
1490: THEN
1491: -- Report Failure to obtain locks
1492: -- ==============================
1493: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1490: THEN
1491: -- Report Failure to obtain locks
1492: -- ==============================
1493: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1494: 'l_table_name', 'GMD_SPECIFICATIONS',
1495: 'l_column_name', 'SPEC_ID',
1496: 'l_key_value', l_customer_spec_vrs.spec_id);
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1623: l_api_version CONSTANT NUMBER := 1.0;
1624: l_msg_count NUMBER :=0;
1625: l_msg_data VARCHAR2(2000);
1626: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1627: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1628: l_supplier_spec_vrs GMD_SUPPLIER_SPEC_VRS%ROWTYPE;
1629: l_deleted_rows NUMBER :=0;
1630:
1631: BEGIN
1699: END IF;
1700:
1701: -- Lock the SPEC ahead of manipulating SUPPLIER_SPEC_VRS
1702: -- ======================================================
1703: IF NOT GMD_Specifications_PVT.Lock_Row(l_supplier_spec_vrs.spec_id)
1704: THEN
1705: -- Report Failure to obtain locks
1706: -- ==============================
1707: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1704: THEN
1705: -- Report Failure to obtain locks
1706: -- ==============================
1707: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1708: 'l_table_name', 'GMD_SPECIFICATIONS',
1709: 'l_column_name', 'SPEC_ID',
1710: 'l_key_value', l_supplier_spec_vrs.spec_id);
1711: RAISE FND_API.G_EXC_ERROR;
1712: END IF;
1839: l_api_version CONSTANT NUMBER := 1.0;
1840: l_msg_count NUMBER :=0;
1841: l_msg_data VARCHAR2(2000);
1842: l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
1843: l_spec GMD_SPECIFICATIONS%ROWTYPE;
1844: l_monitoring_spec_vrs GMD_MONITORING_SPEC_VRS%ROWTYPE;
1845: l_deleted_rows NUMBER :=0;
1846:
1847: BEGIN
1915: END IF;
1916:
1917: -- Lock the SPEC ahead of manipulating MONITORING_SPEC_VRS
1918: -- ======================================================
1919: IF NOT GMD_Specifications_PVT.Lock_Row(l_monitoring_spec_vrs.spec_id)
1920: THEN
1921: -- Report Failure to obtain locks
1922: -- ==============================
1923: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1920: THEN
1921: -- Report Failure to obtain locks
1922: -- ==============================
1923: GMD_API_PUB.Log_Message('GMD_LOCKING_FAILURE',
1924: 'l_table_name', 'GMD_SPECIFICATIONS',
1925: 'l_column_name', 'SPEC_ID',
1926: 'l_key_value', l_monitoring_spec_vrs.spec_id);
1927: RAISE FND_API.G_EXC_ERROR;
1928: END IF;