25: --
26: -- Global CONSTANTS
27: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_User_Statuses_PVT';
28: -- Check_User_Status_Req_Items
29: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
30: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
31: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
32:
33: PROCEDURE Check_User_Status_Req_Items (
26: -- Global CONSTANTS
27: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_User_Statuses_PVT';
28: -- Check_User_Status_Req_Items
29: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
30: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
31: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
32:
33: PROCEDURE Check_User_Status_Req_Items (
34: p_user_status_rec IN User_Status_Rec_Type,
27: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_User_Statuses_PVT';
28: -- Check_User_Status_Req_Items
29: AMS_DEBUG_HIGH_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
30: AMS_DEBUG_LOW_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
31: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
32:
33: PROCEDURE Check_User_Status_Req_Items (
34: p_user_status_rec IN User_Status_Rec_Type,
35: x_return_status OUT NOCOPY VARCHAR2
108:
109: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
110: END IF;
111: IF FND_API.to_boolean (p_init_msg_list) THEN
112: FND_MSG_PUB.initialize;
113: END IF;
114: IF NOT FND_API.compatible_api_call (
115: L_API_VERSION,
116: p_api_version,
247: -- Standard check of p_commit.
248: IF FND_API.To_Boolean ( p_commit ) THEN
249: COMMIT WORK;
250: END IF;
251: FND_MSG_PUB.count_and_get(
252: p_encoded => FND_API.g_false,
253: p_count => x_msg_count,
254: p_data => x_msg_data
255: );
260: EXCEPTION
261: WHEN FND_API.g_exc_error THEN
262: ROLLBACK TO Create_User_Status;
263: x_return_status := FND_API.g_ret_sts_error;
264: FND_MSG_PUB.count_and_get(
265: p_encoded => FND_API.g_false,
266: p_count => x_msg_count,
267: p_data => x_msg_data
268: );
268: );
269: WHEN FND_API.g_exc_unexpected_error THEN
270: ROLLBACK TO Create_User_Status;
271: x_return_status := FND_API.g_ret_sts_unexp_error ;
272: FND_MSG_PUB.count_and_get (
273: p_encoded => FND_API.g_false,
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
276: );
277: WHEN OTHERS THEN
278: ROLLBACK TO Create_User_Status;
279: x_return_status := FND_API.g_ret_sts_unexp_error ;
280: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
281: THEN
282: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
283: END IF;
284: FND_MSG_PUB.count_and_get (
278: ROLLBACK TO Create_User_Status;
279: x_return_status := FND_API.g_ret_sts_unexp_error ;
280: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
281: THEN
282: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
283: END IF;
284: FND_MSG_PUB.count_and_get (
285: p_encoded => FND_API.g_false,
286: p_count => x_msg_count,
280: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
281: THEN
282: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
283: END IF;
284: FND_MSG_PUB.count_and_get (
285: p_encoded => FND_API.g_false,
286: p_count => x_msg_count,
287: p_data => x_msg_data
288: );
316:
317: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
318: END IF;
319: IF FND_API.to_boolean (p_init_msg_list) THEN
320: FND_MSG_PUB.initialize;
321: END IF;
322: IF NOT FND_API.compatible_api_call(
323: l_api_version,
324: p_api_version,
337: Complete_User_Status_Rec (p_user_status_rec, l_user_status_rec);
338:
339: IF l_user_status_rec.seeded_flag = 'Y' THEN
340: IF compare_columns(l_user_status_rec) = FND_API.g_false THEN
341: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
342: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_SEED_DATA');
343: FND_MSG_PUB.add;
344: END IF;
345: RAISE FND_API.g_exc_error;
339: IF l_user_status_rec.seeded_flag = 'Y' THEN
340: IF compare_columns(l_user_status_rec) = FND_API.g_false THEN
341: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
342: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_SEED_DATA');
343: FND_MSG_PUB.add;
344: END IF;
345: RAISE FND_API.g_exc_error;
346: END IF;
347: ELSE
396:
397: -- Check to see if the user status can be disabled
398: IF NVL(l_user_status_rec.enabled_flag,'Y') = 'N' THEN
399: IF can_disable_status(l_user_status_rec) = FND_API.g_false THEN
400: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
401: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_CANNOT_DISABLE');
402: FND_MESSAGE.set_token('USER_STATUS', l_user_status_rec.name);
403: FND_MSG_PUB.add;
404: END IF;
399: IF can_disable_status(l_user_status_rec) = FND_API.g_false THEN
400: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
401: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_CANNOT_DISABLE');
402: FND_MESSAGE.set_token('USER_STATUS', l_user_status_rec.name);
403: FND_MSG_PUB.add;
404: END IF;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: END IF;
421: end_date_active = l_user_status_rec.end_date_active
422: WHERE user_status_id = l_user_status_rec.user_status_id
423: AND object_version_number = l_user_status_rec.object_version_number;
424: IF (SQL%NOTFOUND) THEN
425: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
426: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
427: FND_MSG_PUB.add;
428: END IF;
429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
423: AND object_version_number = l_user_status_rec.object_version_number;
424: IF (SQL%NOTFOUND) THEN
425: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
426: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
427: FND_MSG_PUB.add;
428: END IF;
429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
430: END IF;
431: UPDATE ams_user_statuses_tl
438: description = l_user_status_rec.description
439: WHERE user_status_id = l_user_status_rec.user_status_id
440: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG);
441: IF (SQL%NOTFOUND) THEN
442: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
443: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
444: FND_MSG_PUB.add;
445: END IF;
446: RAISE FND_API.g_exc_error;
440: AND USERENV('LANG') IN (LANGUAGE, SOURCE_LANG);
441: IF (SQL%NOTFOUND) THEN
442: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
443: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
444: FND_MSG_PUB.add;
445: END IF;
446: RAISE FND_API.g_exc_error;
447: END IF;
448: END IF; -- ending if loop for second seeded_flag check
450: -------------------- finish --------------------------
451: IF FND_API.to_boolean (p_commit) THEN
452: COMMIT;
453: END IF;
454: FND_MSG_PUB.count_and_get (
455: p_encoded => FND_API.g_false,
456: p_count => x_msg_count,
457: p_data => x_msg_data
458: );
463: EXCEPTION
464: WHEN FND_API.g_exc_error THEN
465: ROLLBACK TO Update_User_Status;
466: x_return_status := FND_API.g_ret_sts_error;
467: FND_MSG_PUB.count_and_get (
468: p_encoded => FND_API.g_false,
469: p_count => x_msg_count,
470: p_data => x_msg_data
471: );
471: );
472: WHEN FND_API.g_exc_unexpected_error THEN
473: ROLLBACK TO Update_User_Status;
474: x_return_status := FND_API.g_ret_sts_unexp_error ;
475: FND_MSG_PUB.count_and_get (
476: p_encoded => FND_API.g_false,
477: p_count => x_msg_count,
478: p_data => x_msg_data
479: );
479: );
480: WHEN OTHERS THEN
481: ROLLBACK TO Update_User_Status;
482: x_return_status := FND_API.g_ret_sts_unexp_error ;
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
484: THEN
485: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
486: END IF;
487: FND_MSG_PUB.count_and_get (
481: ROLLBACK TO Update_User_Status;
482: x_return_status := FND_API.g_ret_sts_unexp_error ;
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
484: THEN
485: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
486: END IF;
487: FND_MSG_PUB.count_and_get (
488: p_encoded => FND_API.g_false,
489: p_count => x_msg_count,
483: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
484: THEN
485: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
486: END IF;
487: FND_MSG_PUB.count_and_get (
488: p_encoded => FND_API.g_false,
489: p_count => x_msg_count,
490: p_data => x_msg_data
491: );
525: OPEN c_user_status;
526: FETCH c_user_status INTO l_user_status_rec;
527: IF c_user_status%NOTFOUND THEN
528: CLOSE c_user_status;
529: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
530: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
531: FND_MSG_PUB.add;
532: END IF;
533: RAISE FND_API.g_exc_error;
527: IF c_user_status%NOTFOUND THEN
528: CLOSE c_user_status;
529: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
530: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
531: FND_MSG_PUB.add;
532: END IF;
533: RAISE FND_API.g_exc_error;
534: END IF;
535: CLOSE c_user_status;
539:
540: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
541: END IF;
542: IF FND_API.to_boolean (p_init_msg_list) THEN
543: FND_MSG_PUB.initialize;
544: END IF;
545: IF NOT FND_API.compatible_api_call (
546: l_api_version,
547: p_api_version,
563:
564: DELETE FROM ams_user_statuses_tl
565: WHERE user_status_id = p_user_status_id;
566: IF (SQL%NOTFOUND) THEN
567: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error)
568: THEN
569: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
570: FND_MSG_PUB.add;
571: END IF;
566: IF (SQL%NOTFOUND) THEN
567: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error)
568: THEN
569: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
570: FND_MSG_PUB.add;
571: END IF;
572: RAISE FND_API.g_exc_error;
573: END IF;
574: DELETE FROM ams_user_statuses_b
575: WHERE user_status_id = p_user_status_id
576: AND object_version_number = p_object_version;
577:
578: ELSE
579: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
580: FND_MESSAGE.set_name ('AMS', 'AMS_API_SEED_DATA');
581: FND_MSG_PUB.add;
582: RAISE FND_API.g_exc_error;
583: END IF;
577:
578: ELSE
579: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
580: FND_MESSAGE.set_name ('AMS', 'AMS_API_SEED_DATA');
581: FND_MSG_PUB.add;
582: RAISE FND_API.g_exc_error;
583: END IF;
584:
585: END IF; -- ending if loop for seeded_flag check
588: -------------------- finish --------------------------
589: IF FND_API.to_boolean (p_commit) THEN
590: COMMIT;
591: END IF;
592: FND_MSG_PUB.count_and_get (
593: p_encoded => FND_API.g_false,
594: p_count => x_msg_count,
595: p_data => x_msg_data
596: );
601: EXCEPTION
602: WHEN FND_API.g_exc_error THEN
603: ROLLBACK TO Delete_User_Status;
604: x_return_status := FND_API.g_ret_sts_error;
605: FND_MSG_PUB.count_and_get (
606: p_encoded => FND_API.g_false,
607: p_count => x_msg_count,
608: p_data => x_msg_data
609: );
609: );
610: WHEN FND_API.g_exc_unexpected_error THEN
611: ROLLBACK TO Delete_User_Status;
612: x_return_status := FND_API.g_ret_sts_unexp_error ;
613: FND_MSG_PUB.count_and_get (
614: p_encoded => FND_API.g_false,
615: p_count => x_msg_count,
616: p_data => x_msg_data
617: );
617: );
618: WHEN OTHERS THEN
619: ROLLBACK TO Delete_User_Status;
620: x_return_status := FND_API.g_ret_sts_unexp_error ;
621: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
622: THEN
623: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
624: END IF;
625: FND_MSG_PUB.count_and_get (
619: ROLLBACK TO Delete_User_Status;
620: x_return_status := FND_API.g_ret_sts_unexp_error ;
621: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
622: THEN
623: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
624: END IF;
625: FND_MSG_PUB.count_and_get (
626: p_encoded => FND_API.g_false,
627: p_count => x_msg_count,
621: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
622: THEN
623: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
624: END IF;
625: FND_MSG_PUB.count_and_get (
626: p_encoded => FND_API.g_false,
627: p_count => x_msg_count,
628: p_data => x_msg_data
629: );
668:
669: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
670: END IF;
671: IF FND_API.to_boolean (p_init_msg_list) THEN
672: FND_MSG_PUB.initialize;
673: END IF;
674: IF NOT FND_API.compatible_api_call (
675: l_api_version,
676: p_api_version,
688: OPEN c_lock;
689: FETCH c_lock INTO l_dummy;
690: IF (c_lock%NOTFOUND) THEN
691: CLOSE c_lock;
692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
693: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
694: FND_MSG_PUB.add;
695: END IF;
696: RAISE FND_API.g_exc_error;
690: IF (c_lock%NOTFOUND) THEN
691: CLOSE c_lock;
692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
693: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
694: FND_MSG_PUB.add;
695: END IF;
696: RAISE FND_API.g_exc_error;
697: END IF;
698: CLOSE c_lock;
696: RAISE FND_API.g_exc_error;
697: END IF;
698: CLOSE c_lock;
699: -------------------- finish --------------------------
700: FND_MSG_PUB.count_and_get (
701: p_encoded => FND_API.g_false,
702: p_count => x_msg_count,
703: p_data => x_msg_data
704: );
708: END IF;
709: EXCEPTION
710: WHEN AMS_Utility_PVT.resource_locked THEN
711: x_return_status := FND_API.g_ret_sts_error;
712: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
713: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
714: FND_MSG_PUB.add;
715: END IF;
716: FND_MSG_PUB.count_and_get (
710: WHEN AMS_Utility_PVT.resource_locked THEN
711: x_return_status := FND_API.g_ret_sts_error;
712: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
713: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
714: FND_MSG_PUB.add;
715: END IF;
716: FND_MSG_PUB.count_and_get (
717: p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
712: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
713: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
714: FND_MSG_PUB.add;
715: END IF;
716: FND_MSG_PUB.count_and_get (
717: p_encoded => FND_API.g_false,
718: p_count => x_msg_count,
719: p_data => x_msg_data
720: );
719: p_data => x_msg_data
720: );
721: WHEN FND_API.g_exc_error THEN
722: x_return_status := FND_API.g_ret_sts_error;
723: FND_MSG_PUB.count_and_get (
724: p_encoded => FND_API.g_false,
725: p_count => x_msg_count,
726: p_data => x_msg_data
727: );
726: p_data => x_msg_data
727: );
728: WHEN FND_API.g_exc_unexpected_error THEN
729: x_return_status := FND_API.g_ret_sts_unexp_error ;
730: FND_MSG_PUB.count_and_get (
731: p_encoded => FND_API.g_false,
732: p_count => x_msg_count,
733: p_data => x_msg_data
734: );
733: p_data => x_msg_data
734: );
735: WHEN OTHERS THEN
736: x_return_status := FND_API.g_ret_sts_unexp_error ;
737: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
738: THEN
739: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
740: END IF;
741: FND_MSG_PUB.count_and_get (
735: WHEN OTHERS THEN
736: x_return_status := FND_API.g_ret_sts_unexp_error ;
737: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
738: THEN
739: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
740: END IF;
741: FND_MSG_PUB.count_and_get (
742: p_encoded => FND_API.g_false,
743: p_count => x_msg_count,
737: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
738: THEN
739: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
740: END IF;
741: FND_MSG_PUB.count_and_get (
742: p_encoded => FND_API.g_false,
743: p_count => x_msg_count,
744: p_data => x_msg_data
745: );
770:
771: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
772: END IF;
773: IF FND_API.to_boolean (p_init_msg_list) THEN
774: FND_MSG_PUB.initialize;
775: END IF;
776: IF NOT FND_API.compatible_api_call (
777: l_api_version,
778: p_api_version,
815: RAISE FND_API.g_exc_error;
816: END IF;
817: END IF;
818: -------------------- finish --------------------------
819: FND_MSG_PUB.count_and_get (
820: p_encoded => FND_API.g_false,
821: p_count => x_msg_count,
822: p_data => x_msg_data
823: );
827: END IF;
828: EXCEPTION
829: WHEN FND_API.g_exc_error THEN
830: x_return_status := FND_API.g_ret_sts_error;
831: FND_MSG_PUB.count_and_get (
832: p_encoded => FND_API.g_false,
833: p_count => x_msg_count,
834: p_data => x_msg_data
835: );
834: p_data => x_msg_data
835: );
836: WHEN FND_API.g_exc_unexpected_error THEN
837: x_return_status := FND_API.g_ret_sts_unexp_error ;
838: FND_MSG_PUB.count_and_get (
839: p_encoded => FND_API.g_false,
840: p_count => x_msg_count,
841: p_data => x_msg_data
842: );
841: p_data => x_msg_data
842: );
843: WHEN OTHERS THEN
844: x_return_status := FND_API.g_ret_sts_unexp_error;
845: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
846: THEN
847: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
848: END IF;
849: FND_MSG_PUB.count_and_get (
843: WHEN OTHERS THEN
844: x_return_status := FND_API.g_ret_sts_unexp_error;
845: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
846: THEN
847: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
848: END IF;
849: FND_MSG_PUB.count_and_get (
850: p_encoded => FND_API.g_false,
851: p_count => x_msg_count,
845: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
846: THEN
847: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
848: END IF;
849: FND_MSG_PUB.count_and_get (
850: p_encoded => FND_API.g_false,
851: p_count => x_msg_count,
852: p_data => x_msg_data
853: );
965: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.DEBUG_MESSAGE('end DATE:'|| to_char(l_end_date_active,'DD-MON-YYYY'));END IF;
966:
967: IF l_start_date_active IS NOT NULL AND l_end_date_active IS NOT NULL THEN
968: IF l_start_date_active > l_end_date_active THEN
969: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
970: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_FROMDT_GTR_TODT');
971: FND_MSG_PUB.add;
972: END IF;
973: x_return_status := FND_API.g_ret_sts_error;
967: IF l_start_date_active IS NOT NULL AND l_end_date_active IS NOT NULL THEN
968: IF l_start_date_active > l_end_date_active THEN
969: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
970: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_FROMDT_GTR_TODT');
971: FND_MSG_PUB.add;
972: END IF;
973: x_return_status := FND_API.g_ret_sts_error;
974: RETURN;
975: END IF;
1031: OPEN c_user_status;
1032: FETCH c_user_status INTO l_user_status_rec;
1033: IF c_user_status%NOTFOUND THEN
1034: CLOSE c_user_status;
1035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1036: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1037: FND_MSG_PUB.add;
1038: END IF;
1039: RAISE FND_API.g_exc_error;
1033: IF c_user_status%NOTFOUND THEN
1034: CLOSE c_user_status;
1035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1036: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1037: FND_MSG_PUB.add;
1038: END IF;
1039: RAISE FND_API.g_exc_error;
1040: END IF;
1041: CLOSE c_user_status;
1202: IS
1203: BEGIN
1204: -- SYSTEM_STATUS_TYPE
1205: IF p_user_status_rec.system_status_type IS NULL THEN
1206: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1207: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_STATUS_TYPE');
1208: FND_MSG_PUB.add;
1209: END IF;
1210: x_return_status := FND_API.g_ret_sts_error;
1204: -- SYSTEM_STATUS_TYPE
1205: IF p_user_status_rec.system_status_type IS NULL THEN
1206: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1207: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_STATUS_TYPE');
1208: FND_MSG_PUB.add;
1209: END IF;
1210: x_return_status := FND_API.g_ret_sts_error;
1211: RETURN;
1212: END IF;
1211: RETURN;
1212: END IF;
1213: -- SYSTEM_STATUS_CODE
1214: IF p_user_status_rec.system_status_code IS NULL THEN
1215: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1216: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_SYSTEM_STATUS');
1217: FND_MSG_PUB.add;
1218: END IF;
1219: x_return_status := FND_API.g_ret_sts_error;
1213: -- SYSTEM_STATUS_CODE
1214: IF p_user_status_rec.system_status_code IS NULL THEN
1215: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1216: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_SYSTEM_STATUS');
1217: FND_MSG_PUB.add;
1218: END IF;
1219: x_return_status := FND_API.g_ret_sts_error;
1220: RETURN;
1221: END IF;
1220: RETURN;
1221: END IF;
1222: -- NAME
1223: IF p_user_status_rec.name IS NULL THEN
1224: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1225: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_NAME');
1226: FND_MSG_PUB.add;
1227: END IF;
1228: x_return_status := FND_API.g_ret_sts_error;
1222: -- NAME
1223: IF p_user_status_rec.name IS NULL THEN
1224: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1225: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_NO_NAME');
1226: FND_MSG_PUB.add;
1227: END IF;
1228: x_return_status := FND_API.g_ret_sts_error;
1229: RETURN;
1230: END IF;
1231:
1232: --
1233: -- START_DATE_ACTIVE
1234: --IF p_user_status_rec.start_date_active IS NULL THEN
1235: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1236: -- THEN
1237: -- FND_MESSAGE.set_name('AMS', 'AMS_STATUS_NO_ACTIVE_FROM');
1238: -- FND_MSG_PUB.add;
1239: -- END IF;
1234: --IF p_user_status_rec.start_date_active IS NULL THEN
1235: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1236: -- THEN
1237: -- FND_MESSAGE.set_name('AMS', 'AMS_STATUS_NO_ACTIVE_FROM');
1238: -- FND_MSG_PUB.add;
1239: -- END IF;
1240: --
1241: -- x_return_status := FND_API.g_ret_sts_error;
1242: -- RETURN;
1264: 'ams_user_statuses_vl',
1265: 'user_status_id = ' || p_user_status_rec.user_status_id
1266: ) = FND_API.g_false
1267: THEN
1268: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1269: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_DUP_USR_ST_ID');
1270: FND_MSG_PUB.add;
1271: END IF;
1272: x_return_status := FND_API.g_ret_sts_error;
1266: ) = FND_API.g_false
1267: THEN
1268: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1269: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_DUP_USR_ST_ID');
1270: FND_MSG_PUB.add;
1271: END IF;
1272: x_return_status := FND_API.g_ret_sts_error;
1273: RETURN;
1274: END IF;
1289: ''' AND user_status_id <> ' || p_user_status_rec.user_status_id
1290: );
1291: END IF;
1292: IF l_valid_flag = FND_API.g_false THEN
1293: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1294: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_DUP_NAME');
1295: FND_MSG_PUB.add;
1296: END IF;
1297: x_return_status := FND_API.g_ret_sts_error;
1291: END IF;
1292: IF l_valid_flag = FND_API.g_false THEN
1293: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1294: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_DUP_NAME');
1295: FND_MSG_PUB.add;
1296: END IF;
1297: x_return_status := FND_API.g_ret_sts_error;
1298: RETURN;
1299: END IF;
1335: p_lookup_code => p_user_status_rec.system_status_code,
1336: p_view_application_id => fnd_global.resp_appl_id
1337: ) = FND_API.g_false
1338: THEN
1339: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1340: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_SYSTEM_STATUS');
1341: FND_MSG_PUB.add;
1342: END IF;
1343: x_return_status := FND_API.g_ret_sts_error;
1337: ) = FND_API.g_false
1338: THEN
1339: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1340: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_SYSTEM_STATUS');
1341: FND_MSG_PUB.add;
1342: END IF;
1343: x_return_status := FND_API.g_ret_sts_error;
1344: RETURN;
1345: END IF;
1355: x_return_status := FND_API.g_ret_sts_success;
1356: -- DEFAULT_FLAG
1357: IF p_user_status_rec.default_flag <> FND_API.g_miss_char AND p_user_status_rec.default_flag IS NOT NULL THEN
1358: IF AMS_Utility_PVT.is_Y_or_N (p_user_status_rec.default_flag) = FND_API.g_false THEN
1359: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1360: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_DEFAULT_FLAG');
1361: FND_MSG_PUB.add;
1362: END IF;
1363: x_return_status := FND_API.g_ret_sts_error;
1357: IF p_user_status_rec.default_flag <> FND_API.g_miss_char AND p_user_status_rec.default_flag IS NOT NULL THEN
1358: IF AMS_Utility_PVT.is_Y_or_N (p_user_status_rec.default_flag) = FND_API.g_false THEN
1359: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1360: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_DEFAULT_FLAG');
1361: FND_MSG_PUB.add;
1362: END IF;
1363: x_return_status := FND_API.g_ret_sts_error;
1364: RETURN;
1365: END IF;
1366: END IF;
1367: -- ENABLED_FLAG
1368: IF p_user_status_rec.enabled_flag <> FND_API.g_miss_char AND p_user_status_rec.enabled_flag IS NOT NULL THEN
1369: IF AMS_Utility_PVT.is_Y_or_N (p_user_status_rec.enabled_flag) = FND_API.g_false THEN
1370: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1371: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_ENABLED_FLAG');
1372: FND_MSG_PUB.add;
1373: END IF;
1374: x_return_status := FND_API.g_ret_sts_error;
1368: IF p_user_status_rec.enabled_flag <> FND_API.g_miss_char AND p_user_status_rec.enabled_flag IS NOT NULL THEN
1369: IF AMS_Utility_PVT.is_Y_or_N (p_user_status_rec.enabled_flag) = FND_API.g_false THEN
1370: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
1371: FND_MESSAGE.set_name ('AMS', 'AMS_STATUS_BAD_ENABLED_FLAG');
1372: FND_MSG_PUB.add;
1373: END IF;
1374: x_return_status := FND_API.g_ret_sts_error;
1375: RETURN;
1376: END IF;