[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.
436:
437:
438:
439: ELSIF x_loading_status = 'RT_QUOTA_EXISTS' THEN
440: RAISE FND_API.G_EXC_ERROR ;
441: END IF ;
442: END LOOP;
443:
444: -- We need to check one level After than
451: --LOOP
452: FOR I IN l_rate_date_seq_rec_tbl.FIRST..l_rate_date_seq_rec_tbl.LAST LOOP
453: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
454: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
455: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
456: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
457: THEN
458:
459:
452: FOR I IN l_rate_date_seq_rec_tbl.FIRST..l_rate_date_seq_rec_tbl.LAST LOOP
453: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
454: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
455: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
456: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
457: THEN
458:
459:
460: -- Check the sequence and overlap of the start date and the end date
474:
475: x_loading_status := l_loading_status;
476: -- Raise an error if the return status is not success
477:
478: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
479: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
480: THEN
481: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
482: FND_MSG_PUB.Add;
481: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
482: FND_MSG_PUB.Add;
483: END IF;
484: x_loading_status := 'CN_INVALID_DATE_SEQUENCE';
485: RAISE FND_API.G_EXC_ERROR ;
486: END IF;
487: END IF;
488:
489: END LOOP;
490: END IF;
491: -- End of API body.
492: -- Standard check of p_commit.
493:
494: IF FND_API.To_Boolean( p_commit ) THEN
495: COMMIT WORK;
496: END IF;
497:
498: -- Standard call to get message count and if count is 1, get message info.
500: FND_MSG_PUB.Count_And_Get
501: (
502: p_count => x_msg_count ,
503: p_data => x_msg_data ,
504: p_encoded => FND_API.G_FALSE
505: );
506: EXCEPTION
507: WHEN FND_API.G_EXC_ERROR THEN
508: ROLLBACK TO create_rt_quota_asgns;
503: p_data => x_msg_data ,
504: p_encoded => FND_API.G_FALSE
505: );
506: EXCEPTION
507: WHEN FND_API.G_EXC_ERROR THEN
508: ROLLBACK TO create_rt_quota_asgns;
509: x_return_status := FND_API.G_RET_STS_ERROR ;
510: FND_MSG_PUB.Count_And_Get
511: (
505: );
506: EXCEPTION
507: WHEN FND_API.G_EXC_ERROR THEN
508: ROLLBACK TO create_rt_quota_asgns;
509: x_return_status := FND_API.G_RET_STS_ERROR ;
510: FND_MSG_PUB.Count_And_Get
511: (
512: p_count => x_msg_count ,
513: p_data => x_msg_data ,
510: FND_MSG_PUB.Count_And_Get
511: (
512: p_count => x_msg_count ,
513: p_data => x_msg_data ,
514: p_encoded => FND_API.G_FALSE
515: );
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO create_rt_quota_asgns;
518: x_loading_status := 'UNEXPECTED_ERR';
512: p_count => x_msg_count ,
513: p_data => x_msg_data ,
514: p_encoded => FND_API.G_FALSE
515: );
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO create_rt_quota_asgns;
518: x_loading_status := 'UNEXPECTED_ERR';
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520: FND_MSG_PUB.Count_And_Get
515: );
516: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
517: ROLLBACK TO create_rt_quota_asgns;
518: x_loading_status := 'UNEXPECTED_ERR';
519: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
520: FND_MSG_PUB.Count_And_Get
521: (
522: p_count => x_msg_count ,
523: p_data => x_msg_data ,
520: FND_MSG_PUB.Count_And_Get
521: (
522: p_count => x_msg_count ,
523: p_data => x_msg_data ,
524: p_encoded => FND_API.G_FALSE
525: );
526: WHEN OTHERS THEN
527: ROLLBACK TO create_rt_quota_asgns;
528: x_loading_status := 'UNEXPECTED_ERR';
525: );
526: WHEN OTHERS THEN
527: ROLLBACK TO create_rt_quota_asgns;
528: x_loading_status := 'UNEXPECTED_ERR';
529: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
530: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
531: THEN
532: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
533: END IF;
534: FND_MSG_PUB.Count_And_Get
535: (
536: p_count => x_msg_count ,
537: p_data => x_msg_data ,
538: p_encoded => FND_API.G_FALSE
539: );
540:
541: END Create_rt_quota_Asgns;
542: --|-------------------------------------------------------------------------+
545: --|-------------------------------------------------------------------------+
546: PROCEDURE Update_rt_quota_asgns
547: (
548: p_api_version IN NUMBER,
549: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
550: p_commit IN VARCHAR2 := FND_API.G_FALSE,
551: p_validation_level IN NUMBER :=
552: FND_API.G_VALID_LEVEL_FULL,
553: x_return_status OUT NOCOPY VARCHAR2,
546: PROCEDURE Update_rt_quota_asgns
547: (
548: p_api_version IN NUMBER,
549: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
550: p_commit IN VARCHAR2 := FND_API.G_FALSE,
551: p_validation_level IN NUMBER :=
552: FND_API.G_VALID_LEVEL_FULL,
553: x_return_status OUT NOCOPY VARCHAR2,
554: x_msg_count OUT NOCOPY NUMBER,
548: p_api_version IN NUMBER,
549: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
550: p_commit IN VARCHAR2 := FND_API.G_FALSE,
551: p_validation_level IN NUMBER :=
552: FND_API.G_VALID_LEVEL_FULL,
553: x_return_status OUT NOCOPY VARCHAR2,
554: x_msg_count OUT NOCOPY NUMBER,
555: x_msg_data OUT NOCOPY VARCHAR2,
556: p_quota_name IN cn_quotas.name%TYPE,
578: SAVEPOINT Update_Plan_element ;
579:
580: -- Standard call to check for call compatibility.
581:
582: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
583: p_api_version ,
584: l_api_name ,
585: G_PKG_NAME )
586: THEN
583: p_api_version ,
584: l_api_name ,
585: G_PKG_NAME )
586: THEN
587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
588: END IF;
589:
590:
591: -- Initialize message list if p_init_msg_list is set to TRUE.
589:
590:
591: -- Initialize message list if p_init_msg_list is set to TRUE.
592:
593: IF FND_API.to_Boolean( p_init_msg_list ) THEN
594: FND_MSG_PUB.initialize;
595: END IF;
596:
597:
596:
597:
598: -- Initialize API return status to success
599:
600: x_return_status := FND_API.G_RET_STS_SUCCESS;
601: x_loading_status := 'CN_UPDATED';
602:
603:
604: -- API body
610: IF ( (cn_api.chk_miss_char_para
611: ( p_char_para => p_quota_name,
612: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
613: p_loading_status => x_loading_status,
614: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
615: RAISE FND_API.G_EXC_ERROR ;
616: ELSIF ( (cn_api.chk_null_char_para
617: (p_char_para => p_quota_name,
618: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
611: ( p_char_para => p_quota_name,
612: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
613: p_loading_status => x_loading_status,
614: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
615: RAISE FND_API.G_EXC_ERROR ;
616: ELSIF ( (cn_api.chk_null_char_para
617: (p_char_para => p_quota_name,
618: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
619: p_loading_status => x_loading_status,
616: ELSIF ( (cn_api.chk_null_char_para
617: (p_char_para => p_quota_name,
618: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
619: p_loading_status => x_loading_status,
620: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
621: RAISE FND_API.G_EXC_ERROR ;
622: END IF;
623:
624: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
617: (p_char_para => p_quota_name,
618: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
619: p_loading_status => x_loading_status,
620: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
621: RAISE FND_API.G_EXC_ERROR ;
622: END IF;
623:
624: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
625:
636: FND_MESSAGE.SET_TOKEN('PE_NAME',p_quota_name);
637: FND_MSG_PUB.Add;
638: END IF;
639: x_loading_status := 'CN_PLN_NOT_EXIST' ;
640: RAISE FND_API.G_EXC_ERROR ;
641: END IF;
642: END IF;
643:
644:
665: x_loading_status := l_loading_status;
666:
667: -- Check the Return Status and the Loading Status
668:
669: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
670: RAISE FND_API.G_EXC_ERROR ;
671: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
672: AND ( x_loading_status = 'CN_UPDATED' )
673: THEN
666:
667: -- Check the Return Status and the Loading Status
668:
669: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
670: RAISE FND_API.G_EXC_ERROR ;
671: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
672: AND ( x_loading_status = 'CN_UPDATED' )
673: THEN
674: -- Update Rt Quota Assigns
667: -- Check the Return Status and the Loading Status
668:
669: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
670: RAISE FND_API.G_EXC_ERROR ;
671: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
672: AND ( x_loading_status = 'CN_UPDATED' )
673: THEN
674: -- Update Rt Quota Assigns
675: CN_RT_QUOTA_ASGNS_PKG.begin_record
717: l_rate_date_seq_rec_tbl(i).rt_quota_asgn_id := l_rt_quota_asgn_id ;
718: l_rate_date_seq_rec_tbl(i).calc_formula_id := l_calc_formula_id ;
719:
720: ELSIF x_loading_status = 'RT_QUOTA_EXISTS' THEN
721: RAISE FND_API.G_EXC_ERROR ;
722: END IF ;
723: END LOOP;
724:
725: -- We need to check one level After than
732: LOOP
733:
734: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
735: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
736: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
737: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
738: THEN
739:
740:
733:
734: IF (( Trunc(l_rate_date_seq_rec_tbl(i).start_date_old)
735: <> Trunc(l_rate_date_seq_rec_tbl(i).start_date) OR
736: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date_old),fnd_api.g_miss_date) <>
737: Nvl(Trunc(l_rate_date_seq_rec_tbl(i).end_date),fnd_api.g_miss_date)))
738: THEN
739:
740:
741: -- Check the sequence and overlap of the start date and the end date
756:
757:
758: -- Raise an error if the return status is not success
759:
760: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
761: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
762: THEN
763: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
764: FND_MSG_PUB.Add;
763: FND_MESSAGE.SET_NAME ('CN' , 'CN_INVALID_DATE_SEQUENCE' );
764: FND_MSG_PUB.Add;
765: END IF;
766: x_loading_status := 'CN_INVALID_DATE_SEQUENCE';
767: RAISE FND_API.G_EXC_ERROR ;
768: END IF;
769: END IF;
770:
771: END LOOP;
772: END IF;
773: -- End of Update API body.
774: -- Standard check of p_commit.
775:
776: IF FND_API.To_Boolean( p_commit ) THEN
777: COMMIT WORK;
778: END IF;
779:
780: -- Standard call to get message count and if count is 1, get message info.
782: FND_MSG_PUB.Count_And_Get
783: (
784: p_count => x_msg_count ,
785: p_data => x_msg_data ,
786: p_encoded => FND_API.G_FALSE
787: );
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
786: p_encoded => FND_API.G_FALSE
787: );
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
791: ROLLBACK TO update_Plan_element;
792: x_return_status := FND_API.G_RET_STS_ERROR ;
793: FND_MSG_PUB.Count_And_Get
794: (
788:
789: EXCEPTION
790: WHEN FND_API.G_EXC_ERROR THEN
791: ROLLBACK TO update_Plan_element;
792: x_return_status := FND_API.G_RET_STS_ERROR ;
793: FND_MSG_PUB.Count_And_Get
794: (
795: p_count => x_msg_count ,
796: p_data => x_msg_data ,
793: FND_MSG_PUB.Count_And_Get
794: (
795: p_count => x_msg_count ,
796: p_data => x_msg_data ,
797: p_encoded => FND_API.G_FALSE
798: );
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO update_Plan_Element;
801: x_loading_status := 'UNEXPECTED_ERR';
795: p_count => x_msg_count ,
796: p_data => x_msg_data ,
797: p_encoded => FND_API.G_FALSE
798: );
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO update_Plan_Element;
801: x_loading_status := 'UNEXPECTED_ERR';
802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
803: FND_MSG_PUB.Count_And_Get
798: );
799: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
800: ROLLBACK TO update_Plan_Element;
801: x_loading_status := 'UNEXPECTED_ERR';
802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
803: FND_MSG_PUB.Count_And_Get
804: (
805: p_count => x_msg_count ,
806: p_data => x_msg_data ,
803: FND_MSG_PUB.Count_And_Get
804: (
805: p_count => x_msg_count ,
806: p_data => x_msg_data ,
807: p_encoded => FND_API.G_FALSE
808: );
809: WHEN OTHERS THEN
810: ROLLBACK TO update_plan_element;
811: x_loading_status := 'UNEXPECTED_ERR';
808: );
809: WHEN OTHERS THEN
810: ROLLBACK TO update_plan_element;
811: x_loading_status := 'UNEXPECTED_ERR';
812: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
813: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
814: THEN
815: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
816: END IF;
817: FND_MSG_PUB.Count_And_Get
818: (
819: p_count => x_msg_count ,
820: p_data => x_msg_data ,
821: p_encoded => FND_API.G_FALSE
822: );
823: END Update_rt_quota_Asgns;
824: --|-------------------------------------------------------------------------+
825: --| Procedure Name : Delete rt Quota Asgns
827: --|-------------------------------------------------------------------------+
828: PROCEDURE Delete_rt_quota_asgns
829: (
830: p_api_version IN NUMBER,
831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
833: p_validation_level IN NUMBER :=
834: FND_API.G_VALID_LEVEL_FULL,
835: x_return_status OUT NOCOPY VARCHAR2,
828: PROCEDURE Delete_rt_quota_asgns
829: (
830: p_api_version IN NUMBER,
831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
833: p_validation_level IN NUMBER :=
834: FND_API.G_VALID_LEVEL_FULL,
835: x_return_status OUT NOCOPY VARCHAR2,
836: x_msg_count OUT NOCOPY NUMBER,
830: p_api_version IN NUMBER,
831: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
832: p_commit IN VARCHAR2 := FND_API.G_FALSE,
833: p_validation_level IN NUMBER :=
834: FND_API.G_VALID_LEVEL_FULL,
835: x_return_status OUT NOCOPY VARCHAR2,
836: x_msg_count OUT NOCOPY NUMBER,
837: x_msg_data OUT NOCOPY VARCHAR2,
838: p_quota_name IN cn_quotas.name%TYPE,
859: SAVEPOINT Delete_Rt_Quota_Asgns ;
860: --
861: -- Standard call to check for call compatibility.
862: --
863: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
864: p_api_version ,
865: l_api_name ,
866: G_PKG_NAME )
867: THEN
864: p_api_version ,
865: l_api_name ,
866: G_PKG_NAME )
867: THEN
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END IF;
870:
871: -- Initialize message list if p_init_msg_list is set to TRUE.
872:
869: END IF;
870:
871: -- Initialize message list if p_init_msg_list is set to TRUE.
872:
873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
874: FND_MSG_PUB.initialize;
875: END IF;
876:
877: -- Initialize API return status to success
875: END IF;
876:
877: -- Initialize API return status to success
878:
879: x_return_status := FND_API.G_RET_STS_SUCCESS;
880: x_loading_status := 'CN_DELETED';
881:
882: -- API body
883: -- Validate the Rate Quota assigns
892: IF ( (cn_api.chk_miss_char_para
893: ( p_char_para => p_quota_name,
894: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
895: p_loading_status => x_loading_status,
896: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
897: RAISE FND_API.G_EXC_ERROR ;
898: ELSIF ( (cn_api.chk_null_char_para
899: (p_char_para => p_quota_name,
900: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
893: ( p_char_para => p_quota_name,
894: p_para_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
895: p_loading_status => x_loading_status,
896: x_loading_status => l_loading_status)) = FND_API.G_TRUE) THEN
897: RAISE FND_API.G_EXC_ERROR ;
898: ELSIF ( (cn_api.chk_null_char_para
899: (p_char_para => p_quota_name,
900: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
901: p_loading_status => x_loading_status,
898: ELSIF ( (cn_api.chk_null_char_para
899: (p_char_para => p_quota_name,
900: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
901: p_loading_status => x_loading_status,
902: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
903: RAISE FND_API.G_EXC_ERROR ;
904: END IF;
905:
906: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
899: (p_char_para => p_quota_name,
900: p_obj_name => CN_CHK_PLAN_ELEMENT_PKG.G_PE_NAME,
901: p_loading_status => x_loading_status,
902: x_loading_status => l_loading_status)) = FND_API.G_TRUE ) THEN
903: RAISE FND_API.G_EXC_ERROR ;
904: END IF;
905:
906: l_quota_id := cn_chk_plan_element_pkg.get_quota_id(p_quota_name,p_org_id);
907:
918: FND_MESSAGE.SET_TOKEN('PE_NAME',p_quota_name);
919: FND_MSG_PUB.Add;
920: END IF;
921: x_loading_status := 'CN_PLN_NOT_EXIST' ;
922: RAISE FND_API.G_EXC_ERROR ;
923: END IF;
924: END IF;
925:
926:
951: FND_MESSAGE.SET_TOKEN('START_DATE',p_rt_quota_asgns_rec_tbl(i).start_date );
952: FND_MSG_PUB.Add;
953: END IF;
954: x_loading_status := 'RT_QUOTA_NOT_EXISTS';
955: RAISE FND_API.G_EXC_ERROR ;
956: END IF;
957:
958: -- Check wheather delete is Allowed, this only first and last record can be deleted
959:
971: x_loading_status => l_loading_status
972: );
973: x_loading_status := l_loading_status;
974:
975: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
976: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
977: THEN
978: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_DELETE_NOT_ALLOWED' );
979: FND_MSG_PUB.Add;
978: FND_MESSAGE.SET_NAME ('CN' , 'CN_RATE_DELETE_NOT_ALLOWED' );
979: FND_MSG_PUB.Add;
980: END IF;
981: x_loading_status := 'CN_RATE_DELETE_NOT_ALLOWED';
982: RAISE FND_API.G_EXC_ERROR ;
983: END IF;
984:
985: -- If the the status is success and the lasding status is CN_DELETED then
986: -- delete the record.
983: END IF;
984:
985: -- If the the status is success and the lasding status is CN_DELETED then
986: -- delete the record.
987: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
988: RAISE FND_API.G_EXC_ERROR ;
989: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
990: AND ( x_loading_status = 'CN_DELETED' )
991: THEN
984:
985: -- If the the status is success and the lasding status is CN_DELETED then
986: -- delete the record.
987: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
988: RAISE FND_API.G_EXC_ERROR ;
989: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
990: AND ( x_loading_status = 'CN_DELETED' )
991: THEN
992: -- Delete RT quota Assigns
985: -- If the the status is success and the lasding status is CN_DELETED then
986: -- delete the record.
987: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
988: RAISE FND_API.G_EXC_ERROR ;
989: ELSIF ( x_return_status = FND_API.G_RET_STS_SUCCESS )
990: AND ( x_loading_status = 'CN_DELETED' )
991: THEN
992: -- Delete RT quota Assigns
993: CN_RT_QUOTA_ASGNS_PKG.begin_record
1023: ,x_last_update_login => NULL
1024: ,x_Program_type => NULL,
1025: x_object_version_number => l_object_version_number) ;
1026: ELSE
1027: RAISE FND_API.G_EXC_ERROR ;
1028: END IF ;
1029: END LOOP;
1030: END IF;
1031:
1031:
1032: -- End of Delete API body.
1033: -- Standard check of p_commit.
1034:
1035: IF FND_API.To_Boolean( p_commit ) THEN
1036: COMMIT WORK;
1037: END IF;
1038:
1039:
1042: FND_MSG_PUB.Count_And_Get
1043: (
1044: p_count => x_msg_count ,
1045: p_data => x_msg_data ,
1046: p_encoded => FND_API.G_FALSE
1047: );
1048:
1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1046: p_encoded => FND_API.G_FALSE
1047: );
1048:
1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1051: ROLLBACK TO delete_rt_quota_asgns;
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get
1054: (
1048:
1049: EXCEPTION
1050: WHEN FND_API.G_EXC_ERROR THEN
1051: ROLLBACK TO delete_rt_quota_asgns;
1052: x_return_status := FND_API.G_RET_STS_ERROR ;
1053: FND_MSG_PUB.Count_And_Get
1054: (
1055: p_count => x_msg_count ,
1056: p_data => x_msg_data ,
1053: FND_MSG_PUB.Count_And_Get
1054: (
1055: p_count => x_msg_count ,
1056: p_data => x_msg_data ,
1057: p_encoded => FND_API.G_FALSE
1058: );
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO delete_rt_quota_asgns;
1061: x_loading_status := 'UNEXPECTED_ERR';
1055: p_count => x_msg_count ,
1056: p_data => x_msg_data ,
1057: p_encoded => FND_API.G_FALSE
1058: );
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO delete_rt_quota_asgns;
1061: x_loading_status := 'UNEXPECTED_ERR';
1062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1063: FND_MSG_PUB.Count_And_Get
1058: );
1059: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1060: ROLLBACK TO delete_rt_quota_asgns;
1061: x_loading_status := 'UNEXPECTED_ERR';
1062: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1063: FND_MSG_PUB.Count_And_Get
1064: (
1065: p_count => x_msg_count ,
1066: p_data => x_msg_data ,
1063: FND_MSG_PUB.Count_And_Get
1064: (
1065: p_count => x_msg_count ,
1066: p_data => x_msg_data ,
1067: p_encoded => FND_API.G_FALSE
1068: );
1069: WHEN OTHERS THEN
1070: ROLLBACK TO delete_rt_quota_asgns;
1071: x_loading_status := 'UNEXPECTED_ERR';
1068: );
1069: WHEN OTHERS THEN
1070: ROLLBACK TO delete_rt_quota_asgns;
1071: x_loading_status := 'UNEXPECTED_ERR';
1072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1073: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1074: THEN
1075: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1076: END IF;
1077: FND_MSG_PUB.Count_And_Get
1078: (
1079: p_count => x_msg_count ,
1080: p_data => x_msg_data ,
1081: p_encoded => FND_API.G_FALSE
1082: );
1083: END Delete_rt_quota_Asgns;
1084:
1085: END CN_RT_QUOTA_ASGNS_PVT ;