[Home] [Help]
1138: OPEN is_NR_UE(p_unit_effectivity_id);
1139: FETCH is_NR_UE INTO l_junk;
1140: IF is_NR_UE%NOTFOUND THEN
1141: -- Ensure that there are no prior accomplishments
1142: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplish_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1143: IF (l_temp_status = FALSE) THEN
1144: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1145: END IF;
1146: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplish_date IS NOT null) THEN
1652: END IF;
1653:
1654: -- validate that UE is not assigned to any visit.
1655: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') THEN
1656: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1657: IF (l_visit_status IS NOT NULL) THEN
1658: FND_MESSAGE.Set_Name('AHL','AHL_UMP_VISIT_ASSIGNED');
1659: FND_MSG_PUB.ADD;
1660: x_return_status := FND_API.G_RET_STS_ERROR;
1753: -- -- Ensure that an in-progress MR is not terminated
1754: -- IF(p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') THEN
1755: -- -- Call VWP API to ensure that this is not assigned to a visit
1756: -- -- and if the visit is not in progress
1757: -- IF(AHL_UMP_UTIL_PKG.Is_UE_In_Execution(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID) = TRUE) THEN
1758: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_IN_EXEC');
1759: -- FND_MSG_PUB.ADD;
1760: -- x_return_status := FND_API.G_RET_STS_ERROR;
1761: -- END IF;
1820: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1821: -- Ensure that there are no prior accomplishments
1822: -- SALOGAN added the condition check to NR UE for Complex Mx - Begin
1823: IF(l_is_not_nr_ue) THEN
1824: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1825:
1826: IF (l_temp_status = FALSE) THEN
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END IF;
1855: -- currently set accomplishment date
1856: -- Check for l_mr_id not null for Service Request accomplishment.
1857: -- SALOGAN added the condition to skip the following for NR UE - Complex Mx
1858: IF (l_is_not_nr_ue AND (p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED' OR p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') AND l_mr_id IS NOT NULL) THEN
1859: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_item_instance_id, l_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1860: IF (l_temp_status = FALSE) THEN
1861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1862: END IF;
1863: /* Commented validation of accomplished date to fix bug# 14588580 (avoid data fixes)
1929: -- Get the item instance id and the mr_id for the preceding ue
1930: OPEN l_get_pred_details_csr(l_preceding_ue_id);
1931: FETCH l_get_pred_details_csr INTO l_pred_mr_id, l_pred_item_instance_id;
1932: IF (l_get_pred_details_csr%FOUND) THEN
1933: AHL_UMP_UTIL_PKG.get_last_accomplishment(l_pred_item_instance_id, l_pred_mr_id, l_last_accomplished_date, l_last_ue_id, l_temp_deferral_flag, l_temp_status_code, l_temp_status);
1934: IF (l_temp_status = FALSE) THEN
1935: CLOSE l_get_pred_details_csr;
1936: x_return_status := FND_API.G_RET_STS_ERROR;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4551: END IF;
4552: EXIT WHEN l_unit_effectivity_csr%NOTFOUND;
4553:
4554:
4555: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status ( l_ue_rec.UNIT_EFFECTIVITY_ID);
4556:
4557: -- only if visit is in planning status we must mark an exception or delete.
4558: -- if visit is already on the floor, we do nothing.
4559: IF (nvl(l_visit_status,'X') NOT IN ('RELEASED','CLOSED')) THEN
4895: IF G_DEBUG='Y' THEN
4896: AHL_DEBUG_PUB.debug('Found ue:' || ahl_sr_ue_rec.RELATED_UE_ID);
4897: END IF;
4898:
4899: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status ( ahl_sr_ue_rec.RELATED_UE_ID);
4900:
4901: -- only if visit is in planning status we must mark it for termination.
4902: -- if visit is already on the floor, we do nothing.
4903: IF (nvl(l_visit_status,'X') NOT IN ('RELEASED','CLOSED')) THEN