[Home] [Help]
340: * validate log_series is not null
341: */
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:
351: AND
352: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
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:
376: WHERE ata.repair_category_id = repcat.repair_category_id and ata.mel_cdl_ata_sequence_id = l_ata_sequence_id;
377:
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;
870: * validate log_series is not null
871: */
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:
881: AND
882: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
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:
906: WHERE ata.repair_category_id = repcat.repair_category_id and ata.mel_cdl_ata_sequence_id = l_ata_sequence_id;
907:
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;
1055:
1056: END IF;
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;
1336: OPEN unit_effect_csr (p_ue_id);
1337: FETCH unit_effect_csr INTO l_ue_rec;
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
1337: FETCH unit_effect_csr INTO l_ue_rec;
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;
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');
1347: FND_MSG_PUB.ADD;
1348: RAISE FND_API.G_EXC_ERROR;
1349: END IF;
1350: CLOSE unit_effect_csr;
1355: p_visit_id => null,
1356: p_item_instance_id => null) = FND_API.g_true THEN
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;
1356: p_item_instance_id => null) = FND_API.g_true THEN
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:
1366: OPEN visit_det_csr(p_ue_id);
1367: FETCH visit_det_csr INTO l_junk;
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;
1367: FETCH visit_det_csr INTO l_junk;
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;
1378: OPEN ue_deferral_csr(p_ue_id);
1379: FETCH ue_deferral_csr INTO l_deferral_rec;
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;
1379: FETCH ue_deferral_csr INTO l_deferral_rec;
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;
1386: END IF;
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:
1392: RAISE FND_API.G_EXC_ERROR;
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:
1402: OPEN ue_defer_csr(p_ue_id);
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;
1413: OPEN ue_defer_child_csr(p_ue_id);
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;
1425: OPEN mel_cdl_header_csr(l_deferral_rec.ata_sequence_id);
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:
1435: OPEN get_exp_resolution_csr(l_ue_rec.cs_incident_id);
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;
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');
1445: FND_MSG_PUB.ADD;
1446: RAISE FND_API.G_EXC_ERROR;
1447: END IF;
1448: CLOSE get_exp_resolution_csr;
1449:
1450: -- Bug #5230869 - validate inc_occ_date + rep_time >= inc_date
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;
1478: FETCH get_open_NRs_csr INTO l_NR_count;
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;
1623: l_ue_rec.unit_config_header_id);
1624: FETCH get_open_NRs_csr INTO l_count;
1625: CLOSE get_open_NRs_csr;
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;
1624: FETCH get_open_NRs_csr INTO l_count;
1625: CLOSE get_open_NRs_csr;
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:
1625: CLOSE get_open_NRs_csr;
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;
1806: -- Check for multiple inputs.
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:
2192: /*
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:
2212: THEN
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
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');
2240: FND_MSG_PUB.ADD;
2241: RAISE FND_API.G_EXC_ERROR;
2242: END IF;
2243: END IF;
2260: x_return_val => l_ret_val
2261: );
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;
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))
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;
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)
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:
2293: AND
2294: (p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM)
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:
2308: OPEN check_lognum_unique;
2309: FETCH check_lognum_unique INTO l_dummy_varchar;
2310: IF (check_lognum_unique%FOUND)
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;
2309: FETCH check_lognum_unique INTO l_dummy_varchar;
2310: IF (check_lognum_unique%FOUND)
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;
2331: p_x_nonroutine_rec.log_series_number IS NULL OR p_x_nonroutine_rec.log_series_number = FND_API.G_MISS_NUM
2332: )
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;
2346: IF (p_x_nonroutine_rec.log_series_code IS NULL OR p_x_nonroutine_rec.log_series_code = FND_API.G_MISS_CHAR)
2347: THEN
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
2359: x_return_val => l_ret_val
2360: );
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;
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))
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;
2393: OPEN check_lognum_unique;
2394: FETCH check_lognum_unique INTO l_dummy_varchar;
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;
2403: ELSIF (p_dml_operation = 'U' AND l_ue_detail_rec.log_series_number IS NOT NULL)
2404: THEN
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;
2424: x_return_val => l_ret_val
2425: );
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;
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))
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;
2452: x_return_val => l_ret_val
2453: );
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;
2460: END IF;
2461: ELSE
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;
2487: OPEN check_pos_path_exists;
2488: FETCH check_pos_path_exists INTO l_dummy_varchar;
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;
2519: AND
2520: l_ue_detail_rec.position_path_id <> p_x_nonroutine_rec.position_path_id
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;
2535: OPEN get_org_id_from_name(p_x_nonroutine_rec.clear_station_org);
2536: FETCH get_org_id_from_name INTO p_x_nonroutine_rec.clear_station_org_id;
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;
2546: OPEN check_org_id(p_x_nonroutine_rec.clear_station_org_id);
2547: FETCH check_org_id INTO l_dummy_varchar;
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;
2562: OPEN get_dept_id_from_name(p_x_nonroutine_rec.clear_station_dept, p_x_nonroutine_rec.clear_station_org_id);
2563: FETCH get_dept_id_from_name INTO p_x_nonroutine_rec.clear_station_dept_id;
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;
2573: OPEN check_dept_id(p_x_nonroutine_rec.clear_station_dept_id, p_x_nonroutine_rec.clear_station_org_id);
2574: FETCH check_dept_id INTO l_dummy_varchar;
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;
2675: END IF;
2676:
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:
2693: END IF;
2694:
2695: IF (l_mel_cdl_header_id IS NULL)
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
2694:
2695: IF (l_mel_cdl_header_id IS NULL)
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 (
2704: AND
2705: (l_ue_details_rec.position_path_id IS NULL OR l_ue_details_rec.position_path_id = FND_API.G_MISS_NUM)
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:
2759: -- matches with the Position ATA Code entered.
2760: -- If it does not match , throw an error .
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;
2819: END IF;
2820:
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;
2868: IF (p_x_nonroutine_rec.instance_number IS NULL OR p_x_nonroutine_rec.instance_number = FND_API.G_MISS_CHAR)
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
2885: trunc(nvl(csi.active_end_date, sysdate+1)) > trunc(sysdate) and
2886: csi.instance_number = p_x_nonroutine_rec.instance_number;
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;
2886: csi.instance_number = p_x_nonroutine_rec.instance_number;
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:
2910: incident_subtype = 'INC' and
2911: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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)
2911: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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:
2936: WHERE name = p_x_nonroutine_rec.status_name and
2937: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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)
2937: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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
2956: WHERE name = p_x_nonroutine_rec.severity_name and
2957: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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)
2957: trunc(sysdate) between trunc(nvl(start_date_active, sysdate)) and trunc(nvl(end_date_active, sysdate));
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:
2977: THEN
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;*/
3003: party_id = NVL(p_x_nonroutine_rec.customer_id, party_id);
3004: --AMSRINIV. Bug 5199456. Added last AND condition to the above query.
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');
3004: --AMSRINIV. Bug 5199456. Added last AND condition to the above query.
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);
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;
3014: END;
3015:
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;
3014: END;
3015:
3016: -- Validate user-input customer against instance owner...
3015:
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
3042: AND
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
3066: INTO p_x_nonroutine_rec.contact_id
3067: FROM per_people_x
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
3067: FROM per_people_x
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
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');
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');
3073: END IF;
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);
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;
3083: END;
3084: END IF;
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;
3083: END;
3084: END IF;
3085:
3085:
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)
3099:
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
3116: -- Validate if the incident date is greater than the sysdate
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')
3127: OPEN cs_incident_exists;
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)
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
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;
3143:
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
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)
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
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)
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)
3171:
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;
3181: -- Validate if the expected resolution date is not null and that it is not lesser than the Incident Request Date
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:
3349: OPEN cs_inc_csr(p_cs_incident_id);
3350: FETCH cs_inc_csr INTO l_inc_rec;
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;
3350: FETCH cs_inc_csr INTO l_inc_rec;
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:
3366: OPEN get_urgency_details_csr (p_ata_sequence_id);
3367: FETCH get_urgency_details_csr INTO l_repair_time, l_sr_urgency_id;
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;
3367: FETCH get_urgency_details_csr INTO l_repair_time, l_sr_urgency_id;
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;
3430: Open GetWoName(p_unit_effectivity_id);
3431: Fetch GetWoName into l_wo_name, l_visit_id;
3432: Close GetWoName;
3433:
3434: fnd_message.set_name('AHL','AHL_PRD_SR_SUMMARY');
3435: fnd_message.set_token('WORKORDER_NUM',rtrim(l_wo_name));
3436: fnd_message.set_token('INC_NUM', rtrim(l_inc_rec.incident_number));
3437: l_summary := fnd_message.get;
3438:
3431: Fetch GetWoName into l_wo_name, l_visit_id;
3432: Close GetWoName;
3433:
3434: fnd_message.set_name('AHL','AHL_PRD_SR_SUMMARY');
3435: fnd_message.set_token('WORKORDER_NUM',rtrim(l_wo_name));
3436: fnd_message.set_token('INC_NUM', rtrim(l_inc_rec.incident_number));
3437: l_summary := fnd_message.get;
3438:
3439: -- log debug message.
3432: Close GetWoName;
3433:
3434: fnd_message.set_name('AHL','AHL_PRD_SR_SUMMARY');
3435: fnd_message.set_token('WORKORDER_NUM',rtrim(l_wo_name));
3436: fnd_message.set_token('INC_NUM', rtrim(l_inc_rec.incident_number));
3437: l_summary := fnd_message.get;
3438:
3439: -- log debug message.
3440: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3433:
3434: fnd_message.set_name('AHL','AHL_PRD_SR_SUMMARY');
3435: fnd_message.set_token('WORKORDER_NUM',rtrim(l_wo_name));
3436: fnd_message.set_token('INC_NUM', rtrim(l_inc_rec.incident_number));
3437: l_summary := fnd_message.get;
3438:
3439: -- log debug message.
3440: IF (G_DEBUG_STMT >= G_DEBUG_LEVEL) THEN
3441: fnd_log.string(G_DEBUG_STMT,'ahl.plsql.AHL_UMP_NONROUTINES_PVT.Process_MO_Procedures',
3446: Open default_incident_type_csr;
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;
3483: open default_item_org_id(p_unit_effectivity_id);
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:
3538: OPEN get_ue_detls (l_new_incident_id);
3539: FETCH get_ue_detls INTO l_cs_object_version, l_new_ue_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;
3539: FETCH get_ue_detls INTO l_cs_object_version, l_new_ue_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:
3679: OPEN deferral_ue_csr(p_unit_deferral_id);
3680: FETCH deferral_ue_csr INTO l_deferral_rec;
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;
3680: FETCH deferral_ue_csr INTO l_deferral_rec;
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;
3691: OPEN get_new_ue_csr(p_cs_incident_id);
3692: FETCH get_new_ue_csr INTO l_new_cs_ue_id;
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;
3692: FETCH get_new_ue_csr INTO l_new_cs_ue_id;
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;