[Home] [Help]
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;
293: p_x_prd_workorder_rec.OBJECT_VERSION_NUMBER :=l_prd_workorder_rec.OBJECT_VERSION_NUMBER;
836: -- Standard start of API savepoint
837: SAVEPOINT Get_Task_Details;
838:
839: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
840: Fnd_Msg_Pub.initialize;
841: END IF;
842:
843: -- Initialize API return status to success
844: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1062: x_task_rec := l_task_rec;
1063:
1064: ------------------------End of API Body------------------------------------
1065: -- Standard call to get message count and if count is 1, get message info
1066: /* Fnd_Msg_Pub.Count_And_Get
1067: ( p_count => x_msg_count,
1068: p_data => x_msg_data,
1069: p_encoded => Fnd_Api.g_false); */
1070:
1068: p_data => x_msg_data,
1069: p_encoded => Fnd_Api.g_false); */
1070:
1071: --Standard check to count messages
1072: l_msg_count := Fnd_Msg_Pub.count_msg;
1073:
1074: IF l_msg_count > 0 THEN
1075: x_msg_count := l_msg_count;
1076: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1086: EXCEPTION
1087: WHEN Fnd_Api.G_EXC_ERROR THEN
1088: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1089: ROLLBACK TO Get_Task_Details;
1090: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1091: p_data => x_msg_data,
1092: p_encoded => Fnd_Api.g_false);
1093: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1092: p_encoded => Fnd_Api.g_false);
1093: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
1094: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1095: ROLLBACK TO Get_Task_Details;
1096: Fnd_Msg_Pub.count_and_get( p_count => x_msg_count,
1097: p_data => x_msg_data,
1098: p_encoded => Fnd_Api.g_false);
1099: WHEN OTHERS THEN
1100: ROLLBACK TO Get_Task_Details;
1098: p_encoded => Fnd_Api.g_false);
1099: WHEN OTHERS THEN
1100: ROLLBACK TO Get_Task_Details;
1101: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1102: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1103: THEN
1104: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1105: END IF;
1106: Fnd_Msg_Pub.count_and_get (
1100: ROLLBACK TO Get_Task_Details;
1101: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1102: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1103: THEN
1104: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1105: END IF;
1106: Fnd_Msg_Pub.count_and_get (
1107: p_encoded => Fnd_Api.g_false,
1108: p_count => x_msg_count,
1102: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1103: THEN
1104: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1105: END IF;
1106: Fnd_Msg_Pub.count_and_get (
1107: p_encoded => Fnd_Api.g_false,
1108: p_count => x_msg_count,
1109: p_data => x_msg_data );
1110: END Get_Task_Details;
1153:
1154: -- Initialize message list if p_init_msg_list is set to TRUE.
1155: IF Fnd_Api.to_boolean(p_init_msg_list)
1156: THEN
1157: Fnd_Msg_Pub.initialize;
1158: END IF;
1159:
1160: -- Initialize API return status to success
1161: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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
1190: IF (l_log_statement >= l_log_current_level) THEN
1312: -- post 115.10 changes end
1313:
1314: --------------------End of API Body-------------------------------------
1315: --Standard check to count messages
1316: l_msg_count := Fnd_Msg_Pub.count_msg;
1317:
1318: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1319: x_msg_count := l_msg_count;
1320: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1335: EXCEPTION
1336: WHEN Fnd_Api.g_exc_error THEN
1337: ROLLBACK TO Create_Task;
1338: x_return_status := Fnd_Api.g_ret_sts_error;
1339: Fnd_Msg_Pub.count_and_get(
1340: p_encoded => Fnd_Api.g_false,
1341: p_count => x_msg_count,
1342: p_data => x_msg_data
1343: );
1343: );
1344: WHEN Fnd_Api.g_exc_unexpected_error THEN
1345: ROLLBACK TO Create_Task;
1346: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1347: Fnd_Msg_Pub.count_and_get (
1348: p_encoded => Fnd_Api.g_false,
1349: p_count => x_msg_count,
1350: p_data => x_msg_data
1351: );
1351: );
1352: WHEN OTHERS THEN
1353: ROLLBACK TO Create_Task;
1354: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1355: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1356: THEN
1357: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1358: END IF;
1359: Fnd_Msg_Pub.count_and_get (
1353: ROLLBACK TO Create_Task;
1354: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1355: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1356: THEN
1357: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1358: END IF;
1359: Fnd_Msg_Pub.count_and_get (
1360: p_encoded => Fnd_Api.g_false,
1361: p_count => x_msg_count,
1355: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1356: THEN
1357: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1358: END IF;
1359: Fnd_Msg_Pub.count_and_get (
1360: p_encoded => Fnd_Api.g_false,
1361: p_count => x_msg_count,
1362: p_data => x_msg_data
1363: );
1444:
1445: -- Initialize message list if p_init_msg_list is set to TRUE.
1446: IF Fnd_Api.to_boolean(p_init_msg_list)
1447: THEN
1448: Fnd_Msg_Pub.initialize;
1449: END IF;
1450:
1451: -- Initialize API return status to success
1452: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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
1488: ELSIF c_visit_rec.status_code = 'RELEASED' OR c_visit_rec.status_code = 'PARTIALLY RELEASED' THEN
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: --
1530: -- For ITEM
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:
1553: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
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
1565: IF (l_log_statement >= l_log_current_level) THEN
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:
1575: --Assign the returned value
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:
1617: -- Changes for Post 11.5.10 by amagrawa
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
1628: l_task_rec.department_id := l_department_id;
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
1661: l_Task_rec.instance_id := l_serial_id;
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 */
1680: END IF;
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:
1711: IF (l_Task_rec.QUANTITY <= 0) THEN
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:
1717: IF (l_Task_rec.QUANTITY > l_instance_qty ) THEN
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
1723:
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:
1748: --Assign the returned value
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
1804: l_Task_rec.originating_task_id := l_originating_task_id;
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;
1860: */
1970: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
1971: END IF;
1972:
1973: --Standard check to count messages
1974: l_msg_count := Fnd_Msg_Pub.count_msg;
1975:
1976: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
1977: x_msg_count := l_msg_count;
1978: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2030: END IF;
2031:
2032: ---------------------------End of API Body---------------------------------------
2033: --Standard check to count messages
2034: l_msg_count := Fnd_Msg_Pub.count_msg;
2035:
2036: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2037: x_msg_count := l_msg_count;
2038: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2053: EXCEPTION
2054: WHEN Fnd_Api.g_exc_error THEN
2055: ROLLBACK TO Create_Unassociated_Task;
2056: x_return_status := Fnd_Api.g_ret_sts_error;
2057: Fnd_Msg_Pub.count_and_get(
2058: p_encoded => Fnd_Api.g_false,
2059: p_count => x_msg_count,
2060: p_data => x_msg_data
2061: );
2062:
2063: WHEN Fnd_Api.g_exc_unexpected_error THEN
2064: ROLLBACK TO Create_Unassociated_Task;
2065: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2066: Fnd_Msg_Pub.count_and_get (
2067: p_encoded => Fnd_Api.g_false,
2068: p_count => x_msg_count,
2069: p_data => x_msg_data
2070: );
2071:
2072: WHEN OTHERS THEN
2073: ROLLBACK TO Create_Unassociated_Task;
2074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2075: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2076: THEN
2077: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2078: END IF;
2079: Fnd_Msg_Pub.count_and_get (
2073: ROLLBACK TO Create_Unassociated_Task;
2074: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2075: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2076: THEN
2077: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2078: END IF;
2079: Fnd_Msg_Pub.count_and_get (
2080: p_encoded => Fnd_Api.g_false,
2081: p_count => x_msg_count,
2075: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2076: THEN
2077: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2078: END IF;
2079: Fnd_Msg_Pub.count_and_get (
2080: p_encoded => Fnd_Api.g_false,
2081: p_count => x_msg_count,
2082: p_data => x_msg_data
2083: );
2152:
2153: -- Initialize message list if p_init_msg_list is set to TRUE.
2154: IF Fnd_Api.to_boolean(p_init_msg_list)
2155: THEN
2156: Fnd_Msg_Pub.initialize;
2157: END IF;
2158:
2159: -- Initialize API return status to success
2160: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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---
2198: --
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:
2222: -- Changes for Post 11.5.10 by amagrawa
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:
2233: --Assign the returned value
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:
2277: IF UPPER(l_Task_rec.item_name) <> UPPER(l_item_name) THEN
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:
2283: --Assign the returned value
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:
2295: ELSE
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;
2315:
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
2354: l_Task_rec.instance_id := l_serial_id;
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 */
2372: END IF;
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:
2403: --Assign the returned value
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:
2452: --Assign the returned value
2619: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
2620: END IF;
2621:
2622: --Standard check to count messages
2623: l_msg_count := Fnd_Msg_Pub.count_msg;
2624:
2625: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
2626: x_msg_count := l_msg_count;
2627: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2652: END IF; -- Check for visit status code in case if closed or any other
2653:
2654: ---------------------------End of API Body---------------------------------------
2655: --Standard check to count messages
2656: l_msg_count := Fnd_Msg_Pub.count_msg;
2657:
2658: IF l_msg_count > 0 THEN
2659: x_msg_count := l_msg_count;
2660: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2674: EXCEPTION
2675: WHEN Fnd_Api.g_exc_error THEN
2676: ROLLBACK TO Create_Summary_Task;
2677: x_return_status := Fnd_Api.g_ret_sts_error;
2678: Fnd_Msg_Pub.count_and_get(
2679: p_encoded => Fnd_Api.g_false,
2680: p_count => x_msg_count,
2681: p_data => x_msg_data
2682: );
2682: );
2683: WHEN Fnd_Api.g_exc_unexpected_error THEN
2684: ROLLBACK TO Create_Summary_Task;
2685: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2686: Fnd_Msg_Pub.count_and_get (
2687: p_encoded => Fnd_Api.g_false,
2688: p_count => x_msg_count,
2689: p_data => x_msg_data
2690: );
2690: );
2691: WHEN OTHERS THEN
2692: ROLLBACK TO Create_Summary_Task;
2693: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2695: THEN
2696: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2697: END IF;
2698: Fnd_Msg_Pub.count_and_get (
2692: ROLLBACK TO Create_Summary_Task;
2693: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2695: THEN
2696: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2697: END IF;
2698: Fnd_Msg_Pub.count_and_get (
2699: p_encoded => Fnd_Api.g_false,
2700: p_count => x_msg_count,
2694: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2695: THEN
2696: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2697: END IF;
2698: Fnd_Msg_Pub.count_and_get (
2699: p_encoded => Fnd_Api.g_false,
2700: p_count => x_msg_count,
2701: p_data => x_msg_data
2702: );
2748: --------------------- initialize -----------------------
2749: SAVEPOINT Update_Task;
2750:
2751: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
2752: Fnd_Msg_Pub.initialize;
2753: END IF;
2754:
2755: -- Initialize API return status to success
2756: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2834: END IF;
2835:
2836: ------------------------End of API Body------------------------------------
2837: --Standard check to count messages
2838: l_msg_count := Fnd_Msg_Pub.count_msg;
2839:
2840: IF l_msg_count > 0 THEN
2841: x_msg_count := l_msg_count;
2842: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2857: EXCEPTION
2858: WHEN Fnd_Api.g_exc_error THEN
2859: ROLLBACK TO Update_Task;
2860: x_return_status := Fnd_Api.g_ret_sts_error;
2861: Fnd_Msg_Pub.count_and_get (
2862: p_encoded => Fnd_Api.g_false,
2863: p_count => x_msg_count,
2864: p_data => x_msg_data
2865: );
2865: );
2866: WHEN Fnd_Api.g_exc_unexpected_error THEN
2867: ROLLBACK TO Update_Task;
2868: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2869: Fnd_Msg_Pub.count_and_get (
2870: p_encoded => Fnd_Api.g_false,
2871: p_count => x_msg_count,
2872: p_data => x_msg_data
2873: );
2873: );
2874: WHEN OTHERS THEN
2875: ROLLBACK TO Update_Task;
2876: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2877: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2878: THEN
2879: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2880: END IF;
2881: Fnd_Msg_Pub.count_and_get (
2875: ROLLBACK TO Update_Task;
2876: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
2877: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2878: THEN
2879: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2880: END IF;
2881: Fnd_Msg_Pub.count_and_get (
2882: p_encoded => Fnd_Api.g_false,
2883: p_count => x_msg_count,
2877: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
2878: THEN
2879: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
2880: END IF;
2881: Fnd_Msg_Pub.count_and_get (
2882: p_encoded => Fnd_Api.g_false,
2883: p_count => x_msg_count,
2884: p_data => x_msg_data
2885: );
3067: --------------------- initialize -----------------------
3068: SAVEPOINT Update_Tasks_in_Planning;
3069:
3070: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3071: Fnd_Msg_Pub.initialize;
3072: END IF;
3073:
3074: -- Initialize API return status to success
3075: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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:
3143: -- Changes for Post 11.5.10 by cxcheng
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
3154: l_task_rec.department_id := NULL;
3421: --------------------------------------------------------------------------
3422:
3423: ------------------------End of API Body------------------------------------
3424: --Standard check to count messages
3425: l_msg_count := Fnd_Msg_Pub.count_msg;
3426:
3427: IF l_msg_count > 0 THEN
3428: x_msg_count := l_msg_count;
3429: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3444: EXCEPTION
3445: WHEN Fnd_Api.g_exc_error THEN
3446: ROLLBACK TO Update_Tasks_in_Planning;
3447: x_return_status := Fnd_Api.g_ret_sts_error;
3448: Fnd_Msg_Pub.count_and_get (
3449: p_encoded => Fnd_Api.g_false,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3452: );
3453: WHEN Fnd_Api.g_exc_unexpected_error THEN
3454: ROLLBACK TO Update_Tasks_in_Planning;
3455: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3456: Fnd_Msg_Pub.count_and_get (
3457: p_encoded => Fnd_Api.g_false,
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3460: );
3461: WHEN OTHERS THEN
3462: ROLLBACK TO Update_Tasks_in_Planning;
3463: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3464: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3465: THEN
3466: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3467: END IF;
3468: Fnd_Msg_Pub.count_and_get (
3462: ROLLBACK TO Update_Tasks_in_Planning;
3463: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3464: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3465: THEN
3466: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3467: END IF;
3468: Fnd_Msg_Pub.count_and_get (
3469: p_encoded => Fnd_Api.g_false,
3470: p_count => x_msg_count,
3464: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3465: THEN
3466: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3467: END IF;
3468: Fnd_Msg_Pub.count_and_get (
3469: p_encoded => Fnd_Api.g_false,
3470: p_count => x_msg_count,
3471: p_data => x_msg_data
3472: );
3583: --------------------- initialize -----------------------
3584: SAVEPOINT Update_Tasks_in_Production;
3585:
3586: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3587: Fnd_Msg_Pub.initialize;
3588: END IF;
3589:
3590: -- Initialize API return status to success
3591: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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
3625: l_Task_rec.cost_parent_id := l_cost_parent_id;
3726: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = '|| l_return_status );
3727: END IF;
3728:
3729: --Standard check to count messages
3730: l_msg_count := Fnd_Msg_Pub.count_msg;
3731:
3732: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
3733: x_msg_count := l_msg_count;
3734: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3749: END IF;
3750: END IF;
3751:
3752: --Standard check to count messages
3753: l_msg_count := Fnd_Msg_Pub.count_msg;
3754:
3755: IF l_msg_count > 0 THEN
3756: x_msg_count := l_msg_count;
3757: x_return_status := Fnd_Api.G_RET_STS_ERROR;
3771: EXCEPTION
3772: WHEN Fnd_Api.g_exc_error THEN
3773: ROLLBACK TO Update_Tasks_in_Production;
3774: x_return_status := Fnd_Api.g_ret_sts_error;
3775: Fnd_Msg_Pub.count_and_get (
3776: p_encoded => Fnd_Api.g_false,
3777: p_count => x_msg_count,
3778: p_data => x_msg_data
3779: );
3779: );
3780: WHEN Fnd_Api.g_exc_unexpected_error THEN
3781: ROLLBACK TO Update_Tasks_in_Production;
3782: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3783: Fnd_Msg_Pub.count_and_get (
3784: p_encoded => Fnd_Api.g_false,
3785: p_count => x_msg_count,
3786: p_data => x_msg_data
3787: );
3787: );
3788: WHEN OTHERS THEN
3789: ROLLBACK TO Update_Tasks_in_Production;
3790: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3791: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3792: THEN
3793: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3794: END IF;
3795: Fnd_Msg_Pub.count_and_get (
3789: ROLLBACK TO Update_Tasks_in_Production;
3790: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
3791: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3792: THEN
3793: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3794: END IF;
3795: Fnd_Msg_Pub.count_and_get (
3796: p_encoded => Fnd_Api.g_false,
3797: p_count => x_msg_count,
3791: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
3792: THEN
3793: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
3794: END IF;
3795: Fnd_Msg_Pub.count_and_get (
3796: p_encoded => Fnd_Api.g_false,
3797: p_count => x_msg_count,
3798: p_data => x_msg_data
3799: );
3855: --------------------- initialize -----------------------
3856: SAVEPOINT Update_Unassociated_Task;
3857:
3858: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
3859: Fnd_Msg_Pub.initialize;
3860: END IF;
3861:
3862: -- Initialize API return status to success
3863: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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:
3919: --Assign the returned value
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:
3958: --Assign the returned value
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;
3979: sowsubra - end */
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:
4011: --Assign the returned value
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:
4068: --Assign the returned value
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:
4164: --Standard check to count messages
4161: RAISE Fnd_Api.G_EXC_ERROR;
4162: END IF;
4163:
4164: --Standard check to count messages
4165: l_msg_count := Fnd_Msg_Pub.count_msg;
4166:
4167: IF l_msg_count > 0 THEN
4168: x_msg_count := l_msg_count;
4169: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4259: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
4260: END IF;
4261:
4262: --Standard check to count messages
4263: l_msg_count := Fnd_Msg_Pub.count_msg;
4264:
4265: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4266: x_msg_count := l_msg_count;
4267: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4329: -------------------- finish --------------------------
4330:
4331: ------------------------End of API Body------------------------------------
4332: --Standard check to count messages
4333: l_msg_count := Fnd_Msg_Pub.count_msg;
4334:
4335: IF l_msg_count > 0 THEN
4336: x_msg_count := l_msg_count;
4337: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4351: EXCEPTION
4352: WHEN Fnd_Api.g_exc_error THEN
4353: ROLLBACK TO Update_Unassociated_Task;
4354: x_return_status := Fnd_Api.g_ret_sts_error;
4355: Fnd_Msg_Pub.count_and_get (
4356: p_encoded => Fnd_Api.g_false,
4357: p_count => x_msg_count,
4358: p_data => x_msg_data
4359: );
4359: );
4360: WHEN Fnd_Api.g_exc_unexpected_error THEN
4361: ROLLBACK TO Update_Unassociated_Task;
4362: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4363: Fnd_Msg_Pub.count_and_get (
4364: p_encoded => Fnd_Api.g_false,
4365: p_count => x_msg_count,
4366: p_data => x_msg_data
4367: );
4367: );
4368: WHEN OTHERS THEN
4369: ROLLBACK TO Update_Unassociated_Task;
4370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4371: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4372: THEN
4373: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4374: END IF;
4375: Fnd_Msg_Pub.count_and_get (
4369: ROLLBACK TO Update_Unassociated_Task;
4370: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4371: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4372: THEN
4373: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4374: END IF;
4375: Fnd_Msg_Pub.count_and_get (
4376: p_encoded => Fnd_Api.g_false,
4377: p_count => x_msg_count,
4371: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4372: THEN
4373: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4374: END IF;
4375: Fnd_Msg_Pub.count_and_get (
4376: p_encoded => Fnd_Api.g_false,
4377: p_count => x_msg_count,
4378: p_data => x_msg_data
4379: );
4434: --------------------- initialize -----------------------
4435: SAVEPOINT Update_Summary_Task;
4436:
4437: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4438: Fnd_Msg_Pub.initialize;
4439: END IF;
4440:
4441: -- Initialize API return status to success
4442: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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:
4498: --Assign the returned value
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:
4539: --Assign the returned value
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 */
4558:
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:
4606: --Assign the returned value
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:
4663: --Assign the returned value
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:
4728: --Standard check to count messages
4725: RAISE Fnd_Api.G_EXC_ERROR;
4726: END IF;
4727:
4728: --Standard check to count messages
4729: l_msg_count := Fnd_Msg_Pub.count_msg;
4730:
4731: IF l_msg_count > 0 THEN
4732: x_msg_count := l_msg_count;
4733: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4824: 'After Calling AHL_VWP_TIMES_PVT.Adjust_Task_Times, Return Status = ' || l_return_status);
4825: END IF;
4826:
4827: --Standard check to count messages
4828: l_msg_count := Fnd_Msg_Pub.count_msg;
4829:
4830: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
4831: x_msg_count := l_msg_count;
4832: x_return_status := Fnd_Api.G_RET_STS_ERROR;
4847: EXCEPTION
4848: WHEN Fnd_Api.g_exc_error THEN
4849: ROLLBACK TO Update_Summary_Task;
4850: x_return_status := Fnd_Api.g_ret_sts_error;
4851: Fnd_Msg_Pub.count_and_get (
4852: p_encoded => Fnd_Api.g_false,
4853: p_count => x_msg_count,
4854: p_data => x_msg_data
4855: );
4855: );
4856: WHEN Fnd_Api.g_exc_unexpected_error THEN
4857: ROLLBACK TO Update_Summary_Task;
4858: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4859: Fnd_Msg_Pub.count_and_get (
4860: p_encoded => Fnd_Api.g_false,
4861: p_count => x_msg_count,
4862: p_data => x_msg_data
4863: );
4863: );
4864: WHEN OTHERS THEN
4865: ROLLBACK TO Update_Summary_Task;
4866: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4867: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4868: THEN
4869: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4870: END IF;
4871: Fnd_Msg_Pub.count_and_get (
4865: ROLLBACK TO Update_Summary_Task;
4866: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
4867: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4868: THEN
4869: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4870: END IF;
4871: Fnd_Msg_Pub.count_and_get (
4872: p_encoded => Fnd_Api.g_false,
4873: p_count => x_msg_count,
4867: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
4868: THEN
4869: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
4870: END IF;
4871: Fnd_Msg_Pub.count_and_get (
4872: p_encoded => Fnd_Api.g_false,
4873: p_count => x_msg_count,
4874: p_data => x_msg_data
4875: );
4966: --------------------- initialize -----------------------
4967: SAVEPOINT Delete_Task;
4968:
4969: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
4970: Fnd_Msg_Pub.initialize;
4971: END IF;
4972:
4973: -- Initialize API return status to success
4974: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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
5016:
5112: END IF;
5113:
5114: END IF;
5115:
5116: l_msg_count := Fnd_Msg_Pub.count_msg;
5117:
5118: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5119: x_msg_count := l_msg_count;
5120: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5263: L_DEBUG_KEY,
5264: 'After Calling CS_ServiceRequest_PUB.Update_Status, Return Status = ' || l_return_status);
5265: END IF;
5266:
5267: l_msg_count := Fnd_Msg_Pub.count_msg;
5268:
5269: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5270: x_msg_count := l_msg_count;
5271: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5289: END IF;
5290: ------------------------End of API Body------------------------------------
5291:
5292: --Standard check to count messages
5293: l_msg_count := Fnd_Msg_Pub.count_msg;
5294:
5295: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5296: x_msg_count := l_msg_count;
5297: x_return_status := Fnd_Api.G_RET_STS_ERROR;
5312: EXCEPTION
5313: WHEN Fnd_Api.g_exc_error THEN
5314: ROLLBACK TO Delete_Task;
5315: x_return_status := Fnd_Api.g_ret_sts_error;
5316: Fnd_Msg_Pub.count_and_get (
5317: p_encoded => Fnd_Api.g_false,
5318: p_count => x_msg_count,
5319: p_data => x_msg_data
5320: );
5320: );
5321: WHEN Fnd_Api.g_exc_unexpected_error THEN
5322: ROLLBACK TO Delete_Task;
5323: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5324: Fnd_Msg_Pub.count_and_get (
5325: p_encoded => Fnd_Api.g_false,
5326: p_count => x_msg_count,
5327: p_data => x_msg_data
5328: );
5328: );
5329: WHEN OTHERS THEN
5330: ROLLBACK TO Delete_Task;
5331: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5333: THEN
5334: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5335: END IF;
5336: Fnd_Msg_Pub.count_and_get (
5330: ROLLBACK TO Delete_Task;
5331: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5333: THEN
5334: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5335: END IF;
5336: Fnd_Msg_Pub.count_and_get (
5337: p_encoded => Fnd_Api.g_false,
5338: p_count => x_msg_count,
5332: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5333: THEN
5334: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5335: END IF;
5336: Fnd_Msg_Pub.count_and_get (
5337: p_encoded => Fnd_Api.g_false,
5338: p_count => x_msg_count,
5339: p_data => x_msg_data
5340: );
5433: --------------------- initialize -----------------------
5434: SAVEPOINT Delete_Unassociated_Task;
5435:
5436: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5437: Fnd_Msg_Pub.initialize;
5438: END IF;
5439:
5440: -- Initialize API return status to success
5441: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
5462: FETCH c_Task INTO c_task_rec;
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;
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;
5472: CLOSE c_Task;
5488: Get_WorkOrder_Attribs(
5489: p_x_prd_workorder_rec => l_workorder_rec
5490: );
5491:
5492: l_msg_count := FND_MSG_PUB.count_msg;
5493: IF l_msg_count > 0 THEN
5494: x_msg_count := l_msg_count;
5495: x_return_status := FND_API.G_RET_STS_ERROR;
5496: RAISE FND_API.G_EXC_ERROR;
5525: L_DEBUG_KEY,
5526: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5527: END IF;
5528:
5529: l_msg_count := FND_MSG_PUB.count_msg;
5530: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5531: x_msg_count := l_msg_count;
5532: x_return_status := FND_API.G_RET_STS_ERROR;
5533: RAISE FND_API.G_EXC_ERROR;
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;
5543:
5630: x_return_status => l_return_status);
5631: /*x_msg_count => x_msg_count,
5632: x_msg_data => x_msg_data);*/
5633:
5634: l_msg_count := FND_MSG_PUB.count_msg;
5635: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5636: x_msg_count := l_msg_count;
5637: x_return_status := FND_API.G_RET_STS_ERROR;
5638: RAISE FND_API.G_EXC_ERROR;
5651: DELETE FROM Ahl_Visit_Tasks_TL
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;
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;
5661:
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:
5672: ELSE
5687: IF Fnd_Api.to_boolean (p_commit) THEN
5688: COMMIT;
5689: END IF;
5690:
5691: Fnd_Msg_Pub.count_and_get (
5692: p_encoded => Fnd_Api.g_false,
5693: p_count => x_msg_count,
5694: p_data => x_msg_data
5695: );
5702: EXCEPTION
5703: WHEN Fnd_Api.g_exc_error THEN
5704: ROLLBACK TO Delete_Unassociated_Task;
5705: x_return_status := Fnd_Api.g_ret_sts_error;
5706: Fnd_Msg_Pub.count_and_get (
5707: p_encoded => Fnd_Api.g_false,
5708: p_count => x_msg_count,
5709: p_data => x_msg_data
5710: );
5710: );
5711: WHEN Fnd_Api.g_exc_unexpected_error THEN
5712: ROLLBACK TO Delete_Unassociated_Task;
5713: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5714: Fnd_Msg_Pub.count_and_get (
5715: p_encoded => Fnd_Api.g_false,
5716: p_count => x_msg_count,
5717: p_data => x_msg_data
5718: );
5718: );
5719: WHEN OTHERS THEN
5720: ROLLBACK TO Delete_Unassociated_Task;
5721: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5722: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5723: THEN
5724: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5725: END IF;
5726: Fnd_Msg_Pub.count_and_get (
5720: ROLLBACK TO Delete_Unassociated_Task;
5721: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
5722: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5723: THEN
5724: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5725: END IF;
5726: Fnd_Msg_Pub.count_and_get (
5727: p_encoded => Fnd_Api.g_false,
5728: p_count => x_msg_count,
5722: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
5723: THEN
5724: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
5725: END IF;
5726: Fnd_Msg_Pub.count_and_get (
5727: p_encoded => Fnd_Api.g_false,
5728: p_count => x_msg_count,
5729: p_data => x_msg_data
5730: );
5830:
5831: SAVEPOINT Delete_SR_Task;
5832:
5833: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
5834: Fnd_Msg_Pub.initialize;
5835: END IF;
5836:
5837: -- Initialize API return status to success
5838:
5858:
5859: IF c_Task%NOTFOUND THEN
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;
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
5869: l_orgin_id :=c_task_rec.ORIGINATING_TASK_ID;
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;
5908: -- IF STATUS IS NOT DRAFT RAISE ERROR.
5916: (
5917: p_x_prd_workorder_rec =>l_workorder_rec
5918: );
5919:
5920: l_msg_count := FND_MSG_PUB.count_msg;
5921:
5922: IF l_msg_count > 0 THEN
5923: CLOSE c_workorders;
5924: CLOSE c_SR_tasks;
5958: L_DEBUG_KEY,
5959: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status);
5960: END IF;
5961:
5962: l_msg_count := FND_MSG_PUB.count_msg;
5963: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5964: CLOSE c_workorders;
5965: CLOSE c_SR_tasks;
5966: x_msg_count := l_msg_count;
5986: p_visit_task_id =>l_task_ID,
5987: x_return_status =>x_return_status
5988: );
5989:
5990: IF FND_MSG_PUB.count_msg>0 or NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
5991: CLOSE c_SR_tasks;
5992: RAISE Fnd_Api.g_exc_error;
5993: END IF;
5994:
6039: L_DEBUG_KEY,
6040: 'After Calling AHL_VWP_PROJ_PROD_PVT.Delete_Task_to_Project, Return Status = ' || l_return_status);
6041: END IF;
6042:
6043: IF (fnd_msg_pub.count_msg > 0) OR
6044: NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6045: CLOSE c_SR_tasks;
6046: RAISE Fnd_Api.g_exc_error;
6047: END IF;
6079: DELETE FROM Ahl_Visit_Tasks_TL
6080: WHERE Visit_Task_ID = l_task_id;
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;
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;
6090: END IF;
6100: DELETE FROM Ahl_Visit_Tasks_B
6101: WHERE Visit_Task_ID = l_task_id;
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;
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;
6111: END IF;
6146: EXCEPTION
6147: WHEN Fnd_Api.g_exc_error THEN
6148: ROLLBACK TO Delete_SR_Task;
6149: x_return_status := Fnd_Api.g_ret_sts_error;
6150: Fnd_Msg_Pub.count_and_get (
6151: p_encoded => Fnd_Api.g_false,
6152: p_count => x_msg_count,
6153: p_data => x_msg_data
6154: );
6154: );
6155: WHEN Fnd_Api.g_exc_unexpected_error THEN
6156: ROLLBACK TO Delete_SR_Task;
6157: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6158: Fnd_Msg_Pub.count_and_get (
6159: p_encoded => Fnd_Api.g_false,
6160: p_count => x_msg_count,
6161: p_data => x_msg_data
6162: );
6162: );
6163: WHEN OTHERS THEN
6164: ROLLBACK TO Delete_SR_Task;
6165: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6166: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6167: THEN
6168: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6169: END IF;
6170: Fnd_Msg_Pub.count_and_get (
6164: ROLLBACK TO Delete_SR_Task;
6165: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6166: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6167: THEN
6168: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6169: END IF;
6170: Fnd_Msg_Pub.count_and_get (
6171: p_encoded => Fnd_Api.g_false,
6172: p_count => x_msg_count,
6166: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6167: THEN
6168: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6169: END IF;
6170: Fnd_Msg_Pub.count_and_get (
6171: p_encoded => Fnd_Api.g_false,
6172: p_count => x_msg_count,
6173: p_data => x_msg_data
6174: );
6287: SAVEPOINT Delete_Summary_Task;
6288: -- Check if API is called in debug mode. If yes, enable debug.
6289:
6290: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
6291: Fnd_Msg_Pub.initialize;
6292: END IF;
6293:
6294: -- Initialize API return status to success
6295:
6316:
6317: IF c_Task%NOTFOUND THEN
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;
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:
6327: END IF; -- End of if c_task%notfound then check
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:
6383: l_unit_effectivity_id := null;
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;
6425: -- IF STATUS IS NOT DRAFT RAISE ERROR.
6431: (
6432: p_x_prd_workorder_rec =>l_workorder_rec
6433: );
6434:
6435: l_msg_count := FND_MSG_PUB.count_msg;
6436:
6437: IF l_msg_count > 0 THEN
6438: x_msg_count := l_msg_count;
6439: x_return_status := FND_API.G_RET_STS_ERROR;
6472: L_DEBUG_KEY,
6473: 'After Calling AHL_PRD_WORKORDER_PVT.update_job, Return Status = ' || x_return_status );
6474: END IF;
6475:
6476: l_msg_count := FND_MSG_PUB.count_msg;
6477: IF l_msg_count > 0 OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6478: x_msg_count := l_msg_count;
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480: CLOSE c_workorders;
6547: x_return_status => l_return_status);
6548: /* x_msg_count => x_msg_count,
6549: x_msg_data => x_msg_data);*/
6550:
6551: IF (fnd_msg_pub.count_msg > 0) OR NVL(x_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
6552: x_return_status := FND_API.G_RET_STS_ERROR;
6553: CLOSE c_all_tasks;
6554: RAISE FND_API.G_EXC_ERROR;
6555: END IF;
6603: 'Before DELETE');
6604: END IF;
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;
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;
6614: END IF;
6623: DELETE FROM Ahl_Visit_Tasks_B
6624: WHERE Visit_Task_ID = l_task_id;
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;
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;
6634: END IF;
6718: fnd_log.string(l_log_statement,
6719: L_DEBUG_KEY,
6720: 'After Delete_SR_Task');
6721: END IF;
6722: IF (fnd_msg_pub.count_msg > 0 ) THEN
6723:
6724: IF (l_log_statement >= l_log_current_level)THEN
6725: fnd_log.string(l_log_statement,
6726: L_DEBUG_KEY,
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:
6827: -- Delete task base (AHL_VISIT_TASKS_B) table data
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:
6843: END IF;
6852: IF Fnd_Api.to_boolean (p_commit) THEN
6853: COMMIT;
6854: END IF;
6855:
6856: Fnd_Msg_Pub.count_and_get (
6857: p_encoded => Fnd_Api.g_false,
6858: p_count => x_msg_count,
6859: p_data => x_msg_data
6860: );
6868: EXCEPTION
6869: WHEN Fnd_Api.g_exc_error THEN
6870: ROLLBACK TO Delete_Summary_Task;
6871: x_return_status := Fnd_Api.g_ret_sts_error;
6872: Fnd_Msg_Pub.count_and_get (
6873: p_encoded => Fnd_Api.g_false,
6874: p_count => x_msg_count,
6875: p_data => x_msg_data
6876: );
6876: );
6877: WHEN Fnd_Api.g_exc_unexpected_error THEN
6878: ROLLBACK TO Delete_Summary_Task;
6879: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6880: Fnd_Msg_Pub.count_and_get (
6881: p_encoded => Fnd_Api.g_false,
6882: p_count => x_msg_count,
6883: p_data => x_msg_data
6884: );
6884: );
6885: WHEN OTHERS THEN
6886: ROLLBACK TO Delete_Summary_Task;
6887: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6888: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6889: THEN
6890: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6891: END IF;
6892: Fnd_Msg_Pub.count_and_get (
6886: ROLLBACK TO Delete_Summary_Task;
6887: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
6888: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6889: THEN
6890: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6891: END IF;
6892: Fnd_Msg_Pub.count_and_get (
6893: p_encoded => Fnd_Api.g_false,
6894: p_count => x_msg_count,
6888: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
6889: THEN
6890: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
6891: END IF;
6892: Fnd_Msg_Pub.count_and_get (
6893: p_encoded => Fnd_Api.g_false,
6894: p_count => x_msg_count,
6895: p_data => x_msg_data
6896: );
6953:
6954: -- Initialize message list if p_init_msg_list is set to TRUE.
6955: IF Fnd_Api.to_boolean(p_init_msg_list)
6956: THEN
6957: Fnd_Msg_Pub.initialize;
6958: END IF;
6959:
6960: -- Initialize API return status to success
6961: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7033: END IF;
7034:
7035: ---------------------------End of Body---------------------------------------
7036: --Standard check to count messages
7037: l_msg_count := Fnd_Msg_Pub.count_msg;
7038:
7039: IF l_msg_count > 0 THEN
7040: x_msg_count := l_msg_count;
7041: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7056: EXCEPTION
7057: WHEN Fnd_Api.g_exc_error THEN
7058: ROLLBACK TO Search_Task;
7059: x_return_status := Fnd_Api.g_ret_sts_error;
7060: Fnd_Msg_Pub.count_and_get(
7061: p_encoded => Fnd_Api.g_false,
7062: p_count => x_msg_count,
7063: p_data => x_msg_data
7064: );
7064: );
7065: WHEN Fnd_Api.g_exc_unexpected_error THEN
7066: ROLLBACK TO Search_Task;
7067: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7068: Fnd_Msg_Pub.count_and_get (
7069: p_encoded => Fnd_Api.g_false,
7070: p_count => x_msg_count,
7071: p_data => x_msg_data
7072: );
7072: );
7073: WHEN OTHERS THEN
7074: ROLLBACK TO Search_Task;
7075: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7076: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7077: THEN
7078: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7079: END IF;
7080: Fnd_Msg_Pub.count_and_get (
7074: ROLLBACK TO Search_Task;
7075: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7076: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7077: THEN
7078: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7079: END IF;
7080: Fnd_Msg_Pub.count_and_get (
7081: p_encoded => Fnd_Api.g_false,
7082: p_count => x_msg_count,
7076: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7077: THEN
7078: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7079: END IF;
7080: Fnd_Msg_Pub.count_and_get (
7081: p_encoded => Fnd_Api.g_false,
7082: p_count => x_msg_count,
7083: p_data => x_msg_data
7084: );
7117: 'At the start of PL SQL procedure.');
7118: END IF;
7119:
7120: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
7121: Fnd_Msg_Pub.initialize;
7122: END IF;
7123:
7124: IF NOT Fnd_Api.compatible_api_call (
7125: l_api_version,
7159: END IF;
7160:
7161: -------------------- finish --------------------------
7162: -- Standard call to get message count and if count is 1, get message info
7163: Fnd_Msg_Pub.count_and_get (
7164: p_encoded => Fnd_Api.g_false,
7165: p_count => x_msg_count,
7166: p_data => x_msg_data
7167: );
7173: END IF;
7174: EXCEPTION
7175: WHEN Fnd_Api.g_exc_error THEN
7176: x_return_status := Fnd_Api.g_ret_sts_error;
7177: Fnd_Msg_Pub.count_and_get (
7178: p_encoded => Fnd_Api.g_false,
7179: p_count => x_msg_count,
7180: p_data => x_msg_data
7181: );
7180: p_data => x_msg_data
7181: );
7182: WHEN Fnd_Api.g_exc_unexpected_error THEN
7183: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7184: Fnd_Msg_Pub.count_and_get (
7185: p_encoded => Fnd_Api.g_false,
7186: p_count => x_msg_count,
7187: p_data => x_msg_data
7188: );
7187: p_data => x_msg_data
7188: );
7189: WHEN OTHERS THEN
7190: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
7191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7192: THEN
7193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7194: END IF;
7195: Fnd_Msg_Pub.count_and_get (
7189: WHEN OTHERS THEN
7190: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
7191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7192: THEN
7193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7194: END IF;
7195: Fnd_Msg_Pub.count_and_get (
7196: p_encoded => Fnd_Api.g_false,
7197: p_count => x_msg_count,
7191: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7192: THEN
7193: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7194: END IF;
7195: Fnd_Msg_Pub.count_and_get (
7196: p_encoded => Fnd_Api.g_false,
7197: p_count => x_msg_count,
7198: p_data => x_msg_data
7199: );
7292: OPEN c_Visit_Task;
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;
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;
7302: CLOSE c_Visit_Task;
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:
7352: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
7352: IF UPPER(p_task_rec.TASK_TYPE_CODE) = 'UNASSOCIATED' THEN
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;
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;
7362:
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:
7370: IF (p_task_rec.DURATION IS NOT NULL AND p_Task_rec.DURATION <> Fnd_Api.G_MISS_NUM) THEN
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;
7377:
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
7390: IF (p_Task_rec.SERIAL_NUMBER IS NOT NULL) THEN
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;
7396: CLOSE c_check_inst_nonserial;
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;
7409:
7457: 'Ahl_Visit_Tasks_vl',
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;
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;
7467: END IF;
7535:
7536: -- Initialize message list if p_init_msg_list is set to TRUE.
7537: IF Fnd_Api.to_boolean(p_init_msg_list)
7538: THEN
7539: Fnd_Msg_Pub.initialize;
7540: END IF;
7541:
7542: -- Initialize API return status to success
7543: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
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
7578: LOOP
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;
7598: -- End changes by rnahata for Issue 105
7622: L_DEBUG_KEY,
7623: 'After calling Create_Planned_Task, Return Status = ' ||
7624: l_return_status);
7625: END IF;
7626: l_msg_count := Fnd_Msg_Pub.count_msg;
7627:
7628: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7629: x_msg_count := l_msg_count;
7630: x_return_status := Fnd_Api.G_RET_STS_ERROR;
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:
7646: IF (l_task_tbl(i).QUANTITY <= 0 ) THEN
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:
7652: IF (l_task_tbl(i).QUANTITY > l_instance_qty ) THEN
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
7658:
7680: L_DEBUG_KEY,
7681: 'After Calling Create_Unplanned_Task, Return Status = ' || l_return_status );
7682: END IF;
7683:
7684: l_msg_count := Fnd_Msg_Pub.count_msg;
7685:
7686: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7687: x_msg_count := l_msg_count;
7688: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7732: END IF;
7733: p_x_task_tbl:=l_task_tbl; --Added by rnahata for Bug 6939329
7734: --------------------End of API Body-------------------------------------
7735: --Standard check to count messages
7736: l_msg_count := Fnd_Msg_Pub.count_msg;
7737:
7738: IF l_msg_count > 0 THEN
7739: x_msg_count := l_msg_count;
7740: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7754: EXCEPTION
7755: WHEN Fnd_Api.g_exc_error THEN
7756: ROLLBACK TO Create_PUP_Tasks;
7757: x_return_status := Fnd_Api.g_ret_sts_error;
7758: Fnd_Msg_Pub.count_and_get(
7759: p_encoded => Fnd_Api.g_false,
7760: p_count => x_msg_count,
7761: p_data => x_msg_data
7762: );
7762: );
7763: WHEN Fnd_Api.g_exc_unexpected_error THEN
7764: ROLLBACK TO Create_PUP_Tasks;
7765: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7766: Fnd_Msg_Pub.count_and_get (
7767: p_encoded => Fnd_Api.g_false,
7768: p_count => x_msg_count,
7769: p_data => x_msg_data
7770: );
7770: );
7771: WHEN OTHERS THEN
7772: ROLLBACK TO Create_PUP_Tasks;
7773: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7774: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7775: THEN
7776: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7777: END IF;
7778: Fnd_Msg_Pub.count_and_get (
7772: ROLLBACK TO Create_PUP_Tasks;
7773: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
7774: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7775: THEN
7776: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7777: END IF;
7778: Fnd_Msg_Pub.count_and_get (
7779: p_encoded => Fnd_Api.g_false,
7780: p_count => x_msg_count,
7774: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
7775: THEN
7776: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
7777: END IF;
7778: Fnd_Msg_Pub.count_and_get (
7779: p_encoded => Fnd_Api.g_false,
7780: p_count => x_msg_count,
7781: p_data => x_msg_data
7782: );
7863:
7864: -- Initialize message list if p_init_msg_list is set to TRUE.
7865: IF Fnd_Api.to_boolean(p_init_msg_list)
7866: THEN
7867: Fnd_Msg_Pub.initialize;
7868: END IF;
7869:
7870: -- Initialize API return status to success
7871: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
7907: L_DEBUG_KEY,
7908: 'After calling AHL_FMP_PVT.GET_VISIT_APPLICABLE_MRS. Return status = ' || L_RETURN_STATUS || ', l_instance_id = ' || l_instance_id);
7909: END IF;
7910:
7911: l_msg_count := Fnd_Msg_Pub.count_msg;
7912:
7913: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7914: x_msg_count := l_msg_count;
7915: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7958: x_return_status => l_return_status,
7959: x_msg_count => l_msg_count,
7960: x_msg_data => l_msg_data);
7961:
7962: l_msg_count := Fnd_Msg_Pub.count_msg;
7963:
7964: IF l_msg_count > 0 OR NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
7965: x_msg_count := l_msg_count;
7966: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7971:
7972: END IF; -- Visit id and Visit type is not null.
7973: --------------------End of API Body-------------------------------------
7974: --Standard check to count messages
7975: l_msg_count := Fnd_Msg_Pub.count_msg;
7976:
7977: IF l_msg_count > 0 THEN
7978: x_msg_count := l_msg_count;
7979: x_return_status := Fnd_Api.G_RET_STS_ERROR;
7988: EXCEPTION
7989: WHEN Fnd_Api.g_exc_error THEN
7990: ROLLBACK TO associate_default_mrs;
7991: x_return_status := Fnd_Api.g_ret_sts_error;
7992: Fnd_Msg_Pub.count_and_get(
7993: p_encoded => Fnd_Api.g_false,
7994: p_count => x_msg_count,
7995: p_data => x_msg_data
7996: );
7996: );
7997: WHEN Fnd_Api.g_exc_unexpected_error THEN
7998: ROLLBACK TO associate_default_mrs;
7999: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8000: Fnd_Msg_Pub.count_and_get (
8001: p_encoded => Fnd_Api.g_false,
8002: p_count => x_msg_count,
8003: p_data => x_msg_data
8004: );
8004: );
8005: WHEN OTHERS THEN
8006: ROLLBACK TO associate_default_mrs;
8007: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8008: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8009: THEN
8010: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8011: END IF;
8012: Fnd_Msg_Pub.count_and_get (
8006: ROLLBACK TO associate_default_mrs;
8007: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
8008: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8009: THEN
8010: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8011: END IF;
8012: Fnd_Msg_Pub.count_and_get (
8013: p_encoded => Fnd_Api.g_false,
8014: p_count => x_msg_count,
8008: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
8009: THEN
8010: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
8011: END IF;
8012: Fnd_Msg_Pub.count_and_get (
8013: p_encoded => Fnd_Api.g_false,
8014: p_count => x_msg_count,
8015: p_data => x_msg_data
8016: );