[Home] [Help]
284:
285: OPEN get_workorder_rec(p_x_prd_workorder_rec.workorder_id);
286: FETCH get_workorder_rec INTO l_prd_workorder_rec;
287: IF get_workorder_rec%NOTFOUND THEN
288: FND_MESSAGE.SET_NAME('AHL','AHL_PRD_WO_NOT_FOUND');
289: FND_MSG_PUB.ADD;
290: CLOSE get_workorder_rec;
291: END IF;
292: CLOSE get_workorder_rec;
1181: ', Status Code = ' || c_visit_rec.status_code);
1182: END IF;
1183:
1184: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1185: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1186: Fnd_Msg_Pub.ADD;
1187: RAISE Fnd_Api.G_EXC_ERROR;
1188: ELSE
1189: IF l_task_rec.task_type_code = 'SUMMARY' THEN
1479: 'Visit Id = ' || l_task_rec.visit_id || ', Status Code = ' || c_visit_rec.status_code );
1480: END IF;
1481:
1482: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
1483: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
1484: Fnd_Msg_Pub.ADD;
1485: RAISE Fnd_Api.G_EXC_ERROR;
1486: /*
1487: Commented to fix bug # 4029318
1521: X_RETURN_STATUS => l_return_status,
1522: x_error_msg_code => l_msg_data );
1523:
1524: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1525: Fnd_Message.SET_NAME('AHL','AHL_VWP_STAGE_NOT_EXISTS');
1526: Fnd_Msg_Pub.ADD;
1527: RAISE Fnd_Api.G_EXC_ERROR;
1528: END IF;
1529: --
1544: x_return_status => l_return_status,
1545: x_error_msg_code => l_msg_data);
1546:
1547: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1548: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
1549: Fnd_Msg_Pub.ADD;
1550: RAISE Fnd_Api.G_EXC_ERROR;
1551: END IF;
1552:
1556: L_DEBUG_KEY,
1557: ': Compare item name');
1558: END IF;
1559:
1560: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
1561: Fnd_Msg_Pub.ADD;
1562: RAISE Fnd_Api.G_EXC_ERROR;
1563: END IF;
1564: ELSE
1566: fnd_log.string(l_log_statement,
1567: L_DEBUG_KEY,
1568: ': Check item else loop');
1569: END IF;
1570: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
1571: Fnd_Msg_Pub.ADD;
1572: RAISE Fnd_Api.G_EXC_ERROR;
1573: END IF;
1574:
1608: x_error_msg_code => l_msg_data);
1609:
1610: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1611: THEN
1612: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1613: Fnd_Msg_Pub.ADD;
1614: RAISE Fnd_Api.G_EXC_ERROR;
1615: END IF;
1616:
1619: ( P_DEPT_ID => l_department_id,
1620: X_RETURN_STATUS => l_return_status);
1621:
1622: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
1623: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
1624: Fnd_Msg_Pub.ADD;
1625: RAISE Fnd_Api.G_EXC_ERROR;
1626: END IF;
1627: --Assign the returned value
1652: x_return_status => l_return_status,
1653: x_error_msg_code => l_msg_data);
1654:
1655: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
1656: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
1657: Fnd_Msg_Pub.ADD;
1658: RAISE Fnd_Api.G_EXC_ERROR;
1659: ELSE
1660: --Assign the returned value
1671: --BEGIN: jeli added for bug 3777720
1672: IF (AHL_VWP_RULES_PVT.instance_in_config_tree(l_task_rec.visit_id, l_task_rec.instance_id)
1673: = FND_API.G_RET_STS_ERROR) THEN
1674: --END: jeli added for bug 3777720
1675: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1676: Fnd_Msg_Pub.ADD;
1677: RAISE Fnd_Api.G_EXC_ERROR;
1678: END IF;
1679: sowsubra - end */
1702: FETCH c_get_instance_qty INTO l_instance_qty;
1703: CLOSE c_get_instance_qty;
1704:
1705: IF (l_Task_rec.QUANTITY is null) THEN
1706: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
1707: Fnd_Msg_Pub.ADD;
1708: RAISE Fnd_Api.G_EXC_ERROR;
1709: END IF;
1710:
1708: RAISE Fnd_Api.G_EXC_ERROR;
1709: END IF;
1710:
1711: IF (l_Task_rec.QUANTITY <= 0) THEN
1712: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
1713: Fnd_Msg_Pub.ADD;
1714: RAISE Fnd_Api.G_EXC_ERROR;
1715: END IF;
1716:
1714: RAISE Fnd_Api.G_EXC_ERROR;
1715: END IF;
1716:
1717: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
1718: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
1719: Fnd_Msg_Pub.ADD;
1720: RAISE Fnd_Api.G_EXC_ERROR;
1721: END IF;
1722: -- End changes by rnahata for Issue 105
1739: x_error_msg_code => l_msg_data);
1740:
1741: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1742: THEN
1743: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
1744: Fnd_Msg_Pub.ADD;
1745: RAISE Fnd_Api.g_exc_error;
1746: END IF;
1747:
1795: x_error_msg_code => l_msg_data);
1796:
1797: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
1798: THEN
1799: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
1800: Fnd_Msg_Pub.ADD;
1801: RAISE Fnd_Api.g_exc_error;
1802: END IF;
1803: --Assign the returned value
1851: END IF;
1852: /* ELSE Commented to fix bug # 4029318 Senthil
1853: -- TASK NAME ==== NAME
1854: IF (l_task_rec.visit_task_name IS NULL OR l_task_rec.visit_task_name = Fnd_Api.G_MISS_CHAR) THEN
1855: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1856: Fnd_Msg_Pub.ADD;
1857: RAISE Fnd_Api.g_exc_error;
1858: END IF;
1859: END IF;
2189: ': Status Code ' || c_visit_rec.status_code);
2190: END IF;
2191:
2192: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
2193: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
2194: Fnd_Msg_Pub.ADD;
2195: RAISE Fnd_Api.G_EXC_ERROR;
2196: ELSE
2197: ----------- Start defining and validate all LOVs on Create Visit's Task UI Screen---
2213: x_error_msg_code => l_msg_data);
2214:
2215: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2216: THEN
2217: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
2218: Fnd_Msg_Pub.ADD;
2219: RAISE Fnd_Api.G_EXC_ERROR;
2220: END IF;
2221:
2224: ( P_DEPT_ID => l_department_id,
2225: X_RETURN_STATUS => l_return_status);
2226:
2227: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
2228: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
2229: Fnd_Msg_Pub.ADD;
2230: RAISE Fnd_Api.G_EXC_ERROR;
2231: END IF;
2232:
2268: x_error_msg_code => l_msg_data);
2269:
2270: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2271: THEN
2272: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
2273: Fnd_Msg_Pub.ADD;
2274: RAISE Fnd_Api.G_EXC_ERROR;
2275: END IF;
2276:
2274: RAISE Fnd_Api.G_EXC_ERROR;
2275: END IF;
2276:
2277: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
2278: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2279: Fnd_Msg_Pub.ADD;
2280: RAISE Fnd_Api.G_EXC_ERROR;
2281: END IF;
2282:
2286:
2287: /* Commented as Item is not mandatory for Summary Task
2288: Post 11.5.10 Changes done by Senthil.
2289: ELSE
2290: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
2291: Fnd_Msg_Pub.ADD;
2292: RAISE Fnd_Api.G_EXC_ERROR;
2293: */
2294:
2306:
2307: OPEN get_task_inst_dtls(l_task_rec.visit_id);
2308: FETCH get_task_inst_dtls INTO get_task_inst_rec;
2309: IF get_task_inst_dtls%NOTFOUND THEN
2310: Fnd_Message.SET_NAME('AHL','AHL_VWP_SUM_TASK_ITEM');
2311: Fnd_Msg_Pub.ADD;
2312: CLOSE get_task_inst_dtls;
2313: RAISE Fnd_Api.G_EXC_ERROR;
2314: END IF;
2345: x_return_status => l_return_status,
2346: x_error_msg_code => l_msg_data);
2347:
2348: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
2349: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
2350: Fnd_Msg_Pub.ADD;
2351: RAISE Fnd_Api.G_EXC_ERROR;
2352: ELSE
2353: --Assign the returned value
2363: /* sowsubra - start
2364: --BEGIN: jeli added for bug 3777720
2365: 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
2366: --END: jeli added for bug 3777720
2367: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
2368: Fnd_Msg_Pub.ADD;
2369: RAISE Fnd_Api.G_EXC_ERROR;
2370: END IF;
2371: sowsubra - end */
2394: x_error_msg_code => l_msg_data);
2395:
2396: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2397: THEN
2398: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
2399: Fnd_Msg_Pub.ADD;
2400: RAISE Fnd_Api.g_exc_error;
2401: END IF;
2402:
2443: x_error_msg_code => l_msg_data);
2444:
2445: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
2446: THEN
2447: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
2448: Fnd_Msg_Pub.ADD;
2449: RAISE Fnd_Api.g_exc_error;
2450: END IF;
2451:
3134: x_return_status => l_return_status,
3135: x_error_msg_code => l_msg_data);
3136:
3137: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3138: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3139: Fnd_Msg_Pub.ADD;
3140: RAISE Fnd_Api.G_EXC_ERROR;
3141: END IF;
3142:
3145: ( P_DEPT_ID => l_task_rec.department_id,
3146: X_RETURN_STATUS => l_return_status);
3147:
3148: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
3149: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
3150: Fnd_Msg_Pub.ADD;
3151: RAISE Fnd_Api.G_EXC_ERROR;
3152: END IF;
3153: ELSE
3616: x_error_msg_code => l_msg_data);
3617:
3618: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3619: THEN
3620: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
3621: Fnd_Msg_Pub.ADD;
3622: RAISE Fnd_Api.g_exc_error;
3623: END IF;
3624: --Assign the returned value
3910: x_error_msg_code => l_msg_data);
3911:
3912: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
3913: THEN
3914: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
3915: Fnd_Msg_Pub.ADD;
3916: RAISE Fnd_Api.G_EXC_ERROR;
3917: END IF;
3918:
3949: x_return_status => l_return_status,
3950: x_error_msg_code => l_msg_data);
3951:
3952: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
3953: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
3954: Fnd_Msg_Pub.ADD;
3955: RAISE Fnd_Api.G_EXC_ERROR;
3956: ELSE
3957:
3970:
3971: --BEGIN: jeli added for bug 3777720
3972: 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
3973: --END: jeli added for bug 3777720
3974: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
3975: Fnd_Msg_Pub.ADD;
3976: RAISE Fnd_Api.G_EXC_ERROR;
3977: END IF;
3978: END IF;
4002: x_error_msg_code => l_msg_data);
4003:
4004: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4005: THEN
4006: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4007: Fnd_Msg_Pub.ADD;
4008: RAISE Fnd_Api.g_exc_error;
4009: END IF;
4010:
4059: x_error_msg_code => l_msg_data);
4060:
4061: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4062: THEN
4063: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4064: Fnd_Msg_Pub.ADD;
4065: RAISE Fnd_Api.g_exc_error;
4066: END IF;
4067:
4155: END IF;
4156:
4157: -- Check Object version number.
4158: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4159: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4160: Fnd_Msg_Pub.ADD;
4161: RAISE Fnd_Api.G_EXC_ERROR;
4162: END IF;
4163:
4489: x_error_msg_code => l_msg_data);
4490:
4491: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4492: THEN
4493: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
4494: Fnd_Msg_Pub.ADD;
4495: RAISE Fnd_Api.G_EXC_ERROR;
4496: END IF;
4497:
4530: x_return_status => l_return_status,
4531: x_error_msg_code => l_msg_data);
4532:
4533: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success THEN
4534: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
4535: Fnd_Msg_Pub.ADD;
4536: RAISE Fnd_Api.G_EXC_ERROR;
4537: ELSE
4538:
4549: /* sowsubra - start
4550: --BEGIN: jeli added for bug 3777720
4551: 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
4552: --END: jeli added for bug 3777720
4553: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
4554: Fnd_Msg_Pub.ADD;
4555: RAISE Fnd_Api.G_EXC_ERROR;
4556: END IF;
4557: sowsubra - end */
4597: x_error_msg_code => l_msg_data);
4598:
4599: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4600: THEN
4601: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
4602: Fnd_Msg_Pub.ADD;
4603: RAISE Fnd_Api.g_exc_error;
4604: END IF;
4605:
4654: x_error_msg_code => l_msg_data);
4655:
4656: IF NVL(l_return_status,'x') <> Fnd_Api.g_ret_sts_success
4657: THEN
4658: Fnd_Message.SET_NAME('AHL','AHL_VWP_ORIGINATING_NOT_EXISTS');
4659: Fnd_Msg_Pub.ADD;
4660: RAISE Fnd_Api.g_exc_error;
4661: END IF;
4662:
4719: END IF;
4720:
4721: -- Check Object version number.
4722: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
4723: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
4724: Fnd_Msg_Pub.ADD;
4725: RAISE Fnd_Api.G_EXC_ERROR;
4726: END IF;
4727:
5007:
5008: ---------------------------------------------- Start----------------------------------------------------------
5009:
5010: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
5011: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
5012: Fnd_Msg_Pub.ADD;
5013: RAISE Fnd_Api.G_EXC_ERROR;
5014: ELSIF c_task_rec.status_code = 'PLANNING' THEN
5015: IF c_task_rec.task_type_code = 'SUMMARY' THEN
5463:
5464: IF c_Task%NOTFOUND THEN
5465: CLOSE c_Task;
5466: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
5467: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5468: Fnd_Msg_Pub.ADD;
5469: END IF;
5470: RAISE Fnd_Api.g_exc_error;
5471: END IF;
5534: END IF;
5535:
5536: ELSE
5537: -- if status is not draft
5538: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
5539: Fnd_Msg_Pub.ADD;
5540: RAISE FND_API.G_EXC_ERROR;
5541: END IF; -- End of Job Status
5542: CLOSE c_workorders;
5652: WHERE Visit_Task_ID = l_task_id;
5653:
5654: IF (SQL%NOTFOUND) THEN
5655: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
5656: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
5657: Fnd_Msg_Pub.ADD;
5658: END IF;
5659: RAISE Fnd_Api.g_exc_error;
5660: END IF;
5663: DELETE FROM Ahl_Visit_Tasks_B
5664: WHERE Visit_Task_ID = l_task_id;
5665:
5666: IF (SQL%NOTFOUND) THEN
5667: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
5668: Fnd_Msg_Pub.ADD;
5669: RAISE Fnd_Api.g_exc_error;
5670: END IF;
5671:
5860: CLOSE c_Task;
5861:
5862: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
5863: THEN
5864: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
5865: Fnd_Msg_Pub.ADD;
5866: END IF;
5867: RAISE Fnd_Api.g_exc_error;
5868: ELSE
5898: END IF;
5899: IF c_workrec.status_code<>'17'
5900: THEN
5901: -- ADD THIS MESSAGE TO SEED115
5902: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
5903: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
5904: Fnd_Msg_Pub.ADD;
5905: CLOSE c_workorders;
5906: CLOSE c_SR_tasks;
5899: IF c_workrec.status_code<>'17'
5900: THEN
5901: -- ADD THIS MESSAGE TO SEED115
5902: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
5903: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
5904: Fnd_Msg_Pub.ADD;
5905: CLOSE c_workorders;
5906: CLOSE c_SR_tasks;
5907: RAISE fnd_Api.g_exc_error;
6081:
6082: IF (SQL%NOTFOUND) THEN
6083: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
6084: THEN
6085: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6086: Fnd_Msg_Pub.ADD;
6087: END IF;
6088: CLOSE c_SR_tasks;
6089: RAISE Fnd_Api.g_exc_error;
6102:
6103: IF (SQL%NOTFOUND) THEN
6104: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
6105: THEN
6106: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6107: Fnd_Msg_Pub.ADD;
6108: END IF;
6109: CLOSE c_SR_tasks;
6110: RAISE Fnd_Api.g_exc_error;
6318: CLOSE c_Task;
6319:
6320: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error)
6321: THEN
6322: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
6323: Fnd_Msg_Pub.ADD;
6324: END IF;
6325: RAISE Fnd_Api.g_exc_error;
6326:
6374: CLOSE c_Visit;
6375:
6376: IF (c_visit_rec.status_code <> 'PLANNING' and c_visit_rec.status_code <> 'PARTIALLY RELEASED')
6377: THEN
6378: Fnd_Message.set_name ('AHL', 'AHL_VWP_PLANNING_OPER');
6379: Fnd_Msg_Pub.ADD;
6380: RAISE fnd_Api.g_exc_error;
6381: END IF;
6382:
6415:
6416: IF c_workrec.status_code<>'17'
6417: THEN
6418: -- ADD THIS MESSAGE TO SEED115
6419: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
6420: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
6421: Fnd_Msg_Pub.ADD;
6422: CLOSE c_workorders;
6423: CLOSE c_all_tasks;
6416: IF c_workrec.status_code<>'17'
6417: THEN
6418: -- ADD THIS MESSAGE TO SEED115
6419: Fnd_Message.set_name ('AHL', 'AHL_VWP_TSK_CANNOT_DEL');
6420: FND_MESSAGE.SET_TOKEN('Task_Number',c_task_rec.visit_task_number);
6421: Fnd_Msg_Pub.ADD;
6422: CLOSE c_workorders;
6423: CLOSE c_all_tasks;
6424: RAISE fnd_Api.g_exc_error;
6605: DELETE FROM Ahl_Visit_Tasks_TL WHERE Visit_Task_ID = l_task_id;
6606: IF (SQL%NOTFOUND) THEN
6607: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
6608: THEN
6609: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6610: Fnd_Msg_Pub.ADD;
6611: END IF;
6612: CLOSE c_all_tasks;
6613: RAISE Fnd_Api.g_exc_error;
6625:
6626: IF (SQL%NOTFOUND) THEN
6627: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error)
6628: THEN
6629: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6630: Fnd_Msg_Pub.ADD;
6631: END IF;
6632: CLOSE c_all_tasks;
6633: RAISE Fnd_Api.g_exc_error;
6818: DELETE FROM Ahl_Visit_Tasks_TL
6819: WHERE Visit_Task_ID = l_task_id;
6820:
6821: IF (SQL%NOTFOUND) THEN
6822: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6823: Fnd_Msg_Pub.ADD;
6824: RAISE Fnd_Api.g_exc_error;
6825: END IF;
6826:
6834: DELETE FROM Ahl_Visit_Tasks_B
6835: WHERE Visit_Task_ID = l_task_id;
6836:
6837: IF (SQL%NOTFOUND) THEN
6838: Fnd_Message.set_name ('AHL', 'AHL_API_RECORD_NOT_FOUND');
6839: Fnd_Msg_Pub.ADD;
6840: RAISE Fnd_Api.g_exc_error;
6841: END IF;
6842:
7293: FETCH c_Visit_Task INTO l_task_rec;
7294: IF c_Visit_Task%NOTFOUND THEN
7295: CLOSE c_Visit_Task;
7296: IF Fnd_Msg_Pub.check_msg_level(Fnd_Msg_Pub.g_msg_lvl_error) THEN
7297: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
7298: Fnd_Msg_Pub.ADD;
7299: END IF;
7300: RAISE Fnd_Api.g_exc_error;
7301: END IF;
7343: x_return_status := Fnd_Api.g_ret_sts_success;
7344:
7345: -- TASK NAME ==== NAME
7346: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
7347: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
7348: Fnd_Msg_Pub.ADD;
7349: x_return_status := Fnd_Api.g_ret_sts_error;
7350: END IF;
7351:
7353:
7354: -- ITEM ==== INVENTORY_ITEM_ID
7355: IF (p_Task_rec.item_name IS NULL OR p_Task_rec.item_name = Fnd_Api.G_MISS_CHAR ) THEN
7356: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7357: Fnd_Message.set_name ('AHL', 'AHL_VWP_ITEM_MISSING');
7358: Fnd_Msg_Pub.ADD;
7359: END IF;
7360: x_return_status := Fnd_Api.g_ret_sts_error;
7361: END IF;
7361: END IF;
7362:
7363: -- TASK DURATION ==== DURATION
7364: IF (p_task_rec.DURATION IS NULL OR p_Task_rec.DURATION = Fnd_Api.G_MISS_NUM) THEN
7365: Fnd_Message.set_name ('AHL', 'AHL_VWP_DURATION_MISSING');
7366: Fnd_Msg_Pub.ADD;
7367: x_return_status := Fnd_Api.g_ret_sts_error;
7368: END IF;
7369:
7368: END IF;
7369:
7370: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
7371: IF p_task_rec.DURATION < 0 OR FLOOR(p_task_rec.DURATION) <> p_task_rec.DURATION THEN
7372: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7373: Fnd_Msg_Pub.ADD;
7374: x_return_status := Fnd_Api.g_ret_sts_error;
7375: END IF;
7376: END IF;
7381: OPEN c_check_inst_nonserial (p_task_rec.instance_id);
7382: FETCH c_check_inst_nonserial INTO l_serial_ctrl;
7383: IF c_check_inst_nonserial%NOTFOUND THEN
7384: IF (p_Task_rec.SERIAL_NUMBER IS NULL OR p_Task_rec.SERIAL_NUMBER = Fnd_Api.G_MISS_CHAR) THEN
7385: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_MISSING');
7386: Fnd_Msg_Pub.ADD;
7387: x_return_status := Fnd_Api.g_ret_sts_error;
7388: END IF;
7389: ELSE
7387: x_return_status := Fnd_Api.g_ret_sts_error;
7388: END IF;
7389: ELSE
7390: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
7391: Fnd_Message.set_name ('AHL', 'AHL_VWP_SERIAL_NOT_NEEDED');
7392: Fnd_Msg_Pub.ADD;
7393: x_return_status := Fnd_Api.g_ret_sts_error;
7394: END IF;
7395: END IF;
7400: END IF;
7401:
7402: IF (p_task_rec.START_FROM_HOUR IS NOT NULL AND p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
7403: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
7404: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
7405: Fnd_Msg_Pub.ADD;
7406: x_return_status := Fnd_Api.g_ret_sts_error;
7407: END IF;
7408: END IF;
7458: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
7459: ) = Fnd_Api.g_false
7460: THEN
7461: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
7462: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
7463: Fnd_Msg_Pub.ADD;
7464: END IF;
7465: x_return_status := Fnd_Api.g_ret_sts_error;
7466: RETURN;
7569: ': Status Code ' || c_visit_rec.status_code );
7570: END IF;
7571:
7572: IF c_visit_rec.status_code IN ('CLOSED','CANCELLED') THEN
7573: Fnd_Message.SET_NAME('AHL','AHL_VWP_NOT_USE_VISIT');
7574: Fnd_Msg_Pub.ADD;
7575: RAISE Fnd_Api.G_EXC_ERROR;
7576: ELSE
7577: FOR i IN p_x_task_tbl.first .. p_x_task_tbl.last
7589: IF (l_task_tbl(i).QUANTITY is null) THEN
7590: l_task_tbl(i).QUANTITY := l_instance_qty;
7591: ELSE
7592: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
7593: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
7594: Fnd_Msg_Pub.ADD;
7595: RAISE Fnd_Api.G_EXC_ERROR;
7596: END IF;
7597: END IF;
7637: FETCH c_get_instance_qty INTO l_instance_qty;
7638: CLOSE c_get_instance_qty;
7639:
7640: IF (l_task_tbl(i).QUANTITY is null) THEN
7641: Fnd_Message.SET_NAME('AHL','AHL_TASK_QTY_NULL');
7642: Fnd_Msg_Pub.ADD;
7643: RAISE Fnd_Api.G_EXC_ERROR;
7644: END IF;
7645:
7643: RAISE Fnd_Api.G_EXC_ERROR;
7644: END IF;
7645:
7646: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
7647: Fnd_Message.SET_NAME('AHL','AHL_POSITIVE_TSK_QTY');
7648: Fnd_Msg_Pub.ADD;
7649: RAISE Fnd_Api.G_EXC_ERROR;
7650: END IF;
7651:
7649: RAISE Fnd_Api.G_EXC_ERROR;
7650: END IF;
7651:
7652: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
7653: Fnd_Message.SET_NAME('AHL','AHL_INCORRECT_TSK_QTY');
7654: Fnd_Msg_Pub.ADD;
7655: RAISE Fnd_Api.G_EXC_ERROR;
7656: END IF;
7657: -- End changes by rnahata for Issue 105