[Home] [Help]
251: END IF;
252:
253: --Initialize message list if p_init_msg_list is set to TRUE.
254: IF FND_API.to_boolean( p_init_msg_list ) THEN
255: FND_MSG_PUB.initialize;
256: END IF;
257:
258: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
268: --Comment out this check because the p_workoder_id passed should always be valid
269: /*
270: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_ID_INVALID');
271: FND_MESSAGE.set_token('JOBID', p_workorder_id);
272: FND_MSG_PUB.add;
273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
274: CLOSE get_job_attrs;
275: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
276: */
284: ELSIF l_job_attrs.job_status_code IN (4, 12) THEN
285: --Complete(4) and Closed(12)
286: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_STS_INVALID');
287: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
288: FND_MSG_PUB.add;
289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
290: CLOSE get_job_attrs;
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: ELSIF l_job_attrs.item_instance_id IS NULL THEN
293: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_NULL');
294: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
295: FND_MSG_PUB.add;
296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
297: CLOSE get_job_attrs;
298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
299: ELSIF l_job_attrs.route_id IS NULL THEN
364: ----dbms_output.put_line('In loop '|| i||' and rt_oper_material_id='||l_route_mtl_req_tbl(i).rt_oper_material_id);
365: IF get_mtl_req_flags%NOTFOUND THEN
366: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_MTL_REQ_ID_INV');
367: FND_MESSAGE.set_token('REQID', l_route_mtl_req_tbl(i).rt_oper_material_id);
368: FND_MSG_PUB.add;
369: CLOSE get_mtl_req_flags;
370: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
371: END IF;
372: CLOSE get_mtl_req_flags;
439: IF get_sub_unit_instance%NOTFOUND THEN
440: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_JOB_INST_INVALID');
441: FND_MESSAGE.set_token('INSTANCE', l_job_attrs.item_instance_id);
442: FND_MESSAGE.set_token('JOB', l_job_attrs.job_number);
443: FND_MSG_PUB.add;
444: CLOSE get_sub_unit_instance;
445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
446: ELSE
447: CLOSE get_sub_unit_instance;
492: IF (l_mapping_status = 'NA') THEN
493: FND_MESSAGE.set_name('AHL', 'AHL_PRD_DISP_PATH_POS_INV');
494: FND_MESSAGE.set_token('POSITION', l_route_mtl_req_tbl(i).position_path_id);
495: FND_MESSAGE.set_token('INSTANCE', l_unit_instance_id);
496: FND_MSG_PUB.add;
497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498: -- Position does not apply to current unit
499: ELSIF (l_mapping_status = 'EMPTY') THEN
500: l_installed_inst_id := NULL;
680: X_LAST_UPDATE_LOGIN => FND_GLOBAL.login_id);
681: EXCEPTION
682: WHEN NO_DATA_FOUND THEN --This +100 is raised explicitly in INSERT_ROW
683: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INSERT_FAILED' );
684: FND_MSG_PUB.add;
685: WHEN OTHERS THEN
686: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
687: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
688: FND_MSG_PUB.add;
684: FND_MSG_PUB.add;
685: WHEN OTHERS THEN
686: IF ( SQLCODE = -1 ) THEN --DUP_VAL_ON_INDEX
687: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_DUPLICATE_RECORD' );
688: FND_MSG_PUB.add;
689: ELSE
690: RAISE;
691: END IF;
692: END;
709: 'At the end of the procedure');
710: END IF;
711:
712: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
713: l_msg_count := FND_MSG_PUB.count_msg;
714: IF l_msg_count > 0 THEN
715: x_msg_count := l_msg_count;
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
721: COMMIT;
722: END IF;
723:
724: -- Count and Get messages (optional)
725: FND_MSG_PUB.count_and_get(
726: p_encoded => FND_API.G_FALSE,
727: p_count => x_msg_count,
728: p_data => x_msg_data);
729:
730: EXCEPTION
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO create_job_dispositions;
733: x_return_status := FND_API.G_RET_STS_ERROR ;
734: FND_MSG_PUB.count_and_get(
735: p_encoded => FND_API.G_FALSE,
736: p_count => x_msg_count,
737: p_data => x_msg_data);
738:
738:
739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
740: ROLLBACK TO create_job_dispositions;
741: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742: FND_MSG_PUB.count_and_get(
743: p_encoded => FND_API.G_FALSE,
744: p_count => x_msg_count,
745: p_data => x_msg_data);
746:
746:
747: WHEN OTHERS THEN
748: ROLLBACK TO create_job_dispositions;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.add_exc_msg(
753: p_pkg_name => G_PKG_NAME,
754: p_procedure_name => l_api_name,
748: ROLLBACK TO create_job_dispositions;
749: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
750: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
751: THEN
752: FND_MSG_PUB.add_exc_msg(
753: p_pkg_name => G_PKG_NAME,
754: p_procedure_name => l_api_name,
755: p_error_text => SUBSTRB(SQLERRM,1,240));
756: END IF;
753: p_pkg_name => G_PKG_NAME,
754: p_procedure_name => l_api_name,
755: p_error_text => SUBSTRB(SQLERRM,1,240));
756: END IF;
757: FND_MSG_PUB.count_and_get(
758: p_encoded => FND_API.G_FALSE,
759: p_count => x_msg_count,
760: p_data => x_msg_data);
761:
838:
839: -- Initialize message list if p_init_msg_list is set to TRUE
840: IF FND_API.To_Boolean( p_init_msg_list)
841: THEN
842: FND_MSG_PUB.Initialize;
843: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
844: END IF;
845: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
846: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
839: -- Initialize message list if p_init_msg_list is set to TRUE
840: IF FND_API.To_Boolean( p_init_msg_list)
841: THEN
842: FND_MSG_PUB.Initialize;
843: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
844: END IF;
845: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
846: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
847: /* End Fix for 4071599 on Dec 22, 2004 by JR */
842: FND_MSG_PUB.Initialize;
843: --dbms_output.put_line(SubStr('Current MSG Count: ' || TO_CHAR(FND_MSG_PUB.count_msg), 1, 255));
844: END IF;
845: /* Begin Fix for 4071599 on Dec 22, 2004 by JR */
846: l_prev_err_count := NVL(FND_MSG_PUB.count_msg,0);
847: /* End Fix for 4071599 on Dec 22, 2004 by JR */
848:
849: -- Initialize API return status to success
850: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: END IF;
883: END IF;
884:
885: -- Check Error Message stack.
886: x_msg_count := FND_MSG_PUB.count_msg;
887:
888:
889: IF x_msg_count - l_prev_err_count > 0 THEN
890: RAISE FND_API.G_EXC_ERROR;
895: COMMIT WORK;
896: END IF;
897:
898: -- Standard call to get message count and if count is 1, get message info
899: FND_MSG_PUB.Count_And_Get
900: ( p_count => x_msg_count,
901: p_data => x_msg_data,
902: p_encoded => fnd_api.g_false
903: );
910: EXCEPTION
911: WHEN FND_API.G_EXC_ERROR THEN
912: Rollback to process_disposition_pvt;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
915: p_data => x_msg_data,
916: p_encoded => fnd_api.g_false);
917: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
918: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, L_DEBUG_KEY, 'Execution Exception: ' || x_msg_data);
922:
923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
924: Rollback to process_disposition_pvt;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
927: p_data => x_msg_data,
928: p_encoded => fnd_api.g_false);
929:
930: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
934:
935: WHEN OTHERS THEN
936: Rollback to process_disposition_pvt;
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
939: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
940: p_procedure_name => l_api_name,
941: p_error_text => SUBSTR(SQLERRM,1,500));
942: END IF;
935: WHEN OTHERS THEN
936: Rollback to process_disposition_pvt;
937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
938: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
939: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
940: p_procedure_name => l_api_name,
941: p_error_text => SUBSTR(SQLERRM,1,500));
942: END IF;
943: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
939: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
940: p_procedure_name => l_api_name,
941: p_error_text => SUBSTR(SQLERRM,1,500));
942: END IF;
943: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
944: p_data => x_msg_data,
945: p_encoded => fnd_api.g_false);
946:
947: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1241: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1242: FETCH chk_non_serialized_csr INTO l_dummy;
1243: IF (chk_non_serialized_csr%FOUND) THEN
1244: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
1245: FND_MSG_PUB.ADD;
1246: END IF;
1247: CLOSE chk_non_serialized_csr;
1248: END IF;
1249:
1247: CLOSE chk_non_serialized_csr;
1248: END IF;
1249:
1250: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1251: l_msg_count := FND_MSG_PUB.count_msg;
1252: IF l_msg_count > 0 THEN
1253: x_msg_count := l_msg_count;
1254: RAISE FND_API.G_EXC_ERROR;
1255: END IF;
1263: x_msg_count => x_msg_count,
1264: x_msg_data => x_msg_data);
1265: --reinitialize message stack and ignore any warning message
1266: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1267: FND_MSG_PUB.Initialize;
1268: END IF;
1269:
1270: p_x_disposition_rec.primary_service_request_id := l_primary_service_request_id;
1271: p_x_disposition_rec.non_routine_workorder_id := l_non_routine_workorder_id;
1667:
1668: IF (disposition_csr%NOTFOUND) THEN
1669: CLOSE disposition_csr; --close cursor before raising exeption
1670: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_FOUND');
1671: FND_MSG_PUB.ADD;
1672: RAISE FND_API.G_EXC_ERROR;
1673: END IF;
1674: CLOSE disposition_csr;
1675:
1674: CLOSE disposition_csr;
1675:
1676: IF(p_x_disposition_rec.OBJECT_VERSION_NUMBER <> l_disposition_rec.OBJECT_VERSION_NUMBER) THEN
1677: FND_MESSAGE.Set_Name('AHL', 'AHL_COM_RECORD_CHANGED');
1678: FND_MSG_PUB.ADD;
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;
1681:
1682: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1680: END IF;
1681:
1682: IF l_disposition_rec.status_code = 'TERMINATED' THEN
1683: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_DIS_UPDATE_TERMINATE'); --Cannot update a terminated disposition.
1684: FND_MSG_PUB.ADD;
1685: RAISE FND_API.G_EXC_ERROR;
1686: END IF;
1687:
1688: --Handle JSP module
1814: --VALIDATE THAT THESE ATTRIBUTE SHOULD NOT BE CHANGED
1815: --dbms_output.put_line('Start validate for changes..............');
1816: IF nvl(p_x_disposition_rec.workorder_id, -1) <> nvl(l_disposition_rec.workorder_id, -1) THEN
1817: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_CHNG'); --Workorder id Cannot be change
1818: FND_MSG_PUB.ADD;
1819: END IF;
1820: IF l_disposition_rec.part_change_id IS NOT NULL
1821: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1822: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARTCHG_ID_CHNG'); --Part Change Cannot be change
1819: END IF;
1820: IF l_disposition_rec.part_change_id IS NOT NULL
1821: AND nvl (p_x_disposition_rec.part_change_id, -1) <> l_disposition_rec.part_change_id THEN
1822: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARTCHG_ID_CHNG'); --Part Change Cannot be change
1823: FND_MSG_PUB.ADD;
1824: END IF;
1825:
1826: IF l_disposition_rec.inventory_item_id IS NOT NULL
1827: AND nvl(p_x_disposition_rec.inventory_item_id, -1) <> l_disposition_rec.inventory_item_id THEN
1826: IF l_disposition_rec.inventory_item_id IS NOT NULL
1827: AND nvl(p_x_disposition_rec.inventory_item_id, -1) <> l_disposition_rec.inventory_item_id THEN
1828: --dbms_output.put_line('In Error message AHL_PRD_DIS_ITEM_REV_CHNG');
1829: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_CHG'); --Item cannot be changed
1830: FND_MSG_PUB.ADD;
1831: END IF;
1832:
1833: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1834: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --ITem Revision Cannot be change
1831: END IF;
1832:
1833: /* IF nvl (p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, ' ') THEN
1834: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --ITem Revision Cannot be change
1835: FND_MSG_PUB.ADD;
1836: END IF;
1837: */
1838: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1839: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_GRP_CHNG'); --Item Group Cannot be change
1836: END IF;
1837: */
1838: IF nvl(p_x_disposition_rec.item_group_id, -1) <> nvl(l_disposition_rec.item_group_id, -1) THEN
1839: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_GRP_CHNG'); --Item Group Cannot be change
1840: FND_MSG_PUB.ADD;
1841: END IF;
1842: --IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1843: --Instance can only be changed once (originally it is not changeable at all)
1844: --Updated by Jerry on 01/26/2005 for fixing bug 4089750
1844: --Updated by Jerry on 01/26/2005 for fixing bug 4089750
1845: IF (l_disposition_rec.instance_id IS NOT NULL AND (p_x_disposition_rec.instance_id IS NULL OR
1846: p_x_disposition_rec.instance_id <> l_disposition_rec.instance_id)) THEN
1847: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG');
1848: FND_MSG_PUB.ADD;
1849: ELSIF ((l_disposition_rec.instance_id IS NULL AND
1850: p_x_disposition_rec.instance_id IS NULL AND
1851: -- AnRaj: Changed query, Perf Bug#4908609,Issue#4
1852: -- l_disposition_rec.trackable_flag = 'Y' AND
1855: l_disposition_rec.part_change_id IS NULL AND --bug fix 4093642 on SCMTSB2
1856: p_x_disposition_rec.part_change_id IS NULL) AND -- Added by rbhavsar on Aug 07, 2007 for FP bug 6318339, base bug 6058419
1857: (l_disposition_rec.immediate_disposition_code is NULL)) THEN
1858: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INSTANCE_VALUE_REQ');
1859: FND_MSG_PUB.ADD;
1860: ELSIF (l_disposition_rec.instance_id IS NULL AND p_x_disposition_rec.instance_id IS NOT NULL) THEN
1861: BEGIN
1862: SELECT 'X' INTO l_dummy_char
1863: FROM csi_item_instances
1867: EXCEPTION
1868: WHEN NO_DATA_FOUND THEN
1869: FND_MESSAGE.set_name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
1870: FND_MESSAGE.set_token('INTANCE_NUM', p_x_disposition_rec.instance_number);
1871: FND_MSG_PUB.ADD;
1872: END;
1873: END IF;
1874: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1875: IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1873: END IF;
1874: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
1875: IF nvl(p_x_disposition_rec.instance_id, -1) <> nvl(l_disposition_rec.instance_id, -1) THEN
1876: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_CHNG'); --Instance Cannot be change
1877: FND_MSG_PUB.ADD;
1878: END IF;
1879: */
1880: /* Begin Fix for 4075758 on Dec 21. 2004 */
1881: -- For non-tracked, serial or lot controlled items, the serial
1882: -- and/or and lot number may be provided during update mode also
1883: /*****
1884: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1885: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Cannot be change
1886: FND_MSG_PUB.ADD;
1887: END IF;
1888:
1889: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1890: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Cannot be change
1887: END IF;
1888:
1889: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1890: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Cannot be change
1891: FND_MSG_PUB.ADD;
1892: END IF;
1893: ******/
1894: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1895: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Can be set once
1892: END IF;
1893: ******/
1894: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, nvl(p_x_disposition_rec.serial_number, ' ')) THEN
1895: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SERIAL_NUM_CHNG'); --Serial Number Can be set once
1896: FND_MSG_PUB.ADD;
1897: END IF;
1898: IF nvl(p_x_disposition_rec.serial_number, ' ') <> nvl(l_disposition_rec.serial_number, ' ') THEN
1899: -- Serial Number has been set: Validate
1900: OPEN val_serial_number_csr(p_x_disposition_rec.serial_number, p_x_disposition_rec.inventory_item_id);
1900: OPEN val_serial_number_csr(p_x_disposition_rec.serial_number, p_x_disposition_rec.inventory_item_id);
1901: FETCH val_serial_number_csr INTO l_exist;
1902: IF (val_serial_number_csr%NOTFOUND) THEN
1903: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
1904: FND_MSG_PUB.ADD;
1905: END IF;
1906: CLOSE val_serial_number_csr;
1907: END IF;
1908:
1907: END IF;
1908:
1909: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, nvl(p_x_disposition_rec.lot_number, ' ')) THEN
1910: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_CHNG'); --Lot Number Can be set once
1911: FND_MSG_PUB.ADD;
1912: END IF;
1913: IF nvl(p_x_disposition_rec.lot_number, ' ') <> nvl(l_disposition_rec.lot_number, ' ') THEN
1914: -- Lot Number has been set: Validate
1915: OPEN val_lot_number_csr(p_x_disposition_rec.lot_number, p_x_disposition_rec.inventory_item_id);
1915: OPEN val_lot_number_csr(p_x_disposition_rec.lot_number, p_x_disposition_rec.inventory_item_id);
1916: FETCH val_lot_number_csr INTO l_exist;
1917: IF (val_lot_number_csr%NOTFOUND) THEN
1918: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_LOT'); -- Invalid Lot number and item combination
1919: FND_MSG_PUB.ADD;
1920: END IF;
1921: CLOSE val_lot_number_csr;
1922: END IF;
1923:
1926: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1927: END IF;
1928: IF nvl(p_x_disposition_rec.item_revision, ' ') <> nvl(l_disposition_rec.item_revision, nvl(p_x_disposition_rec.item_revision, ' ')) THEN
1929: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REV_CHNG'); --item revision Number Can be set once
1930: FND_MSG_PUB.ADD;
1931: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Item Revision Change old: ' || l_disposition_rec.item_revision || ' new: ' || p_x_disposition_rec.item_revision);
1933: END IF;
1934: END IF;
1940: OPEN item_revisions_csr (p_x_disposition_rec.item_revision, p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
1941: FETCH item_revisions_csr INTO l_exist;
1942: IF (item_revisions_csr%NOTFOUND) THEN
1943: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_REV'); -- Invalid serial number and item combination
1944: FND_MSG_PUB.ADD;
1945: END IF;
1946: CLOSE item_revisions_csr;
1947: END IF;
1948:
1950:
1951: IF l_disposition_rec.Collection_Id IS NOT NULL
1952: AND nvl(p_x_disposition_rec.Collection_id, -1) <> nvl(l_disposition_rec.Collection_Id, -1) THEN
1953: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_COLLECT_ID_CHNG'); --Workorder Cannot be changed
1954: FND_MSG_PUB.ADD;
1955: END IF;
1956: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1957: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1958: FND_MSG_PUB.ADD;
1954: FND_MSG_PUB.ADD;
1955: END IF;
1956: IF nvl(p_x_disposition_rec.Primary_Service_Request_id , -1) <> nvl(l_disposition_rec.Primary_Service_Request_id , -1) THEN
1957: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_ID_CHNG'); --Primary Service Request Cannot be changed
1958: FND_MSG_PUB.ADD;
1959: END IF;
1960: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1961: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1962: FND_MSG_PUB.ADD;
1958: FND_MSG_PUB.ADD;
1959: END IF;
1960: IF nvl(p_x_disposition_rec.Non_Routine_Workorder_id , -1) <> nvl(l_disposition_rec.Non_Routine_Workorder_id , -1) THEN
1961: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NONRTN_WO_CHNG'); --Non Routine Workorder Cannot be changed
1962: FND_MSG_PUB.ADD;
1963: END IF;
1964:
1965: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_CHNG'); --UOM Cannot be changed
1963: END IF;
1964:
1965: IF (l_disposition_rec.UOM IS NOT NULL AND (nvl(p_x_disposition_rec.UOM, 'null') <> l_disposition_rec.UOM)) THEN
1966: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_CHNG'); --UOM Cannot be changed
1967: FND_MSG_PUB.ADD;
1968: END IF;
1969:
1970:
1971: IF(workorder_editable(p_x_disposition_rec.workorder_id) = FALSE) THEN
1969:
1970:
1971: IF(workorder_editable(p_x_disposition_rec.workorder_id) = FALSE) THEN
1972: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Update Disposition Because Workorder is not editable.
1973: FND_MSG_PUB.ADD;
1974: END IF;
1975:
1976: --Disposition Status can only be changed to Terminated by the user.
1977: IF nvl(p_x_disposition_rec.status_code, 'dummy') <> 'TERMINATED' AND nvl(p_x_disposition_rec.status_code, 'dummy') <> nvl(l_disposition_rec.status_code, 'dummy') THEN
1975:
1976: --Disposition Status can only be changed to Terminated by the user.
1977: IF nvl(p_x_disposition_rec.status_code, 'dummy') <> 'TERMINATED' AND nvl(p_x_disposition_rec.status_code, 'dummy') <> nvl(l_disposition_rec.status_code, 'dummy') THEN
1978: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_STATUS_CHNG'); --Disposition Status cannot be changed excepte changed
1979: FND_MSG_PUB.ADD;
1980: END IF;
1981:
1982: --if existing item is null and item group is not null then item need to be enter
1983: IF l_disposition_rec.inventory_item_id IS NULL AND l_disposition_rec.item_group_id IS NOT NULL THEN
2003: p_x_disposition_rec.lot_number);
2004: --end Bug#4075758
2005: ELSE
2006: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); --Item is required
2007: FND_MSG_PUB.ADD;
2008: END IF;
2009: ELSE --ignore the new organization id change just use the existing one
2010: p_x_disposition_rec.item_org_id := l_disposition_rec.organization_id;
2011: END IF;
2022:
2023: --Validate Quantity Change
2024: IF p_x_disposition_rec.quantity IS NULL AND l_pos_empty <> TRUE THEN
2025: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
2026: FND_MSG_PUB.ADD;
2027: ELSIF p_x_disposition_rec.quantity <= 0 THEN
2028: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
2029: FND_MSG_PUB.ADD;
2030: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
2025: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); --Quantity is required
2026: FND_MSG_PUB.ADD;
2027: ELSIF p_x_disposition_rec.quantity <= 0 THEN
2028: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); --Invalid Quantity. Quantity must be greater than zero
2029: FND_MSG_PUB.ADD;
2030: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
2031: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
2032: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
2033: FND_MSG_PUB.ADD;
2029: FND_MSG_PUB.ADD;
2030: ELSIF p_x_disposition_rec.quantity <> l_disposition_rec.quantity THEN
2031: IF nvl(p_x_disposition_rec.status_code, ' ') = 'COMPLETE' THEN
2032: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_CHNG'); -- Quantity cannot be changed
2033: FND_MSG_PUB.ADD;
2034: END IF;
2035:
2036: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
2037: IF p_x_disposition_rec.instance_id IS NOT NULL THEN
2035:
2036: /* Commented out on 02/02/2005 by Jerry for fixing bug 4089750
2037: IF p_x_disposition_rec.instance_id IS NOT NULL THEN
2038: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
2039: FND_MSG_PUB.ADD;
2040: END IF;
2041: */
2042:
2043: l_assoc_quantity := AHL_PRD_DISP_MTL_TXN_PVT.Calculate_Txned_Qty(p_x_disposition_rec.disposition_id);
2044: IF (p_x_disposition_rec.quantity < l_assoc_quantity) THEN
2045: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_PRD_DIS_LESS_THAN_ASSC_QTY'); -- Quantity cannot be less then material transaction associated quantity
2046: FND_MESSAGE.Set_Token('QUANTITY', p_x_disposition_rec.quantity );
2047: FND_MESSAGE.Set_Token('ASSC_QTY', l_assoc_quantity );
2048: FND_MSG_PUB.ADD;
2049: END IF;
2050:
2051: END IF;
2052: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2086: OPEN is_qa_coll_reqd(l_plan_id);
2087: FETCH is_qa_coll_reqd INTO l_dummy;
2088: IF(is_qa_coll_reqd%FOUND) THEN
2089: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
2090: FND_MSG_PUB.ADD;
2091: END IF;
2092: CLOSE is_qa_coll_reqd;
2093: ELSE
2094: validate_collection_id(p_x_disposition_rec.collection_id);
2108: ( p_x_disposition_rec.summary IS NOT NULL OR p_x_disposition_rec.problem_code IS NOT NULL
2109: OR p_x_disposition_rec.severity_id IS NOT NULL
2110: )) THEN
2111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
2112: FND_MSG_PUB.ADD;
2113: END IF;
2114:
2115: -- create service request and non-routine job
2116: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 12-Dec-2007
2127: OPEN chk_non_serialized_csr(p_x_disposition_rec.inventory_item_id, p_x_disposition_rec.item_org_id);
2128: FETCH chk_non_serialized_csr INTO l_dummy;
2129: IF (chk_non_serialized_csr%FOUND) THEN
2130: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_NON_SRL_SR');
2131: FND_MSG_PUB.ADD;
2132: END IF;
2133: CLOSE chk_non_serialized_csr;
2134: END IF;
2135:
2133: CLOSE chk_non_serialized_csr;
2134: END IF;
2135:
2136: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
2137: l_msg_count := FND_MSG_PUB.count_msg;
2138: IF l_msg_count > 0 THEN
2139: x_msg_count := l_msg_count;
2140: RAISE FND_API.G_EXC_ERROR;
2141: END IF;
2149: x_msg_count => x_msg_count,
2150: x_msg_data => x_msg_data);
2151: --reinitialize message stack and ignore any warning message
2152: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
2153: FND_MSG_PUB.Initialize;
2154:
2155: -- SATHAPLI::Bug 7111116, 21-May-2008
2156: -- set the l_primary_sr_created flag to TRUE
2157: l_primary_sr_created := TRUE;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE
2669: IF FND_API.To_Boolean( p_init_msg_list)
2670: THEN
2671: FND_MSG_PUB.Initialize;
2672: END IF;
2673: --dbms_output.put_line('Begin Create SR -----------------------------');
2674: --dbms_output.put_line('Begin Create SR ');
2675: -- Populate sr_task_tbl
2817: --dbms_output.put_line(SubStr('x_msg_count = '||TO_CHAR(x_msg_count), 1, 255));
2818: --dbms_output.put_line(SubStr('x_msg_data = '||x_msg_data,1,255));
2819:
2820: FOR i IN 1..x_msg_count LOOP
2821: FND_MSG_PUB.get (
2822: p_msg_index => i,
2823: p_encoded => FND_API.G_FALSE,
2824: p_data => x_msg_data,
2825: p_msg_index_out => l_msg_index_out );
3063: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3064: END IF;
3065: -- Raise an Exception
3066: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3067: FND_MSG_PUB.ADD;
3068: RAISE FND_API.G_EXC_ERROR;
3069: END IF;
3070: END IF;
3071: END IF;
3087: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Profile AHL_MTL_MAT_STATUS_SERVICABLE not set. Unable to derive Default Condition.');
3088: END IF;
3089: -- Raise an Exception
3090: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_SVC_COND_PRF_NOT_SET');
3091: FND_MSG_PUB.ADD;
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094: END IF;
3095: -- End addition by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
3418:
3419: --WORKORDER
3420: IF (p_disposition_rec.workorder_id IS NULL) THEN
3421: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_WO_ID_REQ'); -- Workorder is required to create disposition.
3422: FND_MSG_PUB.ADD;
3423: RAISE FND_API.G_EXC_ERROR;
3424: ELSE
3425: validate_workorder(p_disposition_rec.workorder_id);
3426: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
3424: ELSE
3425: validate_workorder(p_disposition_rec.workorder_id);
3426: IF(workorder_editable(p_disposition_rec.workorder_id) = FALSE) THEN
3427: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_WO_NOT_EDITABLE'); --Cannot Create Disposition Because Workorder is not editable.
3428: FND_MSG_PUB.ADD;
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: END IF;
3432:
3431: END IF;
3432:
3433: IF (p_disposition_rec.path_position_id IS NULL AND p_disposition_rec.inventory_item_id IS NULL) THEN
3434: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_OR_ITEM_REQ'); --Path Position or Item is required to create a disposition
3435: FND_MSG_PUB.ADD;
3436: RAISE FND_API.G_EXC_ERROR;
3437: END IF;
3438:
3439: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
3437: END IF;
3438:
3439: IF p_disposition_rec.item_org_id IS NOT NULL AND p_disposition_rec.inventory_item_id IS NULL THEN
3440: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_CANNOT_ENTER_ORG'); --Cannot enter organization id.
3441: FND_MSG_PUB.ADD;
3442: END IF;
3443:
3444: -- Validate Part Change and get details
3445: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3450: IF (part_change_csr%NOTFOUND) THEN
3451: CLOSE part_change_csr;
3452: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
3453: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_disposition_rec.part_change_id);
3454: FND_MSG_PUB.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: CLOSE part_change_csr;
3458: END IF;
3497: OPEN exist_position_csr(p_disposition_rec.path_position_id, p_disposition_rec.workorder_id);
3498: FETCH exist_position_csr INTO l_exist;
3499: IF(exist_position_csr%FOUND) THEN
3500: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_OTHER');
3501: FND_MSG_PUB.ADD;
3502: END IF;
3503: CLOSE exist_position_csr;
3504: END IF; -- if l_srl_flag = 'Y'
3505: END IF; -- if chk_non_serialized_csr%NOTFOUND
3508: --Check if workorder's instance is in UC tree
3509: l_unit_instance_id := get_unit_instance_id(p_disposition_rec.workorder_id);
3510: IF(l_unit_instance_id IS NULL) THEN
3511: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_NOT_UC_NO_POS'); --Workorder's instance does not belong to UC hence path position is not allowed
3512: FND_MSG_PUB.ADD;
3513: RAISE FND_API.G_EXC_ERROR;
3514: END IF;
3515:
3516: IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3559: -- Ensure that the disposition instance is the same as the removed instance.
3560: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3561: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3562: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: ELSE
3566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_NOT_WO_UC'); --Position is not in the same Unit Configuration as that of workorder instance.
3567: FND_MSG_PUB.ADD;
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: ELSE
3566: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_NOT_WO_UC'); --Position is not in the same Unit Configuration as that of workorder instance.
3567: FND_MSG_PUB.ADD;
3568: END IF; -- part change check
3569: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3571: FND_MSG_PUB.ADD;
3567: FND_MSG_PUB.ADD;
3568: END IF; -- part change check
3569: ELSIF (l_mapping_status = 'PARENT_EMPTY') THEN
3570: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_PARENT_EMPTY'); --Cannot select a position whose parent is empty
3571: FND_MSG_PUB.ADD;
3572: ELSIF (l_mapping_status = 'EMPTY') THEN
3573: -- Check if this create_disposition is called from Part Change
3574: IF(p_disposition_rec.part_change_id IS NOT NULL) THEN
3575: IF (l_pc_type = G_PART_CHANGE_REMOVE) THEN
3577: -- Ensure that the disposition instance is the same as the removed instance
3578: IF (NVL(p_disposition_rec.instance_id, -1) <> l_pc_rem_instance_id) THEN
3579: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3580: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3581: FND_MSG_PUB.ADD;
3582: END IF;
3583: ELSE
3584: -- G_PART_CHANGE_INSTALL and G_PART_CHANGE_SWAP are not possible since the position is empty
3585: -- May have to throw an exception if control come here
3588: ELSE
3589: l_position_empty := TRUE;
3590: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3591: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_INST'); --Position is empty cannot enter instance number.
3592: FND_MSG_PUB.ADD;
3593: END IF;
3594: --Check if parent instance of this empty position is in the same tree as workorder instance
3595: OPEN get_wo_instance_id(p_disposition_rec.workorder_id);
3596: FETCH get_wo_instance_id INTO l_wo_instance_id;
3610: END IF;
3611:
3612: IF nvl(l_wo_root_instance_id, -1) <> nvl(l_dis_root_instance_id, -1) THEN
3613: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_POS_NOT_WO_UC'); -- Instance is not in the same unit as workorder instance
3614: FND_MSG_PUB.ADD;
3615: RAISE FND_API.G_EXC_ERROR;
3616: END IF;
3617: END IF;
3618: END IF; -- Part Change
3624: -- Disposition is for the empty position (before the install)
3625: IF (p_disposition_rec.instance_id IS NOT NULL) THEN
3626: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3627: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3628: FND_MSG_PUB.ADD;
3629: RAISE FND_API.G_EXC_ERROR;
3630: END IF;
3631: l_position_empty := TRUE;
3632: ELSIF (l_pc_type = G_PART_CHANGE_SWAP) THEN
3634: -- Ensure that the disposition instance is the same as the removed instance
3635: IF (NVL(p_disposition_rec.instance_id, l_pc_rem_instance_id) <> l_pc_rem_instance_id) THEN
3636: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
3637: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_disposition_rec.instance_id);
3638: FND_MSG_PUB.ADD;
3639: END IF;
3640: ELSE
3641: -- G_PART_CHANGE_REMOVE is not possible since the position is not empty
3642: -- May have to throw an exception if control come here
3646: IF(nvl(l_pos_instance_id, -1) <> nvl(p_disposition_rec.instance_id, -1)) THEN
3647: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INST_NO_MATCH'); -- Position's instance and disposition instance do not match
3648: FND_MESSAGE.Set_Token('POS_INSTANT_ID', l_pos_instance_id);
3649: FND_MESSAGE.Set_Token('DIS_INSTANT_ID', p_disposition_rec.instance_id);
3650: FND_MSG_PUB.ADD;
3651: END IF;
3652: END IF; -- Part Change
3653: END IF; -- l_mapping_status
3654: END IF; -- end path_position
3661: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Check Check Item');
3662: END IF;
3663: IF (l_position_empty = TRUE) THEN
3664: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_POS_EMPTY_NO_ITM'); --Item does not belong to the item group
3665: FND_MSG_PUB.ADD;
3666: END IF;
3667:
3668: validate_item(p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id, p_disposition_rec.workorder_id);
3669:
3676: OPEN item_in_itemgrp_csr( p_disposition_rec.inventory_item_id, p_disposition_rec.item_group_id);
3677: FETCH item_in_itemgrp_csr INTO l_exist;
3678: IF item_in_itemgrp_csr%NOTFOUND THEN
3679: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_NOT_IN_ITMGRP'); --Item does not belong to the item group
3680: FND_MSG_PUB.ADD;
3681: END IF;
3682: CLOSE item_in_itemgrp_csr;
3683: END IF; -- item_group_id is not null
3684:
3691: IF (p_disposition_rec.instance_id IS NULL) THEN
3692: -- validation to force the user to pick an instance if Disposition Item is Trackable in the IB
3693: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_TR_ITEM_INST_MAND'); -- Invalid item group
3694: FND_MESSAGE.Set_Token('ITEM_NAME',p_disposition_rec.item_number);
3695: FND_MSG_PUB.ADD;
3696: END IF;
3697: ELSE --start fix Bug#4075758 Item is non-tracked
3698: validate_Item_Control(p_disposition_rec.inventory_item_id , p_disposition_rec.item_org_id,
3699: p_disposition_rec.serial_number,
3713: OPEN val_item_group_csr(p_disposition_rec.item_group_id);
3714: FETCH val_item_group_csr INTO l_exist;
3715: IF (val_item_group_csr%NOTFOUND) THEN
3716: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_GRP'); -- Invalid item group
3717: FND_MSG_PUB.ADD;
3718: END IF;
3719: CLOSE val_item_group_csr;
3720:
3721: IF(p_disposition_rec.inventory_item_Id IS NULL) THEN
3719: CLOSE val_item_group_csr;
3720:
3721: IF(p_disposition_rec.inventory_item_Id IS NULL) THEN
3722: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITMGRP_REQ_ITM'); --Since item group is present, item number needs to be entered.
3723: FND_MSG_PUB.ADD;
3724: END IF;
3725: --path position id exist then item group must be null
3726: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3727: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_ITMGRP'); -- Can only enter either position or item group but not both.
3724: END IF;
3725: --path position id exist then item group must be null
3726: IF(p_disposition_rec.path_position_id IS NOT NULL)THEN
3727: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_POS_ITMGRP'); -- Can only enter either position or item group but not both.
3728: FND_MSG_PUB.ADD;
3729: END IF;
3730: END IF; -- item_group_id is not null
3731:
3732: --INSTANCE-----------------------------
3741: p_disposition_rec.part_change_id);
3742:
3743: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3744: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3745: FND_MSG_PUB.ADD;
3746: ELSE
3747: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3748: FETCH get_item_id_csr INTO l_item_id;
3749: IF l_item_id <> p_disposition_rec.inventory_item_id THEN
3747: OPEN get_item_id_csr(p_disposition_rec.instance_id);
3748: FETCH get_item_id_csr INTO l_item_id;
3749: IF l_item_id <> p_disposition_rec.inventory_item_id THEN
3750: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_NO_MATCH'); -- Item does not match with instance's item.
3751: FND_MSG_PUB.ADD;
3752: END IF;
3753: CLOSE get_item_id_csr;
3754: END IF;
3755: END IF;
3761: END IF;
3762: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Lot Number', 1, 255));
3763: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3764: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item number is required
3765: FND_MSG_PUB.ADD;
3766: ELSE
3767: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3768: FETCH val_lot_number_csr INTO l_exist;
3769: IF (val_lot_number_csr%NOTFOUND) THEN
3767: OPEN val_lot_number_csr(p_disposition_rec.lot_number, p_disposition_rec.inventory_item_id);
3768: FETCH val_lot_number_csr INTO l_exist;
3769: IF (val_lot_number_csr%NOTFOUND) THEN
3770: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_LOT'); -- Invalid lot_number and item combination
3771: FND_MSG_PUB.ADD;
3772: END IF;
3773: CLOSE val_lot_number_csr;
3774: END IF;
3775: END IF;
3782: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number', 1, 255));
3783: IF(p_disposition_rec.inventory_item_id IS NULL) THEN
3784: --dbms_output.put_line(SubStr('In Validate_For_Create -- Check Serial Number--check item is null', 1, 255));
3785: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_ITEM_REQ'); -- Item is required
3786: FND_MSG_PUB.ADD;
3787: ELSE
3788: --dbms_output.put_line(SubStr('In Validate_For_Create -- before open val_serial_number_csr', 1, 255));
3789: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3790: FETCH val_serial_number_csr INTO l_exist;
3789: OPEN val_serial_number_csr(p_disposition_rec.serial_number, p_disposition_rec.inventory_item_id);
3790: FETCH val_serial_number_csr INTO l_exist;
3791: IF (val_serial_number_csr%NOTFOUND) THEN
3792: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_SERIAL'); -- Invalid serial number and item combination
3793: FND_MSG_PUB.ADD;
3794: END IF;
3795: CLOSE val_serial_number_csr;
3796: END IF;
3797: --dbms_output.put_line(SubStr('In Validate_For_Create --end check serial Number', 1, 255));
3799:
3800: --QUANTITY -----------------------------------
3801: IF (p_disposition_rec.quantity IS NULL AND l_position_empty = FALSE) THEN
3802: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_REQ'); -- Quantity cannot be null
3803: FND_MSG_PUB.ADD;
3804: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3805: IF p_disposition_rec.quantity <= 0 THEN
3806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3807: FND_MSG_PUB.ADD;
3803: FND_MSG_PUB.ADD;
3804: ELSIF (p_disposition_rec.quantity IS NOT NULL) THEN
3805: IF p_disposition_rec.quantity <= 0 THEN
3806: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_LESS_ZERO'); -- Quantity must be greater than zero
3807: FND_MSG_PUB.ADD;
3808: END IF;
3809: IF p_disposition_rec.instance_id IS NOT NULL THEN
3810: OPEN instance_quantity_csr(p_disposition_rec.instance_id);
3811: FETCH instance_quantity_csr into l_quantity;
3813: -- The quantity check should be modified from '<>' to '>'. Subsequently, the error has been modified to
3814: -- 'Quantity should not be greater than instance quantity'.
3815: IF (p_disposition_rec.quantity > l_quantity) THEN
3816: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QTY_INST_QTY'); -- Quantity cannot be different from instance's quantity
3817: FND_MSG_PUB.ADD;
3818: END IF;
3819: CLOSE instance_quantity_csr;
3820: END IF;
3821: END IF;
3822:
3823: --UOM-------------------------------------------------------------
3824: IF( p_disposition_rec.uom IS NULL AND l_position_empty = FALSE )THEN
3825: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_UOM_REQ'); -- UOM cannot be null
3826: FND_MSG_PUB.ADD;
3827: ELSIF ( p_disposition_rec.uom IS NOT NULL) THEN
3828: OPEN val_uom_csr(p_disposition_rec.uom);
3829: FETCH val_uom_csr INTO l_exist;
3830: IF val_uom_csr%NOTFOUND THEN
3828: OPEN val_uom_csr(p_disposition_rec.uom);
3829: FETCH val_uom_csr INTO l_exist;
3830: IF val_uom_csr%NOTFOUND THEN
3831: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_UOM'); -- Invalid UOM.
3832: FND_MSG_PUB.ADD;
3833: END IF;
3834: CLOSE val_uom_csr;
3835:
3836: IF p_disposition_rec.instance_id IS NOT NULL THEN
3837: OPEN instance_uom_csr(p_disposition_rec.instance_id);
3838: FETCH instance_uom_csr INTO l_uom;
3839: IF (p_disposition_rec.uom <> l_uom) THEN
3840: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_INST_UOM'); -- Invalid UOM. UOM must be the same as instance's UOM.
3841: FND_MSG_PUB.ADD;
3842: END IF;
3843: CLOSE instance_uom_csr;
3844: END IF;
3845:
3847: OPEN item_class_uom_csr(p_disposition_rec.uom, p_disposition_rec.inventory_item_id);
3848: FETCH item_class_uom_csr into l_exist;
3849: IF item_class_uom_csr%NOTFOUND THEN
3850: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_INV_ITEM_UOM'); -- Invalid UOM. UOM must belong to the item's primary uom
3851: FND_MSG_PUB.ADD;
3852: END IF;
3853: CLOSE item_class_uom_csr;
3854: END IF;
3855: END IF;
3877: OPEN is_qa_coll_reqd(l_plan_id);
3878: FETCH is_qa_coll_reqd INTO l_dummy;
3879: IF(is_qa_coll_reqd%FOUND) THEN
3880: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_QA_RESULT_REQ'); -- QA Result Required
3881: FND_MSG_PUB.ADD;
3882: END IF;
3883: CLOSE is_qa_coll_reqd;
3884: ELSE
3885: validate_collection_id(p_disposition_rec.collection_id);
3895: ( p_disposition_rec.summary IS NOT NULL OR p_disposition_rec.problem_code IS NOT NULL
3896: OR p_disposition_rec.severity_id IS NOT NULL
3897: )) THEN
3898: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DIS_SR_NOT_REQ'); --Non Conformance (SR) information is not required
3899: FND_MSG_PUB.ADD;
3900: END IF;
3901:
3902: --OPERATION_ID--------------------------------------------------------
3903: IF (p_disposition_rec.wo_operation_id IS NOT NULL) THEN
3907: --validate item revision--------------------------------------------------------
3908: IF (p_disposition_rec.item_revision IS NOT NULL) THEN
3909: IF p_disposition_rec.inventory_item_id IS NULL THEN
3910: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_ITM_REV_REQ_ITM'); --Cannot enter an item revision without entering item
3911: FND_MSG_PUB.ADD;
3912: ELSE
3913: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3914: FETCH item_revisions_csr INTO l_exist;
3915: IF item_revisions_csr%NOTFOUND THEN
3913: OPEN item_revisions_csr(p_disposition_rec.item_revision, p_disposition_rec.inventory_item_id, p_disposition_rec.item_org_id);
3914: FETCH item_revisions_csr INTO l_exist;
3915: IF item_revisions_csr%NOTFOUND THEN
3916: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_PRD_DIS_INV_ITEM_REV'); --Invalid item revision
3917: FND_MSG_PUB.ADD;
3918: END IF;
3919: CLOSE item_revisions_csr;
3920: END IF;
3921: END IF;
3919: CLOSE item_revisions_csr;
3920: END IF;
3921: END IF;
3922:
3923: IF FND_MSG_PUB.count_msg > 0 THEN
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3926:
3927: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4009: FETCH instance_id_csr INTO p_x_prd_disposition_rec.instance_id;
4010: IF(instance_id_csr%NOTFOUND) THEN
4011: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_INST_NUM');
4012: FND_MESSAGE.Set_Token('INTANCE_NUM', p_x_prd_disposition_rec.instance_number);
4013: FND_MSG_PUB.ADD;
4014: END IF;
4015: CLOSE instance_id_csr;
4016: ELSIF(p_x_prd_disposition_rec.instance_number = FND_API.G_MISS_CHAR) THEN
4017: p_x_prd_disposition_rec.instance_id := NULL;
4022: FETCH item_group_id_csr INTO p_x_prd_disposition_rec.item_group_id;
4023: IF(item_group_id_csr%NOTFOUND) THEN
4024: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITM_GRPNAME');
4025: FND_MESSAGE.Set_Token('ITEM_GROUP', p_x_prd_disposition_rec.item_group_name);
4026: FND_MSG_PUB.ADD;
4027: END IF;
4028: CLOSE item_group_id_csr;
4029: ELSIF(p_x_prd_disposition_rec.item_group_name = FND_API.G_MISS_CHAR) THEN
4030: p_x_prd_disposition_rec.item_group_id := NULL;
4039: FETCH item_id_csr INTO p_x_prd_disposition_rec.inventory_item_id;
4040: IF(item_id_csr%NOTFOUND) THEN
4041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_ITEM_NUM');
4042: FND_MESSAGE.Set_Token('ITEM_NUM', p_x_prd_disposition_rec.item_number);
4043: FND_MSG_PUB.ADD;
4044: END IF;
4045: CLOSE item_id_csr;
4046: ELSIF(p_x_prd_disposition_rec.item_number = FND_API.G_MISS_CHAR) THEN
4047: p_x_prd_disposition_rec.inventory_item_id := NULL;
4052: FETCH wo_operation_id_csr INTO p_x_prd_disposition_rec.wo_operation_id;
4053: IF(wo_operation_id_csr%NOTFOUND) THEN
4054: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_OPER_SEQ');
4055: FND_MESSAGE.Set_Token('OPER_SEQ', p_x_prd_disposition_rec.operation_sequence);
4056: FND_MSG_PUB.ADD;
4057: END IF;
4058: CLOSE wo_operation_id_csr;
4059: ELSIF(p_x_prd_disposition_rec.operation_sequence = FND_API.G_MISS_NUM) THEN
4060: p_x_prd_disposition_rec.wo_operation_id := NULL;
4065: FETCH condition_id_csr INTO p_x_prd_disposition_rec.condition_id;
4066: IF(condition_id_csr%NOTFOUND) THEN
4067: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_CONDITION');
4068: FND_MESSAGE.Set_Token('CONDITION', p_x_prd_disposition_rec.condition_meaning);
4069: FND_MSG_PUB.ADD;
4070: END IF;
4071: CLOSE condition_id_csr;
4072: ELSIF(p_x_prd_disposition_rec.condition_meaning = FND_API.G_MISS_CHAR) THEN
4073: p_x_prd_disposition_rec.condition_id := NULL;
4078: FETCH severity_id_csr INTO p_x_prd_disposition_rec.severity_id;
4079: IF(severity_id_csr%NOTFOUND) THEN
4080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_SEVERITY_NAME');
4081: FND_MESSAGE.Set_Token('NAME', p_x_prd_disposition_rec.severity_name);
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: CLOSE severity_id_csr;
4085: ELSIF(p_x_prd_disposition_rec.severity_name = FND_API.G_MISS_CHAR) THEN
4086: p_x_prd_disposition_rec.severity_id := NULL;
4091: FETCH problem_code_csr INTO p_x_prd_disposition_rec.problem_code;
4092: IF(problem_code_csr%NOTFOUND) THEN
4093: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_PROBLEM');
4094: FND_MESSAGE.Set_Token('PROBLEM', p_x_prd_disposition_rec.problem_meaning);
4095: FND_MSG_PUB.ADD;
4096: END IF;
4097: CLOSE problem_code_csr;
4098: ELSIF(p_x_prd_disposition_rec.problem_meaning = FND_API.G_MISS_CHAR) THEN
4099: p_x_prd_disposition_rec.problem_code := NULL;
4107: OPEN service_type_code_csr( p_x_prd_disposition_rec.service_type);
4108: FETCH service_type_code_csr INTO p_x_prd_disposition_rec.service_type_code;
4109: IF(service_type_code_csr%NOTFOUND) THEN
4110: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_SERVICE_TYPE_INVALID');
4111: FND_MSG_PUB.ADD;
4112: END IF;
4113: CLOSE service_type_code_csr;
4114: ELSIF(p_x_prd_disposition_rec.service_type = FND_API.G_MISS_CHAR) THEN
4115: p_x_prd_disposition_rec.service_type_code := NULL;
4142: FETCH val_collection_id_csr into l_exist;
4143: IF val_collection_id_csr%NOTFOUND THEN
4144: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_COLLECTION_ID'); -- Invalid collection Id
4145: FND_MESSAGE.Set_Token('COLL_ID', p_collection_id);
4146: FND_MSG_PUB.ADD;
4147: END IF;
4148: END IF;
4149: END validate_collection_id;
4150:
4162: FETCH workorder_csr INTO l_exist;
4163: IF workorder_csr%NOTFOUND THEN
4164: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_INV_WORKORDER_ID'); -- Invalid Workorder Id
4165: FND_MESSAGE.set_token('WORKORDER_ID', p_workorder_id);
4166: FND_MSG_PUB.ADD;
4167: CLOSE workorder_csr;
4168: RAISE FND_API.G_EXC_ERROR;
4169: ELSE
4170: CLOSE workorder_csr;
4186: FETCH path_position_csr INTO l_exist;
4187: IF path_position_csr%NOTFOUND THEN
4188: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_PATH_POSITION');
4189: FND_MESSAGE.SET_TOKEN('PATH_POS_ID', p_path_position_id);
4190: FND_MSG_PUB.ADD;
4191: CLOSE path_position_csr;
4192: RAISE FND_API.G_EXC_ERROR;
4193: ELSE
4194: CLOSE path_position_csr;
4220: IF val_item_csr%NOTFOUND THEN
4221: CLOSE val_item_csr; --Close cursor before raising exception
4222: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_ITEM_ID');
4223: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4224: FND_MSG_PUB.ADD;
4225: RAISE FND_API.G_EXC_ERROR;
4226: END IF;
4227: CLOSE val_item_csr;
4228:
4238: IF val_item_csr%NOTFOUND THEN
4239: CLOSE val_item_csr; --close cursor before raise an exception
4240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_ITEM_NOT_IN_WO_ORG'); --Item is not defined in workorder's organization
4241: FND_MESSAGE.SET_TOKEN('ITEM_ID', p_inventory_item_id);
4242: FND_MSG_PUB.ADD;
4243: RAISE FND_API.G_EXC_ERROR;
4244: END IF;
4245: CLOSE val_item_csr;
4246: END IF;
4294: CLOSE item_control_csr;
4295:
4296: IF l_serial_flag = 'Y' AND p_serial_number IS NULL THEN
4297: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_SERIAL_REQ'); --Serial Number is required
4298: FND_MSG_PUB.ADD;
4299: END IF;
4300:
4301: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
4302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_ITEM_REV_REQ'); --Item Revision Number is required
4299: END IF;
4300:
4301: IF l_rev_qty_flag = 'Y' AND p_item_rev_number IS NULL THEN
4302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_ITEM_REV_REQ'); --Item Revision Number is required
4303: FND_MSG_PUB.ADD;
4304: END IF;
4305:
4306: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
4307: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_REQ'); --Lot Number is required
4304: END IF;
4305:
4306: IF l_lot_flag = 'Y' AND p_lot_number IS NULL THEN
4307: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_LOT_NUM_REQ'); --Lot Number is required
4308: FND_MSG_PUB.ADD;
4309: END IF;
4310:
4311: END validate_Item_Control;
4312:
4371: FETCH instance_csr INTO l_exist;
4372: IF instance_csr%NOTFOUND THEN
4373: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_INSTANT_ID');
4374: FND_MESSAGE.SET_TOKEN('INSTANT_ID', p_instance_id);
4375: FND_MSG_PUB.ADD;
4376: END IF;
4377: CLOSE instance_csr;
4378:
4379: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4395: -- IB Tree, Disposition created from Part Change UI: Allow duplicates
4396: NULL;
4397: ELSE
4398: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_DISP'); --Instance already exist in another not-completed or not-terminated disposition.
4399: FND_MSG_PUB.ADD;
4400: END IF;
4401: -- End changes by jaramana on August 7, 2007 to support IB Trees
4402: END IF;
4403: CLOSE instance_in_disp_csr;
4432: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_wo_root_instance_id:' || l_wo_root_instance_id);
4433: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_dis_root_instance_id:' || l_dis_root_instance_id);
4434: END IF;
4435: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INST_IN_UC'); -- Instance is not in the same unit as workorder instance
4436: FND_MSG_PUB.ADD;
4437: RAISE FND_API.G_EXC_ERROR;
4438: END IF; -- Root Instances are not the same
4439: END IF; -- l_wo_instance_id <> p_instance_id
4440: END IF; -- p_part_change_id is null
4453: FETCH instance_in_wip_csr INTO l_exist;
4454: IF instance_in_wip_csr%NOTFOUND THEN
4455: CLOSE instance_in_wip_csr;
4456: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INST_NOT_ISSUED'); -- Instance is not issued to the job
4457: FND_MSG_PUB.ADD;
4458: RAISE FND_API.G_EXC_ERROR;
4459: END IF;
4460: CLOSE instance_in_wip_csr;
4461: ***/
4480: FETCH val_wo_operation_csr INTO l_exist;
4481: IF val_wo_operation_csr%NOTFOUND THEN
4482: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_INV_OPERATION'); --Invalid operation id.
4483: FND_MESSAGE.SET_TOKEN('OPER_ID', p_wo_operation_id);
4484: FND_MSG_PUB.ADD;
4485: END IF;
4486: CLOSE val_wo_operation_csr;
4487:
4488: END validate_wo_operation;
4534: FETCH part_change_csr INTO l_removed_instance_id, l_installed_instance_id, l_part_change_type, l_part_change_quantity;
4535: IF part_change_csr%NOTFOUND THEN
4536: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_PART_CHG_ID'); -- Invalid part change id
4537: FND_MESSAGE.SET_TOKEN('PART_CHNG_ID', p_part_change_id);
4538: FND_MSG_PUB.ADD;
4539: ELSIF (l_part_change_type IN ('R', 'S')) THEN -- Remove or Swap
4540: -- SATHAPLI::FP OGMA Issue# 105 - Non-Serialized Item Maintenance, 13-Dec-2007
4541: -- Compare instances only if it is serialized.
4542: IF (l_disp_inst_dtls.SERIAL_NUMBER IS NOT NULL) THEN
4543: IF (NVL(p_disp_instance_id, -1) <> nvl(l_removed_instance_id, -1)) THEN
4544: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4545: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4546: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4547: FND_MSG_PUB.ADD;
4548: END IF;
4549: ELSE
4550: -- Non-serialized: Removed instance can be different from the Disposition Instance.
4551: -- Compare only item and quantity.
4570: -- The Message AHL_PRD_DIS_INV_REMOVE_INST is not accurate in this case, but is probably ok
4571: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_REMOVE_INST'); -- Removed instance in part change is not the same as disposition instance
4572: FND_MESSAGE.SET_TOKEN('REMOVED_INST', l_removed_instance_id);
4573: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4574: FND_MSG_PUB.ADD;
4575: END IF; -- Item and Quantity Mismatch
4576: END IF; -- Instances are different
4577: END IF; -- Disp Instance's Serial Number is null or not
4578: ELSE
4582: IF p_disp_instance_id IS NOT NULL AND l_installed_instance_id IS NOT NULL AND p_disp_instance_id <> l_installed_instance_id THEN
4583: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_DIS_INV_INSTALL_INST'); -- Installed instance in part change is not the same as disposition instance
4584: FND_MESSAGE.SET_TOKEN('INSTALLED_INST', l_installed_instance_id);
4585: FND_MESSAGE.SET_TOKEN('DISP_INST', p_disp_instance_id);
4586: FND_MSG_PUB.ADD;
4587: END IF; -- Disposition Instance is not the same as the Installation Instance
4588: END IF; -- Part Change Found, and Part Change Type Check
4589: CLOSE part_change_csr;
4590: -- End Changes made by jaramana on August 07, 2007 for the bug 6328554 (FP of 5948917)
4930: OPEN check_immed_disp_types_csr (p_disposition_rec.immediate_disposition_code);
4931: FETCH check_immed_disp_types_csr into l_dummy;
4932: IF (check_immed_disp_types_csr%NOTFOUND) THEN
4933: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_TYPE_INV');
4934: FND_MSG_PUB.ADD;
4935: END IF;
4936: CLOSE check_immed_disp_types_csr;
4937:
4938: --Validate that the secondary disposition type is valid
4940: OPEN check_second_disp_types_csr (p_disposition_rec.secondary_disposition_code);
4941: FETCH check_second_disp_types_csr into l_dummy;
4942: IF (check_second_disp_types_csr%NOTFOUND) THEN
4943: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4944: FND_MSG_PUB.ADD;
4945: END IF;
4946: CLOSE check_second_disp_types_csr;
4947: END IF;
4948:
4949: OPEN check_condition_csr (p_disposition_rec.condition_id);
4950: FETCH check_condition_csr into l_dummy;
4951: IF (check_condition_csr%NOTFOUND) THEN
4952: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_CONDITION_INV');
4953: FND_MSG_PUB.ADD;
4954: END IF;
4955: CLOSE check_condition_csr;
4956:
4957:
4966: p_disposition_rec.secondary_disposition_code <> 'SCRAP' AND
4967: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
4968: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4969: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4970: FND_MSG_PUB.ADD;
4971: --If SCRAP, condition has to be MRB
4972: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4973: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4974: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4971: --If SCRAP, condition has to be MRB
4972: ELSIF (p_disposition_rec.secondary_disposition_code = 'SCRAP' AND
4973: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4974: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4975: FND_MSG_PUB.ADD;
4976: END IF;
4977:
4978: ELSE
4979: --Use_as_is means condition must be serviceable
4980: IF (p_disposition_rec.immediate_disposition_code = 'USE_AS_IS' AND
4981: (p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') OR
4982: p_disposition_rec.condition_id=fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'))) THEN
4983: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4984: FND_MSG_PUB.ADD;
4985: END IF;
4986: --SCRAP means condition is MRB
4987: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4988: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4986: --SCRAP means condition is MRB
4987: IF (p_disposition_rec.immediate_disposition_code = 'SCRAP' AND
4988: p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
4989: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_TYPE_COND_INV');
4990: FND_MSG_PUB.ADD;
4991: END IF;
4992: --not BFS or NON_CONF, secondary must be null
4993: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4991: END IF;
4992: --not BFS or NON_CONF, secondary must be null
4993: IF(p_disposition_rec.secondary_disposition_code IS NOT NULL) THEN
4994: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
4995: FND_MSG_PUB.ADD;
4996: END IF;
4997: END IF;
4998:
4999: --Jerry added the following validation on 02/17/2005 for fixing bug 4189553
5015:
5016: IF (p_disposition_rec.secondary_disposition_code IN ('REWORK_RR', 'REWORK_NR') AND
5017: l_trackable_flag = 'N') THEN
5018: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_TYPE_INV');
5019: FND_MSG_PUB.ADD;
5020: END IF;
5021:
5022: --Validate against existing state in update case.
5023: IF (p_disposition_rec.operation_flag = G_OP_UPDATE AND
5028: FETCH get_disp_rec_csr INTO l_disp_rec;
5029: IF (get_disp_rec_csr%NOTFOUND) THEN
5030: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_ID_INV');
5031: FND_MESSAGE.Set_Token('DISPOSITION_ID', p_disposition_rec.disposition_id);
5032: FND_MSG_PUB.ADD;
5033: RAISE FND_API.G_EXC_ERROR;
5034: END IF;
5035: CLOSE get_disp_rec_csr;
5036:
5040: AND p_disposition_rec.condition_id <> fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5041: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5042: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5043: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5044: FND_MSG_PUB.ADD;
5045: --Unserviceable cannot become serviceable
5046: ELSIF (l_disp_rec.condition_id = fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5047: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE') AND
5048: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5048: p_disposition_rec.condition_id<>fnd_profile.value('AHL_MTL_MAT_STATUS_MRB')) THEN
5049: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_COND_CHANGE_INV');
5050: FND_MESSAGE.Set_Token('OLD_CONDITION', l_disp_rec.condition_code);
5051: FND_MESSAGE.Set_Token('NEW_CONDITION', p_disposition_rec.condition_meaning);
5052: FND_MSG_PUB.ADD;
5053: END IF;
5054:
5055: --Validate that Disposition Types are defined correctly
5056: --1) Check that Not Removed and NA are not mapped to Not Received
5059: AND p_disposition_rec.immediate_disposition_code = 'NOT_RECEIVED') THEN
5060: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5061: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5062: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5063: FND_MSG_PUB.ADD;
5064: END IF;
5065:
5066: --2) Check that Not Received, BFS, Non_Conf, SCRAP are not changed
5067: --IF ( l_disp_rec.immediate_disposition_code in ('NOT_RECEIVED','BFS','NON_CONF','SCRAP')
5070: AND p_disposition_rec.immediate_disposition_code <> l_disp_rec.immediate_disposition_code) THEN
5071: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5072: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5073: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5074: FND_MSG_PUB.ADD;
5075: END IF;
5076:
5077: --3) Check that USE_AS_IS, RTV, RTC can not change to NOT_REMOVED,NA, NOT_RECEIVED
5078: IF ( l_disp_rec.immediate_disposition_code in ('USE_AS_IS','RTV','RTC')
5079: AND p_disposition_rec.immediate_disposition_code in ('NOT_REMOVED','NA','NOT_RECEIVED')) THEN
5080: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_IMMED_CHANGE_ILL');
5081: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.immediate_type);
5082: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.immediate_disposition);
5083: FND_MSG_PUB.ADD;
5084: END IF;
5085: END IF;
5086:
5087: --Validate secondary dispositions
5090: AND p_disposition_rec.secondary_disposition_code <> 'SCRAP') THEN
5091: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5092: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5093: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5094: FND_MSG_PUB.ADD;
5095: END IF;
5096:
5097:
5098: --5) Check REWORK_NR means no part change has or is taking place.
5101: or p_disposition_rec.part_change_id IS NOT NULL)) THEN
5102: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5103: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5104: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5105: FND_MSG_PUB.ADD;
5106: END IF;
5107:
5108: -- Jerry added the following validation on 02/17/2005 for fixing bug 4189553
5109: IF ( p_disposition_rec.secondary_disposition_code IN ('REWORK_NR','REWORK_RR')
5110: AND l_disp_rec.trackable_flag = 'N') THEN
5111: FND_MESSAGE.Set_Name(G_APP_NAME,'AHL_PRD_DISP_SECND_CHANGE_ILL');
5112: FND_MESSAGE.Set_Token('OLD_DISP_TYPE', l_disp_rec.secondary_type);
5113: FND_MESSAGE.Set_Token('NEW_DISP_TYPE', p_disposition_rec.secondary_disposition);
5114: FND_MSG_PUB.ADD;
5115: END IF;
5116:
5117: END IF; --G_UPDATE
5118:
5115: END IF;
5116:
5117: END IF; --G_UPDATE
5118:
5119: IF FND_MSG_PUB.count_msg > 0 THEN
5120: RAISE FND_API.G_EXC_ERROR;
5121: END IF;
5122:
5123: EXCEPTION
5123: EXCEPTION
5124: WHEN FND_API.G_EXC_ERROR THEN
5125: Rollback to Validate_Disp_Types_Pvt;
5126: x_return_status := FND_API.G_RET_STS_ERROR;
5127: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5128: p_data => x_msg_data,
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5129: p_encoded => fnd_api.g_false);
5130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5131: Rollback to Validate_Disp_Types_Pvt;
5132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5133: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5134: p_data => x_msg_data,
5135: p_encoded => fnd_api.g_false);
5136: WHEN OTHERS THEN
5137: Rollback to Validate_Disp_Types_Pvt;
5135: p_encoded => fnd_api.g_false);
5136: WHEN OTHERS THEN
5137: Rollback to Validate_Disp_Types_Pvt;
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
5140: p_procedure_name => l_api_name,
5141: p_error_text => SQLERRM);
5142: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5143: p_data => x_msg_data,
5138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5139: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
5140: p_procedure_name => l_api_name,
5141: p_error_text => SQLERRM);
5142: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
5143: p_data => x_msg_data,
5144: p_encoded => fnd_api.g_false);
5145:
5146: END Validate_Disposition_Types;
5570: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, l_full_name, 'Throwing Unexpected Error since Get_NonMWO_WIP_Entity_Id returned null');
5571: END IF;
5572: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_WIP_ENTITY_MISSING');
5573: FND_MESSAGE.Set_Token('WOID', p_workorder_id);
5574: FND_MSG_PUB.ADD;
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSE
5577: -- Additional check added by jaramana on February 23, 2007 for ER 5854667
5578: -- Update the instance location only if the work order is in released status
5592: FETCH ahl_obj_ver_csr INTO l_instance_rec.object_version_number;
5593: IF (ahl_obj_ver_csr%NOTFOUND) THEN
5594: FND_MESSAGE.Set_Name('AHL', 'AHL_PRD_REMOVED_INSTANCE_INVALID');
5595: FND_MESSAGE.Set_Token('INST', p_instance_id);
5596: FND_MSG_PUB.ADD;
5597: CLOSE ahl_obj_ver_csr;
5598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5599: ELSE
5600: CLOSE ahl_obj_ver_csr;