88: WHERE NAME = p_cp_name AND org_id = p_org_id;
89: EXCEPTION
90: WHEN NO_DATA_FOUND
91: THEN
92: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
93: THEN
94: fnd_message.set_name ('CN', 'CN_CP_NOT_EXIST');
95: fnd_message.set_token ('CP_NAME', p_cp_name);
96: fnd_msg_pub.ADD;
92: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
93: THEN
94: fnd_message.set_name ('CN', 'CN_CP_NOT_EXIST');
95: fnd_message.set_token ('CP_NAME', p_cp_name);
96: fnd_msg_pub.ADD;
97: END IF;
98:
99: x_loading_status := 'CN_CP_NOT_EXIST';
100: RAISE fnd_api.g_exc_error;
110: WHERE NAME = p_pe_name AND org_id = p_org_id ;
111: EXCEPTION
112: WHEN NO_DATA_FOUND
113: THEN
114: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
115: THEN
116: fnd_message.set_name ('CN', 'CN_PLN_NOT_EXIST');
117: fnd_message.set_token ('PE_NAME', p_pe_name);
118: fnd_msg_pub.ADD;
114: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
115: THEN
116: fnd_message.set_name ('CN', 'CN_PLN_NOT_EXIST');
117: fnd_message.set_token ('PE_NAME', p_pe_name);
118: fnd_msg_pub.ADD;
119: END IF;
120:
121: x_loading_status := 'CN_PLN_NOT_EXIST';
122: RAISE fnd_api.g_exc_error;
134: AND comp_plan_id = x_cp_id);
135: EXCEPTION
136: WHEN NO_DATA_FOUND
137: THEN
138: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
139: THEN
140: fnd_message.set_name ('CN', 'PLN_QUOTA_ASSIGNED');
141: fnd_msg_pub.ADD;
142: END IF;
137: THEN
138: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
139: THEN
140: fnd_message.set_name ('CN', 'PLN_QUOTA_ASSIGNED');
141: fnd_msg_pub.ADD;
142: END IF;
143:
144: x_loading_status := 'PLN_QUOTA_ASSIGNED';
145: GOTO end_api;
158: CLOSE check_overlap_curs;
159:
160: IF l_rev_class_total <> l_rev_class_total_unique
161: THEN
162: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
163: THEN
164: fnd_message.set_name ('CN', 'PLN_PLAN_DUP_REV_CLASS');
165: fnd_message.set_token ('PLAN_NAME', p_cp_name);
166: fnd_msg_pub.ADD;
162: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
163: THEN
164: fnd_message.set_name ('CN', 'PLN_PLAN_DUP_REV_CLASS');
165: fnd_message.set_token ('PLAN_NAME', p_cp_name);
166: fnd_msg_pub.ADD;
167: END IF;
168:
169: x_loading_status := 'PLN_PLAN_DUP_REV_CLASS';
170: RAISE fnd_api.g_exc_error;
190: END IF;
191:
192: IF l_flag = true
193: THEN
194: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
195: THEN
196: fnd_message.set_name ('CN', 'CN_PLAN_ELT_DISJOINT');
197: fnd_msg_pub.ADD;
198: END IF;
193: THEN
194: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
195: THEN
196: fnd_message.set_name ('CN', 'CN_PLAN_ELT_DISJOINT');
197: fnd_msg_pub.ADD;
198: END IF;
199:
200: x_loading_status := 'CN_PLAN_ELT_DISJOINT';
201: RAISE fnd_api.g_exc_error;
205: -- End of API body.
206: <
207: NULL;
208: -- Standard call to get message count and if count is 1, get message info.
209: fnd_msg_pub.count_and_get (p_count => x_msg_count,
210: p_data => x_msg_data,
211: p_encoded => fnd_api.g_false
212: );
213: EXCEPTION
213: EXCEPTION
214: WHEN fnd_api.g_exc_error
215: THEN
216: x_return_status := fnd_api.g_ret_sts_error;
217: fnd_msg_pub.count_and_get (p_count => x_msg_count,
218: p_data => x_msg_data,
219: p_encoded => fnd_api.g_false
220: );
221: WHEN fnd_api.g_exc_unexpected_error
221: WHEN fnd_api.g_exc_unexpected_error
222: 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 (p_count => x_msg_count,
226: p_data => x_msg_data,
227: p_encoded => fnd_api.g_false
228: );
229: WHEN OTHERS
230: THEN
231: x_return_status := fnd_api.g_ret_sts_unexp_error;
232: x_loading_status := 'UNEXPECTED_ERR';
233:
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);
237: END IF;
238:
232: x_loading_status := 'UNEXPECTED_ERR';
233:
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);
237: END IF;
238:
239: fnd_msg_pub.count_and_get (p_count => x_msg_count,
240: p_data => x_msg_data,
235: THEN
236: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
237: END IF;
238:
239: fnd_msg_pub.count_and_get (p_count => x_msg_count,
240: p_data => x_msg_data,
241: p_encoded => fnd_api.g_false
242: );
243: END valid_pe_assign;
286:
287: -- Initialize message list if p_init_msg_list is set to TRUE.
288: IF fnd_api.to_boolean (p_init_msg_list)
289: THEN
290: fnd_msg_pub.initialize;
291: END IF;
292:
293: -- Initialize API return status to success
294: x_return_status := fnd_api.g_ret_sts_success;
352: COMMIT WORK;
353: END IF;
354:
355: -- Standard call to get message count and if count is 1, get message info.
356: fnd_msg_pub.count_and_get (p_count => x_msg_count,
357: p_data => x_msg_data,
358: p_encoded => fnd_api.g_false
359: );
360: EXCEPTION
361: WHEN fnd_api.g_exc_error
362: THEN
363: ROLLBACK TO create_plan_element_assign;
364: x_return_status := fnd_api.g_ret_sts_error;
365: fnd_msg_pub.count_and_get (p_count => x_msg_count,
366: p_data => x_msg_data,
367: p_encoded => fnd_api.g_false
368: );
369: WHEN fnd_api.g_exc_unexpected_error
370: THEN
371: ROLLBACK TO create_plan_element_assign;
372: x_loading_status := 'UNEXPECTED_ERR';
373: x_return_status := fnd_api.g_ret_sts_unexp_error;
374: fnd_msg_pub.count_and_get (p_count => x_msg_count,
375: p_data => x_msg_data,
376: p_encoded => fnd_api.g_false
377: );
378: WHEN OTHERS
380: ROLLBACK TO create_plan_element_assign;
381: x_loading_status := 'UNEXPECTED_ERR';
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383:
384: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
385: THEN
386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
387: END IF;
388:
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383:
384: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
385: THEN
386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
387: END IF;
388:
389: fnd_msg_pub.count_and_get (p_count => x_msg_count,
390: p_data => x_msg_data,
385: THEN
386: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
387: END IF;
388:
389: fnd_msg_pub.count_and_get (p_count => x_msg_count,
390: p_data => x_msg_data,
391: p_encoded => fnd_api.g_false
392: );
393: END create_plan_element_assign;
436: IF (l_cp_csr.description <> p_cp_rec.description)
437: THEN
438: -- Error, check the msg level and add an error message to the
439: -- API message list
440: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
441: THEN
442: fnd_message.set_name ('CN', 'CN_CP_NOT_CONSISTENT');
443: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
444: l_lkup_meaning :=
443: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
444: l_lkup_meaning :=
445: cn_api.get_lkup_meaning ('DESC', 'CP_OBJECT_TYPE');
446: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
447: fnd_msg_pub.ADD;
448: END IF;
449:
450: x_loading_status := 'CN_CP_NOT_CONSISTENT';
451: RAISE fnd_api.g_exc_error;
455: IF (TRUNC (l_cp_csr.start_date) <> TRUNC (p_cp_rec.start_date))
456: THEN
457: -- Error, check the msg level and add an error message to the
458: -- API message list
459: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
460: THEN
461: fnd_message.set_name ('CN', 'CN_CP_NOT_CONSISTENT');
462: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
463: l_lkup_meaning :=
462: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
463: l_lkup_meaning :=
464: cn_api.get_lkup_meaning ('START_DATE', 'CP_OBJECT_TYPE');
465: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
466: fnd_msg_pub.ADD;
467: END IF;
468:
469: x_loading_status := 'CN_CP_NOT_CONSISTENT';
470: RAISE fnd_api.g_exc_error;
476: )
477: THEN
478: -- Error, check the msg level and add an error message to the
479: -- API message list
480: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
481: THEN
482: fnd_message.set_name ('CN', 'CN_CP_NOT_CONSISTENT');
483: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
484: l_lkup_meaning :=
483: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
484: l_lkup_meaning :=
485: cn_api.get_lkup_meaning ('END_DATE', 'CP_OBJECT_TYPE');
486: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
487: fnd_msg_pub.ADD;
488: END IF;
489:
490: x_loading_status := 'CN_CP_NOT_CONSISTENT';
491: RAISE fnd_api.g_exc_error;
495: IF (l_cp_csr.allow_rev_class_overlap <> p_cp_rec.rc_overlap)
496: THEN
497: -- Error, check the msg level and add an error message to the
498: -- API message list
499: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
500: THEN
501: fnd_message.set_name ('CN', 'CN_CP_NOT_CONSISTENT');
502: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
503: l_lkup_meaning :=
502: fnd_message.set_token ('CP_NAME', p_cp_rec.NAME);
503: l_lkup_meaning :=
504: cn_api.get_lkup_meaning ('REV_CLS_OVERLAP', 'CP_OBJECT_TYPE');
505: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
506: fnd_msg_pub.ADD;
507: END IF;
508:
509: x_loading_status := 'CN_CP_NOT_CONSISTENT';
510: RAISE fnd_api.g_exc_error;
523: THEN
524: x_return_status := fnd_api.g_ret_sts_unexp_error;
525: x_loading_status := 'UNEXPECTED_ERR';
526:
527: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
528: THEN
529: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
530: END IF;
531: END chk_cp_consistent;
525: x_loading_status := 'UNEXPECTED_ERR';
526:
527: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
528: THEN
529: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
530: END IF;
531: END chk_cp_consistent;
532:
533: --| ----------------------------------------------------------------------+
601: cn_api.get_lkup_meaning ('REV_CLS_OVERLAP', 'CP_OBJECT_TYPE');
602:
603: IF (p_cp_rec.rc_overlap NOT IN ('Y', 'N'))
604: THEN
605: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
606: THEN
607: fnd_message.set_name ('CN', 'CN_INVALID_DATA');
608: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
609: fnd_msg_pub.ADD;
605: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
606: THEN
607: fnd_message.set_name ('CN', 'CN_INVALID_DATA');
608: fnd_message.set_token ('OBJ_NAME', l_lkup_meaning);
609: fnd_msg_pub.ADD;
610: END IF;
611:
612: x_loading_status := 'CN_INVALID_DATA';
613: RAISE fnd_api.g_exc_error;
664: IF ( p_cp_rec.end_date IS NOT NULL
665: AND p_cp_rec.end_date < p_cp_rec.start_date
666: )
667: THEN
668: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
669: THEN
670: fnd_message.set_name ('CN', 'CN_INVALID_DATE_RANGE');
671: fnd_msg_pub.ADD;
672: END IF;
667: THEN
668: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_error)
669: THEN
670: fnd_message.set_name ('CN', 'CN_INVALID_DATE_RANGE');
671: fnd_msg_pub.ADD;
672: END IF;
673:
674: x_loading_status := 'INVALID_END_DATE';
675: RAISE fnd_api.g_exc_error;
679: -- End of API body.
680: <
681: NULL;
682: -- Standard call to get message count and if count is 1, get message info.
683: fnd_msg_pub.count_and_get (p_count => x_msg_count,
684: p_data => x_msg_data,
685: p_encoded => fnd_api.g_false
686: );
687: EXCEPTION
687: EXCEPTION
688: WHEN fnd_api.g_exc_error
689: THEN
690: x_return_status := fnd_api.g_ret_sts_error;
691: fnd_msg_pub.count_and_get (p_count => x_msg_count,
692: p_data => x_msg_data,
693: p_encoded => fnd_api.g_false
694: );
695: WHEN fnd_api.g_exc_unexpected_error
695: WHEN fnd_api.g_exc_unexpected_error
696: THEN
697: x_return_status := fnd_api.g_ret_sts_unexp_error;
698: x_loading_status := 'UNEXPECTED_ERR';
699: fnd_msg_pub.count_and_get (p_count => x_msg_count,
700: p_data => x_msg_data,
701: p_encoded => fnd_api.g_false
702: );
703: WHEN OTHERS
704: THEN
705: x_return_status := fnd_api.g_ret_sts_unexp_error;
706: x_loading_status := 'UNEXPECTED_ERR';
707:
708: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
709: THEN
710: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
711: END IF;
712:
706: x_loading_status := 'UNEXPECTED_ERR';
707:
708: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
709: THEN
710: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
711: END IF;
712:
713: fnd_msg_pub.count_and_get (p_count => x_msg_count,
714: p_data => x_msg_data,
709: THEN
710: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
711: END IF;
712:
713: fnd_msg_pub.count_and_get (p_count => x_msg_count,
714: p_data => x_msg_data,
715: p_encoded => fnd_api.g_false
716: );
717: END valid_comp_plan;
773:
774: -- Initialize message list if p_init_msg_list is set to TRUE.
775: IF fnd_api.to_boolean (p_init_msg_list)
776: THEN
777: fnd_msg_pub.initialize;
778: END IF;
779:
780: -- Initialize API return status to success
781: x_return_status := fnd_api.g_ret_sts_success;
1169: COMMIT WORK;
1170: END IF;
1171:
1172: -- Standard call to get message count and if count is 1, get message info.
1173: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1174: p_data => x_msg_data,
1175: p_encoded => fnd_api.g_false
1176: );
1177: EXCEPTION
1178: WHEN fnd_api.g_exc_error
1179: THEN
1180: ROLLBACK TO create_comp_plan;
1181: x_return_status := fnd_api.g_ret_sts_error;
1182: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1183: p_data => x_msg_data,
1184: p_encoded => fnd_api.g_false
1185: );
1186: WHEN fnd_api.g_exc_unexpected_error
1187: THEN
1188: ROLLBACK TO create_comp_plan;
1189: x_loading_status := 'UNEXPECTED_ERR';
1190: x_return_status := fnd_api.g_ret_sts_unexp_error;
1191: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1192: p_data => x_msg_data,
1193: p_encoded => fnd_api.g_false
1194: );
1195: WHEN OTHERS
1197: ROLLBACK TO create_comp_plan;
1198: x_loading_status := 'UNEXPECTED_ERR';
1199: x_return_status := fnd_api.g_ret_sts_unexp_error;
1200:
1201: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1202: THEN
1203: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1204: END IF;
1205:
1199: x_return_status := fnd_api.g_ret_sts_unexp_error;
1200:
1201: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1202: THEN
1203: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1204: END IF;
1205:
1206: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1207: p_data => x_msg_data,
1202: THEN
1203: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
1204: END IF;
1205:
1206: fnd_msg_pub.count_and_get (p_count => x_msg_count,
1207: p_data => x_msg_data,
1208: p_encoded => fnd_api.g_false
1209: );
1210: END create_comp_plan;