83:
84: -- Initialize message list if p_init_msg_list is set to TRUE.
85: IF FND_API.to_Boolean( p_init_msg_list )
86: THEN
87: FND_MSG_PUB.initialize;
88: END IF;
89:
90: -- Initialize API return status to success
91: x_return_status := FND_API.G_RET_STS_SUCCESS;
92: x_loading_status := 'CN_INSERTED';
93:
94: -- API body
95: if p_revenue_class_rec.name is NULL THEN
96: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
97: THEN
98: fnd_message.set_name('CN', 'CN_REV_NAME_NOT_NULL');
99: fnd_msg_pub.add;
100: END IF;
95: if p_revenue_class_rec.name is NULL THEN
96: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
97: THEN
98: fnd_message.set_name('CN', 'CN_REV_NAME_NOT_NULL');
99: fnd_msg_pub.add;
100: END IF;
101: x_loading_status := 'CN_REV_NAME_NOT_NULL';
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
109: close get_rev_cls;
110:
111: IF l_count >= 1 THEN
112:
113: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
114: THEN
115: fnd_message.set_name('CN', 'CN_REV_CLASS_DUPLICATE');
116: fnd_msg_pub.add;
117: END IF;
112:
113: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
114: THEN
115: fnd_message.set_name('CN', 'CN_REV_CLASS_DUPLICATE');
116: fnd_msg_pub.add;
117: END IF;
118: x_loading_status := 'CN_REV_CLASS_DUPLICATE';
119: RAISE FND_API.G_EXC_ERROR;
120: END IF;
141: THEN
142: COMMIT WORK;
143: END IF;
144:
145: FND_MSG_PUB.Count_And_Get
146: (
147: p_count => x_msg_count ,
148: p_data => x_msg_data ,
149: p_encoded => FND_API.G_FALSE
151: EXCEPTION
152: WHEN FND_API.G_EXC_ERROR THEN
153: ROLLBACK TO Create_Revenue_Class;
154: x_return_status := FND_API.G_RET_STS_ERROR ;
155: FND_MSG_PUB.Count_And_Get
156: (
157: p_count => x_msg_count ,
158: p_data => x_msg_data ,
159: p_encoded => FND_API.G_FALSE
161: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
162: ROLLBACK TO Create_Revenue_Class;
163: x_loading_status := 'UNEXPECTED_ERR';
164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165: FND_MSG_PUB.Count_And_Get
166: (
167: p_count => x_msg_count ,
168: p_data => x_msg_data ,
169: p_encoded => FND_API.G_FALSE
171: WHEN OTHERS THEN
172: ROLLBACK TO Create_Revenue_Class;
173: x_loading_status := 'UNEXPECTED_ERR';
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
175: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
176: THEN
177: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
178: END IF;
179: FND_MSG_PUB.Count_And_Get
173: x_loading_status := 'UNEXPECTED_ERR';
174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
175: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
176: THEN
177: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
178: END IF;
179: FND_MSG_PUB.Count_And_Get
180: (
181: p_count => x_msg_count ,
175: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
176: THEN
177: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
178: END IF;
179: FND_MSG_PUB.Count_And_Get
180: (
181: p_count => x_msg_count ,
182: p_data => x_msg_data ,
183: p_encoded => FND_API.G_FALSE
262:
263: -- Initialize message list if p_init_msg_list is set to TRUE.
264: IF FND_API.to_Boolean( p_init_msg_list )
265: THEN
266: FND_MSG_PUB.initialize;
267: END IF;
268:
269: -- Initialize API return status to success
270: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: pold_revenue_class_rec.revenue_class_id := p_revenue_class_rec.revenue_class_id;
274:
275: if p_revenue_class_rec.name is null THEN
276: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
277: THEN
278: fnd_message.set_name('CN', 'CN_REV_CLS_NOT_NULL');
279: fnd_msg_pub.add;
280: END IF;
275: if p_revenue_class_rec.name is null THEN
276: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
277: THEN
278: fnd_message.set_name('CN', 'CN_REV_CLS_NOT_NULL');
279: fnd_msg_pub.add;
280: END IF;
281: x_loading_status := 'CN_REV_CLS_NOT_NULL';
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: if p_revenue_class_rec.revenue_Class_id is null THEN
286: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
287: THEN
288: fnd_message.set_name('CN', 'CN_REV_CLS_NOT_NULL');
289: fnd_msg_pub.add;
290: END IF;
285: if p_revenue_class_rec.revenue_Class_id is null THEN
286: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
287: THEN
288: fnd_message.set_name('CN', 'CN_REV_CLS_NOT_NULL');
289: fnd_msg_pub.add;
290: END IF;
291: x_loading_status := 'CN_REV_CLS_NOT_NULL';
292: RAISE FND_API.G_EXC_ERROR;
293: END IF;
300: close get_rev_cls;
301:
302: IF l_count >= 1 THEN
303:
304: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
305: THEN
306: fnd_message.set_name('CN', 'CN_REV_CLASS_DUPLICATE');
307: fnd_msg_pub.add;
308: END IF;
303:
304: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
305: THEN
306: fnd_message.set_name('CN', 'CN_REV_CLASS_DUPLICATE');
307: fnd_msg_pub.add;
308: END IF;
309: x_loading_status := 'CN_REV_CLASS_DUPLICATE';
310: RAISE FND_API.G_EXC_ERROR;
311: END IF;
318:
319: /* IF (nvl(l_object_version_number,1) <>
320: nvl(p_revenue_class_rec.object_version_number,1)) THEN
321:
322: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
323: THEN
324: fnd_message.set_name('CN', 'CN_INVALID_OBJECT_VERSION');
325: fnd_msg_pub.add;
326: END IF;
321:
322: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
323: THEN
324: fnd_message.set_name('CN', 'CN_INVALID_OBJECT_VERSION');
325: fnd_msg_pub.add;
326: END IF;
327:
328: x_loading_status := 'CN_INVALID_OBJECT_VERSION';
329: RAISE FND_API.G_EXC_ERROR;
352: END IF;
353:
354:
355: -- Standard call to get message count and if count is 1, get message info.
356: FND_MSG_PUB.Count_And_Get
357: (
358: p_count => x_msg_count ,
359: p_data => x_msg_data ,
360: p_encoded => FND_API.G_FALSE
364: WHEN FND_API.G_EXC_ERROR THEN
365: ROLLBACK TO Update_Revenue_Class;
366: x_return_status := FND_API.G_RET_STS_ERROR ;
367:
368: FND_MSG_PUB.Count_And_Get
369: (
370: p_count => x_msg_count ,
371: p_data => x_msg_data ,
372: p_encoded => FND_API.G_FALSE
374:
375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376: ROLLBACK TO Update_Revenue_Class;
377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
378: FND_MSG_PUB.Count_And_Get
379: (
380: p_count => x_msg_count ,
381: p_data => x_msg_data ,
382: p_encoded => FND_API.G_FALSE
384:
385: WHEN OTHERS THEN
386: ROLLBACK TO Update_Revenue_Class;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
388: IF FND_MSG_PUB.Check_Msg_Level
389: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
390: THEN
391: FND_MSG_PUB.Add_Exc_Msg
392: (G_PKG_NAME,
385: WHEN OTHERS THEN
386: ROLLBACK TO Update_Revenue_Class;
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
388: IF FND_MSG_PUB.Check_Msg_Level
389: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
390: THEN
391: FND_MSG_PUB.Add_Exc_Msg
392: (G_PKG_NAME,
393: l_api_name
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
388: IF FND_MSG_PUB.Check_Msg_Level
389: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
390: THEN
391: FND_MSG_PUB.Add_Exc_Msg
392: (G_PKG_NAME,
393: l_api_name
394: );
395: END IF;
393: l_api_name
394: );
395: END IF;
396:
397: FND_MSG_PUB.Count_And_Get
398: (
399: p_count => x_msg_count ,
400: p_data => x_msg_data ,
401: p_encoded => FND_API.G_FALSE
483:
484: -- Initialize message list if p_init_msg_list is set to TRUE.
485: IF FND_API.to_Boolean( p_init_msg_list )
486: THEN
487: FND_MSG_PUB.initialize;
488: END IF;
489:
490: -- Initialize API return status to success
491: x_return_status := FND_API.G_RET_STS_SUCCESS;
541:
542: l_total_count := l_rule_count + l_hierarchy_count + l_quota_rule_count;
543:
544: IF (l_total_count <> 0) THEN
545: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
546: THEN
547: fnd_message.set_name('CN','REV_CLS_EXISTS_SW');
548: fnd_message.set_token('REV', l_revenue_class_name);
549: fnd_message.set_token('RULE_COUNT', l_rule_count);
548: fnd_message.set_token('REV', l_revenue_class_name);
549: fnd_message.set_token('RULE_COUNT', l_rule_count);
550: fnd_message.set_token('QUOTA_RULE_COUNT',l_quota_rule_count);
551: fnd_message.set_token('HIERARCHY_COUNT', l_hierarchy_count);
552: fnd_msg_pub.add;
553: END IF;
554: x_loading_status := 'REV_CLS_EXISTS_SW';
555: RAISE FND_API.G_EXC_ERROR;
556: END IF;
567: COMMIT WORK;
568: END IF;
569:
570: -- Standard call to get message count and if count is 1, get message info.
571: FND_MSG_PUB.Count_And_Get
572: (
573: p_count => x_msg_count ,
574: p_data => x_msg_data ,
575: p_encoded => FND_API.G_FALSE
578: EXCEPTION
579: WHEN FND_API.G_EXC_ERROR THEN
580: ROLLBACK TO Delete_Revenue_Class;
581: x_return_status := FND_API.G_RET_STS_ERROR ;
582: FND_MSG_PUB.Count_And_Get
583: (
584: p_count => x_msg_count ,
585: p_data => x_msg_data ,
586: p_encoded => FND_API.G_FALSE
589: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
590: ROLLBACK TO Delete_Revenue_Class;
591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
592:
593: FND_MSG_PUB.Count_And_Get
594: (
595: p_count => x_msg_count ,
596: p_data => x_msg_data ,
597: p_encoded => FND_API.G_FALSE
599:
600: WHEN OTHERS THEN
601: ROLLBACK TO Delete_Revenue_Class;
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
603: IF FND_MSG_PUB.Check_Msg_Level
604: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
605: THEN
606: FND_MSG_PUB.Add_Exc_Msg
607: (G_PKG_NAME,
600: WHEN OTHERS THEN
601: ROLLBACK TO Delete_Revenue_Class;
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
603: IF FND_MSG_PUB.Check_Msg_Level
604: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
605: THEN
606: FND_MSG_PUB.Add_Exc_Msg
607: (G_PKG_NAME,
608: l_api_name
602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
603: IF FND_MSG_PUB.Check_Msg_Level
604: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
605: THEN
606: FND_MSG_PUB.Add_Exc_Msg
607: (G_PKG_NAME,
608: l_api_name
609: );
610: END IF;
608: l_api_name
609: );
610: END IF;
611:
612: FND_MSG_PUB.Count_And_Get
613: (
614: p_count => x_msg_count ,
615: p_data => x_msg_data ,
616: p_encoded => FND_API.G_FALSE