[Home] [Help]
137:
138: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
139: IF FND_API.TO_BOOLEAN(p_init_msg_list)
140: THEN
141: FND_MSG_PUB.INITIALIZE;
142: END IF;
143:
144: -- Log API entry point
145: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
159: p_dml_operation => 'C'
160: );
161:
162: -- Check Error Message stack.
163: x_msg_count := FND_MSG_PUB.count_msg;
164: IF (x_msg_count > 0)
165: THEN
166: RAISE FND_API.G_EXC_ERROR;
167: END IF;
312: -- Validate NR specific UE information passed from the frontend...
313: Validate_UE_Details(p_x_nonroutine_rec, l_unit_effectivity_id, 'C');
314:
315: -- Check Error Message stack.
316: x_msg_count := FND_MSG_PUB.count_msg;
317: IF (x_msg_count > 0)
318: THEN
319: RAISE FND_API.G_EXC_ERROR;
320: END IF;
374: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
375: THEN
376: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
377: -- Unit is mandatory for associating MEL/CDL instructions
378: FND_MSG_PUB.ADD;
379: END IF;
380:
381: IF (
382: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
385: )
386: THEN
387: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
388: -- Log Series and Number are mandatory for associating MEL/CDL instructions
389: FND_MSG_PUB.ADD;
390: END IF;
391:
392: -- Retrieve relevant MEL/CDL ata sequence
393: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
392: -- Retrieve relevant MEL/CDL ata sequence
393: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
394:
395: -- Check Error Message stack.
396: x_msg_count := FND_MSG_PUB.count_msg;
397: IF (x_msg_count > 0)
398: THEN
399: RAISE FND_API.G_EXC_ERROR;
400: END IF;
410: IF (NVL(l_ata_rep_time, 0) <> 0 AND trunc(l_service_request_rec.incident_occurred_date) + trunc(l_ata_rep_time/24) < trunc(l_service_request_rec.request_date))
411: THEN
412: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
413: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
414: FND_MSG_PUB.ADD;
415: RAISE FND_API.G_EXC_ERROR;
416: END IF;
417:
418: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
516: );
517: END IF;
518:
519: -- Check Error Message stack.
520: x_msg_count := FND_MSG_PUB.count_msg;
521: IF (x_msg_count > 0)
522: THEN
523: RAISE FND_API.G_EXC_ERROR;
524: END IF;
529: COMMIT WORK;
530: END IF;
531:
532: -- Standard call to get message count and if count is 1, get message info
533: FND_MSG_PUB.count_and_get
534: (
535: p_count => x_msg_count,
536: p_data => x_msg_data,
537: p_encoded => FND_API.G_FALSE
540: EXCEPTION
541: WHEN FND_API.G_EXC_ERROR THEN
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: Rollback to Create_SR_SP;
544: FND_MSG_PUB.count_and_get
545: (
546: p_count => x_msg_count,
547: p_data => x_msg_data,
548: p_encoded => FND_API.G_FALSE
550:
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: Rollback to Create_SR_SP;
554: FND_MSG_PUB.count_and_get
555: (
556: p_count => x_msg_count,
557: p_data => x_msg_data,
558: p_encoded => FND_API.G_FALSE
560:
561: WHEN OTHERS THEN
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: Rollback to Create_SR_SP;
564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
565: THEN
566: FND_MSG_PUB.add_exc_msg
567: (
568: p_pkg_name => G_PKG_NAME,
562: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563: Rollback to Create_SR_SP;
564: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
565: THEN
566: FND_MSG_PUB.add_exc_msg
567: (
568: p_pkg_name => G_PKG_NAME,
569: p_procedure_name => 'Create_SR',
570: p_error_text => SUBSTR(SQLERRM,1,240)
569: p_procedure_name => 'Create_SR',
570: p_error_text => SUBSTR(SQLERRM,1,240)
571: );
572: END IF;
573: FND_MSG_PUB.count_and_get
574: (
575: p_count => x_msg_count,
576: p_data => x_msg_data,
577: p_encoded => FND_API.G_FALSE
685:
686: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
687: IF FND_API.TO_BOOLEAN(p_init_msg_list)
688: THEN
689: FND_MSG_PUB.INITIALIZE;
690: END IF;
691:
692: -- Log API entry point
693: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
707: p_dml_operation => 'U'
708: );
709:
710: -- Check Error Message stack.
711: x_msg_count := FND_MSG_PUB.count_msg;
712: IF (x_msg_count > 0)
713: THEN
714: RAISE FND_API.G_EXC_ERROR;
715: END IF;
842: 'l_return_status->'||l_return_status
843: );
844: END IF;
845: -- re-initialize stack to get rid of warnings.
846: FND_MSG_PUB.INITIALIZE;
847: END IF;
848:
849: -- Retrieve ue_id and ovn accordingly...
850: IF (p_x_nonroutine_rec.unit_effectivity_id IS NOT NULL AND p_x_nonroutine_rec.unit_effectivity_id <> FND_API.G_MISS_NUM)
874: -- Validate NR specific UE information passed from the frontend...
875: Validate_UE_Details(p_x_nonroutine_rec, l_unit_effectivity_id, 'U');
876:
877: -- Check Error Message stack.
878: x_msg_count := FND_MSG_PUB.count_msg;
879: IF (x_msg_count > 0)
880: THEN
881: RAISE FND_API.G_EXC_ERROR;
882: END IF;
953: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
954: THEN
955: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
956: -- Unit is mandatory for associating MEL/CDL instructions
957: FND_MSG_PUB.ADD;
958: END IF;
959:
960: IF (
961: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
964: )
965: THEN
966: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
967: -- Log Series and Number are mandatory for associating MEL/CDL instructions
968: FND_MSG_PUB.ADD;
969: END IF;
970:
971: -- Retrieve relevant MEL/CDL ata sequence
972: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
971: -- Retrieve relevant MEL/CDL ata sequence
972: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
973:
974: -- Check Error Message stack.
975: x_msg_count := FND_MSG_PUB.count_msg;
976: IF (x_msg_count > 0)
977: THEN
978: RAISE FND_API.G_EXC_ERROR;
979: END IF;
989: IF (NVL(l_ata_rep_time, 0) <> 0 AND trunc(l_service_request_rec.incident_occurred_date) + trunc(l_ata_rep_time/24) < trunc(l_service_request_rec.request_date))
990: THEN
991: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
992: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
993: FND_MSG_PUB.ADD;
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996:
997: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
1140: /*
1141: ELSE
1142: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_QUAL_APPR');
1143: -- Cannot modify MEL/CDL Instructions for Non-routine pending for MEL/CDL approval or already approved
1144: FND_MSG_PUB.ADD;
1145: */
1146: END IF;
1147:
1148: -- Balaji added for the bug that SR ovn is not correctly returned from the call
1165: );
1166: END IF;
1167:
1168: -- Check Error Message stack.
1169: x_msg_count := FND_MSG_PUB.count_msg;
1170: IF (x_msg_count > 0)
1171: THEN
1172: RAISE FND_API.G_EXC_ERROR;
1173: END IF;
1178: COMMIT WORK;
1179: END IF;
1180:
1181: -- Standard call to get message count and if count is 1, get message info
1182: FND_MSG_PUB.count_and_get
1183: (
1184: p_count => x_msg_count,
1185: p_data => x_msg_data,
1186: p_encoded => FND_API.G_FALSE
1189: EXCEPTION
1190: WHEN FND_API.G_EXC_ERROR THEN
1191: x_return_status := FND_API.G_RET_STS_ERROR;
1192: Rollback to Update_SR_SP;
1193: FND_MSG_PUB.count_and_get
1194: (
1195: p_count => x_msg_count,
1196: p_data => x_msg_data,
1197: p_encoded => FND_API.G_FALSE
1199:
1200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1202: Rollback to Update_SR_SP;
1203: FND_MSG_PUB.count_and_get
1204: (
1205: p_count => x_msg_count,
1206: p_data => x_msg_data,
1207: p_encoded => FND_API.G_FALSE
1209:
1210: WHEN OTHERS THEN
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: Rollback to Update_SR_SP;
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1214: THEN
1215: FND_MSG_PUB.add_exc_msg
1216: (
1217: p_pkg_name => G_PKG_NAME,
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: Rollback to Update_SR_SP;
1213: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1214: THEN
1215: FND_MSG_PUB.add_exc_msg
1216: (
1217: p_pkg_name => G_PKG_NAME,
1218: p_procedure_name => 'Update_SR',
1219: p_error_text => SUBSTR(SQLERRM,1,240)
1218: p_procedure_name => 'Update_SR',
1219: p_error_text => SUBSTR(SQLERRM,1,240)
1220: );
1221: END IF;
1222: FND_MSG_PUB.count_and_get
1223: (
1224: p_count => x_msg_count,
1225: p_data => x_msg_data,
1226: p_encoded => FND_API.G_FALSE
1397:
1398: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1399: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1400: THEN
1401: FND_MSG_PUB.INITIALIZE;
1402: END IF;
1403:
1404: -- Log API entry point
1405: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
1421: IF (unit_effect_csr%NOTFOUND) THEN
1422: CLOSE unit_effect_csr;
1423: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_UE_INVALID');
1424: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1425: FND_MSG_PUB.ADD;
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1428: CLOSE unit_effect_csr;
1429: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1426: RAISE FND_API.G_EXC_ERROR;
1427: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1428: CLOSE unit_effect_csr;
1429: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1430: FND_MSG_PUB.ADD;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433: CLOSE unit_effect_csr;
1434:
1440: -- Unit is locked, therefore cannot proceed for approval.
1441: -- and cannot login to the workorder
1442: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
1443: FND_MESSAGE.set_token('UE_ID', p_ue_id);
1444: FND_MSG_PUB.ADD;
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447:
1448: -- check UE status.
1451: IF (visit_det_csr%NOTFOUND) THEN
1452: CLOSE visit_det_csr;
1453: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_PRD');
1454: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1455: FND_MSG_PUB.ADD;
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1458: CLOSE visit_det_csr;
1459:
1463: IF (ue_deferral_csr%NOTFOUND) THEN
1464: CLOSE ue_deferral_csr;
1465: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_DEFER');
1466: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1467: FND_MSG_PUB.ADD;
1468: RAISE FND_API.G_EXC_ERROR;
1469: END IF;
1470: CLOSE ue_deferral_csr;
1471:
1470: CLOSE ue_deferral_csr;
1471:
1472: IF (l_deferral_rec.approval_status_code IN ('DEFERRED','DEFERRAL_PENDING')) THEN
1473: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_APPR_STATUS_INVALID');
1474: FND_MSG_PUB.ADD;
1475: RAISE FND_API.G_EXC_ERROR;
1476: END IF;
1477:
1478: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1476: END IF;
1477:
1478: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1479: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NO_SYS_SEQ_ASSOC');
1480: FND_MSG_PUB.ADD;
1481: RAISE FND_API.G_EXC_ERROR;
1482: END IF;
1483:
1484: -- validate ue is not being deferred.
1486: FETCH ue_defer_csr INTO l_junk;
1487: IF (ue_defer_csr%FOUND) THEN
1488: CLOSE ue_defer_csr;
1489: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_IN_DEFER');
1490: FND_MSG_PUB.ADD;
1491: RAISE FND_API.G_EXC_ERROR;
1492: END IF;
1493: CLOSE ue_defer_csr;
1494:
1497: FETCH ue_defer_child_csr INTO l_junk;
1498: IF (ue_defer_child_csr%FOUND) THEN
1499: CLOSE ue_defer_child_csr;
1500: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CHILD_UE_DEFER');
1501: FND_MSG_PUB.ADD;
1502: RAISE FND_API.G_EXC_ERROR;
1503: END IF;
1504: CLOSE ue_defer_child_csr;
1505:
1509: FETCH mel_cdl_header_csr INTO l_installed_number, l_dispatch_number, l_repair_time;
1510: IF (mel_cdl_header_csr%NOTFOUND) THEN
1511: CLOSE mel_cdl_header_csr;
1512: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_MEL_CDL_INVALID');
1513: FND_MSG_PUB.ADD;
1514: RAISE FND_API.G_EXC_ERROR;
1515: END IF;
1516:
1517: -- validate repair category.
1519: FETCH get_exp_resolution_csr INTO l_expected_resolu_date;
1520: IF (get_exp_resolution_csr%NOTFOUND) THEN
1521: CLOSE get_exp_resolution_csr;
1522: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CS_INC_MISSING');
1523: FND_MSG_PUB.ADD;
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1526: CLOSE get_exp_resolution_csr;
1527: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1524: RAISE FND_API.G_EXC_ERROR;
1525: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1526: CLOSE get_exp_resolution_csr;
1527: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1528: FND_MSG_PUB.ADD;
1529: RAISE FND_API.G_EXC_ERROR;
1530: END IF;
1531: CLOSE get_exp_resolution_csr;
1532:
1535: IF (NVL(l_repair_time, 0) <> 0 AND trunc(l_deferral_rec.deferral_effective_on) + trunc(l_repair_time/24) < trunc(sysdate))
1536: THEN
1537: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
1538: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
1539: FND_MSG_PUB.ADD;
1540: RAISE FND_API.G_EXC_ERROR;
1541: END IF;
1542: */
1543:
1545: IF (l_ue_rec.unit_config_header_id is null or l_ue_rec.log_series_code is null or l_ue_rec.log_series_number is null)
1546: THEN
1547: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_APPR_MAND_INV');
1548: -- Unit, Log Series and Number are mandatory for submitting for MEL/CDL approval
1549: FND_MSG_PUB.ADD;
1550: RAISE FND_API.G_EXC_ERROR;
1551: END IF;
1552:
1553: --amsriniv. Bug 6659422. Adding condition below only when dispatch_number and installed_number
1567: CLOSE get_open_NRs_csr;
1568:
1569: IF ((l_installed_number - l_NR_count) <= l_dispatch_number) THEN
1570: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPEN_NR_EXCEEDS');
1571: FND_MSG_PUB.ADD;
1572: RAISE FND_API.G_EXC_ERROR;
1573: END IF;
1574: END IF;
1575:
1714: IF (l_count > 0) THEN
1715: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_INTERRELATION_ERROR');
1716: FND_MESSAGE.Set_token('SEQ1',l_deferral_rec.ata_sequence_id);
1717: FND_MESSAGE.Set_token('SEQ2',ata_seq_rec.ata_sequence_id);
1718: FND_MSG_PUB.ADD;
1719: END IF;
1720:
1721: END LOOP;
1722:
1720:
1721: END LOOP;
1722:
1723: -- Check Error Message stack.
1724: x_msg_count := FND_MSG_PUB.count_msg;
1725: IF (x_msg_count > 0)
1726: THEN
1727: x_return_status := 'W'; -- warning.
1728: END IF;
1755: COMMIT WORK;
1756: END IF;
1757:
1758: -- Standard call to get message count and if count is 1, get message info
1759: FND_MSG_PUB.count_and_get
1760: (
1761: p_count => x_msg_count,
1762: p_data => x_msg_data,
1763: p_encoded => FND_API.G_FALSE
1766: EXCEPTION
1767: WHEN FND_API.G_EXC_ERROR THEN
1768: x_return_status := FND_API.G_RET_STS_ERROR;
1769: Rollback to Initiate_Mel_Cdl_Approval_SP;
1770: FND_MSG_PUB.count_and_get
1771: (
1772: p_count => x_msg_count,
1773: p_data => x_msg_data,
1774: p_encoded => FND_API.G_FALSE
1776:
1777: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1779: Rollback to Initiate_Mel_Cdl_Approval_SP;
1780: FND_MSG_PUB.count_and_get
1781: (
1782: p_count => x_msg_count,
1783: p_data => x_msg_data,
1784: p_encoded => FND_API.G_FALSE
1786:
1787: WHEN OTHERS THEN
1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: Rollback to Initiate_Mel_Cdl_Approval_SP;
1790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1791: THEN
1792: FND_MSG_PUB.add_exc_msg
1793: (
1794: p_pkg_name => G_PKG_NAME,
1788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1789: Rollback to Initiate_Mel_Cdl_Approval_SP;
1790: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1791: THEN
1792: FND_MSG_PUB.add_exc_msg
1793: (
1794: p_pkg_name => G_PKG_NAME,
1795: p_procedure_name => 'Initiate_Mel_Cdl_Approval',
1796: p_error_text => SUBSTR(SQLERRM,1,240)
1795: p_procedure_name => 'Initiate_Mel_Cdl_Approval',
1796: p_error_text => SUBSTR(SQLERRM,1,240)
1797: );
1798: END IF;
1799: FND_MSG_PUB.count_and_get
1800: (
1801: p_count => x_msg_count,
1802: p_data => x_msg_data,
1803: p_encoded => FND_API.G_FALSE
1895: IF (p_mel_cdl_header_id IS NOT NULL AND p_pc_node_id IS NOT NULL)
1896: THEN
1897: -- return error.
1898: FND_MESSAGE.Set_Name('AHL', 'AHL_UMP_NR_MULTI_PARAM');
1899: FND_MSG_PUB.ADD;
1900: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1901: END IF;
1902:
1903: -- if p_mel_cdl_header_id is not null
2287: -- Validate unit_config_header_id NOT NULL
2288: IF (p_x_nonroutine_rec.unit_config_header_id is null or p_x_nonroutine_rec.unit_config_header_id = FND_API.G_MISS_NUM)
2289: THEN
2290: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NULL');
2291: FND_MSG_PUB.ADD;
2292: RAISE FND_API.G_EXC_ERROR;
2293: */
2294:
2295: /* Behavior of Unit, Item, Serial and Instance LOVs in "Unit / Component Details" sub-header
2307: p_x_nonroutine_rec.unit_config_header_id := l_uc_header_id;
2308: ELSIF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2309: THEN
2310: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2311: FND_MSG_PUB.ADD;
2312: RAISE FND_API.G_EXC_ERROR;
2313: END IF;
2314: ELSE
2315: l_uc_status_code := ahl_util_uc_pkg.get_uc_status_code(p_x_nonroutine_rec.unit_config_header_id);
2316: -- Check for not active and/or quarantined unit
2317: IF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2318: THEN
2319: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2320: FND_MSG_PUB.ADD;
2321: RAISE FND_API.G_EXC_ERROR;
2322: ELSIF (l_uc_status_code IN ('COMPLETE', 'INCOMPLETE'))
2323: THEN
2324: -- Validate instance exists on the unit specified... Assume instance is validated before this is called...
2325: l_uc_header_id := ahl_util_uc_pkg.get_uc_header_id(p_x_nonroutine_rec.instance_id);
2326: IF (NVL(l_uc_header_id, -1 ) <> p_x_nonroutine_rec.unit_config_header_id)
2327: THEN
2328: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NOMATCH');
2329: FND_MSG_PUB.ADD;
2330: RAISE FND_API.G_EXC_ERROR;
2331: END IF;
2332: ELSE
2333: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2330: RAISE FND_API.G_EXC_ERROR;
2331: END IF;
2332: ELSE
2333: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2334: FND_MSG_PUB.ADD;
2335: RAISE FND_API.G_EXC_ERROR;
2336: END IF;
2337: END IF;
2338:
2356: IF NOT (l_ret_val)
2357: THEN
2358: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2359: -- Log Series is invalid
2360: FND_MSG_PUB.ADD;
2361: END IF;
2362: END IF;
2363: ELSE
2364: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2364: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2365: THEN
2366: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2367: -- Log Series is invalid
2368: FND_MSG_PUB.ADD;
2369: END IF;
2370: END IF;
2371:
2372: IF (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM AND p_x_nonroutine_rec.log_series_number < 0)
2372: IF (p_x_nonroutine_rec.log_series_number IS NOT NULL AND p_x_nonroutine_rec.log_series_number <> FND_API.G_MISS_NUM AND p_x_nonroutine_rec.log_series_number < 0)
2373: THEN
2374: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_LOGNUM_INV');
2375: -- Non-routine Log Number must be a positive integer
2376: FND_MSG_PUB.ADD;
2377: END IF;
2378:
2379: IF (
2380: (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2389: )
2390: THEN
2391: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_COMB');
2392: -- If Log Series is selected, Log Number is mandatory and vice-versa.
2393: FND_MSG_PUB.ADD;
2394: END IF;
2395:
2396: IF (
2397: p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR
2405: THEN
2406: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_INV');
2407: FND_MESSAGE.SET_TOKEN('LOGNUM', p_x_nonroutine_rec.log_series_code||'-'||p_x_nonroutine_rec.log_series_number);
2408: -- Log Number already exists for another non-routine
2409: FND_MSG_PUB.ADD;
2410: END IF;
2411: CLOSE check_lognum_unique;
2412: END IF;
2413:
2427: )
2428: THEN
2429: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_NOCHG');
2430: -- Log Series is mandatory for Non-Routines that have MEL/CDL Instruction associated.
2431: FND_MSG_PUB.ADD;
2432: END IF;
2433: CLOSE is_ue_mel_cdl_qual;
2434: END IF;
2435:
2442: IF (p_x_nonroutine_rec.log_series_meaning IS NULL OR p_x_nonroutine_rec.log_series_meaning = FND_API.G_MISS_CHAR)
2443: THEN
2444: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
2445: -- Log Series is mandatory
2446: FND_MSG_PUB.ADD;
2447: ELSE
2448: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2449: (
2450: p_lookup_type => 'AHL_LOG_SERIES_CODE',
2455: IF NOT (l_ret_val)
2456: THEN
2457: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2458: -- Log Series is invalid
2459: FND_MSG_PUB.ADD;
2460: END IF;
2461: END IF;
2462: ELSE
2463: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2463: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2464: THEN
2465: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2466: -- Log Series is invalid
2467: FND_MSG_PUB.ADD;
2468: END IF;
2469: END IF;
2470: ELSIF (p_dml_operation = 'U' AND l_ue_detail_rec.log_series_code IS NOT NULL)
2471: THEN
2472: IF (l_ue_detail_rec.log_series_code <> p_x_nonroutine_rec.log_series_code)
2473: THEN
2474: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_NOCHG');
2475: -- Log Series cannot be modified after non-routine is created
2476: FND_MSG_PUB.ADD;
2477: END IF;
2478: END IF;
2479:
2480: -- Validate log series number
2489: IF (check_lognum_unique%FOUND)
2490: THEN
2491: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_INV');
2492: -- Log Number already exists for another non-routine
2493: FND_MSG_PUB.ADD;
2494: END IF;
2495: CLOSE check_lognum_unique;
2496: END IF;
2497: ELSIF (p_dml_operation = 'U' AND l_ue_detail_rec.log_series_number IS NOT NULL)
2499: IF (l_ue_detail_rec.log_series_number <> p_x_nonroutine_rec.log_series_number)
2500: THEN
2501: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_NOCHG');
2502: -- Log Number cannot be modified after non-routine is created
2503: FND_MSG_PUB.ADD;
2504: END IF;
2505: END IF;
2506: */
2507:
2520: IF NOT (l_ret_val)
2521: THEN
2522: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_TYPE_INV');
2523: -- Position ATA is invalid
2524: FND_MSG_PUB.ADD;
2525: END IF;
2526: END IF;
2527: ELSE
2528: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_MEL_CDL_TYPE', p_x_nonroutine_rec.mel_cdl_type_code))
2528: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_MEL_CDL_TYPE', p_x_nonroutine_rec.mel_cdl_type_code))
2529: THEN
2530: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_TYPE_INV');
2531: -- Position ATA is invalid
2532: FND_MSG_PUB.ADD;
2533: END IF;
2534: END IF;
2535:
2536: -- Validate ata code
2548: IF NOT (l_ret_val)
2549: THEN
2550: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ATA_INV');
2551: -- Position ATA is invalid
2552: FND_MSG_PUB.ADD;
2553: END IF;
2554: END IF;
2555: ELSE
2556: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_nonroutine_rec.ata_code))
2556: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_nonroutine_rec.ata_code))
2557: THEN
2558: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ATA_INV');
2559: -- Position ATA is invalid
2560: FND_MSG_PUB.ADD;
2561: END IF;
2562: END IF;
2563:
2564: -- Validate position path exists on the unit
2583: IF (check_pos_path_exists%NOTFOUND)
2584: THEN
2585: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_POSPATH_INV');
2586: -- Position path does not exist on the unit
2587: FND_MSG_PUB.ADD;
2588: END IF;
2589: CLOSE check_pos_path_exists;
2590: ELSE
2591: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
2615: )
2616: THEN
2617: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_QUAL_APPR');
2618: -- Cannot modify either of MEL/CDL Type, Position and Position ATA since Non-routine is either pending for MEL/CDL approval or already approved.
2619: FND_MSG_PUB.ADD;
2620: END IF;
2621: END IF;
2622:
2623: /*
2631: IF (get_org_id_from_name%NOTFOUND)
2632: THEN
2633: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ORG_INV');
2634: -- Clear station organization is invalid
2635: FND_MSG_PUB.ADD;
2636: END IF;
2637: CLOSE get_org_id_from_name;
2638: END IF;
2639: ELSE
2642: IF (check_org_id%NOTFOUND)
2643: THEN
2644: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ORG_INV');
2645: -- Clear station organization is invalid
2646: FND_MSG_PUB.ADD;
2647: END IF;
2648: CLOSE check_org_id;
2649: END IF;
2650:
2658: IF (get_dept_id_from_name%NOTFOUND)
2659: THEN
2660: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_DEPT_INV');
2661: -- Clear station department is invalid
2662: FND_MSG_PUB.ADD;
2663: END IF;
2664: CLOSE get_dept_id_from_name;
2665: END IF;
2666: ELSE
2669: IF (check_dept_id%NOTFOUND)
2670: THEN
2671: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_DEPT_INV');
2672: -- Clear station department is invalid
2673: FND_MSG_PUB.ADD;
2674: END IF;
2675: CLOSE check_dept_id;
2676: END IF;
2677: */
2771: IF (l_ue_details_rec.mel_cdl_type_code IS NULL OR l_ue_details_rec.mel_cdl_type_code = FND_API.G_MISS_CHAR)
2772: THEN
2773: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_TYPE_MAND');
2774: -- MEL/CDL Type is mandatory, hence cannot qualify for MEL/CDL
2775: FND_MSG_PUB.ADD;
2776: END IF;
2777:
2778: l_mel_cdl_header_id := Get_Mel_Cdl_Header_Id(p_unit_effectivity_id, null, null);
2779: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
2790: THEN
2791: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_SETUP_MAND');
2792: FND_MESSAGE.SET_TOKEN('UCNAME', l_ue_details_rec.unit_config_name);
2793: -- No MEL/CDL has been setup for the unit "UCNAME", hence cannot qualify for MEL/CDL
2794: FND_MSG_PUB.ADD;
2795: ELSE
2796: IF (
2797: (l_ue_details_rec.ata_code IS NULL OR l_ue_details_rec.ata_code = FND_API.G_MISS_CHAR)
2798: AND
2800: )
2801: THEN
2802: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_ALL_NULL');
2803: -- One of Position ATA and Position is mandatory, hence cannot qualify for MEL/CDL
2804: FND_MSG_PUB.ADD;
2805: END IF;
2806:
2807: IF (l_ue_details_rec.position_path_id IS NOT NULL AND l_ue_details_rec.position_path_id <> FND_API.G_MISS_NUM)
2808: THEN
2855: IF (l_ata_for_position <> p_ata_code)
2856: THEN
2857: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_POS_ATA_NO_MATCH');
2858: -- ATA code of the Position ATA and MC Position does not match .
2859: FND_MSG_PUB.ADD;
2860: RAISE FND_API.G_EXC_ERROR;
2861: END IF;
2862: --End of changes by Priyan
2863:
2915: IF (x_ata_sequence_id IS NULL)
2916: THEN
2917: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_SEQ_FAIL');
2918: -- Cannot retrieve any System Sequence information for non-routine, hence cannot qualify for MEL/CDL
2919: FND_MSG_PUB.ADD;
2920: END IF;
2921: END IF;
2922: END IF;
2923:
2986: THEN
2987: IF (p_x_nonroutine_rec.instance_id is null or p_x_nonroutine_rec.instance_id = FND_API.G_MISS_NUM)
2988: THEN
2989: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_NULL');
2990: FND_MSG_PUB.ADD;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993: ELSE
2994: BEGIN
3004: EXCEPTION
3005: WHEN OTHERS THEN
3006: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_INV');
3007: FND_MESSAGE.SET_TOKEN('INSTANCE', p_x_nonroutine_rec.instance_number);
3008: FND_MSG_PUB.ADD;
3009: END;
3010: END IF;
3011:
3012: IF (p_dml_operation = 'C')
3029: EXCEPTION
3030: WHEN NO_DATA_FOUND THEN
3031: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_INV');
3032: FND_MESSAGE.SET_TOKEN('TYPE', p_x_nonroutine_rec.type_name);
3033: FND_MSG_PUB.ADD;
3034: END;
3035: ELSIF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3036: THEN
3037: p_x_nonroutine_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
3038:
3039: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3040: THEN
3041: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_NULL');
3042: FND_MSG_PUB.ADD;
3043: END IF;
3044: END IF;
3045:
3046: -- Validate and default SR status
3055: EXCEPTION
3056: WHEN NO_DATA_FOUND THEN
3057: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_STATUS_INV');
3058: FND_MESSAGE.SET_TOKEN('STATUS', p_x_nonroutine_rec.status_name);
3059: FND_MSG_PUB.ADD;
3060: END;
3061: ELSIF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
3062: THEN
3063: p_x_nonroutine_rec.status_id := nvl(fnd_profile.value('AHL_PRD_SR_STATUS'), G_SR_OPEN_STATUS_ID);
3075: EXCEPTION
3076: WHEN NO_DATA_FOUND THEN
3077: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_INV');
3078: FND_MESSAGE.SET_TOKEN('SEVERITY', p_x_nonroutine_rec.severity_name);
3079: FND_MSG_PUB.ADD;
3080: END;
3081: ELSIF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3082: THEN
3083: p_x_nonroutine_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
3084:
3085: IF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
3086: THEN
3087: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_NULL');
3088: FND_MSG_PUB.ADD;
3089: END IF;
3090: END IF;
3091:
3092: -- Validate severity against WIP_EAM_ACTIVITY_PRIORITY
3095: OPEN cs_severity_in_eam_priority;
3096: FETCH cs_severity_in_eam_priority INTO l_dummy_varchar;
3097: IF (cs_severity_in_eam_priority%NOTFOUND) THEN
3098: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEV_EAM_INV');
3099: FND_MSG_PUB.ADD;
3100: END IF;
3101: CLOSE cs_severity_in_eam_priority;
3102: END IF;*/
3103:
3122: EXCEPTION
3123: WHEN NO_DATA_FOUND THEN
3124: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_INVALID');
3125: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3126: FND_MSG_PUB.ADD;
3127: WHEN TOO_MANY_ROWS THEN
3128: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_NOT_UNIQUE');
3129: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3130: FND_MSG_PUB.ADD;
3126: FND_MSG_PUB.ADD;
3127: WHEN TOO_MANY_ROWS THEN
3128: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_NOT_UNIQUE');
3129: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3130: FND_MSG_PUB.ADD;
3131: END;
3132:
3133: -- Validate user-input customer against instance owner...
3134: IF (nvl(p_x_nonroutine_rec.customer_id, -1) <> l_instance_owner_id)
3133: -- Validate user-input customer against instance owner...
3134: IF (nvl(p_x_nonroutine_rec.customer_id, -1) <> l_instance_owner_id)
3135: THEN
3136: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_CUSTOMER_NOMATCH');
3137: FND_MSG_PUB.ADD;
3138: END IF;
3139: ELSIF (p_x_nonroutine_rec.customer_id IS NULL or p_x_nonroutine_rec.customer_id = FND_API.G_MISS_NUM)
3140: THEN
3141: p_x_nonroutine_rec.customer_id := l_instance_owner_id;
3160: (p_x_nonroutine_rec.customer_type is null or p_x_nonroutine_rec.customer_type = FND_API.G_MISS_CHAR)
3161: )
3162: THEN
3163: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_CUST_TYPE_NULL');
3164: FND_MSG_PUB.ADD;
3165: END IF;
3166:
3167: -- Validate and contact name and type... Error if contact_type is NULL and contact_id NOT NULL
3168: IF (p_x_nonroutine_rec.contact_name IS NOT NULL AND p_x_nonroutine_rec.contact_name <> FND_API.G_MISS_CHAR)
3188: person_id = nvl(p_x_nonroutine_rec.contact_id,person_id);
3189: ELSE
3190: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_CONT_TYPE_INV');
3191: FND_MESSAGE.SET_TOKEN('CONT_TYPE', p_x_nonroutine_rec.contact_type);
3192: FND_MSG_PUB.ADD;
3193: END IF;
3194: EXCEPTION
3195: WHEN NO_DATA_FOUND THEN
3196: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_INVALID');
3194: EXCEPTION
3195: WHEN NO_DATA_FOUND THEN
3196: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_INVALID');
3197: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3198: FND_MSG_PUB.ADD;
3199: WHEN TOO_MANY_ROWS THEN
3200: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_NOT_UNIQUE');
3201: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3202: FND_MSG_PUB.ADD;
3198: FND_MSG_PUB.ADD;
3199: WHEN TOO_MANY_ROWS THEN
3200: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_NOT_UNIQUE');
3201: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3202: FND_MSG_PUB.ADD;
3203: END;
3204: END IF;
3205:
3206: -- Error if problem_summary NULL
3206: -- Error if problem_summary NULL
3207: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3208: THEN
3209: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3210: FND_MSG_PUB.ADD;
3211: END IF;
3212:
3213: -- bachandr added following validation for Bug # 6447467 (Base ER # 5571440)
3214: -- Bug # 6447467 -- start
3220: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3221: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3222:
3223: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3224: Fnd_Msg_Pub.ADD;
3225: END IF;
3226:
3227: END IF;
3228:
3229: -- Validate if expected resolution date is passed, it is greater than the incident date
3230: IF (p_x_nonroutine_rec.expected_resolution_date is not null and p_x_nonroutine_rec.expected_resolution_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.expected_resolution_date) < trunc(sysdate))
3231: THEN
3232: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3233: FND_MSG_PUB.ADD;
3234: END IF;
3235:
3236: -- Validate if the incident date is greater than the sysdate
3237: -- Changes made for Bug # 5183032
3237: -- Changes made for Bug # 5183032
3238: IF (p_x_nonroutine_rec.incident_date is not null and p_x_nonroutine_rec.incident_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.incident_date) > trunc(sysdate))
3239: THEN
3240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INC_DATE_INV');
3241: FND_MSG_PUB.ADD;
3242: END IF;
3243:
3244: --SALOGAN added the following for Complex Mx - Begin
3245: -- Validate if the instance has duplicate Removal NR
3248: FETCH cr_duplicate_removal_nr into l_c_nr_num;
3249: IF(cr_duplicate_removal_nr%FOUND) THEN
3250: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_CAM_DUP_REM_NR');
3251: FND_MESSAGE.Set_Token('SR_NUM', l_c_nr_num);
3252: FND_MSG_PUB.ADD;
3253: CLOSE cr_duplicate_removal_nr;
3254: RAISE FND_API.G_EXC_ERROR;
3255: END IF;
3256: CLOSE cr_duplicate_removal_nr;
3264: FETCH cs_incident_exists INTO l_incident_number, l_incident_date;
3265: IF (cs_incident_exists%NOTFOUND)
3266: THEN
3267: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_INC_INV');
3268: FND_MSG_PUB.ADD;
3269: CLOSE cs_incident_exists;
3270: RAISE FND_API.G_EXC_ERROR;
3271: ELSIF (l_incident_number <> p_x_nonroutine_rec.incident_number)
3272: THEN
3270: RAISE FND_API.G_EXC_ERROR;
3271: ELSIF (l_incident_number <> p_x_nonroutine_rec.incident_number)
3272: THEN
3273: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_NUM_INV');
3274: FND_MSG_PUB.ADD;
3275: CLOSE cs_incident_exists;
3276: RAISE FND_API.G_EXC_ERROR;
3277: END IF;
3278: CLOSE cs_incident_exists;
3280: -- Validate status_id is not null
3281: IF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
3282: THEN
3283: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_STATUS_NULL');
3284: FND_MSG_PUB.ADD;
3285: END IF;
3286:
3287: -- Validate type_id is not null
3288: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3287: -- Validate type_id is not null
3288: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3289: THEN
3290: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_TYPE_NULL');
3291: FND_MSG_PUB.ADD;
3292: END IF;
3293:
3294: -- Error if problem_summary NULL
3295: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3294: -- Error if problem_summary NULL
3295: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3296: THEN
3297: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3298: FND_MSG_PUB.ADD;
3299: END IF;
3300:
3301: -- bachandr added following validation for Bug # 6447467 (Base ER # 5571440)
3302: -- Bug # 6447467 -- start
3308: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3309: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3310:
3311: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3312: Fnd_Msg_Pub.ADD;
3313: END IF;
3314:
3315: END IF;
3316:
3318: -- Changes made for Bug # 5183032
3319: IF (p_x_nonroutine_rec.expected_resolution_date is not null and p_x_nonroutine_rec.expected_resolution_date <> FND_API.G_MISS_DATE and trunc(p_x_nonroutine_rec.expected_resolution_date) < trunc(l_incident_date))
3320: THEN
3321: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3322: FND_MSG_PUB.ADD;
3323: END IF;
3324:
3325: --SALOGAN added the following for Complex Mx - Begin
3326: -- Validate if the instance has duplicate Removal NR
3329: FETCH upd_duplicate_removal_nr into l_c_nr_num;
3330: IF(upd_duplicate_removal_nr%FOUND) THEN
3331: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_CAM_DUP_REM_NR');
3332: FND_MESSAGE.Set_Token('SR_NUM', l_c_nr_num);
3333: FND_MSG_PUB.ADD;
3334: CLOSE upd_duplicate_removal_nr;
3335: RAISE FND_API.G_EXC_ERROR;
3336: END IF;
3337: CLOSE upd_duplicate_removal_nr;
3531: IF (cs_inc_csr%NOTFOUND) THEN
3532: CLOSE cs_inc_csr;
3533: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_INC_ERROR');
3534: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3535: FND_MSG_PUB.ADD;
3536: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3537: END IF;
3538:
3539: -- Debug Checkpoint.
3548: IF (get_urgency_details_csr%NOTFOUND) THEN
3549: CLOSE get_urgency_details_csr;
3550: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_ATA_ERROR');
3551: FND_MESSAGE.set_token('ATA_ID', p_ata_sequence_id);
3552: FND_MSG_PUB.ADD;
3553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3554: END IF;
3555: CLOSE get_urgency_details_csr;
3556:
3602: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3603: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3604: RAISE FND_API.G_EXC_ERROR;
3605: ELSE
3606: FND_MSG_PUB.INITIALIZE;
3607: END IF;
3608:
3609: --apattark start for bug #9253024
3610:
3651: Fetch default_incident_type_csr INTO l_incident_type_id;
3652: IF ( default_incident_type_csr%NOTFOUND) THEN
3653: CLOSE default_incident_type_csr;
3654: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_INCIDENT_ERROR');
3655: Fnd_Msg_Pub.ADD;
3656: RAISE FND_API.G_EXC_ERROR;
3657: END IF;
3658: CLOSE default_incident_type_csr;
3659:
3697: Fetch default_item_org_id INTO l_service_request_rec.inventory_item_id,
3698: l_service_request_rec.inventory_org_id;
3699: IF (default_item_org_id%NOTFOUND ) THEN
3700: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_ORG_ERROR');
3701: Fnd_Msg_Pub.ADD;
3702: RAISE FND_API.G_EXC_ERROR;
3703: END IF;
3704:
3705: -- Call to Service Request API
3743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3744: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3745: RAISE FND_API.G_EXC_ERROR;
3746: ELSE
3747: FND_MSG_PUB.INITIALIZE;
3748: END IF;
3749:
3750: -- get object version number for the service request and the new ue id.
3751: OPEN get_ue_detls (l_new_incident_id);
3753: IF (get_ue_detls%NOTFOUND) THEN
3754: CLOSE get_ue_detls;
3755: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_ERROR');
3756: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3757: FND_MSG_PUB.ADD;
3758: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3759: END IF;
3760:
3761:
3901: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3902: RAISE FND_API.G_EXC_ERROR;
3903: END IF;
3904:
3905: IF (fnd_msg_pub.count_msg > 0) THEN
3906: RAISE FND_API.G_EXC_ERROR;
3907: END IF;
3908:
3909: --apattark start for bug #9253024
3935: IF (deferral_ue_csr%NOTFOUND) THEN
3936: CLOSE deferral_ue_csr;
3937: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_DEF_MISSING');
3938: FND_MESSAGE.set_token('UE_DEF', p_unit_deferral_id);
3939: FND_MSG_PUB.ADD;
3940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3941: END IF;
3942: CLOSE deferral_ue_csr;
3943:
3947: IF (get_new_ue_csr%NOTFOUND) THEN
3948: CLOSE get_new_ue_csr;
3949: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_NEW_UE_MISSING');
3950: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3951: FND_MSG_PUB.ADD;
3952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3953: END IF;
3954: CLOSE get_new_ue_csr;
3955:
4074: IF (p_sr_incident_id IS NULL) THEN
4075: x_return_status := FND_API.G_RET_STS_ERROR;
4076: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_CAM_SR_ID_INVLD'); --AHL_WARRANTY_ENTL_ID_INVLD
4077: FND_MESSAGE.Set_Token('SR_ID', p_sr_incident_id);
4078: FND_MSG_PUB.ADD;
4079: RETURN;
4080: END IF;
4081:
4082: -- get the details of the Workflow process mapped to the object l_wf_sr_obj