[Home] [Help]
264: FETCH get_job_attrs INTO l_job_attrs;
265: IF get_job_attrs%NOTFOUND THEN
266: --Comment out this check because the p_workoder_id passed should always be valid
267: /*
268: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
269: FND_MESSAGE.set_token('JOBID', p_workorder_id);
270: FND_MSG_PUB.add;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: CLOSE get_job_attrs;
265: IF get_job_attrs%NOTFOUND THEN
266: --Comment out this check because the p_workoder_id passed should always be valid
267: /*
268: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
269: FND_MESSAGE.set_token('JOBID', p_workorder_id);
270: FND_MSG_PUB.add;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: CLOSE get_job_attrs;
273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
280: END IF;
281: RETURN;
282: ELSIF l_job_attrs.job_status_code IN (4, 12) THEN
283: --Complete(4) and Closed(12)
284: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
285: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
286: FND_MSG_PUB.add;
287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: CLOSE get_job_attrs;
281: RETURN;
282: ELSIF l_job_attrs.job_status_code IN (4, 12) THEN
283: --Complete(4) and Closed(12)
284: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
285: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
286: FND_MSG_PUB.add;
287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: CLOSE get_job_attrs;
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: CLOSE get_job_attrs;
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290: ELSIF l_job_attrs.item_instance_id IS NULL THEN
291: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
292: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
293: FND_MSG_PUB.add;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295: CLOSE get_job_attrs;
288: CLOSE get_job_attrs;
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290: ELSIF l_job_attrs.item_instance_id IS NULL THEN
291: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
292: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
293: FND_MSG_PUB.add;
294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295: CLOSE get_job_attrs;
296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
359: OPEN get_mtl_req_flags(l_route_mtl_req_tbl(i).rt_oper_material_id);
360: FETCH get_mtl_req_flags INTO l_mtl_req_flags;
361: ----dbms_output.put_line('In loop '|| i||' and rt_oper_material_id='||l_route_mtl_req_tbl(i).rt_oper_material_id);
362: IF get_mtl_req_flags%NOTFOUND THEN
363: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
364: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
365: FND_MSG_PUB.add;
366: CLOSE get_mtl_req_flags;
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
360: FETCH get_mtl_req_flags INTO l_mtl_req_flags;
361: ----dbms_output.put_line('In loop '|| i||' and rt_oper_material_id='||l_route_mtl_req_tbl(i).rt_oper_material_id);
362: IF get_mtl_req_flags%NOTFOUND THEN
363: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
364: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
365: FND_MSG_PUB.add;
366: CLOSE get_mtl_req_flags;
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
433: --that the lowest sub unit instance_id will be the first one to be displayed.
434: OPEN get_sub_unit_instance(l_job_attrs.item_instance_id);
435: FETCH get_sub_unit_instance INTO l_unit_instance_id;
436: IF get_sub_unit_instance%NOTFOUND THEN
437: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
438: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
439: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
440: FND_MSG_PUB.add;
441: CLOSE get_sub_unit_instance;
434: OPEN get_sub_unit_instance(l_job_attrs.item_instance_id);
435: FETCH get_sub_unit_instance INTO l_unit_instance_id;
436: IF get_sub_unit_instance%NOTFOUND THEN
437: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
438: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
439: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
440: FND_MSG_PUB.add;
441: CLOSE get_sub_unit_instance;
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435: FETCH get_sub_unit_instance INTO l_unit_instance_id;
436: IF get_sub_unit_instance%NOTFOUND THEN
437: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
438: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
439: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
440: FND_MSG_PUB.add;
441: CLOSE get_sub_unit_instance;
442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
443: ELSE
486: RAISE FND_API.G_EXC_ERROR;
487: END IF;
488:
489: IF (l_mapping_status = 'NA') THEN
490: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
491: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
492: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
493: FND_MSG_PUB.add;
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: END IF;
488:
489: IF (l_mapping_status = 'NA') THEN
490: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
491: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
492: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
493: FND_MSG_PUB.add;
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: -- Position does not apply to current unit
488:
489: IF (l_mapping_status = 'NA') THEN
490: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
491: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
492: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
493: FND_MSG_PUB.add;
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: -- Position does not apply to current unit
496: ELSIF (l_mapping_status = 'EMPTY') THEN
676: X_LAST_UPDATED_BY => FND_GLOBAL.user_id,
677: X_LAST_UPDATE_LOGIN => FND_GLOBAL.login_id);
678: EXCEPTION
679: WHEN NO_DATA_FOUND THEN --This +100 is raised explicitly in INSERT_ROW
680: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INSERT_FAILED' );
681: FND_MSG_PUB.add;
682: WHEN OTHERS THEN
683: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
684: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
680: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INSERT_FAILED' );
681: FND_MSG_PUB.add;
682: WHEN OTHERS THEN
683: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
684: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
685: FND_MSG_PUB.add;
686: ELSE
687: RAISE;
688: END IF;
1181: IF (p_x_disposition_rec.create_work_order_option = 'CREATE_WO_NO') THEN
1182: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1183: FETCH chk_non_serialized_csr INTO l_dummy;
1184: IF (chk_non_serialized_csr%FOUND) THEN
1185: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
1186: FND_MSG_PUB.ADD;
1187: END IF;
1188: CLOSE chk_non_serialized_csr;
1189: END IF;
1478: FETCH disposition_csr INTO l_disposition_rec;
1479:
1480: IF (disposition_csr%NOTFOUND) THEN
1481: CLOSE disposition_csr; --close cursor before raising exeption
1482: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_FOUND');
1483: FND_MSG_PUB.ADD;
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486: CLOSE disposition_csr;
1485: END IF;
1486: CLOSE disposition_csr;
1487:
1488: IF(p_x_disposition_rec.OBJECT_VERSION_NUMBER <> l_disposition_rec.OBJECT_VERSION_NUMBER) THEN
1489: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
1490: FND_MSG_PUB.ADD;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493:
1494: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1495: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DIS_UPDATE_TERMINATE'); --Cannot update a terminated disposition.
1496: FND_MSG_PUB.ADD;
1497: RAISE FND_API.G_EXC_ERROR;
1498: END IF;
1499:
1625:
1626: --VALIDATE THAT THESE ATTRIBUTE SHOULD NOT BE CHANGED
1627: --dbms_output.put_line('Start validate for changes..............');
1628: IF nvl(p_x_disposition_rec.workorder_id, -1) <> nvl(l_disposition_rec.workorder_id, -1) THEN
1629: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_CHNG'); --Workorder id Cannot be change
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632: IF l_disposition_rec.part_change_id IS NOT NULL
1633: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632: IF l_disposition_rec.part_change_id IS NOT NULL
1633: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1634: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARTCHG_ID_CHNG'); --Part Change Cannot be change
1635: FND_MSG_PUB.ADD;
1636: END IF;
1637:
1638: IF l_disposition_rec.inventory_item_id IS NOT NULL
1637:
1638: IF l_disposition_rec.inventory_item_id IS NOT NULL
1639: AND nvl(p_x_disposition_rec.inventory_item_id, -1) <> l_disposition_rec.inventory_item_id THEN
1640: --dbms_output.put_line('In Error message AHL_PRD_DIS_ITEM_REV_CHNG');
1641: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_CHG'); --Item cannot be changed
1642: FND_MSG_PUB.ADD;
1643: END IF;
1644:
1645: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1642: FND_MSG_PUB.ADD;
1643: END IF;
1644:
1645: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1646: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --ITem Revision Cannot be change
1647: FND_MSG_PUB.ADD;
1648: END IF;
1649: */
1650: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1647: FND_MSG_PUB.ADD;
1648: END IF;
1649: */
1650: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_GRP_CHNG'); --Item Group Cannot be change
1652: FND_MSG_PUB.ADD;
1653: END IF;
1654: --IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1655: --Instance can only be changed once (originally it is not changeable at all)
1655: --Instance can only be changed once (originally it is not changeable at all)
1656: --Updated by Jerry on 01/26/2005 for fixing bug 4089750
1657: IF (l_disposition_rec.instance_id IS NOT NULL AND (p_x_disposition_rec.instance_id IS NULL OR
1658: p_x_disposition_rec.instance_id <> l_disposition_rec.instance_id)) THEN
1659: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG');
1660: FND_MSG_PUB.ADD;
1661: ELSIF ((l_disposition_rec.instance_id IS NULL AND
1662: p_x_disposition_rec.instance_id IS NULL AND
1663: -- AnRaj: Changed query, Perf Bug#4908609,Issue#4
1666: p_x_disposition_rec.status_code <> 'TERMINATED' AND --Added on 03/02/05 when verifying
1667: l_disposition_rec.part_change_id IS NULL AND --bug fix 4093642 on SCMTSB2
1668: p_x_disposition_rec.part_change_id IS NULL) AND -- Added by rbhavsar on Aug 07, 2007 for FP bug 6318339, base bug 6058419
1669: (l_disposition_rec.immediate_disposition_code is NULL)) THEN
1670: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INSTANCE_VALUE_REQ');
1671: FND_MSG_PUB.ADD;
1672: ELSIF (l_disposition_rec.instance_id IS NULL AND p_x_disposition_rec.instance_id IS NOT NULL) THEN
1673: BEGIN
1674: SELECT 'X' INTO l_dummy_char
1677: AND trunc(nvl(active_start_date, SYSDATE)) <= trunc(SYSDATE)
1678: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1679: EXCEPTION
1680: WHEN NO_DATA_FOUND THEN
1681: FND_MESSAGE.set_name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
1682: FND_MESSAGE.set_token('INTANCE_NUM', p_x_disposition_rec.instance_number);
1683: FND_MSG_PUB.ADD;
1684: END;
1685: END IF;
1678: AND trunc(nvl(active_end_date, SYSDATE+1)) > trunc(SYSDATE);
1679: EXCEPTION
1680: WHEN NO_DATA_FOUND THEN
1681: FND_MESSAGE.set_name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
1682: FND_MESSAGE.set_token('INTANCE_NUM', p_x_disposition_rec.instance_number);
1683: FND_MSG_PUB.ADD;
1684: END;
1685: END IF;
1686: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1684: END;
1685: END IF;
1686: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1687: IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1688: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG'); --Instance Cannot be change
1689: FND_MSG_PUB.ADD;
1690: END IF;
1691: */
1692: /* Begin Fix for 4075758 on Dec 21. 2004 */
1693: -- For non-tracked, serial or lot controlled items, the serial
1694: -- and/or and lot number may be provided during update mode also
1695: /*****
1696: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1697: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Cannot be change
1698: FND_MSG_PUB.ADD;
1699: END IF;
1700:
1701: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1698: FND_MSG_PUB.ADD;
1699: END IF;
1700:
1701: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1702: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Cannot be change
1703: FND_MSG_PUB.ADD;
1704: END IF;
1705: ******/
1706: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1703: FND_MSG_PUB.ADD;
1704: END IF;
1705: ******/
1706: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1707: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Can be set once
1708: FND_MSG_PUB.ADD;
1709: END IF;
1710: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1711: -- Serial Number has been set: Validate
1711: -- Serial Number has been set: Validate
1712: OPEN val_serial_number_csr(p_x_disposition_rec.serial_number, p_x_disposition_rec.inventory_item_id);
1713: FETCH val_serial_number_csr INTO l_exist;
1714: IF (val_serial_number_csr%NOTFOUND) THEN
1715: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
1716: FND_MSG_PUB.ADD;
1717: END IF;
1718: CLOSE val_serial_number_csr;
1719: END IF;
1718: CLOSE val_serial_number_csr;
1719: END IF;
1720:
1721: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, nvl(p_x_disposition_rec.lot_number, ' ')) THEN
1722: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Can be set once
1723: FND_MSG_PUB.ADD;
1724: END IF;
1725: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1726: -- Lot Number has been set: Validate
1726: -- Lot Number has been set: Validate
1727: OPEN val_lot_number_csr(p_x_disposition_rec.lot_number, p_x_disposition_rec.inventory_item_id);
1728: FETCH val_lot_number_csr INTO l_exist;
1729: IF (val_lot_number_csr%NOTFOUND) THEN
1730: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_LOT'); -- Invalid Lot number and item combination
1731: FND_MSG_PUB.ADD;
1732: END IF;
1733: CLOSE val_lot_number_csr;
1734: END IF;
1737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1738: 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);
1739: END IF;
1740: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1741: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1742: FND_MSG_PUB.ADD;
1743: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1744: 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);
1745: END IF;
1751: -- item revision Number has been set: Validate
1752: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1753: FETCH item_revisions_csr INTO l_exist;
1754: IF (item_revisions_csr%NOTFOUND) THEN
1755: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_REV'); -- Invalid serial number and item combination
1756: FND_MSG_PUB.ADD;
1757: END IF;
1758: CLOSE item_revisions_csr;
1759: END IF;
1761: /* End Fix for 4075758 on Dec 21. 2004 */
1762:
1763: IF l_disposition_rec.Collection_Id IS NOT NULL
1764: AND nvl(p_x_disposition_rec.Collection_id, -1) <> nvl(l_disposition_rec.Collection_Id, -1) THEN
1765: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_COLLECT_ID_CHNG'); --Workorder Cannot be changed
1766: FND_MSG_PUB.ADD;
1767: END IF;
1768: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1769: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1765: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_COLLECT_ID_CHNG'); --Workorder Cannot be changed
1766: FND_MSG_PUB.ADD;
1767: END IF;
1768: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1769: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1770: FND_MSG_PUB.ADD;
1771: END IF;
1772: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1773: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1769: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1770: FND_MSG_PUB.ADD;
1771: END IF;
1772: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1773: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1774: FND_MSG_PUB.ADD;
1775: END IF;
1776:
1777: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1774: FND_MSG_PUB.ADD;
1775: END IF;
1776:
1777: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1778: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_CHNG'); --UOM Cannot be changed
1779: FND_MSG_PUB.ADD;
1780: END IF;
1781:
1782:
1780: END IF;
1781:
1782:
1783: IF(workorder_editable(p_x_disposition_rec.workorder_id) = FALSE) THEN
1784: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Update Disposition Because Workorder is not editable.
1785: FND_MSG_PUB.ADD;
1786: END IF;
1787:
1788: --Disposition Status can only be changed to Terminated by the user.
1786: END IF;
1787:
1788: --Disposition Status can only be changed to Terminated by the user.
1789: 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
1790: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_STATUS_CHNG'); --Disposition Status cannot be changed excepte changed
1791: FND_MSG_PUB.ADD;
1792: END IF;
1793:
1794: --if existing item is null and item group is not null then item need to be enter
1814: p_x_disposition_rec.item_revision,
1815: p_x_disposition_rec.lot_number);
1816: --end Bug#4075758
1817: ELSE
1818: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); --Item is required
1819: FND_MSG_PUB.ADD;
1820: END IF;
1821: ELSE --ignore the new organization id change just use the existing one
1822: p_x_disposition_rec.item_org_id := l_disposition_rec.organization_id;
1833: END IF;
1834:
1835: --Validate Quantity Change
1836: IF p_x_disposition_rec.quantity IS NULL AND l_pos_empty <> TRUE THEN
1837: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
1838: FND_MSG_PUB.ADD;
1839: ELSIF p_x_disposition_rec.quantity <= 0 THEN
1840: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
1841: FND_MSG_PUB.ADD;
1836: IF p_x_disposition_rec.quantity IS NULL AND l_pos_empty <> TRUE THEN
1837: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
1838: FND_MSG_PUB.ADD;
1839: ELSIF p_x_disposition_rec.quantity <= 0 THEN
1840: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
1841: FND_MSG_PUB.ADD;
1842: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
1843: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
1844: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
1840: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
1841: FND_MSG_PUB.ADD;
1842: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
1843: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
1844: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
1845: FND_MSG_PUB.ADD;
1846: END IF;
1847:
1848: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1846: END IF;
1847:
1848: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1849: IF p_x_disposition_rec.instance_id IS NOT NULL THEN
1850: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
1851: FND_MSG_PUB.ADD;
1852: END IF;
1853: */
1854:
1853: */
1854:
1855: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
1856: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
1857: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
1858: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
1859: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
1860: FND_MSG_PUB.ADD;
1861: END IF;
1854:
1855: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
1856: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
1857: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
1858: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
1859: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
1860: FND_MSG_PUB.ADD;
1861: END IF;
1862:
1855: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
1856: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
1857: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
1858: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
1859: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
1860: FND_MSG_PUB.ADD;
1861: END IF;
1862:
1863: END IF;
1894: IF p_x_disposition_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB') AND
1895: p_x_disposition_rec.instance_id IS NOT NULL AND
1896: l_plan_id IS NOT NULL THEN -- status is MRB and tracked item and QA plan is defined in Org
1897: IF p_x_disposition_rec.collection_id IS NULL THEN
1898: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
1899: FND_MSG_PUB.ADD;
1900: ELSE
1901: validate_collection_id(p_x_disposition_rec.collection_id);
1902: END IF;
1914: AND
1915: ( p_x_disposition_rec.summary IS NOT NULL OR p_x_disposition_rec.problem_code IS NOT NULL
1916: OR p_x_disposition_rec.severity_id IS NOT NULL
1917: )) THEN
1918: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
1919: FND_MSG_PUB.ADD;
1920: END IF;
1921:
1922: -- create service request and non-routine job
1933: IF (p_x_disposition_rec.create_work_order_option = 'CREATE_WO_NO') THEN
1934: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1935: FETCH chk_non_serialized_csr INTO l_dummy;
1936: IF (chk_non_serialized_csr%FOUND) THEN
1937: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
1938: FND_MSG_PUB.ADD;
1939: END IF;
1940: CLOSE chk_non_serialized_csr;
1941: END IF;
2639: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2641: END IF;
2642: -- Raise an Exception
2643: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2644: FND_MSG_PUB.ADD;
2645: RAISE FND_API.G_EXC_ERROR;
2646: END IF;
2647: END IF;
2663: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2664: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
2665: END IF;
2666: -- Raise an Exception
2667: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
2668: FND_MSG_PUB.ADD;
2669: RAISE FND_API.G_EXC_ERROR;
2670: END IF;
2671: END IF;
2989: --dbms_output.put_line(SubStr('Begin Validate_For_Create', 1, 255));
2990:
2991: --WORKORDER
2992: IF (p_disposition_rec.workorder_id IS NULL) THEN
2993: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_REQ'); -- Workorder is required to create disposition.
2994: FND_MSG_PUB.ADD;
2995: RAISE FND_API.G_EXC_ERROR;
2996: ELSE
2997: validate_workorder(p_disposition_rec.workorder_id);
2995: RAISE FND_API.G_EXC_ERROR;
2996: ELSE
2997: validate_workorder(p_disposition_rec.workorder_id);
2998: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
2999: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Create Disposition Because Workorder is not editable.
3000: FND_MSG_PUB.ADD;
3001: RAISE FND_API.G_EXC_ERROR;
3002: END IF;
3003: END IF;
3002: END IF;
3003: END IF;
3004:
3005: IF (p_disposition_rec.path_position_id IS NULL AND p_disposition_rec.inventory_item_id IS NULL) THEN
3006: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_OR_ITEM_REQ'); --Path Position or Item is required to create a disposition
3007: FND_MSG_PUB.ADD;
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3008: RAISE FND_API.G_EXC_ERROR;
3009: END IF;
3010:
3011: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
3012: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_CANNOT_ENTER_ORG'); --Cannot enter organization id.
3013: FND_MSG_PUB.ADD;
3014: END IF;
3015:
3016: -- Validate Part Change and get details
3020: l_pc_inst_instance_id,
3021: l_pc_type;
3022: IF (part_change_csr%NOTFOUND) THEN
3023: CLOSE part_change_csr;
3024: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3025: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3026: FND_MSG_PUB.ADD;
3027: RAISE FND_API.G_EXC_ERROR;
3028: END IF;
3021: l_pc_type;
3022: IF (part_change_csr%NOTFOUND) THEN
3023: CLOSE part_change_csr;
3024: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3025: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3026: FND_MSG_PUB.ADD;
3027: RAISE FND_API.G_EXC_ERROR;
3028: END IF;
3029: CLOSE part_change_csr;
3068: IF (l_srl_flag = 'Y') THEN
3069: OPEN exist_position_csr(p_disposition_rec.path_position_id, p_disposition_rec.workorder_id);
3070: FETCH exist_position_csr INTO l_exist;
3071: IF(exist_position_csr%FOUND) THEN
3072: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_OTHER');
3073: FND_MSG_PUB.ADD;
3074: END IF;
3075: CLOSE exist_position_csr;
3076: END IF; -- if l_srl_flag = 'Y'
3079:
3080: --Check if workorder's instance is in UC tree
3081: l_unit_instance_id := get_unit_instance_id(p_disposition_rec.workorder_id);
3082: IF(l_unit_instance_id IS NULL) THEN
3083: 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
3084: FND_MSG_PUB.ADD;
3085: RAISE FND_API.G_EXC_ERROR;
3086: END IF;
3087:
3129: -- Check if removal was done or not.
3130: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3131: -- Ensure that the disposition instance is the same as the removed instance.
3132: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3133: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3134: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3135: FND_MSG_PUB.ADD;
3136: END IF;
3137: ELSE
3130: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3131: -- Ensure that the disposition instance is the same as the removed instance.
3132: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3133: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3134: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3135: FND_MSG_PUB.ADD;
3136: END IF;
3137: ELSE
3138: 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.
3134: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3135: FND_MSG_PUB.ADD;
3136: END IF;
3137: ELSE
3138: 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.
3139: FND_MSG_PUB.ADD;
3140: END IF; -- part change check
3141: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3142: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3138: 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.
3139: FND_MSG_PUB.ADD;
3140: END IF; -- part change check
3141: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3142: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3143: FND_MSG_PUB.ADD;
3144: ELSIF (l_mapping_status = 'EMPTY') THEN
3145: -- Check if this create_disposition is called from Part Change
3146: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3147: IF (l_pc_type = G_PART_CHANGE_REMOVE) THEN
3148: -- Disposition is for the removed instance
3149: -- Ensure that the disposition instance is the same as the removed instance
3150: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3151: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3152: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3153: FND_MSG_PUB.ADD;
3154: END IF;
3155: ELSE
3148: -- Disposition is for the removed instance
3149: -- Ensure that the disposition instance is the same as the removed instance
3150: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3151: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3152: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3153: FND_MSG_PUB.ADD;
3154: END IF;
3155: ELSE
3156: -- G_PART_CHANGE_INSTALL and G_PART_CHANGE_SWAP are not possible since the position is empty
3159: END IF;
3160: ELSE
3161: l_position_empty := TRUE;
3162: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3163: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_INST'); --Position is empty cannot enter instance number.
3164: FND_MSG_PUB.ADD;
3165: END IF;
3166: --Check if parent instance of this empty position is in the same tree as workorder instance
3167: OPEN get_wo_instance_id(p_disposition_rec.workorder_id);
3181: ', l_dis_root_instance_id = ' || l_dis_root_instance_id);
3182: END IF;
3183:
3184: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3185: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_POS_NOT_WO_UC'); -- Instance is not in the same unit as workorder instance
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_ERROR;
3188: END IF;
3189: END IF;
3194: -- Position is not empty and Part Change has already happened
3195: IF (l_pc_type = G_PART_CHANGE_INSTALL) THEN
3196: -- Disposition is for the empty position (before the install)
3197: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3198: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3199: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3200: FND_MSG_PUB.ADD;
3201: RAISE FND_API.G_EXC_ERROR;
3202: END IF;
3195: IF (l_pc_type = G_PART_CHANGE_INSTALL) THEN
3196: -- Disposition is for the empty position (before the install)
3197: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3198: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3199: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3200: FND_MSG_PUB.ADD;
3201: RAISE FND_API.G_EXC_ERROR;
3202: END IF;
3203: l_position_empty := TRUE;
3204: ELSIF (l_pc_type = G_PART_CHANGE_SWAP) THEN
3205: -- Disposition is for the instance that was swapped out
3206: -- Ensure that the disposition instance is the same as the removed instance
3207: IF (NVL(p_disposition_rec.instance_id, l_pc_rem_instance_id) <> l_pc_rem_instance_id) THEN
3208: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3209: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3210: FND_MSG_PUB.ADD;
3211: END IF;
3212: ELSE
3205: -- Disposition is for the instance that was swapped out
3206: -- Ensure that the disposition instance is the same as the removed instance
3207: IF (NVL(p_disposition_rec.instance_id, l_pc_rem_instance_id) <> l_pc_rem_instance_id) THEN
3208: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3209: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3210: FND_MSG_PUB.ADD;
3211: END IF;
3212: ELSE
3213: -- G_PART_CHANGE_REMOVE is not possible since the position is not empty
3215: NULL;
3216: END IF;
3217: ELSE
3218: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3219: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3220: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3221: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3222: FND_MSG_PUB.ADD;
3223: END IF;
3216: END IF;
3217: ELSE
3218: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3219: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3220: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3221: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3222: FND_MSG_PUB.ADD;
3223: END IF;
3224: END IF; -- Part Change
3217: ELSE
3218: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3219: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3220: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3221: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3222: FND_MSG_PUB.ADD;
3223: END IF;
3224: END IF; -- Part Change
3225: END IF; -- l_mapping_status
3232: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3233: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3234: END IF;
3235: IF (l_position_empty = TRUE) THEN
3236: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3237: FND_MSG_PUB.ADD;
3238: END IF;
3239:
3240: validate_item(p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id, p_disposition_rec.workorder_id);
3247: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem and item group relation ', 1, 255));
3248: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3249: FETCH item_in_itemgrp_csr INTO l_exist;
3250: IF item_in_itemgrp_csr%NOTFOUND THEN
3251: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_NOT_IN_ITMGRP'); --Item does not belong to the item group
3252: FND_MSG_PUB.ADD;
3253: END IF;
3254: CLOSE item_in_itemgrp_csr;
3255: END IF; -- item_group_id is not null
3261: CLOSE item_is_ib_trackable;
3262: IF( item_is_trackable ='Y') THEN
3263: IF (p_disposition_rec.instance_id IS NULL) THEN
3264: -- validation to force the user to pick an instance if Disposition Item is Trackable in the IB
3265: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_TR_ITEM_INST_MAND'); -- Invalid item group
3266: FND_MESSAGE.Set_Token('ITEM_NAME',p_disposition_rec.item_number);
3267: FND_MSG_PUB.ADD;
3268: END IF;
3269: ELSE --start fix Bug#4075758 Item is non-tracked
3262: IF( item_is_trackable ='Y') THEN
3263: IF (p_disposition_rec.instance_id IS NULL) THEN
3264: -- validation to force the user to pick an instance if Disposition Item is Trackable in the IB
3265: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_TR_ITEM_INST_MAND'); -- Invalid item group
3266: FND_MESSAGE.Set_Token('ITEM_NAME',p_disposition_rec.item_number);
3267: FND_MSG_PUB.ADD;
3268: END IF;
3269: ELSE --start fix Bug#4075758 Item is non-tracked
3270: validate_Item_Control(p_disposition_rec.inventory_item_id , p_disposition_rec.item_org_id,
3284: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check ITem Group ', 1, 255));
3285: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3286: FETCH val_item_group_csr INTO l_exist;
3287: IF (val_item_group_csr%NOTFOUND) THEN
3288: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_GRP'); -- Invalid item group
3289: FND_MSG_PUB.ADD;
3290: END IF;
3291: CLOSE val_item_group_csr;
3292:
3290: END IF;
3291: CLOSE val_item_group_csr;
3292:
3293: IF(p_disposition_rec.inventory_item_Id IS NULL) THEN
3294: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITMGRP_REQ_ITM'); --Since item group is present, item number needs to be entered.
3295: FND_MSG_PUB.ADD;
3296: END IF;
3297: --path position id exist then item group must be null
3298: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3295: FND_MSG_PUB.ADD;
3296: END IF;
3297: --path position id exist then item group must be null
3298: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3299: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_ITMGRP'); -- Can only enter either position or item group but not both.
3300: FND_MSG_PUB.ADD;
3301: END IF;
3302: END IF; -- item_group_id is not null
3303:
3312: p_disposition_rec.path_position_id,
3313: p_disposition_rec.part_change_id);
3314:
3315: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3316: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3317: FND_MSG_PUB.ADD;
3318: ELSE
3319: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3320: FETCH get_item_id_csr INTO l_item_id;
3318: ELSE
3319: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3320: FETCH get_item_id_csr INTO l_item_id;
3321: IF l_item_id <> p_disposition_rec.inventory_item_id THEN
3322: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_NO_MATCH'); -- Item does not match with instance's item.
3323: FND_MSG_PUB.ADD;
3324: END IF;
3325: CLOSE get_item_id_csr;
3326: END IF;
3332: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Lot_number');
3333: END IF;
3334: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3335: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3336: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3337: FND_MSG_PUB.ADD;
3338: ELSE
3339: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3340: FETCH val_lot_number_csr INTO l_exist;
3338: ELSE
3339: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3340: FETCH val_lot_number_csr INTO l_exist;
3341: IF (val_lot_number_csr%NOTFOUND) THEN
3342: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_LOT'); -- Invalid lot_number and item combination
3343: FND_MSG_PUB.ADD;
3344: END IF;
3345: CLOSE val_lot_number_csr;
3346: END IF;
3353: END IF;
3354: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3355: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3356: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number--check item is null', 1, 255));
3357: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item is required
3358: FND_MSG_PUB.ADD;
3359: ELSE
3360: --dbms_output.put_line(SubStr('In Validate_For_Create -- before open val_serial_number_csr', 1, 255));
3361: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3360: --dbms_output.put_line(SubStr('In Validate_For_Create -- before open val_serial_number_csr', 1, 255));
3361: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3362: FETCH val_serial_number_csr INTO l_exist;
3363: IF (val_serial_number_csr%NOTFOUND) THEN
3364: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
3365: FND_MSG_PUB.ADD;
3366: END IF;
3367: CLOSE val_serial_number_csr;
3368: END IF;
3370: END IF;
3371:
3372: --QUANTITY -----------------------------------
3373: IF (p_disposition_rec.quantity IS NULL AND l_position_empty = FALSE) THEN
3374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); -- Quantity cannot be null
3375: FND_MSG_PUB.ADD;
3376: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3377: IF p_disposition_rec.quantity <= 0 THEN
3378: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3374: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); -- Quantity cannot be null
3375: FND_MSG_PUB.ADD;
3376: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3377: IF p_disposition_rec.quantity <= 0 THEN
3378: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3379: FND_MSG_PUB.ADD;
3380: END IF;
3381: IF p_disposition_rec.instance_id IS NOT NULL THEN
3382: OPEN instance_quantity_csr(p_disposition_rec.instance_id);
3384: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
3385: -- The quantity check should be modified from '<>' to '>'. Subsequently, the error has been modified to
3386: -- 'Quantity should not be greater than instance quantity'.
3387: IF (p_disposition_rec.quantity > l_quantity) THEN
3388: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
3389: FND_MSG_PUB.ADD;
3390: END IF;
3391: CLOSE instance_quantity_csr;
3392: END IF;
3393: END IF;
3394:
3395: --UOM-------------------------------------------------------------
3396: IF( p_disposition_rec.uom IS NULL AND l_position_empty = FALSE )THEN
3397: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_REQ'); -- UOM cannot be null
3398: FND_MSG_PUB.ADD;
3399: ELSIF ( p_disposition_rec.uom IS NOT NULL) THEN
3400: OPEN val_uom_csr(p_disposition_rec.uom);
3401: FETCH val_uom_csr INTO l_exist;
3399: ELSIF ( p_disposition_rec.uom IS NOT NULL) THEN
3400: OPEN val_uom_csr(p_disposition_rec.uom);
3401: FETCH val_uom_csr INTO l_exist;
3402: IF val_uom_csr%NOTFOUND THEN
3403: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_UOM'); -- Invalid UOM.
3404: FND_MSG_PUB.ADD;
3405: END IF;
3406: CLOSE val_uom_csr;
3407:
3408: IF p_disposition_rec.instance_id IS NOT NULL THEN
3409: OPEN instance_uom_csr(p_disposition_rec.instance_id);
3410: FETCH instance_uom_csr INTO l_uom;
3411: IF (p_disposition_rec.uom <> l_uom) THEN
3412: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_INST_UOM'); -- Invalid UOM. UOM must be the same as instance's UOM.
3413: FND_MSG_PUB.ADD;
3414: END IF;
3415: CLOSE instance_uom_csr;
3416: END IF;
3418: IF p_disposition_rec.inventory_item_id IS NOT NULL THEN
3419: OPEN item_class_uom_csr(p_disposition_rec.uom, p_disposition_rec.inventory_item_id);
3420: FETCH item_class_uom_csr into l_exist;
3421: IF item_class_uom_csr%NOTFOUND THEN
3422: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_UOM'); -- Invalid UOM. UOM must belong to the item's primary uom
3423: FND_MSG_PUB.ADD;
3424: END IF;
3425: CLOSE item_class_uom_csr;
3426: END IF;
3445: IF p_disposition_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB') AND
3446: p_disposition_rec.instance_id IS NOT NULL AND
3447: l_plan_id IS NOT NULL THEN
3448: IF p_disposition_rec.collection_id IS NULL THEN
3449: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
3450: FND_MSG_PUB.ADD;
3451: ELSE
3452: validate_collection_id(p_disposition_rec.collection_id);
3453: END IF;
3461: )AND
3462: ( p_disposition_rec.summary IS NOT NULL OR p_disposition_rec.problem_code IS NOT NULL
3463: OR p_disposition_rec.severity_id IS NOT NULL
3464: )) THEN
3465: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
3466: FND_MSG_PUB.ADD;
3467: END IF;
3468:
3469: --OPERATION_ID--------------------------------------------------------
3473:
3474: --validate item revision--------------------------------------------------------
3475: IF (p_disposition_rec.item_revision IS NOT NULL) THEN
3476: IF p_disposition_rec.inventory_item_id IS NULL THEN
3477: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_ITM_REV_REQ_ITM'); --Cannot enter an item revision without entering item
3478: FND_MSG_PUB.ADD;
3479: ELSE
3480: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3481: FETCH item_revisions_csr INTO l_exist;
3479: ELSE
3480: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3481: FETCH item_revisions_csr INTO l_exist;
3482: IF item_revisions_csr%NOTFOUND THEN
3483: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_ITEM_REV'); --Invalid item revision
3484: FND_MSG_PUB.ADD;
3485: END IF;
3486: CLOSE item_revisions_csr;
3487: END IF;
3563: 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
3564: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
3565: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
3566: IF(instance_id_csr%NOTFOUND) THEN
3567: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
3568: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
3569: FND_MSG_PUB.ADD;
3570: END IF;
3571: CLOSE instance_id_csr;
3564: OPEN instance_id_csr(p_x_prd_disposition_rec.instance_number);
3565: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
3566: IF(instance_id_csr%NOTFOUND) THEN
3567: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
3568: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
3569: FND_MSG_PUB.ADD;
3570: END IF;
3571: CLOSE instance_id_csr;
3572: ELSIF(p_x_prd_disposition_rec.instance_number = FND_API.G_MISS_CHAR) THEN
3576: 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
3577: OPEN item_group_id_csr(p_x_prd_disposition_rec.item_group_name);
3578: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
3579: IF(item_group_id_csr%NOTFOUND) THEN
3580: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
3581: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
3582: FND_MSG_PUB.ADD;
3583: END IF;
3584: CLOSE item_group_id_csr;
3577: OPEN item_group_id_csr(p_x_prd_disposition_rec.item_group_name);
3578: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
3579: IF(item_group_id_csr%NOTFOUND) THEN
3580: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
3581: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
3582: FND_MSG_PUB.ADD;
3583: END IF;
3584: CLOSE item_group_id_csr;
3585: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
3593: 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
3594: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
3595: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
3596: IF(item_id_csr%NOTFOUND) THEN
3597: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
3598: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
3599: FND_MSG_PUB.ADD;
3600: END IF;
3601: CLOSE item_id_csr;
3594: OPEN item_id_csr(p_x_prd_disposition_rec.item_number);
3595: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
3596: IF(item_id_csr%NOTFOUND) THEN
3597: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
3598: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
3599: FND_MSG_PUB.ADD;
3600: END IF;
3601: CLOSE item_id_csr;
3602: ELSIF(p_x_prd_disposition_rec.item_number = FND_API.G_MISS_CHAR) THEN
3606: 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
3607: OPEN wo_operation_id_csr(p_x_prd_disposition_rec.workorder_id, p_x_prd_disposition_rec.operation_sequence);
3608: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
3609: IF(wo_operation_id_csr%NOTFOUND) THEN
3610: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
3611: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
3612: FND_MSG_PUB.ADD;
3613: END IF;
3614: CLOSE wo_operation_id_csr;
3607: OPEN wo_operation_id_csr(p_x_prd_disposition_rec.workorder_id, p_x_prd_disposition_rec.operation_sequence);
3608: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
3609: IF(wo_operation_id_csr%NOTFOUND) THEN
3610: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
3611: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
3612: FND_MSG_PUB.ADD;
3613: END IF;
3614: CLOSE wo_operation_id_csr;
3615: ELSIF(p_x_prd_disposition_rec.operation_sequence = FND_API.G_MISS_NUM) THEN
3619: 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
3620: OPEN condition_id_csr(p_x_prd_disposition_rec.condition_meaning);
3621: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
3622: IF(condition_id_csr%NOTFOUND) THEN
3623: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
3624: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
3625: FND_MSG_PUB.ADD;
3626: END IF;
3627: CLOSE condition_id_csr;
3620: OPEN condition_id_csr(p_x_prd_disposition_rec.condition_meaning);
3621: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
3622: IF(condition_id_csr%NOTFOUND) THEN
3623: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
3624: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
3625: FND_MSG_PUB.ADD;
3626: END IF;
3627: CLOSE condition_id_csr;
3628: ELSIF(p_x_prd_disposition_rec.condition_meaning = FND_API.G_MISS_CHAR) THEN
3632: 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
3633: OPEN severity_id_csr( p_x_prd_disposition_rec.severity_name);
3634: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
3635: IF(severity_id_csr%NOTFOUND) THEN
3636: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
3637: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
3638: FND_MSG_PUB.ADD;
3639: END IF;
3640: CLOSE severity_id_csr;
3633: OPEN severity_id_csr( p_x_prd_disposition_rec.severity_name);
3634: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
3635: IF(severity_id_csr%NOTFOUND) THEN
3636: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
3637: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
3638: FND_MSG_PUB.ADD;
3639: END IF;
3640: CLOSE severity_id_csr;
3641: ELSIF(p_x_prd_disposition_rec.severity_name = FND_API.G_MISS_CHAR) THEN
3645: 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
3646: OPEN problem_code_csr( p_x_prd_disposition_rec.problem_meaning);
3647: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
3648: IF(problem_code_csr%NOTFOUND) THEN
3649: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
3650: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
3651: FND_MSG_PUB.ADD;
3652: END IF;
3653: CLOSE problem_code_csr;
3646: OPEN problem_code_csr( p_x_prd_disposition_rec.problem_meaning);
3647: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
3648: IF(problem_code_csr%NOTFOUND) THEN
3649: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
3650: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
3651: FND_MSG_PUB.ADD;
3652: END IF;
3653: CLOSE problem_code_csr;
3654: ELSIF(p_x_prd_disposition_rec.problem_meaning = FND_API.G_MISS_CHAR) THEN
3680: IF p_collection_id IS NOT NULL THEN
3681: OPEN val_collection_id_csr(p_collection_id);
3682: FETCH val_collection_id_csr into l_exist;
3683: IF val_collection_id_csr%NOTFOUND THEN
3684: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_COLLECTION_ID'); -- Invalid collection Id
3685: FND_MESSAGE.Set_Token('COLL_ID', p_collection_id);
3686: FND_MSG_PUB.ADD;
3687: END IF;
3688: END IF;
3681: OPEN val_collection_id_csr(p_collection_id);
3682: FETCH val_collection_id_csr into l_exist;
3683: IF val_collection_id_csr%NOTFOUND THEN
3684: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_COLLECTION_ID'); -- Invalid collection Id
3685: FND_MESSAGE.Set_Token('COLL_ID', p_collection_id);
3686: FND_MSG_PUB.ADD;
3687: END IF;
3688: END IF;
3689: END validate_collection_id;
3700: BEGIN
3701: OPEN workorder_csr(p_workorder_id);
3702: FETCH workorder_csr INTO l_exist;
3703: IF workorder_csr%NOTFOUND THEN
3704: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
3705: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
3706: FND_MSG_PUB.ADD;
3707: CLOSE workorder_csr;
3708: RAISE FND_API.G_EXC_ERROR;
3701: OPEN workorder_csr(p_workorder_id);
3702: FETCH workorder_csr INTO l_exist;
3703: IF workorder_csr%NOTFOUND THEN
3704: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
3705: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
3706: FND_MSG_PUB.ADD;
3707: CLOSE workorder_csr;
3708: RAISE FND_API.G_EXC_ERROR;
3709: ELSE
3724: BEGIN
3725: OPEN path_position_csr(p_path_position_id);
3726: FETCH path_position_csr INTO l_exist;
3727: IF path_position_csr%NOTFOUND THEN
3728: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
3729: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
3730: FND_MSG_PUB.ADD;
3731: CLOSE path_position_csr;
3732: RAISE FND_API.G_EXC_ERROR;
3725: OPEN path_position_csr(p_path_position_id);
3726: FETCH path_position_csr INTO l_exist;
3727: IF path_position_csr%NOTFOUND THEN
3728: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
3729: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
3730: FND_MSG_PUB.ADD;
3731: CLOSE path_position_csr;
3732: RAISE FND_API.G_EXC_ERROR;
3733: ELSE
3758: OPEN val_item_csr(p_inventory_item_id, p_organization_id);
3759: FETCH val_item_csr INTO l_exist;
3760: IF val_item_csr%NOTFOUND THEN
3761: CLOSE val_item_csr; --Close cursor before raising exception
3762: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
3763: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
3764: FND_MSG_PUB.ADD;
3765: RAISE FND_API.G_EXC_ERROR;
3766: END IF;
3759: FETCH val_item_csr INTO l_exist;
3760: IF val_item_csr%NOTFOUND THEN
3761: CLOSE val_item_csr; --Close cursor before raising exception
3762: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
3763: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
3764: FND_MSG_PUB.ADD;
3765: RAISE FND_API.G_EXC_ERROR;
3766: END IF;
3767: CLOSE val_item_csr;
3776: OPEN val_item_csr(p_inventory_item_id, l_wo_organization_id);
3777: FETCH val_item_csr INTO l_exist;
3778: IF val_item_csr%NOTFOUND THEN
3779: CLOSE val_item_csr; --close cursor before raise an exception
3780: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
3781: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
3782: FND_MSG_PUB.ADD;
3783: RAISE FND_API.G_EXC_ERROR;
3784: END IF;
3777: FETCH val_item_csr INTO l_exist;
3778: IF val_item_csr%NOTFOUND THEN
3779: CLOSE val_item_csr; --close cursor before raise an exception
3780: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
3781: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
3782: FND_MSG_PUB.ADD;
3783: RAISE FND_API.G_EXC_ERROR;
3784: END IF;
3785: CLOSE val_item_csr;
3833: END IF;
3834: CLOSE item_control_csr;
3835:
3836: IF l_serial_flag = 'Y' AND p_serial_number IS NULL THEN
3837: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_SERIAL_REQ'); --Serial Number is required
3838: FND_MSG_PUB.ADD;
3839: END IF;
3840:
3841: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
3838: FND_MSG_PUB.ADD;
3839: END IF;
3840:
3841: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
3842: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_ITEM_REV_REQ'); --Item Revision Number is required
3843: FND_MSG_PUB.ADD;
3844: END IF;
3845:
3846: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
3843: FND_MSG_PUB.ADD;
3844: END IF;
3845:
3846: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
3847: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_REQ'); --Lot Number is required
3848: FND_MSG_PUB.ADD;
3849: END IF;
3850:
3851: END validate_Item_Control;
3909:
3910: OPEN instance_csr(p_instance_id);
3911: FETCH instance_csr INTO l_exist;
3912: IF instance_csr%NOTFOUND THEN
3913: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3914: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_instance_id);
3915: FND_MSG_PUB.ADD;
3916: END IF;
3917: CLOSE instance_csr;
3910: OPEN instance_csr(p_instance_id);
3911: FETCH instance_csr INTO l_exist;
3912: IF instance_csr%NOTFOUND THEN
3913: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3914: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_instance_id);
3915: FND_MSG_PUB.ADD;
3916: END IF;
3917: CLOSE instance_csr;
3918:
3934: IF (l_unit_config_name IS NULL AND p_part_change_id IS NOT NULL) THEN
3935: -- IB Tree, Disposition created from Part Change UI: Allow duplicates
3936: NULL;
3937: ELSE
3938: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_DISP'); --Instance already exist in another not-completed or not-terminated disposition.
3939: FND_MSG_PUB.ADD;
3940: END IF;
3941: -- End changes by jaramana on August 7, 2007 to support IB Trees
3942: END IF;
3971: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_instance_id:' || l_wo_instance_id);
3972: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
3973: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
3974: END IF;
3975: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
3976: FND_MSG_PUB.ADD;
3977: RAISE FND_API.G_EXC_ERROR;
3978: END IF; -- Root Instances are not the same
3979: END IF; -- l_wo_instance_id <> p_instance_id
3992: OPEN instance_in_wip_csr(p_instance_id, p_workorder_id);
3993: FETCH instance_in_wip_csr INTO l_exist;
3994: IF instance_in_wip_csr%NOTFOUND THEN
3995: CLOSE instance_in_wip_csr;
3996: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INST_NOT_ISSUED'); -- Instance is not issued to the job
3997: FND_MSG_PUB.ADD;
3998: RAISE FND_API.G_EXC_ERROR;
3999: END IF;
4000: CLOSE instance_in_wip_csr;
4018: BEGIN
4019: OPEN val_wo_operation_csr(p_workorder_id, p_wo_operation_id);
4020: FETCH val_wo_operation_csr INTO l_exist;
4021: IF val_wo_operation_csr%NOTFOUND THEN
4022: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_OPERATION'); --Invalid operation id.
4023: FND_MESSAGE.SET_TOKEN('OPER_ID', p_wo_operation_id);
4024: FND_MSG_PUB.ADD;
4025: END IF;
4026: CLOSE val_wo_operation_csr;
4019: OPEN val_wo_operation_csr(p_workorder_id, p_wo_operation_id);
4020: FETCH val_wo_operation_csr INTO l_exist;
4021: IF val_wo_operation_csr%NOTFOUND THEN
4022: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_OPERATION'); --Invalid operation id.
4023: FND_MESSAGE.SET_TOKEN('OPER_ID', p_wo_operation_id);
4024: FND_MSG_PUB.ADD;
4025: END IF;
4026: CLOSE val_wo_operation_csr;
4027:
4072:
4073: OPEN part_change_csr;
4074: FETCH part_change_csr INTO l_removed_instance_id, l_installed_instance_id, l_part_change_type, l_part_change_quantity;
4075: IF part_change_csr%NOTFOUND THEN
4076: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
4077: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_part_change_id);
4078: FND_MSG_PUB.ADD;
4079: ELSIF (l_part_change_type IN ('R', 'S')) THEN -- Remove or Swap
4080: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4073: OPEN part_change_csr;
4074: FETCH part_change_csr INTO l_removed_instance_id, l_installed_instance_id, l_part_change_type, l_part_change_quantity;
4075: IF part_change_csr%NOTFOUND THEN
4076: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
4077: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_part_change_id);
4078: FND_MSG_PUB.ADD;
4079: ELSIF (l_part_change_type IN ('R', 'S')) THEN -- Remove or Swap
4080: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4081: -- Compare instances only if it is serialized.
4080: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4081: -- Compare instances only if it is serialized.
4082: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4083: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4084: 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
4085: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4086: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4087: FND_MSG_PUB.ADD;
4088: END IF;
4081: -- Compare instances only if it is serialized.
4082: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4083: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4084: 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
4085: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4086: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4087: FND_MSG_PUB.ADD;
4088: END IF;
4089: ELSE
4082: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4083: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4084: 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
4085: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4086: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4087: FND_MSG_PUB.ADD;
4088: END IF;
4089: ELSE
4090: -- Non-serialized: Removed instance can be different from the Disposition Instance.
4107: ', l_part_change_quantity ' || l_part_change_quantity);
4108: END IF;
4109:
4110: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4111: 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
4112: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4113: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4114: FND_MSG_PUB.ADD;
4115: END IF; -- Item and Quantity Mismatch
4108: END IF;
4109:
4110: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4111: 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
4112: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4113: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4114: FND_MSG_PUB.ADD;
4115: END IF; -- Item and Quantity Mismatch
4116: END IF; -- Instances are different
4109:
4110: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4111: 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
4112: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4113: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4114: FND_MSG_PUB.ADD;
4115: END IF; -- Item and Quantity Mismatch
4116: END IF; -- Instances are different
4117: END IF; -- Disp Instance's Serial Number is null or not
4119: -- Changed since the disposition instance will always
4120: -- (even after installation) be null for a disposition created against an empty position
4121: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4122: 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
4123: 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
4124: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4125: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4126: FND_MSG_PUB.ADD;
4127: END IF; -- Disposition Instance is not the same as the Installation Instance
4120: -- (even after installation) be null for a disposition created against an empty position
4121: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4122: 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
4123: 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
4124: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4125: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4126: FND_MSG_PUB.ADD;
4127: END IF; -- Disposition Instance is not the same as the Installation Instance
4128: END IF; -- Part Change Found, and Part Change Type Check
4121: -- IF (NVL(p_disp_instance_id, nvl(l_installed_instance_id, -1)) <> nvl(l_installed_instance_id, -1)) THEN
4122: 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
4123: 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
4124: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4125: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4126: FND_MSG_PUB.ADD;
4127: END IF; -- Disposition Instance is not the same as the Installation Instance
4128: END IF; -- Part Change Found, and Part Change Type Check
4129: CLOSE part_change_csr;
4469: --Validate that the immediate disposition type is valid
4470: OPEN check_immed_disp_types_csr (p_disposition_rec.immediate_disposition_code);
4471: FETCH check_immed_disp_types_csr into l_dummy;
4472: IF (check_immed_disp_types_csr%NOTFOUND) THEN
4473: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_TYPE_INV');
4474: FND_MSG_PUB.ADD;
4475: END IF;
4476: CLOSE check_immed_disp_types_csr;
4477:
4479: IF (p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4480: OPEN check_second_disp_types_csr (p_disposition_rec.secondary_disposition_code);
4481: FETCH check_second_disp_types_csr into l_dummy;
4482: IF (check_second_disp_types_csr%NOTFOUND) THEN
4483: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4484: FND_MSG_PUB.ADD;
4485: END IF;
4486: CLOSE check_second_disp_types_csr;
4487: END IF;
4488:
4489: OPEN check_condition_csr (p_disposition_rec.condition_id);
4490: FETCH check_condition_csr into l_dummy;
4491: IF (check_condition_csr%NOTFOUND) THEN
4492: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_CONDITION_INV');
4493: FND_MSG_PUB.ADD;
4494: END IF;
4495: CLOSE check_condition_csr;
4496:
4505: IF (p_disposition_rec.secondary_disposition_code <> 'REWORK_NR' AND
4506: p_disposition_rec.secondary_disposition_code <> 'SCRAP' AND
4507: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4508: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4509: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4510: FND_MSG_PUB.ADD;
4511: --If SCRAP, condition has to be MRB
4512: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4513: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4510: FND_MSG_PUB.ADD;
4511: --If SCRAP, condition has to be MRB
4512: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4513: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4514: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4515: FND_MSG_PUB.ADD;
4516: END IF;
4517:
4518: ELSE
4519: --Use_as_is means condition must be serviceable
4520: IF (p_disposition_rec.immediate_disposition_code = 'USE_AS_IS' AND
4521: (p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') OR
4522: p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))) THEN
4523: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4524: FND_MSG_PUB.ADD;
4525: END IF;
4526: --SCRAP means condition is MRB
4527: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4525: END IF;
4526: --SCRAP means condition is MRB
4527: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4528: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4529: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4530: FND_MSG_PUB.ADD;
4531: END IF;
4532: --not BFS or NON_CONF, secondary must be null
4533: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4530: FND_MSG_PUB.ADD;
4531: END IF;
4532: --not BFS or NON_CONF, secondary must be null
4533: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4534: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4535: FND_MSG_PUB.ADD;
4536: END IF;
4537: END IF;
4538:
4554: END IF;
4555:
4556: IF (p_disposition_rec.secondary_disposition_code IN ('REWORK_RR', 'REWORK_NR') AND
4557: l_trackable_flag = 'N') THEN
4558: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4559: FND_MSG_PUB.ADD;
4560: END IF;
4561:
4562: --Validate against existing state in update case.
4566: --2a) Fetch the existing state.
4567: OPEN get_disp_rec_csr (p_disposition_rec.disposition_id);
4568: FETCH get_disp_rec_csr INTO l_disp_rec;
4569: IF (get_disp_rec_csr%NOTFOUND) THEN
4570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
4571: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
4572: FND_MSG_PUB.ADD;
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4567: OPEN get_disp_rec_csr (p_disposition_rec.disposition_id);
4568: FETCH get_disp_rec_csr INTO l_disp_rec;
4569: IF (get_disp_rec_csr%NOTFOUND) THEN
4570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
4571: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
4572: FND_MSG_PUB.ADD;
4573: RAISE FND_API.G_EXC_ERROR;
4574: END IF;
4575: CLOSE get_disp_rec_csr;
4577: --Validate that condition id flows only 1 way.
4578: --'MRB' must stay as MRB
4579: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
4580: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4582: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4583: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4584: FND_MSG_PUB.ADD;
4585: --Unserviceable cannot become serviceable
4578: --'MRB' must stay as MRB
4579: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
4580: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4582: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4583: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4584: FND_MSG_PUB.ADD;
4585: --Unserviceable cannot become serviceable
4586: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4579: IF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')
4580: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4581: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4582: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4583: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4584: FND_MSG_PUB.ADD;
4585: --Unserviceable cannot become serviceable
4586: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4587: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4585: --Unserviceable cannot become serviceable
4586: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4587: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4588: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4589: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4590: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4591: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4592: FND_MSG_PUB.ADD;
4593: END IF;
4586: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4587: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4588: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4589: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4590: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4591: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4592: FND_MSG_PUB.ADD;
4593: END IF;
4594:
4587: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4588: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4589: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
4590: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
4591: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
4592: FND_MSG_PUB.ADD;
4593: END IF;
4594:
4595: --Validate that Disposition Types are defined correctly
4596: --1) Check that Not Removed and NA are not mapped to Not Received
4597: IF (l_disp_rec.immediate_disposition_code IS NOT NULL) THEN
4598: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
4599: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
4600: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4601: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4602: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4603: FND_MSG_PUB.ADD;
4604: END IF;
4597: IF (l_disp_rec.immediate_disposition_code IS NOT NULL) THEN
4598: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
4599: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
4600: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4601: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4602: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4603: FND_MSG_PUB.ADD;
4604: END IF;
4605:
4598: IF ( l_disp_rec.immediate_disposition_code in ('NOT_REMOVED','NA')
4599: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
4600: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4601: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4602: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4603: FND_MSG_PUB.ADD;
4604: END IF;
4605:
4606: --2) Check that Not Received, BFS, Non_Conf, SCRAP are not changed
4607: --IF ( l_disp_rec.immediate_disposition_code in ('NOT_RECEIVED','BFS','NON_CONF','SCRAP')
4608: --Jerry removed 'NOT_RECEIVED' on 01/17/2005 for fixing bug 4094927
4609: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
4610: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
4611: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4612: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4613: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4614: FND_MSG_PUB.ADD;
4615: END IF;
4608: --Jerry removed 'NOT_RECEIVED' on 01/17/2005 for fixing bug 4094927
4609: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
4610: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
4611: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4612: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4613: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4614: FND_MSG_PUB.ADD;
4615: END IF;
4616:
4609: IF ( l_disp_rec.immediate_disposition_code in ('BFS','NON_CONF','SCRAP')
4610: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
4611: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4612: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4613: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4614: FND_MSG_PUB.ADD;
4615: END IF;
4616:
4617: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
4616:
4617: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
4618: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
4619: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
4620: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4621: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4622: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4623: FND_MSG_PUB.ADD;
4624: END IF;
4617: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
4618: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
4619: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
4620: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4621: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4622: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4623: FND_MSG_PUB.ADD;
4624: END IF;
4625: END IF;
4618: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
4619: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
4620: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
4621: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
4622: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
4623: FND_MSG_PUB.ADD;
4624: END IF;
4625: END IF;
4626:
4627: --Validate secondary dispositions
4628: --4) Check if secondary is SCRAP then must stay SCRAP
4629: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
4630: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
4631: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4632: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4633: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4634: FND_MSG_PUB.ADD;
4635: END IF;
4628: --4) Check if secondary is SCRAP then must stay SCRAP
4629: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
4630: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
4631: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4632: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4633: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4634: FND_MSG_PUB.ADD;
4635: END IF;
4636:
4629: IF ( l_disp_rec.secondary_disposition_code = 'SCRAP'
4630: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
4631: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4632: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4633: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4634: FND_MSG_PUB.ADD;
4635: END IF;
4636:
4637:
4638: --5) Check REWORK_NR means no part change has or is taking place.
4639: IF ( p_disposition_rec.secondary_disposition_code = 'REWORK_NR'
4640: and (l_disp_rec.part_change_id IS NOT NULL
4641: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
4642: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4643: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4644: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4645: FND_MSG_PUB.ADD;
4646: END IF;
4639: IF ( p_disposition_rec.secondary_disposition_code = 'REWORK_NR'
4640: and (l_disp_rec.part_change_id IS NOT NULL
4641: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
4642: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4643: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4644: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4645: FND_MSG_PUB.ADD;
4646: END IF;
4647:
4640: and (l_disp_rec.part_change_id IS NOT NULL
4641: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
4642: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4643: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4644: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4645: FND_MSG_PUB.ADD;
4646: END IF;
4647:
4648: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
4647:
4648: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
4649: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
4650: AND l_disp_rec.trackable_flag = 'N') THEN
4651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4652: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4653: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4654: FND_MSG_PUB.ADD;
4655: END IF;
4648: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
4649: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
4650: AND l_disp_rec.trackable_flag = 'N') THEN
4651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4652: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4653: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4654: FND_MSG_PUB.ADD;
4655: END IF;
4656:
4649: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
4650: AND l_disp_rec.trackable_flag = 'N') THEN
4651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
4652: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
4653: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
4654: FND_MSG_PUB.ADD;
4655: END IF;
4656:
4657: END IF; --G_UPDATE
5104: IF (l_wip_entity_id IS NULL) THEN
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5107: END IF;
5108: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5109: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5110: FND_MSG_PUB.ADD;
5111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5112: ELSE
5105: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5106: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5107: END IF;
5108: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5109: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5110: FND_MSG_PUB.ADD;
5111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5112: ELSE
5113: -- Additional check added by jaramana on February 23, 2007 for ER 5854667
5126: -- Get the object_version number from csi_item_instances
5127: OPEN ahl_obj_ver_csr;
5128: FETCH ahl_obj_ver_csr INTO l_instance_rec.object_version_number;
5129: IF (ahl_obj_ver_csr%NOTFOUND) THEN
5130: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5131: FND_MESSAGE.Set_Token('INST', p_instance_id);
5132: FND_MSG_PUB.ADD;
5133: CLOSE ahl_obj_ver_csr;
5134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5127: OPEN ahl_obj_ver_csr;
5128: FETCH ahl_obj_ver_csr INTO l_instance_rec.object_version_number;
5129: IF (ahl_obj_ver_csr%NOTFOUND) THEN
5130: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5131: FND_MESSAGE.Set_Token('INST', p_instance_id);
5132: FND_MSG_PUB.ADD;
5133: CLOSE ahl_obj_ver_csr;
5134: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5135: ELSE