[Home] [Help]
876: FETCH c_visit_status INTO l_visit_status;
877: IF c_visit_status%NOTFOUND THEN
878: CLOSE c_visit_status;
879: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
880: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
881: Fnd_Msg_Pub.ADD;
882: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
883: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit status not found for visit : ' ||p_x_Visit_tbl(i).visit_id );
884: END IF;
1464: OPEN c_proj_template(visit_rec.project_template_id);
1465: FETCH c_proj_template INTO l_visit_rec.proj_template_name;
1466: IF c_proj_template%NOTFOUND THEN
1467: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
1468: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
1469: Fnd_Msg_Pub.ADD;
1470: RAISE Fnd_Api.G_EXC_ERROR;
1471: END IF;
1472: END IF;
1879: x_lookup_code => l_Visit_rec.visit_type_code,
1880: x_return_status => l_return_status);
1881:
1882: IF NVL(l_return_status, 'X') <> 'S' THEN
1883: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
1884: Fnd_Msg_Pub.ADD;
1885: RAISE Fnd_Api.G_EXC_ERROR;
1886: END IF;
1887:
1894: IF c_unit_det%NOTFOUND THEN
1895: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1896: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Unit does not exists..');
1897: END IF;
1898: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_NOT_EXISTS');
1899: Fnd_Msg_Pub.ADD;
1900: CLOSE c_unit_det;
1901: RAISE Fnd_Api.G_EXC_ERROR;
1902: END IF;
1924: x_return_status => l_return_status,
1925: x_error_msg_code => l_msg_data);
1926:
1927: IF NVL(l_return_status,'x') <> 'S' THEN
1928: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
1929: Fnd_Msg_Pub.ADD;
1930: RAISE Fnd_Api.G_EXC_ERROR;
1931: END IF;
1932: END IF;
1958: x_return_status => l_return_status,
1959: x_error_msg_code => l_msg_data);
1960:
1961: IF NVL(l_return_status,'x') <> 'S' THEN
1962: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1963: Fnd_Msg_Pub.ADD;
1964: RAISE Fnd_Api.G_EXC_ERROR;
1965: END IF;
1966:
1968: (p_dept_id => l_department_id,
1969: x_return_status => l_return_status);
1970:
1971: IF NVL(l_return_status,'x') <> 'S' THEN
1972: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1973: Fnd_Msg_Pub.ADD;
1974: RAISE Fnd_Api.G_EXC_ERROR;
1975: END IF;
1976: END IF;
1996: x_return_status => l_return_status,
1997: x_error_msg_code => l_msg_data);
1998:
1999: IF NVL(l_return_status,'x') <> 'S' THEN
2000: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
2001: Fnd_Msg_Pub.ADD;
2002: RAISE Fnd_Api.g_exc_error;
2003: END IF;
2004:
2052:
2053: -- To validate visit start date should be less than plan end date
2054: IF l_Visit_rec.START_DATE IS NOT NULL AND l_Visit_rec.plan_end_date IS NOT NULL THEN
2055: IF (l_Visit_rec.START_DATE > l_Visit_rec.plan_end_date) THEN
2056: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
2057: Fnd_Msg_Pub.ADD;
2058: RAISE Fnd_Api.G_EXC_ERROR;
2059: END IF;
2060: END IF;
2073:
2074: l_Visit_rec.SIMULATION_PLAN_ID := l_simulation_plan_id;
2075:
2076: IF l_simulation_plan_id IS NULL THEN
2077: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_PLN_NOT_EXIST');
2078: Fnd_Msg_Pub.ADD;
2079: RAISE Fnd_Api.G_EXC_ERROR;
2080: END IF;
2081: END IF;
2095: x_lookup_code => l_priority_code,
2096: x_return_status => l_return_status);
2097:
2098: IF NVL(l_return_status, 'X') <> 'S' THEN
2099: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
2100: Fnd_Msg_Pub.ADD;
2101: RAISE Fnd_Api.G_EXC_ERROR;
2102: END IF;
2103: l_visit_rec.priority_code := l_priority_code;
2107: -- For PROJECT TEMPLATE
2108: --PRAKKUM ::FP PIE :: 13-OCT-2010:: BEGIN
2109: IF l_visit_rec.proj_template_name IS NOT NULL THEN
2110: IF l_visit_rec.project_name IS NOT NULL THEN
2111: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_AND_TEMP');
2112: Fnd_Msg_Pub.ADD;
2113: RAISE Fnd_Api.G_EXC_ERROR;
2114: ELSE --i.e. name is null but template is not null
2115: AHL_VWP_RULES_PVT.Check_Project_Template_Or_Id
2118: x_return_status => l_return_status,
2119: x_error_msg_code => l_msg_data);
2120:
2121: IF NVL(l_return_status, 'X') <> 'S' THEN
2122: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
2123: Fnd_Msg_Pub.ADD;
2124: RAISE Fnd_Api.G_EXC_ERROR;
2125: END IF;
2126: l_visit_rec.proj_template_id := l_proj_template_id;
2132: ELSE --project template name is null but project name is not null
2133: OPEN get_project_id_csr (l_visit_rec.project_name);
2134: FETCH get_project_id_csr INTO l_visit_rec.project_id;
2135: IF get_project_id_csr%NOTFOUND THEN
2136: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
2137: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2138: Fnd_Msg_Pub.ADD;
2139: CLOSE get_project_id_csr;
2140: RAISE Fnd_Api.G_EXC_ERROR;
2133: OPEN get_project_id_csr (l_visit_rec.project_name);
2134: FETCH get_project_id_csr INTO l_visit_rec.project_id;
2135: IF get_project_id_csr%NOTFOUND THEN
2136: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
2137: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2138: Fnd_Msg_Pub.ADD;
2139: CLOSE get_project_id_csr;
2140: RAISE Fnd_Api.G_EXC_ERROR;
2141: END IF;
2145: IF l_visit_rec.project_id IS NOT NULL THEN
2146: OPEN validate_proj_date_csr (l_visit_rec.project_id);
2147: FETCH validate_proj_date_csr INTO l_dummy_char;
2148: IF validate_proj_date_csr%NOTFOUND THEN
2149: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
2150: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2151: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
2152: Fnd_Msg_Pub.ADD;
2153: CLOSE validate_proj_date_csr;
2146: OPEN validate_proj_date_csr (l_visit_rec.project_id);
2147: FETCH validate_proj_date_csr INTO l_dummy_char;
2148: IF validate_proj_date_csr%NOTFOUND THEN
2149: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
2150: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2151: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
2152: Fnd_Msg_Pub.ADD;
2153: CLOSE validate_proj_date_csr;
2154: RAISE Fnd_Api.G_EXC_ERROR;
2147: FETCH validate_proj_date_csr INTO l_dummy_char;
2148: IF validate_proj_date_csr%NOTFOUND THEN
2149: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
2150: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
2151: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
2152: Fnd_Msg_Pub.ADD;
2153: CLOSE validate_proj_date_csr;
2154: RAISE Fnd_Api.G_EXC_ERROR;
2155: END IF;
2161: /*Added by sowsubra - starts - Issue#86 changes*/
2162: l_dummy := NULL;
2163:
2164: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
2165: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
2166: Fnd_Msg_Pub.ADD;
2167: RAISE Fnd_Api.G_EXC_ERROR;
2168: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
2169: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
2165: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
2166: Fnd_Msg_Pub.ADD;
2167: RAISE Fnd_Api.G_EXC_ERROR;
2168: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
2169: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
2170: Fnd_Msg_Pub.ADD;
2171: RAISE Fnd_Api.G_EXC_ERROR;
2172: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
2173:
2174: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
2175: FETCH c_subinv_validate INTO l_status_id;
2176: IF (c_subinv_validate%NOTFOUND) THEN
2177: CLOSE c_subinv_validate;
2178: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
2179: Fnd_Msg_Pub.ADD;
2180: RAISE Fnd_Api.G_EXC_ERROR;
2181: ELSE
2182: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
2180: RAISE Fnd_Api.G_EXC_ERROR;
2181: ELSE
2182: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
2183: CLOSE c_subinv_validate;
2184: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
2185: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
2186: FND_MSG_PUB.ADD;
2187: RAISE Fnd_Api.G_EXC_ERROR;
2188: END IF;
2181: ELSE
2182: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
2183: CLOSE c_subinv_validate;
2184: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
2185: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
2186: FND_MSG_PUB.ADD;
2187: RAISE Fnd_Api.G_EXC_ERROR;
2188: END IF;
2189: END IF;
2193:
2194: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.subinventory,l_visit_rec.locator_segment );
2195: FETCH c_loc_validate INTO l_inv_loc_id;
2196: IF c_loc_validate%NOTFOUND THEN
2197: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
2198: Fnd_Msg_Pub.ADD;
2199: CLOSE c_loc_validate;
2200: RAISE Fnd_Api.G_EXC_ERROR;
2201: END IF;
2217: CLOSE c_subinv_validate;
2218:
2219: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
2220: -- Planning and In-Repair Sub Inventory should be Unserviceable.
2221: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
2222: FND_MSG_PUB.ADD;
2223: RAISE FND_API.G_EXC_ERROR;
2224: END IF;
2225:
2241: CLOSE c_subinv_validate;
2242:
2243: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
2244: -- Planning and In-Repair Sub Inventory should be Unserviceable.
2245: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
2246: FND_MSG_PUB.ADD;
2247: RAISE FND_API.G_EXC_ERROR;
2248: END IF;
2249:
2263: IF (l_visit_rec.inv_locator_id = l_visit_rec.comp_planning_loc_id OR
2264: l_visit_rec.inv_locator_id = l_visit_rec.comp_inrepair_loc_id OR
2265: l_visit_rec.comp_planning_loc_id = l_visit_rec.comp_inrepair_loc_id) THEN
2266: -- Please set different locators for Physical, Planning and In-Repair Sub Inventories.
2267: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_DIFF_LOCATORS');
2268: FND_MSG_PUB.ADD;
2269: RAISE FND_API.G_EXC_ERROR;
2270: END IF;
2271: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
2305:
2306: -- If the value for the ID already exists, then
2307: -- l_dummy would be populated with '1', otherwise, it receives NULL.
2308: IF l_dummy IS NOT NULL THEN
2309: Fnd_Message.SET_NAME('AHL','AHL_VWP_SEQUENCE_NOT_EXISTS');
2310: Fnd_Msg_Pub.ADD;
2311: END IF;
2312:
2313: -- For all optional fields check if its g_miss_num/g_miss_char/g_miss_date
2379:
2380: -- Instance ID is madatory for transit visit
2381: IF l_Visit_rec.item_instance_id IS NULL
2382: OR l_Visit_rec.item_instance_id = FND_API.G_MISS_NUM THEN
2383: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_UNIT_REQ');
2384: Fnd_Msg_Pub.ADD;
2385: END IF;
2386:
2387: -- Planned Start Date is madatory for transit visit
2385: END IF;
2386:
2387: -- Planned Start Date is madatory for transit visit
2388: IF l_visit_rec.START_DATE IS NULL OR l_visit_rec.START_DATE = FND_API.g_miss_date THEN
2389: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
2390: Fnd_Msg_Pub.ADD;
2391: END IF;
2392:
2393: -- Planned End Date is madatory for transit visit
2945: FETCH c_visit INTO c_visit_rec;
2946: IF c_Visit%NOTFOUND THEN
2947: CLOSE c_Visit;
2948: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
2949: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2950: Fnd_Msg_Pub.ADD;
2951: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2952: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
2953: END IF;
2958: END IF;
2959:
2960: -- Check if the visit status is deleted.display error message if so. Added in 11.5.10
2961: IF UPPER(c_visit_rec.status_code) = 'DELETED' THEN
2962: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS');
2963: Fnd_Msg_Pub.ADD;
2964: RAISE Fnd_Api.G_EXC_ERROR;
2965: END IF;
2966:
3589: FETCH c_Visit INTO c_Visit_rec;
3590: IF c_Visit%NOTFOUND THEN
3591: CLOSE c_Visit;
3592: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
3593: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
3594: Fnd_Msg_Pub.ADD;
3595: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3596: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for' ||l_visit_rec.visit_id );
3597: END IF;
3605: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::BEGIN
3606: OPEN c_conc_req_phase(l_visit_rec.Visit_id);
3607: FETCH c_conc_req_phase INTO l_dummy_val;
3608: IF(c_conc_req_phase%FOUND) THEN
3609: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CP_P2P_IN_PROGS');
3610: FND_MSG_PUB.ADD;
3611: RAISE FND_API.G_EXC_ERROR;
3612: END IF;
3613: CLOSE c_conc_req_phase;
3616:
3617:
3618: -- To validate Object version number.
3619: IF (c_visit_rec.object_version_number <> l_visit_rec.object_version_number) THEN
3620: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
3621: Fnd_Msg_Pub.ADD;
3622: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3623: END IF;
3624: --------------------Value OR ID conversion---------------------------
3672: CLOSE get_visit_task_past_dates;
3673:
3674: IF l_date_time_start IS NOT NULL THEN
3675: IF visit_task_past_dates_rec.past_task_start_date < l_date_time_start THEN
3676: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_START_DATE_INVLD');
3677: Fnd_Msg_Pub.ADD;
3678: RAISE FND_API.G_EXC_ERROR;
3679: END IF;
3680: END IF;
3679: END IF;
3680: END IF;
3681: IF l_date_time_end IS NOT NULL THEN
3682: IF visit_task_past_dates_rec.past_task_end_date > l_date_time_end THEN
3683: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_END_DATE_INVLD');
3684: Fnd_Msg_Pub.ADD;
3685: RAISE FND_API.G_EXC_ERROR;
3686: END IF;
3687: END IF;
3697: -- not allowed to update if status code is not planning, released or partially released.
3698: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
3699: -- Even the visits in DRAFT status can be updated
3700: IF c_visit_rec.status_code NOT IN ('DRAFT','PLANNING','RELEASED', 'PARTIALLY RELEASED') THEN
3701: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_STATUS_NO_EDIT');
3702: Fnd_Msg_Pub.ADD;
3703: RAISE Fnd_Api.G_EXC_ERROR;
3704: END IF;
3705:
3735: x_return_status => l_return_status
3736: );
3737:
3738: IF NVL(l_return_status, 'X') <> 'S' THEN
3739: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_CODE_NOT_EXISTS');
3740: Fnd_Msg_Pub.ADD;
3741: RAISE Fnd_Api.G_EXC_ERROR;
3742: END IF;
3743: END IF;
3744:
3745: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063
3746: IF ((c_Visit_rec.VISIT_TYPE_CODE IS NOT NULL) AND (NVL(l_Visit_rec.VISIT_TYPE_CODE,'X') <> c_Visit_rec.visit_type_code))
3747: THEN
3748: Fnd_Message.SET_NAME('AHL','AHL_VWP_TYPE_NOT_EDIT');
3749: Fnd_Msg_Pub.ADD;
3750: RAISE Fnd_Api.G_EXC_ERROR;
3751: END IF;
3752:
3766: x_return_status => l_return_status,
3767: x_error_msg_code => l_msg_data);
3768:
3769: IF NVL(l_return_status,'x') <> 'S' THEN
3770: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
3771: Fnd_Msg_Pub.ADD;
3772: RAISE Fnd_Api.g_exc_error;
3773: END IF;
3774:
3791: x_lookup_code => l_priority_code,
3792: x_return_status => l_return_status);
3793:
3794: IF NVL(l_return_status, 'X') <> 'S' THEN
3795: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRI_NOT_EXISTS');
3796: Fnd_Msg_Pub.ADD;
3797: RAISE Fnd_Api.G_EXC_ERROR;
3798: END IF;
3799: l_visit_rec.priority_code := l_priority_code;
3811: x_return_status => l_return_status,
3812: x_error_msg_code => l_msg_data);
3813:
3814: IF NVL(l_return_status,'x') <> 'S' THEN
3815: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
3816: Fnd_Msg_Pub.ADD;
3817: RAISE Fnd_Api.G_EXC_ERROR;
3818: END IF;
3819:
3844: x_return_status => l_return_status,
3845: x_error_msg_code => l_msg_data);
3846:
3847: IF NVL(l_return_status,'x') <> 'S' THEN
3848: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3849: Fnd_Msg_Pub.ADD;
3850: RAISE Fnd_Api.G_EXC_ERROR;
3851: END IF;
3852:
3855: (p_dept_id => l_visit_rec.department_id,
3856: x_return_status => l_return_status);
3857:
3858: IF NVL(l_return_status,'x') <> 'S' THEN
3859: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3860: Fnd_Msg_Pub.ADD;
3861: RAISE Fnd_Api.G_EXC_ERROR;
3862: END IF;
3863:
3872: -- For Project Template and Project Name
3873: --PRAKKUM ::FP PIE :: 13-OCT-2010 :: BEGIN
3874: IF l_visit_rec.proj_template_name IS NOT NULL THEN
3875: IF l_visit_rec.project_name IS NOT NULL THEN
3876: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_AND_TEMP');
3877: Fnd_Msg_Pub.ADD;
3878: RAISE Fnd_Api.G_EXC_ERROR;
3879: ELSE --i.e. name is null but template is not null
3880: AHL_VWP_RULES_PVT.Check_Project_Template_Or_Id
3883: x_return_status => l_return_status,
3884: x_error_msg_code => l_msg_data);
3885:
3886: IF NVL(l_return_status, 'X') <> 'S' THEN
3887: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_PROTEM');
3888: Fnd_Msg_Pub.ADD;
3889: RAISE Fnd_Api.G_EXC_ERROR;
3890: END IF;
3891: END IF; --project name not null
3901: ELSE --project template name is null but project name is not null
3902: OPEN get_project_id_csr (l_visit_rec.project_name);
3903: FETCH get_project_id_csr INTO l_project_id;
3904: IF get_project_id_csr%NOTFOUND THEN
3905: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
3906: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3907: Fnd_Msg_Pub.ADD;
3908: CLOSE get_project_id_csr;
3909: RAISE Fnd_Api.G_EXC_ERROR;
3902: OPEN get_project_id_csr (l_visit_rec.project_name);
3903: FETCH get_project_id_csr INTO l_project_id;
3904: IF get_project_id_csr%NOTFOUND THEN
3905: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJ_NAME');
3906: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3907: Fnd_Msg_Pub.ADD;
3908: CLOSE get_project_id_csr;
3909: RAISE Fnd_Api.G_EXC_ERROR;
3910: END IF;
3923: IF ((NVL(l_proj_template_id,10) <> NVL(c_visit_rec.project_template_id, 10)) OR (NVL(l_project_id,10) <> NVL(c_visit_rec.project_id,10)))
3924: AND (((c_visit_rec.project_id IS NOT NULL) AND (c_visit_rec.project_template_id IS NOT NULL))
3925: OR ((c_visit_rec.project_id IS NOT NULL) AND (c_visit_rec.top_project_task_id IS NOT NULL))) THEN
3926: -- Project Template or Project Name cannot be updated if Project has been created for the Visit
3927: Fnd_Message.SET_NAME('AHL','AHL_VWP_PROJ_CRTD');
3928: Fnd_Msg_Pub.ADD;
3929: RAISE Fnd_Api.G_EXC_ERROR;
3930: ELSE
3931: l_visit_rec.proj_template_id := l_proj_template_id;
3934: IF l_visit_rec.project_id IS NOT NULL THEN
3935: OPEN validate_proj_date_csr (l_visit_rec.project_id);
3936: FETCH validate_proj_date_csr INTO l_dummy_char;
3937: IF validate_proj_date_csr%NOTFOUND THEN
3938: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
3939: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3940: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
3941: Fnd_Msg_Pub.ADD;
3942: CLOSE validate_proj_date_csr;
3935: OPEN validate_proj_date_csr (l_visit_rec.project_id);
3936: FETCH validate_proj_date_csr INTO l_dummy_char;
3937: IF validate_proj_date_csr%NOTFOUND THEN
3938: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
3939: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3940: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
3941: Fnd_Msg_Pub.ADD;
3942: CLOSE validate_proj_date_csr;
3943: RAISE Fnd_Api.G_EXC_ERROR;
3936: FETCH validate_proj_date_csr INTO l_dummy_char;
3937: IF validate_proj_date_csr%NOTFOUND THEN
3938: Fnd_Message.SET_NAME('AHL', 'AHL_VWP_INV_PROJECT');
3939: Fnd_Message.Set_Token('PROJ_NAME', l_visit_rec.project_name);
3940: Fnd_Message.Set_Token('PROJ_ID', l_visit_rec.project_id);
3941: Fnd_Msg_Pub.ADD;
3942: CLOSE validate_proj_date_csr;
3943: RAISE Fnd_Api.G_EXC_ERROR;
3944: END IF;
3949: /*BB5854712 - sowsubra - starts*/
3950: l_dummy := NULL;
3951:
3952: IF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NULL)) THEN
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3957: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCATOR_NULL');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSIF ((l_visit_rec.subinventory IS NULL) AND (l_visit_rec.locator_segment IS NOT NULL))THEN
3957: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINVENTORY_NULL');
3958: Fnd_Msg_Pub.ADD;
3959: RAISE Fnd_Api.G_EXC_ERROR;
3960: ELSIF ((l_visit_rec.subinventory IS NOT NULL) AND (l_visit_rec.locator_segment IS NOT NULL)) THEN
3961:
3962: OPEN c_subinv_validate (l_visit_rec.subinventory, l_visit_rec.organization_id);
3963: FETCH c_subinv_validate INTO l_status_id;
3964: IF c_subinv_validate%NOTFOUND THEN
3965: CLOSE c_subinv_validate;
3966: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUBINV_NOT_EXISTS');
3967: Fnd_Msg_Pub.ADD;
3968: RAISE Fnd_Api.G_EXC_ERROR;
3969: ELSE
3970: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3968: RAISE Fnd_Api.G_EXC_ERROR;
3969: ELSE
3970: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3971: CLOSE c_subinv_validate;
3972: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3973: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3974: FND_MSG_PUB.ADD;
3975: RAISE Fnd_Api.G_EXC_ERROR;
3976: END IF;
3969: ELSE
3970: IF l_status_id in (NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_UNSERVICABLE'), -1), NVL(fnd_profile.value('AHL_MTL_MAT_STATUS_MRB'), -1)) THEN
3971: CLOSE c_subinv_validate;
3972: FND_MESSAGE.SET_NAME('AHL', 'AHL_SUBINVENTORY_NOT_SVC');
3973: FND_MESSAGE.Set_Token('INV', l_visit_rec.subinventory);
3974: FND_MSG_PUB.ADD;
3975: RAISE Fnd_Api.G_EXC_ERROR;
3976: END IF;
3977: END IF;
3981:
3982: OPEN c_loc_validate (l_visit_rec.organization_id, l_visit_rec.subinventory,l_visit_rec.locator_segment );
3983: FETCH c_loc_validate INTO l_inv_loc_id;
3984: IF c_loc_validate%NOTFOUND THEN
3985: Fnd_Message.SET_NAME('AHL','AHL_VWP_PHY_LOCATOR_NOT_EXISTS');
3986: Fnd_Msg_Pub.ADD;
3987: CLOSE c_loc_validate;
3988: RAISE Fnd_Api.G_EXC_ERROR;
3989: END IF;
4020: --- Planned Start/End Dates are mandatory for visits which are in status Released/Partially Released
4021: --- as per the updates by Jay and Yan in the CMRO Forum, issue number 169
4022: IF c_visit_rec.status_code IN ('RELEASED', 'PARTIALLY RELEASED') THEN
4023: IF l_date_time_start IS NULL THEN
4024: Fnd_Message.SET_NAME('AHL','AHL_VWP_ST_DT_REQ');
4025: Fnd_Msg_Pub.ADD;
4026: RAISE FND_Api.G_EXC_ERROR;
4027: END IF;
4028:
4026: RAISE FND_Api.G_EXC_ERROR;
4027: END IF;
4028:
4029: IF l_date_time_end IS NULL THEN
4030: Fnd_Message.SET_NAME('AHL','AHL_VWP_END_DT_REQ');
4031: Fnd_Msg_Pub.ADD;
4032: RAISE FND_Api.G_EXC_ERROR;
4033: END IF;
4034: END IF;
4036: IF c_Visit_rec.unit_schedule_id IS NOT NULL AND c_Visit_rec.unit_schedule_id <> FND_API.G_MISS_NUM
4037: THEN
4038: -- Planned Start Date is madatory for transit visit
4039: IF l_date_time_start IS NULL THEN
4040: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
4041: Fnd_Msg_Pub.ADD;
4042: RAISE FND_Api.G_EXC_ERROR;
4043: END IF;
4044:
4043: END IF;
4044:
4045: -- Planned End Date is madatory for transit visit
4046: IF l_date_time_end IS NULL THEN
4047: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
4048: Fnd_Msg_Pub.ADD;
4049: RAISE FND_Api.G_EXC_ERROR;
4050: END IF;
4051: END IF;
4052:
4053: -- To validate visit start date should be less than plan end date
4054: IF l_date_time_end IS NOT NULL AND l_date_time_start IS NOT NULL THEN
4055: IF (l_date_time_start > l_date_time_end) THEN
4056: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
4057: Fnd_Msg_Pub.ADD;
4058: RAISE Fnd_Api.G_EXC_ERROR;
4059: END IF;
4060: END IF;
4107: CLOSE c_subinv_validate;
4108:
4109: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
4110: -- Planning and In-Repair Sub Inventory should be Unserviceable.
4111: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
4112: FND_MSG_PUB.ADD;
4113: RAISE FND_API.G_EXC_ERROR;
4114: END IF;
4115:
4131: CLOSE c_subinv_validate;
4132:
4133: IF (l_status_id <> NVL(FND_PROFILE.VALUE('AHL_MTL_MAT_STATUS_UNSERVICABLE'), l_status_id)) THEN
4134: -- Planning and In-Repair Sub Inventory should be Unserviceable.
4135: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_SUBINV_NOT_UNSVC');
4136: FND_MSG_PUB.ADD;
4137: RAISE FND_API.G_EXC_ERROR;
4138: END IF;
4139:
4153: IF (l_visit_rec.inv_locator_id = l_visit_rec.comp_planning_loc_id OR
4154: l_visit_rec.inv_locator_id = l_visit_rec.comp_inrepair_loc_id OR
4155: l_visit_rec.comp_planning_loc_id = l_visit_rec.comp_inrepair_loc_id) THEN
4156: -- Please set different locators for Physical, Planning and In-Repair Sub Inventories.
4157: FND_MESSAGE.SET_NAME('AHL', 'AHL_CMP_DIFF_LOCATORS');
4158: FND_MSG_PUB.ADD;
4159: RAISE FND_API.G_EXC_ERROR;
4160: END IF;
4161: -- SATHAPLI::Component Maintenance Planning Project, 02-Nov-2011, end
4203: IF (NVL(l_visit_rec.inv_locator_id, -777) <> NVL(c_visit_rec.inv_locator_id, -777) OR
4204: l_visit_rec.comp_planning_loc_id <> c_visit_rec.comp_planning_loc_id OR
4205: l_visit_rec.comp_inrepair_loc_id <> c_visit_rec.comp_inrepair_loc_id) THEN
4206: -- Cannot update Physical, Planning or In-Repair Sub Inventory or Locator when the Component Visit is not in Draft status.
4207: FND_MESSAGE.set_name('AHL', 'AHL_CMP_LOCATORS_NOUPDATE');
4208: FND_MSG_PUB.add;
4209: RAISE FND_API.G_EXC_ERROR;
4210: END IF;
4211: END IF;
4457: l_Visit_rec.PAST_DATED_VISIT_FLAG := c_visit_rec.PAST_DATED_VISIT_FLAG;
4458: -- SKPATHAK :: 07-SEP-2011 :: VWPE ER: 12856858
4459: -- Removed the below validation
4460: /*IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'N') AND (l_date_time_start < SYSDATE) THEN
4461: Fnd_Message.SET_NAME('AHL','AHL_VWP_CANNOT_CHNG_ST');
4462: Fnd_Msg_Pub.ADD;
4463: RAISE FND_API.G_EXC_ERROR;
4464: END IF;*/
4465:
4463: RAISE FND_API.G_EXC_ERROR;
4464: END IF;*/
4465:
4466: IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'Y') AND (l_date_time_start > SYSDATE) THEN
4467: Fnd_Message.SET_NAME('AHL','AHL_VWP_CANNOT_CHNG_ST');
4468: Fnd_Msg_Pub.ADD;
4469: RAISE FND_API.G_EXC_ERROR;
4470: END IF;
4471: END IF;
4611: /*OPEN get_latest_wo_end_date (l_Visit_rec.VISIT_ID);
4612: FETCH get_latest_wo_end_date INTO l_latest_wo_end_date;
4613: CLOSE get_latest_wo_end_date;
4614: IF l_latest_wo_end_date > l_date_time_end THEN
4615: Fnd_Message.SET_NAME('AHL','AHL_VWP_PUSH_END_DATE');
4616: Fnd_Message.SET_TOKEN('END_DATE',to_char(l_latest_wo_end_date, 'DD-Mon-YYYY HH24:MI:SS'));
4617: Fnd_Msg_Pub.ADD;
4618: RAISE Fnd_Api.G_EXC_ERROR;
4619: END IF; */
4612: FETCH get_latest_wo_end_date INTO l_latest_wo_end_date;
4613: CLOSE get_latest_wo_end_date;
4614: IF l_latest_wo_end_date > l_date_time_end THEN
4615: Fnd_Message.SET_NAME('AHL','AHL_VWP_PUSH_END_DATE');
4616: Fnd_Message.SET_TOKEN('END_DATE',to_char(l_latest_wo_end_date, 'DD-Mon-YYYY HH24:MI:SS'));
4617: Fnd_Msg_Pub.ADD;
4618: RAISE Fnd_Api.G_EXC_ERROR;
4619: END IF; */
4620: -- SKPATHAK :: 20-JUN-2011 :: VWPE: ER:12673125 :: END
5171:
5172: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS
5173: THEN
5174: -- Method call was not successful, raise error
5175: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_TASK_FAILED');
5176: Fnd_Msg_Pub.ADD;
5177: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
5178: fnd_log.string
5179: (
5325: FETCH c_Visit INTO l_Visit_rec;
5326: IF c_Visit%NOTFOUND THEN
5327: CLOSE c_Visit;
5328: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5329: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5330: Fnd_Msg_Pub.ADD;
5331: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5332: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Record not found for the visit with ID'||p_visit_id);
5333: END IF;
5337: CLOSE c_Visit;
5338:
5339: -- Check the status of visit, if 'planning' then only delete
5340: IF UPPER(l_visit_rec.status_code) NOT IN ('PLANNING','DRAFT') THEN
5341: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_DELETE');
5342: Fnd_Msg_Pub.ADD;
5343: IF(fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5344: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit is in invalid status for deletion. Visit ID: '||p_visit_id);
5345: END IF;
5438: END IF;
5439:
5440: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5441: CLOSE c_Tasks_csr;
5442: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
5443: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
5444: Fnd_Msg_Pub.ADD;
5445: RAISE Fnd_Api.G_EXC_ERROR;
5446: END IF;
5439:
5440: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5441: CLOSE c_Tasks_csr;
5442: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DEL_FAILED');
5443: Fnd_Message.SET_TOKEN('TASK_NAME',l_tasks_rec.visit_task_number);
5444: Fnd_Msg_Pub.ADD;
5445: RAISE Fnd_Api.G_EXC_ERROR;
5446: END IF;
5447: END LOOP;
5528: fnd_log.string (fnd_log.level_statement,L_DEBUG,'after calling AHL_VWP_PROJ_PROD_PVT.Update_project - l_return_status : '||l_return_status);
5529: END IF;
5530:
5531: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5532: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
5533: Fnd_Msg_Pub.ADD;
5534: RAISE Fnd_Api.G_EXC_ERROR;
5535: END IF;
5536: ELSE
5556: END IF;
5557:
5558: IF NVL(l_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
5559: -- Method call was not successful, raise error
5560: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_DEL_FAILED');
5561: Fnd_Msg_Pub.ADD;
5562: RAISE Fnd_Api.G_EXC_ERROR;
5563: END IF;
5564: END IF; -- soft delete flag
5864: END IF;
5865: END LOOP;
5866:
5867: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5868: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_EXISTS');
5869: FND_MESSAGE.set_token('VISIT_NUM', l_overlap_comp_visits);
5870: FND_MSG_PUB.add;
5871: RAISE FND_API.G_EXC_ERROR;
5872: END IF;
5865: END LOOP;
5866:
5867: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
5868: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_EXISTS');
5869: FND_MESSAGE.set_token('VISIT_NUM', l_overlap_comp_visits);
5870: FND_MSG_PUB.add;
5871: RAISE FND_API.G_EXC_ERROR;
5872: END IF;
5873: END IF; -- if NVL(p_visit_rec.locked_flag, 'N') = 'N'
5874:
5875: ELSE
5876: -- Unit is mandatory for Non Component Visits
5877: IF (p_visit_rec.unit_name IS NULL ) THEN
5878: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_NON_COMP_UC_NULL');
5879: FND_MSG_PUB.add;
5880: END IF;
5881:
5882: END IF;
5985: IF (p_visit_rec.organization_id IS NULL) THEN
5986: IF (l_log_statement >= l_log_current_level) THEN
5987: FND_LOG.string(l_log_statement, l_full_name, ' 1. Organization failed.');
5988: END IF;
5989: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_ORG_NULL');
5990: FND_MSG_PUB.add;
5991: END IF;
5992:
5993: -- 2. Department
5994: IF (p_visit_rec.department_id IS NULL) THEN
5995: IF (l_log_statement >= l_log_current_level) THEN
5996: FND_LOG.string(l_log_statement, l_full_name, ' 2. Department failed.');
5997: END IF;
5998: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_DEPT_NULL');
5999: FND_MSG_PUB.add;
6000: END IF;
6001:
6002: -- 3. Start Date
6003: IF (p_visit_rec.start_date IS NULL) THEN
6004: IF (l_log_statement >= l_log_current_level) THEN
6005: FND_LOG.string(l_log_statement, l_full_name, ' 3. Start Date.');
6006: END IF;
6007: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_ST_DT_NULL');
6008: FND_MSG_PUB.add;
6009: END IF;
6010:
6011: -- 4. Planned End Date
6012: IF (p_visit_rec.plan_end_date IS NULL) THEN
6013: IF (l_log_statement >= l_log_current_level) THEN
6014: FND_LOG.string(l_log_statement, l_full_name, ' 4. Planned End Date.');
6015: END IF;
6016: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_END_DT_NULL');
6017: FND_MSG_PUB.add;
6018: END IF;
6019:
6020: -- 5. Planning and In-Repair Sub Inventory and Locator
6021: IF (p_visit_rec.comp_planning_loc_id IS NULL OR p_visit_rec.comp_inrepair_loc_id IS NULL) THEN
6022: IF (l_log_statement >= l_log_current_level) THEN
6023: FND_LOG.string(l_log_statement, l_full_name, ' 5. Planning and In-Repair Sub Inventory and Locator.');
6024: END IF;
6025: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_SUBINV_NULL');
6026: FND_MSG_PUB.add;
6027: END IF;
6028:
6029: -- Firm Visit Flag must be NO
6030: IF (p_visit_rec.firmed_flag = 'Y') THEN
6031: IF (l_log_statement >= l_log_current_level) THEN
6032: FND_LOG.string(l_log_statement, l_full_name, ' 6.Firm Visit Flag must be NO.');
6033: END IF;
6034: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_VWP_COMP_VST_NO_FIRM');
6035: FND_MSG_PUB.add;
6036: END IF;
6037:
6038: -- If any errors occured, then raise them.
6136: -- Only visit name is mandatory on create/update visit pages
6137: -- VISIT NAME
6138: IF (p_Visit_rec.visit_name IS NULL OR p_Visit_rec.visit_name = Fnd_Api.G_MISS_CHAR) THEN
6139: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6140: Fnd_Message.set_name ('AHL', 'AHL_VWP_VST_NAME_MISSING');
6141: Fnd_Msg_Pub.ADD;
6142: END IF;
6143: x_return_status := Fnd_Api.g_ret_sts_error;
6144: RETURN;
6146:
6147: /* -- VISIT TYPE ==== VISIT_TYPE_CODE
6148: IF (p_Visit_rec.visit_type_code IS NULL OR p_Visit_rec.visit_type_code = Fnd_Api.G_MISS_CHAR)THEN
6149: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6150: Fnd_Message.set_name ('AHL', 'AHL_VWP_TYPE_MISSING');
6151: Fnd_Msg_Pub.ADD;
6152: END IF;
6153: x_return_status := Fnd_Api.g_ret_sts_error;
6154: RETURN;
6157: /* IF p_Visit_rec.VISIT_ID IS NULL THEN
6158: -- ITEM ==== INVENTORY_ITEM_ID
6159: IF (p_Visit_rec.ITEM_NAME IS NULL OR p_Visit_rec.ITEM_NAME = Fnd_Api.G_MISS_CHAR) THEN
6160: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6161: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
6162: Fnd_Msg_Pub.ADD;
6163: END IF;
6164: x_return_status := Fnd_Api.g_ret_sts_error;
6165: RETURN;
6168: /* -- SERIAL NUMBER ==== ITEM_INSTANCE_ID
6169: IF (p_Visit_rec.SERIAL_NUMBER IS NULL OR p_Visit_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
6170:
6171: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6172: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
6173: Fnd_Msg_Pub.ADD;
6174: END IF;
6175: x_return_status := Fnd_Api.g_ret_sts_error;
6176: RETURN;
6207: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
6208: ) = Fnd_Api.g_false THEN
6209:
6210: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6211: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_VISIT_ID');
6212: Fnd_Msg_Pub.ADD;
6213: END IF;
6214: x_return_status := Fnd_Api.g_ret_sts_error;
6215: RETURN;
6237: END IF;
6238:
6239: IF l_valid_flag = Fnd_Api.g_false THEN
6240: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6241: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLI_VISIT_NUMBER');
6242: Fnd_Msg_Pub.ADD;
6243: END IF;
6244: x_return_status := Fnd_Api.g_ret_sts_error;
6245: RETURN;
6471: OPEN get_open_job_task_csr(p_visit_id);
6472: FETCH get_open_job_task_csr INTO l_task_id;
6473: IF get_open_job_task_csr%FOUND THEN
6474: l_chk_flag := 'N';
6475: Fnd_Message.SET_NAME('AHL','AHL_VWP_INVALID_JOB_STATUS');
6476: Fnd_Msg_Pub.ADD;
6477: CLOSE get_open_job_task_csr;
6478: RAISE Fnd_Api.g_exc_error;
6479: END IF;
6484: OPEN get_ue_tasks_csr(p_visit_id);
6485: FETCH get_ue_tasks_csr INTO l_ue_id;
6486: IF get_ue_tasks_csr%FOUND THEN
6487: l_chk_flag :='N';
6488: Fnd_Message.SET_NAME('AHL','AHL_VWP_UE_CLOSE_INV');
6489: Fnd_Msg_Pub.ADD;
6490: CLOSE get_ue_tasks_csr;
6491: RAISE Fnd_Api.g_exc_error;
6492: END IF;
6719: END IF;
6720: -- End Code on 17th Feb 2004 by shbhanda
6721: END IF;
6722: ELSE
6723: Fnd_Message.SET_NAME('AHL','AHL_VWP_STATUS_NOT_RELEASED');
6724: Fnd_Msg_Pub.ADD;
6725: RAISE Fnd_Api.g_exc_error;
6726: END IF;
6727:
6928: FETCH c_visit INTO c_visit_rec;
6929: CLOSE c_visit;
6930:
6931: IF c_visit_rec.OBJECT_VERSION_NUMBER <> p_obj_ver_num THEN
6932: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
6933: Fnd_Msg_Pub.ADD;
6934: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6935: END IF;
6936:
7122: END IF;
7123:
7124: IF NVL(x_return_status, 'X') <> Fnd_Api.G_RET_STS_SUCCESS THEN
7125: -- Method call was not successful, raise error
7126: Fnd_Message.SET_NAME('AHL','AHL_VWP_PRJ_UPDATE_FAILED'); -- Failed to update job
7127: Fnd_Msg_Pub.ADD;
7128: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
7129: fnd_log.string( fnd_log.level_error,'ahl.plsql.'||G_PKG_NAME||'.'||L_API_NAME,
7130: 'Cant update the project to Rejected status');
7340: FETCH c_Visit INTO c_Visit_rec;
7341: IF c_Visit%NOTFOUND THEN
7342: CLOSE c_Visit;
7343: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
7344: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7345: Fnd_Msg_Pub.ADD;
7346: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7347: fnd_log.string(fnd_log.level_statement,L_DEBUG,'Visit not found for - ' ||l_visit_rec.visit_id );
7348: END IF;
7395: -------------- R12 changes For Serial Number Reservations Start-------------------
7396: ---------------AnRaj added on 19th June 2005-------------------
7397: -- R12: Department is made mandatory
7398: IF l_visit_rec.department_id IS NULL OR l_visit_rec.department_id = Fnd_Api.G_MISS_NUM THEN
7399: Fnd_Message.SET_NAME('AHL','AHL_VWP_RELSD_DEPT_MAND');
7400: Fnd_Msg_Pub.ADD;
7401: RAISE Fnd_Api.G_EXC_ERROR;
7402: END IF;
7403:
7412: -- Planned Start Date is madatory for transit visit
7413: IF l_visit_rec.START_DATE IS NULL
7414: OR l_visit_rec.START_DATE = FND_API.g_miss_date
7415: THEN
7416: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_ST_DT_REQ');
7417: Fnd_Msg_Pub.ADD;
7418: RAISE Fnd_Api.G_EXC_ERROR;
7419: END IF;
7420:
7421: -- Planned End Date is madatory for transit visit
7422: IF l_visit_rec.PLAN_END_DATE IS NULL
7423: OR l_visit_rec.PLAN_END_DATE = FND_API.g_miss_date
7424: THEN
7425: Fnd_Message.SET_NAME('AHL','AHL_VWP_TC_END_DT_REQ');
7426: Fnd_Msg_Pub.ADD;
7427: RAISE Fnd_Api.G_EXC_ERROR;
7428: END IF;
7429:
7428: END IF;
7429:
7430: -- Planned End Date must be greater than or equal to Planned Start Date
7431: IF (l_visit_rec.START_DATE > l_visit_rec.PLAN_END_DATE) THEN
7432: Fnd_Message.SET_NAME('AHL','AHL_VWP_START_DT_GTR_CLOSE_DT');
7433: Fnd_Msg_Pub.ADD;
7434: RAISE Fnd_Api.G_EXC_ERROR;
7435: END IF;
7436:
7449:
7450: l_visit_rec.organization_id := l_org_id;
7451:
7452: IF NVL(l_return_status,'x') <> 'S' THEN
7453: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORG_NOT_EXISTS');
7454: Fnd_Msg_Pub.ADD;
7455: RAISE Fnd_Api.G_EXC_ERROR;
7456: END IF;
7457:
7460: (p_dept_id => l_visit_rec.department_id,
7461: x_return_status => l_return_status);
7462:
7463: IF NVL(l_return_status,'x') <> 'S' THEN
7464: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
7465: Fnd_Msg_Pub.ADD;
7466: RAISE Fnd_Api.G_EXC_ERROR;
7467: END IF;
7468:
7716: -- If the Visit header has an instance id, check for the corresponding Unit
7717: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,item_instance_id);
7718: IF l_quarantined = FND_API.G_TRUE THEN
7719: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
7720: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
7721: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
7722: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
7723: Fnd_Msg_Pub.ADD;
7724: -- log message
7718: IF l_quarantined = FND_API.G_TRUE THEN
7719: l_unit_name := ahl_util_uc_pkg.get_unit_name(item_instance_id);
7720: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_HDR_UNIT_QRNT');
7721: -- The Unit for this Visit (UNIT_NAME-1) is quarantined.
7722: Fnd_Message.Set_Token('UNIT_NAME',l_unit_name);
7723: Fnd_Msg_Pub.ADD;
7724: -- log message
7725: IF (l_log_statement >= l_log_current_level)THEN
7726: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_unit_name || 'Unit is quarantined, Error message added');
7733: FETCH c_get_tasknumbers INTO l_task_number,l_instance_id;
7734: EXIT WHEN c_get_tasknumbers%NOTFOUND;
7735: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
7736: IF l_quarantined = FND_API.G_TRUE THEN
7737: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
7738: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7739: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7740: Fnd_Msg_Pub.ADD;
7741: -- log message
7735: l_quarantined := ahl_util_uc_pkg.is_unit_quarantined(null,l_instance_id);
7736: IF l_quarantined = FND_API.G_TRUE THEN
7737: Fnd_Message.SET_NAME('AHL','AHL_VWP_CLOSE_TSK_UNIT_QRNT');
7738: -- The Unit for the Task (UNIT_NAME-1) is quarantined.
7739: Fnd_Message.Set_Token('TASK_NUMBER',l_task_number);
7740: Fnd_Msg_Pub.ADD;
7741: -- log message
7742: IF (l_log_statement >= l_log_current_level)THEN
7743: fnd_log.string(fnd_log.level_statement,L_DEBUG,l_task_number || 'Unit for this task is quarantined.');
7793: BEGIN
7794:
7795: IF (p_message_stack_tbl.COUNT > 0) THEN
7796: FOR i IN p_message_stack_tbl.FIRST..p_message_stack_tbl.LAST LOOP
7797: FND_MESSAGE.SET_NAME('AHL','AHL_LTP_ATP_ERROR');
7798: FND_MESSAGE.SET_TOKEN('ERROR',p_message_stack_tbl(i));
7799: FND_MSG_PUB.Add;
7800: END LOOP;
7801: END IF;
7794:
7795: IF (p_message_stack_tbl.COUNT > 0) THEN
7796: FOR i IN p_message_stack_tbl.FIRST..p_message_stack_tbl.LAST LOOP
7797: FND_MESSAGE.SET_NAME('AHL','AHL_LTP_ATP_ERROR');
7798: FND_MESSAGE.SET_TOKEN('ERROR',p_message_stack_tbl(i));
7799: FND_MSG_PUB.Add;
7800: END LOOP;
7801: END IF;
7802: