[Home] [Help]
249: END IF;
250:
251: --Initialize message list if p_init_msg_list is set to TRUE.
252: IF FND_API.to_boolean( p_init_msg_list ) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255:
256: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
257: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
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;
274: */
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;
290: ELSIF l_job_attrs.item_instance_id IS NULL THEN
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;
297: ELSIF l_job_attrs.route_id IS NULL THEN
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;
369: CLOSE get_mtl_req_flags;
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
444: CLOSE get_sub_unit_instance;
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
497: l_installed_inst_id := NULL;
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' );
685: FND_MSG_PUB.add;
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;
689: END;
706: 'At the end of the procedure');
707: END IF;
708:
709: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
710: l_msg_count := FND_MSG_PUB.count_msg;
711: IF l_msg_count > 0 THEN
712: x_msg_count := l_msg_count;
713: RAISE FND_API.G_EXC_ERROR;
714: END IF;
718: COMMIT;
719: END IF;
720:
721: -- Count and Get messages (optional)
722: FND_MSG_PUB.count_and_get(
723: p_encoded => FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
726:
727: EXCEPTION
728: WHEN FND_API.G_EXC_ERROR THEN
729: ROLLBACK TO create_job_dispositions;
730: x_return_status := FND_API.G_RET_STS_ERROR ;
731: FND_MSG_PUB.count_and_get(
732: p_encoded => FND_API.G_FALSE,
733: p_count => x_msg_count,
734: p_data => x_msg_data);
735:
735:
736: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
737: ROLLBACK TO create_job_dispositions;
738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
739: FND_MSG_PUB.count_and_get(
740: p_encoded => FND_API.G_FALSE,
741: p_count => x_msg_count,
742: p_data => x_msg_data);
743:
743:
744: WHEN OTHERS THEN
745: ROLLBACK TO create_job_dispositions;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
748: THEN
749: FND_MSG_PUB.add_exc_msg(
750: p_pkg_name => G_PKG_NAME,
751: p_procedure_name => l_api_name,
745: ROLLBACK TO create_job_dispositions;
746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
747: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
748: THEN
749: FND_MSG_PUB.add_exc_msg(
750: p_pkg_name => G_PKG_NAME,
751: p_procedure_name => l_api_name,
752: p_error_text => SUBSTRB(SQLERRM,1,240));
753: END IF;
750: p_pkg_name => G_PKG_NAME,
751: p_procedure_name => l_api_name,
752: p_error_text => SUBSTRB(SQLERRM,1,240));
753: END IF;
754: FND_MSG_PUB.count_and_get(
755: p_encoded => FND_API.G_FALSE,
756: p_count => x_msg_count,
757: p_data => x_msg_data);
758:
835:
836: -- Initialize message list if p_init_msg_list is set to TRUE
837: IF FND_API.To_Boolean( p_init_msg_list)
838: THEN
839: FND_MSG_PUB.Initialize;
840: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
841: END IF;
842: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
843: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
836: -- Initialize message list if p_init_msg_list is set to TRUE
837: IF FND_API.To_Boolean( p_init_msg_list)
838: THEN
839: FND_MSG_PUB.Initialize;
840: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
841: END IF;
842: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
843: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
844: /* End Fix for 4071599 on Dec 22, 2004 by JR */
839: FND_MSG_PUB.Initialize;
840: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
841: END IF;
842: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
843: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
844: /* End Fix for 4071599 on Dec 22, 2004 by JR */
845:
846: -- Initialize API return status to success
847: x_return_status := FND_API.G_RET_STS_SUCCESS;
879: END IF;
880: END IF;
881:
882: -- Check Error Message stack.
883: x_msg_count := FND_MSG_PUB.count_msg;
884:
885:
886: IF x_msg_count - l_prev_err_count > 0 THEN
887: RAISE FND_API.G_EXC_ERROR;
892: COMMIT WORK;
893: END IF;
894:
895: -- Standard call to get message count and if count is 1, get message info
896: FND_MSG_PUB.Count_And_Get
897: ( p_count => x_msg_count,
898: p_data => x_msg_data,
899: p_encoded => fnd_api.g_false
900: );
907: EXCEPTION
908: WHEN FND_API.G_EXC_ERROR THEN
909: Rollback to process_disposition_pvt;
910: x_return_status := FND_API.G_RET_STS_ERROR;
911: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
912: p_data => x_msg_data,
913: p_encoded => fnd_api.g_false);
914: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
915: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
919:
920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
921: Rollback to process_disposition_pvt;
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
924: p_data => x_msg_data,
925: p_encoded => fnd_api.g_false);
926:
927: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931:
932: WHEN OTHERS THEN
933: Rollback to process_disposition_pvt;
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
936: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
937: p_procedure_name => l_api_name,
938: p_error_text => SUBSTR(SQLERRM,1,500));
939: END IF;
932: WHEN OTHERS THEN
933: Rollback to process_disposition_pvt;
934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
935: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
936: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
937: p_procedure_name => l_api_name,
938: p_error_text => SUBSTR(SQLERRM,1,500));
939: END IF;
940: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
936: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
937: p_procedure_name => l_api_name,
938: p_error_text => SUBSTR(SQLERRM,1,500));
939: END IF;
940: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
941: p_data => x_msg_data,
942: p_encoded => fnd_api.g_false);
943:
944: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) 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;
1190:
1188: CLOSE chk_non_serialized_csr;
1189: END IF;
1190:
1191: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1192: l_msg_count := FND_MSG_PUB.count_msg;
1193: IF l_msg_count > 0 THEN
1194: x_msg_count := l_msg_count;
1195: RAISE FND_API.G_EXC_ERROR;
1196: END IF;
1204: x_msg_count => x_msg_count,
1205: x_msg_data => x_msg_data);
1206: --reinitialize message stack and ignore any warning message
1207: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1208: FND_MSG_PUB.Initialize;
1209: END IF;
1210:
1211: p_x_disposition_rec.primary_service_request_id := l_primary_service_request_id;
1212: p_x_disposition_rec.non_routine_workorder_id := l_non_routine_workorder_id;
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;
1487:
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:
1494: IF l_disposition_rec.status_code = 'TERMINATED' THEN
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:
1500: --Handle JSP module
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
1634: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARTCHG_ID_CHNG'); --Part Change Cannot be change
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
1639: AND nvl(p_x_disposition_rec.inventory_item_id, -1) <> l_disposition_rec.inventory_item_id THEN
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
1646: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --ITem Revision Cannot be change
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
1651: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_GRP_CHNG'); --Item Group Cannot be change
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)
1656: --Updated by Jerry on 01/26/2005 for fixing bug 4089750
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
1664: -- l_disposition_rec.trackable_flag = 'Y' AND
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
1675: FROM csi_item_instances
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
1687: IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
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
1702: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Cannot be change
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
1707: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Can be set once
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
1712: OPEN val_serial_number_csr(p_x_disposition_rec.serial_number, p_x_disposition_rec.inventory_item_id);
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;
1720:
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
1727: OPEN val_lot_number_csr(p_x_disposition_rec.lot_number, p_x_disposition_rec.inventory_item_id);
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;
1735:
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;
1746: END IF;
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;
1760:
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
1770: FND_MSG_PUB.ADD;
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
1774: FND_MSG_PUB.ADD;
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
1778: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_CHNG'); --UOM Cannot be changed
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:
1783: IF(workorder_editable(p_x_disposition_rec.workorder_id) = FALSE) THEN
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.
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
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
1795: IF l_disposition_rec.inventory_item_id IS NULL AND l_disposition_rec.item_group_id IS NOT NULL THEN
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;
1823: 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;
1842: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity 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
1845: FND_MSG_PUB.ADD;
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
1849: IF p_x_disposition_rec.instance_id IS NOT NULL THEN
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:
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;
1864: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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;
1903: END IF;
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
1923: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
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;
1942:
1940: CLOSE chk_non_serialized_csr;
1941: END IF;
1942:
1943: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1944: l_msg_count := FND_MSG_PUB.count_msg;
1945: IF l_msg_count > 0 THEN
1946: x_msg_count := l_msg_count;
1947: RAISE FND_API.G_EXC_ERROR;
1948: END IF;
1956: x_msg_count => x_msg_count,
1957: x_msg_data => x_msg_data);
1958: --reinitialize message stack and ignore any warning message
1959: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1960: FND_MSG_PUB.Initialize;
1961:
1962: -- SATHAPLI::Bug 7111116, 21-May-2008
1963: -- set the l_primary_sr_created flag to TRUE
1964: l_primary_sr_created := TRUE;
2333:
2334: -- Initialize message list if p_init_msg_list is set to TRUE
2335: IF FND_API.To_Boolean( p_init_msg_list)
2336: THEN
2337: FND_MSG_PUB.Initialize;
2338: END IF;
2339: --dbms_output.put_line('Begin Create SR -----------------------------');
2340: --dbms_output.put_line('Begin Create SR ');
2341: -- Populate sr_task_tbl
2460: --dbms_output.put_line(SubStr('x_msg_count = '||TO_CHAR(x_msg_count), 1, 255));
2461: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2462:
2463: FOR i IN 1..x_msg_count LOOP
2464: FND_MSG_PUB.get (
2465: p_msg_index => i,
2466: p_encoded => FND_API.G_FALSE,
2467: p_data => x_msg_data,
2468: p_msg_index_out => l_msg_index_out );
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;
2648: END IF;
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;
2672: -- End addition by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
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);
2998: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
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;
3004:
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:
3011: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
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
3017: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
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;
3030: END IF;
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'
3077: END IF; -- if chk_non_serialized_csr%NOTFOUND
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:
3088: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) 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.
3139: FND_MSG_PUB.ADD;
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
3143: FND_MSG_PUB.ADD;
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
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
3157: -- May have to throw an exception if control come here
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);
3168: FETCH get_wo_instance_id INTO l_wo_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;
3190: END IF; -- Part Change
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
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
3214: -- May have to throw an exception if control come here
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
3226: END IF; -- end path_position
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);
3241:
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
3256:
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,
3271: p_disposition_rec.serial_number,
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:
3293: IF(p_disposition_rec.inventory_item_Id IS NULL) THEN
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
3299: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_ITMGRP'); -- Can only enter either position or item group but not both.
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:
3304: --INSTANCE-----------------------------
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;
3321: IF l_item_id <> p_disposition_rec.inventory_item_id THEN
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;
3327: END IF;
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;
3341: IF (val_lot_number_csr%NOTFOUND) THEN
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;
3347: 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);
3362: FETCH val_serial_number_csr INTO l_exist;
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;
3369: --dbms_output.put_line(SubStr('In Validate_For_Create --end check serial Number', 1, 255));
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
3379: FND_MSG_PUB.ADD;
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);
3383: FETCH instance_quantity_csr into l_quantity;
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;
3402: IF val_uom_csr%NOTFOUND 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;
3417:
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;
3427: END IF;
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;
3454: END IF;
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--------------------------------------------------------
3470: IF (p_disposition_rec.wo_operation_id IS NOT NULL) THEN
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;
3482: IF item_revisions_csr%NOTFOUND THEN
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;
3488: END IF;
3486: CLOSE item_revisions_csr;
3487: END IF;
3488: END IF;
3489:
3490: IF FND_MSG_PUB.count_msg > 0 THEN
3491: RAISE FND_API.G_EXC_ERROR;
3492: END IF;
3493:
3494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
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
3573: p_x_prd_disposition_rec.instance_id := NULL;
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
3586: p_x_prd_disposition_rec.item_group_id := NULL;
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
3603: p_x_prd_disposition_rec.inventory_item_id := NULL;
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
3616: p_x_prd_disposition_rec.wo_operation_id := NULL;
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
3629: p_x_prd_disposition_rec.condition_id := NULL;
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
3642: p_x_prd_disposition_rec.severity_id := NULL;
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
3655: p_x_prd_disposition_rec.problem_code := NULL;
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;
3690:
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
3710: CLOSE workorder_csr;
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
3734: CLOSE path_position_csr;
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;
3768:
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;
3786: 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
3842: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_ITEM_REV_REQ'); --Item Revision Number is required
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
3847: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_REQ'); --Lot Number is required
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;
3852:
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:
3919: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
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;
3943: CLOSE instance_in_disp_csr;
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
3980: END IF; -- p_part_change_id is null
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;
4001: ***/
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:
4028: END validate_wo_operation;
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.
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.
4091: -- Compare only item and quantity.
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
4118: ELSE
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;
4130: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
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:
4478: --Validate that the secondary disposition type is valid
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:
4497:
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
4514: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
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
4528: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
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
4534: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
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:
4539: --Jerry added the following validation on 02/17/2005 for fixing bug 4189553
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.
4563: IF (p_disposition_rec.operation_flag = G_OP_UPDATE AND
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;
4576:
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
4588: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
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
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')
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
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
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.
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
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
4658:
4655: END IF;
4656:
4657: END IF; --G_UPDATE
4658:
4659: IF FND_MSG_PUB.count_msg > 0 THEN
4660: RAISE FND_API.G_EXC_ERROR;
4661: END IF;
4662:
4663: EXCEPTION
4663: EXCEPTION
4664: WHEN FND_API.G_EXC_ERROR THEN
4665: Rollback to Validate_Disp_Types_Pvt;
4666: x_return_status := FND_API.G_RET_STS_ERROR;
4667: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4668: p_data => x_msg_data,
4669: p_encoded => fnd_api.g_false);
4670: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4671: Rollback to Validate_Disp_Types_Pvt;
4669: p_encoded => fnd_api.g_false);
4670: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4671: Rollback to Validate_Disp_Types_Pvt;
4672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4673: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4674: p_data => x_msg_data,
4675: p_encoded => fnd_api.g_false);
4676: WHEN OTHERS THEN
4677: Rollback to Validate_Disp_Types_Pvt;
4675: p_encoded => fnd_api.g_false);
4676: WHEN OTHERS THEN
4677: Rollback to Validate_Disp_Types_Pvt;
4678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4679: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
4680: p_procedure_name => l_api_name,
4681: p_error_text => SQLERRM);
4682: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4683: p_data => x_msg_data,
4678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4679: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
4680: p_procedure_name => l_api_name,
4681: p_error_text => SQLERRM);
4682: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
4683: p_data => x_msg_data,
4684: p_encoded => fnd_api.g_false);
4685:
4686: END Validate_Disposition_Types;
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
5114: -- Update the instance location only if the work order is in released status
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
5136: CLOSE ahl_obj_ver_csr;