[Home] [Help]
309: OPEN get_workorder_rec(p_x_prd_workorder_rec.workorder_id);
310: FETCH get_workorder_rec INTO l_prd_workorder_rec;
311: IF get_workorder_rec%NOTFOUND THEN
312: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
313: FND_MSG_PUB.ADD;
314: CLOSE get_workorder_rec;
315: END IF;
316: CLOSE get_workorder_rec;
317: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER :=l_prd_workorder_rec.OBJECT_VERSION_NUMBER;
988: -- Standard start of API savepoint
989: SAVEPOINT Get_Task_Details;
990:
991: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
992: Fnd_Msg_Pub.initialize;
993: END IF;
994:
995: -- Initialize API return status to success
996: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1276: x_task_rec := l_task_rec;
1277:
1278: ------------------------End of API Body------------------------------------
1279: -- Standard call to get message count and if count is 1, get message info
1280: /* Fnd_Msg_Pub.Count_And_Get
1281: ( p_count => x_msg_count,
1282: p_data => x_msg_data,
1283: p_encoded => Fnd_Api.g_false); */
1284:
1282: p_data => x_msg_data,
1283: p_encoded => Fnd_Api.g_false); */
1284:
1285: --Standard check to count messages
1286: l_msg_count := Fnd_Msg_Pub.count_msg;
1287:
1288: IF l_msg_count > 0 THEN
1289: x_msg_count := l_msg_count;
1290: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1300: EXCEPTION
1301: WHEN Fnd_Api.G_EXC_ERROR THEN
1302: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1303: ROLLBACK TO Get_Task_Details;
1304: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1305: p_data => x_msg_data,
1306: p_encoded => Fnd_Api.g_false);
1307: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1306: p_encoded => Fnd_Api.g_false);
1307: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1308: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1309: ROLLBACK TO Get_Task_Details;
1310: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1311: p_data => x_msg_data,
1312: p_encoded => Fnd_Api.g_false);
1313: WHEN OTHERS THEN
1314: ROLLBACK TO Get_Task_Details;
1312: p_encoded => Fnd_Api.g_false);
1313: WHEN OTHERS THEN
1314: ROLLBACK TO Get_Task_Details;
1315: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1317: THEN
1318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1319: END IF;
1320: Fnd_Msg_Pub.count_and_get (
1314: ROLLBACK TO Get_Task_Details;
1315: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1317: THEN
1318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1319: END IF;
1320: Fnd_Msg_Pub.count_and_get (
1321: p_encoded => Fnd_Api.g_false,
1322: p_count => x_msg_count,
1316: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1317: THEN
1318: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1319: END IF;
1320: Fnd_Msg_Pub.count_and_get (
1321: p_encoded => Fnd_Api.g_false,
1322: p_count => x_msg_count,
1323: p_data => x_msg_data );
1324: END Get_Task_Details;
1395:
1396: -- Initialize message list if p_init_msg_list is set to TRUE.
1397: IF Fnd_Api.to_boolean(p_init_msg_list)
1398: THEN
1399: Fnd_Msg_Pub.initialize;
1400: END IF;
1401:
1402: -- Initialize API return status to success
1403: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1430: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
1431: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
1432: -- if start date is entered but not end date, throw error
1433: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1434: Fnd_Msg_Pub.ADD;
1435: RAISE FND_API.G_EXC_ERROR;
1436: END IF;
1437: IF (l_task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
1438: -- Throw error if start date is not in past
1436: END IF;
1437: IF (l_task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
1438: -- Throw error if start date is not in past
1439: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
1440: Fnd_Msg_Pub.ADD;
1441: RAISE FND_API.G_EXC_ERROR;
1442: END IF;
1443: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
1444: -- Throw error if past task start date is before the visit start date
1442: END IF;
1443: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
1444: -- Throw error if past task start date is before the visit start date
1445: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
1446: Fnd_Msg_Pub.ADD;
1447: RAISE FND_API.G_EXC_ERROR;
1448: END IF;
1449: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
1450: -- Throw error if past task start date is after the past task end date
1448: END IF;
1449: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
1450: -- Throw error if past task start date is after the past task end date
1451: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
1452: Fnd_Msg_Pub.ADD;
1453: RAISE FND_API.G_EXC_ERROR;
1454: END IF;
1455: IF (l_task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME,l_task_rec.PAST_TASK_END_DATE)) THEN
1456: -- Throw error if visit ends before the task
1454: END IF;
1455: IF (l_task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME,l_task_rec.PAST_TASK_END_DATE)) THEN
1456: -- Throw error if visit ends before the task
1457: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
1458: Fnd_Msg_Pub.ADD;
1459: RAISE FND_API.G_EXC_ERROR;
1460: END IF;
1461: -- SKPATHAK :: Bug #9402556 :: 24-FEB-2010 :: Added call to Validate_Past_Task_Dates
1462: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
1480: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
1481: IF (l_task_rec.PAST_TASK_END_DATE IS NOT NULL
1482: AND l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
1484: Fnd_Msg_Pub.ADD;
1485: RAISE FND_API.G_EXC_ERROR;
1486: END IF;
1487: l_task_rec.PAST_TASK_START_DATE := NULL;
1488: l_task_rec.PAST_TASK_END_DATE := NULL;
1490: -- SKPATHAK :: ER: 9147951 :: 11-JAN-2010 :: END
1491:
1492: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1493: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1494: Fnd_Msg_Pub.ADD;
1495: RAISE Fnd_Api.G_EXC_ERROR;
1496: ELSE
1497: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1498: IF (l_log_statement >= l_log_current_level) THEN
1759: */
1760:
1761: --------------------End of API Body-------------------------------------
1762: --Standard check to count messages
1763: l_msg_count := Fnd_Msg_Pub.count_msg;
1764:
1765: -- AJPRASAN :: VWPE :: Bug# 12424063 - Added the check for NOT overwriting x_return_status,
1766: -- if l_return_status is 'V'
1767: IF (l_return_status = 'V') THEN
1793: EXCEPTION
1794: WHEN Fnd_Api.g_exc_error THEN
1795: ROLLBACK TO Create_Task;
1796: x_return_status := Fnd_Api.g_ret_sts_error;
1797: Fnd_Msg_Pub.count_and_get(
1798: p_encoded => Fnd_Api.g_false,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data
1801: );
1801: );
1802: WHEN Fnd_Api.g_exc_unexpected_error THEN
1803: ROLLBACK TO Create_Task;
1804: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1805: Fnd_Msg_Pub.count_and_get (
1806: p_encoded => Fnd_Api.g_false,
1807: p_count => x_msg_count,
1808: p_data => x_msg_data
1809: );
1809: );
1810: WHEN OTHERS THEN
1811: ROLLBACK TO Create_Task;
1812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1813: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1814: THEN
1815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1816: END IF;
1817: Fnd_Msg_Pub.count_and_get (
1811: ROLLBACK TO Create_Task;
1812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1813: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1814: THEN
1815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1816: END IF;
1817: Fnd_Msg_Pub.count_and_get (
1818: p_encoded => Fnd_Api.g_false,
1819: p_count => x_msg_count,
1813: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1814: THEN
1815: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1816: END IF;
1817: Fnd_Msg_Pub.count_and_get (
1818: p_encoded => Fnd_Api.g_false,
1819: p_count => x_msg_count,
1820: p_data => x_msg_data
1821: );
1903:
1904: -- Initialize message list if p_init_msg_list is set to TRUE.
1905: IF Fnd_Api.to_boolean(p_init_msg_list)
1906: THEN
1907: Fnd_Msg_Pub.initialize;
1908: END IF;
1909:
1910: -- Initialize API return status to success
1911: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1947: END IF;
1948:
1949: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1950: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1951: Fnd_Msg_Pub.ADD;
1952: RAISE Fnd_Api.G_EXC_ERROR;
1953: /*
1954: Commented to fix bug # 4029318
1955: ELSIF c_visit_rec.status_code = 'RELEASED' OR c_visit_rec.status_code = 'PARTIALLY RELEASED' THEN
1989: x_error_msg_code => l_msg_data );
1990:
1991: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1992: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1993: Fnd_Msg_Pub.ADD;
1994: RAISE Fnd_Api.G_EXC_ERROR;
1995: END IF;
1996: --
1997: -- For ITEM
2012: x_error_msg_code => l_msg_data);
2013:
2014: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2015: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2016: Fnd_Msg_Pub.ADD;
2017: RAISE Fnd_Api.G_EXC_ERROR;
2018: END IF;
2019:
2020: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2024: ': Compare item name');
2025: END IF;
2026:
2027: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2028: Fnd_Msg_Pub.ADD;
2029: RAISE Fnd_Api.G_EXC_ERROR;
2030: END IF;
2031: ELSE
2032: IF (l_log_statement >= l_log_current_level) THEN
2034: L_DEBUG_KEY,
2035: ': Check item else loop');
2036: END IF;
2037: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2038: Fnd_Msg_Pub.ADD;
2039: RAISE Fnd_Api.G_EXC_ERROR;
2040: END IF;
2041:
2042: --Assign the returned value
2076:
2077: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2078: THEN
2079: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2080: Fnd_Msg_Pub.ADD;
2081: RAISE Fnd_Api.G_EXC_ERROR;
2082: END IF;
2083:
2084: -- Changes for Post 11.5.10 by amagrawa
2087: X_RETURN_STATUS => l_return_status);
2088:
2089: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2090: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2091: Fnd_Msg_Pub.ADD;
2092: RAISE Fnd_Api.G_EXC_ERROR;
2093: END IF;
2094: --Assign the returned value
2095: l_task_rec.department_id := l_department_id;
2120: x_error_msg_code => l_msg_data);
2121:
2122: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2123: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2124: Fnd_Msg_Pub.ADD;
2125: RAISE Fnd_Api.G_EXC_ERROR;
2126: ELSE
2127: --Assign the returned value
2128: l_Task_rec.instance_id := l_serial_id;
2139: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id)
2140: = FND_API.G_RET_STS_ERROR) THEN
2141: --END: jeli added for bug 3777720
2142: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2143: Fnd_Msg_Pub.ADD;
2144: RAISE Fnd_Api.G_EXC_ERROR;
2145: END IF;
2146: sowsubra - end */
2147: END IF;
2170: CLOSE c_get_instance_qty;
2171:
2172: IF (l_Task_rec.QUANTITY is null) THEN
2173: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
2174: Fnd_Msg_Pub.ADD;
2175: RAISE Fnd_Api.G_EXC_ERROR;
2176: END IF;
2177:
2178: IF (l_Task_rec.QUANTITY <= 0) THEN
2176: END IF;
2177:
2178: IF (l_Task_rec.QUANTITY <= 0) THEN
2179: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
2180: Fnd_Msg_Pub.ADD;
2181: RAISE Fnd_Api.G_EXC_ERROR;
2182: END IF;
2183:
2184: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
2182: END IF;
2183:
2184: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
2185: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
2186: Fnd_Msg_Pub.ADD;
2187: RAISE Fnd_Api.G_EXC_ERROR;
2188: END IF;
2189: -- End changes by rnahata for Issue 105
2190:
2207:
2208: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2209: THEN
2210: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2211: Fnd_Msg_Pub.ADD;
2212: RAISE Fnd_Api.g_exc_error;
2213: END IF;
2214:
2215: --Assign the returned value
2263:
2264: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2265: THEN
2266: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2267: Fnd_Msg_Pub.ADD;
2268: RAISE Fnd_Api.g_exc_error;
2269: END IF;
2270: --Assign the returned value
2271: l_Task_rec.originating_task_id := l_originating_task_id;
2319: /* ELSE Commented to fix bug # 4029318 Senthil
2320: -- TASK NAME ==== NAME
2321: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
2322: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
2323: Fnd_Msg_Pub.ADD;
2324: RAISE Fnd_Api.g_exc_error;
2325: END IF;
2326: END IF;
2327: */
2457: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
2458: l_return_status);
2459: END IF;
2460:
2461: l_msg_count := Fnd_Msg_Pub.count_msg;
2462: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
2463: x_msg_count := l_msg_count;
2464: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2465: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
2492: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
2493: END IF;
2494:
2495: --Standard check to count messages
2496: l_msg_count := Fnd_Msg_Pub.count_msg;
2497:
2498: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2499: x_msg_count := l_msg_count;
2500: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2557: END IF;
2558: */
2559: ---------------------------End of API Body---------------------------------------
2560: --Standard check to count messages
2561: l_msg_count := Fnd_Msg_Pub.count_msg;
2562:
2563: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2564: x_msg_count := l_msg_count;
2565: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2580: EXCEPTION
2581: WHEN Fnd_Api.g_exc_error THEN
2582: ROLLBACK TO Create_Unassociated_Task;
2583: x_return_status := Fnd_Api.g_ret_sts_error;
2584: Fnd_Msg_Pub.count_and_get(
2585: p_encoded => Fnd_Api.g_false,
2586: p_count => x_msg_count,
2587: p_data => x_msg_data
2588: );
2589:
2590: WHEN Fnd_Api.g_exc_unexpected_error THEN
2591: ROLLBACK TO Create_Unassociated_Task;
2592: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2593: Fnd_Msg_Pub.count_and_get (
2594: p_encoded => Fnd_Api.g_false,
2595: p_count => x_msg_count,
2596: p_data => x_msg_data
2597: );
2598:
2599: WHEN OTHERS THEN
2600: ROLLBACK TO Create_Unassociated_Task;
2601: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2602: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2603: THEN
2604: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2605: END IF;
2606: Fnd_Msg_Pub.count_and_get (
2600: ROLLBACK TO Create_Unassociated_Task;
2601: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2602: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2603: THEN
2604: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2605: END IF;
2606: Fnd_Msg_Pub.count_and_get (
2607: p_encoded => Fnd_Api.g_false,
2608: p_count => x_msg_count,
2602: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2603: THEN
2604: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2605: END IF;
2606: Fnd_Msg_Pub.count_and_get (
2607: p_encoded => Fnd_Api.g_false,
2608: p_count => x_msg_count,
2609: p_data => x_msg_data
2610: );
2681:
2682: -- Initialize message list if p_init_msg_list is set to TRUE.
2683: IF Fnd_Api.to_boolean(p_init_msg_list)
2684: THEN
2685: Fnd_Msg_Pub.initialize;
2686: END IF;
2687:
2688: -- Initialize API return status to success
2689: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2719: END IF;
2720:
2721: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
2722: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
2723: Fnd_Msg_Pub.ADD;
2724: RAISE Fnd_Api.G_EXC_ERROR;
2725: ELSE
2726: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2727: --
2743:
2744: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2745: THEN
2746: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2747: Fnd_Msg_Pub.ADD;
2748: RAISE Fnd_Api.G_EXC_ERROR;
2749: END IF;
2750:
2751: -- Changes for Post 11.5.10 by amagrawa
2754: X_RETURN_STATUS => l_return_status);
2755:
2756: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2757: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2758: Fnd_Msg_Pub.ADD;
2759: RAISE Fnd_Api.G_EXC_ERROR;
2760: END IF;
2761:
2762: --Assign the returned value
2798:
2799: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2800: THEN
2801: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2802: Fnd_Msg_Pub.ADD;
2803: RAISE Fnd_Api.G_EXC_ERROR;
2804: END IF;
2805:
2806: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2804: END IF;
2805:
2806: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2807: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2808: Fnd_Msg_Pub.ADD;
2809: RAISE Fnd_Api.G_EXC_ERROR;
2810: END IF;
2811:
2812: --Assign the returned value
2816: /* Commented as Item is not mandatory for Summary Task
2817: Post 11.5.10 Changes done by Senthil.
2818: ELSE
2819: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2820: Fnd_Msg_Pub.ADD;
2821: RAISE Fnd_Api.G_EXC_ERROR;
2822: */
2823:
2824: ELSE
2836: OPEN get_task_inst_dtls(l_task_rec.visit_id);
2837: FETCH get_task_inst_dtls INTO get_task_inst_rec;
2838: IF get_task_inst_dtls%NOTFOUND THEN
2839: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUM_TASK_ITEM');
2840: Fnd_Msg_Pub.ADD;
2841: CLOSE get_task_inst_dtls;
2842: RAISE Fnd_Api.G_EXC_ERROR;
2843: END IF;
2844:
2875: x_error_msg_code => l_msg_data);
2876:
2877: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2878: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2879: Fnd_Msg_Pub.ADD;
2880: RAISE Fnd_Api.G_EXC_ERROR;
2881: ELSE
2882: --Assign the returned value
2883: l_Task_rec.instance_id := l_serial_id;
2893: --BEGIN: jeli added for bug 3777720
2894: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
2895: --END: jeli added for bug 3777720
2896: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2897: Fnd_Msg_Pub.ADD;
2898: RAISE Fnd_Api.G_EXC_ERROR;
2899: END IF;
2900: sowsubra - end */
2901: END IF;
2924:
2925: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2926: THEN
2927: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2928: Fnd_Msg_Pub.ADD;
2929: RAISE Fnd_Api.g_exc_error;
2930: END IF;
2931:
2932: --Assign the returned value
2973:
2974: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2975: THEN
2976: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2977: Fnd_Msg_Pub.ADD;
2978: RAISE Fnd_Api.g_exc_error;
2979: END IF;
2980:
2981: --Assign the returned value
3004: IF (l_Task_rec.target_qty IS NOT NULL AND
3005: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
3006: l_Task_rec.target_qty < 0) THEN
3007: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
3008: FND_MSG_PUB.add;
3009: RAISE FND_API.G_EXC_ERROR;
3010: END IF;
3011: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
3012:
3179: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
3180: l_return_status);
3181: END IF;
3182:
3183: l_msg_count := Fnd_Msg_Pub.count_msg;
3184: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
3185: x_msg_count := l_msg_count;
3186: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
3187: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
3211: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
3212: END IF;
3213:
3214: --Standard check to count messages
3215: l_msg_count := Fnd_Msg_Pub.count_msg;
3216:
3217: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3218: x_msg_count := l_msg_count;
3219: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3246: END IF; -- Check for visit status code in case if closed or any other
3247:
3248: ---------------------------End of API Body---------------------------------------
3249: --Standard check to count messages
3250: l_msg_count := Fnd_Msg_Pub.count_msg;
3251:
3252: IF l_msg_count > 0 THEN
3253: x_msg_count := l_msg_count;
3254: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3268: EXCEPTION
3269: WHEN Fnd_Api.g_exc_error THEN
3270: ROLLBACK TO Create_Summary_Task;
3271: x_return_status := Fnd_Api.g_ret_sts_error;
3272: Fnd_Msg_Pub.count_and_get(
3273: p_encoded => Fnd_Api.g_false,
3274: p_count => x_msg_count,
3275: p_data => x_msg_data
3276: );
3276: );
3277: WHEN Fnd_Api.g_exc_unexpected_error THEN
3278: ROLLBACK TO Create_Summary_Task;
3279: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3280: Fnd_Msg_Pub.count_and_get (
3281: p_encoded => Fnd_Api.g_false,
3282: p_count => x_msg_count,
3283: p_data => x_msg_data
3284: );
3284: );
3285: WHEN OTHERS THEN
3286: ROLLBACK TO Create_Summary_Task;
3287: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3288: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3289: THEN
3290: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3291: END IF;
3292: Fnd_Msg_Pub.count_and_get (
3286: ROLLBACK TO Create_Summary_Task;
3287: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3288: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3289: THEN
3290: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3291: END IF;
3292: Fnd_Msg_Pub.count_and_get (
3293: p_encoded => Fnd_Api.g_false,
3294: p_count => x_msg_count,
3288: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3289: THEN
3290: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3291: END IF;
3292: Fnd_Msg_Pub.count_and_get (
3293: p_encoded => Fnd_Api.g_false,
3294: p_count => x_msg_count,
3295: p_data => x_msg_data
3296: );
3354: --------------------- initialize -----------------------
3355: SAVEPOINT Update_Task;
3356:
3357: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3358: Fnd_Msg_Pub.initialize;
3359: END IF;
3360:
3361: -- Initialize API return status to success
3362: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3396: IF (l_task_rec.PAST_TASK_END_DATE IS NULL
3397: OR l_task_rec.PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
3398: -- if start date is entered but not end date, throw error
3399: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3400: Fnd_Msg_Pub.ADD;
3401: RAISE FND_API.G_EXC_ERROR;
3402: END IF;
3403: IF (l_Task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
3404: -- Throw error if start date is not in past
3402: END IF;
3403: IF (l_Task_rec.PAST_TASK_START_DATE >= SYSDATE) THEN
3404: -- Throw error if start date is not in past
3405: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
3406: Fnd_Msg_Pub.ADD;
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
3410: -- Throw error if past task start date is before the visit start date
3408: END IF;
3409: IF (l_task_rec.PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_rec.PAST_TASK_START_DATE)) THEN
3410: -- Throw error if past task start date is before the visit start date
3411: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
3412: Fnd_Msg_Pub.ADD;
3413: RAISE FND_API.G_EXC_ERROR;
3414: END IF;
3415: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
3416: -- Throw error if past task start date is after the past task end date
3414: END IF;
3415: IF (l_task_rec.PAST_TASK_START_DATE > l_task_rec.PAST_TASK_END_DATE) THEN
3416: -- Throw error if past task start date is after the past task end date
3417: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
3418: Fnd_Msg_Pub.ADD;
3419: RAISE FND_API.G_EXC_ERROR;
3420: END IF;
3421: IF (l_Task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_Task_rec.PAST_TASK_END_DATE)) THEN
3422: -- Throw error if visit ends before the task
3420: END IF;
3421: IF (l_Task_rec.PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_Task_rec.PAST_TASK_END_DATE)) THEN
3422: -- Throw error if visit ends before the task
3423: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
3424: Fnd_Msg_Pub.ADD;
3425: RAISE FND_API.G_EXC_ERROR;
3426: END IF;
3427: -- Validate past dates against visit stages, task hierarchy and cost parent hierarchy
3428: AHL_VWP_RULES_PVT.Validate_Past_Task_Dates ( p_task_rec => l_Task_rec,
3444: -- to l_task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
3445: IF (l_Task_rec.PAST_TASK_END_DATE IS NOT NULL
3446: AND l_Task_rec.PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
3447: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
3448: Fnd_Msg_Pub.ADD;
3449: RAISE FND_API.G_EXC_ERROR;
3450: END IF;
3451: -- If the earlier value of past task date is not null, cannot nullify the past date now
3452: IF c_Task_rec.PAST_TASK_START_DATE IS NOT NULL THEN
3450: END IF;
3451: -- If the earlier value of past task date is not null, cannot nullify the past date now
3452: IF c_Task_rec.PAST_TASK_START_DATE IS NOT NULL THEN
3453: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_DATE_NOT_NULL');
3454: Fnd_Msg_Pub.ADD;
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457: l_Task_rec.PAST_TASK_START_DATE := NULL;
3458: l_Task_rec.PAST_TASK_END_DATE := NULL;
3546: 'After calling AHL_VWP_PROJ_PROD_PVT.Update_Project_Task l_return_status= '|| l_return_status);
3547: END IF;
3548:
3549: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
3550: x_msg_count := FND_MSG_PUB.count_msg;
3551: IF (l_log_statement >= l_log_current_level) THEN
3552: fnd_log.string(l_log_statement, L_DEBUG_KEY, 'Errors from Update_Project_Task. Message count: ' || x_msg_count);
3553: END IF;
3554: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3573: END IF;
3574:
3575: ------------------------End of API Body------------------------------------
3576: --Standard check to count messages
3577: l_msg_count := Fnd_Msg_Pub.count_msg;
3578:
3579: IF l_msg_count > 0 THEN
3580: x_msg_count := l_msg_count;
3581: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3596: EXCEPTION
3597: WHEN Fnd_Api.g_exc_error THEN
3598: ROLLBACK TO Update_Task;
3599: x_return_status := Fnd_Api.g_ret_sts_error;
3600: Fnd_Msg_Pub.count_and_get (
3601: p_encoded => Fnd_Api.g_false,
3602: p_count => x_msg_count,
3603: p_data => x_msg_data
3604: );
3604: );
3605: WHEN Fnd_Api.g_exc_unexpected_error THEN
3606: ROLLBACK TO Update_Task;
3607: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3608: Fnd_Msg_Pub.count_and_get (
3609: p_encoded => Fnd_Api.g_false,
3610: p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3612: );
3613: WHEN OTHERS THEN
3614: ROLLBACK TO Update_Task;
3615: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3616: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3617: THEN
3618: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3619: END IF;
3620: Fnd_Msg_Pub.count_and_get (
3614: ROLLBACK TO Update_Task;
3615: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3616: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3617: THEN
3618: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3619: END IF;
3620: Fnd_Msg_Pub.count_and_get (
3621: p_encoded => Fnd_Api.g_false,
3622: p_count => x_msg_count,
3616: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3617: THEN
3618: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3619: END IF;
3620: Fnd_Msg_Pub.count_and_get (
3621: p_encoded => Fnd_Api.g_false,
3622: p_count => x_msg_count,
3623: p_data => x_msg_data
3624: );
3806: --------------------- initialize -----------------------
3807: SAVEPOINT Update_Tasks_in_Planning;
3808:
3809: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3810: Fnd_Msg_Pub.initialize;
3811: END IF;
3812:
3813: -- Initialize API return status to success
3814: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
3882: x_error_msg_code => l_msg_data);
3883:
3884: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3885: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3886: Fnd_Msg_Pub.ADD;
3887: RAISE Fnd_Api.G_EXC_ERROR;
3888: END IF;
3889:
3890: -- Changes for Post 11.5.10 by cxcheng
3893: X_RETURN_STATUS => l_return_status);
3894:
3895: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3896: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3897: Fnd_Msg_Pub.ADD;
3898: RAISE Fnd_Api.G_EXC_ERROR;
3899: END IF;
3900: ELSE
3901: l_task_rec.department_id := NULL;
4170: --------------------------------------------------------------------------
4171:
4172: ------------------------End of API Body------------------------------------
4173: --Standard check to count messages
4174: l_msg_count := Fnd_Msg_Pub.count_msg;
4175:
4176: IF l_msg_count > 0 THEN
4177: x_msg_count := l_msg_count;
4178: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4193: EXCEPTION
4194: WHEN Fnd_Api.g_exc_error THEN
4195: ROLLBACK TO Update_Tasks_in_Planning;
4196: x_return_status := Fnd_Api.g_ret_sts_error;
4197: Fnd_Msg_Pub.count_and_get (
4198: p_encoded => Fnd_Api.g_false,
4199: p_count => x_msg_count,
4200: p_data => x_msg_data
4201: );
4201: );
4202: WHEN Fnd_Api.g_exc_unexpected_error THEN
4203: ROLLBACK TO Update_Tasks_in_Planning;
4204: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4205: Fnd_Msg_Pub.count_and_get (
4206: p_encoded => Fnd_Api.g_false,
4207: p_count => x_msg_count,
4208: p_data => x_msg_data
4209: );
4209: );
4210: WHEN OTHERS THEN
4211: ROLLBACK TO Update_Tasks_in_Planning;
4212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4214: THEN
4215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4216: END IF;
4217: Fnd_Msg_Pub.count_and_get (
4211: ROLLBACK TO Update_Tasks_in_Planning;
4212: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4214: THEN
4215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4216: END IF;
4217: Fnd_Msg_Pub.count_and_get (
4218: p_encoded => Fnd_Api.g_false,
4219: p_count => x_msg_count,
4213: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4214: THEN
4215: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4216: END IF;
4217: Fnd_Msg_Pub.count_and_get (
4218: p_encoded => Fnd_Api.g_false,
4219: p_count => x_msg_count,
4220: p_data => x_msg_data
4221: );
4336: --------------------- initialize -----------------------
4337: SAVEPOINT Update_Tasks_in_Production;
4338:
4339: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4340: Fnd_Msg_Pub.initialize;
4341: END IF;
4342:
4343: -- Initialize API return status to success
4344: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4373:
4374: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4375: THEN
4376: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4377: Fnd_Msg_Pub.ADD;
4378: RAISE Fnd_Api.g_exc_error;
4379: END IF;
4380: --Assign the returned value
4381: l_Task_rec.cost_parent_id := l_cost_parent_id;
4398: IF (l_Task_rec.target_qty IS NOT NULL AND
4399: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
4400: l_Task_rec.target_qty < 0) THEN
4401: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
4402: FND_MSG_PUB.add;
4403: RAISE FND_API.G_EXC_ERROR;
4404: END IF;
4405:
4406: IF (l_log_statement >= l_log_current_level) THEN
4527: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
4528: END IF;
4529:
4530: --Standard check to count messages
4531: l_msg_count := Fnd_Msg_Pub.count_msg;
4532:
4533: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4534: x_msg_count := l_msg_count;
4535: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4550: END IF;
4551: END IF;
4552:
4553: --Standard check to count messages
4554: l_msg_count := Fnd_Msg_Pub.count_msg;
4555:
4556: IF l_msg_count > 0 THEN
4557: x_msg_count := l_msg_count;
4558: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4572: EXCEPTION
4573: WHEN Fnd_Api.g_exc_error THEN
4574: ROLLBACK TO Update_Tasks_in_Production;
4575: x_return_status := Fnd_Api.g_ret_sts_error;
4576: Fnd_Msg_Pub.count_and_get (
4577: p_encoded => Fnd_Api.g_false,
4578: p_count => x_msg_count,
4579: p_data => x_msg_data
4580: );
4580: );
4581: WHEN Fnd_Api.g_exc_unexpected_error THEN
4582: ROLLBACK TO Update_Tasks_in_Production;
4583: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4584: Fnd_Msg_Pub.count_and_get (
4585: p_encoded => Fnd_Api.g_false,
4586: p_count => x_msg_count,
4587: p_data => x_msg_data
4588: );
4588: );
4589: WHEN OTHERS THEN
4590: ROLLBACK TO Update_Tasks_in_Production;
4591: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4592: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4593: THEN
4594: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4595: END IF;
4596: Fnd_Msg_Pub.count_and_get (
4590: ROLLBACK TO Update_Tasks_in_Production;
4591: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4592: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4593: THEN
4594: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4595: END IF;
4596: Fnd_Msg_Pub.count_and_get (
4597: p_encoded => Fnd_Api.g_false,
4598: p_count => x_msg_count,
4592: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4593: THEN
4594: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4595: END IF;
4596: Fnd_Msg_Pub.count_and_get (
4597: p_encoded => Fnd_Api.g_false,
4598: p_count => x_msg_count,
4599: p_data => x_msg_data
4600: );
4657: --------------------- initialize -----------------------
4658: SAVEPOINT Update_Unassociated_Task;
4659:
4660: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4661: Fnd_Msg_Pub.initialize;
4662: END IF;
4663:
4664: -- Initialize API return status to success
4665: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
4713:
4714: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4715: THEN
4716: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4717: Fnd_Msg_Pub.ADD;
4718: RAISE Fnd_Api.G_EXC_ERROR;
4719: END IF;
4720:
4721: --Assign the returned value
4752: x_error_msg_code => l_msg_data);
4753:
4754: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4755: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4756: Fnd_Msg_Pub.ADD;
4757: RAISE Fnd_Api.G_EXC_ERROR;
4758: ELSE
4759:
4760: --Assign the returned value
4773: --BEGIN: jeli added for bug 3777720
4774: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
4775: --END: jeli added for bug 3777720
4776: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4777: Fnd_Msg_Pub.ADD;
4778: RAISE Fnd_Api.G_EXC_ERROR;
4779: END IF;
4780: END IF;
4781: sowsubra - end */
4805:
4806: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4807: THEN
4808: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4809: Fnd_Msg_Pub.ADD;
4810: RAISE Fnd_Api.g_exc_error;
4811: END IF;
4812:
4813: --Assign the returned value
4862:
4863: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4864: THEN
4865: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4866: Fnd_Msg_Pub.ADD;
4867: RAISE Fnd_Api.g_exc_error;
4868: END IF;
4869:
4870: --Assign the returned value
4958:
4959: -- Check Object version number.
4960: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4961: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4962: Fnd_Msg_Pub.ADD;
4963: RAISE Fnd_Api.G_EXC_ERROR;
4964: END IF;
4965:
4966: --Standard check to count messages
4963: RAISE Fnd_Api.G_EXC_ERROR;
4964: END IF;
4965:
4966: --Standard check to count messages
4967: l_msg_count := Fnd_Msg_Pub.count_msg;
4968:
4969: IF l_msg_count > 0 THEN
4970: x_msg_count := l_msg_count;
4971: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5100: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
5101: l_return_status);
5102: END IF;
5103:
5104: l_msg_count := Fnd_Msg_Pub.count_msg;
5105: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5106: x_msg_count := l_msg_count;
5107: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5108: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5135: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
5136: END IF;
5137:
5138: --Standard check to count messages
5139: l_msg_count := Fnd_Msg_Pub.count_msg;
5140:
5141: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5142: x_msg_count := l_msg_count;
5143: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5205: -------------------- finish --------------------------
5206:
5207: ------------------------End of API Body------------------------------------
5208: --Standard check to count messages
5209: l_msg_count := Fnd_Msg_Pub.count_msg;
5210:
5211: IF l_msg_count > 0 THEN
5212: x_msg_count := l_msg_count;
5213: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5227: EXCEPTION
5228: WHEN Fnd_Api.g_exc_error THEN
5229: ROLLBACK TO Update_Unassociated_Task;
5230: x_return_status := Fnd_Api.g_ret_sts_error;
5231: Fnd_Msg_Pub.count_and_get (
5232: p_encoded => Fnd_Api.g_false,
5233: p_count => x_msg_count,
5234: p_data => x_msg_data
5235: );
5235: );
5236: WHEN Fnd_Api.g_exc_unexpected_error THEN
5237: ROLLBACK TO Update_Unassociated_Task;
5238: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5239: Fnd_Msg_Pub.count_and_get (
5240: p_encoded => Fnd_Api.g_false,
5241: p_count => x_msg_count,
5242: p_data => x_msg_data
5243: );
5243: );
5244: WHEN OTHERS THEN
5245: ROLLBACK TO Update_Unassociated_Task;
5246: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5247: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5248: THEN
5249: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5250: END IF;
5251: Fnd_Msg_Pub.count_and_get (
5245: ROLLBACK TO Update_Unassociated_Task;
5246: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5247: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5248: THEN
5249: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5250: END IF;
5251: Fnd_Msg_Pub.count_and_get (
5252: p_encoded => Fnd_Api.g_false,
5253: p_count => x_msg_count,
5247: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5248: THEN
5249: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5250: END IF;
5251: Fnd_Msg_Pub.count_and_get (
5252: p_encoded => Fnd_Api.g_false,
5253: p_count => x_msg_count,
5254: p_data => x_msg_data
5255: );
5311: --------------------- initialize -----------------------
5312: SAVEPOINT Update_Summary_Task;
5313:
5314: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5315: Fnd_Msg_Pub.initialize;
5316: END IF;
5317:
5318: -- Initialize API return status to success
5319: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5367:
5368: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5369: THEN
5370: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
5371: Fnd_Msg_Pub.ADD;
5372: RAISE Fnd_Api.G_EXC_ERROR;
5373: END IF;
5374:
5375: --Assign the returned value
5408: x_error_msg_code => l_msg_data);
5409:
5410: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
5411: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
5412: Fnd_Msg_Pub.ADD;
5413: RAISE Fnd_Api.G_EXC_ERROR;
5414: ELSE
5415:
5416: --Assign the returned value
5427: --BEGIN: jeli added for bug 3777720
5428: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id) = FND_API.G_RET_STS_ERROR) THEN
5429: --END: jeli added for bug 3777720
5430: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
5431: Fnd_Msg_Pub.ADD;
5432: RAISE Fnd_Api.G_EXC_ERROR;
5433: END IF;
5434: sowsubra - end */
5435:
5475:
5476: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5477: THEN
5478: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
5479: Fnd_Msg_Pub.ADD;
5480: RAISE Fnd_Api.g_exc_error;
5481: END IF;
5482:
5483: --Assign the returned value
5532:
5533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
5534: THEN
5535: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
5536: Fnd_Msg_Pub.ADD;
5537: RAISE Fnd_Api.g_exc_error;
5538: END IF;
5539:
5540: --Assign the returned value
5569: IF (l_Task_rec.target_qty IS NOT NULL AND
5570: l_Task_rec.target_qty <> Fnd_Api.G_MISS_NUM AND
5571: l_Task_rec.target_qty < 0) THEN
5572: FND_MESSAGE.set_name(G_APP_NAME, 'AHL_CMP_TARGET_QTY_INVLD');
5573: FND_MSG_PUB.add;
5574: RAISE FND_API.G_EXC_ERROR;
5575: END IF;
5576: ----------- End defining and validate all LOVs on Create Visit's Task UI Screen---
5577:
5605:
5606: -- Check Object version number.
5607: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
5608: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
5609: Fnd_Msg_Pub.ADD;
5610: RAISE Fnd_Api.G_EXC_ERROR;
5611: END IF;
5612:
5613: --Standard check to count messages
5610: RAISE Fnd_Api.G_EXC_ERROR;
5611: END IF;
5612:
5613: --Standard check to count messages
5614: l_msg_count := Fnd_Msg_Pub.count_msg;
5615:
5616: IF l_msg_count > 0 THEN
5617: x_msg_count := l_msg_count;
5618: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5747: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
5748: l_return_status);
5749: END IF;
5750:
5751: l_msg_count := Fnd_Msg_Pub.count_msg;
5752: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
5753: x_msg_count := l_msg_count;
5754: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
5755: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5778: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
5779: END IF;
5780:
5781: --Standard check to count messages
5782: l_msg_count := Fnd_Msg_Pub.count_msg;
5783:
5784: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5785: x_msg_count := l_msg_count;
5786: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5801: EXCEPTION
5802: WHEN Fnd_Api.g_exc_error THEN
5803: ROLLBACK TO Update_Summary_Task;
5804: x_return_status := Fnd_Api.g_ret_sts_error;
5805: Fnd_Msg_Pub.count_and_get (
5806: p_encoded => Fnd_Api.g_false,
5807: p_count => x_msg_count,
5808: p_data => x_msg_data
5809: );
5809: );
5810: WHEN Fnd_Api.g_exc_unexpected_error THEN
5811: ROLLBACK TO Update_Summary_Task;
5812: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5813: Fnd_Msg_Pub.count_and_get (
5814: p_encoded => Fnd_Api.g_false,
5815: p_count => x_msg_count,
5816: p_data => x_msg_data
5817: );
5817: );
5818: WHEN OTHERS THEN
5819: ROLLBACK TO Update_Summary_Task;
5820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5821: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5822: THEN
5823: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5824: END IF;
5825: Fnd_Msg_Pub.count_and_get (
5819: ROLLBACK TO Update_Summary_Task;
5820: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5821: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5822: THEN
5823: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5824: END IF;
5825: Fnd_Msg_Pub.count_and_get (
5826: p_encoded => Fnd_Api.g_false,
5827: p_count => x_msg_count,
5821: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5822: THEN
5823: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5824: END IF;
5825: Fnd_Msg_Pub.count_and_get (
5826: p_encoded => Fnd_Api.g_false,
5827: p_count => x_msg_count,
5828: p_data => x_msg_data
5829: );
5939: --------------------- initialize -----------------------
5940: SAVEPOINT Delete_Task;
5941:
5942: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5943: Fnd_Msg_Pub.initialize;
5944: END IF;
5945:
5946: -- Initialize API return status to success
5947: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5981: ---------------------------------------------- Start----------------------------------------------------------
5982:
5983: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
5984: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
5985: Fnd_Msg_Pub.ADD;
5986: RAISE Fnd_Api.G_EXC_ERROR;
5987: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5988: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5989:
6110: END IF;
6111:
6112: END IF;
6113:
6114: l_msg_count := Fnd_Msg_Pub.count_msg;
6115:
6116: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6117: x_msg_count := l_msg_count;
6118: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6301: L_DEBUG_KEY,
6302: 'After Calling CS_ServiceRequest_PUB.Update_Status, Return Status = ' || l_return_status);
6303: END IF;
6304:
6305: l_msg_count := Fnd_Msg_Pub.count_msg;
6306:
6307: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6308: x_msg_count := l_msg_count;
6309: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6327: END IF;
6328: ------------------------End of API Body------------------------------------
6329:
6330: --Standard check to count messages
6331: l_msg_count := Fnd_Msg_Pub.count_msg;
6332:
6333: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6334: x_msg_count := l_msg_count;
6335: x_return_status := Fnd_Api.G_RET_STS_ERROR;
6350: EXCEPTION
6351: WHEN Fnd_Api.g_exc_error THEN
6352: ROLLBACK TO Delete_Task;
6353: x_return_status := Fnd_Api.g_ret_sts_error;
6354: Fnd_Msg_Pub.count_and_get (
6355: p_encoded => Fnd_Api.g_false,
6356: p_count => x_msg_count,
6357: p_data => x_msg_data
6358: );
6358: );
6359: WHEN Fnd_Api.g_exc_unexpected_error THEN
6360: ROLLBACK TO Delete_Task;
6361: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6362: Fnd_Msg_Pub.count_and_get (
6363: p_encoded => Fnd_Api.g_false,
6364: p_count => x_msg_count,
6365: p_data => x_msg_data
6366: );
6366: );
6367: WHEN OTHERS THEN
6368: ROLLBACK TO Delete_Task;
6369: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6370: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6371: THEN
6372: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6373: END IF;
6374: Fnd_Msg_Pub.count_and_get (
6368: ROLLBACK TO Delete_Task;
6369: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6370: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6371: THEN
6372: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6373: END IF;
6374: Fnd_Msg_Pub.count_and_get (
6375: p_encoded => Fnd_Api.g_false,
6376: p_count => x_msg_count,
6370: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6371: THEN
6372: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6373: END IF;
6374: Fnd_Msg_Pub.count_and_get (
6375: p_encoded => Fnd_Api.g_false,
6376: p_count => x_msg_count,
6377: p_data => x_msg_data
6378: );
6472: --------------------- initialize -----------------------
6473: SAVEPOINT Delete_Unassociated_Task;
6474:
6475: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6476: Fnd_Msg_Pub.initialize;
6477: END IF;
6478:
6479: -- Initialize API return status to success
6480: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
6501: FETCH c_Task INTO c_task_rec;
6502:
6503: IF c_Task%NOTFOUND THEN
6504: CLOSE c_Task;
6505: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6506: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6507: Fnd_Msg_Pub.ADD;
6508: END IF;
6509: RAISE Fnd_Api.g_exc_error;
6503: IF c_Task%NOTFOUND THEN
6504: CLOSE c_Task;
6505: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
6506: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6507: Fnd_Msg_Pub.ADD;
6508: END IF;
6509: RAISE Fnd_Api.g_exc_error;
6510: END IF;
6511: CLOSE c_Task;
6527: Get_WorkOrder_Attribs(
6528: p_x_prd_workorder_rec => l_workorder_rec
6529: );
6530:
6531: l_msg_count := FND_MSG_PUB.count_msg;
6532: IF l_msg_count > 0 THEN
6533: x_msg_count := l_msg_count;
6534: x_return_status := FND_API.G_RET_STS_ERROR;
6535: RAISE FND_API.G_EXC_ERROR;
6564: L_DEBUG_KEY,
6565: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
6566: END IF;
6567:
6568: l_msg_count := FND_MSG_PUB.count_msg;
6569: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6570: x_msg_count := l_msg_count;
6571: x_return_status := FND_API.G_RET_STS_ERROR;
6572: RAISE FND_API.G_EXC_ERROR;
6574:
6575: ELSE
6576: -- if status is not draft
6577: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
6578: Fnd_Msg_Pub.ADD;
6579: RAISE FND_API.G_EXC_ERROR;
6580: END IF; -- End of Job Status
6581: CLOSE c_workorders;
6582:
6669: x_return_status => l_return_status);
6670: /*x_msg_count => x_msg_count,
6671: x_msg_data => x_msg_data);*/
6672:
6673: l_msg_count := FND_MSG_PUB.count_msg;
6674: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6675: x_msg_count := l_msg_count;
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677: RAISE FND_API.G_EXC_ERROR;
6690: DELETE FROM Ahl_Visit_Tasks_TL
6691: WHERE Visit_Task_ID = l_task_id;
6692:
6693: IF (SQL%NOTFOUND) THEN
6694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6695: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6696: Fnd_Msg_Pub.ADD;
6697: END IF;
6698: RAISE Fnd_Api.g_exc_error;
6692:
6693: IF (SQL%NOTFOUND) THEN
6694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
6695: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6696: Fnd_Msg_Pub.ADD;
6697: END IF;
6698: RAISE Fnd_Api.g_exc_error;
6699: END IF;
6700:
6703: WHERE Visit_Task_ID = l_task_id;
6704:
6705: IF (SQL%NOTFOUND) THEN
6706: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6707: Fnd_Msg_Pub.ADD;
6708: RAISE Fnd_Api.g_exc_error;
6709: END IF;
6710:
6711: ELSE
6741: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
6742: l_return_status);
6743: END IF;
6744:
6745: l_msg_count := Fnd_Msg_Pub.count_msg;
6746: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
6747: x_msg_count := l_msg_count;
6748: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
6749: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
6762: IF Fnd_Api.to_boolean (p_commit) THEN
6763: COMMIT;
6764: END IF;
6765:
6766: Fnd_Msg_Pub.count_and_get (
6767: p_encoded => Fnd_Api.g_false,
6768: p_count => x_msg_count,
6769: p_data => x_msg_data
6770: );
6777: EXCEPTION
6778: WHEN Fnd_Api.g_exc_error THEN
6779: ROLLBACK TO Delete_Unassociated_Task;
6780: x_return_status := Fnd_Api.g_ret_sts_error;
6781: Fnd_Msg_Pub.count_and_get (
6782: p_encoded => Fnd_Api.g_false,
6783: p_count => x_msg_count,
6784: p_data => x_msg_data
6785: );
6785: );
6786: WHEN Fnd_Api.g_exc_unexpected_error THEN
6787: ROLLBACK TO Delete_Unassociated_Task;
6788: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6789: Fnd_Msg_Pub.count_and_get (
6790: p_encoded => Fnd_Api.g_false,
6791: p_count => x_msg_count,
6792: p_data => x_msg_data
6793: );
6793: );
6794: WHEN OTHERS THEN
6795: ROLLBACK TO Delete_Unassociated_Task;
6796: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6797: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6798: THEN
6799: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6800: END IF;
6801: Fnd_Msg_Pub.count_and_get (
6795: ROLLBACK TO Delete_Unassociated_Task;
6796: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6797: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6798: THEN
6799: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6800: END IF;
6801: Fnd_Msg_Pub.count_and_get (
6802: p_encoded => Fnd_Api.g_false,
6803: p_count => x_msg_count,
6797: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6798: THEN
6799: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6800: END IF;
6801: Fnd_Msg_Pub.count_and_get (
6802: p_encoded => Fnd_Api.g_false,
6803: p_count => x_msg_count,
6804: p_data => x_msg_data
6805: );
6910:
6911: SAVEPOINT Delete_SR_Task;
6912:
6913: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6914: Fnd_Msg_Pub.initialize;
6915: END IF;
6916:
6917: -- Initialize API return status to success
6918:
6938:
6939: IF c_Task%NOTFOUND THEN
6940: CLOSE c_Task;
6941:
6942: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
6943: THEN
6944: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6945: Fnd_Msg_Pub.ADD;
6946: END IF;
6941:
6942: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
6943: THEN
6944: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6945: Fnd_Msg_Pub.ADD;
6946: END IF;
6947: RAISE Fnd_Api.g_exc_error;
6948: ELSE
6949: l_orgin_id :=c_task_rec.ORIGINATING_TASK_ID;
6980: THEN
6981: -- ADD THIS MESSAGE TO SEED115
6982: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
6983: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
6984: Fnd_Msg_Pub.ADD;
6985: CLOSE c_workorders;
6986: CLOSE c_SR_tasks;
6987: RAISE fnd_Api.g_exc_error;
6988: -- IF STATUS IS NOT DRAFT RAISE ERROR.
6996: (
6997: p_x_prd_workorder_rec =>l_workorder_rec
6998: );
6999:
7000: l_msg_count := FND_MSG_PUB.count_msg;
7001:
7002: IF l_msg_count > 0 THEN
7003: CLOSE c_workorders;
7004: CLOSE c_SR_tasks;
7062: L_DEBUG_KEY,
7063: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7064: END IF;
7065:
7066: l_msg_count := FND_MSG_PUB.count_msg;
7067: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7068: CLOSE c_workorders;
7069: CLOSE c_SR_tasks;
7070: x_msg_count := l_msg_count;
7090: p_visit_task_id =>l_task_ID,
7091: x_return_status =>x_return_status
7092: );
7093:
7094: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7095: CLOSE c_SR_tasks;
7096: RAISE Fnd_Api.g_exc_error;
7097: END IF;
7098:
7143: L_DEBUG_KEY,
7144: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
7145: END IF;
7146:
7147: IF (fnd_msg_pub.count_msg > 0) OR
7148: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7149: CLOSE c_SR_tasks;
7150: RAISE Fnd_Api.g_exc_error;
7151: END IF;
7208: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
7209: l_return_status);
7210: END IF;
7211:
7212: l_msg_count := Fnd_Msg_Pub.count_msg;
7213: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7214: x_msg_count := l_msg_count;
7215: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7216: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7220: DELETE FROM Ahl_Visit_Tasks_TL
7221: WHERE Visit_Task_ID = l_task_id;
7222:
7223: IF (SQL%NOTFOUND) THEN
7224: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7225: THEN
7226: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7227: Fnd_Msg_Pub.ADD;
7228: END IF;
7223: IF (SQL%NOTFOUND) THEN
7224: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7225: THEN
7226: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7227: Fnd_Msg_Pub.ADD;
7228: END IF;
7229: CLOSE c_SR_tasks;
7230: RAISE Fnd_Api.g_exc_error;
7231: END IF;
7241: DELETE FROM Ahl_Visit_Tasks_B
7242: WHERE Visit_Task_ID = l_task_id;
7243:
7244: IF (SQL%NOTFOUND) THEN
7245: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7246: THEN
7247: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7248: Fnd_Msg_Pub.ADD;
7249: END IF;
7244: IF (SQL%NOTFOUND) THEN
7245: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7246: THEN
7247: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7248: Fnd_Msg_Pub.ADD;
7249: END IF;
7250: CLOSE c_SR_tasks;
7251: RAISE Fnd_Api.g_exc_error;
7252: END IF;
7287: EXCEPTION
7288: WHEN Fnd_Api.g_exc_error THEN
7289: ROLLBACK TO Delete_SR_Task;
7290: x_return_status := Fnd_Api.g_ret_sts_error;
7291: Fnd_Msg_Pub.count_and_get (
7292: p_encoded => Fnd_Api.g_false,
7293: p_count => x_msg_count,
7294: p_data => x_msg_data
7295: );
7295: );
7296: WHEN Fnd_Api.g_exc_unexpected_error THEN
7297: ROLLBACK TO Delete_SR_Task;
7298: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7299: Fnd_Msg_Pub.count_and_get (
7300: p_encoded => Fnd_Api.g_false,
7301: p_count => x_msg_count,
7302: p_data => x_msg_data
7303: );
7303: );
7304: WHEN OTHERS THEN
7305: ROLLBACK TO Delete_SR_Task;
7306: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7307: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7308: THEN
7309: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7310: END IF;
7311: Fnd_Msg_Pub.count_and_get (
7305: ROLLBACK TO Delete_SR_Task;
7306: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7307: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7308: THEN
7309: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7310: END IF;
7311: Fnd_Msg_Pub.count_and_get (
7312: p_encoded => Fnd_Api.g_false,
7313: p_count => x_msg_count,
7307: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7308: THEN
7309: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7310: END IF;
7311: Fnd_Msg_Pub.count_and_get (
7312: p_encoded => Fnd_Api.g_false,
7313: p_count => x_msg_count,
7314: p_data => x_msg_data
7315: );
7434: SAVEPOINT Delete_Summary_Task;
7435: -- Check if API is called in debug mode. If yes, enable debug.
7436:
7437: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
7438: Fnd_Msg_Pub.initialize;
7439: END IF;
7440:
7441: -- Initialize API return status to success
7442:
7463:
7464: IF c_Task%NOTFOUND THEN
7465: CLOSE c_Task;
7466:
7467: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
7468: THEN
7469: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7470: Fnd_Msg_Pub.ADD;
7471: END IF;
7466:
7467: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
7468: THEN
7469: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7470: Fnd_Msg_Pub.ADD;
7471: END IF;
7472: RAISE Fnd_Api.g_exc_error;
7473:
7474: END IF; -- End of if c_task%notfound then check
7574: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Need to consider DRAFT status also
7575: IF (c_visit_rec.status_code NOT IN ('PLANNING', 'DRAFT', 'PARTIALLY RELEASED'))
7576: THEN
7577: Fnd_Message.set_name ('AHL', 'AHL_VWP_PLANNING_OPER');
7578: Fnd_Msg_Pub.ADD;
7579: RAISE fnd_Api.g_exc_error;
7580: END IF;
7581:
7582: l_unit_effectivity_id := null;
7614: THEN
7615: -- ADD THIS MESSAGE TO SEED115
7616: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
7617: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
7618: Fnd_Msg_Pub.ADD;
7619: CLOSE c_workorders;
7620: CLOSE c_all_tasks;
7621: RAISE fnd_Api.g_exc_error;
7622: -- IF STATUS IS NOT DRAFT RAISE ERROR.
7628: (
7629: p_x_prd_workorder_rec =>l_workorder_rec
7630: );
7631:
7632: l_msg_count := FND_MSG_PUB.count_msg;
7633:
7634: IF l_msg_count > 0 THEN
7635: x_msg_count := l_msg_count;
7636: x_return_status := FND_API.G_RET_STS_ERROR;
7689: L_DEBUG_KEY,
7690: 'After Calling AHL_PRD_WORKORDER_PVT.cancel_visit_jobs, Return Status = ' || l_return_status );
7691: END IF;
7692:
7693: l_msg_count := FND_MSG_PUB.count_msg;
7694: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7695: x_msg_count := l_msg_count;
7696: x_return_status := FND_API.G_RET_STS_ERROR;
7697: CLOSE c_workorders;
7776: x_return_status => l_return_status);
7777: /* x_msg_count => x_msg_count,
7778: x_msg_data => x_msg_data);*/
7779:
7780: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7781: x_return_status := FND_API.G_RET_STS_ERROR;
7782: CLOSE c_all_tasks;
7783: RAISE FND_API.G_EXC_ERROR;
7784: END IF;
7853: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
7854: l_return_status);
7855: END IF;
7856:
7857: l_msg_count := Fnd_Msg_Pub.count_msg;
7858: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
7859: x_msg_count := l_msg_count;
7860: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
7861: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
7869: 'Before DELETE');
7870: END IF;
7871: DELETE FROM Ahl_Visit_Tasks_TL WHERE Visit_Task_ID = l_task_id;
7872: IF (SQL%NOTFOUND) THEN
7873: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7874: THEN
7875: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7876: Fnd_Msg_Pub.ADD;
7877: END IF;
7872: IF (SQL%NOTFOUND) THEN
7873: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7874: THEN
7875: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7876: Fnd_Msg_Pub.ADD;
7877: END IF;
7878: CLOSE c_all_tasks;
7879: RAISE Fnd_Api.g_exc_error;
7880: END IF;
7889: DELETE FROM Ahl_Visit_Tasks_B
7890: WHERE Visit_Task_ID = l_task_id;
7891:
7892: IF (SQL%NOTFOUND) THEN
7893: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7894: THEN
7895: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7896: Fnd_Msg_Pub.ADD;
7897: END IF;
7892: IF (SQL%NOTFOUND) THEN
7893: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
7894: THEN
7895: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
7896: Fnd_Msg_Pub.ADD;
7897: END IF;
7898: CLOSE c_all_tasks;
7899: RAISE Fnd_Api.g_exc_error;
7900: END IF;
7984: fnd_log.string(l_log_statement,
7985: L_DEBUG_KEY,
7986: 'After Delete_SR_Task');
7987: END IF;
7988: IF (fnd_msg_pub.count_msg > 0 ) THEN
7989:
7990: IF (l_log_statement >= l_log_current_level)THEN
7991: fnd_log.string(l_log_statement,
7992: L_DEBUG_KEY,
8108: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
8109: l_return_status);
8110: END IF;
8111:
8112: l_msg_count := Fnd_Msg_Pub.count_msg;
8113: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
8114: x_msg_count := l_msg_count;
8115: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
8116: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
8122: WHERE Visit_Task_ID = l_task_id;
8123:
8124: IF (SQL%NOTFOUND) THEN
8125: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
8126: Fnd_Msg_Pub.ADD;
8127: RAISE Fnd_Api.g_exc_error;
8128: END IF;
8129:
8130: -- Delete task base (AHL_VISIT_TASKS_B) table data
8138: WHERE Visit_Task_ID = l_task_id;
8139:
8140: IF (SQL%NOTFOUND) THEN
8141: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
8142: Fnd_Msg_Pub.ADD;
8143: RAISE Fnd_Api.g_exc_error;
8144: END IF;
8145:
8146: END IF;
8155: IF Fnd_Api.to_boolean (p_commit) THEN
8156: COMMIT;
8157: END IF;
8158:
8159: Fnd_Msg_Pub.count_and_get (
8160: p_encoded => Fnd_Api.g_false,
8161: p_count => x_msg_count,
8162: p_data => x_msg_data
8163: );
8171: EXCEPTION
8172: WHEN Fnd_Api.g_exc_error THEN
8173: ROLLBACK TO Delete_Summary_Task;
8174: x_return_status := Fnd_Api.g_ret_sts_error;
8175: Fnd_Msg_Pub.count_and_get (
8176: p_encoded => Fnd_Api.g_false,
8177: p_count => x_msg_count,
8178: p_data => x_msg_data
8179: );
8179: );
8180: WHEN Fnd_Api.g_exc_unexpected_error THEN
8181: ROLLBACK TO Delete_Summary_Task;
8182: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8183: Fnd_Msg_Pub.count_and_get (
8184: p_encoded => Fnd_Api.g_false,
8185: p_count => x_msg_count,
8186: p_data => x_msg_data
8187: );
8187: );
8188: WHEN OTHERS THEN
8189: ROLLBACK TO Delete_Summary_Task;
8190: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8192: THEN
8193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8194: END IF;
8195: Fnd_Msg_Pub.count_and_get (
8189: ROLLBACK TO Delete_Summary_Task;
8190: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8192: THEN
8193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8194: END IF;
8195: Fnd_Msg_Pub.count_and_get (
8196: p_encoded => Fnd_Api.g_false,
8197: p_count => x_msg_count,
8191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8192: THEN
8193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8194: END IF;
8195: Fnd_Msg_Pub.count_and_get (
8196: p_encoded => Fnd_Api.g_false,
8197: p_count => x_msg_count,
8198: p_data => x_msg_data
8199: );
8256:
8257: -- Initialize message list if p_init_msg_list is set to TRUE.
8258: IF Fnd_Api.to_boolean(p_init_msg_list)
8259: THEN
8260: Fnd_Msg_Pub.initialize;
8261: END IF;
8262:
8263: -- Initialize API return status to success
8264: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8336: END IF;
8337:
8338: ---------------------------End of Body---------------------------------------
8339: --Standard check to count messages
8340: l_msg_count := Fnd_Msg_Pub.count_msg;
8341:
8342: IF l_msg_count > 0 THEN
8343: x_msg_count := l_msg_count;
8344: x_return_status := Fnd_Api.G_RET_STS_ERROR;
8359: EXCEPTION
8360: WHEN Fnd_Api.g_exc_error THEN
8361: ROLLBACK TO Search_Task;
8362: x_return_status := Fnd_Api.g_ret_sts_error;
8363: Fnd_Msg_Pub.count_and_get(
8364: p_encoded => Fnd_Api.g_false,
8365: p_count => x_msg_count,
8366: p_data => x_msg_data
8367: );
8367: );
8368: WHEN Fnd_Api.g_exc_unexpected_error THEN
8369: ROLLBACK TO Search_Task;
8370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8371: Fnd_Msg_Pub.count_and_get (
8372: p_encoded => Fnd_Api.g_false,
8373: p_count => x_msg_count,
8374: p_data => x_msg_data
8375: );
8375: );
8376: WHEN OTHERS THEN
8377: ROLLBACK TO Search_Task;
8378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8379: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8380: THEN
8381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8382: END IF;
8383: Fnd_Msg_Pub.count_and_get (
8377: ROLLBACK TO Search_Task;
8378: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8379: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8380: THEN
8381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8382: END IF;
8383: Fnd_Msg_Pub.count_and_get (
8384: p_encoded => Fnd_Api.g_false,
8385: p_count => x_msg_count,
8379: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8380: THEN
8381: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8382: END IF;
8383: Fnd_Msg_Pub.count_and_get (
8384: p_encoded => Fnd_Api.g_false,
8385: p_count => x_msg_count,
8386: p_data => x_msg_data
8387: );
8420: 'At the start of PL SQL procedure.');
8421: END IF;
8422:
8423: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
8424: Fnd_Msg_Pub.initialize;
8425: END IF;
8426:
8427: IF NOT Fnd_Api.compatible_api_call (
8428: l_api_version,
8462: END IF;
8463:
8464: -------------------- finish --------------------------
8465: -- Standard call to get message count and if count is 1, get message info
8466: Fnd_Msg_Pub.count_and_get (
8467: p_encoded => Fnd_Api.g_false,
8468: p_count => x_msg_count,
8469: p_data => x_msg_data
8470: );
8476: END IF;
8477: EXCEPTION
8478: WHEN Fnd_Api.g_exc_error THEN
8479: x_return_status := Fnd_Api.g_ret_sts_error;
8480: Fnd_Msg_Pub.count_and_get (
8481: p_encoded => Fnd_Api.g_false,
8482: p_count => x_msg_count,
8483: p_data => x_msg_data
8484: );
8483: p_data => x_msg_data
8484: );
8485: WHEN Fnd_Api.g_exc_unexpected_error THEN
8486: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8487: Fnd_Msg_Pub.count_and_get (
8488: p_encoded => Fnd_Api.g_false,
8489: p_count => x_msg_count,
8490: p_data => x_msg_data
8491: );
8490: p_data => x_msg_data
8491: );
8492: WHEN OTHERS THEN
8493: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8494: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8495: THEN
8496: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8497: END IF;
8498: Fnd_Msg_Pub.count_and_get (
8492: WHEN OTHERS THEN
8493: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
8494: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8495: THEN
8496: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8497: END IF;
8498: Fnd_Msg_Pub.count_and_get (
8499: p_encoded => Fnd_Api.g_false,
8500: p_count => x_msg_count,
8494: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8495: THEN
8496: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8497: END IF;
8498: Fnd_Msg_Pub.count_and_get (
8499: p_encoded => Fnd_Api.g_false,
8500: p_count => x_msg_count,
8501: p_data => x_msg_data
8502: );
8595: OPEN c_Visit_Task;
8596: FETCH c_Visit_Task INTO l_task_rec;
8597: IF c_Visit_Task%NOTFOUND THEN
8598: CLOSE c_Visit_Task;
8599: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
8600: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
8601: Fnd_Msg_Pub.ADD;
8602: END IF;
8603: RAISE Fnd_Api.g_exc_error;
8597: IF c_Visit_Task%NOTFOUND THEN
8598: CLOSE c_Visit_Task;
8599: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
8600: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
8601: Fnd_Msg_Pub.ADD;
8602: END IF;
8603: RAISE Fnd_Api.g_exc_error;
8604: END IF;
8605: CLOSE c_Visit_Task;
8647:
8648: -- TASK NAME ==== NAME
8649: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
8650: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
8651: Fnd_Msg_Pub.ADD;
8652: x_return_status := Fnd_Api.g_ret_sts_error;
8653: END IF;
8654:
8655: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
8655: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
8656:
8657: -- ITEM ==== INVENTORY_ITEM_ID
8658: IF (p_Task_rec.item_name IS NULL OR p_Task_rec.item_name = Fnd_Api.G_MISS_CHAR ) THEN
8659: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8660: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
8661: Fnd_Msg_Pub.ADD;
8662: END IF;
8663: x_return_status := Fnd_Api.g_ret_sts_error;
8657: -- ITEM ==== INVENTORY_ITEM_ID
8658: IF (p_Task_rec.item_name IS NULL OR p_Task_rec.item_name = Fnd_Api.G_MISS_CHAR ) THEN
8659: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8660: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
8661: Fnd_Msg_Pub.ADD;
8662: END IF;
8663: x_return_status := Fnd_Api.g_ret_sts_error;
8664: END IF;
8665:
8665:
8666: -- TASK DURATION ==== DURATION
8667: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
8668: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
8669: Fnd_Msg_Pub.ADD;
8670: x_return_status := Fnd_Api.g_ret_sts_error;
8671: END IF;
8672:
8673: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
8672:
8673: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
8674: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
8675: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8676: Fnd_Msg_Pub.ADD;
8677: x_return_status := Fnd_Api.g_ret_sts_error;
8678: END IF;
8679: END IF;
8680:
8685: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
8686: IF c_check_inst_nonserial%NOTFOUND THEN
8687: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
8688: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
8689: Fnd_Msg_Pub.ADD;
8690: x_return_status := Fnd_Api.g_ret_sts_error;
8691: END IF;
8692: ELSE
8693: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
8691: END IF;
8692: ELSE
8693: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
8694: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
8695: Fnd_Msg_Pub.ADD;
8696: x_return_status := Fnd_Api.g_ret_sts_error;
8697: END IF;
8698: END IF;
8699: CLOSE c_check_inst_nonserial;
8704:
8705: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
8706: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
8707: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
8708: Fnd_Msg_Pub.ADD;
8709: x_return_status := Fnd_Api.g_ret_sts_error;
8710: END IF;
8711: END IF;
8712:
8760: 'Ahl_Visit_Tasks_vl',
8761: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
8762: ) = Fnd_Api.g_false
8763: THEN
8764: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8765: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
8766: Fnd_Msg_Pub.ADD;
8767: END IF;
8768: x_return_status := Fnd_Api.g_ret_sts_error;
8762: ) = Fnd_Api.g_false
8763: THEN
8764: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
8765: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
8766: Fnd_Msg_Pub.ADD;
8767: END IF;
8768: x_return_status := Fnd_Api.g_ret_sts_error;
8769: RETURN;
8770: END IF;
8891:
8892: -- Initialize message list if p_init_msg_list is set to TRUE.
8893: IF Fnd_Api.to_boolean(p_init_msg_list)
8894: THEN
8895: Fnd_Msg_Pub.initialize;
8896: END IF;
8897:
8898: -- Initialize API return status to success
8899: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
8931: -- Added for Bug #13737408
8932: l_is_comp_visit := AHL_CMP_UTIL_PKG.Is_Comp_Visit (c_visit_rec.visit_id);
8933: IF l_is_comp_visit = 'N' AND c_visit_rec.locked_flag = 'Y' THEN
8934: Fnd_Message.SET_NAME('AHL','AHL_VWP_LOCKED_VISIT');
8935: Fnd_Msg_Pub.ADD;
8936: RAISE Fnd_Api.G_EXC_ERROR;
8937: END IF;
8938:
8939: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
8937: END IF;
8938:
8939: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
8940: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
8941: Fnd_Msg_Pub.ADD;
8942: RAISE Fnd_Api.G_EXC_ERROR;
8943: ELSE
8944: FOR i IN p_x_task_tbl.first .. p_x_task_tbl.last
8945: LOOP
8949: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NULL
8950: OR l_task_tbl(i).PAST_TASK_START_DATE = Fnd_Api.G_MISS_DATE) THEN
8951: -- if start date is entered but not end date, throw error
8952: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8953: Fnd_Msg_Pub.ADD;
8954: RAISE FND_API.G_EXC_ERROR;
8955: END IF;
8956: -- If both past task start and end dates are non-null
8957: l_past_dates_flag := 'Y';
8957: l_past_dates_flag := 'Y';
8958: IF (l_task_tbl(i).PAST_TASK_START_DATE >= SYSDATE) THEN
8959: -- Throw error if start date is not in past
8960: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_PAST_ST_DATE_INV');
8961: Fnd_Msg_Pub.ADD;
8962: RAISE FND_API.G_EXC_ERROR;
8963: END IF;
8964: IF (l_task_tbl(i).PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_tbl(i).PAST_TASK_START_DATE)) THEN
8965: -- Throw error if past task start date is before the visit start date
8963: END IF;
8964: IF (l_task_tbl(i).PAST_TASK_START_DATE < NVL(c_visit_rec.START_DATE_TIME, l_task_tbl(i).PAST_TASK_START_DATE)) THEN
8965: -- Throw error if past task start date is before the visit start date
8966: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_START_DATE_INVLD');
8967: Fnd_Msg_Pub.ADD;
8968: RAISE FND_API.G_EXC_ERROR;
8969: END IF;
8970: IF (l_task_tbl(i).PAST_TASK_START_DATE > l_task_tbl(i).PAST_TASK_END_DATE) THEN
8971: -- Throw error if past task start date is after the past task end date
8969: END IF;
8970: IF (l_task_tbl(i).PAST_TASK_START_DATE > l_task_tbl(i).PAST_TASK_END_DATE) THEN
8971: -- Throw error if past task start date is after the past task end date
8972: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_INVLD');
8973: Fnd_Msg_Pub.ADD;
8974: RAISE FND_API.G_EXC_ERROR;
8975: END IF;
8976: IF (l_task_tbl(i).PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_task_tbl(i).PAST_TASK_END_DATE)) THEN
8977: -- Throw error if visit ends before the task
8975: END IF;
8976: IF (l_task_tbl(i).PAST_TASK_END_DATE > NVL(c_visit_rec.CLOSE_DATE_TIME, l_task_tbl(i).PAST_TASK_END_DATE)) THEN
8977: -- Throw error if visit ends before the task
8978: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_END_DATE_INVLD');
8979: Fnd_Msg_Pub.ADD;
8980: RAISE FND_API.G_EXC_ERROR;
8981: END IF;
8982: ELSE -- PAST_TASK_START_DATE is null
8983: -- SKPATHAK :: Bug #9402279 :: 24-FEB-2010 :: Replaced l_task_tbl(1) with l_task_tbl(i)
8985: -- to l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE
8986: IF (l_task_tbl(i).PAST_TASK_END_DATE IS NOT NULL
8987: AND l_task_tbl(i).PAST_TASK_END_DATE <> Fnd_Api.G_MISS_DATE) THEN
8988: Fnd_Message.SET_NAME('AHL','AHL_VWP_PAST_TASK_DATE_MAND');
8989: Fnd_Msg_Pub.ADD;
8990: RAISE FND_API.G_EXC_ERROR;
8991: END IF;
8992: l_task_tbl(i).PAST_TASK_START_DATE := NULL;
8993: l_task_tbl(i).PAST_TASK_END_DATE := NULL;
9022: CLOSE c_get_target_qty;
9023:
9024: IF(l_task_tbl(i).QUANTITY > NVL(l_target_qty, 0)) THEN
9025: Fnd_Message.SET_NAME('AHL','AHL_CMP_TSK_QTY_RPR_QTY');
9026: Fnd_Msg_Pub.ADD;
9027: RAISE Fnd_Api.G_EXC_ERROR;
9028: END IF;
9029:
9030: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9028: END IF;
9029:
9030: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9031: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9032: Fnd_Msg_Pub.ADD;
9033: RAISE Fnd_Api.G_EXC_ERROR;
9034: END IF;
9035: */
9036: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9034: END IF;
9035: */
9036: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9037: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9038: Fnd_Msg_Pub.ADD;
9039: RAISE Fnd_Api.G_EXC_ERROR;
9040: END IF;
9041:
9042: END IF;
9056: IF (l_task_tbl(i).task_start_date < c_visit_rec.START_DATE_TIME OR
9057: l_task_tbl(i).task_start_date > c_visit_rec.CLOSE_DATE_TIME) THEN
9058: FND_MESSAGE.SET_NAME ('AHL', 'AHL_VWP_TSK_START_DATE_INVLD');
9059: FND_MESSAGE.SET_TOKEN('DATE', l_task_tbl(i).task_start_date);
9060: FND_MSG_PUB.ADD;
9061: RAISE FND_API.G_EXC_ERROR;
9062: END IF;
9063:
9064: AHL_VWP_PLAN_TASKS_PVT.Create_Planned_Task (
9078: L_DEBUG_KEY,
9079: 'After calling Create_Planned_Task, Return Status = ' ||
9080: l_return_status);
9081: END IF;
9082: l_msg_count := Fnd_Msg_Pub.count_msg;
9083:
9084: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9085: x_msg_count := l_msg_count;
9086: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9094: CLOSE c_get_instance_qty;
9095:
9096: IF (l_task_tbl(i).QUANTITY is null) THEN
9097: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
9098: Fnd_Msg_Pub.ADD;
9099: RAISE Fnd_Api.G_EXC_ERROR;
9100: END IF;
9101:
9102: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
9100: END IF;
9101:
9102: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
9103: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
9104: Fnd_Msg_Pub.ADD;
9105: RAISE Fnd_Api.G_EXC_ERROR;
9106: END IF;
9107: /*Kasridha : Changes for Component Maintenance Planning Begins
9108: Throw error only when the quantity is greater than
9117: CLOSE c_get_target_qty;
9118:
9119: IF(l_task_tbl(i).QUANTITY > NVL(l_target_qty, 0)) THEN
9120: Fnd_Message.SET_NAME('AHL','AHL_CMP_TSK_QTY_RPR_QTY');
9121: Fnd_Msg_Pub.ADD;
9122: RAISE Fnd_Api.G_EXC_ERROR;
9123: END IF;
9124:
9125:
9124:
9125:
9126: ELSIF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9127: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9128: Fnd_Msg_Pub.ADD;
9129: RAISE Fnd_Api.G_EXC_ERROR;
9130: END IF;
9131: */
9132:
9131: */
9132:
9133: IF(l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
9134: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
9135: Fnd_Msg_Pub.ADD;
9136: RAISE Fnd_Api.G_EXC_ERROR;
9137: END IF;
9138:
9139: -- Kasridha : Changes for Component Maintenance Planning Ends
9162: L_DEBUG_KEY,
9163: 'After Calling Create_Unplanned_Task, Return Status = ' || l_return_status );
9164: END IF;
9165:
9166: l_msg_count := Fnd_Msg_Pub.count_msg;
9167:
9168: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9169: x_msg_count := l_msg_count;
9170: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9502: ELSIF l_return_status = Fnd_Api.g_ret_sts_unexp_error THEN
9503: RAISE Fnd_Api.g_exc_unexpected_error;
9504: END IF;
9505: ELSE
9506: FND_MSG_PUB.Initialize;
9507: END IF;
9508: END IF;
9509: END IF;
9510: END LOOP;
9555: END IF;
9556: -- Kasridha : Changes for Component Maintenance Planning Ends
9557: --------------------End of API Body-------------------------------------
9558: --Standard check to count messages
9559: l_msg_count := Fnd_Msg_Pub.count_msg;
9560:
9561: IF l_msg_count > 0 THEN
9562: x_msg_count := l_msg_count;
9563: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9577: EXCEPTION
9578: WHEN Fnd_Api.g_exc_error THEN
9579: ROLLBACK TO Create_PUP_Tasks;
9580: x_return_status := Fnd_Api.g_ret_sts_error;
9581: Fnd_Msg_Pub.count_and_get(
9582: p_encoded => Fnd_Api.g_false,
9583: p_count => x_msg_count,
9584: p_data => x_msg_data
9585: );
9585: );
9586: WHEN Fnd_Api.g_exc_unexpected_error THEN
9587: ROLLBACK TO Create_PUP_Tasks;
9588: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9589: Fnd_Msg_Pub.count_and_get (
9590: p_encoded => Fnd_Api.g_false,
9591: p_count => x_msg_count,
9592: p_data => x_msg_data
9593: );
9593: );
9594: WHEN OTHERS THEN
9595: ROLLBACK TO Create_PUP_Tasks;
9596: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9597: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9598: THEN
9599: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9600: END IF;
9601: Fnd_Msg_Pub.count_and_get (
9595: ROLLBACK TO Create_PUP_Tasks;
9596: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9597: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9598: THEN
9599: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9600: END IF;
9601: Fnd_Msg_Pub.count_and_get (
9602: p_encoded => Fnd_Api.g_false,
9603: p_count => x_msg_count,
9597: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9598: THEN
9599: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9600: END IF;
9601: Fnd_Msg_Pub.count_and_get (
9602: p_encoded => Fnd_Api.g_false,
9603: p_count => x_msg_count,
9604: p_data => x_msg_data
9605: );
9690:
9691: -- Initialize message list if p_init_msg_list is set to TRUE.
9692: IF Fnd_Api.to_boolean(p_init_msg_list)
9693: THEN
9694: Fnd_Msg_Pub.initialize;
9695: END IF;
9696:
9697: -- Initialize API return status to success
9698: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
9734: L_DEBUG_KEY,
9735: 'After calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS. Return status = ' || L_RETURN_STATUS || ', l_instance_id = ' || l_instance_id);
9736: END IF;
9737:
9738: l_msg_count := Fnd_Msg_Pub.count_msg;
9739:
9740: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9741: x_msg_count := l_msg_count;
9742: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9785: x_return_status => l_return_status,
9786: x_msg_count => l_msg_count,
9787: x_msg_data => l_msg_data);
9788:
9789: l_msg_count := Fnd_Msg_Pub.count_msg;
9790:
9791: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
9792: x_msg_count := l_msg_count;
9793: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9798:
9799: END IF; -- Visit id and Visit type is not null.
9800: --------------------End of API Body-------------------------------------
9801: --Standard check to count messages
9802: l_msg_count := Fnd_Msg_Pub.count_msg;
9803:
9804: IF l_msg_count > 0 THEN
9805: x_msg_count := l_msg_count;
9806: x_return_status := Fnd_Api.G_RET_STS_ERROR;
9815: EXCEPTION
9816: WHEN Fnd_Api.g_exc_error THEN
9817: ROLLBACK TO associate_default_mrs;
9818: x_return_status := Fnd_Api.g_ret_sts_error;
9819: Fnd_Msg_Pub.count_and_get(
9820: p_encoded => Fnd_Api.g_false,
9821: p_count => x_msg_count,
9822: p_data => x_msg_data
9823: );
9823: );
9824: WHEN Fnd_Api.g_exc_unexpected_error THEN
9825: ROLLBACK TO associate_default_mrs;
9826: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9827: Fnd_Msg_Pub.count_and_get (
9828: p_encoded => Fnd_Api.g_false,
9829: p_count => x_msg_count,
9830: p_data => x_msg_data
9831: );
9831: );
9832: WHEN OTHERS THEN
9833: ROLLBACK TO associate_default_mrs;
9834: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9835: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9836: THEN
9837: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9838: END IF;
9839: Fnd_Msg_Pub.count_and_get (
9833: ROLLBACK TO associate_default_mrs;
9834: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
9835: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9836: THEN
9837: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9838: END IF;
9839: Fnd_Msg_Pub.count_and_get (
9840: p_encoded => Fnd_Api.g_false,
9841: p_count => x_msg_count,
9835: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
9836: THEN
9837: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
9838: END IF;
9839: Fnd_Msg_Pub.count_and_get (
9840: p_encoded => Fnd_Api.g_false,
9841: p_count => x_msg_count,
9842: p_data => x_msg_data
9843: );
9889: fnd_log.string(l_log_statement,
9890: L_DEBUG_KEY,
9891: 'Passed task id is null');
9892: END IF;
9893: FND_MSG_PUB.add;
9894: END IF;
9895:
9896: OPEN c_get_warranty_entl_id(p_task_id);
9897: FETCH c_get_warranty_entl_id into l_warranty_entl_id, l_sr_incident_id, l_ovn;
10008:
10009: -- Initialize message list if p_init_msg_list is set to TRUE.
10010: IF Fnd_Api.to_boolean(p_init_msg_list)
10011: THEN
10012: Fnd_Msg_Pub.initialize;
10013: END IF;
10014:
10015: -- Initialize API return status to success
10016: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10026: --------------------Start of API Body-----------------------------------
10027:
10028: IF(p_visit_id IS NULL OR p_visit_id = FND_API.G_MISS_NUM) THEN
10029: FND_MESSAGE.Set_Name('AHL','AHL_VWP_CST_INPUT_MISS');
10030: FND_MSG_PUB.ADD;
10031: IF (l_log_statement >= l_log_current_level) THEN
10032: fnd_log.string(l_log_statement,
10033: L_DEBUG_KEY,
10034: 'Visit id is mandatory but found null in input ');
10040: OPEN val_visit(p_visit_id);
10041: FETCH val_visit INTO l_dummy;
10042: IF (val_visit%NOTFOUND) THEN
10043: FND_MESSAGE.Set_Name('AHL','AHL_STAGE_ID_INVALID');
10044: FND_MSG_PUB.ADD;
10045:
10046: IF (l_log_statement >= l_log_current_level) THEN
10047: fnd_log.string(l_log_statement,
10048: L_DEBUG_KEY,
10060: OPEN val_visit_stage(p_visit_id, p_stage_id);
10061: FETCH val_visit_stage INTO l_dummy;
10062: IF (val_visit_stage%NOTFOUND) THEN
10063: FND_MESSAGE.Set_Name('AHL','AHL_STAGE_ID_INVALID');
10064: FND_MSG_PUB.ADD;
10065:
10066: IF (l_log_statement >= l_log_current_level) THEN
10067: fnd_log.string(l_log_statement,
10068: L_DEBUG_KEY,
10077: OPEN Get_Visit_Details (P_VISIT_ID);
10078: FETCH Get_Visit_Details INTO visit_details_rec;
10079: IF (Get_Visit_Details%NOTFOUND) THEN
10080: FND_MESSAGE.Set_Name('AHL','AHL_VISIT_ID_INVALID');
10081: FND_MSG_PUB.ADD;
10082:
10083: IF (l_log_statement >= l_log_current_level) THEN
10084: fnd_log.string(l_log_statement,
10085: L_DEBUG_KEY,
10169:
10170:
10171: --------------------End of API Body-------------------------------------
10172: --Standard check to count messages
10173: l_msg_count := Fnd_Msg_Pub.count_msg;
10174:
10175: -- SKPATHAK :: 02-MAY-2011 :: VWPE: ER:12424063 :: Automatically create draft WOs if tasks are added to a visit that is in any of the below three statuses
10176: IF visit_details_rec.status_code IN ('PLANNING', 'PARTIALLY RELEASED', 'RELEASED') THEN
10177: -- If the visit status is released, then change the status to partially released due to the addition of stage task to the visit
10232: EXCEPTION
10233: WHEN Fnd_Api.g_exc_error THEN
10234: ROLLBACK TO Create_Stage_Tasks;
10235: x_return_status := Fnd_Api.g_ret_sts_error;
10236: Fnd_Msg_Pub.count_and_get(
10237: p_encoded => Fnd_Api.g_false,
10238: p_count => x_msg_count,
10239: p_data => x_msg_data
10240: );
10240: );
10241: WHEN Fnd_Api.g_exc_unexpected_error THEN
10242: ROLLBACK TO Create_Stage_Tasks;
10243: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10244: Fnd_Msg_Pub.count_and_get (
10245: p_encoded => Fnd_Api.g_false,
10246: p_count => x_msg_count,
10247: p_data => x_msg_data
10248: );
10248: );
10249: WHEN OTHERS THEN
10250: ROLLBACK TO Create_Stage_Tasks;
10251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10253: THEN
10254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10255: END IF;
10256: Fnd_Msg_Pub.count_and_get (
10250: ROLLBACK TO Create_Stage_Tasks;
10251: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10253: THEN
10254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10255: END IF;
10256: Fnd_Msg_Pub.count_and_get (
10257: p_encoded => Fnd_Api.g_false,
10258: p_count => x_msg_count,
10252: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10253: THEN
10254: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10255: END IF;
10256: Fnd_Msg_Pub.count_and_get (
10257: p_encoded => Fnd_Api.g_false,
10258: p_count => x_msg_count,
10259: p_data => x_msg_data
10260: );
10365: --------------------- initialize -----------------------
10366: SAVEPOINT Delete_Stage_Task;
10367:
10368: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
10369: Fnd_Msg_Pub.initialize;
10370: END IF;
10371:
10372: -- Initialize API return status to success
10373: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
10394: FETCH c_Task INTO c_task_rec;
10395:
10396: IF c_Task%NOTFOUND THEN
10397: CLOSE c_Task;
10398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
10399: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
10400: Fnd_Msg_Pub.ADD;
10401: END IF;
10402: RAISE Fnd_Api.g_exc_error;
10396: IF c_Task%NOTFOUND THEN
10397: CLOSE c_Task;
10398: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
10399: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
10400: Fnd_Msg_Pub.ADD;
10401: END IF;
10402: RAISE Fnd_Api.g_exc_error;
10403: END IF;
10404: CLOSE c_Task;
10418: CLOSE c_stage_tasks_count;
10419:
10420: IF l_stage_tasks_count>0 THEN
10421: Fnd_Message.SET_NAME('AHL','AHL_VWP_STG_NO_DEL_HAV_TASKS');
10422: Fnd_Msg_Pub.ADD;
10423: RAISE FND_API.G_EXC_ERROR;
10424: END IF;*/
10425:
10426:
10436: Get_WorkOrder_Attribs(
10437: p_x_prd_workorder_rec => l_workorder_rec
10438: );
10439:
10440: l_msg_count := FND_MSG_PUB.count_msg;
10441: IF l_msg_count > 0 THEN
10442: x_msg_count := l_msg_count;
10443: x_return_status := FND_API.G_RET_STS_ERROR;
10444: RAISE FND_API.G_EXC_ERROR;
10473: L_DEBUG_KEY,
10474: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
10475: END IF;
10476:
10477: l_msg_count := FND_MSG_PUB.count_msg;
10478: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
10479: x_msg_count := l_msg_count;
10480: x_return_status := FND_API.G_RET_STS_ERROR;
10481: RAISE FND_API.G_EXC_ERROR;
10483:
10484: ELSE
10485: -- if status is not draft
10486: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
10487: Fnd_Msg_Pub.ADD;
10488: RAISE FND_API.G_EXC_ERROR;
10489: END IF; -- End of Job Status
10490: CLOSE c_workorders;
10491:
10526: IF Fnd_Api.to_boolean (p_commit) THEN
10527: COMMIT;
10528: END IF;
10529:
10530: Fnd_Msg_Pub.count_and_get (
10531: p_encoded => Fnd_Api.g_false,
10532: p_count => x_msg_count,
10533: p_data => x_msg_data
10534: );
10541: EXCEPTION
10542: WHEN Fnd_Api.g_exc_error THEN
10543: ROLLBACK TO Delete_Stage_Task;
10544: x_return_status := Fnd_Api.g_ret_sts_error;
10545: Fnd_Msg_Pub.count_and_get (
10546: p_encoded => Fnd_Api.g_false,
10547: p_count => x_msg_count,
10548: p_data => x_msg_data
10549: );
10549: );
10550: WHEN Fnd_Api.g_exc_unexpected_error THEN
10551: ROLLBACK TO Delete_Stage_Task;
10552: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10553: Fnd_Msg_Pub.count_and_get (
10554: p_encoded => Fnd_Api.g_false,
10555: p_count => x_msg_count,
10556: p_data => x_msg_data
10557: );
10557: );
10558: WHEN OTHERS THEN
10559: ROLLBACK TO Delete_Stage_Task;
10560: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10561: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10562: THEN
10563: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10564: END IF;
10565: Fnd_Msg_Pub.count_and_get (
10559: ROLLBACK TO Delete_Stage_Task;
10560: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
10561: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10562: THEN
10563: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10564: END IF;
10565: Fnd_Msg_Pub.count_and_get (
10566: p_encoded => Fnd_Api.g_false,
10567: p_count => x_msg_count,
10561: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
10562: THEN
10563: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
10564: END IF;
10565: Fnd_Msg_Pub.count_and_get (
10566: p_encoded => Fnd_Api.g_false,
10567: p_count => x_msg_count,
10568: p_data => x_msg_data
10569: );