[Home] [Help]
338: x_return_status => l_return_status,
339: x_error_msg_code => l_msg_data);
340:
341: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
342: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
343: Fnd_Msg_Pub.ADD;
344: RAISE Fnd_Api.G_EXC_ERROR;
345: END IF;
346:
349: (P_DEPT_ID => p_x_task_Rec.department_id,
350: X_RETURN_STATUS => l_return_status);
351:
352: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
353: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
354: Fnd_Msg_Pub.ADD;
355: RAISE Fnd_Api.G_EXC_ERROR;
356: END IF;
357: ELSE
369: IF (p_x_task_Rec.dept_name IS NOT NULL AND p_x_task_Rec.dept_name <> Fnd_Api.G_MISS_CHAR ) THEN
370: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
371: fnd_log.string(fnd_log.level_statement,L_DEBUG,' NO ORGANIZATION FOR VISIT');
372: END IF;
373: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
374: Fnd_Msg_Pub.ADD;
375: RAISE Fnd_Api.G_EXC_ERROR;
376: END IF;
377: END IF; -- End of if visit org exists
385: x_return_status => l_return_status,
386: x_error_msg_code => l_msg_data);
387:
388: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
389: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERVICE_REQ_NOT_EXISTS');
390: Fnd_Msg_Pub.ADD;
391: RAISE Fnd_Api.g_exc_error;
392: END IF;
393:
685: IF c_unit%FOUND AND p_module_type <> 'SR' THEN
686: CLOSE c_unit;
687: -- ERROR MESSAGE
688: x_return_status := Fnd_Api.g_ret_sts_error;
689: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_FOUND');
690: Fnd_Message.SET_TOKEN('VISIT_NUMBER', l_visit_number);
691: Fnd_Msg_Pub.ADD;
692: ELSE -- UE not planned in any other Visit
693: CLOSE c_unit;
686: CLOSE c_unit;
687: -- ERROR MESSAGE
688: x_return_status := Fnd_Api.g_ret_sts_error;
689: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNIT_FOUND');
690: Fnd_Message.SET_TOKEN('VISIT_NUMBER', l_visit_number);
691: Fnd_Msg_Pub.ADD;
692: ELSE -- UE not planned in any other Visit
693: CLOSE c_unit;
694:
833: -- NR-MR Changes - sowsubra
834: -- Done to allow creation of a task for an instance that has already been removed.
835: /***
836: IF AHL_VWP_RULES_PVT.instance_in_config_tree(l_visit_id, l_serial_id) = FND_API.G_RET_STS_ERROR THEN
837: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
838: Fnd_Msg_Pub.ADD;
839: RAISE Fnd_Api.G_EXC_ERROR;
840: END IF; ***/
841:
1003: END IF;
1004: /* End changes by rnahata for Bug 6939329 */
1005: END IF; -- c_unit%FOUND
1006: ELSE -- l_unit_effectivity_id
1007: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_UNIT_EFFECTIVITY');
1008: Fnd_Msg_Pub.ADD;
1009: RAISE FND_API.G_EXC_ERROR;
1010: END IF; -- End of unit effectivity check
1011:
1234: OPEN c_validate_mr (p_ue_id);
1235: FETCH c_validate_mr INTO l_dummy;
1236: IF c_validate_mr%FOUND THEN
1237: CLOSE c_validate_mr;
1238: Fnd_Message.SET_NAME('AHL','AHL_VWP_NR_MR_EXPIRED');
1239: Fnd_Msg_Pub.ADD;
1240: RAISE Fnd_Api.G_EXC_ERROR;
1241: END IF;
1242: CLOSE c_validate_mr;
1254: OPEN c_validate_child_mrs (l_mr_header_id);
1255: FETCH c_validate_child_mrs INTO l_dummy1;
1256: IF c_validate_child_mrs%FOUND THEN
1257: CLOSE c_validate_child_mrs;
1258: Fnd_Message.SET_NAME('AHL','AHL_VWP_NR_MR_EXPIRED');
1259: Fnd_Msg_Pub.ADD;
1260: RAISE Fnd_Api.G_EXC_ERROR;
1261: END IF;
1262: CLOSE c_validate_child_mrs;
1274: -- NR-MR Changes - sowsubra
1275: -- Done to allow creation of a task for an instance that has already been removed.
1276: /***
1277: IF AHL_VWP_RULES_PVT.instance_in_config_tree(p_visit_id, l_serial_id) = FND_API.G_RET_STS_ERROR THEN
1278: Fnd_Message.SET_NAME('AHL','AHL_VWP_TASK_SERIAL');
1279: Fnd_Msg_Pub.ADD;
1280: RAISE Fnd_Api.G_EXC_ERROR;
1281: END IF;
1282: ***/
1526: x_error_msg_code => l_msg_data);
1527:
1528: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
1529: THEN
1530: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
1531: Fnd_Msg_Pub.ADD;
1532: RAISE Fnd_Api.G_EXC_ERROR;
1533: END IF;
1534:
1556: x_error_msg_code => l_msg_data);
1557:
1558: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
1559: THEN
1560: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
1561: Fnd_Msg_Pub.ADD;
1562: RAISE Fnd_Api.g_exc_error;
1563: END IF;
1564:
1617: END IF;
1618:
1619: -- Check Object version number.
1620: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
1621: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1622: Fnd_Msg_Pub.ADD;
1623: RAISE Fnd_Api.g_exc_error;
1624: END IF;
1625:
1981: FETCH c_Task INTO c_task_rec;
1982:
1983: IF c_Task%NOTFOUND THEN
1984: CLOSE c_Task;
1985: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1986: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1987: Fnd_Msg_Pub.ADD;
1988: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1989: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1982:
1983: IF c_Task%NOTFOUND THEN
1984: CLOSE c_Task;
1985: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1986: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1987: Fnd_Msg_Pub.ADD;
1988: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1989: fnd_log.string(fnd_log.level_statement,l_debug,'Invalid Task Id' || p_visit_task_ID);
1990: END IF;
2017: IF x_return_status <> Fnd_Api.g_ret_sts_success THEN
2018: RAISE Fnd_Api.G_EXC_ERROR;
2019: END IF;
2020: ELSE
2021: Fnd_Message.SET_NAME('AHL','AHL_VWP_PLANNEDTASKMR');
2022: Fnd_Msg_Pub.ADD;
2023: RAISE Fnd_Api.G_EXC_ERROR;
2024: End IF;
2025: END IF;
2159: OPEN c_Visit_Task;
2160: FETCH c_Visit_Task INTO l_task_rec;
2161: IF c_Visit_Task%NOTFOUND THEN
2162: CLOSE c_Visit_Task;
2163: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
2164: Fnd_Msg_Pub.ADD;
2165: RAISE Fnd_Api.g_exc_error;
2166: END IF;
2167: CLOSE c_Visit_Task;
2194: END IF;
2195:
2196: -- TASK NAME ==== NAME
2197: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
2198: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
2199: Fnd_Msg_Pub.ADD;
2200: x_return_status := Fnd_Api.g_ret_sts_error;
2201: RETURN;
2202: END IF;
2206: END IF;
2207:
2208: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
2209: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
2210: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
2211: Fnd_Msg_Pub.ADD;
2212: x_return_status := Fnd_Api.g_ret_sts_error;
2213: RETURN;
2214: END IF;
2251: 'Ahl_Visit_Tasks_vl',
2252: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
2253: ) = Fnd_Api.g_false
2254: THEN
2255: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
2256: Fnd_Msg_Pub.ADD;
2257: x_return_status := Fnd_Api.g_ret_sts_error;
2258: RETURN;
2259: END IF;