[Home] [Help]
50: l_loading_status VARCHAR2(80);
51:
52: BEGIN
53: -- Initialize API return status to success
54: x_return_status := FND_API.G_RET_STS_SUCCESS;
55: x_loading_status := p_loading_status ;
56:
57:
58: -- Check Rate Schedule Name is not null
61: IF ( (cn_api.chk_null_char_para
62: (p_char_para => p_rt_quota_asgns_rec.rate_schedule_name,
63: p_obj_name => l_lkup_meaning,
64: p_loading_status => x_loading_status,
65: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
66: RAISE FND_API.G_EXC_ERROR ;
67: END IF;
68:
69:
62: (p_char_para => p_rt_quota_asgns_rec.rate_schedule_name,
63: p_obj_name => l_lkup_meaning,
64: p_loading_status => x_loading_status,
65: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
66: RAISE FND_API.G_EXC_ERROR ;
67: END IF;
68:
69:
70: -- Check Start Date is not null
73: IF ( (cn_api.chk_null_char_para
74: (p_char_para => p_rt_quota_asgns_rec.start_date,
75: p_obj_name => l_lkup_meaning,
76: p_loading_status => x_loading_status,
77: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
78: RAISE FND_API.G_EXC_ERROR ;
79: END IF;
80:
81:
74: (p_char_para => p_rt_quota_asgns_rec.start_date,
75: p_obj_name => l_lkup_meaning,
76: p_loading_status => x_loading_status,
77: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
78: RAISE FND_API.G_EXC_ERROR ;
79: END IF;
80:
81:
82: -- get rate Schedule ID, raise an error if rate schedule id not found.
96: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_SCH_NOT_EXIST');
97: FND_MSG_PUB.Add;
98: END IF;
99: x_loading_status := 'RATE_SCH_NOT_EXIST';
100: RAISE FND_API.G_EXC_ERROR ;
101: END IF;
102:
103:
104: -- Validate Rule : End period must be greater than Start period
110: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_RANGE');
111: FND_MSG_PUB.Add;
112: END IF;
113: x_loading_status := 'INVALID_END_DATE';
114: RAISE FND_API.G_EXC_ERROR ;
115: END IF;
116:
117:
118: -- get the rt_quota Asgns ID if any one of the old value is not null
148: FND_MESSAGE.SET_TOKEN('START_DATE',p_rt_quota_asgns_rec.start_date_old );
149: FND_MSG_PUB.Add;
150: END IF;
151: x_loading_status := 'RT_QUOTA_NOT_EXISTS';
152: RAISE FND_API.G_EXC_ERROR ;
153: END IF;
154: END IF;
155:
156:
196: FND_MESSAGE.SET_NAME ('CN' , 'CN_QUOTA_CANNOT_HAVE_RATE' );
197: FND_MSG_PUB.Add;
198: END IF;
199: x_loading_status := 'QUOTA_CANNOT_HAVE_RATE';
200: RAISE FND_API.G_EXC_ERROR ;
201: END IF;
202:
203: -- End of Validate rt Quota Asigns .
204: -- Standard call to get message count and if count is 1, get message info.
206: FND_MSG_PUB.Count_And_Get
207: (
208: p_count => x_msg_count,
209: p_data => x_msg_data,
210: p_encoded => FND_API.G_FALSE
211: );
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
210: p_encoded => FND_API.G_FALSE
211: );
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR ;
216: FND_MSG_PUB.Count_And_Get
217: (
218: p_count => x_msg_count ,
211: );
212:
213: EXCEPTION
214: WHEN FND_API.G_EXC_ERROR THEN
215: x_return_status := FND_API.G_RET_STS_ERROR ;
216: FND_MSG_PUB.Count_And_Get
217: (
218: p_count => x_msg_count ,
219: p_data => x_msg_data ,
216: FND_MSG_PUB.Count_And_Get
217: (
218: p_count => x_msg_count ,
219: p_data => x_msg_data ,
220: p_encoded => FND_API.G_FALSE
221: );
222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: x_loading_status := 'UNEXPECTED_ERR';
218: p_count => x_msg_count ,
219: p_data => x_msg_data ,
220: p_encoded => FND_API.G_FALSE
221: );
222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: x_loading_status := 'UNEXPECTED_ERR';
225: FND_MSG_PUB.Count_And_Get
226: (
219: p_data => x_msg_data ,
220: p_encoded => FND_API.G_FALSE
221: );
222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
224: x_loading_status := 'UNEXPECTED_ERR';
225: FND_MSG_PUB.Count_And_Get
226: (
227: p_count => x_msg_count ,
225: FND_MSG_PUB.Count_And_Get
226: (
227: p_count => x_msg_count ,
228: p_data => x_msg_data ,
229: p_encoded => FND_API.G_FALSE
230: );
231: WHEN OTHERS THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
233: x_loading_status := 'UNEXPECTED_ERR';
228: p_data => x_msg_data ,
229: p_encoded => FND_API.G_FALSE
230: );
231: WHEN OTHERS THEN
232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
233: x_loading_status := 'UNEXPECTED_ERR';
234: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
235: THEN
236: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
238: FND_MSG_PUB.Count_And_Get
239: (
240: p_count => x_msg_count,
241: p_data => x_msg_data,
242: p_encoded=> FND_API.G_FALSE
243: );
244:
245: END Validate_rt_quota_asgns;
246: --|-----------------------------------------------------------------------+
249: --|-----------------------------------------------------------------------+
250: PROCEDURE Create_rt_quota_asgns
251: (
252: p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: x_return_status OUT NOCOPY VARCHAR2,
257: x_msg_count OUT NOCOPY NUMBER,
250: PROCEDURE Create_rt_quota_asgns
251: (
252: p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: x_return_status OUT NOCOPY VARCHAR2,
257: x_msg_count OUT NOCOPY NUMBER,
258: x_msg_data OUT NOCOPY VARCHAR2,
251: (
252: p_api_version IN NUMBER,
253: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
254: p_commit IN VARCHAR2 := FND_API.G_FALSE,
255: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
256: x_return_status OUT NOCOPY VARCHAR2,
257: x_msg_count OUT NOCOPY NUMBER,
258: x_msg_data OUT NOCOPY VARCHAR2,
259: p_quota_name IN cn_quotas.name%TYPE,
283:
284:
285: -- Standard call to check for call compatibility.
286:
287: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
288: p_api_version ,
289: l_api_name ,
290: G_PKG_NAME )
291: THEN
288: p_api_version ,
289: l_api_name ,
290: G_PKG_NAME )
291: THEN
292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
293: END IF;
294:
295:
296: -- Initialize message list if p_init_msg_list is set to TRUE.
294:
295:
296: -- Initialize message list if p_init_msg_list is set to TRUE.
297:
298: IF FND_API.to_Boolean( p_init_msg_list ) THEN
299: FND_MSG_PUB.initialize;
300: END IF;
301:
302:
301:
302:
303: -- Initialize API return status to success
304:
305: x_return_status := FND_API.G_RET_STS_SUCCESS;
306: x_loading_status := 'CN_INSERTED';
307:
308:
309: -- API body
315: IF ( (cn_api.chk_miss_char_para
316: ( p_char_para => p_quota_name,
317: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
318: p_loading_status => x_loading_status,
319: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
320: RAISE FND_API.G_EXC_ERROR ;
321: ELSIF ( (cn_api.chk_null_char_para
322: (p_char_para => p_quota_name,
323: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
316: ( p_char_para => p_quota_name,
317: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
318: p_loading_status => x_loading_status,
319: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
320: RAISE FND_API.G_EXC_ERROR ;
321: ELSIF ( (cn_api.chk_null_char_para
322: (p_char_para => p_quota_name,
323: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
324: p_loading_status => x_loading_status,
321: ELSIF ( (cn_api.chk_null_char_para
322: (p_char_para => p_quota_name,
323: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
324: p_loading_status => x_loading_status,
325: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
326: RAISE FND_API.G_EXC_ERROR ;
327: END IF;
328:
329:
322: (p_char_para => p_quota_name,
323: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
324: p_loading_status => x_loading_status,
325: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
326: RAISE FND_API.G_EXC_ERROR ;
327: END IF;
328:
329:
330: -- get Quota ID
345: FND_MESSAGE.SET_TOKEN('PE_NAME',p_quota_name);
346: FND_MSG_PUB.Add;
347: END IF;
348: x_loading_status := 'CN_PLN_NOT_EXIST' ;
349: RAISE FND_API.G_EXC_ERROR;
350: END IF;
351: END IF;
352:
353:
379:
380: x_loading_status := l_loading_status;
381: -- Check the Return Status and Loading Status
382:
383: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
384: RAISE FND_API.G_EXC_ERROR ;
385: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
386: AND ( x_loading_status <> 'RT_QUOTA_EXISTS' )
387: THEN
380: x_loading_status := l_loading_status;
381: -- Check the Return Status and Loading Status
382:
383: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
384: RAISE FND_API.G_EXC_ERROR ;
385: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
386: AND ( x_loading_status <> 'RT_QUOTA_EXISTS' )
387: THEN
388:
381: -- Check the Return Status and Loading Status
382:
383: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
384: RAISE FND_API.G_EXC_ERROR ;
385: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
386: AND ( x_loading_status <> 'RT_QUOTA_EXISTS' )
387: THEN
388:
389: -- Insert the Rt_quota assigns record.
435:
436:
437:
438: ELSIF x_loading_status = 'RT_QUOTA_EXISTS' THEN
439: RAISE FND_API.G_EXC_ERROR ;
440: END IF ;
441: END LOOP;
442:
443: -- We need to check one level After than
450: --LOOP
451: FOR I IN l_rate_date_seq_rec_tbl.FIRST..l_rate_date_seq_rec_tbl.LAST LOOP
452: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
453: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
454: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
455: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
456: THEN
457:
458:
451: FOR I IN l_rate_date_seq_rec_tbl.FIRST..l_rate_date_seq_rec_tbl.LAST LOOP
452: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
453: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
454: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
455: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
456: THEN
457:
458:
459: -- Check the sequence and overlap of the start date and the end date
473:
474: x_loading_status := l_loading_status;
475: -- Raise an error if the return status is not success
476:
477: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
478: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
479: THEN
480: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
481: FND_MSG_PUB.Add;
480: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
481: FND_MSG_PUB.Add;
482: END IF;
483: x_loading_status := 'CN_INVALID_DATE_SEQUENCE';
484: RAISE FND_API.G_EXC_ERROR ;
485: END IF;
486: END IF;
487:
488: END LOOP;
489: END IF;
490: -- End of API body.
491: -- Standard check of p_commit.
492:
493: IF FND_API.To_Boolean( p_commit ) THEN
494: COMMIT WORK;
495: END IF;
496:
497: -- Standard call to get message count and if count is 1, get message info.
499: FND_MSG_PUB.Count_And_Get
500: (
501: p_count => x_msg_count ,
502: p_data => x_msg_data ,
503: p_encoded => FND_API.G_FALSE
504: );
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO create_rt_quota_asgns;
502: p_data => x_msg_data ,
503: p_encoded => FND_API.G_FALSE
504: );
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO create_rt_quota_asgns;
508: x_return_status := FND_API.G_RET_STS_ERROR ;
509: FND_MSG_PUB.Count_And_Get
510: (
504: );
505: EXCEPTION
506: WHEN FND_API.G_EXC_ERROR THEN
507: ROLLBACK TO create_rt_quota_asgns;
508: x_return_status := FND_API.G_RET_STS_ERROR ;
509: FND_MSG_PUB.Count_And_Get
510: (
511: p_count => x_msg_count ,
512: p_data => x_msg_data ,
509: FND_MSG_PUB.Count_And_Get
510: (
511: p_count => x_msg_count ,
512: p_data => x_msg_data ,
513: p_encoded => FND_API.G_FALSE
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
516: ROLLBACK TO create_rt_quota_asgns;
517: x_loading_status := 'UNEXPECTED_ERR';
511: p_count => x_msg_count ,
512: p_data => x_msg_data ,
513: p_encoded => FND_API.G_FALSE
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
516: ROLLBACK TO create_rt_quota_asgns;
517: x_loading_status := 'UNEXPECTED_ERR';
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: FND_MSG_PUB.Count_And_Get
514: );
515: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
516: ROLLBACK TO create_rt_quota_asgns;
517: x_loading_status := 'UNEXPECTED_ERR';
518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
519: FND_MSG_PUB.Count_And_Get
520: (
521: p_count => x_msg_count ,
522: p_data => x_msg_data ,
519: FND_MSG_PUB.Count_And_Get
520: (
521: p_count => x_msg_count ,
522: p_data => x_msg_data ,
523: p_encoded => FND_API.G_FALSE
524: );
525: WHEN OTHERS THEN
526: ROLLBACK TO create_rt_quota_asgns;
527: x_loading_status := 'UNEXPECTED_ERR';
524: );
525: WHEN OTHERS THEN
526: ROLLBACK TO create_rt_quota_asgns;
527: x_loading_status := 'UNEXPECTED_ERR';
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
529: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
530: THEN
531: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
532: END IF;
533: FND_MSG_PUB.Count_And_Get
534: (
535: p_count => x_msg_count ,
536: p_data => x_msg_data ,
537: p_encoded => FND_API.G_FALSE
538: );
539:
540: END Create_rt_quota_Asgns;
541: --|-------------------------------------------------------------------------+
544: --|-------------------------------------------------------------------------+
545: PROCEDURE Update_rt_quota_asgns
546: (
547: p_api_version IN NUMBER,
548: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
549: p_commit IN VARCHAR2 := FND_API.G_FALSE,
550: p_validation_level IN NUMBER :=
551: FND_API.G_VALID_LEVEL_FULL,
552: x_return_status OUT NOCOPY VARCHAR2,
545: PROCEDURE Update_rt_quota_asgns
546: (
547: p_api_version IN NUMBER,
548: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
549: p_commit IN VARCHAR2 := FND_API.G_FALSE,
550: p_validation_level IN NUMBER :=
551: FND_API.G_VALID_LEVEL_FULL,
552: x_return_status OUT NOCOPY VARCHAR2,
553: x_msg_count OUT NOCOPY NUMBER,
547: p_api_version IN NUMBER,
548: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
549: p_commit IN VARCHAR2 := FND_API.G_FALSE,
550: p_validation_level IN NUMBER :=
551: FND_API.G_VALID_LEVEL_FULL,
552: x_return_status OUT NOCOPY VARCHAR2,
553: x_msg_count OUT NOCOPY NUMBER,
554: x_msg_data OUT NOCOPY VARCHAR2,
555: p_quota_name IN cn_quotas.name%TYPE,
577: SAVEPOINT Update_Plan_element ;
578:
579: -- Standard call to check for call compatibility.
580:
581: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
582: p_api_version ,
583: l_api_name ,
584: G_PKG_NAME )
585: THEN
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:
589:
590: -- Initialize message list if p_init_msg_list is set to TRUE.
588:
589:
590: -- Initialize message list if p_init_msg_list is set to TRUE.
591:
592: IF FND_API.to_Boolean( p_init_msg_list ) THEN
593: FND_MSG_PUB.initialize;
594: END IF;
595:
596:
595:
596:
597: -- Initialize API return status to success
598:
599: x_return_status := FND_API.G_RET_STS_SUCCESS;
600: x_loading_status := 'CN_UPDATED';
601:
602:
603: -- API body
609: IF ( (cn_api.chk_miss_char_para
610: ( p_char_para => p_quota_name,
611: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
612: p_loading_status => x_loading_status,
613: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
614: RAISE FND_API.G_EXC_ERROR ;
615: ELSIF ( (cn_api.chk_null_char_para
616: (p_char_para => p_quota_name,
617: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
610: ( p_char_para => p_quota_name,
611: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
612: p_loading_status => x_loading_status,
613: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
614: RAISE FND_API.G_EXC_ERROR ;
615: ELSIF ( (cn_api.chk_null_char_para
616: (p_char_para => p_quota_name,
617: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
618: p_loading_status => x_loading_status,
615: ELSIF ( (cn_api.chk_null_char_para
616: (p_char_para => p_quota_name,
617: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
618: p_loading_status => x_loading_status,
619: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
620: RAISE FND_API.G_EXC_ERROR ;
621: END IF;
622:
623: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
616: (p_char_para => p_quota_name,
617: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
618: p_loading_status => x_loading_status,
619: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
620: RAISE FND_API.G_EXC_ERROR ;
621: END IF;
622:
623: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
624:
635: FND_MESSAGE.SET_TOKEN('PE_NAME',p_quota_name);
636: FND_MSG_PUB.Add;
637: END IF;
638: x_loading_status := 'CN_PLN_NOT_EXIST' ;
639: RAISE FND_API.G_EXC_ERROR ;
640: END IF;
641: END IF;
642:
643:
664: x_loading_status := l_loading_status;
665:
666: -- Check the Return Status and the Loading Status
667:
668: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
669: RAISE FND_API.G_EXC_ERROR ;
670: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
671: AND ( x_loading_status = 'CN_UPDATED' )
672: THEN
665:
666: -- Check the Return Status and the Loading Status
667:
668: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
669: RAISE FND_API.G_EXC_ERROR ;
670: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
671: AND ( x_loading_status = 'CN_UPDATED' )
672: THEN
673: -- Update Rt Quota Assigns
666: -- Check the Return Status and the Loading Status
667:
668: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
669: RAISE FND_API.G_EXC_ERROR ;
670: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
671: AND ( x_loading_status = 'CN_UPDATED' )
672: THEN
673: -- Update Rt Quota Assigns
674: CN_RT_QUOTA_ASGNS_PKG.begin_record
715:
716: l_rate_date_seq_rec_tbl(i).rt_quota_asgn_id := l_rt_quota_asgn_id ;
717:
718: ELSIF x_loading_status = 'RT_QUOTA_EXISTS' THEN
719: RAISE FND_API.G_EXC_ERROR ;
720: END IF ;
721: END LOOP;
722:
723: -- We need to check one level After than
730: LOOP
731:
732: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
733: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
734: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
735: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
736: THEN
737:
738:
731:
732: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
733: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
734: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
735: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
736: THEN
737:
738:
739: -- Check the sequence and overlap of the start date and the end date
754:
755:
756: -- Raise an error if the return status is not success
757:
758: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
759: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
760: THEN
761: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
762: FND_MSG_PUB.Add;
761: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
762: FND_MSG_PUB.Add;
763: END IF;
764: x_loading_status := 'CN_INVALID_DATE_SEQUENCE';
765: RAISE FND_API.G_EXC_ERROR ;
766: END IF;
767: END IF;
768:
769: END LOOP;
770: END IF;
771: -- End of Update API body.
772: -- Standard check of p_commit.
773:
774: IF FND_API.To_Boolean( p_commit ) THEN
775: COMMIT WORK;
776: END IF;
777:
778: -- Standard call to get message count and if count is 1, get message info.
780: FND_MSG_PUB.Count_And_Get
781: (
782: p_count => x_msg_count ,
783: p_data => x_msg_data ,
784: p_encoded => FND_API.G_FALSE
785: );
786:
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
784: p_encoded => FND_API.G_FALSE
785: );
786:
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO update_Plan_element;
790: x_return_status := FND_API.G_RET_STS_ERROR ;
791: FND_MSG_PUB.Count_And_Get
792: (
786:
787: EXCEPTION
788: WHEN FND_API.G_EXC_ERROR THEN
789: ROLLBACK TO update_Plan_element;
790: x_return_status := FND_API.G_RET_STS_ERROR ;
791: FND_MSG_PUB.Count_And_Get
792: (
793: p_count => x_msg_count ,
794: p_data => x_msg_data ,
791: FND_MSG_PUB.Count_And_Get
792: (
793: p_count => x_msg_count ,
794: p_data => x_msg_data ,
795: p_encoded => FND_API.G_FALSE
796: );
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO update_Plan_Element;
799: x_loading_status := 'UNEXPECTED_ERR';
793: p_count => x_msg_count ,
794: p_data => x_msg_data ,
795: p_encoded => FND_API.G_FALSE
796: );
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO update_Plan_Element;
799: x_loading_status := 'UNEXPECTED_ERR';
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
801: FND_MSG_PUB.Count_And_Get
796: );
797: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
798: ROLLBACK TO update_Plan_Element;
799: x_loading_status := 'UNEXPECTED_ERR';
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
801: FND_MSG_PUB.Count_And_Get
802: (
803: p_count => x_msg_count ,
804: p_data => x_msg_data ,
801: FND_MSG_PUB.Count_And_Get
802: (
803: p_count => x_msg_count ,
804: p_data => x_msg_data ,
805: p_encoded => FND_API.G_FALSE
806: );
807: WHEN OTHERS THEN
808: ROLLBACK TO update_plan_element;
809: x_loading_status := 'UNEXPECTED_ERR';
806: );
807: WHEN OTHERS THEN
808: ROLLBACK TO update_plan_element;
809: x_loading_status := 'UNEXPECTED_ERR';
810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
811: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
812: THEN
813: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
814: END IF;
815: FND_MSG_PUB.Count_And_Get
816: (
817: p_count => x_msg_count ,
818: p_data => x_msg_data ,
819: p_encoded => FND_API.G_FALSE
820: );
821: END Update_rt_quota_Asgns;
822: --|-------------------------------------------------------------------------+
823: --| Procedure Name : Delete rt Quota Asgns
825: --|-------------------------------------------------------------------------+
826: PROCEDURE Delete_rt_quota_asgns
827: (
828: p_api_version IN NUMBER,
829: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
830: p_commit IN VARCHAR2 := FND_API.G_FALSE,
831: p_validation_level IN NUMBER :=
832: FND_API.G_VALID_LEVEL_FULL,
833: x_return_status OUT NOCOPY VARCHAR2,
826: PROCEDURE Delete_rt_quota_asgns
827: (
828: p_api_version IN NUMBER,
829: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
830: p_commit IN VARCHAR2 := FND_API.G_FALSE,
831: p_validation_level IN NUMBER :=
832: FND_API.G_VALID_LEVEL_FULL,
833: x_return_status OUT NOCOPY VARCHAR2,
834: x_msg_count OUT NOCOPY NUMBER,
828: p_api_version IN NUMBER,
829: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
830: p_commit IN VARCHAR2 := FND_API.G_FALSE,
831: p_validation_level IN NUMBER :=
832: FND_API.G_VALID_LEVEL_FULL,
833: x_return_status OUT NOCOPY VARCHAR2,
834: x_msg_count OUT NOCOPY NUMBER,
835: x_msg_data OUT NOCOPY VARCHAR2,
836: p_quota_name IN cn_quotas.name%TYPE,
857: SAVEPOINT Delete_Rt_Quota_Asgns ;
858: --
859: -- Standard call to check for call compatibility.
860: --
861: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
862: p_api_version ,
863: l_api_name ,
864: G_PKG_NAME )
865: THEN
862: p_api_version ,
863: l_api_name ,
864: G_PKG_NAME )
865: THEN
866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
867: END IF;
868:
869: -- Initialize message list if p_init_msg_list is set to TRUE.
870:
867: END IF;
868:
869: -- Initialize message list if p_init_msg_list is set to TRUE.
870:
871: IF FND_API.to_Boolean( p_init_msg_list ) THEN
872: FND_MSG_PUB.initialize;
873: END IF;
874:
875: -- Initialize API return status to success
873: END IF;
874:
875: -- Initialize API return status to success
876:
877: x_return_status := FND_API.G_RET_STS_SUCCESS;
878: x_loading_status := 'CN_DELETED';
879:
880: -- API body
881: -- Validate the Rate Quota assigns
890: IF ( (cn_api.chk_miss_char_para
891: ( p_char_para => p_quota_name,
892: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
893: p_loading_status => x_loading_status,
894: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
895: RAISE FND_API.G_EXC_ERROR ;
896: ELSIF ( (cn_api.chk_null_char_para
897: (p_char_para => p_quota_name,
898: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
891: ( p_char_para => p_quota_name,
892: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
893: p_loading_status => x_loading_status,
894: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
895: RAISE FND_API.G_EXC_ERROR ;
896: ELSIF ( (cn_api.chk_null_char_para
897: (p_char_para => p_quota_name,
898: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
899: p_loading_status => x_loading_status,
896: ELSIF ( (cn_api.chk_null_char_para
897: (p_char_para => p_quota_name,
898: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
899: p_loading_status => x_loading_status,
900: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
901: RAISE FND_API.G_EXC_ERROR ;
902: END IF;
903:
904: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
897: (p_char_para => p_quota_name,
898: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
899: p_loading_status => x_loading_status,
900: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
901: RAISE FND_API.G_EXC_ERROR ;
902: END IF;
903:
904: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
905:
916: FND_MESSAGE.SET_TOKEN('PE_NAME',p_quota_name);
917: FND_MSG_PUB.Add;
918: END IF;
919: x_loading_status := 'CN_PLN_NOT_EXIST' ;
920: RAISE FND_API.G_EXC_ERROR ;
921: END IF;
922: END IF;
923:
924:
949: FND_MESSAGE.SET_TOKEN('START_DATE',p_rt_quota_asgns_rec_tbl(i).start_date );
950: FND_MSG_PUB.Add;
951: END IF;
952: x_loading_status := 'RT_QUOTA_NOT_EXISTS';
953: RAISE FND_API.G_EXC_ERROR ;
954: END IF;
955:
956: -- Check wheather delete is Allowed, this only first and last record can be deleted
957:
969: x_loading_status => l_loading_status
970: );
971: x_loading_status := l_loading_status;
972:
973: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
974: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
975: THEN
976: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_DELETE_NOT_ALLOWED' );
977: FND_MSG_PUB.Add;
976: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_DELETE_NOT_ALLOWED' );
977: FND_MSG_PUB.Add;
978: END IF;
979: x_loading_status := 'CN_RATE_DELETE_NOT_ALLOWED';
980: RAISE FND_API.G_EXC_ERROR ;
981: END IF;
982:
983: -- If the the status is success and the lasding status is CN_DELETED then
984: -- delete the record.
981: END IF;
982:
983: -- If the the status is success and the lasding status is CN_DELETED then
984: -- delete the record.
985: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
986: RAISE FND_API.G_EXC_ERROR ;
987: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
988: AND ( x_loading_status = 'CN_DELETED' )
989: THEN
982:
983: -- If the the status is success and the lasding status is CN_DELETED then
984: -- delete the record.
985: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
986: RAISE FND_API.G_EXC_ERROR ;
987: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
988: AND ( x_loading_status = 'CN_DELETED' )
989: THEN
990: -- Delete RT quota Assigns
983: -- If the the status is success and the lasding status is CN_DELETED then
984: -- delete the record.
985: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
986: RAISE FND_API.G_EXC_ERROR ;
987: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
988: AND ( x_loading_status = 'CN_DELETED' )
989: THEN
990: -- Delete RT quota Assigns
991: CN_RT_QUOTA_ASGNS_PKG.begin_record
1021: ,x_last_update_login => NULL
1022: ,x_Program_type => NULL,
1023: x_object_version_number => l_object_version_number) ;
1024: ELSE
1025: RAISE FND_API.G_EXC_ERROR ;
1026: END IF ;
1027: END LOOP;
1028: END IF;
1029:
1029:
1030: -- End of Delete API body.
1031: -- Standard check of p_commit.
1032:
1033: IF FND_API.To_Boolean( p_commit ) THEN
1034: COMMIT WORK;
1035: END IF;
1036:
1037:
1040: FND_MSG_PUB.Count_And_Get
1041: (
1042: p_count => x_msg_count ,
1043: p_data => x_msg_data ,
1044: p_encoded => FND_API.G_FALSE
1045: );
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1044: p_encoded => FND_API.G_FALSE
1045: );
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: ROLLBACK TO delete_rt_quota_asgns;
1050: x_return_status := FND_API.G_RET_STS_ERROR ;
1051: FND_MSG_PUB.Count_And_Get
1052: (
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_ERROR THEN
1049: ROLLBACK TO delete_rt_quota_asgns;
1050: x_return_status := FND_API.G_RET_STS_ERROR ;
1051: FND_MSG_PUB.Count_And_Get
1052: (
1053: p_count => x_msg_count ,
1054: p_data => x_msg_data ,
1051: FND_MSG_PUB.Count_And_Get
1052: (
1053: p_count => x_msg_count ,
1054: p_data => x_msg_data ,
1055: p_encoded => FND_API.G_FALSE
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: ROLLBACK TO delete_rt_quota_asgns;
1059: x_loading_status := 'UNEXPECTED_ERR';
1053: p_count => x_msg_count ,
1054: p_data => x_msg_data ,
1055: p_encoded => FND_API.G_FALSE
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: ROLLBACK TO delete_rt_quota_asgns;
1059: x_loading_status := 'UNEXPECTED_ERR';
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1061: FND_MSG_PUB.Count_And_Get
1056: );
1057: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1058: ROLLBACK TO delete_rt_quota_asgns;
1059: x_loading_status := 'UNEXPECTED_ERR';
1060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1061: FND_MSG_PUB.Count_And_Get
1062: (
1063: p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1061: FND_MSG_PUB.Count_And_Get
1062: (
1063: p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1065: p_encoded => FND_API.G_FALSE
1066: );
1067: WHEN OTHERS THEN
1068: ROLLBACK TO delete_rt_quota_asgns;
1069: x_loading_status := 'UNEXPECTED_ERR';
1066: );
1067: WHEN OTHERS THEN
1068: ROLLBACK TO delete_rt_quota_asgns;
1069: x_loading_status := 'UNEXPECTED_ERR';
1070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1071: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1072: THEN
1073: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1074: END IF;
1075: FND_MSG_PUB.Count_And_Get
1076: (
1077: p_count => x_msg_count ,
1078: p_data => x_msg_data ,
1079: p_encoded => FND_API.G_FALSE
1080: );
1081: END Delete_rt_quota_Asgns;
1082:
1083: END CN_RT_QUOTA_ASGNS_PVT ;