347: END IF;
348: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
349: THEN
350: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_NOT_EXISTS');
351: Fnd_Msg_Pub.ADD;
352: RAISE Fnd_Api.G_EXC_ERROR;
353: END IF;
354:
355: -- Changes made by skpathak on 20-OCT-2008 while fixing bug 7016519
363: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
364: fnd_log.string(fnd_log.level_statement, l_full_name, 'Item name missing');
365: END IF;
366: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_ITEM_MISSING');
367: Fnd_Msg_Pub.ADD;
368: RAISE Fnd_Api.G_EXC_ERROR;
369: ELSE
370: -- Item name is not null, but at least one of item id and org id is null
371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
372: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check item else condition.');
373: END IF;
374: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_USE_LOV');
375: Fnd_Msg_Pub.ADD;
376: RAISE Fnd_Api.G_EXC_ERROR;
377: END IF;
378: END IF; -- End of itemid and itemorg id check
379:
393:
394: IF l_count = 0 OR l_count IS NULL THEN
395: x_return_status := Fnd_Api.g_ret_sts_error;
396: Fnd_Message.SET_NAME('AHL','AHL_VWP_ITEM_MR_NOT_MATCH');
397: Fnd_Msg_Pub.ADD;
398: END IF;
399: END IF;
400: ******/
401: /* End fix for Bug 4081044 on Dec 22, 2004 by JR */
420: x_error_msg_code => l_msg_data);
421:
422: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS THEN
423: Fnd_Message.SET_NAME('AHL','AHL_VWP_SERIAL_NOT_EXISTS');
424: Fnd_Msg_Pub.ADD;
425: RAISE Fnd_Api.G_EXC_ERROR;
426: ELSE
427: --Assign the returned value
428: p_x_task_Rec.instance_id := l_instance_id;
432: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
433: fnd_log.string(fnd_log.level_statement, l_full_name, 'Check serial not found else');
434: END IF;
435: Fnd_Message.SET_NAME('AHL','AHL_VWP_TSK_SERIAL_MISSING');
436: Fnd_Msg_Pub.ADD;
437: RAISE Fnd_Api.G_EXC_ERROR;
438: END IF; --Serial number not null
439: ELSE --non serial controlled item
440: p_x_task_Rec.instance_id := l_inst_id;
456:
457: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
458: THEN
459: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
460: Fnd_Msg_Pub.ADD;
461: RAISE Fnd_Api.G_EXC_ERROR;
462: END IF;
463:
464: -- Changes for Post 11.5.10 by amagrawa
467: X_RETURN_STATUS => l_return_status);
468:
469: IF (NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS) THEN
470: Fnd_Message.SET_NAME('AHL','AHL_VWP_NO_DEPT_SHIFT');
471: Fnd_Msg_Pub.ADD;
472: RAISE Fnd_Api.G_EXC_ERROR;
473: END IF;
474: ELSE
475: p_x_task_Rec.dept_name := NULL;
484: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
485: fnd_log.string(fnd_log.level_statement, l_full_name, 'NO ORGANIZATION FOR VISIT');
486: END IF;
487: Fnd_Message.SET_NAME('AHL','AHL_VWP_VISIT_NO_ORG_EXISTS');
488: Fnd_Msg_Pub.ADD;
489: RAISE Fnd_Api.G_EXC_ERROR;
490: END IF;
491: END IF; -- End of if visit org exists
492:
605: fnd_log.string(fnd_log.level_procedure, l_full_name || '.begin', 'Entering Procedure');
606: END IF;
607:
608: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
609: Fnd_Msg_Pub.initialize;
610: END IF;
611:
612: IF NOT Fnd_Api.compatible_api_call (
613: L_API_VERSION,
759: COMMIT WORK;
760: END IF;
761:
762: -- Standard call to get message count and if count is 1, get message info
763: Fnd_Msg_Pub.count_and_get(
764: p_encoded => Fnd_Api.g_false,
765: p_count => x_msg_count,
766: p_data => x_msg_data
767: );
773: EXCEPTION
774: WHEN Fnd_Api.g_exc_error THEN
775: ROLLBACK TO Create_Unplanned_Task;
776: x_return_status := Fnd_Api.g_ret_sts_error;
777: Fnd_Msg_Pub.count_and_get(
778: p_encoded => Fnd_Api.g_false,
779: p_count => x_msg_count,
780: p_data => x_msg_data
781: );
781: );
782: WHEN Fnd_Api.g_exc_unexpected_error THEN
783: ROLLBACK TO Create_Unplanned_Task;
784: x_return_status := Fnd_Api.g_ret_sts_unexp_error;
785: Fnd_Msg_Pub.count_and_get (
786: p_encoded => Fnd_Api.g_false,
787: p_count => x_msg_count,
788: p_data => x_msg_data
789: );
789: );
790: WHEN OTHERS THEN
791: ROLLBACK TO Create_Unplanned_Task;
792: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
793: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
794: THEN
795: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
796: END IF;
797: Fnd_Msg_Pub.count_and_get (
791: ROLLBACK TO Create_Unplanned_Task;
792: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
793: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
794: THEN
795: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
796: END IF;
797: Fnd_Msg_Pub.count_and_get (
798: p_encoded => Fnd_Api.g_false,
799: p_count => x_msg_count,
793: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
794: THEN
795: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
796: END IF;
797: Fnd_Msg_Pub.count_and_get (
798: p_encoded => Fnd_Api.g_false,
799: p_count => x_msg_count,
800: p_data => x_msg_data
801: );
859: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************Start*************************');
860: END IF;
861:
862: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
863: Fnd_Msg_Pub.initialize;
864: END IF;
865:
866: -- Initialize API return status to success
867: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
913:
914: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
915: THEN
916: Fnd_Message.SET_NAME('AHL','AHL_VWP_DEPT_NOT_EXISTS');
917: Fnd_Msg_Pub.ADD;
918: RAISE Fnd_Api.G_EXC_ERROR;
919: END IF;
920:
921: --Assign the returned value
943:
944: IF NVL(l_return_status,'x') <> FND_API.G_RET_STS_SUCCESS
945: THEN
946: Fnd_Message.SET_NAME('AHL','AHL_VWP_PARENT_NOT_EXISTS');
947: Fnd_Msg_Pub.ADD;
948: RAISE Fnd_Api.g_exc_error;
949: END IF;
950:
951: --Assign the returned value
1004:
1005: -- Check Object version number.
1006: IF (c_task_rec.object_version_number <> l_task_rec.object_version_number) THEN
1007: Fnd_Message.Set_Name('AHL','AHL_COM_RECORD_CHANGED');
1008: Fnd_Msg_Pub.ADD;
1009: RAISE Fnd_Api.G_EXC_ERROR;
1010: END IF;
1011:
1012: -- Post 11.5.10 Changes by Senthil.
1023:
1024: END IF;
1025:
1026: --Standard check to count messages
1027: l_msg_count := Fnd_Msg_Pub.count_msg;
1028:
1029: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1030: X_msg_count := l_msg_count;
1031: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1155: 'After calling AHL_WARRANTY_ENTL_PVT.Process_Warranty_Entitlements. Return Status = ' ||
1156: l_return_status);
1157: END IF;
1158:
1159: l_msg_count := Fnd_Msg_Pub.count_msg;
1160: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.g_ret_sts_success THEN
1161: x_msg_count := l_msg_count;
1162: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1163: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1183: p_task_id => l_task_rec.visit_task_id);
1184: END IF;
1185:
1186: --Standard check to count messages
1187: l_msg_count := Fnd_Msg_Pub.count_msg;
1188:
1189: IF l_msg_count > 0 OR l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
1190: x_msg_count := l_msg_count;
1191: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1241:
1242: END IF;
1243:
1244: --Standard check to count messages
1245: l_msg_count := Fnd_Msg_Pub.count_msg;
1246:
1247: IF l_msg_count > 0 THEN
1248: X_msg_count := l_msg_count;
1249: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1263: EXCEPTION
1264: WHEN Fnd_Api.g_exc_error THEN
1265: ROLLBACK TO Update_Unplanned_Task;
1266: x_return_status := Fnd_Api.g_ret_sts_error;
1267: Fnd_Msg_Pub.count_and_get (
1268: p_encoded => Fnd_Api.g_false,
1269: p_count => x_msg_count,
1270: p_data => x_msg_data
1271: );
1271: );
1272: WHEN Fnd_Api.g_exc_unexpected_error THEN
1273: ROLLBACK TO Update_Unplanned_Task;
1274: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1275: Fnd_Msg_Pub.count_and_get (
1276: p_encoded => Fnd_Api.g_false,
1277: p_count => x_msg_count,
1278: p_data => x_msg_data
1279: );
1279: );
1280: WHEN OTHERS THEN
1281: ROLLBACK TO Update_Unplanned_Task;
1282: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1283: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1284: THEN
1285: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1286: END IF;
1287: Fnd_Msg_Pub.count_and_get (
1281: ROLLBACK TO Update_Unplanned_Task;
1282: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1283: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1284: THEN
1285: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1286: END IF;
1287: Fnd_Msg_Pub.count_and_get (
1288: p_encoded => Fnd_Api.g_false,
1289: p_count => x_msg_count,
1283: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1284: THEN
1285: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1286: END IF;
1287: Fnd_Msg_Pub.count_and_get (
1288: p_encoded => Fnd_Api.g_false,
1289: p_count => x_msg_count,
1290: p_data => x_msg_data
1291: );
1335: fnd_log.string(fnd_log.level_procedure,'ahl.plsql.', l_full_name ||':*************************START*************************');
1336: END IF;
1337:
1338: IF Fnd_Api.to_boolean (p_init_msg_list) THEN
1339: Fnd_Msg_Pub.initialize;
1340: END IF;
1341:
1342: -- Initialize API return status to success
1343: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
1365: IF c_Task%NOTFOUND THEN
1366: CLOSE c_Task;
1367: Fnd_Message.set_name('AHL', 'AHL_VWP_TASK_ID_INVALID');
1368: FND_MESSAGE.SET_TOKEN('TASK_ID',p_visit_task_id,false);
1369: Fnd_Msg_Pub.ADD;
1370: RAISE Fnd_Api.g_exc_error;
1371: ELSE
1372: CLOSE c_Task;
1373:
1396: END IF;
1397:
1398: Else
1399: Fnd_Message.SET_NAME('AHL','AHL_VWP_UNPLANNEDTASKMR');
1400: Fnd_Msg_Pub.ADD;
1401: RAISE Fnd_Api.G_EXC_ERROR;
1402: --Displays 'Unplanned Task association to Maintenance Requirement is missing.'
1403: End IF;
1404:
1414: P_UNIT_EFFECTIVITY_ID => c_task_rec.unit_effectivity_id
1415: );
1416: */
1417:
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1420: IF l_msg_count > 0 OR x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1421: X_msg_count := l_msg_count;
1422: X_return_status := Fnd_Api.G_RET_STS_ERROR;
1440: EXCEPTION
1441: WHEN Fnd_Api.g_exc_error THEN
1442: ROLLBACK TO Delete_Unplanned_Task;
1443: x_return_status := Fnd_Api.g_ret_sts_error;
1444: Fnd_Msg_Pub.count_and_get (
1445: p_encoded => Fnd_Api.g_false,
1446: p_count => x_msg_count,
1447: p_data => x_msg_data
1448: );
1449:
1450: WHEN Fnd_Api.g_exc_unexpected_error THEN
1451: ROLLBACK TO Delete_Unplanned_Task;
1452: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1453: Fnd_Msg_Pub.count_and_get (
1454: p_encoded => Fnd_Api.g_false,
1455: p_count => x_msg_count,
1456: p_data => x_msg_data
1457: );
1458:
1459: WHEN OTHERS THEN
1460: ROLLBACK TO Delete_Unplanned_Task;
1461: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1462: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1463: THEN
1464: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1465: END IF;
1466: Fnd_Msg_Pub.count_and_get (
1460: ROLLBACK TO Delete_Unplanned_Task;
1461: x_return_status := Fnd_Api.g_ret_sts_unexp_error ;
1462: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1463: THEN
1464: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1465: END IF;
1466: Fnd_Msg_Pub.count_and_get (
1467: p_encoded => Fnd_Api.g_false,
1468: p_count => x_msg_count,
1462: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_unexp_error)
1463: THEN
1464: Fnd_Msg_Pub.add_exc_msg (G_PKG_NAME, l_api_name);
1465: END IF;
1466: Fnd_Msg_Pub.count_and_get (
1467: p_encoded => Fnd_Api.g_false,
1468: p_count => x_msg_count,
1469: p_data => x_msg_data
1470: );
1552: FETCH c_Visit_Task INTO l_task_rec;
1553: IF c_Visit_Task%NOTFOUND THEN
1554: CLOSE c_Visit_Task;
1555: Fnd_Message.set_name('AHL', 'AHL_API_RECORD_NOT_FOUND');
1556: Fnd_Msg_Pub.ADD;
1557: RAISE Fnd_Api.g_exc_error;
1558: END IF;
1559: CLOSE c_Visit_Task;
1560:
1582: END IF;
1583: -- TASK NAME ==== NAME
1584: IF (p_task_rec.VISIT_TASK_NAME IS NULL OR p_Task_rec.VISIT_TASK_NAME = Fnd_Api.G_MISS_CHAR) THEN
1585: Fnd_Message.set_name ('AHL', 'AHL_VWP_NAME_MISSING');
1586: Fnd_Msg_Pub.ADD;
1587: x_return_status := Fnd_Api.g_ret_sts_error;
1588: RETURN;
1589: END IF;
1590: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1592: END IF;
1593: IF (p_task_rec.START_FROM_HOUR IS NOT NULL and p_Task_rec.START_FROM_HOUR <> Fnd_Api.G_MISS_NUM) THEN
1594: IF p_task_rec.START_FROM_HOUR < 0 OR FLOOR(p_task_rec.START_FROM_HOUR) <> p_task_rec.START_FROM_HOUR THEN
1595: Fnd_Message.set_name ('AHL', 'AHL_VWP_ONLY_POSITIVE_VALUE');
1596: Fnd_Msg_Pub.ADD;
1597: x_return_status := Fnd_Api.g_ret_sts_error;
1598: RETURN;
1599: END IF;
1600: END IF;
1634: 'Visit_Task_ID = ' || p_task_rec.Visit_Task_ID
1635: ) = Fnd_Api.g_false
1636: THEN
1637: Fnd_Message.set_name ('AHL', 'AHL_VWP_DUPLICATE_TASK_ID');
1638: Fnd_Msg_Pub.ADD;
1639: x_return_status := Fnd_Api.g_ret_sts_error;
1640: RETURN;
1641: END IF;
1642: END IF;