[Home] [Help]
331: x_return_status => l_return_status,
332: x_error_msg_code => l_msg_data);
333:
334: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
335: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
336: Fnd_Msg_Pub.ADD;
337: RAISE Fnd_Api.G_EXC_ERROR;
338: END IF;
339:
342: (P_DEPT_ID => p_x_task_Rec.department_id,
343: X_RETURN_STATUS => l_return_status);
344:
345: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
346: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
347: Fnd_Msg_Pub.ADD;
348: RAISE Fnd_Api.G_EXC_ERROR;
349: END IF;
350: ELSE
362: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_statement,L_DEBUG,' NO ORGANIZATION FOR VISIT');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
367: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
369: END IF;
370: END IF; -- End of if visit org exists
378: x_return_status => l_return_status,
379: x_error_msg_code => l_msg_data);
380:
381: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
382: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
383: Fnd_Msg_Pub.ADD;
384: RAISE Fnd_Api.g_exc_error;
385: END IF;
386:
661: IF c_unit%FOUND AND p_module_type <> 'SR' THEN
662: CLOSE c_unit;
663: -- ERROR MESSAGE
664: x_return_status := Fnd_Api.g_ret_sts_error;
665: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_FOUND');
666: Fnd_Message.SET_TOKEN('VISIT_NUMBER', l_visit_number);
667: Fnd_Msg_Pub.ADD;
668: ELSE -- UE not planned in any other Visit
669: CLOSE c_unit;
662: CLOSE c_unit;
663: -- ERROR MESSAGE
664: x_return_status := Fnd_Api.g_ret_sts_error;
665: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_FOUND');
666: Fnd_Message.SET_TOKEN('VISIT_NUMBER', l_visit_number);
667: Fnd_Msg_Pub.ADD;
668: ELSE -- UE not planned in any other Visit
669: CLOSE c_unit;
670:
793: -- NR-MR Changes - sowsubra
794: -- Done to allow creation of a task for an instance that has already been removed.
795: /***
796: IF AHL_VWP_RULES_PVT.instance_in_config_tree(l_visit_id, l_serial_id) = FND_API.G_RET_STS_ERROR THEN
797: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
798: Fnd_Msg_Pub.ADD;
799: RAISE Fnd_Api.G_EXC_ERROR;
800: END IF; ***/
801:
936: END IF;
937: /* End changes by rnahata for Bug 6939329 */
938: END IF; -- c_unit%FOUND
939: ELSE -- l_unit_effectivity_id
940: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_UNIT_EFFECTIVITY');
941: Fnd_Msg_Pub.ADD;
942: RAISE FND_API.G_EXC_ERROR;
943: END IF; -- End of unit effectivity check
944:
1139: -- NR-MR Changes - sowsubra
1140: -- Done to allow creation of a task for an instance that has already been removed.
1141: /***
1142: IF AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, l_serial_id) = FND_API.G_RET_STS_ERROR THEN
1143: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1144: Fnd_Msg_Pub.ADD;
1145: RAISE Fnd_Api.G_EXC_ERROR;
1146: END IF;
1147: ***/
1374: x_error_msg_code => l_msg_data);
1375:
1376: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
1377: THEN
1378: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1379: Fnd_Msg_Pub.ADD;
1380: RAISE Fnd_Api.G_EXC_ERROR;
1381: END IF;
1382:
1404: x_error_msg_code => l_msg_data);
1405:
1406: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
1407: THEN
1408: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
1409: Fnd_Msg_Pub.ADD;
1410: RAISE Fnd_Api.g_exc_error;
1411: END IF;
1412:
1465: END IF;
1466:
1467: -- Check Object version number.
1468: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
1469: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1470: Fnd_Msg_Pub.ADD;
1471: RAISE Fnd_Api.g_exc_error;
1472: END IF;
1473:
1756: FETCH c_Task INTO c_task_rec;
1757:
1758: IF c_Task%NOTFOUND THEN
1759: CLOSE c_Task;
1760: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1761: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1762: Fnd_Msg_Pub.ADD;
1763: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1764: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1757:
1758: IF c_Task%NOTFOUND THEN
1759: CLOSE c_Task;
1760: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1761: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1762: Fnd_Msg_Pub.ADD;
1763: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1764: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1765: END IF;
1792: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
1793: RAISE Fnd_Api.G_EXC_ERROR;
1794: END IF;
1795: ELSE
1796: Fnd_Message.SET_NAME('AHL','AHL_VWP_PLANNEDTASKMR');
1797: Fnd_Msg_Pub.ADD;
1798: RAISE Fnd_Api.G_EXC_ERROR;
1799: End IF;
1800: END IF;
1934: OPEN c_Visit_Task;
1935: FETCH c_Visit_Task INTO l_task_rec;
1936: IF c_Visit_Task%NOTFOUND THEN
1937: CLOSE c_Visit_Task;
1938: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1939: Fnd_Msg_Pub.ADD;
1940: RAISE Fnd_Api.g_exc_error;
1941: END IF;
1942: CLOSE c_Visit_Task;
1969: END IF;
1970:
1971: -- TASK NAME ==== NAME
1972: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1973: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1974: Fnd_Msg_Pub.ADD;
1975: x_return_status := Fnd_Api.g_ret_sts_error;
1976: RETURN;
1977: END IF;
1981: END IF;
1982:
1983: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1984: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1985: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
1986: Fnd_Msg_Pub.ADD;
1987: x_return_status := Fnd_Api.g_ret_sts_error;
1988: RETURN;
1989: END IF;
2026: 'Ahl_Visit_Tasks_vl',
2027: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
2028: ) = Fnd_Api.g_false
2029: THEN
2030: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
2031: Fnd_Msg_Pub.ADD;
2032: x_return_status := Fnd_Api.g_ret_sts_error;
2033: RETURN;
2034: END IF;