[Home] [Help]
743:
744: -- Initialize API return status to success
745: -- Initialize message list if p_init_msg_list is set to TRUE.
746: IF FND_API.to_boolean(p_init_msg_list) THEN
747: FND_MSG_PUB.initialize;
748: END IF;
749:
750: x_return_status := FND_API.G_RET_STS_SUCCESS;
751:
875: OPEN c_visit_status(p_x_Visit_tbl(i).visit_id);
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 );
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;
885: END IF;
1027:
1028:
1029: ------------------------End of API Body---------------------------------------
1030: --Standard check to count messages
1031: l_msg_count := Fnd_Msg_Pub.count_msg;
1032:
1033: IF l_msg_count > 0 THEN
1034: x_msg_count := l_msg_count;
1035: IF l_status_flag <> 'V' THEN
1049: -- If validation had failed for any of the visits, return 'V' to the caller
1050: -- Otherwise X_return_status will already be 'S'
1051: IF l_status_flag = 'V' THEN
1052: X_return_status := G_VALIDATION_ERROR_STATUS;
1053: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1054: p_count => x_msg_count,
1055: p_data => x_msg_data);
1056: END IF;
1057:
1063:
1064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1065: ROLLBACK TO Process_Visit;
1066: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1068: p_count => x_msg_count,
1069: p_data => x_msg_data);
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1070:
1071: WHEN FND_API.G_EXC_ERROR THEN
1072: ROLLBACK TO Process_Visit;
1073: X_return_status := FND_API.G_RET_STS_ERROR;
1074: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1075: p_count => x_msg_count,
1076: p_data => X_msg_data);
1077:
1078: WHEN OTHERS THEN
1077:
1078: WHEN OTHERS THEN
1079: ROLLBACK TO Process_Visit;
1080: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: THEN
1083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
1084: p_procedure_name => 'Process_Visit',
1085: p_error_text => SUBSTR(SQLERRM,1,240));
1079: ROLLBACK TO Process_Visit;
1080: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1081: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1082: THEN
1083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
1084: p_procedure_name => 'Process_Visit',
1085: p_error_text => SUBSTR(SQLERRM,1,240));
1086: END IF;
1087: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1083: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_VWP_VISITS_PVT',
1084: p_procedure_name => 'Process_Visit',
1085: p_error_text => SUBSTR(SQLERRM,1,240));
1086: END IF;
1087: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1088: p_count => x_msg_count,
1089: p_data => x_msg_data);
1090: END Process_Visit;
1091:
1342: END IF;
1343:
1344: -- Initialize message list if p_init_msg_list is set to TRUE.
1345: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1346: Fnd_Msg_Pub.initialize;
1347: END IF;
1348:
1349: -- Initialize API return status to success
1350: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1463: IF visit_rec.project_template_id IS NOT NULL THEN
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;
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;
1473: CLOSE c_proj_template;
1591: x_visit_rec := l_visit_rec;
1592: END IF;
1593: ------------------------End of API Body------------------------------------
1594: -- Standard call to get message count and if count is 1, get message info
1595: Fnd_Msg_Pub.Count_And_Get
1596: ( p_count => x_msg_count,
1597: p_data => x_msg_data,
1598: p_encoded => Fnd_Api.g_false);
1599:
1605: EXCEPTION
1606: WHEN Fnd_Api.G_EXC_ERROR THEN
1607: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1608: ROLLBACK TO Get_Visit_Details;
1609: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1610: p_data => x_msg_data,
1611: p_encoded => Fnd_Api.g_false);
1612:
1613: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1612:
1613: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1614: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1615: ROLLBACK TO Get_Visit_Details;
1616: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1617: p_data => x_msg_data,
1618: p_encoded => Fnd_Api.g_false);
1619:
1620: WHEN OTHERS THEN
1619:
1620: WHEN OTHERS THEN
1621: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1622: ROLLBACK TO Get_Visit_Details;
1623: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1624: p_procedure_name => 'Get_Visit_Details',
1625: p_error_text => SQLERRM);
1626: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1627: p_data => x_msg_data,
1622: ROLLBACK TO Get_Visit_Details;
1623: Fnd_Msg_Pub.add_exc_msg( p_pkg_name => G_PKG_NAME,
1624: p_procedure_name => 'Get_Visit_Details',
1625: p_error_text => SQLERRM);
1626: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1627: p_data => x_msg_data,
1628: p_encoded => Fnd_Api.g_false);
1629: END Get_Visit_Details;
1630:
1819: END IF;
1820:
1821: -- Initialize message list if p_init_msg_list is set to TRUE.
1822: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
1823: Fnd_Msg_Pub.initialize;
1824: END IF;
1825:
1826: -- Initialize API return status to success
1827: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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:
1888: END IF;
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;
1903: CLOSE c_unit_det;
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;
1933:
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:
1967: AHL_VWP_RULES_PVT.CHECK_DEPARTMENT_SHIFT
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;
1977:
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:
2005: --Assign the returned value
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;
2061: -- End of changes by amagrawa
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;
2082:
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;
2104: END IF;
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
2116: ( p_proj_temp_name => l_visit_rec.proj_template_name,
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;
2127: END IF; --project name not null
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;
2142: CLOSE get_project_id_csr;
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;
2156: CLOSE validate_proj_date_csr;
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');
2170: Fnd_Msg_Pub.ADD;
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
2183: CLOSE c_subinv_validate;
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;
2190: CLOSE c_subinv_validate;
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;
2202: CLOSE c_loc_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:
2226: l_inv_loc_id := NULL;
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:
2250: l_inv_loc_id := NULL;
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
2272:
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
2314: -- then Null else the value call Default_Missing_Attribs procedure
2320: END IF;
2321: END IF;
2322:
2323: --Standard check to count messages
2324: l_msg_count := Fnd_Msg_Pub.count_msg;
2325:
2326: IF l_msg_count > 0 THEN
2327: x_msg_count := l_msg_count;
2328: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
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
2388: IF l_visit_rec.START_DATE IS NULL OR l_visit_rec.START_DATE = FND_API.g_miss_date THEN
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
2394: /*
2401: l_Visit_rec.unit_schedule_id := NULL;
2402: END IF;
2403:
2404: --Standard check to count messages
2405: l_msg_count := Fnd_Msg_Pub.count_msg;
2406:
2407: IF l_msg_count > 0 THEN
2408: x_msg_count := l_msg_count;
2409: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2659: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TASKS_PVT.ASSOCIATE_DEFAULT_MRS - x_return_status : '||x_return_status);
2660: END IF;
2661:
2662: --Standard check to count messages
2663: l_msg_count := Fnd_Msg_Pub.count_msg;
2664:
2665: IF l_msg_count > 0 THEN
2666: X_msg_count := l_msg_count;
2667: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2687: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_VWP_TIMES_PVT.Calculate_Task_Times - l_return_status : '||l_return_status);
2688: END IF;
2689:
2690: --Standard check to count messages
2691: l_msg_count := Fnd_Msg_Pub.count_msg;
2692:
2693: IF l_msg_count > 0 THEN
2694: X_msg_count := l_msg_count;
2695: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2764: END IF; -- l_Visit_rec.visit_create_type IS NOT NULL
2765:
2766: ---------------------------End of API Body---------------------------------------
2767: --Standard check to count messages
2768: l_msg_count := Fnd_Msg_Pub.count_msg;
2769:
2770: IF l_msg_count > 0 THEN
2771: X_msg_count := l_msg_count;
2772: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2784: EXCEPTION
2785: WHEN Fnd_Api.g_exc_error THEN
2786: ROLLBACK TO Create_Visit;
2787: x_return_status := Fnd_Api.g_ret_sts_error;
2788: Fnd_Msg_Pub.count_and_get(
2789: p_encoded => Fnd_Api.g_false,
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2792: );
2792: );
2793: WHEN Fnd_Api.g_exc_unexpected_error THEN
2794: ROLLBACK TO Create_Visit;
2795: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2796: Fnd_Msg_Pub.count_and_get (
2797: p_encoded => Fnd_Api.g_false,
2798: p_count => x_msg_count,
2799: p_data => x_msg_data
2800: );
2800: );
2801: WHEN OTHERS THEN
2802: ROLLBACK TO Create_Visit;
2803: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2804: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2805: THEN
2806: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2807: END IF;
2808: Fnd_Msg_Pub.count_and_get (
2802: ROLLBACK TO Create_Visit;
2803: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2804: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2805: THEN
2806: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2807: END IF;
2808: Fnd_Msg_Pub.count_and_get (
2809: p_encoded => Fnd_Api.g_false,
2810: p_count => x_msg_count,
2804: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2805: THEN
2806: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2807: END IF;
2808: Fnd_Msg_Pub.count_and_get (
2809: p_encoded => Fnd_Api.g_false,
2810: p_count => x_msg_count,
2811: p_data => x_msg_data
2812: );
2922: END IF;
2923:
2924: -- Initialize message list if p_init_msg_list is set to TRUE.
2925: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
2926: Fnd_Msg_Pub.initialize;
2927: END IF;
2928:
2929: -- Initialize API return status to success
2930: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2944: OPEN c_visit(p_visit_id);
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 );
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;
2954: 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:
2967: -- org/dept/start date/end date are passed from UA
3297: p_x_Visit_rec.visit_id := l_visit_id;
3298:
3299: ---------------------------End of API Body---------------------------------------
3300: --Standard check to count messages
3301: l_msg_count := Fnd_Msg_Pub.count_msg;
3302:
3303: IF l_msg_count > 0 THEN
3304: X_msg_count := l_msg_count;
3305: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3317: EXCEPTION
3318: WHEN Fnd_Api.g_exc_error THEN
3319: ROLLBACK TO Copy_Visit;
3320: x_return_status := Fnd_Api.g_ret_sts_error;
3321: Fnd_Msg_Pub.count_and_get (
3322: p_encoded => Fnd_Api.g_false,
3323: p_count => x_msg_count,
3324: p_data => x_msg_data
3325: );
3325: );
3326: WHEN Fnd_Api.g_exc_unexpected_error THEN
3327: ROLLBACK TO Copy_Visit;
3328: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3329: Fnd_Msg_Pub.count_and_get (
3330: p_encoded => Fnd_Api.g_false,
3331: p_count => x_msg_count,
3332: p_data => x_msg_data
3333: );
3333: );
3334: WHEN OTHERS THEN
3335: ROLLBACK TO Copy_Visit;
3336: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3337: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3338: THEN
3339: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3340: END IF;
3341: Fnd_Msg_Pub.count_and_get (
3335: ROLLBACK TO Copy_Visit;
3336: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3337: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3338: THEN
3339: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3340: END IF;
3341: Fnd_Msg_Pub.count_and_get (
3342: p_encoded => Fnd_Api.g_false,
3343: p_count => x_msg_count,
3337: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3338: THEN
3339: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3340: END IF;
3341: Fnd_Msg_Pub.count_and_get (
3342: p_encoded => Fnd_Api.g_false,
3343: p_count => x_msg_count,
3344: p_data => x_msg_data
3345: );
3569: END IF;
3570:
3571: -- Initialize message list if p_init_msg_list is set to TRUE.
3572: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
3573: Fnd_Msg_Pub.initialize;
3574: END IF;
3575:
3576: -- Initialize API return status to success
3577: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3588: OPEN c_Visit(l_Visit_rec.visit_id);
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 );
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;
3598: END IF;
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;
3614: --salogan::Modified the cursor fetch to handle both request id from P2P and Cost Estimation CP ER 9299910::01-JUN-2009::END
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---------------------------
3625: -- Commented for TC changes by Senthil
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;
3681: IF l_date_time_end IS NOT NULL THEN
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;
3688: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: END
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:
3706: -- PRAKKUM :: 28-JUN-2011 :: VWPE :: ER 12730539
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:
3753: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
3775: --Assign the returned value
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;
3800: END IF;
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:
3820: l_visit_rec.organization_id := l_organization_id;
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:
3853: l_visit_rec.department_id := l_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:
3864: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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
3881: ( p_proj_temp_name => l_visit_rec.proj_template_name,
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
3892: ELSE
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;
3911: CLOSE get_project_id_csr;
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;
3932: c_visit_rec.project_id := l_project_id;
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;
3945: CLOSE validate_proj_date_csr;
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');
3958: Fnd_Msg_Pub.ADD;
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
3971: CLOSE c_subinv_validate;
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;
3978: CLOSE c_subinv_validate;
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;
3990: CLOSE c_loc_validate;
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:
4029: IF l_date_time_end IS NULL THEN
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;
4035:
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:
4045: -- Planned End Date is madatory for transit visit
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;
4061: l_visit_rec.STATUS_CODE := c_Visit_rec.STATUS_CODE;
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:
4116: l_inv_loc_id := NULL;
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:
4140: l_inv_loc_id := NULL;
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
4162:
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;
4212:
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:
4466: IF (c_visit_rec.PAST_DATED_VISIT_FLAG = 'Y') AND (l_date_time_start > SYSDATE) THEN
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;
4472:
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
4621:
5029: --Return ovn updated count to caller
5030: p_x_visit_rec.STAGES_OVN_UPDATED_COUNT := l_stages_ovn_updated_count;
5031: -- PRAKKUM :: VWPE: ER:12730539 :: 06-JUL-2011 :: END
5032:
5033: l_msg_count := Fnd_Msg_Pub.count_msg;
5034: IF l_msg_count > 0 THEN
5035: X_msg_count := l_msg_count;
5036: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5037: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5048: EXCEPTION
5049: WHEN Fnd_Api.g_exc_error THEN
5050: ROLLBACK TO Update_Visit;
5051: x_return_status := Fnd_Api.g_ret_sts_error;
5052: Fnd_Msg_Pub.count_and_get (
5053: p_encoded => Fnd_Api.g_false,
5054: p_count => x_msg_count,
5055: p_data => x_msg_data
5056: );
5056: );
5057: WHEN Fnd_Api.g_exc_unexpected_error THEN
5058: ROLLBACK TO Update_Visit;
5059: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5060: Fnd_Msg_Pub.count_and_get (
5061: p_encoded => Fnd_Api.g_false,
5062: p_count => x_msg_count,
5063: p_data => x_msg_data
5064: );
5064: );
5065: WHEN OTHERS THEN
5066: ROLLBACK TO Update_Visit;
5067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5068: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5069: THEN
5070: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5071: END IF;
5072: Fnd_Msg_Pub.count_and_get (
5066: ROLLBACK TO Update_Visit;
5067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5068: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5069: THEN
5070: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5071: END IF;
5072: Fnd_Msg_Pub.count_and_get (
5073: p_encoded => Fnd_Api.g_false,
5074: p_count => x_msg_count,
5068: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5069: THEN
5070: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5071: END IF;
5072: Fnd_Msg_Pub.count_and_get (
5073: p_encoded => Fnd_Api.g_false,
5074: p_count => x_msg_count,
5075: p_data => x_msg_data
5076: );
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: (
5180: fnd_log.level_error,
5302: END IF;
5303:
5304: -- Initialize message list if p_init_msg_list is set to TRUE.
5305: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
5306: Fnd_Msg_Pub.initialize;
5307: END IF;
5308:
5309: --Initialize API return status to success
5310: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5324: OPEN c_Visit(p_visit_id);
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);
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;
5334: END IF;
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;
5346: RAISE Fnd_Api.G_EXC_ERROR;
5401: END IF;
5402:
5403: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5404: -- Check Error Message stack.
5405: x_msg_count := FND_MSG_PUB.count_msg;
5406: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
5407: fnd_log.string (fnd_log.level_statement,L_DEBUG,'Errors from delete_simul_visits: ' || x_msg_count );
5408: END IF;
5409: RAISE Fnd_Api.g_exc_error;
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;
5448: CLOSE c_Tasks_csr;
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
5537: -- When a visit is hard deleted than the related projects is also deleted
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
5565: END IF; -- project id not null
5618: WHERE VISIT_ID = l_visit_rec.visit_id;
5619: END IF; -- soft delete flag
5620: --------------------------End of API Body---------------------------------------
5621: --Standard check to count messages
5622: l_msg_count := Fnd_Msg_Pub.count_msg;
5623:
5624: IF l_msg_count > 0 THEN
5625: X_msg_count := l_msg_count;
5626: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5638: EXCEPTION
5639: WHEN Fnd_Api.g_exc_error THEN
5640: ROLLBACK TO Delete_Visit;
5641: x_return_status := Fnd_Api.g_ret_sts_error;
5642: Fnd_Msg_Pub.count_and_get (
5643: p_encoded => Fnd_Api.g_false,
5644: p_count => x_msg_count,
5645: p_data => x_msg_data
5646: );
5646: );
5647: WHEN Fnd_Api.g_exc_unexpected_error THEN
5648: ROLLBACK TO Delete_Visit;
5649: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5650: Fnd_Msg_Pub.count_and_get (
5651: p_encoded => Fnd_Api.g_false,
5652: p_count => x_msg_count,
5653: p_data => x_msg_data
5654: );
5654: );
5655: WHEN OTHERS THEN
5656: ROLLBACK TO Delete_Visit;
5657: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5658: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5659: THEN
5660: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5661: END IF;
5662: Fnd_Msg_Pub.count_and_get (
5656: ROLLBACK TO Delete_Visit;
5657: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5658: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5659: THEN
5660: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5661: END IF;
5662: Fnd_Msg_Pub.count_and_get (
5663: p_encoded => Fnd_Api.g_false,
5664: p_count => x_msg_count,
5658: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5659: THEN
5660: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5661: END IF;
5662: Fnd_Msg_Pub.count_and_get (
5663: p_encoded => Fnd_Api.g_false,
5664: p_count => x_msg_count,
5665: p_data => x_msg_data
5666: );
5732: fnd_log.string(fnd_log.level_procedure,L_DEBUG||'.begin','At the start of PLSQL procedure');
5733: END IF;
5734:
5735: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5736: Fnd_Msg_Pub.initialize;
5737: END IF;
5738:
5739: IF NOT Fnd_Api.compatible_api_call (
5740: l_api_version,
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;
5883:
5881:
5882: END IF;
5883:
5884: -------------------- finish --------------------------
5885: Fnd_Msg_Pub.count_and_get (
5886: p_encoded => Fnd_Api.g_false,
5887: p_count => x_msg_count,
5888: p_data => x_msg_data
5889: );
5894:
5895: EXCEPTION
5896: WHEN Fnd_Api.g_exc_error THEN
5897: x_return_status := Fnd_Api.g_ret_sts_error;
5898: Fnd_Msg_Pub.count_and_get (
5899: p_encoded => Fnd_Api.g_false,
5900: p_count => x_msg_count,
5901: p_data => x_msg_data
5902: );
5901: p_data => x_msg_data
5902: );
5903: WHEN Fnd_Api.g_exc_unexpected_error THEN
5904: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5905: Fnd_Msg_Pub.count_and_get (
5906: p_encoded => Fnd_Api.g_false,
5907: p_count => x_msg_count,
5908: p_data => x_msg_data
5909: );
5908: p_data => x_msg_data
5909: );
5910: WHEN OTHERS THEN
5911: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
5912: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
5913: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5914: END IF;
5915: Fnd_Msg_Pub.count_and_get (
5916: p_encoded => Fnd_Api.g_false,
5909: );
5910: WHEN OTHERS THEN
5911: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
5912: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
5913: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5914: END IF;
5915: Fnd_Msg_Pub.count_and_get (
5916: p_encoded => Fnd_Api.g_false,
5917: p_count => x_msg_count,
5911: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
5912: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error) THEN
5913: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5914: END IF;
5915: Fnd_Msg_Pub.count_and_get (
5916: p_encoded => Fnd_Api.g_false,
5917: p_count => x_msg_count,
5918: p_data => x_msg_data
5919: );
5968: END IF;
5969:
5970: -- Initialize message list if p_init_msg_list is set to TRUE
5971: IF FND_API.to_boolean(p_init_msg_list) THEN
5972: FND_MSG_PUB.initialize;
5973: END IF;
5974:
5975: -- Initialize Procedure return status to success
5976: x_return_status := FND_API.G_RET_STS_SUCCESS;
5973: END IF;
5974:
5975: -- Initialize Procedure return status to success
5976: x_return_status := FND_API.G_RET_STS_SUCCESS;
5977: l_msg_count := FND_MSG_PUB.count_msg;
5978:
5979: IF (l_log_statement >= l_log_current_level) THEN
5980: FND_LOG.string(l_log_statement, l_full_name, ' visit_id = ' || p_visit_rec.visit_id);
5981: END IF;
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.
6039: IF (FND_MSG_PUB.count_msg > l_msg_count) THEN
6035: FND_MSG_PUB.add;
6036: END IF;
6037:
6038: -- If any errors occured, then raise them.
6039: IF (FND_MSG_PUB.count_msg > l_msg_count) THEN
6040: IF (l_log_statement >= l_log_current_level) THEN
6041: FND_LOG.string(l_log_statement, l_full_name, ' Some validations in Validate_Component_Visit API failed.');
6042: END IF;
6043: RAISE FND_API.G_EXC_ERROR;
6049:
6050: EXCEPTION
6051: WHEN FND_API.G_EXC_ERROR THEN
6052: x_return_status := FND_API.G_RET_STS_ERROR;
6053: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6054: p_count => x_msg_count,
6055: p_data => x_msg_data);
6056:
6057: IF (l_log_statement >= l_log_current_level) THEN
6059: END IF;
6060:
6061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6063: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6064: p_count => x_msg_count,
6065: p_data => x_msg_data);
6066:
6067: IF (l_log_statement >= l_log_current_level) THEN
6070:
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073:
6074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6075: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6076: p_procedure_name => l_api_name,
6077: p_error_text => SUBSTRB(SQLERRM, 1, 240));
6078: END IF;
6071: WHEN OTHERS THEN
6072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6073:
6074: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
6075: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6076: p_procedure_name => l_api_name,
6077: p_error_text => SUBSTRB(SQLERRM, 1, 240));
6078: END IF;
6079: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6075: FND_MSG_PUB.add_exc_msg(p_pkg_name => G_PKG_NAME,
6076: p_procedure_name => l_api_name,
6077: p_error_text => SUBSTRB(SQLERRM, 1, 240));
6078: END IF;
6079: FND_MSG_PUB.count_and_get(p_encoded => FND_API.G_FALSE,
6080: p_count => x_msg_count,
6081: p_data => x_msg_data);
6082:
6083: IF (l_log_statement >= l_log_current_level) THEN
6135: -- Post 11.5.10 Enhancements
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;
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;
6145: END IF;
6145: END IF;
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;
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;
6155: END IF;
6156: */
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;
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;
6166: END IF;
6167: */
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;
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;
6177: END IF;
6206: 'Ahl_Visits_VL',
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;
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;
6216:
6236: END IF;
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;
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;
6246: END IF;
6389: END IF;
6390:
6391: -- Initialize message list if p_init_msg_list is set to TRUE.
6392: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6393: Fnd_Msg_Pub.initialize;
6394: END IF;
6395:
6396: -- Initialize API return status to success
6397: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6412: -- AnRaj added for R 12.0 ACL changes in VWP, Start
6413: CHECK_UNIT_QUARANTINED( p_visit_id => p_visit_id,
6414: item_instance_id => c_visit_rec.Item_Instance_Id);
6415: -- Check Error Message stack.
6416: l_msg_count := FND_MSG_PUB.count_msg;
6417: IF l_msg_count > 0 THEN
6418: x_return_status := FND_API.G_RET_STS_ERROR;
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
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;
6480: CLOSE get_open_job_task_csr;
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;
6493: CLOSE get_ue_tasks_csr;
6517: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After Calling AHL_VWP_COST_PVT.Calculate_WO_Cost : l_return_status - '||l_return_status);
6518: END IF;
6519:
6520: -- Check Error Message stack.
6521: l_msg_count := FND_MSG_PUB.count_msg;
6522: IF l_msg_count > 0 THEN
6523: x_return_status := FND_API.G_RET_STS_ERROR;
6524: RAISE FND_API.G_EXC_ERROR;
6525: END IF;
6567: END LOOP;
6568: CLOSE c_wip_entity;
6569:
6570: -- Check Error Message stack.
6571: l_msg_count := FND_MSG_PUB.count_msg;
6572: IF l_msg_count > 0 THEN
6573: x_return_status := FND_API.G_RET_STS_ERROR;
6574: RAISE FND_API.G_EXC_ERROR;
6575: END IF;
6638: END IF;
6639:
6640: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6641: -- Check Error Message stack.
6642: x_msg_count := FND_MSG_PUB.count_msg;
6643: RAISE Fnd_Api.g_exc_error;
6644: END IF;
6645: -- yazhou 28Sept2005 ends
6646:
6706: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6707: fnd_log.string(fnd_log.level_statement,L_DEBUG,'After calling AHL_LTP_REQST_MATRL_PVT.Process_Planned_Materials : x_return_status - '||x_return_status);
6708: END IF;
6709:
6710: l_msg_count := FND_MSG_PUB.count_msg;
6711: IF l_msg_count > 0 THEN
6712: X_msg_count := l_msg_count;
6713: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6714: RAISE FND_API.G_EXC_ERROR;
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:
6728: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6735: IF Fnd_Api.To_Boolean ( p_commit ) THEN
6736: COMMIT WORK;
6737: END IF;
6738:
6739: Fnd_Msg_Pub.count_and_get(
6740: p_encoded => Fnd_Api.g_false,
6741: p_count => x_msg_count,
6742: p_data => x_msg_data);
6743:
6747: EXCEPTION
6748: WHEN Fnd_Api.g_exc_error THEN
6749: ROLLBACK TO Close_Visit;
6750: x_return_status := Fnd_Api.g_ret_sts_error;
6751: Fnd_Msg_Pub.count_and_get (
6752: p_encoded => Fnd_Api.g_false,
6753: p_count => x_msg_count,
6754: p_data => x_msg_data
6755: );
6755: );
6756: WHEN Fnd_Api.g_exc_unexpected_error THEN
6757: ROLLBACK TO Close_Visit;
6758: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6759: Fnd_Msg_Pub.count_and_get (
6760: p_encoded => Fnd_Api.g_false,
6761: p_count => x_msg_count,
6762: p_data => x_msg_data
6763: );
6763: );
6764: WHEN OTHERS THEN
6765: ROLLBACK TO Close_Visit;
6766: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6767: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6768: THEN
6769: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6770: END IF;
6771: Fnd_Msg_Pub.count_and_get (
6765: ROLLBACK TO Close_Visit;
6766: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6767: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6768: THEN
6769: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6770: END IF;
6771: Fnd_Msg_Pub.count_and_get (
6772: p_encoded => Fnd_Api.g_false,
6773: p_count => x_msg_count,
6767: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6768: THEN
6769: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6770: END IF;
6771: Fnd_Msg_Pub.count_and_get (
6772: p_encoded => Fnd_Api.g_false,
6773: p_count => x_msg_count,
6774: p_data => x_msg_data
6775: );
6909: END IF;
6910:
6911: -- Initialize message list if p_init_msg_list is set to TRUE.
6912: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
6913: Fnd_Msg_Pub.initialize;
6914: END IF;
6915:
6916: -- Initialize API return status to success
6917: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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:
6937: -- Changed by jaramana on 05-NOV-2009
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');
7131: END IF;
7208: IF Fnd_Api.To_Boolean ( p_commit ) THEN
7209: COMMIT WORK;
7210: END IF;
7211:
7212: Fnd_Msg_Pub.count_and_get(
7213: p_encoded => Fnd_Api.g_false,
7214: p_count => x_msg_count,
7215: p_data => x_msg_data);
7216:
7221: -- SKPATHAK :: Bug 9115894 :: 13-NOV-2009
7222: WHEN G_VALIDATION_EXCEPTION THEN
7223: ROLLBACK TO Cancel_Visit;
7224: x_return_status := G_VALIDATION_ERROR_STATUS ;
7225: Fnd_Msg_Pub.count_and_get (
7226: p_encoded => Fnd_Api.g_false,
7227: p_count => x_msg_count,
7228: p_data => x_msg_data
7229: );
7230:
7231: WHEN Fnd_Api.g_exc_error THEN
7232: ROLLBACK TO Cancel_Visit;
7233: x_return_status := Fnd_Api.g_ret_sts_error;
7234: Fnd_Msg_Pub.count_and_get (
7235: p_encoded => Fnd_Api.g_false,
7236: p_count => x_msg_count,
7237: p_data => x_msg_data
7238: );
7239:
7240: WHEN Fnd_Api.g_exc_unexpected_error THEN
7241: ROLLBACK TO Cancel_Visit;
7242: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7243: Fnd_Msg_Pub.count_and_get (
7244: p_encoded => Fnd_Api.g_false,
7245: p_count => x_msg_count,
7246: p_data => x_msg_data
7247: );
7248:
7249: WHEN OTHERS THEN
7250: ROLLBACK TO Cancel_Visit;
7251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7253: THEN
7254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7255: END IF;
7256: Fnd_Msg_Pub.count_and_get (
7250: ROLLBACK TO Cancel_Visit;
7251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7253: THEN
7254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7255: END IF;
7256: Fnd_Msg_Pub.count_and_get (
7257: p_encoded => Fnd_Api.g_false,
7258: p_count => x_msg_count,
7252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7253: THEN
7254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7255: END IF;
7256: Fnd_Msg_Pub.count_and_get (
7257: p_encoded => Fnd_Api.g_false,
7258: p_count => x_msg_count,
7259: p_data => x_msg_data
7260: );
7320: END IF;
7321:
7322: -- Initialize message list if p_init_msg_list is set to TRUE.
7323: IF Fnd_Api.to_boolean(p_init_msg_list) THEN
7324: Fnd_Msg_Pub.initialize;
7325: END IF;
7326:
7327: -- Initialize API return status to success
7328: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7339: OPEN c_Visit(l_visit_rec.visit_id);
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 );
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;
7349: END IF;
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:
7404: -- R12: Department change does not require to cancel current visit and Create a new 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:
7430: -- Planned End Date must be greater than or equal to Planned Start Date
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:
7437: -- If visit start date is earlier than SYSDATE then use sysdate to create new visit
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:
7458: -- Department must have shift defined
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:
7469: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7596: END IF;
7597: END IF;
7598: END IF;
7599:
7600: l_msg_count := Fnd_Msg_Pub.count_msg;
7601:
7602: IF l_msg_count > 0 THEN
7603: X_msg_count := l_msg_count;
7604: X_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7615: EXCEPTION
7616: WHEN Fnd_Api.g_exc_error THEN
7617: ROLLBACK TO Synchronize_Visit;
7618: x_return_status := Fnd_Api.g_ret_sts_error;
7619: Fnd_Msg_Pub.count_and_get (
7620: p_encoded => Fnd_Api.g_false,
7621: p_count => x_msg_count,
7622: p_data => x_msg_data
7623: );
7623: );
7624: WHEN Fnd_Api.g_exc_unexpected_error THEN
7625: ROLLBACK TO Synchronize_Visit;
7626: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7627: Fnd_Msg_Pub.count_and_get (
7628: p_encoded => Fnd_Api.g_false,
7629: p_count => x_msg_count,
7630: p_data => x_msg_data
7631: );
7631: );
7632: WHEN OTHERS THEN
7633: ROLLBACK TO Synchronize_Visit;
7634: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7635: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7636: THEN
7637: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7638: END IF;
7639: Fnd_Msg_Pub.count_and_get (
7633: ROLLBACK TO Synchronize_Visit;
7634: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7635: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7636: THEN
7637: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7638: END IF;
7639: Fnd_Msg_Pub.count_and_get (
7640: p_encoded => Fnd_Api.g_false,
7641: p_count => x_msg_count,
7635: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7636: THEN
7637: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7638: END IF;
7639: Fnd_Msg_Pub.count_and_get (
7640: p_encoded => Fnd_Api.g_false,
7641: p_count => x_msg_count,
7642: p_data => x_msg_data
7643: );
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');
7727: END IF; -- log
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.');
7744: END IF; -- log
7763: l_msg_index_out NUMBER;
7764:
7765: BEGIN
7766:
7767: l_msg_count := Fnd_Msg_Pub.count_msg;
7768: IF (l_msg_count > 0 ) THEN
7769: FOR i IN 1..l_msg_count
7770: LOOP
7771: fnd_msg_pub.get( p_msg_index => i,
7767: l_msg_count := Fnd_Msg_Pub.count_msg;
7768: IF (l_msg_count > 0 ) THEN
7769: FOR i IN 1..l_msg_count
7770: LOOP
7771: fnd_msg_pub.get( p_msg_index => i,
7772: p_encoded => FND_API.G_FALSE,
7773: p_data => l_msg_data,
7774: p_msg_index_out => l_msg_index_out);
7775:
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:
7803: END Set_Message_Stack;