[Home] [Help]
34: l_ruleset_rec get_rulesets_rec%ROWTYPE;
35:
36: BEGIN
37: -- Initialize API return status to success
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39: x_loading_status := p_loading_status;
40: -- API body
41:
42: open get_rulesets_rec;
50: FND_MESSAGE.Set_Name('CN', 'CN_INVALID_REVENUE_CLASS');
51: FND_MSG_PUB.Add;
52: END IF;
53: x_loading_status := 'CN_INVALID_REVENUE_CLASS';
54: RAISE FND_API.G_EXC_ERROR ;
55: END IF;
56: null;
57: else
58: IF p_rule_rec.expense_ccid is NULL OR
61: FND_MESSAGE.Set_Name('CN', 'CN_INVALID_ACCOUNT_CODE');
62: FND_MSG_PUB.Add;
63: END IF;
64: x_loading_status := 'CN_INVALID_ACCOUNT_CODE';
65: RAISE FND_API.G_EXC_ERROR ;
66: END IF;
67: end if;
68: */
69:
71:
72:
73: -- End of API body.
74: EXCEPTION
75: WHEN FND_API.G_EXC_ERROR THEN
76: x_return_status := FND_API.G_RET_STS_ERROR ;
77: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: x_loading_status := 'UNEXPECTED_ERR';
72:
73: -- End of API body.
74: EXCEPTION
75: WHEN FND_API.G_EXC_ERROR THEN
76: x_return_status := FND_API.G_RET_STS_ERROR ;
77: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: x_loading_status := 'UNEXPECTED_ERR';
80: WHEN OTHERS THEN
73: -- End of API body.
74: EXCEPTION
75: WHEN FND_API.G_EXC_ERROR THEN
76: x_return_status := FND_API.G_RET_STS_ERROR ;
77: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: x_loading_status := 'UNEXPECTED_ERR';
80: WHEN OTHERS THEN
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
74: EXCEPTION
75: WHEN FND_API.G_EXC_ERROR THEN
76: x_return_status := FND_API.G_RET_STS_ERROR ;
77: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: x_loading_status := 'UNEXPECTED_ERR';
80: WHEN OTHERS THEN
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
82: x_loading_status := 'UNEXPECTED_ERR';
77: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
79: x_loading_status := 'UNEXPECTED_ERR';
80: WHEN OTHERS THEN
81: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
82: x_loading_status := 'UNEXPECTED_ERR';
83: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
84: THEN
85: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
147: fnd_message.set_name('CN', 'CN_DUPLICATE_RULE_NAME');
148: fnd_msg_pub.add;
149: END IF;
150: x_loading_status := 'CN_DUPLICATE_RULE_NAME';
151: RAISE FND_API.G_EXC_ERROR;
152: ELSE
153: l_current_parent_rule_id := p_parent_rule_id;
154: WHILE l_current_parent_rule_id <> -1002
155: LOOP
165: fnd_message.set_name('CN', 'CN_DUPLICATE_RULE_NAME');
166: fnd_msg_pub.add;
167: END IF;
168: x_loading_status := 'CN_DUPLICATE_RULE_NAME';
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171: END LOOP;
172: END IF;
173: RETURN fnd_api.g_false;
169: RAISE FND_API.G_EXC_ERROR;
170: END IF;
171: END LOOP;
172: END IF;
173: RETURN fnd_api.g_false;
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: RETURN fnd_api.g_true;
177:
171: END LOOP;
172: END IF;
173: RETURN fnd_api.g_false;
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: RETURN fnd_api.g_true;
177:
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: x_loading_status := 'UNEXPECTED_ERR';
172: END IF;
173: RETURN fnd_api.g_false;
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: RETURN fnd_api.g_true;
177:
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: x_loading_status := 'UNEXPECTED_ERR';
180: RETURN fnd_api.g_true;
174: EXCEPTION
175: WHEN FND_API.G_EXC_ERROR THEN
176: RETURN fnd_api.g_true;
177:
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: x_loading_status := 'UNEXPECTED_ERR';
180: RETURN fnd_api.g_true;
181:
182: WHEN OTHERS THEN
176: RETURN fnd_api.g_true;
177:
178: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
179: x_loading_status := 'UNEXPECTED_ERR';
180: RETURN fnd_api.g_true;
181:
182: WHEN OTHERS THEN
183: x_loading_status := 'UNEXPECTED_ERR';
184: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
185: THEN
186: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
187: END IF;
188: RETURN fnd_api.g_true;
189: END;
190: --=============================================================================
191: -- Start of comments
192: -- API name : Create_Rule
195: -- Pre-reqs : None.
196: -- Parameters :
197: -- IN : p_api_version IN NUMBER Required
198: -- p_init_msg_list IN VARCHAR2 Optional
199: -- Default = FND_API.G_FALSE
200: -- p_commit IN VARCHAR2 Optional
201: -- Default = FND_API.G_FALSE
202: -- p_validation_level IN NUMBER Optional
203: -- Default = FND_API.G_VALID_LEVEL_FULL
197: -- IN : p_api_version IN NUMBER Required
198: -- p_init_msg_list IN VARCHAR2 Optional
199: -- Default = FND_API.G_FALSE
200: -- p_commit IN VARCHAR2 Optional
201: -- Default = FND_API.G_FALSE
202: -- p_validation_level IN NUMBER Optional
203: -- Default = FND_API.G_VALID_LEVEL_FULL
204: -- p_rule_rec IN
205: -- CN_Rule_PVT.rule_rec_type
199: -- Default = FND_API.G_FALSE
200: -- p_commit IN VARCHAR2 Optional
201: -- Default = FND_API.G_FALSE
202: -- p_validation_level IN NUMBER Optional
203: -- Default = FND_API.G_VALID_LEVEL_FULL
204: -- p_rule_rec IN
205: -- CN_Rule_PVT.rule_rec_type
206: --
207: -- OUT : x_return_status OUT VARCHAR2(1)
220: -- End of comments
221: ---=============================================================================
222: PROCEDURE Create_Rule
223: ( p_api_version IN NUMBER,
224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
225: p_commit IN VARCHAR2 := FND_API.G_FALSE,
226: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
227: x_return_status OUT NOCOPY VARCHAR2,
228: x_msg_count OUT NOCOPY NUMBER,
221: ---=============================================================================
222: PROCEDURE Create_Rule
223: ( p_api_version IN NUMBER,
224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
225: p_commit IN VARCHAR2 := FND_API.G_FALSE,
226: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
227: x_return_status OUT NOCOPY VARCHAR2,
228: x_msg_count OUT NOCOPY NUMBER,
229: x_msg_data OUT NOCOPY VARCHAR2,
222: PROCEDURE Create_Rule
223: ( p_api_version IN NUMBER,
224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
225: p_commit IN VARCHAR2 := FND_API.G_FALSE,
226: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
227: x_return_status OUT NOCOPY VARCHAR2,
228: x_msg_count OUT NOCOPY NUMBER,
229: x_msg_data OUT NOCOPY VARCHAR2,
230: x_loading_status OUT NOCOPY VARCHAR2,
247:
248: -- Standard Start of API savepoint
249: SAVEPOINT Create_Rule;
250: -- Standard call to check for call compatibility.
251: IF NOT FND_API.Compatible_API_Call ( l_api_version,
252: p_api_version,
253: l_api_name,
254: G_PKG_NAME )
255: THEN
252: p_api_version,
253: l_api_name,
254: G_PKG_NAME )
255: THEN
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END IF;
258:
259: -- Initialize message list if p_init_msg_list is set to TRUE.
260: IF FND_API.to_Boolean( p_init_msg_list )
256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
257: END IF;
258:
259: -- Initialize message list if p_init_msg_list is set to TRUE.
260: IF FND_API.to_Boolean( p_init_msg_list )
261: THEN
262: FND_MSG_PUB.initialize;
263: END IF;
264:
262: FND_MSG_PUB.initialize;
263: END IF;
264:
265: -- Initialize API return status to success
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: x_loading_status := 'CN_INSERTED';
268: -- API body
269:
270: --Check for null and missing parameters in the p_rule_rec parameter
272: /* IF (cn_api.chk_null_num_para
273: ( p_rule_rec.ruleset_id,
274: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
275: x_loading_status,
276: x_loading_status) = FND_API.G_TRUE )
277: THEN
278: RAISE fnd_api.g_exc_error;
279: END IF;
280:
274: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
275: x_loading_status,
276: x_loading_status) = FND_API.G_TRUE )
277: THEN
278: RAISE fnd_api.g_exc_error;
279: END IF;
280:
281: IF (cn_api.chk_null_num_para
282: ( p_rule_rec.rule_id,
281: IF (cn_api.chk_null_num_para
282: ( p_rule_rec.rule_id,
283: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
284: x_loading_status,
285: x_loading_status) = FND_API.G_TRUE )
286: THEN
287: RAISE fnd_api.g_exc_error;
288: END IF;
289:
283: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
284: x_loading_status,
285: x_loading_status) = FND_API.G_TRUE )
286: THEN
287: RAISE fnd_api.g_exc_error;
288: END IF;
289:
290: */
291:
292: IF (cn_api.chk_null_char_para
293: ( p_rule_rec.rule_name,
294: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
295: x_loading_status,
296: x_loading_status) = FND_API.G_TRUE )
297: THEN
298: RAISE fnd_api.g_exc_error;
299: END IF;
300: IF (cn_api.chk_null_num_para
294: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
295: x_loading_status,
296: x_loading_status) = FND_API.G_TRUE )
297: THEN
298: RAISE fnd_api.g_exc_error;
299: END IF;
300: IF (cn_api.chk_null_num_para
301: ( p_rule_rec.parent_rule_id,
302: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
300: IF (cn_api.chk_null_num_para
301: ( p_rule_rec.parent_rule_id,
302: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
303: x_loading_status,
304: x_loading_status) = FND_API.G_TRUE )
305: THEN
306: RAISE fnd_api.g_exc_error;
307: END IF;
308:
302: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
303: x_loading_status,
304: x_loading_status) = FND_API.G_TRUE )
305: THEN
306: RAISE fnd_api.g_exc_error;
307: END IF;
308:
309: /* IF (cn_api.chk_null_num_para
310: ( p_rule_rec.parent_rule_id,
309: /* IF (cn_api.chk_null_num_para
310: ( p_rule_rec.parent_rule_id,
311: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
312: x_loading_status,
313: x_loading_status) = FND_API.G_TRUE )
314: THEN
315: RAISE fnd_api.g_exc_error;
316: END IF;
317: */
311: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
312: x_loading_status,
313: x_loading_status) = FND_API.G_TRUE )
314: THEN
315: RAISE fnd_api.g_exc_error;
316: END IF;
317: */
318:
319: --Now check if the ruleset exists.
331: fnd_message.set_name('CN', 'CN_INVALID_RULESET');
332: fnd_msg_pub.add;
333: END IF;
334: x_loading_status := 'CN_INVALID_RULESET';
335: RAISE FND_API.G_EXC_ERROR;
336: END IF;
337:
338: --Validate the parent rule
339: SELECT count(1)
352: p_rule_rec.parent_rule_id,
353: p_rule_rec.rule_name,
354: p_rule_rec.org_id,
355: x_loading_status,
356: x_loading_status) = fnd_api.g_true
357: THEN
358: --Error condition
359: /*IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
360: THEN
362: fnd_msg_pub.add;
363: END IF;
364: */
365: x_loading_status := 'CN_INVALID_RULE_NAME';
366: RAISE FND_API.G_EXC_ERROR;
367: END IF;
368:
369: IF p_rule_rec.sequence_number IS NULL
370: then
387: p_action => 'CREATE',
388: p_loading_status => x_loading_status,
389: x_loading_status => x_loading_status
390: );
391: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
392: RAISE FND_API.G_EXC_ERROR ;
393: END IF;
394:
395:
388: p_loading_status => x_loading_status,
389: x_loading_status => x_loading_status
390: );
391: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
392: RAISE FND_API.G_EXC_ERROR ;
393: END IF;
394:
395:
396: cn_syin_rules_pkg.insert_row(l_rule_id,
411:
412: -- End of API body.
413:
414: -- Standard check of p_commit.
415: IF FND_API.To_Boolean( p_commit )
416: THEN
417: COMMIT WORK;
418: END IF;
419:
422: (p_count => x_msg_count,
423: p_data => x_msg_data
424: );
425: EXCEPTION
426: WHEN FND_API.G_EXC_ERROR THEN
427: ROLLBACK TO Create_Rule;
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: FND_MSG_PUB.Count_And_Get
430: (p_count => x_msg_count,
424: );
425: EXCEPTION
426: WHEN FND_API.G_EXC_ERROR THEN
427: ROLLBACK TO Create_Rule;
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: FND_MSG_PUB.Count_And_Get
430: (p_count => x_msg_count,
431: p_data => x_msg_data,
432: p_encoded => fnd_api.g_false
428: x_return_status := FND_API.G_RET_STS_ERROR ;
429: FND_MSG_PUB.Count_And_Get
430: (p_count => x_msg_count,
431: p_data => x_msg_data,
432: p_encoded => fnd_api.g_false
433: );
434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
435: ROLLBACK TO Create_Rule;
436: x_loading_status := 'UNEXPECTED_ERR';
430: (p_count => x_msg_count,
431: p_data => x_msg_data,
432: p_encoded => fnd_api.g_false
433: );
434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
435: ROLLBACK TO Create_Rule;
436: x_loading_status := 'UNEXPECTED_ERR';
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
438: FND_MSG_PUB.Count_And_Get
433: );
434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
435: ROLLBACK TO Create_Rule;
436: x_loading_status := 'UNEXPECTED_ERR';
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
438: FND_MSG_PUB.Count_And_Get
439: (p_count => x_msg_count,
440: p_data => x_msg_data,
441: p_encoded => fnd_api.g_false
437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
438: FND_MSG_PUB.Count_And_Get
439: (p_count => x_msg_count,
440: p_data => x_msg_data,
441: p_encoded => fnd_api.g_false
442: );
443: WHEN OTHERS THEN
444: ROLLBACK TO Create_Rule;
445: x_loading_status := 'UNEXPECTED_ERR';
442: );
443: WHEN OTHERS THEN
444: ROLLBACK TO Create_Rule;
445: x_loading_status := 'UNEXPECTED_ERR';
446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
447: IF FND_MSG_PUB.Check_Msg_Level
448: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
449: THEN
450: FND_MSG_PUB.Add_Exc_Msg
452: END IF;
453: FND_MSG_PUB.Count_And_Get
454: (p_count => x_msg_count,
455: p_data => x_msg_data,
456: p_encoded => fnd_api.g_false
457: );
458: END Create_Rule;
459: --=============================================================================
460: -- Start of comments
466: -- Pre-reqs : None.
467: -- Parameters :
468: -- IN : p_api_version IN NUMBER Required
469: -- p_init_msg_list IN VARCHAR2 Optional
470: -- Default = FND_API.G_FALSE
471: -- p_commit IN VARCHAR2 Optional
472: -- Default = FND_API.G_FALSE
473: -- p_validation_level IN NUMBER Optional
474: -- Default = FND_API.G_VALID_LEVEL_FULL
468: -- IN : p_api_version IN NUMBER Required
469: -- p_init_msg_list IN VARCHAR2 Optional
470: -- Default = FND_API.G_FALSE
471: -- p_commit IN VARCHAR2 Optional
472: -- Default = FND_API.G_FALSE
473: -- p_validation_level IN NUMBER Optional
474: -- Default = FND_API.G_VALID_LEVEL_FULL
475: -- p_rule_rec_type IN
476: -- CN_Rule_PVT.rule_rec_type
470: -- Default = FND_API.G_FALSE
471: -- p_commit IN VARCHAR2 Optional
472: -- Default = FND_API.G_FALSE
473: -- p_validation_level IN NUMBER Optional
474: -- Default = FND_API.G_VALID_LEVEL_FULL
475: -- p_rule_rec_type IN
476: -- CN_Rule_PVT.rule_rec_type
477: --
478: -- OUT : x_return_status OUT VARCHAR2(1)
492: --=============================================================================
493:
494: PROCEDURE Update_Rule
495: ( p_api_version IN NUMBER,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
493:
494: PROCEDURE Update_Rule
495: ( p_api_version IN NUMBER,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
501: x_msg_data OUT NOCOPY VARCHAR2,
494: PROCEDURE Update_Rule
495: ( p_api_version IN NUMBER,
496: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
497: p_commit IN VARCHAR2 := FND_API.G_FALSE,
498: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
499: x_return_status OUT NOCOPY VARCHAR2,
500: x_msg_count OUT NOCOPY NUMBER,
501: x_msg_data OUT NOCOPY VARCHAR2,
502: x_loading_status OUT NOCOPY VARCHAR2,
516:
517: -- Standard Start of API savepoint
518: SAVEPOINT Update_Rule;
519: -- Standard call to check for call compatibility.
520: IF NOT FND_API.Compatible_API_Call ( l_api_version,
521: p_api_version,
522: l_api_name,
523: G_PKG_NAME )
524: THEN
521: p_api_version,
522: l_api_name,
523: G_PKG_NAME )
524: THEN
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: END IF;
527:
528: -- Initialize message list if p_init_msg_list is set to TRUE.
529: IF FND_API.to_Boolean( p_init_msg_list )
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: END IF;
527:
528: -- Initialize message list if p_init_msg_list is set to TRUE.
529: IF FND_API.to_Boolean( p_init_msg_list )
530: THEN
531: FND_MSG_PUB.initialize;
532: END IF;
533:
531: FND_MSG_PUB.initialize;
532: END IF;
533:
534: -- Initialize API return status to success
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
536: x_loading_status := 'CN_UPDATED';
537:
538: -- API body
539:
544:
545: if (l_object_version_number <> p_rule_rec.object_version_no) then
546: fnd_message.set_name('CN', 'CN_RECORD_CHANGED');
547: fnd_msg_pub.add;
548: raise fnd_api.g_exc_error;
549: end if;
550:
551: -- end Check for object version number mismatch
552:
557: IF (cn_api.chk_null_num_para
558: ( p_old_rule_rec.ruleset_id,
559: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
560: x_loading_status,
561: x_loading_status) = FND_API.G_TRUE )
562: THEN
563: RAISE fnd_api.g_exc_error;
564: END IF;
565: IF (cn_api.chk_null_num_para
559: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
560: x_loading_status,
561: x_loading_status) = FND_API.G_TRUE )
562: THEN
563: RAISE fnd_api.g_exc_error;
564: END IF;
565: IF (cn_api.chk_null_num_para
566: ( p_old_rule_rec.rule_id,
567: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
565: IF (cn_api.chk_null_num_para
566: ( p_old_rule_rec.rule_id,
567: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
568: x_loading_status,
569: x_loading_status) = FND_API.G_TRUE )
570: THEN
571: RAISE fnd_api.g_exc_error;
572: END IF;
573: IF (cn_api.chk_null_char_para
567: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
568: x_loading_status,
569: x_loading_status) = FND_API.G_TRUE )
570: THEN
571: RAISE fnd_api.g_exc_error;
572: END IF;
573: IF (cn_api.chk_null_char_para
574: ( p_old_rule_rec.rule_name,
575: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
573: IF (cn_api.chk_null_char_para
574: ( p_old_rule_rec.rule_name,
575: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
576: x_loading_status,
577: x_loading_status) = FND_API.G_TRUE )
578: THEN
579: RAISE fnd_api.g_exc_error;
580: END IF;
581: IF (cn_api.chk_null_num_para
575: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
576: x_loading_status,
577: x_loading_status) = FND_API.G_TRUE )
578: THEN
579: RAISE fnd_api.g_exc_error;
580: END IF;
581: IF (cn_api.chk_null_num_para
582: ( p_old_rule_rec.parent_rule_id,
583: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
581: IF (cn_api.chk_null_num_para
582: ( p_old_rule_rec.parent_rule_id,
583: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
584: x_loading_status,
585: x_loading_status) = FND_API.G_TRUE )
586: THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589: IF (cn_api.chk_null_num_para
583: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
584: x_loading_status,
585: x_loading_status) = FND_API.G_TRUE )
586: THEN
587: RAISE fnd_api.g_exc_error;
588: END IF;
589: IF (cn_api.chk_null_num_para
590: ( p_old_rule_rec.parent_rule_id,
591: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
589: IF (cn_api.chk_null_num_para
590: ( p_old_rule_rec.parent_rule_id,
591: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
592: x_loading_status,
593: x_loading_status) = FND_API.G_TRUE )
594: THEN
595: RAISE fnd_api.g_exc_error;
596: END IF;
597:
591: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
592: x_loading_status,
593: x_loading_status) = FND_API.G_TRUE )
594: THEN
595: RAISE fnd_api.g_exc_error;
596: END IF;
597:
598:
599:
600: IF (cn_api.chk_null_num_para
601: ( p_rule_rec.ruleset_id,
602: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
603: x_loading_status,
604: x_loading_status) = FND_API.G_TRUE )
605: THEN
606: RAISE fnd_api.g_exc_error;
607: END IF;
608: IF (cn_api.chk_null_num_para
602: cn_api.get_lkup_meaning('RULESET_ID', 'RULESET_TYPE'),
603: x_loading_status,
604: x_loading_status) = FND_API.G_TRUE )
605: THEN
606: RAISE fnd_api.g_exc_error;
607: END IF;
608: IF (cn_api.chk_null_num_para
609: ( p_rule_rec.rule_id,
610: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
608: IF (cn_api.chk_null_num_para
609: ( p_rule_rec.rule_id,
610: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
611: x_loading_status,
612: x_loading_status) = FND_API.G_TRUE )
613: THEN
614: RAISE fnd_api.g_exc_error;
615: END IF;
616: IF (cn_api.chk_null_char_para
610: cn_api.get_lkup_meaning('RULE_ID', 'RULESET_TYPE'),
611: x_loading_status,
612: x_loading_status) = FND_API.G_TRUE )
613: THEN
614: RAISE fnd_api.g_exc_error;
615: END IF;
616: IF (cn_api.chk_null_char_para
617: ( p_rule_rec.rule_name,
618: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
616: IF (cn_api.chk_null_char_para
617: ( p_rule_rec.rule_name,
618: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
619: x_loading_status,
620: x_loading_status) = FND_API.G_TRUE )
621: THEN
622: RAISE fnd_api.g_exc_error;
623: END IF;
624: IF (cn_api.chk_null_num_para
618: cn_api.get_lkup_meaning('RULE_NAME', 'RULESET_TYPE'),
619: x_loading_status,
620: x_loading_status) = FND_API.G_TRUE )
621: THEN
622: RAISE fnd_api.g_exc_error;
623: END IF;
624: IF (cn_api.chk_null_num_para
625: ( p_rule_rec.parent_rule_id,
626: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
624: IF (cn_api.chk_null_num_para
625: ( p_rule_rec.parent_rule_id,
626: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
627: x_loading_status,
628: x_loading_status) = FND_API.G_TRUE )
629: THEN
630: RAISE fnd_api.g_exc_error;
631: END IF;
632: IF (cn_api.chk_null_num_para
626: cn_api.get_lkup_meaning('PARENT_RULE_ID', 'RULESET_TYPE'),
627: x_loading_status,
628: x_loading_status) = FND_API.G_TRUE )
629: THEN
630: RAISE fnd_api.g_exc_error;
631: END IF;
632: IF (cn_api.chk_null_num_para
633: ( p_rule_rec.parent_rule_id,
634: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
632: IF (cn_api.chk_null_num_para
633: ( p_rule_rec.parent_rule_id,
634: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
635: x_loading_status,
636: x_loading_status) = FND_API.G_TRUE )
637: THEN
638: RAISE fnd_api.g_exc_error;
639: END IF;
640: IF p_rule_rec.ruleset_id <> p_old_rule_rec.ruleset_id
634: cn_api.get_lkup_meaning('SEQUENCE_NUMBER', 'RULESET_TYPE'),
635: x_loading_status,
636: x_loading_status) = FND_API.G_TRUE )
637: THEN
638: RAISE fnd_api.g_exc_error;
639: END IF;
640: IF p_rule_rec.ruleset_id <> p_old_rule_rec.ruleset_id
641: THEN
642:
654: fnd_message.set_name('CN', 'CN_INVALID_RULESET');
655: fnd_msg_pub.add;
656: END IF;
657: x_loading_status := 'CN_INVALID_RULESET';
658: RAISE FND_API.G_EXC_ERROR;
659: END IF;
660:
661: END IF;
662:
677: fnd_message.set_name('CN', 'CN_INVALID_RULE');
678: fnd_msg_pub.add;
679: END IF;
680: x_loading_status := 'CN_INVALID_RULE';
681: RAISE FND_API.G_EXC_ERROR;
682: END IF;
683: END IF;
684:
685:
696: fnd_message.set_name('CN', 'CN_INVALID_RULE');
697: fnd_msg_pub.add;
698: END IF;
699: x_loading_status := 'CN_INVALID_RULE';
700: RAISE FND_API.G_EXC_ERROR;
701: END IF;
702:
703:
704: IF p_rule_rec.rule_name <> p_old_rule_rec.rule_name
707: p_rule_rec.parent_rule_id,
708: p_rule_rec.rule_name,
709: p_rule_rec.org_id,
710: x_loading_status,
711: x_loading_status) = fnd_api.g_true
712: THEN
713: --Error condition
714: /* IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
715: THEN
718: END IF;
719: */
720:
721: x_loading_status := 'CN_INVALID_RULE_NAME';
722: RAISE FND_API.G_EXC_ERROR;
723: END IF;
724: END IF;
725:
726: --
734: p_action => 'CREATE',
735: p_loading_status => x_loading_status,
736: x_loading_status => x_loading_status
737: );
738: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
739: RAISE FND_API.G_EXC_ERROR ;
740: END IF;
741:
742:
735: p_loading_status => x_loading_status,
736: x_loading_status => x_loading_status
737: );
738: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
739: RAISE FND_API.G_EXC_ERROR ;
740: END IF;
741:
742:
743: cn_syin_rules_pkg.update_row(p_old_rule_rec.rule_id,
759:
760: -- End of API body.
761:
762: -- Standard check of p_commit.
763: IF FND_API.To_Boolean( p_commit )
764: THEN
765: COMMIT WORK;
766: END IF;
767:
770: (p_count => x_msg_count,
771: p_data => x_msg_data
772: );
773: EXCEPTION
774: WHEN FND_API.G_EXC_ERROR THEN
775: ROLLBACK TO Update_Rule;
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777: FND_MSG_PUB.Count_And_Get
778: (p_count => x_msg_count,
772: );
773: EXCEPTION
774: WHEN FND_API.G_EXC_ERROR THEN
775: ROLLBACK TO Update_Rule;
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777: FND_MSG_PUB.Count_And_Get
778: (p_count => x_msg_count,
779: p_data => x_msg_data,
780: p_encoded => fnd_api.g_false
776: x_return_status := FND_API.G_RET_STS_ERROR ;
777: FND_MSG_PUB.Count_And_Get
778: (p_count => x_msg_count,
779: p_data => x_msg_data,
780: p_encoded => fnd_api.g_false
781: );
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: ROLLBACK TO Update_Rule;
784: x_loading_status := 'UNEXPECTED_ERR';
778: (p_count => x_msg_count,
779: p_data => x_msg_data,
780: p_encoded => fnd_api.g_false
781: );
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: ROLLBACK TO Update_Rule;
784: x_loading_status := 'UNEXPECTED_ERR';
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
786: FND_MSG_PUB.Count_And_Get
781: );
782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: ROLLBACK TO Update_Rule;
784: x_loading_status := 'UNEXPECTED_ERR';
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
786: FND_MSG_PUB.Count_And_Get
787: (p_count => x_msg_count,
788: p_data => x_msg_data,
789: p_encoded => fnd_api.g_false
785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
786: FND_MSG_PUB.Count_And_Get
787: (p_count => x_msg_count,
788: p_data => x_msg_data,
789: p_encoded => fnd_api.g_false
790: );
791: WHEN OTHERS THEN
792: ROLLBACK TO Update_Rule;
793: x_loading_status := 'UNEXPECTED_ERR';
790: );
791: WHEN OTHERS THEN
792: ROLLBACK TO Update_Rule;
793: x_loading_status := 'UNEXPECTED_ERR';
794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
795: IF FND_MSG_PUB.Check_Msg_Level
796: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
797: THEN
798: FND_MSG_PUB.Add_Exc_Msg
800: END IF;
801: FND_MSG_PUB.Count_And_Get
802: (p_count => x_msg_count,
803: p_data => x_msg_data,
804: p_encoded => fnd_api.g_false
805: );
806:
807: END;
808: --=============================================================================
813: -- Pre-reqs : None.
814: -- Parameters :
815: -- IN : p_api_version IN NUMBER Required
816: -- p_init_msg_list IN VARCHAR2 Optional
817: -- Default = FND_API.G_FALSE
818: -- p_commit IN VARCHAR2 Optional
819: -- Default = FND_API.G_FALSE
820: -- p_validation_level IN NUMBER Optional
821: -- Default = FND_API.G_VALID_LEVEL_FULL
815: -- IN : p_api_version IN NUMBER Required
816: -- p_init_msg_list IN VARCHAR2 Optional
817: -- Default = FND_API.G_FALSE
818: -- p_commit IN VARCHAR2 Optional
819: -- Default = FND_API.G_FALSE
820: -- p_validation_level IN NUMBER Optional
821: -- Default = FND_API.G_VALID_LEVEL_FULL
822: -- p_rule_id IN NUMBER
823: --
817: -- Default = FND_API.G_FALSE
818: -- p_commit IN VARCHAR2 Optional
819: -- Default = FND_API.G_FALSE
820: -- p_validation_level IN NUMBER Optional
821: -- Default = FND_API.G_VALID_LEVEL_FULL
822: -- p_rule_id IN NUMBER
823: --
824: -- OUT : x_return_status OUT VARCHAR2(1)
825: -- x_msg_count OUT NUMBER
839: -- End of comments
840: --=============================================================================
841: PROCEDURE Delete_Rule
842: ( p_api_version IN NUMBER,
843: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
844: p_commit IN VARCHAR2 := FND_API.G_FALSE,
845: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
846: x_return_status OUT NOCOPY VARCHAR2,
847: x_msg_count OUT NOCOPY NUMBER,
840: --=============================================================================
841: PROCEDURE Delete_Rule
842: ( p_api_version IN NUMBER,
843: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
844: p_commit IN VARCHAR2 := FND_API.G_FALSE,
845: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
846: x_return_status OUT NOCOPY VARCHAR2,
847: x_msg_count OUT NOCOPY NUMBER,
848: x_msg_data OUT NOCOPY VARCHAR2,
841: PROCEDURE Delete_Rule
842: ( p_api_version IN NUMBER,
843: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
844: p_commit IN VARCHAR2 := FND_API.G_FALSE,
845: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
846: x_return_status OUT NOCOPY VARCHAR2,
847: x_msg_count OUT NOCOPY NUMBER,
848: x_msg_data OUT NOCOPY VARCHAR2,
849: x_loading_status OUT NOCOPY VARCHAR2,
865:
866: -- Standard Start of API savepoint
867: SAVEPOINT Delete_Rule;
868: -- Standard call to check for call compatibility.
869: IF NOT FND_API.Compatible_API_Call ( l_api_version,
870: p_api_version,
871: l_api_name,
872: G_PKG_NAME )
873: THEN
870: p_api_version,
871: l_api_name,
872: G_PKG_NAME )
873: THEN
874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
875: END IF;
876:
877: -- Initialize message list if p_init_msg_list is set to TRUE.
878: IF FND_API.to_Boolean( p_init_msg_list )
874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
875: END IF;
876:
877: -- Initialize message list if p_init_msg_list is set to TRUE.
878: IF FND_API.to_Boolean( p_init_msg_list )
879: THEN
880: FND_MSG_PUB.initialize;
881: END IF;
882:
880: FND_MSG_PUB.initialize;
881: END IF;
882:
883: -- Initialize API return status to success
884: x_return_status := FND_API.G_RET_STS_SUCCESS;
885: x_loading_status := 'CN_DELETED';
886:
887: -- new API body
888: SELECT COUNT(1)
908: fnd_msg_pub.add;
909: END IF;
910:
911: x_loading_status := 'CN_ATTRIBUTE_RULE_EXIST';
912: RAISE FND_API.G_EXC_ERROR;
913:
914: END IF;
915:
916: SELECT COUNT(1)
929: fnd_msg_pub.add;
930: END IF;
931:
932: x_loading_status := 'CN_INVALID_RULE';
933: RAISE FND_API.G_EXC_ERROR;
934:
935: END IF;
936:
937: cn_syin_rules_pkg.delete_row(p_rule_id, p_ruleset_id,p_org_id);
943:
944: -- End of API body.
945:
946: -- Standard check of p_commit.
947: IF FND_API.To_Boolean( p_commit )
948: THEN
949: COMMIT WORK;
950: END IF;
951:
954: (p_count => x_msg_count,
955: p_data => x_msg_data
956: );
957: EXCEPTION
958: WHEN FND_API.G_EXC_ERROR THEN
959: ROLLBACK TO Delete_Rule;
960: x_return_status := FND_API.G_RET_STS_ERROR ;
961: FND_MSG_PUB.Count_And_Get
962: (p_count => x_msg_count,
956: );
957: EXCEPTION
958: WHEN FND_API.G_EXC_ERROR THEN
959: ROLLBACK TO Delete_Rule;
960: x_return_status := FND_API.G_RET_STS_ERROR ;
961: FND_MSG_PUB.Count_And_Get
962: (p_count => x_msg_count,
963: p_data => x_msg_data,
964: p_encoded => fnd_api.g_false
960: x_return_status := FND_API.G_RET_STS_ERROR ;
961: FND_MSG_PUB.Count_And_Get
962: (p_count => x_msg_count,
963: p_data => x_msg_data,
964: p_encoded => fnd_api.g_false
965: );
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: ROLLBACK TO Delete_Rule;
968: x_loading_status := 'UNEXPECTED_ERR';
962: (p_count => x_msg_count,
963: p_data => x_msg_data,
964: p_encoded => fnd_api.g_false
965: );
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: ROLLBACK TO Delete_Rule;
968: x_loading_status := 'UNEXPECTED_ERR';
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970: FND_MSG_PUB.Count_And_Get
965: );
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: ROLLBACK TO Delete_Rule;
968: x_loading_status := 'UNEXPECTED_ERR';
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970: FND_MSG_PUB.Count_And_Get
971: (p_count => x_msg_count,
972: p_data => x_msg_data,
973: p_encoded => fnd_api.g_false
969: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
970: FND_MSG_PUB.Count_And_Get
971: (p_count => x_msg_count,
972: p_data => x_msg_data,
973: p_encoded => fnd_api.g_false
974: );
975: WHEN OTHERS THEN
976: ROLLBACK TO Delete_Rule;
977: x_loading_status := 'UNEXPECTED_ERR';
974: );
975: WHEN OTHERS THEN
976: ROLLBACK TO Delete_Rule;
977: x_loading_status := 'UNEXPECTED_ERR';
978: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
979: IF FND_MSG_PUB.Check_Msg_Level
980: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
981: THEN
982: FND_MSG_PUB.Add_Exc_Msg
984: END IF;
985: FND_MSG_PUB.Count_And_Get
986: (p_count => x_msg_count,
987: p_data => x_msg_data,
988: p_encoded => fnd_api.g_false
989: );
990: END;
991: -- =======================================================================
992: -- Procedure : Get_rules
1058: SAVEPOINT Get_Rules;
1059: --
1060: -- Standard call to check for call compatibility.
1061: --
1062: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1063: p_api_version ,
1064: l_api_name ,
1065: G_PKG_NAME )
1066: THEN
1063: p_api_version ,
1064: l_api_name ,
1065: G_PKG_NAME )
1066: THEN
1067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1068: END IF;
1069:
1070: --
1071: -- Initialize message list if p_init_msg_list is set to TRUE.
1069:
1070: --
1071: -- Initialize message list if p_init_msg_list is set to TRUE.
1072: --
1073: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1074: FND_MSG_PUB.initialize;
1075: END IF;
1076:
1077: --
1076:
1077: --
1078: -- Initialize API return status to success
1079: --
1080: x_return_status := FND_API.G_RET_STS_SUCCESS;
1081: x_loading_status := 'SELECTED';
1082: --
1083: -- API body
1084: --
1166: x_loading_status := 'SELECTED';
1167:
1168: -- End of API body.
1169: -- Standard check of p_commit.
1170: IF FND_API.To_Boolean( p_commit ) THEN
1171: COMMIT WORK;
1172: END IF;
1173:
1174: -- Get and Count Messages
1175: FND_MSG_PUB.Count_And_Get
1176: (
1177: p_count => x_msg_count ,
1178: p_data => x_msg_data ,
1179: p_encoded => FND_API.G_FALSE
1180: );
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1179: p_encoded => FND_API.G_FALSE
1180: );
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: ROLLBACK TO Get_rules;
1185: x_return_status := FND_API.G_RET_STS_ERROR ;
1186: FND_MSG_PUB.Count_And_Get
1187: (
1181:
1182: EXCEPTION
1183: WHEN FND_API.G_EXC_ERROR THEN
1184: ROLLBACK TO Get_rules;
1185: x_return_status := FND_API.G_RET_STS_ERROR ;
1186: FND_MSG_PUB.Count_And_Get
1187: (
1188: p_count => x_msg_count ,
1189: p_data => x_msg_data ,
1186: FND_MSG_PUB.Count_And_Get
1187: (
1188: p_count => x_msg_count ,
1189: p_data => x_msg_data ,
1190: p_encoded => FND_API.G_FALSE
1191: );
1192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1193: ROLLBACK TO Get_rules;
1194: x_loading_status := 'UNEXPECTED_ERR';
1188: p_count => x_msg_count ,
1189: p_data => x_msg_data ,
1190: p_encoded => FND_API.G_FALSE
1191: );
1192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1193: ROLLBACK TO Get_rules;
1194: x_loading_status := 'UNEXPECTED_ERR';
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1196: FND_MSG_PUB.Count_And_Get
1191: );
1192: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1193: ROLLBACK TO Get_rules;
1194: x_loading_status := 'UNEXPECTED_ERR';
1195: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1196: FND_MSG_PUB.Count_And_Get
1197: (
1198: p_count => x_msg_count ,
1199: p_data => x_msg_data ,
1196: FND_MSG_PUB.Count_And_Get
1197: (
1198: p_count => x_msg_count ,
1199: p_data => x_msg_data ,
1200: p_encoded => FND_API.G_FALSE
1201: );
1202: WHEN OTHERS THEN
1203: ROLLBACK TO Get_rules;
1204: x_loading_status := 'UNEXPECTED_ERR';
1201: );
1202: WHEN OTHERS THEN
1203: ROLLBACK TO Get_rules;
1204: x_loading_status := 'UNEXPECTED_ERR';
1205: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1206: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1207: THEN
1208: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1209: END IF;
1209: END IF;
1210: FND_MSG_PUB.Count_And_Get (
1211: p_count => x_msg_count ,
1212: p_data => x_msg_data ,
1213: p_encoded => FND_API.G_FALSE
1214: );
1215: END Get_rules;
1216:
1217: -- Function which returns the expression corresponding to a rule