[Home] [Help]
266: FETCH get_job_attrs INTO l_job_attrs;
267: IF get_job_attrs%NOTFOUND THEN
268: --Comment out this check because the p_workoder_id passed should always be valid
269: /*
270: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
271: FND_MESSAGE.set_token('JOBID', p_workorder_id);
272: FND_MSG_PUB.add;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: CLOSE get_job_attrs;
267: IF get_job_attrs%NOTFOUND THEN
268: --Comment out this check because the p_workoder_id passed should always be valid
269: /*
270: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
271: FND_MESSAGE.set_token('JOBID', p_workorder_id);
272: FND_MSG_PUB.add;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: CLOSE get_job_attrs;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
282: END IF;
283: RETURN;
284: ELSIF l_job_attrs.job_status_code IN (4, 12) THEN
285: --Complete(4) and Closed(12)
286: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
287: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
288: FND_MSG_PUB.add;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
283: RETURN;
284: ELSIF l_job_attrs.job_status_code IN (4, 12) THEN
285: --Complete(4) and Closed(12)
286: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
287: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
288: FND_MSG_PUB.add;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: CLOSE get_job_attrs;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: CLOSE get_job_attrs;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
362: OPEN get_mtl_req_flags(l_route_mtl_req_tbl(i).rt_oper_material_id);
363: FETCH get_mtl_req_flags INTO l_mtl_req_flags;
364: ----dbms_output.put_line('In loop '|| i||' and rt_oper_material_id='||l_route_mtl_req_tbl(i).rt_oper_material_id);
365: IF get_mtl_req_flags%NOTFOUND THEN
366: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
367: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
368: FND_MSG_PUB.add;
369: CLOSE get_mtl_req_flags;
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: FETCH get_mtl_req_flags INTO l_mtl_req_flags;
364: ----dbms_output.put_line('In loop '|| i||' and rt_oper_material_id='||l_route_mtl_req_tbl(i).rt_oper_material_id);
365: IF get_mtl_req_flags%NOTFOUND THEN
366: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
367: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
368: FND_MSG_PUB.add;
369: CLOSE get_mtl_req_flags;
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
436: --that the lowest sub unit instance_id will be the first one to be displayed.
437: OPEN get_sub_unit_instance(l_job_attrs.item_instance_id);
438: FETCH get_sub_unit_instance INTO l_unit_instance_id;
439: IF get_sub_unit_instance%NOTFOUND THEN
440: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
441: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
442: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
443: FND_MSG_PUB.add;
444: CLOSE get_sub_unit_instance;
437: OPEN get_sub_unit_instance(l_job_attrs.item_instance_id);
438: FETCH get_sub_unit_instance INTO l_unit_instance_id;
439: IF get_sub_unit_instance%NOTFOUND THEN
440: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
441: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
442: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
443: FND_MSG_PUB.add;
444: CLOSE get_sub_unit_instance;
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
438: FETCH get_sub_unit_instance INTO l_unit_instance_id;
439: IF get_sub_unit_instance%NOTFOUND THEN
440: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
441: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
442: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
443: FND_MSG_PUB.add;
444: CLOSE get_sub_unit_instance;
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSE
489: RAISE FND_API.G_EXC_ERROR;
490: END IF;
491:
492: IF (l_mapping_status = 'NA') THEN
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
494: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
495: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
490: END IF;
491:
492: IF (l_mapping_status = 'NA') THEN
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
494: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
495: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: -- Position does not apply to current unit
491:
492: IF (l_mapping_status = 'NA') THEN
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
494: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
495: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: -- Position does not apply to current unit
499: ELSIF (l_mapping_status = 'EMPTY') THEN
679: X_LAST_UPDATED_BY => FND_GLOBAL.user_id,
680: X_LAST_UPDATE_LOGIN => FND_GLOBAL.login_id);
681: EXCEPTION
682: WHEN NO_DATA_FOUND THEN --This +100 is raised explicitly in INSERT_ROW
683: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INSERT_FAILED' );
684: FND_MSG_PUB.add;
685: WHEN OTHERS THEN
686: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
687: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
683: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INSERT_FAILED' );
684: FND_MSG_PUB.add;
685: WHEN OTHERS THEN
686: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
687: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
688: FND_MSG_PUB.add;
689: ELSE
690: RAISE;
691: END IF;
1240: IF (p_x_disposition_rec.create_work_order_option = 'CREATE_WO_NO') THEN
1241: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1242: FETCH chk_non_serialized_csr INTO l_dummy;
1243: IF (chk_non_serialized_csr%FOUND) THEN
1244: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
1245: FND_MSG_PUB.ADD;
1246: END IF;
1247: CLOSE chk_non_serialized_csr;
1248: END IF;
1666: FETCH disposition_csr INTO l_disposition_rec;
1667:
1668: IF (disposition_csr%NOTFOUND) THEN
1669: CLOSE disposition_csr; --close cursor before raising exeption
1670: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_FOUND');
1671: FND_MSG_PUB.ADD;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: CLOSE disposition_csr;
1673: END IF;
1674: CLOSE disposition_csr;
1675:
1676: IF(p_x_disposition_rec.OBJECT_VERSION_NUMBER <> l_disposition_rec.OBJECT_VERSION_NUMBER) THEN
1677: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
1678: FND_MSG_PUB.ADD;
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;
1681:
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;
1681:
1682: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1683: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DIS_UPDATE_TERMINATE'); --Cannot update a terminated disposition.
1684: FND_MSG_PUB.ADD;
1685: RAISE FND_API.G_EXC_ERROR;
1686: END IF;
1687:
1813:
1814: --VALIDATE THAT THESE ATTRIBUTE SHOULD NOT BE CHANGED
1815: --dbms_output.put_line('Start validate for changes..............');
1816: IF nvl(p_x_disposition_rec.workorder_id, -1) <> nvl(l_disposition_rec.workorder_id, -1) THEN
1817: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_CHNG'); --Workorder id Cannot be change
1818: FND_MSG_PUB.ADD;
1819: END IF;
1820: IF l_disposition_rec.part_change_id IS NOT NULL
1821: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1818: FND_MSG_PUB.ADD;
1819: END IF;
1820: IF l_disposition_rec.part_change_id IS NOT NULL
1821: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1822: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARTCHG_ID_CHNG'); --Part Change Cannot be change
1823: FND_MSG_PUB.ADD;
1824: END IF;
1825:
1826: IF l_disposition_rec.inventory_item_id IS NOT NULL
1825:
1826: IF l_disposition_rec.inventory_item_id IS NOT NULL
1827: AND nvl(p_x_disposition_rec.inventory_item_id, -1) <> l_disposition_rec.inventory_item_id THEN
1828: --dbms_output.put_line('In Error message AHL_PRD_DIS_ITEM_REV_CHNG');
1829: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_CHG'); --Item cannot be changed
1830: FND_MSG_PUB.ADD;
1831: END IF;
1832:
1833: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1830: FND_MSG_PUB.ADD;
1831: END IF;
1832:
1833: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1834: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --ITem Revision Cannot be change
1835: FND_MSG_PUB.ADD;
1836: END IF;
1837: */
1838: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1835: FND_MSG_PUB.ADD;
1836: END IF;
1837: */
1838: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1839: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_GRP_CHNG'); --Item Group Cannot be change
1840: FND_MSG_PUB.ADD;
1841: END IF;
1842: --IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1843: --Instance can only be changed once (originally it is not changeable at all)
1843: --Instance can only be changed once (originally it is not changeable at all)
1844: --Updated by Jerry on 01/26/2005 for fixing bug 4089750
1845: IF (l_disposition_rec.instance_id IS NOT NULL AND (p_x_disposition_rec.instance_id IS NULL OR
1846: p_x_disposition_rec.instance_id <> l_disposition_rec.instance_id)) THEN
1847: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG');
1848: FND_MSG_PUB.ADD;
1849: ELSIF ((l_disposition_rec.instance_id IS NULL AND
1850: p_x_disposition_rec.instance_id IS NULL AND
1851: -- AnRaj: Changed query, Perf Bug#4908609,Issue#4
1854: p_x_disposition_rec.status_code <> 'TERMINATED' AND --Added on 03/02/05 when verifying
1855: l_disposition_rec.part_change_id IS NULL AND --bug fix 4093642 on SCMTSB2
1856: p_x_disposition_rec.part_change_id IS NULL) AND -- Added by rbhavsar on Aug 07, 2007 for FP bug 6318339, base bug 6058419
1857: (l_disposition_rec.immediate_disposition_code is NULL)) THEN
1858: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INSTANCE_VALUE_REQ');
1859: FND_MSG_PUB.ADD;
1860: ELSIF (l_disposition_rec.instance_id IS NULL AND p_x_disposition_rec.instance_id IS NOT NULL) THEN
1861: BEGIN
1862: SELECT 'X' INTO l_dummy_char
1865: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
1866: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1867: EXCEPTION
1868: WHEN NO_DATA_FOUND THEN
1869: FND_MESSAGE.set_name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
1870: FND_MESSAGE.set_token('INTANCE_NUM', p_x_disposition_rec.instance_number);
1871: FND_MSG_PUB.ADD;
1872: END;
1873: END IF;
1866: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1867: EXCEPTION
1868: WHEN NO_DATA_FOUND THEN
1869: FND_MESSAGE.set_name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
1870: FND_MESSAGE.set_token('INTANCE_NUM', p_x_disposition_rec.instance_number);
1871: FND_MSG_PUB.ADD;
1872: END;
1873: END IF;
1874: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1872: END;
1873: END IF;
1874: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1875: IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1876: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG'); --Instance Cannot be change
1877: FND_MSG_PUB.ADD;
1878: END IF;
1879: */
1880: /* Begin Fix for 4075758 on Dec 21. 2004 */
1881: -- For non-tracked, serial or lot controlled items, the serial
1882: -- and/or and lot number may be provided during update mode also
1883: /*****
1884: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1885: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Cannot be change
1886: FND_MSG_PUB.ADD;
1887: END IF;
1888:
1889: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1886: FND_MSG_PUB.ADD;
1887: END IF;
1888:
1889: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1890: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Cannot be change
1891: FND_MSG_PUB.ADD;
1892: END IF;
1893: ******/
1894: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1891: FND_MSG_PUB.ADD;
1892: END IF;
1893: ******/
1894: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1895: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Can be set once
1896: FND_MSG_PUB.ADD;
1897: END IF;
1898: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1899: -- Serial Number has been set: Validate
1899: -- Serial Number has been set: Validate
1900: OPEN val_serial_number_csr(p_x_disposition_rec.serial_number, p_x_disposition_rec.inventory_item_id);
1901: FETCH val_serial_number_csr INTO l_exist;
1902: IF (val_serial_number_csr%NOTFOUND) THEN
1903: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
1904: FND_MSG_PUB.ADD;
1905: END IF;
1906: CLOSE val_serial_number_csr;
1907: END IF;
1906: CLOSE val_serial_number_csr;
1907: END IF;
1908:
1909: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, nvl(p_x_disposition_rec.lot_number, ' ')) THEN
1910: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Can be set once
1911: FND_MSG_PUB.ADD;
1912: END IF;
1913: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1914: -- Lot Number has been set: Validate
1914: -- Lot Number has been set: Validate
1915: OPEN val_lot_number_csr(p_x_disposition_rec.lot_number, p_x_disposition_rec.inventory_item_id);
1916: FETCH val_lot_number_csr INTO l_exist;
1917: IF (val_lot_number_csr%NOTFOUND) THEN
1918: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_LOT'); -- Invalid Lot number and item combination
1919: FND_MSG_PUB.ADD;
1920: END IF;
1921: CLOSE val_lot_number_csr;
1922: END IF;
1925: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1926: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1927: END IF;
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1930: FND_MSG_PUB.ADD;
1931: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision Change old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1933: END IF;
1939: -- item revision Number has been set: Validate
1940: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1941: FETCH item_revisions_csr INTO l_exist;
1942: IF (item_revisions_csr%NOTFOUND) THEN
1943: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_REV'); -- Invalid serial number and item combination
1944: FND_MSG_PUB.ADD;
1945: END IF;
1946: CLOSE item_revisions_csr;
1947: END IF;
1949: /* End Fix for 4075758 on Dec 21. 2004 */
1950:
1951: IF l_disposition_rec.Collection_Id IS NOT NULL
1952: AND nvl(p_x_disposition_rec.Collection_id, -1) <> nvl(l_disposition_rec.Collection_Id, -1) THEN
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_COLLECT_ID_CHNG'); --Workorder Cannot be changed
1954: FND_MSG_PUB.ADD;
1955: END IF;
1956: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1957: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_COLLECT_ID_CHNG'); --Workorder Cannot be changed
1954: FND_MSG_PUB.ADD;
1955: END IF;
1956: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1957: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1958: FND_MSG_PUB.ADD;
1959: END IF;
1960: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1961: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1957: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1958: FND_MSG_PUB.ADD;
1959: END IF;
1960: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1961: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1962: FND_MSG_PUB.ADD;
1963: END IF;
1964:
1965: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1962: FND_MSG_PUB.ADD;
1963: END IF;
1964:
1965: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_CHNG'); --UOM Cannot be changed
1967: FND_MSG_PUB.ADD;
1968: END IF;
1969:
1970:
1968: END IF;
1969:
1970:
1971: IF(workorder_editable(p_x_disposition_rec.workorder_id) = FALSE) THEN
1972: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Update Disposition Because Workorder is not editable.
1973: FND_MSG_PUB.ADD;
1974: END IF;
1975:
1976: --Disposition Status can only be changed to Terminated by the user.
1974: END IF;
1975:
1976: --Disposition Status can only be changed to Terminated by the user.
1977: IF nvl(p_x_disposition_rec.status_code, 'dummy') <> 'TERMINATED' AND nvl(p_x_disposition_rec.status_code, 'dummy') <> nvl(l_disposition_rec.status_code, 'dummy') THEN
1978: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_STATUS_CHNG'); --Disposition Status cannot be changed excepte changed
1979: FND_MSG_PUB.ADD;
1980: END IF;
1981:
1982: --if existing item is null and item group is not null then item need to be enter
2002: p_x_disposition_rec.item_revision,
2003: p_x_disposition_rec.lot_number);
2004: --end Bug#4075758
2005: ELSE
2006: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); --Item is required
2007: FND_MSG_PUB.ADD;
2008: END IF;
2009: ELSE --ignore the new organization id change just use the existing one
2010: p_x_disposition_rec.item_org_id := l_disposition_rec.organization_id;
2021: END IF;
2022:
2023: --Validate Quantity Change
2024: IF p_x_disposition_rec.quantity IS NULL AND l_pos_empty <> TRUE THEN
2025: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
2026: FND_MSG_PUB.ADD;
2027: ELSIF p_x_disposition_rec.quantity <= 0 THEN
2028: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
2029: FND_MSG_PUB.ADD;
2024: IF p_x_disposition_rec.quantity IS NULL AND l_pos_empty <> TRUE THEN
2025: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
2026: FND_MSG_PUB.ADD;
2027: ELSIF p_x_disposition_rec.quantity <= 0 THEN
2028: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
2029: FND_MSG_PUB.ADD;
2030: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
2031: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
2032: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
2028: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
2029: FND_MSG_PUB.ADD;
2030: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
2031: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
2032: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
2033: FND_MSG_PUB.ADD;
2034: END IF;
2035:
2036: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
2034: END IF;
2035:
2036: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
2037: IF p_x_disposition_rec.instance_id IS NOT NULL THEN
2038: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
2039: FND_MSG_PUB.ADD;
2040: END IF;
2041: */
2042:
2041: */
2042:
2043: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
2044: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
2045: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
2046: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
2047: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
2048: FND_MSG_PUB.ADD;
2049: END IF;
2042:
2043: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
2044: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
2045: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
2046: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
2047: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
2048: FND_MSG_PUB.ADD;
2049: END IF;
2050:
2043: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
2044: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
2045: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
2046: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
2047: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
2048: FND_MSG_PUB.ADD;
2049: END IF;
2050:
2051: END IF;
2085: IF p_x_disposition_rec.collection_id IS NULL THEN
2086: OPEN is_qa_coll_reqd(l_plan_id);
2087: FETCH is_qa_coll_reqd INTO l_dummy;
2088: IF(is_qa_coll_reqd%FOUND) THEN
2089: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
2090: FND_MSG_PUB.ADD;
2091: END IF;
2092: CLOSE is_qa_coll_reqd;
2093: ELSE
2107: AND
2108: ( p_x_disposition_rec.summary IS NOT NULL OR p_x_disposition_rec.problem_code IS NOT NULL
2109: OR p_x_disposition_rec.severity_id IS NOT NULL
2110: )) THEN
2111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
2112: FND_MSG_PUB.ADD;
2113: END IF;
2114:
2115: -- create service request and non-routine job
2126: IF (p_x_disposition_rec.create_work_order_option = 'CREATE_WO_NO') THEN
2127: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
2128: FETCH chk_non_serialized_csr INTO l_dummy;
2129: IF (chk_non_serialized_csr%FOUND) THEN
2130: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
2131: FND_MSG_PUB.ADD;
2132: END IF;
2133: CLOSE chk_non_serialized_csr;
2134: END IF;
3062: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3064: END IF;
3065: -- Raise an Exception
3066: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3067: FND_MSG_PUB.ADD;
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070: END IF;
3086: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3088: END IF;
3089: -- Raise an Exception
3090: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3091: FND_MSG_PUB.ADD;
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: END IF;
3417: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
3418:
3419: --WORKORDER
3420: IF (p_disposition_rec.workorder_id IS NULL) THEN
3421: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_REQ'); -- Workorder is required to create disposition.
3422: FND_MSG_PUB.ADD;
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSE
3425: validate_workorder(p_disposition_rec.workorder_id);
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSE
3425: validate_workorder(p_disposition_rec.workorder_id);
3426: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
3427: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Create Disposition Because Workorder is not editable.
3428: FND_MSG_PUB.ADD;
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: END IF;
3430: END IF;
3431: END IF;
3432:
3433: IF (p_disposition_rec.path_position_id IS NULL AND p_disposition_rec.inventory_item_id IS NULL) THEN
3434: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_OR_ITEM_REQ'); --Path Position or Item is required to create a disposition
3435: FND_MSG_PUB.ADD;
3436: RAISE FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3436: RAISE FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3439: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
3440: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_CANNOT_ENTER_ORG'); --Cannot enter organization id.
3441: FND_MSG_PUB.ADD;
3442: END IF;
3443:
3444: -- Validate Part Change and get details
3448: l_pc_inst_instance_id,
3449: l_pc_type;
3450: IF (part_change_csr%NOTFOUND) THEN
3451: CLOSE part_change_csr;
3452: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3453: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3454: FND_MSG_PUB.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3449: l_pc_type;
3450: IF (part_change_csr%NOTFOUND) THEN
3451: CLOSE part_change_csr;
3452: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3453: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3454: FND_MSG_PUB.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: CLOSE part_change_csr;
3496: IF (l_srl_flag = 'Y') THEN
3497: OPEN exist_position_csr(p_disposition_rec.path_position_id, p_disposition_rec.workorder_id);
3498: FETCH exist_position_csr INTO l_exist;
3499: IF(exist_position_csr%FOUND) THEN
3500: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_OTHER');
3501: FND_MSG_PUB.ADD;
3502: END IF;
3503: CLOSE exist_position_csr;
3504: END IF; -- if l_srl_flag = 'Y'
3507:
3508: --Check if workorder's instance is in UC tree
3509: l_unit_instance_id := get_unit_instance_id(p_disposition_rec.workorder_id);
3510: IF(l_unit_instance_id IS NULL) THEN
3511: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_UC_NO_POS'); --Workorder's instance does not belong to UC hence path position is not allowed
3512: FND_MSG_PUB.ADD;
3513: RAISE FND_API.G_EXC_ERROR;
3514: END IF;
3515:
3557: -- Check if removal was done or not.
3558: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3559: -- Ensure that the disposition instance is the same as the removed instance.
3560: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3561: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3562: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: ELSE
3558: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3559: -- Ensure that the disposition instance is the same as the removed instance.
3560: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3561: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3562: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: ELSE
3566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_NOT_WO_UC'); --Position is not in the same Unit Configuration as that of workorder instance.
3562: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: ELSE
3566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_NOT_WO_UC'); --Position is not in the same Unit Configuration as that of workorder instance.
3567: FND_MSG_PUB.ADD;
3568: END IF; -- part change check
3569: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_NOT_WO_UC'); --Position is not in the same Unit Configuration as that of workorder instance.
3567: FND_MSG_PUB.ADD;
3568: END IF; -- part change check
3569: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3571: FND_MSG_PUB.ADD;
3572: ELSIF (l_mapping_status = 'EMPTY') THEN
3573: -- Check if this create_disposition is called from Part Change
3574: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3575: IF (l_pc_type = G_PART_CHANGE_REMOVE) THEN
3576: -- Disposition is for the removed instance
3577: -- Ensure that the disposition instance is the same as the removed instance
3578: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3579: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3580: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3581: FND_MSG_PUB.ADD;
3582: END IF;
3583: ELSE
3576: -- Disposition is for the removed instance
3577: -- Ensure that the disposition instance is the same as the removed instance
3578: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3579: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3580: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3581: FND_MSG_PUB.ADD;
3582: END IF;
3583: ELSE
3584: -- G_PART_CHANGE_INSTALL and G_PART_CHANGE_SWAP are not possible since the position is empty
3587: END IF;
3588: ELSE
3589: l_position_empty := TRUE;
3590: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3591: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_INST'); --Position is empty cannot enter instance number.
3592: FND_MSG_PUB.ADD;
3593: END IF;
3594: --Check if parent instance of this empty position is in the same tree as workorder instance
3595: OPEN get_wo_instance_id(p_disposition_rec.workorder_id);
3609: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3610: END IF;
3611:
3612: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3613: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_POS_NOT_WO_UC'); -- Instance is not in the same unit as workorder instance
3614: FND_MSG_PUB.ADD;
3615: RAISE FND_API.G_EXC_ERROR;
3616: END IF;
3617: END IF;
3622: -- Position is not empty and Part Change has already happened
3623: IF (l_pc_type = G_PART_CHANGE_INSTALL) THEN
3624: -- Disposition is for the empty position (before the install)
3625: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3626: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3627: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3628: FND_MSG_PUB.ADD;
3629: RAISE FND_API.G_EXC_ERROR;
3630: END IF;
3623: IF (l_pc_type = G_PART_CHANGE_INSTALL) THEN
3624: -- Disposition is for the empty position (before the install)
3625: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3626: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3627: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3628: FND_MSG_PUB.ADD;
3629: RAISE FND_API.G_EXC_ERROR;
3630: END IF;
3631: l_position_empty := TRUE;
3632: ELSIF (l_pc_type = G_PART_CHANGE_SWAP) THEN
3633: -- Disposition is for the instance that was swapped out
3634: -- Ensure that the disposition instance is the same as the removed instance
3635: IF (NVL(p_disposition_rec.instance_id, l_pc_rem_instance_id) <> l_pc_rem_instance_id) THEN
3636: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3637: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3638: FND_MSG_PUB.ADD;
3639: END IF;
3640: ELSE
3633: -- Disposition is for the instance that was swapped out
3634: -- Ensure that the disposition instance is the same as the removed instance
3635: IF (NVL(p_disposition_rec.instance_id, l_pc_rem_instance_id) <> l_pc_rem_instance_id) THEN
3636: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3637: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3638: FND_MSG_PUB.ADD;
3639: END IF;
3640: ELSE
3641: -- G_PART_CHANGE_REMOVE is not possible since the position is not empty
3643: NULL;
3644: END IF;
3645: ELSE
3646: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3647: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3648: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3649: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3650: FND_MSG_PUB.ADD;
3651: END IF;
3644: END IF;
3645: ELSE
3646: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3647: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3648: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3649: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3650: FND_MSG_PUB.ADD;
3651: END IF;
3652: END IF; -- Part Change
3645: ELSE
3646: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3647: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3648: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3649: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3650: FND_MSG_PUB.ADD;
3651: END IF;
3652: END IF; -- Part Change
3653: END IF; -- l_mapping_status
3660: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3662: END IF;
3663: IF (l_position_empty = TRUE) THEN
3664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3665: FND_MSG_PUB.ADD;
3666: END IF;
3667:
3668: validate_item(p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id, p_disposition_rec.workorder_id);
3675: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3676: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3677: FETCH item_in_itemgrp_csr INTO l_exist;
3678: IF item_in_itemgrp_csr%NOTFOUND THEN
3679: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_NOT_IN_ITMGRP'); --Item does not belong to the item group
3680: FND_MSG_PUB.ADD;
3681: END IF;
3682: CLOSE item_in_itemgrp_csr;
3683: END IF; -- item_group_id is not null
3689: CLOSE item_is_ib_trackable;
3690: IF( item_is_trackable ='Y') THEN
3691: IF (p_disposition_rec.instance_id IS NULL) THEN
3692: -- validation to force the user to pick an instance if Disposition Item is Trackable in the IB
3693: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_TR_ITEM_INST_MAND'); -- Invalid item group
3694: FND_MESSAGE.Set_Token('ITEM_NAME',p_disposition_rec.item_number);
3695: FND_MSG_PUB.ADD;
3696: END IF;
3697: ELSE --start fix Bug#4075758 Item is non-tracked
3690: IF( item_is_trackable ='Y') THEN
3691: IF (p_disposition_rec.instance_id IS NULL) THEN
3692: -- validation to force the user to pick an instance if Disposition Item is Trackable in the IB
3693: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_TR_ITEM_INST_MAND'); -- Invalid item group
3694: FND_MESSAGE.Set_Token('ITEM_NAME',p_disposition_rec.item_number);
3695: FND_MSG_PUB.ADD;
3696: END IF;
3697: ELSE --start fix Bug#4075758 Item is non-tracked
3698: validate_Item_Control(p_disposition_rec.inventory_item_id , p_disposition_rec.item_org_id,
3712: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3713: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3714: FETCH val_item_group_csr INTO l_exist;
3715: IF (val_item_group_csr%NOTFOUND) THEN
3716: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_GRP'); -- Invalid item group
3717: FND_MSG_PUB.ADD;
3718: END IF;
3719: CLOSE val_item_group_csr;
3720:
3718: END IF;
3719: CLOSE val_item_group_csr;
3720:
3721: IF(p_disposition_rec.inventory_item_Id IS NULL) THEN
3722: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITMGRP_REQ_ITM'); --Since item group is present, item number needs to be entered.
3723: FND_MSG_PUB.ADD;
3724: END IF;
3725: --path position id exist then item group must be null
3726: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3723: FND_MSG_PUB.ADD;
3724: END IF;
3725: --path position id exist then item group must be null
3726: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3727: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_ITMGRP'); -- Can only enter either position or item group but not both.
3728: FND_MSG_PUB.ADD;
3729: END IF;
3730: END IF; -- item_group_id is not null
3731:
3740: p_disposition_rec.path_position_id,
3741: p_disposition_rec.part_change_id);
3742:
3743: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3744: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3745: FND_MSG_PUB.ADD;
3746: ELSE
3747: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3748: FETCH get_item_id_csr INTO l_item_id;
3746: ELSE
3747: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3748: FETCH get_item_id_csr INTO l_item_id;
3749: IF l_item_id <> p_disposition_rec.inventory_item_id THEN
3750: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_NO_MATCH'); -- Item does not match with instance's item.
3751: FND_MSG_PUB.ADD;
3752: END IF;
3753: CLOSE get_item_id_csr;
3754: END IF;
3760: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3761: END IF;
3762: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3763: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3764: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3765: FND_MSG_PUB.ADD;
3766: ELSE
3767: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3768: FETCH val_lot_number_csr INTO l_exist;
3766: ELSE
3767: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3768: FETCH val_lot_number_csr INTO l_exist;
3769: IF (val_lot_number_csr%NOTFOUND) THEN
3770: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_LOT'); -- Invalid lot_number and item combination
3771: FND_MSG_PUB.ADD;
3772: END IF;
3773: CLOSE val_lot_number_csr;
3774: END IF;
3781: END IF;
3782: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3783: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3784: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number--check item is null', 1, 255));
3785: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item is required
3786: FND_MSG_PUB.ADD;
3787: ELSE
3788: --dbms_output.put_line(SubStr('In Validate_For_Create -- before open val_serial_number_csr', 1, 255));
3789: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3788: --dbms_output.put_line(SubStr('In Validate_For_Create -- before open val_serial_number_csr', 1, 255));
3789: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3790: FETCH val_serial_number_csr INTO l_exist;
3791: IF (val_serial_number_csr%NOTFOUND) THEN
3792: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
3793: FND_MSG_PUB.ADD;
3794: END IF;
3795: CLOSE val_serial_number_csr;
3796: END IF;
3798: END IF;
3799:
3800: --QUANTITY -----------------------------------
3801: IF (p_disposition_rec.quantity IS NULL AND l_position_empty = FALSE) THEN
3802: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); -- Quantity cannot be null
3803: FND_MSG_PUB.ADD;
3804: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3805: IF p_disposition_rec.quantity <= 0 THEN
3806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3802: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); -- Quantity cannot be null
3803: FND_MSG_PUB.ADD;
3804: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3805: IF p_disposition_rec.quantity <= 0 THEN
3806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3807: FND_MSG_PUB.ADD;
3808: END IF;
3809: IF p_disposition_rec.instance_id IS NOT NULL THEN
3810: OPEN instance_quantity_csr(p_disposition_rec.instance_id);
3812: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
3813: -- The quantity check should be modified from '<>' to '>'. Subsequently, the error has been modified to
3814: -- 'Quantity should not be greater than instance quantity'.
3815: IF (p_disposition_rec.quantity > l_quantity) THEN
3816: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
3817: FND_MSG_PUB.ADD;
3818: END IF;
3819: CLOSE instance_quantity_csr;
3820: END IF;
3821: END IF;
3822:
3823: --UOM-------------------------------------------------------------
3824: IF( p_disposition_rec.uom IS NULL AND l_position_empty = FALSE )THEN
3825: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_REQ'); -- UOM cannot be null
3826: FND_MSG_PUB.ADD;
3827: ELSIF ( p_disposition_rec.uom IS NOT NULL) THEN
3828: OPEN val_uom_csr(p_disposition_rec.uom);
3829: FETCH val_uom_csr INTO l_exist;
3827: ELSIF ( p_disposition_rec.uom IS NOT NULL) THEN
3828: OPEN val_uom_csr(p_disposition_rec.uom);
3829: FETCH val_uom_csr INTO l_exist;
3830: IF val_uom_csr%NOTFOUND THEN
3831: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_UOM'); -- Invalid UOM.
3832: FND_MSG_PUB.ADD;
3833: END IF;
3834: CLOSE val_uom_csr;
3835:
3836: IF p_disposition_rec.instance_id IS NOT NULL THEN
3837: OPEN instance_uom_csr(p_disposition_rec.instance_id);
3838: FETCH instance_uom_csr INTO l_uom;
3839: IF (p_disposition_rec.uom <> l_uom) THEN
3840: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_INST_UOM'); -- Invalid UOM. UOM must be the same as instance's UOM.
3841: FND_MSG_PUB.ADD;
3842: END IF;
3843: CLOSE instance_uom_csr;
3844: END IF;
3846: IF p_disposition_rec.inventory_item_id IS NOT NULL THEN
3847: OPEN item_class_uom_csr(p_disposition_rec.uom, p_disposition_rec.inventory_item_id);
3848: FETCH item_class_uom_csr into l_exist;
3849: IF item_class_uom_csr%NOTFOUND THEN
3850: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_UOM'); -- Invalid UOM. UOM must belong to the item's primary uom
3851: FND_MSG_PUB.ADD;
3852: END IF;
3853: CLOSE item_class_uom_csr;
3854: END IF;
3876: IF p_disposition_rec.collection_id IS NULL THEN
3877: OPEN is_qa_coll_reqd(l_plan_id);
3878: FETCH is_qa_coll_reqd INTO l_dummy;
3879: IF(is_qa_coll_reqd%FOUND) THEN
3880: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
3881: FND_MSG_PUB.ADD;
3882: END IF;
3883: CLOSE is_qa_coll_reqd;
3884: ELSE
3894: )AND
3895: ( p_disposition_rec.summary IS NOT NULL OR p_disposition_rec.problem_code IS NOT NULL
3896: OR p_disposition_rec.severity_id IS NOT NULL
3897: )) THEN
3898: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
3899: FND_MSG_PUB.ADD;
3900: END IF;
3901:
3902: --OPERATION_ID--------------------------------------------------------
3906:
3907: --validate item revision--------------------------------------------------------
3908: IF (p_disposition_rec.item_revision IS NOT NULL) THEN
3909: IF p_disposition_rec.inventory_item_id IS NULL THEN
3910: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_ITM_REV_REQ_ITM'); --Cannot enter an item revision without entering item
3911: FND_MSG_PUB.ADD;
3912: ELSE
3913: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3914: FETCH item_revisions_csr INTO l_exist;
3912: ELSE
3913: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3914: FETCH item_revisions_csr INTO l_exist;
3915: IF item_revisions_csr%NOTFOUND THEN
3916: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_ITEM_REV'); --Invalid item revision
3917: FND_MSG_PUB.ADD;
3918: END IF;
3919: CLOSE item_revisions_csr;
3920: END IF;
4007: IF (p_x_prd_disposition_rec.instance_number IS NOT NULL AND p_x_prd_disposition_rec.instance_number <> FND_API.G_MISS_CHAR) THEN
4008: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
4009: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
4010: IF(instance_id_csr%NOTFOUND) THEN
4011: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
4012: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: CLOSE instance_id_csr;
4008: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
4009: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
4010: IF(instance_id_csr%NOTFOUND) THEN
4011: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
4012: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: CLOSE instance_id_csr;
4016: ELSIF(p_x_prd_disposition_rec.instance_number = FND_API.G_MISS_CHAR) THEN
4020: IF (p_x_prd_disposition_rec.item_group_name IS NOT NULL AND p_x_prd_disposition_rec.item_group_name <> FND_API.G_MISS_CHAR) THEN
4021: OPEN item_group_id_csr(p_x_prd_disposition_rec.item_group_name);
4022: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
4023: IF(item_group_id_csr%NOTFOUND) THEN
4024: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
4025: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
4026: FND_MSG_PUB.ADD;
4027: END IF;
4028: CLOSE item_group_id_csr;
4021: OPEN item_group_id_csr(p_x_prd_disposition_rec.item_group_name);
4022: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
4023: IF(item_group_id_csr%NOTFOUND) THEN
4024: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
4025: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
4026: FND_MSG_PUB.ADD;
4027: END IF;
4028: CLOSE item_group_id_csr;
4029: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
4037: IF (p_x_prd_disposition_rec.item_number IS NOT NULL AND p_x_prd_disposition_rec.item_number <> FND_API.G_MISS_CHAR) THEN
4038: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
4039: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
4040: IF(item_id_csr%NOTFOUND) THEN
4041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
4042: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
4043: FND_MSG_PUB.ADD;
4044: END IF;
4045: CLOSE item_id_csr;
4038: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
4039: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
4040: IF(item_id_csr%NOTFOUND) THEN
4041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
4042: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
4043: FND_MSG_PUB.ADD;
4044: END IF;
4045: CLOSE item_id_csr;
4046: ELSIF(p_x_prd_disposition_rec.item_number = FND_API.G_MISS_CHAR) THEN
4050: IF (p_x_prd_disposition_rec.operation_sequence IS NOT NULL AND p_x_prd_disposition_rec.operation_sequence <> FND_API.G_MISS_NUM) THEN
4051: OPEN wo_operation_id_csr(p_x_prd_disposition_rec.workorder_id, p_x_prd_disposition_rec.operation_sequence);
4052: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
4053: IF(wo_operation_id_csr%NOTFOUND) THEN
4054: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
4055: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
4056: FND_MSG_PUB.ADD;
4057: END IF;
4058: CLOSE wo_operation_id_csr;
4051: OPEN wo_operation_id_csr(p_x_prd_disposition_rec.workorder_id, p_x_prd_disposition_rec.operation_sequence);
4052: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
4053: IF(wo_operation_id_csr%NOTFOUND) THEN
4054: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
4055: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
4056: FND_MSG_PUB.ADD;
4057: END IF;
4058: CLOSE wo_operation_id_csr;
4059: ELSIF(p_x_prd_disposition_rec.operation_sequence = FND_API.G_MISS_NUM) THEN
4063: IF (p_x_prd_disposition_rec.condition_meaning IS NOT NULL AND p_x_prd_disposition_rec.condition_meaning <> FND_API.G_MISS_CHAR) THEN
4064: OPEN condition_id_csr(p_x_prd_disposition_rec.condition_meaning);
4065: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
4066: IF(condition_id_csr%NOTFOUND) THEN
4067: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
4068: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
4069: FND_MSG_PUB.ADD;
4070: END IF;
4071: CLOSE condition_id_csr;
4064: OPEN condition_id_csr(p_x_prd_disposition_rec.condition_meaning);
4065: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
4066: IF(condition_id_csr%NOTFOUND) THEN
4067: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
4068: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
4069: FND_MSG_PUB.ADD;
4070: END IF;
4071: CLOSE condition_id_csr;
4072: ELSIF(p_x_prd_disposition_rec.condition_meaning = FND_API.G_MISS_CHAR) THEN
4076: IF (p_x_prd_disposition_rec.severity_name IS NOT NULL AND p_x_prd_disposition_rec.severity_name <> FND_API.G_MISS_CHAR) THEN
4077: OPEN severity_id_csr( p_x_prd_disposition_rec.severity_name);
4078: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
4079: IF(severity_id_csr%NOTFOUND) THEN
4080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
4081: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: CLOSE severity_id_csr;
4077: OPEN severity_id_csr( p_x_prd_disposition_rec.severity_name);
4078: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
4079: IF(severity_id_csr%NOTFOUND) THEN
4080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
4081: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: CLOSE severity_id_csr;
4085: ELSIF(p_x_prd_disposition_rec.severity_name = FND_API.G_MISS_CHAR) THEN
4089: IF (p_x_prd_disposition_rec.problem_meaning IS NOT NULL AND p_x_prd_disposition_rec.problem_meaning <> FND_API.G_MISS_CHAR) THEN
4090: OPEN problem_code_csr( p_x_prd_disposition_rec.problem_meaning);
4091: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
4092: IF(problem_code_csr%NOTFOUND) THEN
4093: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
4094: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
4095: FND_MSG_PUB.ADD;
4096: END IF;
4097: CLOSE problem_code_csr;
4090: OPEN problem_code_csr( p_x_prd_disposition_rec.problem_meaning);
4091: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
4092: IF(problem_code_csr%NOTFOUND) THEN
4093: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
4094: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
4095: FND_MSG_PUB.ADD;
4096: END IF;
4097: CLOSE problem_code_csr;
4098: ELSIF(p_x_prd_disposition_rec.problem_meaning = FND_API.G_MISS_CHAR) THEN
4106: IF (p_x_prd_disposition_rec.service_type IS NOT NULL AND p_x_prd_disposition_rec.service_type <> FND_API.G_MISS_CHAR) THEN
4107: OPEN service_type_code_csr( p_x_prd_disposition_rec.service_type);
4108: FETCH service_type_code_csr INTO p_x_prd_disposition_rec.service_type_code;
4109: IF(service_type_code_csr%NOTFOUND) THEN
4110: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_SERVICE_TYPE_INVALID');
4111: FND_MSG_PUB.ADD;
4112: END IF;
4113: CLOSE service_type_code_csr;
4114: ELSIF(p_x_prd_disposition_rec.service_type = FND_API.G_MISS_CHAR) THEN
4140: IF p_collection_id IS NOT NULL THEN
4141: OPEN val_collection_id_csr(p_collection_id);
4142: FETCH val_collection_id_csr into l_exist;
4143: IF val_collection_id_csr%NOTFOUND THEN
4144: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_COLLECTION_ID'); -- Invalid collection Id
4145: FND_MESSAGE.Set_Token('COLL_ID', p_collection_id);
4146: FND_MSG_PUB.ADD;
4147: END IF;
4148: END IF;
4141: OPEN val_collection_id_csr(p_collection_id);
4142: FETCH val_collection_id_csr into l_exist;
4143: IF val_collection_id_csr%NOTFOUND THEN
4144: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_COLLECTION_ID'); -- Invalid collection Id
4145: FND_MESSAGE.Set_Token('COLL_ID', p_collection_id);
4146: FND_MSG_PUB.ADD;
4147: END IF;
4148: END IF;
4149: END validate_collection_id;
4160: BEGIN
4161: OPEN workorder_csr(p_workorder_id);
4162: FETCH workorder_csr INTO l_exist;
4163: IF workorder_csr%NOTFOUND THEN
4164: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
4165: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
4166: FND_MSG_PUB.ADD;
4167: CLOSE workorder_csr;
4168: RAISE FND_API.G_EXC_ERROR;
4161: OPEN workorder_csr(p_workorder_id);
4162: FETCH workorder_csr INTO l_exist;
4163: IF workorder_csr%NOTFOUND THEN
4164: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
4165: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
4166: FND_MSG_PUB.ADD;
4167: CLOSE workorder_csr;
4168: RAISE FND_API.G_EXC_ERROR;
4169: ELSE
4184: BEGIN
4185: OPEN path_position_csr(p_path_position_id);
4186: FETCH path_position_csr INTO l_exist;
4187: IF path_position_csr%NOTFOUND THEN
4188: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
4189: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
4190: FND_MSG_PUB.ADD;
4191: CLOSE path_position_csr;
4192: RAISE FND_API.G_EXC_ERROR;
4185: OPEN path_position_csr(p_path_position_id);
4186: FETCH path_position_csr INTO l_exist;
4187: IF path_position_csr%NOTFOUND THEN
4188: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
4189: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
4190: FND_MSG_PUB.ADD;
4191: CLOSE path_position_csr;
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSE
4218: OPEN val_item_csr(p_inventory_item_id, p_organization_id);
4219: FETCH val_item_csr INTO l_exist;
4220: IF val_item_csr%NOTFOUND THEN
4221: CLOSE val_item_csr; --Close cursor before raising exception
4222: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
4223: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4224: FND_MSG_PUB.ADD;
4225: RAISE FND_API.G_EXC_ERROR;
4226: END IF;
4219: FETCH val_item_csr INTO l_exist;
4220: IF val_item_csr%NOTFOUND THEN
4221: CLOSE val_item_csr; --Close cursor before raising exception
4222: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
4223: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4224: FND_MSG_PUB.ADD;
4225: RAISE FND_API.G_EXC_ERROR;
4226: END IF;
4227: CLOSE val_item_csr;
4236: OPEN val_item_csr(p_inventory_item_id, l_wo_organization_id);
4237: FETCH val_item_csr INTO l_exist;
4238: IF val_item_csr%NOTFOUND THEN
4239: CLOSE val_item_csr; --close cursor before raise an exception
4240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
4241: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4242: FND_MSG_PUB.ADD;
4243: RAISE FND_API.G_EXC_ERROR;
4244: END IF;
4237: FETCH val_item_csr INTO l_exist;
4238: IF val_item_csr%NOTFOUND THEN
4239: CLOSE val_item_csr; --close cursor before raise an exception
4240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
4241: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4242: FND_MSG_PUB.ADD;
4243: RAISE FND_API.G_EXC_ERROR;
4244: END IF;
4245: CLOSE val_item_csr;
4293: END IF;
4294: CLOSE item_control_csr;
4295:
4296: IF l_serial_flag = 'Y' AND p_serial_number IS NULL THEN
4297: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_SERIAL_REQ'); --Serial Number is required
4298: FND_MSG_PUB.ADD;
4299: END IF;
4300:
4301: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
4298: FND_MSG_PUB.ADD;
4299: END IF;
4300:
4301: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
4302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_ITEM_REV_REQ'); --Item Revision Number is required
4303: FND_MSG_PUB.ADD;
4304: END IF;
4305:
4306: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
4303: FND_MSG_PUB.ADD;
4304: END IF;
4305:
4306: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
4307: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_REQ'); --Lot Number is required
4308: FND_MSG_PUB.ADD;
4309: END IF;
4310:
4311: END validate_Item_Control;
4369:
4370: OPEN instance_csr(p_instance_id);
4371: FETCH instance_csr INTO l_exist;
4372: IF instance_csr%NOTFOUND THEN
4373: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
4374: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_instance_id);
4375: FND_MSG_PUB.ADD;
4376: END IF;
4377: CLOSE instance_csr;
4370: OPEN instance_csr(p_instance_id);
4371: FETCH instance_csr INTO l_exist;
4372: IF instance_csr%NOTFOUND THEN
4373: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
4374: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_instance_id);
4375: FND_MSG_PUB.ADD;
4376: END IF;
4377: CLOSE instance_csr;
4378:
4394: IF (l_unit_config_name IS NULL AND p_part_change_id IS NOT NULL) THEN
4395: -- IB Tree, Disposition created from Part Change UI: Allow duplicates
4396: NULL;
4397: ELSE
4398: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_DISP'); --Instance already exist in another not-completed or not-terminated disposition.
4399: FND_MSG_PUB.ADD;
4400: END IF;
4401: -- End changes by jaramana on August 7, 2007 to support IB Trees
4402: END IF;
4431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4436: FND_MSG_PUB.ADD;
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF; -- Root Instances are not the same
4439: END IF; -- l_wo_instance_id <> p_instance_id
4452: OPEN instance_in_wip_csr(p_instance_id, p_workorder_id);
4453: FETCH instance_in_wip_csr INTO l_exist;
4454: IF instance_in_wip_csr%NOTFOUND THEN
4455: CLOSE instance_in_wip_csr;
4456: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INST_NOT_ISSUED'); -- Instance is not issued to the job
4457: FND_MSG_PUB.ADD;
4458: RAISE FND_API.G_EXC_ERROR;
4459: END IF;
4460: CLOSE instance_in_wip_csr;
4478: BEGIN
4479: OPEN val_wo_operation_csr(p_workorder_id, p_wo_operation_id);
4480: FETCH val_wo_operation_csr INTO l_exist;
4481: IF val_wo_operation_csr%NOTFOUND THEN
4482: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_OPERATION'); --Invalid operation id.
4483: FND_MESSAGE.SET_TOKEN('OPER_ID', p_wo_operation_id);
4484: FND_MSG_PUB.ADD;
4485: END IF;
4486: CLOSE val_wo_operation_csr;
4479: OPEN val_wo_operation_csr(p_workorder_id, p_wo_operation_id);
4480: FETCH val_wo_operation_csr INTO l_exist;
4481: IF val_wo_operation_csr%NOTFOUND THEN
4482: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_OPERATION'); --Invalid operation id.
4483: FND_MESSAGE.SET_TOKEN('OPER_ID', p_wo_operation_id);
4484: FND_MSG_PUB.ADD;
4485: END IF;
4486: CLOSE val_wo_operation_csr;
4487:
4532:
4533: OPEN part_change_csr;
4534: FETCH part_change_csr INTO l_removed_instance_id, l_installed_instance_id, l_part_change_type, l_part_change_quantity;
4535: IF part_change_csr%NOTFOUND THEN
4536: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
4537: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_part_change_id);
4538: FND_MSG_PUB.ADD;
4539: ELSIF (l_part_change_type IN ('R', 'S')) THEN -- Remove or Swap
4540: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4533: OPEN part_change_csr;
4534: FETCH part_change_csr INTO l_removed_instance_id, l_installed_instance_id, l_part_change_type, l_part_change_quantity;
4535: IF part_change_csr%NOTFOUND THEN
4536: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
4537: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_part_change_id);
4538: FND_MSG_PUB.ADD;
4539: ELSIF (l_part_change_type IN ('R', 'S')) THEN -- Remove or Swap
4540: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4541: -- Compare instances only if it is serialized.
4540: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4541: -- Compare instances only if it is serialized.
4542: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4543: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4544: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4545: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4546: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4547: FND_MSG_PUB.ADD;
4548: END IF;
4541: -- Compare instances only if it is serialized.
4542: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4543: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4544: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4545: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4546: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4547: FND_MSG_PUB.ADD;
4548: END IF;
4549: ELSE
4542: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4543: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4544: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4545: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4546: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4547: FND_MSG_PUB.ADD;
4548: END IF;
4549: ELSE
4550: -- Non-serialized: Removed instance can be different from the Disposition Instance.
4567: ', l_part_change_quantity ' || l_part_change_quantity);
4568: END IF;
4569:
4570: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4571: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4572: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4573: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4574: FND_MSG_PUB.ADD;
4575: END IF; -- Item and Quantity Mismatch
4568: END IF;
4569:
4570: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4571: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4572: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4573: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4574: FND_MSG_PUB.ADD;
4575: END IF; -- Item and Quantity Mismatch
4576: END IF; -- Instances are different
4569:
4570: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4571: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4572: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4573: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4574: FND_MSG_PUB.ADD;
4575: END IF; -- Item and Quantity Mismatch
4576: END IF; -- Instances are different
4577: END IF; -- Disp Instance's Serial Number is null or not
4579: -- Changed since the disposition instance will always
4580: -- (even after installation) be null for a disposition created against an empty position
4581: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4582: IF p_disp_instance_id IS NOT NULL AND l_installed_instance_id IS NOT NULL AND p_disp_instance_id <> l_installed_instance_id THEN
4583: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_INSTALL_INST'); -- Installed instance in part change is not the same as disposition instance
4584: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4585: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4586: FND_MSG_PUB.ADD;
4587: END IF; -- Disposition Instance is not the same as the Installation Instance
4580: -- (even after installation) be null for a disposition created against an empty position
4581: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4582: IF p_disp_instance_id IS NOT NULL AND l_installed_instance_id IS NOT NULL AND p_disp_instance_id <> l_installed_instance_id THEN
4583: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_INSTALL_INST'); -- Installed instance in part change is not the same as disposition instance
4584: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4585: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4586: FND_MSG_PUB.ADD;
4587: END IF; -- Disposition Instance is not the same as the Installation Instance
4588: END IF; -- Part Change Found, and Part Change Type Check
4581: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4582: IF p_disp_instance_id IS NOT NULL AND l_installed_instance_id IS NOT NULL AND p_disp_instance_id <> l_installed_instance_id THEN
4583: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_INSTALL_INST'); -- Installed instance in part change is not the same as disposition instance
4584: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4585: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4586: FND_MSG_PUB.ADD;
4587: END IF; -- Disposition Instance is not the same as the Installation Instance
4588: END IF; -- Part Change Found, and Part Change Type Check
4589: CLOSE part_change_csr;
4929: --Validate that the immediate disposition type is valid
4930: OPEN check_immed_disp_types_csr (p_disposition_rec.immediate_disposition_code);
4931: FETCH check_immed_disp_types_csr into l_dummy;
4932: IF (check_immed_disp_types_csr%NOTFOUND) THEN
4933: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_TYPE_INV');
4934: FND_MSG_PUB.ADD;
4935: END IF;
4936: CLOSE check_immed_disp_types_csr;
4937:
4939: IF (p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4940: OPEN check_second_disp_types_csr (p_disposition_rec.secondary_disposition_code);
4941: FETCH check_second_disp_types_csr into l_dummy;
4942: IF (check_second_disp_types_csr%NOTFOUND) THEN
4943: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4944: FND_MSG_PUB.ADD;
4945: END IF;
4946: CLOSE check_second_disp_types_csr;
4947: END IF;
4948:
4949: OPEN check_condition_csr (p_disposition_rec.condition_id);
4950: FETCH check_condition_csr into l_dummy;
4951: IF (check_condition_csr%NOTFOUND) THEN
4952: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_CONDITION_INV');
4953: FND_MSG_PUB.ADD;
4954: END IF;
4955: CLOSE check_condition_csr;
4956:
4965: IF (p_disposition_rec.secondary_disposition_code <> 'REWORK_NR' AND
4966: p_disposition_rec.secondary_disposition_code <> 'SCRAP' AND
4967: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4968: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4969: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4970: FND_MSG_PUB.ADD;
4971: --If SCRAP, condition has to be MRB
4972: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4973: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4970: FND_MSG_PUB.ADD;
4971: --If SCRAP, condition has to be MRB
4972: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4973: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4974: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4975: FND_MSG_PUB.ADD;
4976: END IF;
4977:
4978: ELSE
4979: --Use_as_is means condition must be serviceable
4980: IF (p_disposition_rec.immediate_disposition_code = 'USE_AS_IS' AND
4981: (p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') OR
4982: p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))) THEN
4983: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4984: FND_MSG_PUB.ADD;
4985: END IF;
4986: --SCRAP means condition is MRB
4987: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4985: END IF;
4986: --SCRAP means condition is MRB
4987: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4988: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4989: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4990: FND_MSG_PUB.ADD;
4991: END IF;
4992: --not BFS or NON_CONF, secondary must be null
4993: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4990: FND_MSG_PUB.ADD;
4991: END IF;
4992: --not BFS or NON_CONF, secondary must be null
4993: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4995: FND_MSG_PUB.ADD;
4996: END IF;
4997: END IF;
4998:
5014: END IF;
5015:
5016: IF (p_disposition_rec.secondary_disposition_code IN ('REWORK_RR', 'REWORK_NR') AND
5017: l_trackable_flag = 'N') THEN
5018: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
5019: FND_MSG_PUB.ADD;
5020: END IF;
5021:
5022: --Validate against existing state in update case.
5026: --2a) Fetch the existing state.
5027: OPEN get_disp_rec_csr (p_disposition_rec.disposition_id);
5028: FETCH get_disp_rec_csr INTO l_disp_rec;
5029: IF (get_disp_rec_csr%NOTFOUND) THEN
5030: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
5031: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
5032: FND_MSG_PUB.ADD;
5033: RAISE FND_API.G_EXC_ERROR;
5034: END IF;
5027: OPEN get_disp_rec_csr (p_disposition_rec.disposition_id);
5028: FETCH get_disp_rec_csr INTO l_disp_rec;
5029: IF (get_disp_rec_csr%NOTFOUND) THEN
5030: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
5031: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
5032: FND_MSG_PUB.ADD;
5033: RAISE FND_API.G_EXC_ERROR;
5034: END IF;
5035: CLOSE get_disp_rec_csr;
5037: --Validate that condition id flows only 1 way.
5038: --'MRB' must stay as MRB
5039: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
5040: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5042: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5043: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5044: FND_MSG_PUB.ADD;
5045: --Unserviceable cannot become serviceable
5038: --'MRB' must stay as MRB
5039: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
5040: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5042: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5043: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5044: FND_MSG_PUB.ADD;
5045: --Unserviceable cannot become serviceable
5046: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5039: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
5040: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5042: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5043: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5044: FND_MSG_PUB.ADD;
5045: --Unserviceable cannot become serviceable
5046: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5047: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5045: --Unserviceable cannot become serviceable
5046: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5047: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5048: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5049: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5050: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5051: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5052: FND_MSG_PUB.ADD;
5053: END IF;
5046: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5047: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5048: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5049: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5050: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5051: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5052: FND_MSG_PUB.ADD;
5053: END IF;
5054:
5047: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5048: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5049: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5050: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5051: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5052: FND_MSG_PUB.ADD;
5053: END IF;
5054:
5055: --Validate that Disposition Types are defined correctly
5056: --1) Check that Not Removed and NA are not mapped to Not Received
5057: IF (l_disp_rec.immediate_disposition_code IS NOT NULL) THEN
5058: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
5059: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
5060: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5061: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5062: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5063: FND_MSG_PUB.ADD;
5064: END IF;
5057: IF (l_disp_rec.immediate_disposition_code IS NOT NULL) THEN
5058: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
5059: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
5060: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5061: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5062: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5063: FND_MSG_PUB.ADD;
5064: END IF;
5065:
5058: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
5059: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
5060: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5061: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5062: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5063: FND_MSG_PUB.ADD;
5064: END IF;
5065:
5066: --2) Check that Not Received, BFS, Non_Conf, SCRAP are not changed
5067: --IF ( l_disp_rec.immediate_disposition_code in ('NOT_RECEIVED','BFS','NON_CONF','SCRAP')
5068: --Jerry removed 'NOT_RECEIVED' on 01/17/2005 for fixing bug 4094927
5069: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
5070: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
5071: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5072: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5073: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5074: FND_MSG_PUB.ADD;
5075: END IF;
5068: --Jerry removed 'NOT_RECEIVED' on 01/17/2005 for fixing bug 4094927
5069: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
5070: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
5071: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5072: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5073: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5074: FND_MSG_PUB.ADD;
5075: END IF;
5076:
5069: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
5070: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
5071: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5072: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5073: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5074: FND_MSG_PUB.ADD;
5075: END IF;
5076:
5077: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
5076:
5077: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
5078: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
5079: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
5080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5081: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5082: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5083: FND_MSG_PUB.ADD;
5084: END IF;
5077: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
5078: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
5079: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
5080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5081: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5082: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5083: FND_MSG_PUB.ADD;
5084: END IF;
5085: END IF;
5078: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
5079: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
5080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5081: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5082: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5083: FND_MSG_PUB.ADD;
5084: END IF;
5085: END IF;
5086:
5087: --Validate secondary dispositions
5088: --4) Check if secondary is SCRAP then must stay SCRAP
5089: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
5090: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
5091: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5092: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5093: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5094: FND_MSG_PUB.ADD;
5095: END IF;
5088: --4) Check if secondary is SCRAP then must stay SCRAP
5089: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
5090: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
5091: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5092: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5093: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5094: FND_MSG_PUB.ADD;
5095: END IF;
5096:
5089: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
5090: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
5091: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5092: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5093: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5094: FND_MSG_PUB.ADD;
5095: END IF;
5096:
5097:
5098: --5) Check REWORK_NR means no part change has or is taking place.
5099: IF ( p_disposition_rec.secondary_disposition_code = 'REWORK_NR'
5100: and (l_disp_rec.part_change_id IS NOT NULL
5101: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
5102: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5103: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5104: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5105: FND_MSG_PUB.ADD;
5106: END IF;
5099: IF ( p_disposition_rec.secondary_disposition_code = 'REWORK_NR'
5100: and (l_disp_rec.part_change_id IS NOT NULL
5101: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
5102: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5103: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5104: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5105: FND_MSG_PUB.ADD;
5106: END IF;
5107:
5100: and (l_disp_rec.part_change_id IS NOT NULL
5101: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
5102: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5103: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5104: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5105: FND_MSG_PUB.ADD;
5106: END IF;
5107:
5108: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
5107:
5108: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
5109: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
5110: AND l_disp_rec.trackable_flag = 'N') THEN
5111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5112: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5113: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5114: FND_MSG_PUB.ADD;
5115: END IF;
5108: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
5109: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
5110: AND l_disp_rec.trackable_flag = 'N') THEN
5111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5112: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5113: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5114: FND_MSG_PUB.ADD;
5115: END IF;
5116:
5109: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
5110: AND l_disp_rec.trackable_flag = 'N') THEN
5111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5112: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5113: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5114: FND_MSG_PUB.ADD;
5115: END IF;
5116:
5117: END IF; --G_UPDATE
5568: IF (l_wip_entity_id IS NULL) THEN
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5574: FND_MSG_PUB.ADD;
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSE
5569: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5574: FND_MSG_PUB.ADD;
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSE
5577: -- Additional check added by jaramana on February 23, 2007 for ER 5854667
5590: -- Get the object_version number from csi_item_instances
5591: OPEN ahl_obj_ver_csr;
5592: FETCH ahl_obj_ver_csr INTO l_instance_rec.object_version_number;
5593: IF (ahl_obj_ver_csr%NOTFOUND) THEN
5594: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5595: FND_MESSAGE.Set_Token('INST', p_instance_id);
5596: FND_MSG_PUB.ADD;
5597: CLOSE ahl_obj_ver_csr;
5598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5591: OPEN ahl_obj_ver_csr;
5592: FETCH ahl_obj_ver_csr INTO l_instance_rec.object_version_number;
5593: IF (ahl_obj_ver_csr%NOTFOUND) THEN
5594: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5595: FND_MESSAGE.Set_Token('INST', p_instance_id);
5596: FND_MSG_PUB.ADD;
5597: CLOSE ahl_obj_ver_csr;
5598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5599: ELSE