[Home] [Help]
19: EXCEPTION
20: when others then
21: fnd_message.set_name('CN', 'CN_RATE_SCHEDULE_NOT_EXIST');
22: fnd_msg_pub.ADD;
23: RAISE fnd_api.g_exc_error;
24: END get_rate_schedule_id;
25:
26: -- to get a rate dimension ID from its name
27: FUNCTION get_rate_dimension_id(p_name in CN_RATE_DIMENSIONS.NAME%TYPE)
38: EXCEPTION
39: when others then
40: fnd_message.set_name('CN', 'CN_RATE_DIMENSION_NOT_EXIST');
41: fnd_msg_pub.ADD;
42: RAISE fnd_api.g_exc_error;
43: END get_rate_dimension_id;
44:
45: -- to get a rate_sch_dim_id from a given rate dimension ID and rate schedule ID
46: FUNCTION get_rate_sch_dim_id(p_rate_schedule_id in CN_RATE_SCHEDULES.RATE_SCHEDULE_ID%TYPE,
58: EXCEPTION
59: when others THEN
60: fnd_message.set_name('CN', 'CN_RATE_DIM_ASSIGN_NOT_EXIST');
61: fnd_msg_pub.ADD;
62: RAISE fnd_api.g_exc_error;
63: END get_rate_sch_dim_id;
64:
65: -- to get an expression ID from its name
66: FUNCTION get_exp_id(p_name in CN_CALC_SQL_EXPS.NAME%TYPE)
76: EXCEPTION
77: when others THEN
78: fnd_message.set_name('CN', 'CN_EXP_NOT_EXIST');
79: fnd_msg_pub.ADD;
80: RAISE fnd_api.g_exc_error;
81: END get_exp_id;
82:
83: -- to get a rate_dim_tier_id from the rate_dimension_id and its sequence
84: FUNCTION get_rate_dim_tier_id(p_rate_dimension_id in CN_RATE_DIM_TIERS.RATE_DIMENSION_ID%TYPE,
96: EXCEPTION
97: when others THEN
98: fnd_message.set_name('CN', 'CN_RATE_DIM_TIER_NOT_EXIST');
99: fnd_msg_pub.ADD;
100: RAISE fnd_api.g_exc_error;
101: END get_rate_dim_tier_id;
102:
103: -- to get a rate_dim_tier_id from the rate_schedule and sequence numbers
104: FUNCTION get_rate_dim_tier_id(p_rate_schedule_id in CN_RATE_SCHEDULES.RATE_SCHEDULE_ID%TYPE,
119: EXCEPTION
120: when others THEN
121: fnd_message.set_name('CN', 'CN_RATE_DIM_TIER_NOT_EXIST');
122: fnd_msg_pub.ADD;
123: RAISE fnd_api.g_exc_error;
124: END get_rate_dim_tier_id;
125:
126: PROCEDURE translate_values(p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
127: p_value1 IN VARCHAR2,
142: p_string_value := p_value1; -- value2 not used for strings
143: else
144: fnd_message.set_name('CN', 'CN_INVALID_DIM_UOM');
145: fnd_msg_pub.ADD;
146: RAISE fnd_api.g_exc_error;
147: end if;
148:
149: EXCEPTION
150: when others THEN
149: EXCEPTION
150: when others THEN
151: fnd_message.set_name('CN', 'CN_INVALID_TIER');
152: fnd_msg_pub.ADD;
153: RAISE fnd_api.g_exc_error;
154: END translate_values;
155:
156: -- to raise an error according to the return status passed in
157: PROCEDURE check_ret_sts(l_return_status IN VARCHAR2) IS
155:
156: -- to raise an error according to the return status passed in
157: PROCEDURE check_ret_sts(l_return_status IN VARCHAR2) IS
158: BEGIN
159: if l_return_status = FND_API.G_RET_STS_ERROR then
160: RAISE FND_API.G_EXC_ERROR;
161: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163: end if;
156: -- to raise an error according to the return status passed in
157: PROCEDURE check_ret_sts(l_return_status IN VARCHAR2) IS
158: BEGIN
159: if l_return_status = FND_API.G_RET_STS_ERROR then
160: RAISE FND_API.G_EXC_ERROR;
161: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163: end if;
164: END check_ret_sts;
157: PROCEDURE check_ret_sts(l_return_status IN VARCHAR2) IS
158: BEGIN
159: if l_return_status = FND_API.G_RET_STS_ERROR then
160: RAISE FND_API.G_EXC_ERROR;
161: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163: end if;
164: END check_ret_sts;
165:
158: BEGIN
159: if l_return_status = FND_API.G_RET_STS_ERROR then
160: RAISE FND_API.G_EXC_ERROR;
161: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
163: end if;
164: END check_ret_sts;
165:
166:
166:
167: ----------------------------- actual public API's ----------------------------
168: PROCEDURE Create_Schedule
169: (p_api_version IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
174: p_commission_unit_code IN CN_RATE_SCHEDULES.COMMISSION_UNIT_CODE%TYPE,
167: ----------------------------- actual public API's ----------------------------
168: PROCEDURE Create_Schedule
169: (p_api_version IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
174: p_commission_unit_code IN CN_RATE_SCHEDULES.COMMISSION_UNIT_CODE%TYPE,
175: p_dims_tbl IN dim_assign_tbl_type := g_miss_dim_assign_tbl,
168: PROCEDURE Create_Schedule
169: (p_api_version IN NUMBER,
170: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
171: p_commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
174: p_commission_unit_code IN CN_RATE_SCHEDULES.COMMISSION_UNIT_CODE%TYPE,
175: p_dims_tbl IN dim_assign_tbl_type := g_miss_dim_assign_tbl,
176: -- Start - MOAC Change
191: BEGIN
192: -- Standard Start of API savepoint
193: SAVEPOINT Create_Schedule;
194: -- Standard call to check for call compatibility.
195: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
196: p_api_version ,
197: l_api_name ,
198: G_PKG_NAME )
199: THEN
196: p_api_version ,
197: l_api_name ,
198: G_PKG_NAME )
199: THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: -- Initialize message list if p_init_msg_list is set to TRUE.
204: IF FND_API.to_Boolean( p_init_msg_list ) THEN
200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
201: END IF;
202:
203: -- Initialize message list if p_init_msg_list is set to TRUE.
204: IF FND_API.to_Boolean( p_init_msg_list ) THEN
205: FND_MSG_PUB.initialize;
206: END IF;
207:
208: -- Initialize API return status to success
205: FND_MSG_PUB.initialize;
206: END IF;
207:
208: -- Initialize API return status to success
209: x_return_status := FND_API.G_RET_STS_SUCCESS;
210:
211: -- API body
212:
213: -- Start - R12 MOAC Changes
303:
304: -- End of API body.
305:
306: -- Standard check of p_commit.
307: IF FND_API.To_Boolean( p_commit ) THEN
308: COMMIT WORK;
309: END IF;
310: -- Standard call to get message count and if count is 1, get message info.
311: FND_MSG_PUB.Count_And_Get
310: -- Standard call to get message count and if count is 1, get message info.
311: FND_MSG_PUB.Count_And_Get
312: (p_count => x_msg_count ,
313: p_data => x_msg_data ,
314: p_encoded => FND_API.G_FALSE );
315: EXCEPTION
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO Create_Schedule;
318: x_return_status := FND_API.G_RET_STS_ERROR ;
312: (p_count => x_msg_count ,
313: p_data => x_msg_data ,
314: p_encoded => FND_API.G_FALSE );
315: EXCEPTION
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO Create_Schedule;
318: x_return_status := FND_API.G_RET_STS_ERROR ;
319: FND_MSG_PUB.count_and_get
320: (p_count => x_msg_count ,
314: p_encoded => FND_API.G_FALSE );
315: EXCEPTION
316: WHEN FND_API.G_EXC_ERROR THEN
317: ROLLBACK TO Create_Schedule;
318: x_return_status := FND_API.G_RET_STS_ERROR ;
319: FND_MSG_PUB.count_and_get
320: (p_count => x_msg_count ,
321: p_data => x_msg_data ,
322: p_encoded => FND_API.G_FALSE );
318: x_return_status := FND_API.G_RET_STS_ERROR ;
319: FND_MSG_PUB.count_and_get
320: (p_count => x_msg_count ,
321: p_data => x_msg_data ,
322: p_encoded => FND_API.G_FALSE );
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK TO Create_Schedule;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.count_and_get
319: FND_MSG_PUB.count_and_get
320: (p_count => x_msg_count ,
321: p_data => x_msg_data ,
322: p_encoded => FND_API.G_FALSE );
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK TO Create_Schedule;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.count_and_get
327: (p_count => x_msg_count ,
321: p_data => x_msg_data ,
322: p_encoded => FND_API.G_FALSE );
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: ROLLBACK TO Create_Schedule;
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.count_and_get
327: (p_count => x_msg_count ,
328: p_data => x_msg_data ,
329: p_encoded => FND_API.G_FALSE );
325: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
326: FND_MSG_PUB.count_and_get
327: (p_count => x_msg_count ,
328: p_data => x_msg_data ,
329: p_encoded => FND_API.G_FALSE );
330: WHEN OTHERS THEN
331: ROLLBACK TO Create_Schedule;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: IF FND_MSG_PUB.check_msg_level
328: p_data => x_msg_data ,
329: p_encoded => FND_API.G_FALSE );
330: WHEN OTHERS THEN
331: ROLLBACK TO Create_Schedule;
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: IF FND_MSG_PUB.check_msg_level
334: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
335: THEN
336: FND_MSG_PUB.add_exc_msg
339: END IF;
340: FND_MSG_PUB.count_and_get
341: (p_count => x_msg_count ,
342: p_data => x_msg_data ,
343: p_encoded => FND_API.G_FALSE );
344: END Create_Schedule;
345:
346: PROCEDURE Update_Schedule
347: (p_api_version IN NUMBER,
344: END Create_Schedule;
345:
346: PROCEDURE Update_Schedule
347: (p_api_version IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_original_name IN CN_RATE_SCHEDULES.NAME%TYPE,
352: p_new_name IN CN_RATE_SCHEDULES.NAME%TYPE :=
345:
346: PROCEDURE Update_Schedule
347: (p_api_version IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_original_name IN CN_RATE_SCHEDULES.NAME%TYPE,
352: p_new_name IN CN_RATE_SCHEDULES.NAME%TYPE :=
353: cn_api.g_miss_char,
346: PROCEDURE Update_Schedule
347: (p_api_version IN NUMBER,
348: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
349: p_commit IN VARCHAR2 := FND_API.G_FALSE,
350: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
351: p_original_name IN CN_RATE_SCHEDULES.NAME%TYPE,
352: p_new_name IN CN_RATE_SCHEDULES.NAME%TYPE :=
353: cn_api.g_miss_char,
354: p_commission_unit_code IN CN_RATE_SCHEDULES.COMMISSION_UNIT_CODE%TYPE :=
375: BEGIN
376: -- Standard Start of API savepoint
377: SAVEPOINT Update_Schedule;
378: -- Standard call to check for call compatibility.
379: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
380: p_api_version ,
381: l_api_name ,
382: G_PKG_NAME )
383: THEN
380: p_api_version ,
381: l_api_name ,
382: G_PKG_NAME )
383: THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: -- Initialize message list if p_init_msg_list is set to TRUE.
388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
384: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385: END IF;
386:
387: -- Initialize message list if p_init_msg_list is set to TRUE.
388: IF FND_API.to_Boolean( p_init_msg_list ) THEN
389: FND_MSG_PUB.initialize;
390: END IF;
391:
392: -- Initialize API return status to success
389: FND_MSG_PUB.initialize;
390: END IF;
391:
392: -- Initialize API return status to success
393: x_return_status := FND_API.G_RET_STS_SUCCESS;
394:
395: -- API body
396: l_rate_schedule_id := get_rate_schedule_id(p_original_name);
397:
414: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
415: FND_MSG_PUB.Add;
416: END IF;
417:
418: RAISE FND_API.G_EXC_ERROR ;
419: END IF;
420: -- End - MOAC Change
421:
422: -- handle G_MISSES (validation for this select already performed)
516:
517: -- End of API body.
518:
519: -- Standard check of p_commit.
520: IF FND_API.To_Boolean( p_commit ) THEN
521: COMMIT WORK;
522: END IF;
523: -- Standard call to get message count and if count is 1, get message info.
524: FND_MSG_PUB.count_and_get
523: -- Standard call to get message count and if count is 1, get message info.
524: FND_MSG_PUB.count_and_get
525: (p_count => x_msg_count ,
526: p_data => x_msg_data ,
527: p_encoded => FND_API.G_FALSE );
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: ROLLBACK TO Update_Schedule;
531: x_return_status := FND_API.G_RET_STS_ERROR ;
525: (p_count => x_msg_count ,
526: p_data => x_msg_data ,
527: p_encoded => FND_API.G_FALSE );
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: ROLLBACK TO Update_Schedule;
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: FND_MSG_PUB.count_and_get
533: (p_count => x_msg_count ,
527: p_encoded => FND_API.G_FALSE );
528: EXCEPTION
529: WHEN FND_API.G_EXC_ERROR THEN
530: ROLLBACK TO Update_Schedule;
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: FND_MSG_PUB.count_and_get
533: (p_count => x_msg_count ,
534: p_data => x_msg_data ,
535: p_encoded => FND_API.G_FALSE );
531: x_return_status := FND_API.G_RET_STS_ERROR ;
532: FND_MSG_PUB.count_and_get
533: (p_count => x_msg_count ,
534: p_data => x_msg_data ,
535: p_encoded => FND_API.G_FALSE );
536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: ROLLBACK TO Update_Schedule;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539: FND_MSG_PUB.count_and_get
532: FND_MSG_PUB.count_and_get
533: (p_count => x_msg_count ,
534: p_data => x_msg_data ,
535: p_encoded => FND_API.G_FALSE );
536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: ROLLBACK TO Update_Schedule;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539: FND_MSG_PUB.count_and_get
540: (p_count => x_msg_count ,
534: p_data => x_msg_data ,
535: p_encoded => FND_API.G_FALSE );
536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
537: ROLLBACK TO Update_Schedule;
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539: FND_MSG_PUB.count_and_get
540: (p_count => x_msg_count ,
541: p_data => x_msg_data ,
542: p_encoded => FND_API.G_FALSE );
538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
539: FND_MSG_PUB.count_and_get
540: (p_count => x_msg_count ,
541: p_data => x_msg_data ,
542: p_encoded => FND_API.G_FALSE );
543: WHEN OTHERS THEN
544: ROLLBACK TO Update_Schedule;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: IF FND_MSG_PUB.check_msg_level
541: p_data => x_msg_data ,
542: p_encoded => FND_API.G_FALSE );
543: WHEN OTHERS THEN
544: ROLLBACK TO Update_Schedule;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
546: IF FND_MSG_PUB.check_msg_level
547: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
548: THEN
549: FND_MSG_PUB.add_exc_msg
552: END IF;
553: FND_MSG_PUB.count_and_get
554: (p_count => x_msg_count ,
555: p_data => x_msg_data ,
556: p_encoded => FND_API.G_FALSE );
557: END Update_Schedule;
558:
559:
560: PROCEDURE Delete_Schedule
558:
559:
560: PROCEDURE Delete_Schedule
561: (p_api_version IN NUMBER,
562: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
563: p_commit IN VARCHAR2 := FND_API.G_FALSE,
564: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
565: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
566: -- Start - R12 MOAC Changes
559:
560: PROCEDURE Delete_Schedule
561: (p_api_version IN NUMBER,
562: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
563: p_commit IN VARCHAR2 := FND_API.G_FALSE,
564: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
565: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
566: -- Start - R12 MOAC Changes
567: p_object_version_number IN CN_RATE_SCHEDULES.OBJECT_VERSION_NUMBER%TYPE, -- new
560: PROCEDURE Delete_Schedule
561: (p_api_version IN NUMBER,
562: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
563: p_commit IN VARCHAR2 := FND_API.G_FALSE,
564: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
565: p_name IN CN_RATE_SCHEDULES.NAME%TYPE,
566: -- Start - R12 MOAC Changes
567: p_object_version_number IN CN_RATE_SCHEDULES.OBJECT_VERSION_NUMBER%TYPE, -- new
568: -- End - R12 MOAC Changes
576: BEGIN
577: -- Standard Start of API savepoint
578: SAVEPOINT Delete_Schedule;
579: -- Standard call to check for call compatibility.
580: IF NOT FND_API.Compatible_API_Call
581: (l_api_version ,
582: p_api_version ,
583: l_api_name ,
584: G_PKG_NAME )
582: p_api_version ,
583: l_api_name ,
584: G_PKG_NAME )
585: THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588: -- Initialize message list if p_init_msg_list is set to TRUE.
589: IF FND_API.to_Boolean( p_init_msg_list ) THEN
590: FND_MSG_PUB.initialize;
585: THEN
586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
587: END IF;
588: -- Initialize message list if p_init_msg_list is set to TRUE.
589: IF FND_API.to_Boolean( p_init_msg_list ) THEN
590: FND_MSG_PUB.initialize;
591: END IF;
592: -- Initialize API return status to success
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
589: IF FND_API.to_Boolean( p_init_msg_list ) THEN
590: FND_MSG_PUB.initialize;
591: END IF;
592: -- Initialize API return status to success
593: x_return_status := FND_API.G_RET_STS_SUCCESS;
594:
595: -- API body
596:
597: -- validate ID
658:
659: -- End of API body.
660:
661: -- Standard check of p_commit.
662: IF FND_API.To_Boolean( p_commit ) THEN
663: COMMIT WORK;
664: END IF;
665: -- Standard call to get message count and if count is 1, get message info.
666: FND_MSG_PUB.count_and_get
665: -- Standard call to get message count and if count is 1, get message info.
666: FND_MSG_PUB.count_and_get
667: (p_count => x_msg_count ,
668: p_data => x_msg_data ,
669: p_encoded => FND_API.G_FALSE );
670: EXCEPTION
671: WHEN FND_API.G_EXC_ERROR THEN
672: ROLLBACK TO Delete_Schedule;
673: x_return_status := FND_API.G_RET_STS_ERROR ;
667: (p_count => x_msg_count ,
668: p_data => x_msg_data ,
669: p_encoded => FND_API.G_FALSE );
670: EXCEPTION
671: WHEN FND_API.G_EXC_ERROR THEN
672: ROLLBACK TO Delete_Schedule;
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.count_and_get
675: (p_count => x_msg_count ,
669: p_encoded => FND_API.G_FALSE );
670: EXCEPTION
671: WHEN FND_API.G_EXC_ERROR THEN
672: ROLLBACK TO Delete_Schedule;
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.count_and_get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data ,
677: p_encoded => FND_API.G_FALSE );
673: x_return_status := FND_API.G_RET_STS_ERROR ;
674: FND_MSG_PUB.count_and_get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data ,
677: p_encoded => FND_API.G_FALSE );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO Delete_Schedule;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: FND_MSG_PUB.count_and_get
674: FND_MSG_PUB.count_and_get
675: (p_count => x_msg_count ,
676: p_data => x_msg_data ,
677: p_encoded => FND_API.G_FALSE );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO Delete_Schedule;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: FND_MSG_PUB.count_and_get
682: (p_count => x_msg_count ,
676: p_data => x_msg_data ,
677: p_encoded => FND_API.G_FALSE );
678: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
679: ROLLBACK TO Delete_Schedule;
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: FND_MSG_PUB.count_and_get
682: (p_count => x_msg_count ,
683: p_data => x_msg_data ,
684: p_encoded => FND_API.G_FALSE );
680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
681: FND_MSG_PUB.count_and_get
682: (p_count => x_msg_count ,
683: p_data => x_msg_data ,
684: p_encoded => FND_API.G_FALSE );
685: WHEN OTHERS THEN
686: ROLLBACK TO Delete_Schedule;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
688: IF FND_MSG_PUB.check_msg_level
683: p_data => x_msg_data ,
684: p_encoded => FND_API.G_FALSE );
685: WHEN OTHERS THEN
686: ROLLBACK TO Delete_Schedule;
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
688: IF FND_MSG_PUB.check_msg_level
689: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
690: THEN
691: FND_MSG_PUB.add_exc_msg
694: END IF;
695: FND_MSG_PUB.count_and_get
696: (p_count => x_msg_count ,
697: p_data => x_msg_data ,
698: p_encoded => FND_API.G_FALSE );
699: END Delete_Schedule;
700:
701: PROCEDURE Create_Dimension_Assign
702: (p_api_version IN NUMBER,
699: END Delete_Schedule;
700:
701: PROCEDURE Create_Dimension_Assign
702: (p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
707: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
700:
701: PROCEDURE Create_Dimension_Assign
702: (p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
707: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
708: p_rate_dim_sequence IN CN_RATE_SCH_DIMS.RATE_DIM_SEQUENCE%TYPE,
701: PROCEDURE Create_Dimension_Assign
702: (p_api_version IN NUMBER,
703: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704: p_commit IN VARCHAR2 := FND_API.G_FALSE,
705: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
706: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
707: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
708: p_rate_dim_sequence IN CN_RATE_SCH_DIMS.RATE_DIM_SEQUENCE%TYPE,
709: -- Start - MOAC Change
726: BEGIN
727: -- Standard Start of API savepoint
728: SAVEPOINT Create_Dimension_Assign;
729: -- Standard call to check for call compatibility.
730: IF NOT FND_API.Compatible_API_Call
731: (l_api_version ,
732: p_api_version ,
733: l_api_name ,
734: G_PKG_NAME )
732: p_api_version ,
733: l_api_name ,
734: G_PKG_NAME )
735: THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: END IF;
738: -- Initialize message list if p_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean( p_init_msg_list ) THEN
740: FND_MSG_PUB.initialize;
735: THEN
736: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
737: END IF;
738: -- Initialize message list if p_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean( p_init_msg_list ) THEN
740: FND_MSG_PUB.initialize;
741: END IF;
742: -- Initialize API return status to success
743: x_return_status := FND_API.G_RET_STS_SUCCESS;
739: IF FND_API.to_Boolean( p_init_msg_list ) THEN
740: FND_MSG_PUB.initialize;
741: END IF;
742: -- Initialize API return status to success
743: x_return_status := FND_API.G_RET_STS_SUCCESS;
744:
745: -- API body
746:
747: -- Start - R12 MOAC Changes
831:
832: -- End of API body.
833:
834: -- Standard check of p_commit.
835: IF FND_API.To_Boolean( p_commit ) THEN
836: COMMIT WORK;
837: END IF;
838: -- Standard call to get message count and if count is 1, get message info.
839: FND_MSG_PUB.Count_And_Get
838: -- Standard call to get message count and if count is 1, get message info.
839: FND_MSG_PUB.Count_And_Get
840: (p_count => x_msg_count ,
841: p_data => x_msg_data ,
842: p_encoded => FND_API.G_FALSE );
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: ROLLBACK TO Create_Dimension_Assign;
846: x_return_status := FND_API.G_RET_STS_ERROR ;
840: (p_count => x_msg_count ,
841: p_data => x_msg_data ,
842: p_encoded => FND_API.G_FALSE );
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: ROLLBACK TO Create_Dimension_Assign;
846: x_return_status := FND_API.G_RET_STS_ERROR ;
847: FND_MSG_PUB.count_and_get
848: (p_count => x_msg_count ,
842: p_encoded => FND_API.G_FALSE );
843: EXCEPTION
844: WHEN FND_API.G_EXC_ERROR THEN
845: ROLLBACK TO Create_Dimension_Assign;
846: x_return_status := FND_API.G_RET_STS_ERROR ;
847: FND_MSG_PUB.count_and_get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data ,
850: p_encoded => FND_API.G_FALSE );
846: x_return_status := FND_API.G_RET_STS_ERROR ;
847: FND_MSG_PUB.count_and_get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data ,
850: p_encoded => FND_API.G_FALSE );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: ROLLBACK TO Create_Dimension_Assign;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: FND_MSG_PUB.count_and_get
847: FND_MSG_PUB.count_and_get
848: (p_count => x_msg_count ,
849: p_data => x_msg_data ,
850: p_encoded => FND_API.G_FALSE );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: ROLLBACK TO Create_Dimension_Assign;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: FND_MSG_PUB.count_and_get
855: (p_count => x_msg_count ,
849: p_data => x_msg_data ,
850: p_encoded => FND_API.G_FALSE );
851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
852: ROLLBACK TO Create_Dimension_Assign;
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: FND_MSG_PUB.count_and_get
855: (p_count => x_msg_count ,
856: p_data => x_msg_data ,
857: p_encoded => FND_API.G_FALSE );
853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
854: FND_MSG_PUB.count_and_get
855: (p_count => x_msg_count ,
856: p_data => x_msg_data ,
857: p_encoded => FND_API.G_FALSE );
858: WHEN OTHERS THEN
859: ROLLBACK TO Create_Dimension_Assign;
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
861: IF FND_MSG_PUB.check_msg_level
856: p_data => x_msg_data ,
857: p_encoded => FND_API.G_FALSE );
858: WHEN OTHERS THEN
859: ROLLBACK TO Create_Dimension_Assign;
860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
861: IF FND_MSG_PUB.check_msg_level
862: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
863: THEN
864: FND_MSG_PUB.add_exc_msg
867: END IF;
868: FND_MSG_PUB.count_and_get
869: (p_count => x_msg_count ,
870: p_data => x_msg_data ,
871: p_encoded => FND_API.G_FALSE );
872: END Create_Dimension_Assign;
873:
874:
875: PROCEDURE Update_Dimension_Assign
873:
874:
875: PROCEDURE Update_Dimension_Assign
876: (p_api_version IN NUMBER,
877: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
878: p_commit IN VARCHAR2 := FND_API.G_FALSE,
879: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
880: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
881: p_orig_rate_dim_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
874:
875: PROCEDURE Update_Dimension_Assign
876: (p_api_version IN NUMBER,
877: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
878: p_commit IN VARCHAR2 := FND_API.G_FALSE,
879: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
880: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
881: p_orig_rate_dim_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
882: p_new_rate_dim_name IN CN_RATE_DIMENSIONS.NAME%TYPE := cn_api.g_miss_char,
875: PROCEDURE Update_Dimension_Assign
876: (p_api_version IN NUMBER,
877: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
878: p_commit IN VARCHAR2 := FND_API.G_FALSE,
879: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
880: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
881: p_orig_rate_dim_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
882: p_new_rate_dim_name IN CN_RATE_DIMENSIONS.NAME%TYPE := cn_api.g_miss_char,
883: p_rate_dim_sequence IN CN_RATE_SCH_DIMS.RATE_DIM_SEQUENCE%TYPE :=
902: BEGIN
903: -- Standard Start of API savepoint
904: SAVEPOINT Update_Dimension_Assign;
905: -- Standard call to check for call compatibility.
906: IF NOT FND_API.Compatible_API_Call
907: (l_api_version ,
908: p_api_version ,
909: l_api_name ,
910: G_PKG_NAME )
908: p_api_version ,
909: l_api_name ,
910: G_PKG_NAME )
911: THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914: -- Initialize message list if p_init_msg_list is set to TRUE.
915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
916: FND_MSG_PUB.initialize;
911: THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914: -- Initialize message list if p_init_msg_list is set to TRUE.
915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
916: FND_MSG_PUB.initialize;
917: END IF;
918: -- Initialize API return status to success
919: x_return_status := FND_API.G_RET_STS_SUCCESS;
915: IF FND_API.to_Boolean( p_init_msg_list ) THEN
916: FND_MSG_PUB.initialize;
917: END IF;
918: -- Initialize API return status to success
919: x_return_status := FND_API.G_RET_STS_SUCCESS;
920:
921: -- API body
922:
923: -- get ID's
944: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
945: FND_MSG_PUB.Add;
946: END IF;
947:
948: RAISE FND_API.G_EXC_ERROR ;
949: END IF;
950: -- End - MOAC Change
951: -- get rate_dim_sequence (validation for this select already performed)
952: select rate_dim_sequence into l_rate_dim_sequence
1043:
1044: -- End of API body.
1045:
1046: -- Standard check of p_commit.
1047: IF FND_API.To_Boolean( p_commit ) THEN
1048: COMMIT WORK;
1049: END IF;
1050: -- Standard call to get message count and if count is 1, get message info.
1051: FND_MSG_PUB.Count_And_Get
1050: -- Standard call to get message count and if count is 1, get message info.
1051: FND_MSG_PUB.Count_And_Get
1052: (p_count => x_msg_count ,
1053: p_data => x_msg_data ,
1054: p_encoded => FND_API.G_FALSE );
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: ROLLBACK TO Update_Dimension_Assign;
1058: x_return_status := FND_API.G_RET_STS_ERROR ;
1052: (p_count => x_msg_count ,
1053: p_data => x_msg_data ,
1054: p_encoded => FND_API.G_FALSE );
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: ROLLBACK TO Update_Dimension_Assign;
1058: x_return_status := FND_API.G_RET_STS_ERROR ;
1059: FND_MSG_PUB.count_and_get
1060: (p_count => x_msg_count ,
1054: p_encoded => FND_API.G_FALSE );
1055: EXCEPTION
1056: WHEN FND_API.G_EXC_ERROR THEN
1057: ROLLBACK TO Update_Dimension_Assign;
1058: x_return_status := FND_API.G_RET_STS_ERROR ;
1059: FND_MSG_PUB.count_and_get
1060: (p_count => x_msg_count ,
1061: p_data => x_msg_data ,
1062: p_encoded => FND_API.G_FALSE );
1058: x_return_status := FND_API.G_RET_STS_ERROR ;
1059: FND_MSG_PUB.count_and_get
1060: (p_count => x_msg_count ,
1061: p_data => x_msg_data ,
1062: p_encoded => FND_API.G_FALSE );
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064: ROLLBACK TO Update_Dimension_Assign;
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066: FND_MSG_PUB.count_and_get
1059: FND_MSG_PUB.count_and_get
1060: (p_count => x_msg_count ,
1061: p_data => x_msg_data ,
1062: p_encoded => FND_API.G_FALSE );
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064: ROLLBACK TO Update_Dimension_Assign;
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066: FND_MSG_PUB.count_and_get
1067: (p_count => x_msg_count ,
1061: p_data => x_msg_data ,
1062: p_encoded => FND_API.G_FALSE );
1063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1064: ROLLBACK TO Update_Dimension_Assign;
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066: FND_MSG_PUB.count_and_get
1067: (p_count => x_msg_count ,
1068: p_data => x_msg_data ,
1069: p_encoded => FND_API.G_FALSE );
1065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1066: FND_MSG_PUB.count_and_get
1067: (p_count => x_msg_count ,
1068: p_data => x_msg_data ,
1069: p_encoded => FND_API.G_FALSE );
1070: WHEN OTHERS THEN
1071: ROLLBACK TO Update_Dimension_Assign;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1073: IF FND_MSG_PUB.check_msg_level
1068: p_data => x_msg_data ,
1069: p_encoded => FND_API.G_FALSE );
1070: WHEN OTHERS THEN
1071: ROLLBACK TO Update_Dimension_Assign;
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1073: IF FND_MSG_PUB.check_msg_level
1074: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1075: THEN
1076: FND_MSG_PUB.add_exc_msg
1079: END IF;
1080: FND_MSG_PUB.count_and_get
1081: (p_count => x_msg_count ,
1082: p_data => x_msg_data ,
1083: p_encoded => FND_API.G_FALSE );
1084: END Update_Dimension_Assign;
1085:
1086: PROCEDURE Delete_Dimension_Assign
1087: (p_api_version IN NUMBER,
1084: END Update_Dimension_Assign;
1085:
1086: PROCEDURE Delete_Dimension_Assign
1087: (p_api_version IN NUMBER,
1088: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1089: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1090: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1091: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1092: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1085:
1086: PROCEDURE Delete_Dimension_Assign
1087: (p_api_version IN NUMBER,
1088: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1089: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1090: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1091: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1092: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1093: -- Start - R12 MOAC Changes
1086: PROCEDURE Delete_Dimension_Assign
1087: (p_api_version IN NUMBER,
1088: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1089: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1090: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1091: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1092: p_rate_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1093: -- Start - R12 MOAC Changes
1094: p_object_version_number IN CN_RATE_DIMENSIONS.OBJECT_VERSION_NUMBER%TYPE, -- new
1105: BEGIN
1106: -- Standard Start of API savepoint
1107: SAVEPOINT Delete_Dimension_Assign;
1108: -- Standard call to check for call compatibility.
1109: IF NOT FND_API.Compatible_API_Call
1110: (l_api_version ,
1111: p_api_version ,
1112: l_api_name ,
1113: G_PKG_NAME )
1111: p_api_version ,
1112: l_api_name ,
1113: G_PKG_NAME )
1114: THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: END IF;
1117: -- Initialize message list if p_init_msg_list is set to TRUE.
1118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1119: FND_MSG_PUB.initialize;
1114: THEN
1115: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1116: END IF;
1117: -- Initialize message list if p_init_msg_list is set to TRUE.
1118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1119: FND_MSG_PUB.initialize;
1120: END IF;
1121: -- Initialize API return status to success
1122: x_return_status := FND_API.G_RET_STS_SUCCESS;
1118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1119: FND_MSG_PUB.initialize;
1120: END IF;
1121: -- Initialize API return status to success
1122: x_return_status := FND_API.G_RET_STS_SUCCESS;
1123:
1124: -- API body
1125:
1126: l_rate_schedule_id := get_rate_schedule_id (p_rate_schedule_name);
1193:
1194: -- End of API body.
1195:
1196: -- Standard check of p_commit.
1197: IF FND_API.To_Boolean( p_commit ) THEN
1198: COMMIT WORK;
1199: END IF;
1200: -- Standard call to get message count and if count is 1, get message info.
1201: FND_MSG_PUB.Count_And_Get
1200: -- Standard call to get message count and if count is 1, get message info.
1201: FND_MSG_PUB.Count_And_Get
1202: (p_count => x_msg_count ,
1203: p_data => x_msg_data ,
1204: p_encoded => FND_API.G_FALSE );
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: ROLLBACK TO Delete_Dimension_Assign;
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1202: (p_count => x_msg_count ,
1203: p_data => x_msg_data ,
1204: p_encoded => FND_API.G_FALSE );
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: ROLLBACK TO Delete_Dimension_Assign;
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1209: FND_MSG_PUB.count_and_get
1210: (p_count => x_msg_count ,
1204: p_encoded => FND_API.G_FALSE );
1205: EXCEPTION
1206: WHEN FND_API.G_EXC_ERROR THEN
1207: ROLLBACK TO Delete_Dimension_Assign;
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1209: FND_MSG_PUB.count_and_get
1210: (p_count => x_msg_count ,
1211: p_data => x_msg_data ,
1212: p_encoded => FND_API.G_FALSE );
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1209: FND_MSG_PUB.count_and_get
1210: (p_count => x_msg_count ,
1211: p_data => x_msg_data ,
1212: p_encoded => FND_API.G_FALSE );
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: ROLLBACK TO Delete_Dimension_Assign;
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1216: FND_MSG_PUB.count_and_get
1209: FND_MSG_PUB.count_and_get
1210: (p_count => x_msg_count ,
1211: p_data => x_msg_data ,
1212: p_encoded => FND_API.G_FALSE );
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: ROLLBACK TO Delete_Dimension_Assign;
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1216: FND_MSG_PUB.count_and_get
1217: (p_count => x_msg_count ,
1211: p_data => x_msg_data ,
1212: p_encoded => FND_API.G_FALSE );
1213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1214: ROLLBACK TO Delete_Dimension_Assign;
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1216: FND_MSG_PUB.count_and_get
1217: (p_count => x_msg_count ,
1218: p_data => x_msg_data ,
1219: p_encoded => FND_API.G_FALSE );
1215: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1216: FND_MSG_PUB.count_and_get
1217: (p_count => x_msg_count ,
1218: p_data => x_msg_data ,
1219: p_encoded => FND_API.G_FALSE );
1220: WHEN OTHERS THEN
1221: ROLLBACK TO Delete_Dimension_Assign;
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1223: IF FND_MSG_PUB.check_msg_level
1218: p_data => x_msg_data ,
1219: p_encoded => FND_API.G_FALSE );
1220: WHEN OTHERS THEN
1221: ROLLBACK TO Delete_Dimension_Assign;
1222: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1223: IF FND_MSG_PUB.check_msg_level
1224: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1225: THEN
1226: FND_MSG_PUB.add_exc_msg
1229: END IF;
1230: FND_MSG_PUB.count_and_get
1231: (p_count => x_msg_count ,
1232: p_data => x_msg_data ,
1233: p_encoded => FND_API.G_FALSE );
1234: END Delete_Dimension_Assign;
1235:
1236: PROCEDURE Update_Rate
1237: (p_api_version IN NUMBER,
1234: END Delete_Dimension_Assign;
1235:
1236: PROCEDURE Update_Rate
1237: (p_api_version IN NUMBER,
1238: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1239: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1240: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1241: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1242: p_tier_coordinates_tbl IN tier_coordinates_tbl,
1235:
1236: PROCEDURE Update_Rate
1237: (p_api_version IN NUMBER,
1238: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1239: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1240: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1241: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1242: p_tier_coordinates_tbl IN tier_coordinates_tbl,
1243: p_commission_amount IN CN_RATE_TIERS.COMMISSION_AMOUNT%TYPE,
1236: PROCEDURE Update_Rate
1237: (p_api_version IN NUMBER,
1238: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1239: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1240: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1241: p_rate_schedule_name IN CN_RATE_SCHEDULES.NAME%TYPE,
1242: p_tier_coordinates_tbl IN tier_coordinates_tbl,
1243: p_commission_amount IN CN_RATE_TIERS.COMMISSION_AMOUNT%TYPE,
1244: p_object_version_number IN OUT NOCOPY CN_RATE_TIERS.OBJECT_VERSION_NUMBER%TYPE,
1264: BEGIN
1265: -- Standard Start of API savepoint
1266: SAVEPOINT Update_Rate;
1267: -- Standard call to check for call compatibility.
1268: IF NOT FND_API.Compatible_API_Call
1269: (l_api_version ,
1270: p_api_version ,
1271: l_api_name ,
1272: G_PKG_NAME )
1270: p_api_version ,
1271: l_api_name ,
1272: G_PKG_NAME )
1273: THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276: -- Initialize message list if p_init_msg_list is set to TRUE.
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1273: THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276: -- Initialize message list if p_init_msg_list is set to TRUE.
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1279: END IF;
1280: -- Initialize API return status to success
1281: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1279: END IF;
1280: -- Initialize API return status to success
1281: x_return_status := FND_API.G_RET_STS_SUCCESS;
1282:
1283: -- API body
1284:
1285: l_rate_schedule_id := get_rate_schedule_id(p_rate_schedule_name);
1303: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
1304: FND_MSG_PUB.Add;
1305: END IF;
1306:
1307: RAISE FND_API.G_EXC_ERROR ;
1308: END IF;
1309: -- End - MOAC Change
1310:
1311: for i in p_tier_coordinates_tbl.first..p_tier_coordinates_tbl.last loop
1389:
1390: -- End of API body.
1391:
1392: -- Standard check of p_commit.
1393: IF FND_API.To_Boolean( p_commit ) THEN
1394: COMMIT WORK;
1395: END IF;
1396: -- Standard call to get message count and if count is 1, get message info.
1397: FND_MSG_PUB.Count_And_Get
1396: -- Standard call to get message count and if count is 1, get message info.
1397: FND_MSG_PUB.Count_And_Get
1398: (p_count => x_msg_count ,
1399: p_data => x_msg_data ,
1400: p_encoded => FND_API.G_FALSE );
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO Update_Rate;
1404: x_return_status := FND_API.G_RET_STS_ERROR ;
1398: (p_count => x_msg_count ,
1399: p_data => x_msg_data ,
1400: p_encoded => FND_API.G_FALSE );
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO Update_Rate;
1404: x_return_status := FND_API.G_RET_STS_ERROR ;
1405: FND_MSG_PUB.count_and_get
1406: (p_count => x_msg_count ,
1400: p_encoded => FND_API.G_FALSE );
1401: EXCEPTION
1402: WHEN FND_API.G_EXC_ERROR THEN
1403: ROLLBACK TO Update_Rate;
1404: x_return_status := FND_API.G_RET_STS_ERROR ;
1405: FND_MSG_PUB.count_and_get
1406: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1404: x_return_status := FND_API.G_RET_STS_ERROR ;
1405: FND_MSG_PUB.count_and_get
1406: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: ROLLBACK TO Update_Rate;
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: FND_MSG_PUB.count_and_get
1405: FND_MSG_PUB.count_and_get
1406: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: ROLLBACK TO Update_Rate;
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: FND_MSG_PUB.count_and_get
1413: (p_count => x_msg_count ,
1407: p_data => x_msg_data ,
1408: p_encoded => FND_API.G_FALSE );
1409: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1410: ROLLBACK TO Update_Rate;
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: FND_MSG_PUB.count_and_get
1413: (p_count => x_msg_count ,
1414: p_data => x_msg_data ,
1415: p_encoded => FND_API.G_FALSE );
1411: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1412: FND_MSG_PUB.count_and_get
1413: (p_count => x_msg_count ,
1414: p_data => x_msg_data ,
1415: p_encoded => FND_API.G_FALSE );
1416: WHEN OTHERS THEN
1417: ROLLBACK TO Update_Rate;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: IF FND_MSG_PUB.check_msg_level
1414: p_data => x_msg_data ,
1415: p_encoded => FND_API.G_FALSE );
1416: WHEN OTHERS THEN
1417: ROLLBACK TO Update_Rate;
1418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1419: IF FND_MSG_PUB.check_msg_level
1420: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1421: THEN
1422: FND_MSG_PUB.add_exc_msg
1425: END IF;
1426: FND_MSG_PUB.count_and_get
1427: (p_count => x_msg_count ,
1428: p_data => x_msg_data ,
1429: p_encoded => FND_API.G_FALSE );
1430: END Update_Rate;
1431:
1432: PROCEDURE Create_Dimension
1433: (p_api_version IN NUMBER,
1430: END Update_Rate;
1431:
1432: PROCEDURE Create_Dimension
1433: (p_api_version IN NUMBER,
1434: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1435: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1436: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1437: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1438: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
1431:
1432: PROCEDURE Create_Dimension
1433: (p_api_version IN NUMBER,
1434: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1435: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1436: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1437: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1438: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
1439: p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
1432: PROCEDURE Create_Dimension
1433: (p_api_version IN NUMBER,
1434: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1435: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1436: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1437: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1438: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE := NULL,
1439: p_dim_unit_code IN CN_RATE_DIMENSIONS.DIM_UNIT_CODE%TYPE,
1440: p_tiers_tbl IN rate_tier_tbl_type := g_miss_rate_tier_tbl,
1458:
1459: -- Standard Start of API savepoint
1460: SAVEPOINT Create_Dimension;
1461: -- Standard call to check for call compatibility.
1462: IF NOT FND_API.Compatible_API_Call
1463: (l_api_version ,
1464: p_api_version ,
1465: l_api_name ,
1466: G_PKG_NAME )
1464: p_api_version ,
1465: l_api_name ,
1466: G_PKG_NAME )
1467: THEN
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: FND_MSG_PUB.initialize;
1467: THEN
1468: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1469: END IF;
1470: -- Initialize message list if p_init_msg_list is set to TRUE.
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474: -- Initialize API return status to success
1475: x_return_status := FND_API.G_RET_STS_SUCCESS;
1471: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474: -- Initialize API return status to success
1475: x_return_status := FND_API.G_RET_STS_SUCCESS;
1476:
1477: -- API body
1478:
1479: -- Start - R12 MOAC Changes
1576:
1577: -- End of API body.
1578:
1579: -- Standard check of p_commit.
1580: IF FND_API.To_Boolean( p_commit ) THEN
1581: COMMIT WORK;
1582: END IF;
1583: -- Standard call to get message count and if count is 1, get message info.
1584: FND_MSG_PUB.Count_And_Get
1583: -- Standard call to get message count and if count is 1, get message info.
1584: FND_MSG_PUB.Count_And_Get
1585: (p_count => x_msg_count ,
1586: p_data => x_msg_data ,
1587: p_encoded => FND_API.G_FALSE );
1588: EXCEPTION
1589: WHEN FND_API.G_EXC_ERROR THEN
1590: ROLLBACK TO Create_Dimension;
1591: x_return_status := FND_API.G_RET_STS_ERROR ;
1585: (p_count => x_msg_count ,
1586: p_data => x_msg_data ,
1587: p_encoded => FND_API.G_FALSE );
1588: EXCEPTION
1589: WHEN FND_API.G_EXC_ERROR THEN
1590: ROLLBACK TO Create_Dimension;
1591: x_return_status := FND_API.G_RET_STS_ERROR ;
1592: FND_MSG_PUB.count_and_get
1593: (p_count => x_msg_count ,
1587: p_encoded => FND_API.G_FALSE );
1588: EXCEPTION
1589: WHEN FND_API.G_EXC_ERROR THEN
1590: ROLLBACK TO Create_Dimension;
1591: x_return_status := FND_API.G_RET_STS_ERROR ;
1592: FND_MSG_PUB.count_and_get
1593: (p_count => x_msg_count ,
1594: p_data => x_msg_data ,
1595: p_encoded => FND_API.G_FALSE );
1591: x_return_status := FND_API.G_RET_STS_ERROR ;
1592: FND_MSG_PUB.count_and_get
1593: (p_count => x_msg_count ,
1594: p_data => x_msg_data ,
1595: p_encoded => FND_API.G_FALSE );
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: ROLLBACK TO Create_Dimension;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1599: FND_MSG_PUB.count_and_get
1592: FND_MSG_PUB.count_and_get
1593: (p_count => x_msg_count ,
1594: p_data => x_msg_data ,
1595: p_encoded => FND_API.G_FALSE );
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: ROLLBACK TO Create_Dimension;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1599: FND_MSG_PUB.count_and_get
1600: (p_count => x_msg_count ,
1594: p_data => x_msg_data ,
1595: p_encoded => FND_API.G_FALSE );
1596: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1597: ROLLBACK TO Create_Dimension;
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1599: FND_MSG_PUB.count_and_get
1600: (p_count => x_msg_count ,
1601: p_data => x_msg_data ,
1602: p_encoded => FND_API.G_FALSE );
1598: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1599: FND_MSG_PUB.count_and_get
1600: (p_count => x_msg_count ,
1601: p_data => x_msg_data ,
1602: p_encoded => FND_API.G_FALSE );
1603: WHEN OTHERS THEN
1604: ROLLBACK TO Create_Dimension;
1605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1606: IF FND_MSG_PUB.check_msg_level
1601: p_data => x_msg_data ,
1602: p_encoded => FND_API.G_FALSE );
1603: WHEN OTHERS THEN
1604: ROLLBACK TO Create_Dimension;
1605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1606: IF FND_MSG_PUB.check_msg_level
1607: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1608: THEN
1609: FND_MSG_PUB.add_exc_msg
1612: END IF;
1613: FND_MSG_PUB.count_and_get
1614: (p_count => x_msg_count ,
1615: p_data => x_msg_data ,
1616: p_encoded => FND_API.G_FALSE );
1617: END Create_Dimension;
1618:
1619: PROCEDURE Update_Dimension
1620: (p_api_version IN NUMBER,
1617: END Create_Dimension;
1618:
1619: PROCEDURE Update_Dimension
1620: (p_api_version IN NUMBER,
1621: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1622: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1623: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1624: p_original_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1625: p_new_name IN CN_RATE_DIMENSIONS.NAME%TYPE :=
1618:
1619: PROCEDURE Update_Dimension
1620: (p_api_version IN NUMBER,
1621: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1622: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1623: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1624: p_original_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1625: p_new_name IN CN_RATE_DIMENSIONS.NAME%TYPE :=
1626: cn_api.g_miss_char,
1619: PROCEDURE Update_Dimension
1620: (p_api_version IN NUMBER,
1621: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1622: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1623: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1624: p_original_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1625: p_new_name IN CN_RATE_DIMENSIONS.NAME%TYPE :=
1626: cn_api.g_miss_char,
1627: p_description IN CN_RATE_DIMENSIONS.DESCRIPTION%TYPE :=
1657: BEGIN
1658: -- Standard Start of API savepoint
1659: SAVEPOINT Update_Dimension;
1660: -- Standard call to check for call compatibility.
1661: IF NOT FND_API.Compatible_API_Call
1662: (l_api_version ,
1663: p_api_version ,
1664: l_api_name ,
1665: G_PKG_NAME )
1663: p_api_version ,
1664: l_api_name ,
1665: G_PKG_NAME )
1666: THEN
1667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1668: END IF;
1669: -- Initialize message list if p_init_msg_list is set to TRUE.
1670: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1671: FND_MSG_PUB.initialize;
1666: THEN
1667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1668: END IF;
1669: -- Initialize message list if p_init_msg_list is set to TRUE.
1670: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1671: FND_MSG_PUB.initialize;
1672: END IF;
1673: -- Initialize API return status to success
1674: x_return_status := FND_API.G_RET_STS_SUCCESS;
1670: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1671: FND_MSG_PUB.initialize;
1672: END IF;
1673: -- Initialize API return status to success
1674: x_return_status := FND_API.G_RET_STS_SUCCESS;
1675:
1676: -- API body
1677:
1678: l_rate_dimension_id := get_rate_dimension_id(p_original_name);
1696: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
1697: FND_MSG_PUB.Add;
1698: END IF;
1699:
1700: RAISE FND_API.G_EXC_ERROR ;
1701: END IF;
1702: -- End - MOAC Change
1703:
1704: select description into l_description from cn_rate_dimensions
1811:
1812: -- End of API body.
1813:
1814: -- Standard check of p_commit.
1815: IF FND_API.To_Boolean( p_commit ) THEN
1816: COMMIT WORK;
1817: END IF;
1818: -- Standard call to get message count and if count is 1, get message info.
1819: FND_MSG_PUB.count_and_get
1818: -- Standard call to get message count and if count is 1, get message info.
1819: FND_MSG_PUB.count_and_get
1820: (p_count => x_msg_count ,
1821: p_data => x_msg_data ,
1822: p_encoded => FND_API.G_FALSE );
1823: EXCEPTION
1824: WHEN FND_API.G_EXC_ERROR THEN
1825: ROLLBACK TO Update_Dimension;
1826: x_return_status := FND_API.G_RET_STS_ERROR ;
1820: (p_count => x_msg_count ,
1821: p_data => x_msg_data ,
1822: p_encoded => FND_API.G_FALSE );
1823: EXCEPTION
1824: WHEN FND_API.G_EXC_ERROR THEN
1825: ROLLBACK TO Update_Dimension;
1826: x_return_status := FND_API.G_RET_STS_ERROR ;
1827: FND_MSG_PUB.count_and_get
1828: (p_count => x_msg_count ,
1822: p_encoded => FND_API.G_FALSE );
1823: EXCEPTION
1824: WHEN FND_API.G_EXC_ERROR THEN
1825: ROLLBACK TO Update_Dimension;
1826: x_return_status := FND_API.G_RET_STS_ERROR ;
1827: FND_MSG_PUB.count_and_get
1828: (p_count => x_msg_count ,
1829: p_data => x_msg_data ,
1830: p_encoded => FND_API.G_FALSE );
1826: x_return_status := FND_API.G_RET_STS_ERROR ;
1827: FND_MSG_PUB.count_and_get
1828: (p_count => x_msg_count ,
1829: p_data => x_msg_data ,
1830: p_encoded => FND_API.G_FALSE );
1831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1832: ROLLBACK TO Update_Dimension;
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834: FND_MSG_PUB.count_and_get
1827: FND_MSG_PUB.count_and_get
1828: (p_count => x_msg_count ,
1829: p_data => x_msg_data ,
1830: p_encoded => FND_API.G_FALSE );
1831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1832: ROLLBACK TO Update_Dimension;
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834: FND_MSG_PUB.count_and_get
1835: (p_count => x_msg_count ,
1829: p_data => x_msg_data ,
1830: p_encoded => FND_API.G_FALSE );
1831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1832: ROLLBACK TO Update_Dimension;
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834: FND_MSG_PUB.count_and_get
1835: (p_count => x_msg_count ,
1836: p_data => x_msg_data ,
1837: p_encoded => FND_API.G_FALSE );
1833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1834: FND_MSG_PUB.count_and_get
1835: (p_count => x_msg_count ,
1836: p_data => x_msg_data ,
1837: p_encoded => FND_API.G_FALSE );
1838: WHEN OTHERS THEN
1839: ROLLBACK TO Update_Dimension;
1840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1841: IF FND_MSG_PUB.check_msg_level
1836: p_data => x_msg_data ,
1837: p_encoded => FND_API.G_FALSE );
1838: WHEN OTHERS THEN
1839: ROLLBACK TO Update_Dimension;
1840: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1841: IF FND_MSG_PUB.check_msg_level
1842: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1843: THEN
1844: FND_MSG_PUB.add_exc_msg
1847: END IF;
1848: FND_MSG_PUB.count_and_get
1849: (p_count => x_msg_count ,
1850: p_data => x_msg_data ,
1851: p_encoded => FND_API.G_FALSE );
1852: END Update_Dimension;
1853:
1854: PROCEDURE Delete_Dimension
1855: (p_api_version IN NUMBER,
1852: END Update_Dimension;
1853:
1854: PROCEDURE Delete_Dimension
1855: (p_api_version IN NUMBER,
1856: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1857: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1858: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1859: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1860: -- Start - R12 MOAC Changes
1853:
1854: PROCEDURE Delete_Dimension
1855: (p_api_version IN NUMBER,
1856: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1857: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1858: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1859: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1860: -- Start - R12 MOAC Changes
1861: p_object_version_number IN CN_RATE_DIMENSIONS.OBJECT_VERSION_NUMBER%TYPE, -- new
1854: PROCEDURE Delete_Dimension
1855: (p_api_version IN NUMBER,
1856: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1857: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1858: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1859: p_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
1860: -- Start - R12 MOAC Changes
1861: p_object_version_number IN CN_RATE_DIMENSIONS.OBJECT_VERSION_NUMBER%TYPE, -- new
1862: -- End - R12 MOAC Changes
1871: BEGIN
1872: -- Standard Start of API savepoint
1873: SAVEPOINT Delete_Dimension;
1874: -- Standard call to check for call compatibility.
1875: IF NOT FND_API.Compatible_API_Call
1876: (l_api_version ,
1877: p_api_version ,
1878: l_api_name ,
1879: G_PKG_NAME )
1877: p_api_version ,
1878: l_api_name ,
1879: G_PKG_NAME )
1880: THEN
1881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882: END IF;
1883: -- Initialize message list if p_init_msg_list is set to TRUE.
1884: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1885: FND_MSG_PUB.initialize;
1880: THEN
1881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882: END IF;
1883: -- Initialize message list if p_init_msg_list is set to TRUE.
1884: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1885: FND_MSG_PUB.initialize;
1886: END IF;
1887: -- Initialize API return status to success
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1884: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1885: FND_MSG_PUB.initialize;
1886: END IF;
1887: -- Initialize API return status to success
1888: x_return_status := FND_API.G_RET_STS_SUCCESS;
1889:
1890: -- API body
1891:
1892: l_rate_dimension_id := get_rate_dimension_id(p_name);
1952:
1953: -- End of API body.
1954:
1955: -- Standard check of p_commit.
1956: IF FND_API.To_Boolean( p_commit ) THEN
1957: COMMIT WORK;
1958: END IF;
1959: -- Standard call to get message count and if count is 1, get message info.
1960: FND_MSG_PUB.count_and_get
1959: -- Standard call to get message count and if count is 1, get message info.
1960: FND_MSG_PUB.count_and_get
1961: (p_count => x_msg_count ,
1962: p_data => x_msg_data ,
1963: p_encoded => FND_API.G_FALSE );
1964: EXCEPTION
1965: WHEN FND_API.G_EXC_ERROR THEN
1966: ROLLBACK TO Delete_Dimension;
1967: x_return_status := FND_API.G_RET_STS_ERROR ;
1961: (p_count => x_msg_count ,
1962: p_data => x_msg_data ,
1963: p_encoded => FND_API.G_FALSE );
1964: EXCEPTION
1965: WHEN FND_API.G_EXC_ERROR THEN
1966: ROLLBACK TO Delete_Dimension;
1967: x_return_status := FND_API.G_RET_STS_ERROR ;
1968: FND_MSG_PUB.count_and_get
1969: (p_count => x_msg_count ,
1963: p_encoded => FND_API.G_FALSE );
1964: EXCEPTION
1965: WHEN FND_API.G_EXC_ERROR THEN
1966: ROLLBACK TO Delete_Dimension;
1967: x_return_status := FND_API.G_RET_STS_ERROR ;
1968: FND_MSG_PUB.count_and_get
1969: (p_count => x_msg_count ,
1970: p_data => x_msg_data ,
1971: p_encoded => FND_API.G_FALSE );
1967: x_return_status := FND_API.G_RET_STS_ERROR ;
1968: FND_MSG_PUB.count_and_get
1969: (p_count => x_msg_count ,
1970: p_data => x_msg_data ,
1971: p_encoded => FND_API.G_FALSE );
1972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1973: ROLLBACK TO Delete_Dimension;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1975: FND_MSG_PUB.count_and_get
1968: FND_MSG_PUB.count_and_get
1969: (p_count => x_msg_count ,
1970: p_data => x_msg_data ,
1971: p_encoded => FND_API.G_FALSE );
1972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1973: ROLLBACK TO Delete_Dimension;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1975: FND_MSG_PUB.count_and_get
1976: (p_count => x_msg_count ,
1970: p_data => x_msg_data ,
1971: p_encoded => FND_API.G_FALSE );
1972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1973: ROLLBACK TO Delete_Dimension;
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1975: FND_MSG_PUB.count_and_get
1976: (p_count => x_msg_count ,
1977: p_data => x_msg_data ,
1978: p_encoded => FND_API.G_FALSE );
1974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1975: FND_MSG_PUB.count_and_get
1976: (p_count => x_msg_count ,
1977: p_data => x_msg_data ,
1978: p_encoded => FND_API.G_FALSE );
1979: WHEN OTHERS THEN
1980: ROLLBACK TO Delete_Dimension;
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1982: IF FND_MSG_PUB.check_msg_level
1977: p_data => x_msg_data ,
1978: p_encoded => FND_API.G_FALSE );
1979: WHEN OTHERS THEN
1980: ROLLBACK TO Delete_Dimension;
1981: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1982: IF FND_MSG_PUB.check_msg_level
1983: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1984: THEN
1985: FND_MSG_PUB.add_exc_msg
1988: END IF;
1989: FND_MSG_PUB.count_and_get
1990: (p_count => x_msg_count ,
1991: p_data => x_msg_data ,
1992: p_encoded => FND_API.G_FALSE );
1993: END Delete_Dimension;
1994:
1995: PROCEDURE Create_Tier
1996: (p_api_version IN NUMBER,
1993: END Delete_Dimension;
1994:
1995: PROCEDURE Create_Tier
1996: (p_api_version IN NUMBER,
1997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1999: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2000: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2001: p_value1 IN VARCHAR2,
1994:
1995: PROCEDURE Create_Tier
1996: (p_api_version IN NUMBER,
1997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1999: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2000: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2001: p_value1 IN VARCHAR2,
2002: p_value2 IN VARCHAR2,
1995: PROCEDURE Create_Tier
1996: (p_api_version IN NUMBER,
1997: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1998: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1999: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2000: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2001: p_value1 IN VARCHAR2,
2002: p_value2 IN VARCHAR2,
2003: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2026: BEGIN
2027: -- Standard Start of API savepoint
2028: SAVEPOINT Create_tier;
2029: -- Standard call to check for call compatibility.
2030: IF NOT FND_API.Compatible_API_Call
2031: (l_api_version ,
2032: p_api_version ,
2033: l_api_name ,
2034: G_PKG_NAME )
2032: p_api_version ,
2033: l_api_name ,
2034: G_PKG_NAME )
2035: THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038: -- Initialize message list if p_init_msg_list is set to TRUE.
2039: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2040: FND_MSG_PUB.initialize;
2035: THEN
2036: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2037: END IF;
2038: -- Initialize message list if p_init_msg_list is set to TRUE.
2039: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2040: FND_MSG_PUB.initialize;
2041: END IF;
2042: -- Initialize API return status to success
2043: x_return_status := FND_API.G_RET_STS_SUCCESS;
2039: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2040: FND_MSG_PUB.initialize;
2041: END IF;
2042: -- Initialize API return status to success
2043: x_return_status := FND_API.G_RET_STS_SUCCESS;
2044:
2045: -- API body
2046:
2047: -- Start - R12 MOAC Changes
2145:
2146: -- End of API body.
2147:
2148: -- Standard check of p_commit.
2149: IF FND_API.To_Boolean( p_commit ) THEN
2150: COMMIT WORK;
2151: END IF;
2152: -- Standard call to get message count and if count is 1, get message info.
2153: FND_MSG_PUB.Count_And_Get
2152: -- Standard call to get message count and if count is 1, get message info.
2153: FND_MSG_PUB.Count_And_Get
2154: (p_count => x_msg_count ,
2155: p_data => x_msg_data ,
2156: p_encoded => FND_API.G_FALSE );
2157: EXCEPTION
2158: WHEN FND_API.G_EXC_ERROR THEN
2159: ROLLBACK TO Create_tier;
2160: x_return_status := FND_API.G_RET_STS_ERROR ;
2154: (p_count => x_msg_count ,
2155: p_data => x_msg_data ,
2156: p_encoded => FND_API.G_FALSE );
2157: EXCEPTION
2158: WHEN FND_API.G_EXC_ERROR THEN
2159: ROLLBACK TO Create_tier;
2160: x_return_status := FND_API.G_RET_STS_ERROR ;
2161: FND_MSG_PUB.count_and_get
2162: (p_count => x_msg_count ,
2156: p_encoded => FND_API.G_FALSE );
2157: EXCEPTION
2158: WHEN FND_API.G_EXC_ERROR THEN
2159: ROLLBACK TO Create_tier;
2160: x_return_status := FND_API.G_RET_STS_ERROR ;
2161: FND_MSG_PUB.count_and_get
2162: (p_count => x_msg_count ,
2163: p_data => x_msg_data ,
2164: p_encoded => FND_API.G_FALSE );
2160: x_return_status := FND_API.G_RET_STS_ERROR ;
2161: FND_MSG_PUB.count_and_get
2162: (p_count => x_msg_count ,
2163: p_data => x_msg_data ,
2164: p_encoded => FND_API.G_FALSE );
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO Create_tier;
2167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2168: FND_MSG_PUB.count_and_get
2161: FND_MSG_PUB.count_and_get
2162: (p_count => x_msg_count ,
2163: p_data => x_msg_data ,
2164: p_encoded => FND_API.G_FALSE );
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO Create_tier;
2167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2168: FND_MSG_PUB.count_and_get
2169: (p_count => x_msg_count ,
2163: p_data => x_msg_data ,
2164: p_encoded => FND_API.G_FALSE );
2165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2166: ROLLBACK TO Create_tier;
2167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2168: FND_MSG_PUB.count_and_get
2169: (p_count => x_msg_count ,
2170: p_data => x_msg_data ,
2171: p_encoded => FND_API.G_FALSE );
2167: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2168: FND_MSG_PUB.count_and_get
2169: (p_count => x_msg_count ,
2170: p_data => x_msg_data ,
2171: p_encoded => FND_API.G_FALSE );
2172: WHEN OTHERS THEN
2173: ROLLBACK TO Create_tier;
2174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2175: IF FND_MSG_PUB.check_msg_level
2170: p_data => x_msg_data ,
2171: p_encoded => FND_API.G_FALSE );
2172: WHEN OTHERS THEN
2173: ROLLBACK TO Create_tier;
2174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2175: IF FND_MSG_PUB.check_msg_level
2176: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2177: THEN
2178: FND_MSG_PUB.add_exc_msg
2181: END IF;
2182: FND_MSG_PUB.count_and_get
2183: (p_count => x_msg_count ,
2184: p_data => x_msg_data ,
2185: p_encoded => FND_API.G_FALSE );
2186: END Create_tier;
2187:
2188: PROCEDURE Update_Tier
2189: (p_api_version IN NUMBER,
2186: END Create_tier;
2187:
2188: PROCEDURE Update_Tier
2189: (p_api_version IN NUMBER,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2194: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2187:
2188: PROCEDURE Update_Tier
2189: (p_api_version IN NUMBER,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2194: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2195: p_value1 IN VARCHAR2,
2188: PROCEDURE Update_Tier
2189: (p_api_version IN NUMBER,
2190: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2192: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2193: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2194: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2195: p_value1 IN VARCHAR2,
2196: p_value2 IN VARCHAR2,
2218: BEGIN
2219: -- Standard Start of API savepoint
2220: SAVEPOINT Update_tier;
2221: -- Standard call to check for call compatibility.
2222: IF NOT FND_API.Compatible_API_Call
2223: (l_api_version ,
2224: p_api_version ,
2225: l_api_name ,
2226: G_PKG_NAME )
2224: p_api_version ,
2225: l_api_name ,
2226: G_PKG_NAME )
2227: THEN
2228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230: -- Initialize message list if p_init_msg_list is set to TRUE.
2231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2232: FND_MSG_PUB.initialize;
2227: THEN
2228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2229: END IF;
2230: -- Initialize message list if p_init_msg_list is set to TRUE.
2231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2232: FND_MSG_PUB.initialize;
2233: END IF;
2234: -- Initialize API return status to success
2235: x_return_status := FND_API.G_RET_STS_SUCCESS;
2231: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2232: FND_MSG_PUB.initialize;
2233: END IF;
2234: -- Initialize API return status to success
2235: x_return_status := FND_API.G_RET_STS_SUCCESS;
2236:
2237: -- API body
2238:
2239: l_rate_dimension_id := get_rate_dimension_id(p_dimension_name);
2258: FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
2259: FND_MSG_PUB.Add;
2260: END IF;
2261:
2262: RAISE FND_API.G_EXC_ERROR ;
2263: END IF;
2264: -- End - MOAC Change
2265:
2266: -- get dim_unit_code from the dimension
2353:
2354: -- End of API body.
2355:
2356: -- Standard check of p_commit.
2357: IF FND_API.To_Boolean( p_commit ) THEN
2358: COMMIT WORK;
2359: END IF;
2360: -- Standard call to get message count and if count is 1, get message info.
2361: FND_MSG_PUB.Count_And_Get
2360: -- Standard call to get message count and if count is 1, get message info.
2361: FND_MSG_PUB.Count_And_Get
2362: (p_count => x_msg_count ,
2363: p_data => x_msg_data ,
2364: p_encoded => FND_API.G_FALSE );
2365: EXCEPTION
2366: WHEN FND_API.G_EXC_ERROR THEN
2367: ROLLBACK TO Update_tier;
2368: x_return_status := FND_API.G_RET_STS_ERROR ;
2362: (p_count => x_msg_count ,
2363: p_data => x_msg_data ,
2364: p_encoded => FND_API.G_FALSE );
2365: EXCEPTION
2366: WHEN FND_API.G_EXC_ERROR THEN
2367: ROLLBACK TO Update_tier;
2368: x_return_status := FND_API.G_RET_STS_ERROR ;
2369: FND_MSG_PUB.count_and_get
2370: (p_count => x_msg_count ,
2364: p_encoded => FND_API.G_FALSE );
2365: EXCEPTION
2366: WHEN FND_API.G_EXC_ERROR THEN
2367: ROLLBACK TO Update_tier;
2368: x_return_status := FND_API.G_RET_STS_ERROR ;
2369: FND_MSG_PUB.count_and_get
2370: (p_count => x_msg_count ,
2371: p_data => x_msg_data ,
2372: p_encoded => FND_API.G_FALSE );
2368: x_return_status := FND_API.G_RET_STS_ERROR ;
2369: FND_MSG_PUB.count_and_get
2370: (p_count => x_msg_count ,
2371: p_data => x_msg_data ,
2372: p_encoded => FND_API.G_FALSE );
2373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2374: ROLLBACK TO Update_tier;
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2376: FND_MSG_PUB.count_and_get
2369: FND_MSG_PUB.count_and_get
2370: (p_count => x_msg_count ,
2371: p_data => x_msg_data ,
2372: p_encoded => FND_API.G_FALSE );
2373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2374: ROLLBACK TO Update_tier;
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2376: FND_MSG_PUB.count_and_get
2377: (p_count => x_msg_count ,
2371: p_data => x_msg_data ,
2372: p_encoded => FND_API.G_FALSE );
2373: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2374: ROLLBACK TO Update_tier;
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2376: FND_MSG_PUB.count_and_get
2377: (p_count => x_msg_count ,
2378: p_data => x_msg_data ,
2379: p_encoded => FND_API.G_FALSE );
2375: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2376: FND_MSG_PUB.count_and_get
2377: (p_count => x_msg_count ,
2378: p_data => x_msg_data ,
2379: p_encoded => FND_API.G_FALSE );
2380: WHEN OTHERS THEN
2381: ROLLBACK TO Update_tier;
2382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2383: IF FND_MSG_PUB.check_msg_level
2378: p_data => x_msg_data ,
2379: p_encoded => FND_API.G_FALSE );
2380: WHEN OTHERS THEN
2381: ROLLBACK TO Update_tier;
2382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2383: IF FND_MSG_PUB.check_msg_level
2384: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2385: THEN
2386: FND_MSG_PUB.add_exc_msg
2389: END IF;
2390: FND_MSG_PUB.count_and_get
2391: (p_count => x_msg_count ,
2392: p_data => x_msg_data ,
2393: p_encoded => FND_API.G_FALSE );
2394: END Update_tier;
2395:
2396: PROCEDURE Delete_Tier
2397: (p_api_version IN NUMBER,
2394: END Update_tier;
2395:
2396: PROCEDURE Delete_Tier
2397: (p_api_version IN NUMBER,
2398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2399: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2400: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2401: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2402: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2395:
2396: PROCEDURE Delete_Tier
2397: (p_api_version IN NUMBER,
2398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2399: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2400: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2401: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2402: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2403: -- Start - R12 MOAC Changes
2396: PROCEDURE Delete_Tier
2397: (p_api_version IN NUMBER,
2398: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2399: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2400: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2401: p_dimension_name IN CN_RATE_DIMENSIONS.NAME%TYPE,
2402: p_tier_sequence IN CN_RATE_DIM_TIERS.TIER_SEQUENCE%TYPE,
2403: -- Start - R12 MOAC Changes
2404: p_object_version_number IN CN_RATE_TIERS.OBJECT_VERSION_NUMBER%TYPE, -- new
2414: BEGIN
2415: -- Standard Start of API savepoint
2416: SAVEPOINT Delete_Tier;
2417: -- Standard call to check for call compatibility.
2418: IF NOT FND_API.Compatible_API_Call
2419: (l_api_version ,
2420: p_api_version ,
2421: l_api_name ,
2422: G_PKG_NAME )
2420: p_api_version ,
2421: l_api_name ,
2422: G_PKG_NAME )
2423: THEN
2424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2425: END IF;
2426: -- Initialize message list if p_init_msg_list is set to TRUE.
2427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2428: FND_MSG_PUB.initialize;
2423: THEN
2424: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2425: END IF;
2426: -- Initialize message list if p_init_msg_list is set to TRUE.
2427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2428: FND_MSG_PUB.initialize;
2429: END IF;
2430: -- Initialize API return status to success
2431: x_return_status := FND_API.G_RET_STS_SUCCESS;
2427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2428: FND_MSG_PUB.initialize;
2429: END IF;
2430: -- Initialize API return status to success
2431: x_return_status := FND_API.G_RET_STS_SUCCESS;
2432:
2433: -- API body
2434:
2435: l_rate_dimension_id := get_rate_dimension_id(p_dimension_name);
2497:
2498: -- End of API body.
2499:
2500: -- Standard check of p_commit.
2501: IF FND_API.To_Boolean( p_commit ) THEN
2502: COMMIT WORK;
2503: END IF;
2504: -- Standard call to get message count and if count is 1, get message info.
2505: FND_MSG_PUB.Count_And_Get
2504: -- Standard call to get message count and if count is 1, get message info.
2505: FND_MSG_PUB.Count_And_Get
2506: (p_count => x_msg_count ,
2507: p_data => x_msg_data ,
2508: p_encoded => FND_API.G_FALSE );
2509: EXCEPTION
2510: WHEN FND_API.G_EXC_ERROR THEN
2511: ROLLBACK TO Delete_Tier;
2512: x_return_status := FND_API.G_RET_STS_ERROR ;
2506: (p_count => x_msg_count ,
2507: p_data => x_msg_data ,
2508: p_encoded => FND_API.G_FALSE );
2509: EXCEPTION
2510: WHEN FND_API.G_EXC_ERROR THEN
2511: ROLLBACK TO Delete_Tier;
2512: x_return_status := FND_API.G_RET_STS_ERROR ;
2513: FND_MSG_PUB.count_and_get
2514: (p_count => x_msg_count ,
2508: p_encoded => FND_API.G_FALSE );
2509: EXCEPTION
2510: WHEN FND_API.G_EXC_ERROR THEN
2511: ROLLBACK TO Delete_Tier;
2512: x_return_status := FND_API.G_RET_STS_ERROR ;
2513: FND_MSG_PUB.count_and_get
2514: (p_count => x_msg_count ,
2515: p_data => x_msg_data ,
2516: p_encoded => FND_API.G_FALSE );
2512: x_return_status := FND_API.G_RET_STS_ERROR ;
2513: FND_MSG_PUB.count_and_get
2514: (p_count => x_msg_count ,
2515: p_data => x_msg_data ,
2516: p_encoded => FND_API.G_FALSE );
2517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2518: ROLLBACK TO Delete_Tier;
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2520: FND_MSG_PUB.count_and_get
2513: FND_MSG_PUB.count_and_get
2514: (p_count => x_msg_count ,
2515: p_data => x_msg_data ,
2516: p_encoded => FND_API.G_FALSE );
2517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2518: ROLLBACK TO Delete_Tier;
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2520: FND_MSG_PUB.count_and_get
2521: (p_count => x_msg_count ,
2515: p_data => x_msg_data ,
2516: p_encoded => FND_API.G_FALSE );
2517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2518: ROLLBACK TO Delete_Tier;
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2520: FND_MSG_PUB.count_and_get
2521: (p_count => x_msg_count ,
2522: p_data => x_msg_data ,
2523: p_encoded => FND_API.G_FALSE );
2519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2520: FND_MSG_PUB.count_and_get
2521: (p_count => x_msg_count ,
2522: p_data => x_msg_data ,
2523: p_encoded => FND_API.G_FALSE );
2524: WHEN OTHERS THEN
2525: ROLLBACK TO Delete_Tier;
2526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2527: IF FND_MSG_PUB.check_msg_level
2522: p_data => x_msg_data ,
2523: p_encoded => FND_API.G_FALSE );
2524: WHEN OTHERS THEN
2525: ROLLBACK TO Delete_Tier;
2526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2527: IF FND_MSG_PUB.check_msg_level
2528: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2529: THEN
2530: FND_MSG_PUB.add_exc_msg
2533: END IF;
2534: FND_MSG_PUB.count_and_get
2535: (p_count => x_msg_count ,
2536: p_data => x_msg_data ,
2537: p_encoded => FND_API.G_FALSE );
2538: END Delete_Tier;
2539:
2540: END CN_MULTI_RATE_SCHEDULES_PUB;