74: --------------------- initialize -----------------------
75: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
76:
77: IF FND_API.to_boolean (p_init_msg_list) THEN
78: FND_MSG_PUB.initialize;
79: END IF;
80:
81: IF NOT FND_API.compatible_api_call (
82: l_api_version,
93: OPEN c_lock_req;
94: FETCH c_lock_req INTO l_dummy;
95: IF c_lock_req%NOTFOUND THEN
96: CLOSE c_lock_req;
97: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
98: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
99: FND_MSG_PUB.add;
100: END IF;
101: RAISE FND_API.g_exc_error;
95: IF c_lock_req%NOTFOUND THEN
96: CLOSE c_lock_req;
97: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
98: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
99: FND_MSG_PUB.add;
100: END IF;
101: RAISE FND_API.g_exc_error;
102: END IF;
103: CLOSE c_lock_req;
102: END IF;
103: CLOSE c_lock_req;
104:
105: -------------------- finish --------------------------
106: FND_MSG_PUB.count_and_get (
107: p_encoded => FND_API.g_false,
108: p_count => x_msg_count,
109: p_data => x_msg_data
110: );
113:
114: EXCEPTION
115: WHEN AMS_Utility_PVT.resource_locked THEN
116: x_return_status := FND_API.g_ret_sts_error;
117: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
118: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
119: FND_MSG_PUB.add;
120: END IF;
121:
115: WHEN AMS_Utility_PVT.resource_locked THEN
116: x_return_status := FND_API.g_ret_sts_error;
117: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
118: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
119: FND_MSG_PUB.add;
120: END IF;
121:
122: FND_MSG_PUB.count_and_get(
123: p_encoded => FND_API.g_false,
118: FND_MESSAGE.set_name ('AMS', 'AMS_API_RESOURCE_LOCKED');
119: FND_MSG_PUB.add;
120: END IF;
121:
122: FND_MSG_PUB.count_and_get(
123: p_encoded => FND_API.g_false,
124: p_count => x_msg_count,
125: p_data => x_msg_data
126: );
125: p_data => x_msg_data
126: );
127: WHEN FND_API.g_exc_error THEN
128: x_return_status := FND_API.g_ret_sts_error;
129: FND_MSG_PUB.count_and_get (
130: p_encoded => FND_API.g_false,
131: p_count => x_msg_count,
132: p_data => x_msg_data
133: );
132: p_data => x_msg_data
133: );
134: WHEN FND_API.g_exc_unexpected_error THEN
135: x_return_status := FND_API.g_ret_sts_unexp_error ;
136: FND_MSG_PUB.count_and_get (
137: p_encoded => FND_API.g_false,
138: p_count => x_msg_count,
139: p_data => x_msg_data
140: );
139: p_data => x_msg_data
140: );
141: WHEN OTHERS THEN
142: x_return_status := FND_API.g_ret_sts_unexp_error ;
143: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
144: THEN
145: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
146: END IF;
147:
141: WHEN OTHERS THEN
142: x_return_status := FND_API.g_ret_sts_unexp_error ;
143: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
144: THEN
145: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
146: END IF;
147:
148: FND_MSG_PUB.count_and_get (
149: p_encoded => FND_API.g_false,
144: THEN
145: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
146: END IF;
147:
148: FND_MSG_PUB.count_and_get (
149: p_encoded => FND_API.g_false,
150: p_count => x_msg_count,
151: p_data => x_msg_data
152: );
193:
194: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
195:
196: IF FND_API.to_boolean (p_init_msg_list) THEN
197: FND_MSG_PUB.initialize;
198: END IF;
199:
200: IF NOT FND_API.compatible_api_call(
201: l_api_version,
257: last_update_login = FND_GLOBAL.conc_login_id
258: WHERE list_field_id = l_listfield_rec.list_field_id;
259:
260: IF (SQL%NOTFOUND) THEN
261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
262: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
263: FND_MSG_PUB.add;
264: END IF;
265: RAISE FND_API.g_exc_error;
259:
260: IF (SQL%NOTFOUND) THEN
261: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
262: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
263: FND_MSG_PUB.add;
264: END IF;
265: RAISE FND_API.g_exc_error;
266: END IF;
267:
275: WHERE list_field_id = l_listfield_rec.list_field_id
276: AND USERENV('LANG') IN (language, source_lang);
277:
278: IF (SQL%NOTFOUND) THEN
279: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
280: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
281: FND_MSG_PUB.add;
282: END IF;
283: RAISE FND_API.g_exc_error;
277:
278: IF (SQL%NOTFOUND) THEN
279: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
280: FND_MESSAGE.set_name ('AMS', 'AMS_API_RECORD_NOT_FOUND');
281: FND_MSG_PUB.add;
282: END IF;
283: RAISE FND_API.g_exc_error;
284: END IF;
285:
287: IF FND_API.to_boolean (p_commit) THEN
288: COMMIT;
289: END IF;
290:
291: FND_MSG_PUB.count_and_get (
292: p_encoded => FND_API.g_false,
293: p_count => x_msg_count,
294: p_data => x_msg_data
295: );
299: EXCEPTION
300: WHEN FND_API.g_exc_error THEN
301: ROLLBACK TO Update_ListField;
302: x_return_status := FND_API.g_ret_sts_error;
303: FND_MSG_PUB.count_and_get (
304: p_encoded => FND_API.g_false,
305: p_count => x_msg_count,
306: p_data => x_msg_data
307: );
307: );
308: WHEN FND_API.g_exc_unexpected_error THEN
309: ROLLBACK TO Update_ListField;
310: x_return_status := FND_API.g_ret_sts_unexp_error ;
311: FND_MSG_PUB.count_and_get (
312: p_encoded => FND_API.g_false,
313: p_count => x_msg_count,
314: p_data => x_msg_data
315: );
316: WHEN OTHERS THEN
317: ROLLBACK TO Update_ListField;
318: x_return_status := FND_API.g_ret_sts_unexp_error ;
319:
320: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
321: THEN
322: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
323: END IF;
324:
318: x_return_status := FND_API.g_ret_sts_unexp_error ;
319:
320: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
321: THEN
322: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
323: END IF;
324:
325: FND_MSG_PUB.count_and_get (
326: p_encoded => FND_API.g_false,
321: THEN
322: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
323: END IF;
324:
325: FND_MSG_PUB.count_and_get (
326: p_encoded => FND_API.g_false,
327: p_count => x_msg_count,
328: p_data => x_msg_data
329: );
368: --------------------- initialize -----------------------
369: AMS_Utility_PVT.debug_message (l_full_name || ': Start');
370:
371: IF FND_API.to_boolean (p_init_msg_list) THEN
372: FND_MSG_PUB.initialize;
373: END IF;
374:
375: IF NOT FND_API.compatible_api_call (
376: l_api_version,
416: END IF;
417: END IF;
418:
419: -------------------- finish --------------------------
420: FND_MSG_PUB.count_and_get (
421: p_encoded => FND_API.g_false,
422: p_count => x_msg_count,
423: p_data => x_msg_data
424: );
427:
428: EXCEPTION
429: WHEN FND_API.g_exc_error THEN
430: x_return_status := FND_API.g_ret_sts_error;
431: FND_MSG_PUB.count_and_get (
432: p_encoded => FND_API.g_false,
433: p_count => x_msg_count,
434: p_data => x_msg_data
435: );
434: p_data => x_msg_data
435: );
436: WHEN FND_API.g_exc_unexpected_error THEN
437: x_return_status := FND_API.g_ret_sts_unexp_error ;
438: FND_MSG_PUB.count_and_get (
439: p_encoded => FND_API.g_false,
440: p_count => x_msg_count,
441: p_data => x_msg_data
442: );
441: p_data => x_msg_data
442: );
443: WHEN OTHERS THEN
444: x_return_status := FND_API.g_ret_sts_unexp_error;
445: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
446: THEN
447: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
448: END IF;
449:
443: WHEN OTHERS THEN
444: x_return_status := FND_API.g_ret_sts_unexp_error;
445: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_unexp_error)
446: THEN
447: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
448: END IF;
449:
450: FND_MSG_PUB.count_and_get (
451: p_encoded => FND_API.g_false,
446: THEN
447: FND_MSG_PUB.add_exc_msg (g_pkg_name, l_api_name);
448: END IF;
449:
450: FND_MSG_PUB.count_and_get (
451: p_encoded => FND_API.g_false,
452: p_count => x_msg_count,
453: p_data => x_msg_data
454: );
574: OPEN c_field;
575: FETCH c_field INTO l_listfield_rec;
576: IF c_field%NOTFOUND THEN
577: CLOSE c_field;
578: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
579: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
580: FND_MSG_PUB.add;
581: END IF;
582: RAISE FND_API.g_exc_error;
576: IF c_field%NOTFOUND THEN
577: CLOSE c_field;
578: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
579: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
580: FND_MSG_PUB.add;
581: END IF;
582: RAISE FND_API.g_exc_error;
583: END IF;
584: CLOSE c_field;
650: --
651: -- ENABLED_FLAG
652: IF p_listfield_rec.enabled_flag <> FND_API.g_miss_char AND p_listfield_rec.enabled_flag IS NOT NULL THEN
653: IF AMS_Utility_PVT.is_Y_or_N (p_listfield_rec.enabled_flag) = FND_API.g_false THEN
654: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
655: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
656: FND_MSG_PUB.add;
657: END IF;
658:
652: IF p_listfield_rec.enabled_flag <> FND_API.g_miss_char AND p_listfield_rec.enabled_flag IS NOT NULL THEN
653: IF AMS_Utility_PVT.is_Y_or_N (p_listfield_rec.enabled_flag) = FND_API.g_false THEN
654: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
655: FND_MESSAGE.set_name ('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
656: FND_MSG_PUB.add;
657: END IF;
658:
659: x_return_status := FND_API.g_ret_sts_error;
660: RETURN;