[Home] [Help]
139:
140: BEGIN
141:
142: -- Initialize API return status to success
143: x_return_status := FND_API.G_RET_STS_SUCCESS;
144: x_loading_status := p_loading_status;
145:
146: -- Start of API body
147:
151: IF (cn_api.chk_miss_null_char_para
152: (p_char_para => p_role_pmt_plan_rec.role_name,
153: p_obj_name => G_ROLE_NAME,
154: p_loading_status => x_loading_status,
155: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
156: RAISE FND_API.G_EXC_ERROR ;
157: END IF;
158:
159: -- pmt_plan_name can not be missing or null
152: (p_char_para => p_role_pmt_plan_rec.role_name,
153: p_obj_name => G_ROLE_NAME,
154: p_loading_status => x_loading_status,
155: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
156: RAISE FND_API.G_EXC_ERROR ;
157: END IF;
158:
159: -- pmt_plan_name can not be missing or null
160: IF (cn_api.chk_miss_null_char_para
160: IF (cn_api.chk_miss_null_char_para
161: (p_char_para => p_role_pmt_plan_rec.pmt_plan_name,
162: p_obj_name => G_PP_NAME,
163: p_loading_status => x_loading_status,
164: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
165: RAISE FND_API.G_EXC_ERROR ;
166: END IF;
167:
168: -- start_date can not be null
161: (p_char_para => p_role_pmt_plan_rec.pmt_plan_name,
162: p_obj_name => G_PP_NAME,
163: p_loading_status => x_loading_status,
164: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
165: RAISE FND_API.G_EXC_ERROR ;
166: END IF;
167:
168: -- start_date can not be null
169: -- start_date can not be missing
170: -- start_date < end_date if end_date is null
171: IF ( (cn_api.invalid_date_range
172: (p_start_date => p_role_pmt_plan_rec.start_date,
173: p_end_date => p_role_pmt_plan_rec.end_date,
174: p_end_date_nullable => FND_API.G_TRUE,
175: p_loading_status => x_loading_status,
176: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
177: RAISE FND_API.G_EXC_ERROR ;
178: END IF;
172: (p_start_date => p_role_pmt_plan_rec.start_date,
173: p_end_date => p_role_pmt_plan_rec.end_date,
174: p_end_date_nullable => FND_API.G_TRUE,
175: p_loading_status => x_loading_status,
176: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
177: RAISE FND_API.G_EXC_ERROR ;
178: END IF;
179:
180: -- role_name must exist in cn_roles
173: p_end_date => p_role_pmt_plan_rec.end_date,
174: p_end_date_nullable => FND_API.G_TRUE,
175: p_loading_status => x_loading_status,
176: x_loading_status => x_loading_status)) = FND_API.G_TRUE ) THEN
177: RAISE FND_API.G_EXC_ERROR ;
178: END IF;
179:
180: -- role_name must exist in cn_roles
181: IF NOT valid_role_name(p_role_pmt_plan_rec.role_name) THEN
184: FND_MESSAGE.SET_TOKEN('ROLE_NAME',p_role_pmt_plan_rec.role_name);
185: fnd_msg_pub.ADD;
186: END IF;
187: x_loading_status := 'CN_RL_ASGN_ROLE_NOT_EXIST';
188: RAISE fnd_api.g_exc_error;
189: ELSE
190: x_role_id := cn_api.get_role_id(p_role_pmt_plan_rec.role_name);
191: END IF;
192:
197: fnd_message.set_token('PMT_PLAN',p_role_pmt_plan_rec.pmt_plan_name);
198: fnd_msg_pub.ADD;
199: END IF;
200: x_loading_status := 'CN_RL_ASGN_PP_NOT_EXIST';
201: RAISE fnd_api.g_exc_error;
202: ELSE
203: --x_pmt_plan_id := cn_api.get_pp_id(p_role_pmt_plan_rec.pmt_plan_name,p_role_pmt_plan_rec.org_id);
204: x_pmt_plan_id := p_role_pmt_plan_rec.pmt_plan_id;
205: END IF;
216: fnd_msg_pub.ADD;
217: END IF;
218: x_loading_status := 'CN_RL_ASGN_PP_NOT_EXIST';
219: CLOSE l_pp_cur;
220: RAISE fnd_api.g_exc_error;
221: ELSE
222: --Commented out by Julia Huang for bug 3135619.
223: --IF NOT cn_api.date_range_within(p_role_pmt_plan_rec.start_date,
224: IF NOT date_range_within(p_role_pmt_plan_rec.start_date,
235: fnd_msg_pub.ADD;
236: END IF;
237: x_loading_status := 'CN_RL_PP_DATE_RANGE_NOT_WITHIN';
238: CLOSE l_pp_cur;
239: RAISE fnd_api.g_exc_error;
240: END IF;
241:
242: --bug 3560026 by Julia Huang on 4/7/04 -begin
243: IF ( p_role_pmt_plan_rec.start_date < l_pp_rec.start_date )
254: END IF;
255:
256: x_loading_status := 'CN_RL_PP_SD_LESS_THAN_PP_SD';
257: CLOSE l_pp_cur;
258: RAISE fnd_api.g_exc_error;
259: END IF;
260: --bug 3560026 by Julia Huang on 4/7/04 -end
261:
262: CLOSE l_pp_cur;
295: fnd_message.set_token('END_DATE',l_rec.end_date);
296: fnd_msg_pub.ADD;
297: END IF;
298: x_loading_status := 'CN_RL_ROLE_PMT_PLAN_OVERLAP';
299: RAISE fnd_api.g_exc_error;
300: END IF;
301: END LOOP;
302:
303: -- End of API body.
306: FND_MSG_PUB.Count_And_Get
307: (
308: p_count => x_msg_count ,
309: p_data => x_msg_data ,
310: p_encoded => FND_API.G_FALSE
311: );
312:
313: EXCEPTION
314: WHEN FND_API.G_EXC_ERROR THEN
310: p_encoded => FND_API.G_FALSE
311: );
312:
313: EXCEPTION
314: WHEN FND_API.G_EXC_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: FND_MSG_PUB.Count_And_Get
317: (
318: p_count => x_msg_count ,
311: );
312:
313: EXCEPTION
314: WHEN FND_API.G_EXC_ERROR THEN
315: x_return_status := FND_API.G_RET_STS_ERROR ;
316: FND_MSG_PUB.Count_And_Get
317: (
318: p_count => x_msg_count ,
319: p_data => x_msg_data ,
316: FND_MSG_PUB.Count_And_Get
317: (
318: p_count => x_msg_count ,
319: p_data => x_msg_data ,
320: p_encoded => FND_API.G_FALSE
321: );
322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
324: x_loading_status := 'UNEXPECTED_ERR';
318: p_count => x_msg_count ,
319: p_data => x_msg_data ,
320: p_encoded => FND_API.G_FALSE
321: );
322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
324: x_loading_status := 'UNEXPECTED_ERR';
325: FND_MSG_PUB.Count_And_Get
326: (
319: p_data => x_msg_data ,
320: p_encoded => FND_API.G_FALSE
321: );
322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
324: x_loading_status := 'UNEXPECTED_ERR';
325: FND_MSG_PUB.Count_And_Get
326: (
327: p_count => x_msg_count ,
325: FND_MSG_PUB.Count_And_Get
326: (
327: p_count => x_msg_count ,
328: p_data => x_msg_data ,
329: p_encoded => FND_API.G_FALSE
330: );
331: WHEN OTHERS THEN
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: x_loading_status := 'UNEXPECTED_ERR';
328: p_data => x_msg_data ,
329: p_encoded => FND_API.G_FALSE
330: );
331: WHEN OTHERS THEN
332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
333: x_loading_status := 'UNEXPECTED_ERR';
334: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
335: THEN
336: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
338: FND_MSG_PUB.Count_And_Get
339: (
340: p_count => x_msg_count ,
341: p_data => x_msg_data ,
342: p_encoded => FND_API.G_FALSE
343: );
344: END check_valid_insert;
345:
346:
391:
392: BEGIN
393:
394: -- Initialize API return status to success
395: x_return_status := FND_API.G_RET_STS_SUCCESS;
396: x_loading_status := p_loading_status;
397:
398: -- Start of API body
399:
412: fnd_message.set_name ('CN', 'CN_RL_UPD_ROLE_PP_NOT_EXIST');
413: fnd_msg_pub.ADD;
414: END IF;
415: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
416: RAISE fnd_api.g_exc_error;
417: END IF;
418:
419: -- new role_name can not be null
420: -- note that new role_name can be missing
421: IF (cn_api.chk_null_char_para
422: (p_char_para => p_role_pmt_plan_rec_new.role_name,
423: p_obj_name => G_ROLE_NAME,
424: p_loading_status => x_loading_status,
425: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
426: RAISE FND_API.G_EXC_ERROR ;
427: END IF;
428:
429: -- new pmt_plan_name can not be null
422: (p_char_para => p_role_pmt_plan_rec_new.role_name,
423: p_obj_name => G_ROLE_NAME,
424: p_loading_status => x_loading_status,
425: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
426: RAISE FND_API.G_EXC_ERROR ;
427: END IF;
428:
429: -- new pmt_plan_name can not be null
430: -- note that new pmt_plan_name can be missing
431: IF (cn_api.chk_null_char_para
432: (p_char_para => p_role_pmt_plan_rec_new.pmt_plan_name,
433: p_obj_name => G_PP_NAME,
434: p_loading_status => x_loading_status,
435: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
436: RAISE FND_API.G_EXC_ERROR ;
437: END IF;
438:
439: -- new start_date can not be null
432: (p_char_para => p_role_pmt_plan_rec_new.pmt_plan_name,
433: p_obj_name => G_PP_NAME,
434: p_loading_status => x_loading_status,
435: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
436: RAISE FND_API.G_EXC_ERROR ;
437: END IF;
438:
439: -- new start_date can not be null
440: -- note that new start_date can be missing
441: IF (cn_api.chk_null_date_para
442: (p_date_para => p_role_pmt_plan_rec_new.start_date,
443: p_obj_name => G_START_DATE,
444: p_loading_status => x_loading_status,
445: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448:
449: -- if new start_date is missing then
442: (p_date_para => p_role_pmt_plan_rec_new.start_date,
443: p_obj_name => G_START_DATE,
444: p_loading_status => x_loading_status,
445: x_loading_status => x_loading_status) = FND_API.G_TRUE) THEN
446: RAISE FND_API.G_EXC_ERROR;
447: END IF;
448:
449: -- if new start_date is missing then
450: -- tmp_start_date := old start_date
471: fnd_msg_pub.ADD;
472: END IF;
473: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
474: CLOSE l_old_cur;
475: RAISE fnd_api.g_exc_error;
476: ELSE
477: IF (p_role_pmt_plan_rec_new.start_date = fnd_api.g_miss_date) THEN
478: tmp_start_date := l_old_rec.start_date;
479: ELSE
473: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
474: CLOSE l_old_cur;
475: RAISE fnd_api.g_exc_error;
476: ELSE
477: IF (p_role_pmt_plan_rec_new.start_date = fnd_api.g_miss_date) THEN
478: tmp_start_date := l_old_rec.start_date;
479: ELSE
480: tmp_start_date := p_role_pmt_plan_rec_new.start_date;
481: END IF;
478: tmp_start_date := l_old_rec.start_date;
479: ELSE
480: tmp_start_date := p_role_pmt_plan_rec_new.start_date;
481: END IF;
482: IF (p_role_pmt_plan_rec_new.end_date = fnd_api.g_miss_date) THEN
483: tmp_end_date := l_old_rec.end_date;
484: ELSE
485: tmp_end_date := p_role_pmt_plan_rec_new.end_date;
486: END IF;
492: fnd_msg_pub.ADD;
493: END IF;
494: x_loading_status := 'CN_RL_INVALID_DATE_RANGE';
495: CLOSE l_old_cur;
496: RAISE fnd_api.g_exc_error;
497: END IF;
498: CLOSE l_old_cur;
499: END IF;
500:
498: CLOSE l_old_cur;
499: END IF;
500:
501: -- if new role_name is not missing then new role_name must exist in cn_roles
502: IF (p_role_pmt_plan_rec_new.role_name <> fnd_api.g_miss_char) THEN
503: x_role_id := cn_api.get_role_id(p_role_pmt_plan_rec_new.role_name);
504: IF (x_role_id IS NULL) THEN
505: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
506: fnd_message.set_name('CN', 'CN_RL_ASGN_ROLE_NOT_EXIST');
507: fnd_message.set_token('ROLE_NAME',p_role_pmt_plan_rec_new.role_name);
508: fnd_msg_pub.ADD;
509: END IF;
510: x_loading_status := 'CN_RL_ASGN_ROLE_NOT_EXIST';
511: RAISE fnd_api.g_exc_error;
512: END IF;
513: ELSE
514: OPEN l_old_cur(x_role_pmt_plan_id_old);
515: FETCH l_old_cur INTO l_old_rec;
521: fnd_msg_pub.ADD;
522: END IF;
523: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
524: CLOSE l_old_cur;
525: RAISE fnd_api.g_exc_error;
526: ELSE
527: x_role_id := l_old_rec.role_id;
528: CLOSE l_old_cur;
529: END IF;
530: END IF;
531:
532: -- if new pmt_plan_name is not missing then
533: -- new pmt_plan_name must exist in cn_pmt_plans
534: IF (p_role_pmt_plan_rec_new.pmt_plan_name <> fnd_api.g_miss_char) THEN
535: x_pmt_plan_id := cn_api.get_pp_id(p_role_pmt_plan_rec_new.pmt_plan_name,p_role_pmt_plan_rec_new.org_id);
536: IF (x_pmt_plan_id IS NULL) THEN
537: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
538: fnd_message.set_name ('CN', 'CN_RL_ASGN_PP_NOT_EXIST');
539: fnd_message.set_token('PMT_PLAN',p_role_pmt_plan_rec_new.pmt_plan_name);
540: fnd_msg_pub.ADD;
541: END IF;
542: x_loading_status := 'CN_RL_ASGN_PP_NOT_EXIST';
543: RAISE fnd_api.g_exc_error;
544: END IF;
545: ELSE
546: OPEN l_old_cur(x_role_pmt_plan_id_old);
547: FETCH l_old_cur INTO l_old_rec;
553: fnd_msg_pub.ADD;
554: END IF;
555: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
556: CLOSE l_old_cur;
557: RAISE fnd_api.g_exc_error;
558: ELSE
559: x_pmt_plan_id := l_old_rec.pmt_plan_id;
560: CLOSE l_old_cur;
561: END IF;
567: IF (l_pp_cur%notfound) THEN
568: -- normally this won't happen as it has been valided previously
569: x_loading_status := 'CN_RL_ASGN_PP_NOT_EXIST';
570: CLOSE l_pp_cur;
571: RAISE fnd_api.g_exc_error;
572: ELSE
573: --Commented out by Julia Huang for bug 3135619.
574: --IF NOT cn_api.date_range_within(tmp_start_date,
575: IF NOT date_range_within(tmp_start_date,
586: fnd_msg_pub.ADD;
587: END IF;
588: x_loading_status := 'CN_RL_PP_DATE_RANGE_NOT_WITHIN';
589: CLOSE l_pp_cur;
590: RAISE fnd_api.g_exc_error;
591: END IF;
592:
593: --bug 3560026 by Julia Huang on 4/7/04 -begin
594: IF ( tmp_start_date < l_pp_rec.start_date )
605: END IF;
606:
607: x_loading_status := 'CN_RL_PP_SD_LESS_THAN_PP_SD';
608: CLOSE l_pp_cur;
609: RAISE fnd_api.g_exc_error;
610: END IF;
611: --bug 3560026 by Julia Huang on 4/7/04 -end
612:
613: CLOSE l_pp_cur;
629: fnd_message.set_token('END_DATE',l_rec.end_date);
630: fnd_msg_pub.ADD;
631: END IF;
632: x_loading_status := 'CN_RL_ROLE_PMT_PLAN_OVERLAP';
633: RAISE fnd_api.g_exc_error;
634: END IF;
635: END LOOP;
636:
637: -- Checking if it is date_update_only
641: -- normally, this should not happen as the existence has
642: -- been validated previously
643: x_loading_status := 'CN_RL_UPD_ROLE_PP_NOT_EXIST';
644: CLOSE l_old_cur;
645: RAISE fnd_api.g_exc_error;
646: ELSE
647: IF ((x_role_id <> l_old_rec.role_id) OR
648: (x_pmt_plan_id <> l_old_rec.pmt_plan_id)) THEN
649: x_date_update_only := FND_API.G_FALSE;
645: RAISE fnd_api.g_exc_error;
646: ELSE
647: IF ((x_role_id <> l_old_rec.role_id) OR
648: (x_pmt_plan_id <> l_old_rec.pmt_plan_id)) THEN
649: x_date_update_only := FND_API.G_FALSE;
650: ELSE
651: x_date_update_only := FND_API.G_TRUE;
652: END IF;
653: CLOSE l_old_cur;
647: IF ((x_role_id <> l_old_rec.role_id) OR
648: (x_pmt_plan_id <> l_old_rec.pmt_plan_id)) THEN
649: x_date_update_only := FND_API.G_FALSE;
650: ELSE
651: x_date_update_only := FND_API.G_TRUE;
652: END IF;
653: CLOSE l_old_cur;
654: END IF;
655:
659: FND_MSG_PUB.Count_And_Get
660: (
661: p_count => x_msg_count ,
662: p_data => x_msg_data ,
663: p_encoded => FND_API.G_FALSE
664: );
665:
666: EXCEPTION
667: WHEN FND_API.G_EXC_ERROR THEN
663: p_encoded => FND_API.G_FALSE
664: );
665:
666: EXCEPTION
667: WHEN FND_API.G_EXC_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_ERROR ;
669: FND_MSG_PUB.Count_And_Get
670: (
671: p_count => x_msg_count ,
664: );
665:
666: EXCEPTION
667: WHEN FND_API.G_EXC_ERROR THEN
668: x_return_status := FND_API.G_RET_STS_ERROR ;
669: FND_MSG_PUB.Count_And_Get
670: (
671: p_count => x_msg_count ,
672: p_data => x_msg_data ,
669: FND_MSG_PUB.Count_And_Get
670: (
671: p_count => x_msg_count ,
672: p_data => x_msg_data ,
673: p_encoded => FND_API.G_FALSE
674: );
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
677: x_loading_status := 'UNEXPECTED_ERR';
671: p_count => x_msg_count ,
672: p_data => x_msg_data ,
673: p_encoded => FND_API.G_FALSE
674: );
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
677: x_loading_status := 'UNEXPECTED_ERR';
678: FND_MSG_PUB.Count_And_Get
679: (
672: p_data => x_msg_data ,
673: p_encoded => FND_API.G_FALSE
674: );
675: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
677: x_loading_status := 'UNEXPECTED_ERR';
678: FND_MSG_PUB.Count_And_Get
679: (
680: p_count => x_msg_count ,
678: FND_MSG_PUB.Count_And_Get
679: (
680: p_count => x_msg_count ,
681: p_data => x_msg_data ,
682: p_encoded => FND_API.G_FALSE
683: );
684: WHEN OTHERS THEN
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
686: x_loading_status := 'UNEXPECTED_ERR';
681: p_data => x_msg_data ,
682: p_encoded => FND_API.G_FALSE
683: );
684: WHEN OTHERS THEN
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
686: x_loading_status := 'UNEXPECTED_ERR';
687: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
688: THEN
689: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
691: FND_MSG_PUB.Count_And_Get
692: (
693: p_count => x_msg_count ,
694: p_data => x_msg_data ,
695: p_encoded => FND_API.G_FALSE
696: );
697: END check_valid_update;
698:
699:
717:
718: BEGIN
719:
720: -- Initialize API return status to success
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722: x_loading_status := p_loading_status;
723:
724: -- Start of API body
725:
739: FND_MESSAGE.SET_NAME('CN' ,'CN_RL_DEL_ROLE_PP_NOT_EXIST');
740: FND_MSG_PUB.Add;
741: END IF;
742: x_loading_status := 'CN_RL_DEL_ROLE_PP_NOT_EXIST';
743: RAISE FND_API.G_EXC_ERROR ;
744: END IF;
745:
746: -- End of API body.
747:
750: FND_MSG_PUB.Count_And_Get
751: (
752: p_count => x_msg_count ,
753: p_data => x_msg_data ,
754: p_encoded => FND_API.G_FALSE
755: );
756:
757: EXCEPTION
758: WHEN FND_API.G_EXC_ERROR THEN
754: p_encoded => FND_API.G_FALSE
755: );
756:
757: EXCEPTION
758: WHEN FND_API.G_EXC_ERROR THEN
759: x_return_status := FND_API.G_RET_STS_ERROR ;
760: FND_MSG_PUB.Count_And_Get
761: (
762: p_count => x_msg_count ,
755: );
756:
757: EXCEPTION
758: WHEN FND_API.G_EXC_ERROR THEN
759: x_return_status := FND_API.G_RET_STS_ERROR ;
760: FND_MSG_PUB.Count_And_Get
761: (
762: p_count => x_msg_count ,
763: p_data => x_msg_data ,
760: FND_MSG_PUB.Count_And_Get
761: (
762: p_count => x_msg_count ,
763: p_data => x_msg_data ,
764: p_encoded => FND_API.G_FALSE
765: );
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: x_loading_status := 'UNEXPECTED_ERR';
762: p_count => x_msg_count ,
763: p_data => x_msg_data ,
764: p_encoded => FND_API.G_FALSE
765: );
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: x_loading_status := 'UNEXPECTED_ERR';
769: FND_MSG_PUB.Count_And_Get
770: (
763: p_data => x_msg_data ,
764: p_encoded => FND_API.G_FALSE
765: );
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
768: x_loading_status := 'UNEXPECTED_ERR';
769: FND_MSG_PUB.Count_And_Get
770: (
771: p_count => x_msg_count ,
769: FND_MSG_PUB.Count_And_Get
770: (
771: p_count => x_msg_count ,
772: p_data => x_msg_data ,
773: p_encoded => FND_API.G_FALSE
774: );
775: WHEN OTHERS THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: x_loading_status := 'UNEXPECTED_ERR';
772: p_data => x_msg_data ,
773: p_encoded => FND_API.G_FALSE
774: );
775: WHEN OTHERS THEN
776: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
777: x_loading_status := 'UNEXPECTED_ERR';
778: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
779: THEN
780: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
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: END check_valid_delete;
790:
840:
841: BEGIN
842:
843: -- Initialize API return status to success
844: x_return_status := FND_API.G_RET_STS_SUCCESS;
845: x_loading_status := p_loading_status;
846:
847: select org_id into l_org_id
848: from cn_role_pmt_plans
877: IF (p_suppress_flag = 'Y') THEN
878: l_msg_count := 0;
879: l_msg_data := '';
880: fnd_msg_pub.initialize;
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: ELSE
883: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
884: x_return_status := l_return_status;
885: x_loading_status := l_loading_status;
879: l_msg_data := '';
880: fnd_msg_pub.initialize;
881: x_return_status := FND_API.G_RET_STS_SUCCESS;
882: ELSE
883: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
884: x_return_status := l_return_status;
885: x_loading_status := l_loading_status;
886: EXIT;
887: END IF;
886: EXIT;
887: END IF;
888: END IF;
889:
890: --IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
891: -- x_return_status := l_return_status;
892: -- x_loading_status := l_loading_status;
893: -- EXIT;
894: --END IF;
937:
938: BEGIN
939:
940: -- Initialize API return status to success
941: x_return_status := FND_API.G_RET_STS_SUCCESS;
942: x_loading_status := p_loading_status;
943:
944: -- see here if it is necessary to update cn_srp_plan_assigns...
945: -- the create_module here is OSC.
961: p_srp_role_id => l_rec.srp_role_id,
962: p_role_pmt_plan_id => p_role_pmt_plan_id,
963: x_loading_status => l_loading_status);
964:
965: --IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
966: -- x_return_status := l_return_status;
967: -- x_loading_status := l_loading_status;
968: -- EXIT;
969: --END IF;
1000:
1001: BEGIN
1002:
1003: -- Initialize API return status to success
1004: x_return_status := FND_API.G_RET_STS_SUCCESS;
1005: x_loading_status := p_loading_status;
1006:
1007: select org_id into l_org_id
1008: from cn_role_pmt_plans
1013:
1014: CN_SRP_PMT_PLANS_PUB.delete_mass_asgn_srp_pmt_plan
1015: (
1016: p_api_version => 1.0,
1017: p_init_msg_list => fnd_api.g_true,
1018: p_commit => fnd_api.g_true,
1019: p_validation_level => fnd_api.g_valid_level_full,
1020: x_return_status => l_return_status,
1021: x_msg_count => l_msg_count,
1014: CN_SRP_PMT_PLANS_PUB.delete_mass_asgn_srp_pmt_plan
1015: (
1016: p_api_version => 1.0,
1017: p_init_msg_list => fnd_api.g_true,
1018: p_commit => fnd_api.g_true,
1019: p_validation_level => fnd_api.g_valid_level_full,
1020: x_return_status => l_return_status,
1021: x_msg_count => l_msg_count,
1022: x_msg_data => l_msg_data,
1015: (
1016: p_api_version => 1.0,
1017: p_init_msg_list => fnd_api.g_true,
1018: p_commit => fnd_api.g_true,
1019: p_validation_level => fnd_api.g_valid_level_full,
1020: x_return_status => l_return_status,
1021: x_msg_count => l_msg_count,
1022: x_msg_data => l_msg_data,
1023: p_srp_role_id => l_rec.srp_role_id,
1034:
1035: IF (p_suppress_flag = 'Y') THEN
1036: l_msg_count := 0;
1037: l_msg_data := '';
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039: ELSE
1040: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1041: x_return_status := l_return_status;
1042: x_loading_status := l_loading_status;
1036: l_msg_count := 0;
1037: l_msg_data := '';
1038: x_return_status := FND_API.G_RET_STS_SUCCESS;
1039: ELSE
1040: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1041: x_return_status := l_return_status;
1042: x_loading_status := l_loading_status;
1043: EXIT;
1044: END IF;
1043: EXIT;
1044: END IF;
1045: END IF;
1046:
1047: --IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1048: -- x_return_status := l_return_status;
1049: -- x_loading_status := l_loading_status;
1050: -- EXIT;
1051: --END IF;
1059: -- --------------------------------------------------------------------------*
1060: PROCEDURE Create_Role_Pmt_Plan
1061: (
1062: p_api_version IN NUMBER ,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1065: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1066: x_return_status OUT NOCOPY VARCHAR2 ,
1067: x_loading_status OUT NOCOPY VARCHAR2 ,
1060: PROCEDURE Create_Role_Pmt_Plan
1061: (
1062: p_api_version IN NUMBER ,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1065: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1066: x_return_status OUT NOCOPY VARCHAR2 ,
1067: x_loading_status OUT NOCOPY VARCHAR2 ,
1068: x_msg_count OUT NOCOPY NUMBER ,
1061: (
1062: p_api_version IN NUMBER ,
1063: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1064: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1065: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1066: x_return_status OUT NOCOPY VARCHAR2 ,
1067: x_loading_status OUT NOCOPY VARCHAR2 ,
1068: x_msg_count OUT NOCOPY NUMBER ,
1069: x_msg_data OUT NOCOPY VARCHAR2 ,
1087: -- Standard Start of API savepoint
1088: SAVEPOINT create_role_pmt_plan;
1089:
1090: -- Standard call to check for call compatibility.
1091: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1092: p_api_version ,
1093: l_api_name ,
1094: G_PKG_NAME )
1095: THEN
1092: p_api_version ,
1093: l_api_name ,
1094: G_PKG_NAME )
1095: THEN
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: END IF;
1098:
1099: -- Initialize message list if p_init_msg_list is set to TRUE.
1100: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: END IF;
1098:
1099: -- Initialize message list if p_init_msg_list is set to TRUE.
1100: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1101: FND_MSG_PUB.initialize;
1102: END IF;
1103:
1104: -- Initialize API return status to success
1101: FND_MSG_PUB.initialize;
1102: END IF;
1103:
1104: -- Initialize API return status to success
1105: x_return_status := FND_API.G_RET_STS_SUCCESS;
1106: x_loading_status := 'CN_INSERTED';
1107:
1108: -- Assign the parameter to a local variable to be passed to Pre, Post
1109: -- and Business APIs
1122: p_loading_status => x_loading_status, -- in
1123: x_loading_status => x_loading_status -- out
1124: );
1125:
1126: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1127: RAISE FND_API.G_EXC_ERROR ;
1128: ELSE
1129:
1130: SELECT cn_role_pmt_plans_s.NEXTVAL INTO l_role_pmt_plan_id
1123: x_loading_status => x_loading_status -- out
1124: );
1125:
1126: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1127: RAISE FND_API.G_EXC_ERROR ;
1128: ELSE
1129:
1130: SELECT cn_role_pmt_plans_s.NEXTVAL INTO l_role_pmt_plan_id
1131: FROM dual;
1168: x_return_status => x_return_status,
1169: p_loading_status => x_loading_status,
1170: x_loading_status => x_loading_status);
1171:
1172: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176: END IF;
1169: p_loading_status => x_loading_status,
1170: x_loading_status => x_loading_status);
1171:
1172: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1173: RAISE FND_API.G_EXC_ERROR;
1174: END IF;
1175:
1176: END IF;
1177:
1179: -- End of API body
1180:
1181: -- Standard check of p_commit.
1182:
1183: IF FND_API.To_Boolean( p_commit ) THEN
1184: COMMIT WORK;
1185: END IF;
1186:
1187:
1190: FND_MSG_PUB.Count_And_Get
1191: (
1192: p_count => x_msg_count ,
1193: p_data => x_msg_data ,
1194: p_encoded => FND_API.G_FALSE
1195: );
1196:
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1194: p_encoded => FND_API.G_FALSE
1195: );
1196:
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: ROLLBACK TO create_role_pmt_plan;
1200: x_return_status := FND_API.G_RET_STS_ERROR ;
1201: FND_MSG_PUB.Count_And_Get
1202: (
1196:
1197: EXCEPTION
1198: WHEN FND_API.G_EXC_ERROR THEN
1199: ROLLBACK TO create_role_pmt_plan;
1200: x_return_status := FND_API.G_RET_STS_ERROR ;
1201: FND_MSG_PUB.Count_And_Get
1202: (
1203: p_count => x_msg_count ,
1204: p_data => x_msg_data ,
1201: FND_MSG_PUB.Count_And_Get
1202: (
1203: p_count => x_msg_count ,
1204: p_data => x_msg_data ,
1205: p_encoded => FND_API.G_FALSE
1206: );
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: ROLLBACK TO create_role_pmt_plan;
1209: x_loading_status := 'UNEXPECTED_ERR';
1203: p_count => x_msg_count ,
1204: p_data => x_msg_data ,
1205: p_encoded => FND_API.G_FALSE
1206: );
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: ROLLBACK TO create_role_pmt_plan;
1209: x_loading_status := 'UNEXPECTED_ERR';
1210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1211: FND_MSG_PUB.Count_And_Get
1206: );
1207: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1208: ROLLBACK TO create_role_pmt_plan;
1209: x_loading_status := 'UNEXPECTED_ERR';
1210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1211: FND_MSG_PUB.Count_And_Get
1212: (
1213: p_count => x_msg_count ,
1214: p_data => x_msg_data ,
1211: FND_MSG_PUB.Count_And_Get
1212: (
1213: p_count => x_msg_count ,
1214: p_data => x_msg_data ,
1215: p_encoded => FND_API.G_FALSE
1216: );
1217: WHEN OTHERS THEN
1218: ROLLBACK TO create_role_pmt_plan;
1219: x_loading_status := 'UNEXPECTED_ERR';
1216: );
1217: WHEN OTHERS THEN
1218: ROLLBACK TO create_role_pmt_plan;
1219: x_loading_status := 'UNEXPECTED_ERR';
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1221: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1222: THEN
1223: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1224: END IF;
1225: FND_MSG_PUB.Count_And_Get
1226: (
1227: p_count => x_msg_count ,
1228: p_data => x_msg_data ,
1229: p_encoded => FND_API.G_FALSE
1230: );
1231:
1232: END create_role_pmt_plan;
1233:
1236: -- Procedure: Update_Role_Pmt_Plan
1237: -- --------------------------------------------------------------------------*
1238: PROCEDURE Update_Role_Pmt_Plan
1239: ( p_api_version IN NUMBER ,
1240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1241: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status OUT NOCOPY VARCHAR2 ,
1244: x_loading_status OUT NOCOPY VARCHAR2 ,
1237: -- --------------------------------------------------------------------------*
1238: PROCEDURE Update_Role_Pmt_Plan
1239: ( p_api_version IN NUMBER ,
1240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1241: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status OUT NOCOPY VARCHAR2 ,
1244: x_loading_status OUT NOCOPY VARCHAR2 ,
1245: x_msg_count OUT NOCOPY NUMBER ,
1238: PROCEDURE Update_Role_Pmt_Plan
1239: ( p_api_version IN NUMBER ,
1240: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1241: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1242: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1243: x_return_status OUT NOCOPY VARCHAR2 ,
1244: x_loading_status OUT NOCOPY VARCHAR2 ,
1245: x_msg_count OUT NOCOPY NUMBER ,
1246: x_msg_data OUT NOCOPY VARCHAR2 ,
1268: SAVEPOINT update_role_pmt_plan;
1269:
1270: -- Standard call to check for call compatibility.
1271:
1272: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1273: p_api_version ,
1274: l_api_name ,
1275: G_PKG_NAME )
1276: THEN
1273: p_api_version ,
1274: l_api_name ,
1275: G_PKG_NAME )
1276: THEN
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: END IF;
1279:
1280: -- Initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1278: END IF;
1279:
1280: -- Initialize message list if p_init_msg_list is set to TRUE.
1281: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- Initialize API return status to success
1282: FND_MSG_PUB.initialize;
1283: END IF;
1284:
1285: -- Initialize API return status to success
1286: x_return_status := FND_API.G_RET_STS_SUCCESS;
1287: x_loading_status := 'CN_UPDATED';
1288:
1289:
1290: -- Assign the parameter to a local variable to be passed to Pre, Post
1310: );
1311:
1312: -- x_return_status is failure for all failure cases,
1313:
1314: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: ELSE
1317:
1318: cn_role_pmt_plans_pkg.UPDATE_ROW
1311:
1312: -- x_return_status is failure for all failure cases,
1313:
1314: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1315: RAISE FND_API.G_EXC_ERROR;
1316: ELSE
1317:
1318: cn_role_pmt_plans_pkg.UPDATE_ROW
1319: (
1359: x_return_status => x_return_status,
1360: p_loading_status => x_loading_status,
1361: x_loading_status => x_loading_status);
1362:
1363: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: END IF;
1366:
1367: END IF;
1360: p_loading_status => x_loading_status,
1361: x_loading_status => x_loading_status);
1362:
1363: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: END IF;
1366:
1367: END IF;
1368:
1369: -- End of API body
1370:
1371: -- Standard check of p_commit.
1372:
1373: IF FND_API.To_Boolean( p_commit ) THEN
1374: COMMIT WORK;
1375: END IF;
1376:
1377: -- Standard call to get message count and if count is 1, get message info.
1379: FND_MSG_PUB.Count_And_Get
1380: (
1381: p_count => x_msg_count ,
1382: p_data => x_msg_data ,
1383: p_encoded => FND_API.G_FALSE
1384: );
1385:
1386: EXCEPTION
1387: WHEN FND_API.G_EXC_ERROR THEN
1383: p_encoded => FND_API.G_FALSE
1384: );
1385:
1386: EXCEPTION
1387: WHEN FND_API.G_EXC_ERROR THEN
1388: ROLLBACK TO update_role_pmt_plan;
1389: x_return_status := FND_API.G_RET_STS_ERROR ;
1390: FND_MSG_PUB.Count_And_Get
1391: (
1385:
1386: EXCEPTION
1387: WHEN FND_API.G_EXC_ERROR THEN
1388: ROLLBACK TO update_role_pmt_plan;
1389: x_return_status := FND_API.G_RET_STS_ERROR ;
1390: FND_MSG_PUB.Count_And_Get
1391: (
1392: p_count => x_msg_count ,
1393: p_data => x_msg_data ,
1390: FND_MSG_PUB.Count_And_Get
1391: (
1392: p_count => x_msg_count ,
1393: p_data => x_msg_data ,
1394: p_encoded => FND_API.G_FALSE
1395: );
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: ROLLBACK TO update_role_pmt_plan;
1398: x_loading_status := 'UNEXPECTED_ERR';
1392: p_count => x_msg_count ,
1393: p_data => x_msg_data ,
1394: p_encoded => FND_API.G_FALSE
1395: );
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: ROLLBACK TO update_role_pmt_plan;
1398: x_loading_status := 'UNEXPECTED_ERR';
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1400: FND_MSG_PUB.Count_And_Get
1395: );
1396: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1397: ROLLBACK TO update_role_pmt_plan;
1398: x_loading_status := 'UNEXPECTED_ERR';
1399: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1400: FND_MSG_PUB.Count_And_Get
1401: (
1402: p_count => x_msg_count ,
1403: p_data => x_msg_data ,
1400: FND_MSG_PUB.Count_And_Get
1401: (
1402: p_count => x_msg_count ,
1403: p_data => x_msg_data ,
1404: p_encoded => FND_API.G_FALSE
1405: );
1406: WHEN OTHERS THEN
1407: ROLLBACK TO update_role_pmt_plan;
1408: x_loading_status := 'UNEXPECTED_ERR';
1405: );
1406: WHEN OTHERS THEN
1407: ROLLBACK TO update_role_pmt_plan;
1408: x_loading_status := 'UNEXPECTED_ERR';
1409: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1410: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1411: THEN
1412: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1413: END IF;
1414: FND_MSG_PUB.Count_And_Get
1415: (
1416: p_count => x_msg_count ,
1417: p_data => x_msg_data ,
1418: p_encoded => FND_API.G_FALSE
1419: );
1420:
1421: END update_role_pmt_plan;
1422:
1425: -- Procedure: Delete_Role_Pmt_Plan
1426: -- --------------------------------------------------------------------------*
1427: PROCEDURE Delete_Role_Pmt_Plan
1428: ( p_api_version IN NUMBER ,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2 ,
1433: x_loading_status OUT NOCOPY VARCHAR2 ,
1426: -- --------------------------------------------------------------------------*
1427: PROCEDURE Delete_Role_Pmt_Plan
1428: ( p_api_version IN NUMBER ,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2 ,
1433: x_loading_status OUT NOCOPY VARCHAR2 ,
1434: x_msg_count OUT NOCOPY NUMBER ,
1427: PROCEDURE Delete_Role_Pmt_Plan
1428: ( p_api_version IN NUMBER ,
1429: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
1430: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
1431: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1432: x_return_status OUT NOCOPY VARCHAR2 ,
1433: x_loading_status OUT NOCOPY VARCHAR2 ,
1434: x_msg_count OUT NOCOPY NUMBER ,
1435: x_msg_data OUT NOCOPY VARCHAR2 ,
1453: SAVEPOINT delete_role_pmt_plan;
1454:
1455: -- Standard call to check for call compatibility.
1456:
1457: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1458: p_api_version ,
1459: l_api_name ,
1460: G_PKG_NAME )
1461: THEN
1458: p_api_version ,
1459: l_api_name ,
1460: G_PKG_NAME )
1461: THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: END IF;
1464:
1465: -- Initialize message list if p_init_msg_list is set to TRUE.
1466: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1462: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1463: END IF;
1464:
1465: -- Initialize message list if p_init_msg_list is set to TRUE.
1466: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1467: FND_MSG_PUB.initialize;
1468: END IF;
1469:
1470: -- Initialize API return status to success
1467: FND_MSG_PUB.initialize;
1468: END IF;
1469:
1470: -- Initialize API return status to success
1471: x_return_status := FND_API.G_RET_STS_SUCCESS;
1472: x_loading_status := 'CN_DELETED';
1473:
1474:
1475: -- Assign the parameter to a local variable to be passed to Pre, Post
1487: p_loading_status => x_loading_status, -- in
1488: x_loading_status => x_loading_status -- out
1489: );
1490:
1491: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1492: RAISE FND_API.G_EXC_ERROR ;
1493: ELSE
1494:
1495: -- need to call srp assignment API to delete
1488: x_loading_status => x_loading_status -- out
1489: );
1490:
1491: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1492: RAISE FND_API.G_EXC_ERROR ;
1493: ELSE
1494:
1495: -- need to call srp assignment API to delete
1496:
1501: x_return_status => x_return_status,
1502: p_loading_status => x_loading_status,
1503: x_loading_status => x_loading_status);
1504:
1505: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1506: RAISE FND_API.G_EXC_ERROR;
1507: END IF;
1508:
1509: -- delete_row
1502: p_loading_status => x_loading_status,
1503: x_loading_status => x_loading_status);
1504:
1505: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1506: RAISE FND_API.G_EXC_ERROR;
1507: END IF;
1508:
1509: -- delete_row
1510: cn_role_pmt_plans_pkg.delete_row(x_role_pmt_plan_id => l_role_pmt_plan_id);
1514: -- End of API body
1515:
1516: -- Standard check of p_commit.
1517:
1518: IF FND_API.To_Boolean( p_commit ) THEN
1519: COMMIT WORK;
1520: END IF;
1521:
1522:
1525: FND_MSG_PUB.Count_And_Get
1526: (
1527: p_count => x_msg_count ,
1528: p_data => x_msg_data ,
1529: p_encoded => FND_API.G_FALSE
1530: );
1531:
1532: EXCEPTION
1533: WHEN FND_API.G_EXC_ERROR THEN
1529: p_encoded => FND_API.G_FALSE
1530: );
1531:
1532: EXCEPTION
1533: WHEN FND_API.G_EXC_ERROR THEN
1534: ROLLBACK TO delete_role_pmt_plan;
1535: x_return_status := FND_API.G_RET_STS_ERROR ;
1536: FND_MSG_PUB.Count_And_Get
1537: (
1531:
1532: EXCEPTION
1533: WHEN FND_API.G_EXC_ERROR THEN
1534: ROLLBACK TO delete_role_pmt_plan;
1535: x_return_status := FND_API.G_RET_STS_ERROR ;
1536: FND_MSG_PUB.Count_And_Get
1537: (
1538: p_count => x_msg_count ,
1539: p_data => x_msg_data ,
1536: FND_MSG_PUB.Count_And_Get
1537: (
1538: p_count => x_msg_count ,
1539: p_data => x_msg_data ,
1540: p_encoded => FND_API.G_FALSE
1541: );
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO delete_role_pmt_plan;
1544: x_loading_status := 'UNEXPECTED_ERR';
1538: p_count => x_msg_count ,
1539: p_data => x_msg_data ,
1540: p_encoded => FND_API.G_FALSE
1541: );
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO delete_role_pmt_plan;
1544: x_loading_status := 'UNEXPECTED_ERR';
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1546: FND_MSG_PUB.Count_And_Get
1541: );
1542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1543: ROLLBACK TO delete_role_pmt_plan;
1544: x_loading_status := 'UNEXPECTED_ERR';
1545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1546: FND_MSG_PUB.Count_And_Get
1547: (
1548: p_count => x_msg_count ,
1549: p_data => x_msg_data ,
1546: FND_MSG_PUB.Count_And_Get
1547: (
1548: p_count => x_msg_count ,
1549: p_data => x_msg_data ,
1550: p_encoded => FND_API.G_FALSE
1551: );
1552: WHEN OTHERS THEN
1553: ROLLBACK TO delete_role_pmt_plan;
1554: x_loading_status := 'UNEXPECTED_ERR';
1551: );
1552: WHEN OTHERS THEN
1553: ROLLBACK TO delete_role_pmt_plan;
1554: x_loading_status := 'UNEXPECTED_ERR';
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1556: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1557: THEN
1558: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,l_api_name );
1559: END IF;
1560: FND_MSG_PUB.Count_And_Get
1561: (
1562: p_count => x_msg_count ,
1563: p_data => x_msg_data ,
1564: p_encoded => FND_API.G_FALSE
1565: );
1566: END delete_role_pmt_plan;
1567:
1568: FUNCTION date_range_overlap