[Home] [Help]
962: RAISE FND_API.G_EXC_ERROR;
963: END IF;
964:
965: -- Ensure that there are no prior accomplishments
966: 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);
967: IF (l_temp_status = FALSE) THEN
968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
969: END IF;
970: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplish_date IS NOT null) THEN
1443: END IF;
1444:
1445: -- validate that UE is not assigned to any visit.
1446: IF (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') THEN
1447: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID);
1448: IF (l_visit_status IS NOT NULL) THEN
1449: FND_MESSAGE.Set_Name('AHL','AHL_UMP_VISIT_ASSIGNED');
1450: FND_MSG_PUB.ADD;
1451: x_return_status := FND_API.G_RET_STS_ERROR;
1507: -- -- Ensure that an in-progress MR is not terminated
1508: -- IF(p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') THEN
1509: -- -- Call VWP API to ensure that this is not assigned to a visit
1510: -- -- and if the visit is not in progress
1511: -- IF(AHL_UMP_UTIL_PKG.Is_UE_In_Execution(p_unit_Effectivity_rec.UNIT_EFFECTIVITY_ID) = TRUE) THEN
1512: -- FND_MESSAGE.Set_Name('AHL','AHL_UMP_UE_IN_EXEC');
1513: -- FND_MSG_PUB.ADD;
1514: -- x_return_status := FND_API.G_RET_STS_ERROR;
1515: -- END IF;
1572:
1573: -- If initializing, ensure that there are no prior initializations or accomplishments
1574: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'INIT-ACCOMPLISHED') OR (p_unit_Effectivity_rec.STATUS_CODE = 'INIT-DUE')) THEN
1575: -- Ensure that there are no prior accomplishments
1576: 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);
1577: IF (l_temp_status = FALSE) THEN
1578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1579: END IF;
1580: IF (l_temp_status_code <> 'INIT-ACCOMPLISHED' and l_last_accomplished_date IS NOT null) THEN
1602: -- of this MR for this instance has an accomplishment date before the
1603: -- currently set accomplishment date
1604: -- Check for l_mr_id not null for Service Request accomplishment.
1605: IF ((p_unit_Effectivity_rec.STATUS_CODE = 'ACCOMPLISHED' OR p_unit_Effectivity_rec.STATUS_CODE = 'TERMINATED') AND l_mr_id IS NOT NULL) THEN
1606: 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);
1607: IF (l_temp_status = FALSE) THEN
1608: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1609: END IF;
1610: IF (AHL_UTIL_PKG.IS_PM_INSTALLED = 'Y') THEN
1673: -- Get the item instance id and the mr_id for the preceding ue
1674: OPEN l_get_pred_details_csr(l_preceding_ue_id);
1675: FETCH l_get_pred_details_csr INTO l_pred_mr_id, l_pred_item_instance_id;
1676: IF (l_get_pred_details_csr%FOUND) THEN
1677: 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);
1678: IF (l_temp_status = FALSE) THEN
1679: CLOSE l_get_pred_details_csr;
1680: x_return_status := FND_API.G_RET_STS_ERROR;
1681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4227: END IF;
4228: EXIT WHEN l_unit_effectivity_csr%NOTFOUND;
4229:
4230:
4231: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status ( l_ue_rec.UNIT_EFFECTIVITY_ID);
4232:
4233: -- only if visit is in planning status we must mark an exception or delete.
4234: -- if visit is already on the floor, we do nothing.
4235: IF (nvl(l_visit_status,'X') NOT IN ('RELEASED','CLOSED')) THEN
4568: IF G_DEBUG='Y' THEN
4569: AHL_DEBUG_PUB.debug('Found ue:' || ahl_sr_ue_rec.RELATED_UE_ID);
4570: END IF;
4571:
4572: l_visit_status := AHL_UMP_UTIL_PKG.get_Visit_Status ( ahl_sr_ue_rec.RELATED_UE_ID);
4573:
4574: -- only if visit is in planning status we must mark it for termination.
4575: -- if visit is already on the floor, we do nothing.
4576: IF (nvl(l_visit_status,'X') NOT IN ('RELEASED','CLOSED')) THEN