103:
104: IF (c_Dmlift%NOTFOUND) THEN
105: CLOSE c_Dmlift;
106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
107: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
108: FND_MSG_PUB.add;
109: END IF;
110: RAISE FND_API.g_exc_error;
111: END IF;
125:
126: WHEN AMS_Utility_PVT.resource_locked THEN
127: x_return_status := FND_API.g_ret_sts_error;
128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
129: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
130: FND_MSG_PUB.add;
131: END IF;
132:
133: WHEN FND_API.G_EXC_ERROR THEN
329:
330: WHEN AMS_Utility_PVT.resource_locked THEN
331: x_return_status := FND_API.g_ret_sts_error;
332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
334: FND_MSG_PUB.add;
335: END IF;
336:
337: WHEN FND_API.G_EXC_ERROR THEN
440:
441: If ( c_get_Dmlift%NOTFOUND) THEN
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
443: THEN
444: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_UPDATE_TARGET');
445: FND_MESSAGE.Set_Token ('INFO', 'Dmlift', FALSE);
446: FND_MSG_PUB.Add;
447: END IF;
448: RAISE FND_API.G_EXC_ERROR;
441: If ( c_get_Dmlift%NOTFOUND) THEN
442: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
443: THEN
444: FND_MESSAGE.Set_Name('AMS', 'API_MISSING_UPDATE_TARGET');
445: FND_MESSAGE.Set_Token ('INFO', 'Dmlift', FALSE);
446: FND_MSG_PUB.Add;
447: END IF;
448: RAISE FND_API.G_EXC_ERROR;
449: END IF;
457: -- Check Whether record has been changed by someone else
458: If (l_tar_Lift_rec.object_version_number <> l_ref_Lift_rec.object_version_number) Then
459: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
460: THEN
461: FND_MESSAGE.Set_Name('AMS', 'API_RECORD_CHANGED');
462: FND_MESSAGE.Set_Token('INFO', 'Dmlift', FALSE);
463: FND_MSG_PUB.ADD;
464: END IF;
465: raise FND_API.G_EXC_ERROR;
458: If (l_tar_Lift_rec.object_version_number <> l_ref_Lift_rec.object_version_number) Then
459: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
460: THEN
461: FND_MESSAGE.Set_Name('AMS', 'API_RECORD_CHANGED');
462: FND_MESSAGE.Set_Token('INFO', 'Dmlift', FALSE);
463: FND_MSG_PUB.ADD;
464: END IF;
465: raise FND_API.G_EXC_ERROR;
466: End if;
547:
548: WHEN AMS_Utility_PVT.resource_locked THEN
549: x_return_status := FND_API.g_ret_sts_error;
550: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
551: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
552: FND_MSG_PUB.add;
553: END IF;
554:
555: WHEN FND_API.G_EXC_ERROR THEN
678:
679: WHEN AMS_Utility_PVT.resource_locked THEN
680: x_return_status := FND_API.g_ret_sts_error;
681: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
682: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
683: FND_MSG_PUB.add;
684: END IF;
685:
686: WHEN FND_API.G_EXC_ERROR THEN
743:
744: IF l_valid_flag = FND_API.g_false THEN
745: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
746: THEN
747: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_ID_DUPLICATE');
748: FND_MSG_PUB.add;
749: END IF;
750: x_return_status := FND_API.g_ret_sts_error;
751: RETURN;
765: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
766: IF p_Lift_rec.MODEL_ID = FND_API.g_miss_num OR p_Lift_rec.MODEL_ID IS NULL THEN
767: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
768: THEN
769: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_NO_MODEL_ID');
770: FND_MSG_PUB.add;
771: END IF;
772: x_return_status := FND_API.g_ret_sts_error;
773: END IF;
775:
776: IF p_Lift_rec.QUANTILE = FND_API.g_miss_num OR p_Lift_rec.QUANTILE IS NULL THEN
777: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
778: THEN
779: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_NO_QUANTILE');
780: FND_MSG_PUB.add;
781: END IF;
782: x_return_status := FND_API.g_ret_sts_error;
783: END IF;
785:
786: IF p_Lift_rec.LIFT = FND_API.g_miss_num OR p_Lift_rec.LIFT IS NULL THEN
787: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
788: THEN
789: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_NO_LIFT');
790: FND_MSG_PUB.add;
791: END IF;
792: x_return_status := FND_API.g_ret_sts_error;
793: END IF;
796:
797: IF p_Lift_rec.LIFT_ID IS NULL THEN
798: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
799: THEN
800: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_NO_LIFT_ID');
801: FND_MSG_PUB.add;
802: END IF;
803: x_return_status := FND_API.g_ret_sts_error;
804: END IF;
806:
807: IF p_Lift_rec.OBJECT_VERSION_NUMBER IS NULL THEN
808: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
809: THEN
810: FND_MESSAGE.set_name('AMS', 'AMS_LIFT_NO_OBJECT_VERSION');
811: FND_MSG_PUB.add;
812: END IF;
813: x_return_status := FND_API.g_ret_sts_error;
814: END IF;
816:
817: IF p_Lift_rec.MODEL_ID IS NULL THEN
818: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
819: THEN
820: FND_MESSAGE.set_name('AMS', 'AMS_Lift_NO_MODEL_ID');
821: FND_MSG_PUB.add;
822: END IF;
823: x_return_status := FND_API.g_ret_sts_error;
824: END IF;
826:
827: IF p_Lift_rec.QUANTILE IS NULL THEN
828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
829: THEN
830: FND_MESSAGE.set_name('AMS', 'AMS_Lift_NO_QUANTILE');
831: FND_MSG_PUB.add;
832: END IF;
833: x_return_status := FND_API.g_ret_sts_error;
834: END IF;
836:
837: IF p_Lift_rec.LIFT IS NULL THEN
838: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
839: THEN
840: FND_MESSAGE.set_name('AMS', 'AMS_Lift_NO_LIFT');
841: FND_MSG_PUB.add;
842: END IF;
843: x_return_status := FND_API.g_ret_sts_error;
844: END IF;
1037:
1038: WHEN AMS_Utility_PVT.resource_locked THEN
1039: x_return_status := FND_API.g_ret_sts_error;
1040: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1041: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
1042: FND_MSG_PUB.add;
1043: END IF;
1044:
1045: WHEN FND_API.G_EXC_ERROR THEN