[Home] [Help]
129:
130: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
131: IF FND_API.TO_BOOLEAN(p_init_msg_list)
132: THEN
133: FND_MSG_PUB.INITIALIZE;
134: END IF;
135:
136: -- Log API entry point
137: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
151: p_dml_operation => 'C'
152: );
153:
154: -- Check Error Message stack.
155: x_msg_count := FND_MSG_PUB.count_msg;
156: IF (x_msg_count > 0)
157: THEN
158: RAISE FND_API.G_EXC_ERROR;
159: END IF;
282: -- Validate NR specific UE information passed from the frontend...
283: Validate_UE_Details(p_x_nonroutine_rec, l_unit_effectivity_id, 'C');
284:
285: -- Check Error Message stack.
286: x_msg_count := FND_MSG_PUB.count_msg;
287: IF (x_msg_count > 0)
288: THEN
289: RAISE FND_API.G_EXC_ERROR;
290: END IF;
342: 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)
343: THEN
344: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
345: -- Unit is mandatory for associating MEL/CDL instructions
346: FND_MSG_PUB.ADD;
347: END IF;
348:
349: IF (
350: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
353: )
354: THEN
355: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
356: -- Log Series and Number are mandatory for associating MEL/CDL instructions
357: FND_MSG_PUB.ADD;
358: END IF;
359:
360: -- Retrieve relevant MEL/CDL ata sequence
361: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
360: -- Retrieve relevant MEL/CDL ata sequence
361: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
362:
363: -- Check Error Message stack.
364: x_msg_count := FND_MSG_PUB.count_msg;
365: IF (x_msg_count > 0)
366: THEN
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
378: 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))
379: THEN
380: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
381: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
382: FND_MSG_PUB.ADD;
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385:
386: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
459: );
460: END IF;
461:
462: -- Check Error Message stack.
463: x_msg_count := FND_MSG_PUB.count_msg;
464: IF (x_msg_count > 0)
465: THEN
466: RAISE FND_API.G_EXC_ERROR;
467: END IF;
472: COMMIT WORK;
473: END IF;
474:
475: -- Standard call to get message count and if count is 1, get message info
476: FND_MSG_PUB.count_and_get
477: (
478: p_count => x_msg_count,
479: p_data => x_msg_data,
480: p_encoded => FND_API.G_FALSE
483: EXCEPTION
484: WHEN FND_API.G_EXC_ERROR THEN
485: x_return_status := FND_API.G_RET_STS_ERROR;
486: Rollback to Create_SR_SP;
487: FND_MSG_PUB.count_and_get
488: (
489: p_count => x_msg_count,
490: p_data => x_msg_data,
491: p_encoded => FND_API.G_FALSE
493:
494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
496: Rollback to Create_SR_SP;
497: FND_MSG_PUB.count_and_get
498: (
499: p_count => x_msg_count,
500: p_data => x_msg_data,
501: p_encoded => FND_API.G_FALSE
503:
504: WHEN OTHERS THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: Rollback to Create_SR_SP;
507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.add_exc_msg
510: (
511: p_pkg_name => G_PKG_NAME,
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: Rollback to Create_SR_SP;
507: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
508: THEN
509: FND_MSG_PUB.add_exc_msg
510: (
511: p_pkg_name => G_PKG_NAME,
512: p_procedure_name => 'Create_SR',
513: p_error_text => SUBSTR(SQLERRM,1,240)
512: p_procedure_name => 'Create_SR',
513: p_error_text => SUBSTR(SQLERRM,1,240)
514: );
515: END IF;
516: FND_MSG_PUB.count_and_get
517: (
518: p_count => x_msg_count,
519: p_data => x_msg_data,
520: p_encoded => FND_API.G_FALSE
628:
629: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
630: IF FND_API.TO_BOOLEAN(p_init_msg_list)
631: THEN
632: FND_MSG_PUB.INITIALIZE;
633: END IF;
634:
635: -- Log API entry point
636: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
650: p_dml_operation => 'U'
651: );
652:
653: -- Check Error Message stack.
654: x_msg_count := FND_MSG_PUB.count_msg;
655: IF (x_msg_count > 0)
656: THEN
657: RAISE FND_API.G_EXC_ERROR;
658: END IF;
763: 'l_return_status->'||l_return_status
764: );
765: END IF;
766: -- re-initialize stack to get rid of warnings.
767: FND_MSG_PUB.INITIALIZE;
768: END IF;
769:
770: -- Retrieve ue_id and ovn accordingly...
771: IF (p_x_nonroutine_rec.unit_effectivity_id IS NOT NULL AND p_x_nonroutine_rec.unit_effectivity_id <> FND_API.G_MISS_NUM)
795: -- Validate NR specific UE information passed from the frontend...
796: Validate_UE_Details(p_x_nonroutine_rec, l_unit_effectivity_id, 'U');
797:
798: -- Check Error Message stack.
799: x_msg_count := FND_MSG_PUB.count_msg;
800: IF (x_msg_count > 0)
801: THEN
802: RAISE FND_API.G_EXC_ERROR;
803: END IF;
872: 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)
873: THEN
874: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_UNIT_MAND');
875: -- Unit is mandatory for associating MEL/CDL instructions
876: FND_MSG_PUB.ADD;
877: END IF;
878:
879: IF (
880: p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR
883: )
884: THEN
885: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
886: -- Log Series and Number are mandatory for associating MEL/CDL instructions
887: FND_MSG_PUB.ADD;
888: END IF;
889:
890: -- Retrieve relevant MEL/CDL ata sequence
891: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
890: -- Retrieve relevant MEL/CDL ata sequence
891: Get_Ata_Sequence(l_unit_effectivity_id,p_x_nonroutine_rec.ata_code, l_ata_sequence_id);
892:
893: -- Check Error Message stack.
894: x_msg_count := FND_MSG_PUB.count_msg;
895: IF (x_msg_count > 0)
896: THEN
897: RAISE FND_API.G_EXC_ERROR;
898: END IF;
908: 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))
909: THEN
910: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
911: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
912: FND_MSG_PUB.ADD;
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915:
916: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
1057: /*
1058: ELSE
1059: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_QUAL_APPR');
1060: -- Cannot modify MEL/CDL Instructions for Non-routine pending for MEL/CDL approval or already approved
1061: FND_MSG_PUB.ADD;
1062: */
1063: END IF;
1064:
1065: -- Balaji added for the bug that SR ovn is not correctly returned from the call
1082: );
1083: END IF;
1084:
1085: -- Check Error Message stack.
1086: x_msg_count := FND_MSG_PUB.count_msg;
1087: IF (x_msg_count > 0)
1088: THEN
1089: RAISE FND_API.G_EXC_ERROR;
1090: END IF;
1095: COMMIT WORK;
1096: END IF;
1097:
1098: -- Standard call to get message count and if count is 1, get message info
1099: FND_MSG_PUB.count_and_get
1100: (
1101: p_count => x_msg_count,
1102: p_data => x_msg_data,
1103: p_encoded => FND_API.G_FALSE
1106: EXCEPTION
1107: WHEN FND_API.G_EXC_ERROR THEN
1108: x_return_status := FND_API.G_RET_STS_ERROR;
1109: Rollback to Update_SR_SP;
1110: FND_MSG_PUB.count_and_get
1111: (
1112: p_count => x_msg_count,
1113: p_data => x_msg_data,
1114: p_encoded => FND_API.G_FALSE
1116:
1117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1119: Rollback to Update_SR_SP;
1120: FND_MSG_PUB.count_and_get
1121: (
1122: p_count => x_msg_count,
1123: p_data => x_msg_data,
1124: p_encoded => FND_API.G_FALSE
1126:
1127: WHEN OTHERS THEN
1128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1129: Rollback to Update_SR_SP;
1130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1131: THEN
1132: FND_MSG_PUB.add_exc_msg
1133: (
1134: p_pkg_name => G_PKG_NAME,
1128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1129: Rollback to Update_SR_SP;
1130: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1131: THEN
1132: FND_MSG_PUB.add_exc_msg
1133: (
1134: p_pkg_name => G_PKG_NAME,
1135: p_procedure_name => 'Update_SR',
1136: p_error_text => SUBSTR(SQLERRM,1,240)
1135: p_procedure_name => 'Update_SR',
1136: p_error_text => SUBSTR(SQLERRM,1,240)
1137: );
1138: END IF;
1139: FND_MSG_PUB.count_and_get
1140: (
1141: p_count => x_msg_count,
1142: p_data => x_msg_data,
1143: p_encoded => FND_API.G_FALSE
1314:
1315: -- Initialize message list if p_init_msg_list = FND_API.G_TRUE
1316: IF FND_API.TO_BOOLEAN(p_init_msg_list)
1317: THEN
1318: FND_MSG_PUB.INITIALIZE;
1319: END IF;
1320:
1321: -- Log API entry point
1322: IF (G_DEBUG_PROC >= G_DEBUG_LEVEL)
1338: IF (unit_effect_csr%NOTFOUND) THEN
1339: CLOSE unit_effect_csr;
1340: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_UE_INVALID');
1341: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1342: FND_MSG_PUB.ADD;
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1345: CLOSE unit_effect_csr;
1346: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1343: RAISE FND_API.G_EXC_ERROR;
1344: ELSIF (l_ue_rec.object_version_number <> p_ue_object_version) THEN
1345: CLOSE unit_effect_csr;
1346: FND_MESSAGE.Set_Name('AHL','AHL_COM_CHANGED');
1347: FND_MSG_PUB.ADD;
1348: RAISE FND_API.G_EXC_ERROR;
1349: END IF;
1350: CLOSE unit_effect_csr;
1351:
1357: -- Unit is locked, therefore cannot proceed for approval.
1358: -- and cannot login to the workorder
1359: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UNITLCKED');
1360: FND_MESSAGE.set_token('UE_ID', p_ue_id);
1361: FND_MSG_PUB.ADD;
1362: RAISE FND_API.G_EXC_ERROR;
1363: END IF;
1364:
1365: -- check UE status.
1368: IF (visit_det_csr%NOTFOUND) THEN
1369: CLOSE visit_det_csr;
1370: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_PRD');
1371: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1372: FND_MSG_PUB.ADD;
1373: RAISE FND_API.G_EXC_ERROR;
1374: END IF;
1375: CLOSE visit_det_csr;
1376:
1380: IF (ue_deferral_csr%NOTFOUND) THEN
1381: CLOSE ue_deferral_csr;
1382: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NOT_DEFER');
1383: FND_MESSAGE.Set_Token('UE_ID',p_ue_id);
1384: FND_MSG_PUB.ADD;
1385: RAISE FND_API.G_EXC_ERROR;
1386: END IF;
1387: CLOSE ue_deferral_csr;
1388:
1387: CLOSE ue_deferral_csr;
1388:
1389: IF (l_deferral_rec.approval_status_code IN ('DEFERRED','DEFERRAL_PENDING')) THEN
1390: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_APPR_STATUS_INVALID');
1391: FND_MSG_PUB.ADD;
1392: RAISE FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1393: END IF;
1394:
1395: IF (l_deferral_rec.ata_sequence_id IS NULL) THEN
1396: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_NO_SYS_SEQ_ASSOC');
1397: FND_MSG_PUB.ADD;
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1401: -- validate ue is not being deferred.
1403: FETCH ue_defer_csr INTO l_junk;
1404: IF (ue_defer_csr%FOUND) THEN
1405: CLOSE ue_defer_csr;
1406: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_IN_DEFER');
1407: FND_MSG_PUB.ADD;
1408: RAISE FND_API.G_EXC_ERROR;
1409: END IF;
1410: CLOSE ue_defer_csr;
1411:
1414: FETCH ue_defer_child_csr INTO l_junk;
1415: IF (ue_defer_child_csr%FOUND) THEN
1416: CLOSE ue_defer_child_csr;
1417: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CHILD_UE_DEFER');
1418: FND_MSG_PUB.ADD;
1419: RAISE FND_API.G_EXC_ERROR;
1420: END IF;
1421: CLOSE ue_defer_child_csr;
1422:
1426: FETCH mel_cdl_header_csr INTO l_installed_number, l_dispatch_number, l_repair_time;
1427: IF (mel_cdl_header_csr%NOTFOUND) THEN
1428: CLOSE mel_cdl_header_csr;
1429: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_MEL_CDL_INVALID');
1430: FND_MSG_PUB.ADD;
1431: RAISE FND_API.G_EXC_ERROR;
1432: END IF;
1433:
1434: -- validate repair category.
1436: FETCH get_exp_resolution_csr INTO l_expected_resolu_date;
1437: IF (get_exp_resolution_csr%NOTFOUND) THEN
1438: CLOSE get_exp_resolution_csr;
1439: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_CS_INC_MISSING');
1440: FND_MSG_PUB.ADD;
1441: RAISE FND_API.G_EXC_ERROR;
1442: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1443: CLOSE get_exp_resolution_csr;
1444: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1441: RAISE FND_API.G_EXC_ERROR;
1442: ELSIF (nvl(l_repair_time, 0) = 0) AND (l_expected_resolu_date IS NULL) THEN
1443: CLOSE get_exp_resolution_csr;
1444: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_RESOLUTION_MAND');
1445: FND_MSG_PUB.ADD;
1446: RAISE FND_API.G_EXC_ERROR;
1447: END IF;
1448: CLOSE get_exp_resolution_csr;
1449:
1451: IF (NVL(l_repair_time, 0) <> 0 AND trunc(l_deferral_rec.deferral_effective_on) + trunc(l_repair_time/24) < trunc(sysdate))
1452: THEN
1453: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_NO_ACCOM');
1454: -- Repair Time of the associated MEL/CDL Instructions cannot accomodate resolution of the Non-routine before Log Date
1455: FND_MSG_PUB.ADD;
1456: RAISE FND_API.G_EXC_ERROR;
1457: END IF;
1458:
1459: -- Validate log_series, number + unit_config are not null for NR that is being submitted for MEL/CDL deferral
1460: 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)
1461: THEN
1462: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_APPR_MAND_INV');
1463: -- Unit, Log Series and Number are mandatory for submitting for MEL/CDL approval
1464: FND_MSG_PUB.ADD;
1465: RAISE FND_API.G_EXC_ERROR;
1466: END IF;
1467:
1468: --amsriniv. Bug 6659422. Adding condition below only when dispatch_number and installed_number
1479: CLOSE get_open_NRs_csr;
1480:
1481: IF ((l_installed_number - l_NR_count) <= l_dispatch_number) THEN
1482: FND_MESSAGE.Set_Name('AHL','AHL_UMP_OPEN_NR_EXCEEDS');
1483: FND_MSG_PUB.ADD;
1484: RAISE FND_API.G_EXC_ERROR;
1485: END IF;
1486: END IF;
1487:
1626: IF (l_count > 0) THEN
1627: FND_MESSAGE.Set_Name('AHL','AHL_UMP_NR_INTERRELATION_ERROR');
1628: FND_MESSAGE.Set_token('SEQ1',l_deferral_rec.ata_sequence_id);
1629: FND_MESSAGE.Set_token('SEQ2',ata_seq_rec.ata_sequence_id);
1630: FND_MSG_PUB.ADD;
1631: END IF;
1632:
1633: END LOOP;
1634:
1632:
1633: END LOOP;
1634:
1635: -- Check Error Message stack.
1636: x_msg_count := FND_MSG_PUB.count_msg;
1637: IF (x_msg_count > 0)
1638: THEN
1639: x_return_status := 'W'; -- warning.
1640: END IF;
1667: COMMIT WORK;
1668: END IF;
1669:
1670: -- Standard call to get message count and if count is 1, get message info
1671: FND_MSG_PUB.count_and_get
1672: (
1673: p_count => x_msg_count,
1674: p_data => x_msg_data,
1675: p_encoded => FND_API.G_FALSE
1678: EXCEPTION
1679: WHEN FND_API.G_EXC_ERROR THEN
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: Rollback to Initiate_Mel_Cdl_Approval_SP;
1682: FND_MSG_PUB.count_and_get
1683: (
1684: p_count => x_msg_count,
1685: p_data => x_msg_data,
1686: p_encoded => FND_API.G_FALSE
1688:
1689: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1691: Rollback to Initiate_Mel_Cdl_Approval_SP;
1692: FND_MSG_PUB.count_and_get
1693: (
1694: p_count => x_msg_count,
1695: p_data => x_msg_data,
1696: p_encoded => FND_API.G_FALSE
1698:
1699: WHEN OTHERS THEN
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: Rollback to Initiate_Mel_Cdl_Approval_SP;
1702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1703: THEN
1704: FND_MSG_PUB.add_exc_msg
1705: (
1706: p_pkg_name => G_PKG_NAME,
1700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1701: Rollback to Initiate_Mel_Cdl_Approval_SP;
1702: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1703: THEN
1704: FND_MSG_PUB.add_exc_msg
1705: (
1706: p_pkg_name => G_PKG_NAME,
1707: p_procedure_name => 'Initiate_Mel_Cdl_Approval',
1708: p_error_text => SUBSTR(SQLERRM,1,240)
1707: p_procedure_name => 'Initiate_Mel_Cdl_Approval',
1708: p_error_text => SUBSTR(SQLERRM,1,240)
1709: );
1710: END IF;
1711: FND_MSG_PUB.count_and_get
1712: (
1713: p_count => x_msg_count,
1714: p_data => x_msg_data,
1715: p_encoded => FND_API.G_FALSE
1807: IF (p_mel_cdl_header_id IS NOT NULL AND p_pc_node_id IS NOT NULL)
1808: THEN
1809: -- return error.
1810: FND_MESSAGE.Set_Name('AHL', 'AHL_UMP_NR_MULTI_PARAM');
1811: FND_MSG_PUB.ADD;
1812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1813: END IF;
1814:
1815: -- if p_mel_cdl_header_id is not null
2193: -- Validate unit_config_header_id NOT NULL
2194: 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)
2195: THEN
2196: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NULL');
2197: FND_MSG_PUB.ADD;
2198: RAISE FND_API.G_EXC_ERROR;
2199: */
2200:
2201: /* Behavior of Unit, Item, Serial and Instance LOVs in "Unit / Component Details" sub-header
2213: p_x_nonroutine_rec.unit_config_header_id := l_uc_header_id;
2214: ELSIF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2215: THEN
2216: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2217: FND_MSG_PUB.ADD;
2218: RAISE FND_API.G_EXC_ERROR;
2219: END IF;
2220: ELSE
2221: l_uc_status_code := ahl_util_uc_pkg.get_uc_status_code(p_x_nonroutine_rec.unit_config_header_id);
2222: -- Check for not active and/or quarantined unit
2223: IF (l_uc_status_code IN ('QUARANTINE', 'DEACTIVATE_QUARANTINE'))
2224: THEN
2225: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_QUAR_INV');
2226: FND_MSG_PUB.ADD;
2227: RAISE FND_API.G_EXC_ERROR;
2228: ELSIF (l_uc_status_code IN ('COMPLETE', 'INCOMPLETE'))
2229: THEN
2230: -- Validate instance exists on the unit specified... Assume instance is validated before this is called...
2231: l_uc_header_id := ahl_util_uc_pkg.get_uc_header_id(p_x_nonroutine_rec.instance_id);
2232: IF (NVL(l_uc_header_id, -1 ) <> p_x_nonroutine_rec.unit_config_header_id)
2233: THEN
2234: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_NOMATCH');
2235: FND_MSG_PUB.ADD;
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238: ELSE
2239: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2236: RAISE FND_API.G_EXC_ERROR;
2237: END IF;
2238: ELSE
2239: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_UNIT_ACTV_INV');
2240: FND_MSG_PUB.ADD;
2241: RAISE FND_API.G_EXC_ERROR;
2242: END IF;
2243: END IF;
2244:
2262: IF NOT (l_ret_val)
2263: THEN
2264: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2265: -- Log Series is invalid
2266: FND_MSG_PUB.ADD;
2267: END IF;
2268: END IF;
2269: ELSE
2270: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2270: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2271: THEN
2272: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2273: -- Log Series is invalid
2274: FND_MSG_PUB.ADD;
2275: END IF;
2276: END IF;
2277:
2278: 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)
2278: 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)
2279: THEN
2280: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_LOGNUM_INV');
2281: -- Non-routine Log Number must be a positive integer
2282: FND_MSG_PUB.ADD;
2283: END IF;
2284:
2285: IF (
2286: (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2295: )
2296: THEN
2297: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_COMB');
2298: -- If Log Series is selected, Log Number is mandatory and vice-versa.
2299: FND_MSG_PUB.ADD;
2300: END IF;
2301:
2302: IF (
2303: p_x_nonroutine_rec.log_series_code IS NOT NULL AND p_x_nonroutine_rec.log_series_code <> FND_API.G_MISS_CHAR
2311: THEN
2312: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_INV');
2313: FND_MESSAGE.SET_TOKEN('LOGNUM', p_x_nonroutine_rec.log_series_code||'-'||p_x_nonroutine_rec.log_series_number);
2314: -- Log Number already exists for another non-routine
2315: FND_MSG_PUB.ADD;
2316: END IF;
2317: CLOSE check_lognum_unique;
2318: END IF;
2319:
2333: )
2334: THEN
2335: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_NOCHG');
2336: -- Log Series is mandatory for Non-Routines that have MEL/CDL Instruction associated.
2337: FND_MSG_PUB.ADD;
2338: END IF;
2339: CLOSE is_ue_mel_cdl_qual;
2340: END IF;
2341:
2348: IF (p_x_nonroutine_rec.log_series_meaning IS NULL OR p_x_nonroutine_rec.log_series_meaning = FND_API.G_MISS_CHAR)
2349: THEN
2350: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_MAND');
2351: -- Log Series is mandatory
2352: FND_MSG_PUB.ADD;
2353: ELSE
2354: AHL_UTIL_MC_PKG.Convert_To_LookupCode
2355: (
2356: p_lookup_type => 'AHL_LOG_SERIES_CODE',
2361: IF NOT (l_ret_val)
2362: THEN
2363: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2364: -- Log Series is invalid
2365: FND_MSG_PUB.ADD;
2366: END IF;
2367: END IF;
2368: ELSE
2369: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2369: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_LOG_SERIES_CODE', p_x_nonroutine_rec.log_series_code))
2370: THEN
2371: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_INV');
2372: -- Log Series is invalid
2373: FND_MSG_PUB.ADD;
2374: END IF;
2375: END IF;
2376: ELSIF (p_dml_operation = 'U' AND l_ue_detail_rec.log_series_code IS NOT NULL)
2377: THEN
2378: IF (l_ue_detail_rec.log_series_code <> p_x_nonroutine_rec.log_series_code)
2379: THEN
2380: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGSER_NOCHG');
2381: -- Log Series cannot be modified after non-routine is created
2382: FND_MSG_PUB.ADD;
2383: END IF;
2384: END IF;
2385:
2386: -- Validate log series number
2395: IF (check_lognum_unique%FOUND)
2396: THEN
2397: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_INV');
2398: -- Log Number already exists for another non-routine
2399: FND_MSG_PUB.ADD;
2400: END IF;
2401: CLOSE check_lognum_unique;
2402: END IF;
2403: ELSIF (p_dml_operation = 'U' AND l_ue_detail_rec.log_series_number IS NOT NULL)
2405: IF (l_ue_detail_rec.log_series_number <> p_x_nonroutine_rec.log_series_number)
2406: THEN
2407: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_LOGNUM_NOCHG');
2408: -- Log Number cannot be modified after non-routine is created
2409: FND_MSG_PUB.ADD;
2410: END IF;
2411: END IF;
2412: */
2413:
2426: IF NOT (l_ret_val)
2427: THEN
2428: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_TYPE_INV');
2429: -- Position ATA is invalid
2430: FND_MSG_PUB.ADD;
2431: END IF;
2432: END IF;
2433: ELSE
2434: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_MEL_CDL_TYPE', p_x_nonroutine_rec.mel_cdl_type_code))
2434: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_MEL_CDL_TYPE', p_x_nonroutine_rec.mel_cdl_type_code))
2435: THEN
2436: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_TYPE_INV');
2437: -- Position ATA is invalid
2438: FND_MSG_PUB.ADD;
2439: END IF;
2440: END IF;
2441:
2442: -- Validate ata code
2454: IF NOT (l_ret_val)
2455: THEN
2456: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ATA_INV');
2457: -- Position ATA is invalid
2458: FND_MSG_PUB.ADD;
2459: END IF;
2460: END IF;
2461: ELSE
2462: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_nonroutine_rec.ata_code))
2462: IF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_nonroutine_rec.ata_code))
2463: THEN
2464: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ATA_INV');
2465: -- Position ATA is invalid
2466: FND_MSG_PUB.ADD;
2467: END IF;
2468: END IF;
2469:
2470: -- Validate position path exists on the unit
2489: IF (check_pos_path_exists%NOTFOUND)
2490: THEN
2491: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_POSPATH_INV');
2492: -- Position path does not exist on the unit
2493: FND_MSG_PUB.ADD;
2494: END IF;
2495: CLOSE check_pos_path_exists;
2496: ELSE
2497: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
2521: )
2522: THEN
2523: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_QUAL_APPR');
2524: -- Cannot modify either of MEL/CDL Type, Position and Position ATA since Non-routine is either pending for MEL/CDL approval or already approved.
2525: FND_MSG_PUB.ADD;
2526: END IF;
2527: END IF;
2528:
2529: /*
2537: IF (get_org_id_from_name%NOTFOUND)
2538: THEN
2539: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ORG_INV');
2540: -- Clear station organization is invalid
2541: FND_MSG_PUB.ADD;
2542: END IF;
2543: CLOSE get_org_id_from_name;
2544: END IF;
2545: ELSE
2548: IF (check_org_id%NOTFOUND)
2549: THEN
2550: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_ORG_INV');
2551: -- Clear station organization is invalid
2552: FND_MSG_PUB.ADD;
2553: END IF;
2554: CLOSE check_org_id;
2555: END IF;
2556:
2564: IF (get_dept_id_from_name%NOTFOUND)
2565: THEN
2566: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_DEPT_INV');
2567: -- Clear station department is invalid
2568: FND_MSG_PUB.ADD;
2569: END IF;
2570: CLOSE get_dept_id_from_name;
2571: END IF;
2572: ELSE
2575: IF (check_dept_id%NOTFOUND)
2576: THEN
2577: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NR_DEPT_INV');
2578: -- Clear station department is invalid
2579: FND_MSG_PUB.ADD;
2580: END IF;
2581: CLOSE check_dept_id;
2582: END IF;
2583: */
2677: 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)
2678: THEN
2679: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_TYPE_MAND');
2680: -- MEL/CDL Type is mandatory, hence cannot qualify for MEL/CDL
2681: FND_MSG_PUB.ADD;
2682: END IF;
2683:
2684: l_mel_cdl_header_id := Get_Mel_Cdl_Header_Id(p_unit_effectivity_id, null, null);
2685: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL)
2696: THEN
2697: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_SETUP_MAND');
2698: FND_MESSAGE.SET_TOKEN('UCNAME', l_ue_details_rec.unit_config_name);
2699: -- No MEL/CDL has been setup for the unit "UCNAME", hence cannot qualify for MEL/CDL
2700: FND_MSG_PUB.ADD;
2701: ELSE
2702: IF (
2703: (l_ue_details_rec.ata_code IS NULL OR l_ue_details_rec.ata_code = FND_API.G_MISS_CHAR)
2704: AND
2706: )
2707: THEN
2708: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_ALL_NULL');
2709: -- One of Position ATA and Position is mandatory, hence cannot qualify for MEL/CDL
2710: FND_MSG_PUB.ADD;
2711: END IF;
2712:
2713: IF (l_ue_details_rec.position_path_id IS NOT NULL AND l_ue_details_rec.position_path_id <> FND_API.G_MISS_NUM)
2714: THEN
2761: IF (l_ata_for_position <> p_ata_code)
2762: THEN
2763: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_POS_ATA_NO_MATCH');
2764: -- ATA code of the Position ATA and MC Position does not match .
2765: FND_MSG_PUB.ADD;
2766: RAISE FND_API.G_EXC_ERROR;
2767: END IF;
2768: --End of changes by Priyan
2769:
2821: IF (x_ata_sequence_id IS NULL)
2822: THEN
2823: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_QUAL_SEQ_FAIL');
2824: -- Cannot retrieve any System Sequence information for non-routine, hence cannot qualify for MEL/CDL
2825: FND_MSG_PUB.ADD;
2826: END IF;
2827: END IF;
2828: END IF;
2829:
2869: THEN
2870: IF (p_x_nonroutine_rec.instance_id is null or p_x_nonroutine_rec.instance_id = FND_API.G_MISS_NUM)
2871: THEN
2872: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_NULL');
2873: FND_MSG_PUB.ADD;
2874: RAISE FND_API.G_EXC_ERROR;
2875: END IF;
2876: ELSE
2877: BEGIN
2887: EXCEPTION
2888: WHEN OTHERS THEN
2889: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INSTANCE_INV');
2890: FND_MESSAGE.SET_TOKEN('INSTANCE', p_x_nonroutine_rec.instance_number);
2891: FND_MSG_PUB.ADD;
2892: END;
2893: END IF;
2894:
2895: IF (p_dml_operation = 'C')
2912: EXCEPTION
2913: WHEN NO_DATA_FOUND THEN
2914: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_INV');
2915: FND_MESSAGE.SET_TOKEN('TYPE', p_x_nonroutine_rec.type_name);
2916: FND_MSG_PUB.ADD;
2917: END;
2918: ELSIF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
2919: THEN
2920: p_x_nonroutine_rec.type_id := fnd_profile.value('AHL_PRD_SR_TYPE');
2921:
2922: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
2923: THEN
2924: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_TYPE_NULL');
2925: FND_MSG_PUB.ADD;
2926: END IF;
2927: END IF;
2928:
2929: -- Validate and default SR status
2938: EXCEPTION
2939: WHEN NO_DATA_FOUND THEN
2940: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_STATUS_INV');
2941: FND_MESSAGE.SET_TOKEN('STATUS', p_x_nonroutine_rec.status_name);
2942: FND_MSG_PUB.ADD;
2943: END;
2944: ELSIF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
2945: THEN
2946: p_x_nonroutine_rec.status_id := nvl(fnd_profile.value('AHL_PRD_SR_STATUS'), G_SR_OPEN_STATUS_ID);
2958: EXCEPTION
2959: WHEN NO_DATA_FOUND THEN
2960: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_INV');
2961: FND_MESSAGE.SET_TOKEN('SEVERITY', p_x_nonroutine_rec.severity_name);
2962: FND_MSG_PUB.ADD;
2963: END;
2964: ELSIF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
2965: THEN
2966: p_x_nonroutine_rec.severity_id := fnd_profile.value('AHL_PRD_SR_SEVERITY');
2967:
2968: IF (p_x_nonroutine_rec.severity_id is null or p_x_nonroutine_rec.severity_id = FND_API.G_MISS_NUM)
2969: THEN
2970: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEVERITY_NULL');
2971: FND_MSG_PUB.ADD;
2972: END IF;
2973: END IF;
2974:
2975: -- Validate severity against WIP_EAM_ACTIVITY_PRIORITY
2978: OPEN cs_severity_in_eam_priority;
2979: FETCH cs_severity_in_eam_priority INTO l_dummy_varchar;
2980: IF (cs_severity_in_eam_priority%NOTFOUND) THEN
2981: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SEV_EAM_INV');
2982: FND_MSG_PUB.ADD;
2983: END IF;
2984: CLOSE cs_severity_in_eam_priority;
2985: END IF;*/
2986:
3005: EXCEPTION
3006: WHEN NO_DATA_FOUND THEN
3007: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_INVALID');
3008: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3009: FND_MSG_PUB.ADD;
3010: WHEN TOO_MANY_ROWS THEN
3011: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_NOT_UNIQUE');
3012: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3013: FND_MSG_PUB.ADD;
3009: FND_MSG_PUB.ADD;
3010: WHEN TOO_MANY_ROWS THEN
3011: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CUST_NAME_NOT_UNIQUE');
3012: FND_MESSAGE.SET_TOKEN('CUST_NAME', p_x_nonroutine_rec.customer_name);
3013: FND_MSG_PUB.ADD;
3014: END;
3015:
3016: -- Validate user-input customer against instance owner...
3017: IF (nvl(p_x_nonroutine_rec.customer_id, -1) <> l_instance_owner_id)
3016: -- Validate user-input customer against instance owner...
3017: IF (nvl(p_x_nonroutine_rec.customer_id, -1) <> l_instance_owner_id)
3018: THEN
3019: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_CUSTOMER_NOMATCH');
3020: FND_MSG_PUB.ADD;
3021: END IF;
3022: ELSIF (p_x_nonroutine_rec.customer_id IS NULL or p_x_nonroutine_rec.customer_id = FND_API.G_MISS_NUM)
3023: THEN
3024: p_x_nonroutine_rec.customer_id := l_instance_owner_id;
3043: (p_x_nonroutine_rec.customer_type is null or p_x_nonroutine_rec.customer_type = FND_API.G_MISS_CHAR)
3044: )
3045: THEN
3046: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_CUST_TYPE_NULL');
3047: FND_MSG_PUB.ADD;
3048: END IF;
3049:
3050: -- Validate and contact name and type... Error if contact_type is NULL and contact_id NOT NULL
3051: IF (p_x_nonroutine_rec.contact_name IS NOT NULL AND p_x_nonroutine_rec.contact_name <> FND_API.G_MISS_CHAR)
3068: WHERE full_name = p_x_nonroutine_rec.contact_name;
3069: ELSE
3070: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_CONT_TYPE_INV');
3071: FND_MESSAGE.SET_TOKEN('CONT_TYPE', p_x_nonroutine_rec.contact_type);
3072: FND_MSG_PUB.ADD;
3073: END IF;
3074: EXCEPTION
3075: WHEN NO_DATA_FOUND THEN
3076: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_INVALID');
3074: EXCEPTION
3075: WHEN NO_DATA_FOUND THEN
3076: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_INVALID');
3077: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3078: FND_MSG_PUB.ADD;
3079: WHEN TOO_MANY_ROWS THEN
3080: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_NOT_UNIQUE');
3081: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3082: FND_MSG_PUB.ADD;
3078: FND_MSG_PUB.ADD;
3079: WHEN TOO_MANY_ROWS THEN
3080: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_PRD_CONT_NAME_NOT_UNIQUE');
3081: FND_MESSAGE.SET_TOKEN('CONT_NAME', p_x_nonroutine_rec.contact_name);
3082: FND_MSG_PUB.ADD;
3083: END;
3084: END IF;
3085:
3086: -- Error if problem_summary NULL
3086: -- Error if problem_summary NULL
3087: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3088: THEN
3089: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3090: FND_MSG_PUB.ADD;
3091: END IF;
3092:
3093: -- bachandr added following validation for Bug # 6447467 (Base ER # 5571440)
3094: -- Bug # 6447467 -- start
3100: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3101: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3102:
3103: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3104: Fnd_Msg_Pub.ADD;
3105: END IF;
3106:
3107: END IF;
3108:
3109: -- Validate if expected resolution date is passed, it is greater than the incident date
3110: 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))
3111: THEN
3112: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3113: FND_MSG_PUB.ADD;
3114: END IF;
3115:
3116: -- Validate if the incident date is greater than the sysdate
3117: -- Changes made for Bug # 5183032
3117: -- Changes made for Bug # 5183032
3118: 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))
3119: THEN
3120: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_INC_DATE_INV');
3121: FND_MSG_PUB.ADD;
3122: END IF;
3123:
3124: ELSIF(p_dml_operation = 'U')
3125: THEN
3128: FETCH cs_incident_exists INTO l_incident_number, l_incident_date;
3129: IF (cs_incident_exists%NOTFOUND)
3130: THEN
3131: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_INC_INV');
3132: FND_MSG_PUB.ADD;
3133: CLOSE cs_incident_exists;
3134: RAISE FND_API.G_EXC_ERROR;
3135: ELSIF (l_incident_number <> p_x_nonroutine_rec.incident_number)
3136: THEN
3134: RAISE FND_API.G_EXC_ERROR;
3135: ELSIF (l_incident_number <> p_x_nonroutine_rec.incident_number)
3136: THEN
3137: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_NUM_INV');
3138: FND_MSG_PUB.ADD;
3139: CLOSE cs_incident_exists;
3140: RAISE FND_API.G_EXC_ERROR;
3141: END IF;
3142: CLOSE cs_incident_exists;
3144: -- Validate status_id is not null
3145: IF (p_x_nonroutine_rec.status_id is null or p_x_nonroutine_rec.status_id = FND_API.G_MISS_NUM)
3146: THEN
3147: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_STATUS_NULL');
3148: FND_MSG_PUB.ADD;
3149: END IF;
3150:
3151: -- Validate type_id is not null
3152: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3151: -- Validate type_id is not null
3152: IF (p_x_nonroutine_rec.type_id is null or p_x_nonroutine_rec.type_id = FND_API.G_MISS_NUM)
3153: THEN
3154: FND_MESSAGE.SET_NAME(G_APP_NAME,'AHL_UMP_NR_TYPE_NULL');
3155: FND_MSG_PUB.ADD;
3156: END IF;
3157:
3158: -- Error if problem_summary NULL
3159: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3158: -- Error if problem_summary NULL
3159: IF (p_x_nonroutine_rec.problem_summary is null or p_x_nonroutine_rec.problem_summary = FND_API.G_MISS_CHAR)
3160: THEN
3161: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_SUMMARY_NULL');
3162: FND_MSG_PUB.ADD;
3163: END IF;
3164:
3165: -- bachandr added following validation for Bug # 6447467 (Base ER # 5571440)
3166: -- Bug # 6447467 -- start
3172: IF ( p_x_nonroutine_rec.resolution_code IS NULL OR
3173: p_x_nonroutine_rec.resolution_code = FND_API.G_MISS_CHAR) THEN
3174:
3175: Fnd_Message.SET_NAME(G_APP_NAME,'AHL_PRD_RESL_CODE_REQ');
3176: Fnd_Msg_Pub.ADD;
3177: END IF;
3178:
3179: END IF;
3180:
3182: -- Changes made for Bug # 5183032
3183: 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))
3184: THEN
3185: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_UMP_NR_EXP_RES_DATE_INV');
3186: FND_MSG_PUB.ADD;
3187: END IF;
3188: END IF;
3189:
3190: -- Validate resolution_code and problem_code...
3351: IF (cs_inc_csr%NOTFOUND) THEN
3352: CLOSE cs_inc_csr;
3353: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_INC_ERROR');
3354: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3355: FND_MSG_PUB.ADD;
3356: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3357: END IF;
3358:
3359: -- Debug Checkpoint.
3368: IF (get_urgency_details_csr%NOTFOUND) THEN
3369: CLOSE get_urgency_details_csr;
3370: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_ATA_ERROR');
3371: FND_MESSAGE.set_token('ATA_ID', p_ata_sequence_id);
3372: FND_MSG_PUB.ADD;
3373: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3374: END IF;
3375: CLOSE get_urgency_details_csr;
3376:
3422: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3423: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3424: RAISE FND_API.G_EXC_ERROR;
3425: ELSE
3426: FND_MSG_PUB.INITIALIZE;
3427: END IF;
3428:
3429: -- form summary.
3430: Open GetWoName(p_unit_effectivity_id);
3447: Fetch default_incident_type_csr INTO l_incident_type_id;
3448: IF ( default_incident_type_csr%NOTFOUND) THEN
3449: CLOSE default_incident_type_csr;
3450: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_INCIDENT_ERROR');
3451: Fnd_Msg_Pub.ADD;
3452: RAISE FND_API.G_EXC_ERROR;
3453: END IF;
3454: CLOSE default_incident_type_csr;
3455:
3484: Fetch default_item_org_id INTO l_service_request_rec.inventory_item_id,
3485: l_service_request_rec.inventory_org_id;
3486: IF (default_item_org_id%NOTFOUND ) THEN
3487: FND_MESSAGE.SET_NAME ('AHL','AHL_PRD_DEFAULT_ORG_ERROR');
3488: Fnd_Msg_Pub.ADD;
3489: RAISE FND_API.G_EXC_ERROR;
3490: END IF;
3491:
3492: -- Call to Service Request API
3530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3531: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3532: RAISE FND_API.G_EXC_ERROR;
3533: ELSE
3534: FND_MSG_PUB.INITIALIZE;
3535: END IF;
3536:
3537: -- get object version number for the service request and the new ue id.
3538: OPEN get_ue_detls (l_new_incident_id);
3540: IF (get_ue_detls%NOTFOUND) THEN
3541: CLOSE get_ue_detls;
3542: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_ERROR');
3543: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3544: FND_MSG_PUB.ADD;
3545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3546: END IF;
3547:
3548: -- Add M and O procedures to the SR.
3651: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3652: RAISE FND_API.G_EXC_ERROR;
3653: END IF;
3654:
3655: IF (fnd_msg_pub.count_msg > 0) THEN
3656: RAISE FND_API.G_EXC_ERROR;
3657: END IF;
3658:
3659: -- make a call for automatic approval
3681: IF (deferral_ue_csr%NOTFOUND) THEN
3682: CLOSE deferral_ue_csr;
3683: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_UE_DEF_MISSING');
3684: FND_MESSAGE.set_token('UE_DEF', p_unit_deferral_id);
3685: FND_MSG_PUB.ADD;
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687: END IF;
3688: CLOSE deferral_ue_csr;
3689:
3693: IF (get_new_ue_csr%NOTFOUND) THEN
3694: CLOSE get_new_ue_csr;
3695: FND_MESSAGE.set_name('AHL', 'AHL_UMP_NR_NEW_UE_MISSING');
3696: FND_MESSAGE.set_token('INC_ID', p_cs_incident_id);
3697: FND_MSG_PUB.ADD;
3698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3699: END IF;
3700: CLOSE get_new_ue_csr;
3701: