29: ------------------------------------------------------------------------------
30: PROCEDURE create_act_messages
31: (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
30: PROCEDURE create_act_messages
31: (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
38: x_msg_count OUT NOCOPY NUMBER,
31: (
32: p_api_version IN NUMBER,
33: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
34: p_commit IN VARCHAR2 := FND_API.g_false,
35: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
36:
37: x_return_status OUT NOCOPY VARCHAR2,
38: x_msg_count OUT NOCOPY NUMBER,
39: x_msg_data OUT NOCOPY VARCHAR2,
68: AMS_Utility_PVT.debug_message(l_full_name||': start');
69:
70: END IF;
71:
72: IF FND_API.to_boolean(p_init_msg_list) THEN
73: FND_MSG_PUB.initialize;
74: END IF;
75:
76: IF NOT FND_API.compatible_api_call(
72: IF FND_API.to_boolean(p_init_msg_list) THEN
73: FND_MSG_PUB.initialize;
74: END IF;
75:
76: IF NOT FND_API.compatible_api_call(
77: l_api_version,
78: p_api_version,
79: l_api_name,
80: g_pkg_name
78: p_api_version,
79: l_api_name,
80: g_pkg_name
81: ) THEN
82: RAISE FND_API.g_exc_unexpected_error;
83: END IF;
84:
85: x_return_status := FND_API.g_ret_sts_success;
86:
81: ) THEN
82: RAISE FND_API.g_exc_unexpected_error;
83: END IF;
84:
85: x_return_status := FND_API.g_ret_sts_success;
86:
87: ----------------------- validate -----------------------
88: IF (AMS_DEBUG_HIGH_ON) THEN
89:
88: IF (AMS_DEBUG_HIGH_ON) THEN
89:
90: AMS_Utility_PVT.debug_message(l_full_name ||': Check campaign rules');
91: END IF;
92: /*if ams_campaignrules_pvt.check_camp_attribute = FND_API.g_true
93: then */
94:
95: -- get sequence
96: open c_actm_seq;
113: p_msg_used_by_id,
114: 1,
115: x_return_status
116: );
117: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
118: RAISE FND_API.g_exc_unexpected_error;
119: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
120: RAISE FND_API.g_exc_error;
121: END IF;
114: 1,
115: x_return_status
116: );
117: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
118: RAISE FND_API.g_exc_unexpected_error;
119: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
120: RAISE FND_API.g_exc_error;
121: END IF;
122:
115: x_return_status
116: );
117: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
118: RAISE FND_API.g_exc_unexpected_error;
119: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
120: RAISE FND_API.g_exc_error;
121: END IF;
122:
123: insert into ams_act_messages
116: );
117: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
118: RAISE FND_API.g_exc_unexpected_error;
119: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
120: RAISE FND_API.g_exc_error;
121: END IF;
122:
123: insert into ams_act_messages
124: (act_message_id,
156: -- added by julou on 03/08/2000
157: -- indicate offer has been defined for the campaign
158: AMS_ObjectAttribute_PVT.modify_object_attribute(
159: p_api_version => l_api_version,
160: p_init_msg_list => FND_API.g_false,
161: p_commit => FND_API.g_false,
162: p_validation_level => FND_API.g_valid_level_full,
163:
164: x_return_status => l_return_status,
157: -- indicate offer has been defined for the campaign
158: AMS_ObjectAttribute_PVT.modify_object_attribute(
159: p_api_version => l_api_version,
160: p_init_msg_list => FND_API.g_false,
161: p_commit => FND_API.g_false,
162: p_validation_level => FND_API.g_valid_level_full,
163:
164: x_return_status => l_return_status,
165: x_msg_count => x_msg_count,
158: AMS_ObjectAttribute_PVT.modify_object_attribute(
159: p_api_version => l_api_version,
160: p_init_msg_list => FND_API.g_false,
161: p_commit => FND_API.g_false,
162: p_validation_level => FND_API.g_valid_level_full,
163:
164: x_return_status => l_return_status,
165: x_msg_count => x_msg_count,
166: x_msg_data => x_msg_data,
170: p_attr => 'MESG',
171: p_attr_defined_flag => 'Y'
172: );
173:
174: IF l_return_status = FND_API.g_ret_sts_error THEN
175: RAISE FND_API.g_exc_error;
176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
177: RAISE FND_API.g_exc_unexpected_error;
178: END IF;
171: p_attr_defined_flag => 'Y'
172: );
173:
174: IF l_return_status = FND_API.g_ret_sts_error THEN
175: RAISE FND_API.g_exc_error;
176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
177: RAISE FND_API.g_exc_unexpected_error;
178: END IF;
179: -- end of part added
172: );
173:
174: IF l_return_status = FND_API.g_ret_sts_error THEN
175: RAISE FND_API.g_exc_error;
176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
177: RAISE FND_API.g_exc_unexpected_error;
178: END IF;
179: -- end of part added
180:
173:
174: IF l_return_status = FND_API.g_ret_sts_error THEN
175: RAISE FND_API.g_exc_error;
176: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
177: RAISE FND_API.g_exc_unexpected_error;
178: END IF;
179: -- end of part added
180:
181: */
179: -- end of part added
180:
181: */
182:
183: IF FND_API.to_boolean(p_commit) THEN
184: COMMIT;
185: END IF;
186:
187: FND_MSG_PUB.count_and_get(
184: COMMIT;
185: END IF;
186:
187: FND_MSG_PUB.count_and_get(
188: p_encoded => FND_API.g_false,
189: p_count => x_msg_count,
190: p_data => x_msg_data
191: );
192:
199: END IF;
200:
201: EXCEPTION
202:
203: WHEN FND_API.g_exc_error THEN
204: ROLLBACK TO create_act_messages;
205: x_return_status := FND_API.g_ret_sts_error;
206: FND_MSG_PUB.count_and_get(
207: p_encoded => FND_API.g_false,
201: EXCEPTION
202:
203: WHEN FND_API.g_exc_error THEN
204: ROLLBACK TO create_act_messages;
205: x_return_status := FND_API.g_ret_sts_error;
206: FND_MSG_PUB.count_and_get(
207: p_encoded => FND_API.g_false,
208: p_count => x_msg_count,
209: p_data => x_msg_data
203: WHEN FND_API.g_exc_error THEN
204: ROLLBACK TO create_act_messages;
205: x_return_status := FND_API.g_ret_sts_error;
206: FND_MSG_PUB.count_and_get(
207: p_encoded => FND_API.g_false,
208: p_count => x_msg_count,
209: p_data => x_msg_data
210: );
211:
208: p_count => x_msg_count,
209: p_data => x_msg_data
210: );
211:
212: WHEN FND_API.g_exc_unexpected_error THEN
213: ROLLBACK TO create_act_messages;
214: x_return_status := FND_API.g_ret_sts_unexp_error ;
215: FND_MSG_PUB.count_and_get(
216: p_encoded => FND_API.g_false,
210: );
211:
212: WHEN FND_API.g_exc_unexpected_error THEN
213: ROLLBACK TO create_act_messages;
214: x_return_status := FND_API.g_ret_sts_unexp_error ;
215: FND_MSG_PUB.count_and_get(
216: p_encoded => FND_API.g_false,
217: p_count => x_msg_count,
218: p_data => x_msg_data
212: WHEN FND_API.g_exc_unexpected_error THEN
213: ROLLBACK TO create_act_messages;
214: x_return_status := FND_API.g_ret_sts_unexp_error ;
215: FND_MSG_PUB.count_and_get(
216: p_encoded => FND_API.g_false,
217: p_count => x_msg_count,
218: p_data => x_msg_data
219: );
220:
220:
221:
222: WHEN OTHERS THEN
223: ROLLBACK TO create_act_messages;
224: x_return_status := FND_API.g_ret_sts_unexp_error ;
225:
226: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
227: THEN
228: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
228: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
229: END IF;
230:
231: FND_MSG_PUB.count_and_get(
232: p_encoded => FND_API.g_false,
233: p_count => x_msg_count,
234: p_data => x_msg_data
235: );
236:
246: ------------------------------------------------------------------------------
247: PROCEDURE update_act_messages
248: (
249: p_api_version IN NUMBER,
250: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
251: p_commit IN VARCHAR2 := FND_API.g_false,
252: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
253:
254: x_return_status OUT NOCOPY VARCHAR2,
247: PROCEDURE update_act_messages
248: (
249: p_api_version IN NUMBER,
250: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
251: p_commit IN VARCHAR2 := FND_API.g_false,
252: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
253:
254: x_return_status OUT NOCOPY VARCHAR2,
255: x_msg_count OUT NOCOPY NUMBER,
248: (
249: p_api_version IN NUMBER,
250: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
251: p_commit IN VARCHAR2 := FND_API.g_false,
252: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
253:
254: x_return_status OUT NOCOPY VARCHAR2,
255: x_msg_count OUT NOCOPY NUMBER,
256: x_msg_data OUT NOCOPY VARCHAR2,
281: AMS_Utility_PVT.debug_message(l_full_name||': start');
282:
283: END IF;
284:
285: IF FND_API.to_boolean(p_init_msg_list) THEN
286: FND_MSG_PUB.initialize;
287: END IF;
288:
289: IF NOT FND_API.compatible_api_call(
285: IF FND_API.to_boolean(p_init_msg_list) THEN
286: FND_MSG_PUB.initialize;
287: END IF;
288:
289: IF NOT FND_API.compatible_api_call(
290: l_api_version,
291: p_api_version,
292: l_api_name,
293: g_pkg_name
291: p_api_version,
292: l_api_name,
293: g_pkg_name
294: ) THEN
295: RAISE FND_API.g_exc_unexpected_error;
296: END IF;
297:
298: x_return_status := FND_API.g_ret_sts_success;
299:
294: ) THEN
295: RAISE FND_API.g_exc_unexpected_error;
296: END IF;
297:
298: x_return_status := FND_API.g_ret_sts_success;
299:
300: ----------------------- validate -----------------------
301: IF (AMS_DEBUG_HIGH_ON) THEN
302:
314:
315: x_return_status
316: );
317:
318: IF l_return_status = FND_API.g_ret_sts_error THEN
319: RAISE FND_API.g_exc_error;
320: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
321: RAISE FND_API.g_exc_unexpected_error;
322: END IF;
315: x_return_status
316: );
317:
318: IF l_return_status = FND_API.g_ret_sts_error THEN
319: RAISE FND_API.g_exc_error;
320: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
321: RAISE FND_API.g_exc_unexpected_error;
322: END IF;
323:
316: );
317:
318: IF l_return_status = FND_API.g_ret_sts_error THEN
319: RAISE FND_API.g_exc_error;
320: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
321: RAISE FND_API.g_exc_unexpected_error;
322: END IF;
323:
324: UPDATE ams_act_messages SET
317:
318: IF l_return_status = FND_API.g_ret_sts_error THEN
319: RAISE FND_API.g_exc_error;
320: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
321: RAISE FND_API.g_exc_unexpected_error;
322: END IF;
323:
324: UPDATE ams_act_messages SET
325: last_update_date = SYSDATE,
331: message_used_by_id = p_msg_used_by_id
332: WHERE act_message_id = p_act_msg_id
333: AND object_version_number = p_object_version;
334:
335: IF FND_API.to_boolean(p_commit) THEN
336: COMMIT;
337: END IF;
338:
339: FND_MSG_PUB.count_and_get(
336: COMMIT;
337: END IF;
338:
339: FND_MSG_PUB.count_and_get(
340: p_encoded => FND_API.g_false,
341: p_count => x_msg_count,
342: p_data => x_msg_data
343: );
344:
351: END IF;
352:
353: EXCEPTION
354:
355: WHEN FND_API.g_exc_error THEN
356: ROLLBACK TO update_act_messages;
357: x_return_status := FND_API.g_ret_sts_error;
358: FND_MSG_PUB.count_and_get(
359: p_encoded => FND_API.g_false,
353: EXCEPTION
354:
355: WHEN FND_API.g_exc_error THEN
356: ROLLBACK TO update_act_messages;
357: x_return_status := FND_API.g_ret_sts_error;
358: FND_MSG_PUB.count_and_get(
359: p_encoded => FND_API.g_false,
360: p_count => x_msg_count,
361: p_data => x_msg_data
355: WHEN FND_API.g_exc_error THEN
356: ROLLBACK TO update_act_messages;
357: x_return_status := FND_API.g_ret_sts_error;
358: FND_MSG_PUB.count_and_get(
359: p_encoded => FND_API.g_false,
360: p_count => x_msg_count,
361: p_data => x_msg_data
362: );
363:
360: p_count => x_msg_count,
361: p_data => x_msg_data
362: );
363:
364: WHEN FND_API.g_exc_unexpected_error THEN
365: ROLLBACK TO update_act_messages;
366: x_return_status := FND_API.g_ret_sts_unexp_error ;
367: FND_MSG_PUB.count_and_get(
368: p_encoded => FND_API.g_false,
362: );
363:
364: WHEN FND_API.g_exc_unexpected_error THEN
365: ROLLBACK TO update_act_messages;
366: x_return_status := FND_API.g_ret_sts_unexp_error ;
367: FND_MSG_PUB.count_and_get(
368: p_encoded => FND_API.g_false,
369: p_count => x_msg_count,
370: p_data => x_msg_data
364: WHEN FND_API.g_exc_unexpected_error THEN
365: ROLLBACK TO update_act_messages;
366: x_return_status := FND_API.g_ret_sts_unexp_error ;
367: FND_MSG_PUB.count_and_get(
368: p_encoded => FND_API.g_false,
369: p_count => x_msg_count,
370: p_data => x_msg_data
371: );
372:
372:
373:
374: WHEN OTHERS THEN
375: ROLLBACK TO update_act_messages;
376: x_return_status := FND_API.g_ret_sts_unexp_error ;
377:
378: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
379: THEN
380: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
380: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
381: END IF;
382:
383: FND_MSG_PUB.count_and_get(
384: p_encoded => FND_API.g_false,
385: p_count => x_msg_count,
386: p_data => x_msg_data
387: );
388:
397: ----------------------------------------------------------------------------------------------
398: PROCEDURE delete_act_messages
399: (
400: p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
402: p_commit IN VARCHAR2 := FND_API.g_false,
403:
404: x_return_status OUT NOCOPY VARCHAR2,
405: x_msg_count OUT NOCOPY NUMBER,
398: PROCEDURE delete_act_messages
399: (
400: p_api_version IN NUMBER,
401: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
402: p_commit IN VARCHAR2 := FND_API.g_false,
403:
404: x_return_status OUT NOCOPY VARCHAR2,
405: x_msg_count OUT NOCOPY NUMBER,
406: x_msg_data OUT NOCOPY VARCHAR2,
442: AMS_Utility_PVT.debug_message(l_full_name||': start');
443:
444: END IF;
445:
446: IF FND_API.to_boolean(p_init_msg_list) THEN
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: IF NOT FND_API.compatible_api_call(
446: IF FND_API.to_boolean(p_init_msg_list) THEN
447: FND_MSG_PUB.initialize;
448: END IF;
449:
450: IF NOT FND_API.compatible_api_call(
451: l_api_version,
452: p_api_version,
453: l_api_name,
454: g_pkg_name
452: p_api_version,
453: l_api_name,
454: g_pkg_name
455: ) THEN
456: RAISE FND_API.g_exc_unexpected_error;
457: END IF;
458:
459: x_return_status := FND_API.g_ret_sts_success;
460:
455: ) THEN
456: RAISE FND_API.g_exc_unexpected_error;
457: END IF;
458:
459: x_return_status := FND_API.g_ret_sts_success;
460:
461: OPEN c_used_by;
462: FETCH c_used_by INTO l_used_by_id, l_used_by;
463: CLOSE c_used_by;
483:
484: IF l_dummy IS NULL THEN
485: AMS_ObjectAttribute_PVT.modify_object_attribute(
486: p_api_version => l_api_version,
487: p_init_msg_list => FND_API.g_false,
488: p_commit => FND_API.g_false,
489: p_validation_level => FND_API.g_valid_level_full,
490:
491: x_return_status => x_return_status,
484: IF l_dummy IS NULL THEN
485: AMS_ObjectAttribute_PVT.modify_object_attribute(
486: p_api_version => l_api_version,
487: p_init_msg_list => FND_API.g_false,
488: p_commit => FND_API.g_false,
489: p_validation_level => FND_API.g_valid_level_full,
490:
491: x_return_status => x_return_status,
492: x_msg_count => x_msg_count,
485: AMS_ObjectAttribute_PVT.modify_object_attribute(
486: p_api_version => l_api_version,
487: p_init_msg_list => FND_API.g_false,
488: p_commit => FND_API.g_false,
489: p_validation_level => FND_API.g_valid_level_full,
490:
491: x_return_status => x_return_status,
492: x_msg_count => x_msg_count,
493: x_msg_data => x_msg_data,
497: p_attr => 'MESG',
498: p_attr_defined_flag => 'N'
499: );
500:
501: IF x_return_status = FND_API.g_ret_sts_error THEN
502: RAISE FND_API.g_exc_error;
503: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
504: RAISE FND_API.g_exc_unexpected_error;
505: END IF;
498: p_attr_defined_flag => 'N'
499: );
500:
501: IF x_return_status = FND_API.g_ret_sts_error THEN
502: RAISE FND_API.g_exc_error;
503: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
504: RAISE FND_API.g_exc_unexpected_error;
505: END IF;
506: END IF;
499: );
500:
501: IF x_return_status = FND_API.g_ret_sts_error THEN
502: RAISE FND_API.g_exc_error;
503: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
504: RAISE FND_API.g_exc_unexpected_error;
505: END IF;
506: END IF;
507: -- end of part added
500:
501: IF x_return_status = FND_API.g_ret_sts_error THEN
502: RAISE FND_API.g_exc_error;
503: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
504: RAISE FND_API.g_exc_unexpected_error;
505: END IF;
506: END IF;
507: -- end of part added
508: */
506: END IF;
507: -- end of part added
508: */
509:
510: IF FND_API.to_boolean(p_commit) THEN
511: COMMIT;
512: END IF;
513:
514: FND_MSG_PUB.count_and_get(
511: COMMIT;
512: END IF;
513:
514: FND_MSG_PUB.count_and_get(
515: p_encoded => FND_API.g_false,
516: p_count => x_msg_count,
517: p_data => x_msg_data
518: );
519:
526: END IF;
527:
528: EXCEPTION
529:
530: WHEN FND_API.g_exc_error THEN
531: ROLLBACK TO delete_act_messages;
532: x_return_status := FND_API.g_ret_sts_error;
533: FND_MSG_PUB.count_and_get(
534: p_encoded => FND_API.g_false,
528: EXCEPTION
529:
530: WHEN FND_API.g_exc_error THEN
531: ROLLBACK TO delete_act_messages;
532: x_return_status := FND_API.g_ret_sts_error;
533: FND_MSG_PUB.count_and_get(
534: p_encoded => FND_API.g_false,
535: p_count => x_msg_count,
536: p_data => x_msg_data
530: WHEN FND_API.g_exc_error THEN
531: ROLLBACK TO delete_act_messages;
532: x_return_status := FND_API.g_ret_sts_error;
533: FND_MSG_PUB.count_and_get(
534: p_encoded => FND_API.g_false,
535: p_count => x_msg_count,
536: p_data => x_msg_data
537: );
538:
535: p_count => x_msg_count,
536: p_data => x_msg_data
537: );
538:
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO delete_act_messages;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get(
543: p_encoded => FND_API.g_false,
537: );
538:
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO delete_act_messages;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get(
543: p_encoded => FND_API.g_false,
544: p_count => x_msg_count,
545: p_data => x_msg_data
539: WHEN FND_API.g_exc_unexpected_error THEN
540: ROLLBACK TO delete_act_messages;
541: x_return_status := FND_API.g_ret_sts_unexp_error ;
542: FND_MSG_PUB.count_and_get(
543: p_encoded => FND_API.g_false,
544: p_count => x_msg_count,
545: p_data => x_msg_data
546: );
547:
547:
548:
549: WHEN OTHERS THEN
550: ROLLBACK TO delete_act_messages;
551: x_return_status := FND_API.g_ret_sts_unexp_error ;
552:
553: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
554: THEN
555: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
555: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
556: END IF;
557:
558: FND_MSG_PUB.count_and_get(
559: p_encoded => FND_API.g_false,
560: p_count => x_msg_count,
561: p_data => x_msg_data
562: );
563:
574:
575: PROCEDURE lock_act_messages
576: (
577: p_api_version IN NUMBER,
578: p_init_msg_list IN VARCHAR2 := FND_API.g_false,
579:
580: x_return_status OUT NOCOPY VARCHAR2,
581: x_msg_count OUT NOCOPY NUMBER,
582: x_msg_data OUT NOCOPY VARCHAR2,
606:
607: AMS_Utility_PVT.debug_message(l_full_name||': start');
608: END IF;
609:
610: IF FND_API.to_boolean(p_init_msg_list) THEN
611: FND_MSG_PUB.initialize;
612: END IF;
613:
614: IF NOT FND_API.compatible_api_call(
610: IF FND_API.to_boolean(p_init_msg_list) THEN
611: FND_MSG_PUB.initialize;
612: END IF;
613:
614: IF NOT FND_API.compatible_api_call(
615: l_api_version,
616: p_api_version,
617: l_api_name,
618: g_pkg_name
616: p_api_version,
617: l_api_name,
618: g_pkg_name
619: ) THEN
620: RAISE FND_API.g_exc_unexpected_error;
621: END IF;
622:
623: x_return_status := FND_API.G_RET_STS_SUCCESS;
624:
619: ) THEN
620: RAISE FND_API.g_exc_unexpected_error;
621: END IF;
622:
623: x_return_status := FND_API.G_RET_STS_SUCCESS;
624:
625: ------------------------ lock -------------------------
626: IF (AMS_DEBUG_HIGH_ON) THEN
627:
635: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
636: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
637: FND_MSG_PUB.add;
638: END IF;
639: RAISE FND_API.g_exc_error;
640: END IF;
641: CLOSE c_actm_lck;
642:
643: -------------------- finish --------------------------
641: CLOSE c_actm_lck;
642:
643: -------------------- finish --------------------------
644: FND_MSG_PUB.count_and_get(
645: p_encoded => FND_API.g_false,
646: p_count => x_msg_count,
647: p_data => x_msg_data
648: );
649:
657:
658: EXCEPTION
659:
660: WHEN AMS_Utility_PVT.resource_locked THEN
661: x_return_status := FND_API.g_ret_sts_error;
662: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
663: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
664: FND_MSG_PUB.add;
665: END IF;
664: FND_MSG_PUB.add;
665: END IF;
666:
667: FND_MSG_PUB.count_and_get(
668: p_encoded => FND_API.g_false,
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
673: WHEN FND_API.g_exc_error THEN
674: x_return_status := FND_API.g_ret_sts_error;
675: FND_MSG_PUB.count_and_get(
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
673: WHEN FND_API.g_exc_error THEN
674: x_return_status := FND_API.g_ret_sts_error;
675: FND_MSG_PUB.count_and_get(
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
678: p_data => x_msg_data
672:
673: WHEN FND_API.g_exc_error THEN
674: x_return_status := FND_API.g_ret_sts_error;
675: FND_MSG_PUB.count_and_get(
676: p_encoded => FND_API.g_false,
677: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680:
677: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680:
681: WHEN FND_API.g_exc_unexpected_error THEN
682: x_return_status := FND_API.g_ret_sts_unexp_error ;
683: FND_MSG_PUB.count_and_get(
684: p_encoded => FND_API.g_false,
685: p_count => x_msg_count,
678: p_data => x_msg_data
679: );
680:
681: WHEN FND_API.g_exc_unexpected_error THEN
682: x_return_status := FND_API.g_ret_sts_unexp_error ;
683: FND_MSG_PUB.count_and_get(
684: p_encoded => FND_API.g_false,
685: p_count => x_msg_count,
686: p_data => x_msg_data
680:
681: WHEN FND_API.g_exc_unexpected_error THEN
682: x_return_status := FND_API.g_ret_sts_unexp_error ;
683: FND_MSG_PUB.count_and_get(
684: p_encoded => FND_API.g_false,
685: p_count => x_msg_count,
686: p_data => x_msg_data
687: );
688:
686: p_data => x_msg_data
687: );
688:
689: WHEN OTHERS THEN
690: x_return_status := FND_API.g_ret_sts_unexp_error ;
691: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
692: THEN
693: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
694: END IF;
693: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
694: END IF;
695:
696: FND_MSG_PUB.count_and_get(
697: p_encoded => FND_API.g_false,
698: p_count => x_msg_count,
699: p_data => x_msg_data
700: );
701:
748: and message_id = p_message_id;
749:
750: BEGIN
751:
752: x_return_status := FND_API.g_ret_sts_success;
753:
754: IF (AMS_DEBUG_HIGH_ON) THEN
755:
756:
766: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
767: FND_MESSAGE.Set_Name ('AMS', 'AMS_MESSAGE_NOT_FOUND');
768: FND_MSG_PUB.Add;
769: END IF;
770: x_return_status := FND_API.G_RET_STS_ERROR;
771: return;
772: end if;
773: close c_chk_message;
774:
798: ,p_pk_name => l_pk_name
799: ,p_pk_value => l_pk_value
800: ,p_pk_data_type => l_pk_data_type
801: ,p_additional_where_clause => l_additional_where_clause
802: ) = FND_API.G_FALSE
803: THEN
804: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
805: FND_MESSAGE.Set_Name ('AMS', 'AMS_ACTM_INVALID_USED_BY');
806: FND_MESSAGE.Set_token('OBJTYPE', l_obj_type, FALSE);
805: FND_MESSAGE.Set_Name ('AMS', 'AMS_ACTM_INVALID_USED_BY');
806: FND_MESSAGE.Set_token('OBJTYPE', l_obj_type, FALSE);
807: FND_MSG_PUB.Add;
808: END IF;
809: x_return_status := FND_API.G_RET_STS_ERROR;
810: return;
811: END IF;
812: ********************/
813: /********* commented by musman on 03/29/2001
818:
819: if p_msg_used_by = 'CAMP'
820: then
821: if ams_campaignrules_pvt.check_camp_attribute(
822: p_msg_used_by_id, 'MESG' ) = FND_API.G_FALSE
823: then
824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
825: FND_MESSAGE.Set_Name ('AMS', 'AMS_MESSAGE_NOT_AVAILABLE');
826: FND_MSG_PUB.Add;
824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
825: FND_MESSAGE.Set_Name ('AMS', 'AMS_MESSAGE_NOT_AVAILABLE');
826: FND_MSG_PUB.Add;
827: END IF;
828: x_return_status := FND_API.G_RET_STS_ERROR;
829: return;
830: end if;
831: end if;
832:
847: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
848: FND_MESSAGE.Set_Name ('AMS', 'AMS_MESSAGE_NOT_UNIQUE');
849: FND_MSG_PUB.Add;
850: END IF;
851: x_return_status := FND_API.G_RET_STS_ERROR;
852: return;
853: end if;
854: close c_chk_actmsg;
855: