[Home] [Help]
156: AND (interval_type_id = p_sub_batch_rec.interval_type_id OR
157: (p_sub_batch_rec.interval_type_id = -1003 AND interval_type_id IN (-1000, -1001, -1002)));
158: BEGIN
159: -- Initialize API return status to success
160: x_return_status := FND_API.G_RET_STS_SUCCESS;
161:
162: -- 1. name can not be null and should be unique(there is a unique index on name)
163: IF (p_sub_batch_rec.name IS NULL) THEN
164: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
173: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
174: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('NAME', 'CALC_SUBMISSION_OBJECT_TYPE'));
175: fnd_msg_pub.ADD;
176: END IF;
177: x_return_status := fnd_api.g_ret_sts_error;
178: END IF;
179:
180: OPEN name_check(p_sub_batch_rec.name);
181: FETCH name_check INTO l_dummy;
192: FND_MESSAGE.SET_NAME ('CN' , 'CN_CALC_SUB_EXISTS');
193: fnd_message.set_token('BATCH_NAME', cn_api.get_lkup_meaning('NAME', 'CALC_SUBMISSION_OBJECT_TYPE'));
194: FND_MSG_PUB.Add;
195: END IF;
196: x_return_status := fnd_api.g_ret_sts_error;
197: END IF;
198: CLOSE name_check;
199:
200: -- 2. start_date and end_date can not be null and end_date >= start_date
209: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
210: fnd_message.set_name('CN', 'CN_START_DATE_CANNOT_NULL');
211: fnd_msg_pub.ADD;
212: END IF;
213: x_return_status := fnd_api.g_ret_sts_error;
214: END IF;
215: IF (p_sub_batch_rec.end_date IS NULL) THEN
216: fnd_message.set_name('CN', 'CN_END_DATE_CANNOT_NULL');
217: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
223: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
224: fnd_message.set_name('CN', 'CN_END_DATE_CANNOT_NULL');
225: fnd_msg_pub.ADD;
226: END IF;
227: x_return_status := fnd_api.g_ret_sts_error;
228: END IF;
229: IF (p_sub_batch_rec.start_date > p_sub_batch_rec.end_date) THEN
230: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
231: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
237: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
238: fnd_message.set_name('CN', 'CN_INVALID_DATE_RANGE');
239: fnd_msg_pub.ADD;
240: END IF;
241: x_return_status := fnd_api.g_ret_sts_error;
242: END IF;
243:
244: -- 3. start_date and end_date must be within an open period
245: OPEN open_period_check(p_sub_batch_rec.start_date);
257: fnd_message.set_name('CN' , 'CN_CALC_SUB_OPEN_DATE');
258: fnd_message.set_token('DATE', p_sub_batch_rec.start_date);
259: fnd_msg_pub.ADD;
260: END IF;
261: x_return_status := fnd_api.g_ret_sts_error;
262: END IF;
263: CLOSE open_period_check;
264: OPEN open_period_check(p_sub_batch_rec.end_date);
265: FETCH open_period_check INTO l_dummy;
276: fnd_message.set_name('CN' , 'CN_CALC_SUB_OPEN_DATE');
277: fnd_message.set_token('DATE', p_sub_batch_rec.end_date);
278: fnd_msg_pub.ADD;
279: END IF;
280: x_return_status := fnd_api.g_ret_sts_error;
281: END IF;
282: CLOSE open_period_check;
283:
284: -- 4. calc_type can not be null, must be 'COMMISSION' or 'BONUS'
295: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
296: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CALC_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
297: fnd_msg_pub.ADD;
298: END IF;
299: x_return_status := fnd_api.g_ret_sts_error;
300: END IF;
301: IF (p_sub_batch_rec.calc_type NOT IN ('COMMISSION', 'BONUS')) THEN
302: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
303: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CALC_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
311: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
312: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CALC_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
313: fnd_msg_pub.ADD;
314: END IF;
315: x_return_status := fnd_api.g_ret_sts_error;
316: END IF;
317:
318: -- 5. salesrep_option can not be null and must be a valid value
319: IF (p_sub_batch_rec.salesrep_option IS NULL) THEN
329: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
330: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('SALESREP_OPTION', 'CALC_SUBMISSION_OBJECT_TYPE'));
331: fnd_msg_pub.ADD;
332: END IF;
333: x_return_status := fnd_api.g_ret_sts_error;
334: END IF;
335: IF (p_sub_batch_rec.salesrep_option NOT IN ('ALL_REPS', 'USER_SPECIFY', 'REPS_IN_NOTIFY_LOG') OR
336: (p_sub_batch_rec.calc_type = 'BONUS' AND p_sub_batch_rec.salesrep_option = 'REPS_IN_NOTIFY_LOG'))
337: THEN
347: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
348: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('SALESREP_OPTION', 'CALC_SUBMISSION_OBJECT_TYPE'));
349: fnd_msg_pub.ADD;
350: END IF;
351: x_return_status := fnd_api.g_ret_sts_error;
352: END IF;
353:
354: -- 6. hierarchy_flag can not be null, must be a valid value
355: -- TO DO: remove this check if hierarchy flag is only supported at rep level in R12
366: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
367: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('HIERARCHY_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
368: fnd_msg_pub.ADD;
369: END IF;
370: x_return_status := fnd_api.g_ret_sts_error;
371: END IF;
372: IF (p_sub_batch_rec.hierarchy_flag NOT IN ('Y', 'N') OR
373: (p_sub_batch_rec.salesrep_option IN ('ALL_REPS', 'REPS_IN_NOTIFY_LOG') AND p_sub_batch_rec.hierarchy_flag = 'Y'))
374: THEN
384: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
385: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('HIERARCHY_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
386: fnd_msg_pub.ADD;
387: END IF;
388: x_return_status := fnd_api.g_ret_sts_error;
389: END IF;
390:
391: -- 7. concurrent_flag can not be null, must be a valid value
392: IF (p_sub_batch_rec.concurrent_flag IS NULL) THEN
402: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
403: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CONCURRENT_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
404: fnd_msg_pub.ADD;
405: END IF;
406: x_return_status := fnd_api.g_ret_sts_error;
407: END IF;
408: IF (p_sub_batch_rec.concurrent_flag NOT IN ('Y', 'N')) THEN
409: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
410: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CONCURRENT_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
418: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
419: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('CONCURRENT_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
420: fnd_msg_pub.ADD;
421: END IF;
422: x_return_status := fnd_api.g_ret_sts_error;
423: END IF;
424:
425: -- 8. intelligent_flag can not be null, must be a valid value
426: IF (p_sub_batch_rec.intelligent_flag IS NULL) THEN
436: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
437: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('INTELLIGENT_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
438: fnd_msg_pub.ADD;
439: END IF;
440: x_return_status := fnd_api.g_ret_sts_error;
441: END IF;
442: IF (p_sub_batch_rec.intelligent_flag NOT IN ('Y', 'N') OR
443: (p_sub_batch_rec.calc_type = 'BONUS' AND p_sub_batch_rec.intelligent_flag = 'Y') OR
444: (p_sub_batch_rec.salesrep_option = 'REPS_IN_NOTIFY_LOG' AND p_sub_batch_rec.intelligent_flag = 'N'))
455: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
456: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('INTELLIGENT_FLAG', 'CALC_SUBMISSION_OBJECT_TYPE'));
457: fnd_msg_pub.ADD;
458: END IF;
459: x_return_status := fnd_api.g_ret_sts_error;
460: END IF;
461:
462: -- 9. interval_type can not be null, must be a valid value if calc_type = 'BONUS'
463: IF (p_sub_batch_rec.calc_type = 'BONUS') THEN
474: fnd_message.set_name('CN', 'CN_CANNOT_NULL');
475: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('INTERVAL_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
476: fnd_msg_pub.ADD;
477: END IF;
478: x_return_status := fnd_api.g_ret_sts_error;
479: END IF;
480: IF (p_sub_batch_rec.interval_type_id NOT IN (-1000, -1001, -1002, -1003)) THEN
481: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
482: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('INTERVAL_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
490: fnd_message.set_name('CN' , 'CN_INVALID_DATA');
491: fnd_message.set_token('OBJ_NAME', cn_api.get_lkup_meaning('INTERVAL_TYPE', 'CALC_SUBMISSION_OBJECT_TYPE'));
492: fnd_msg_pub.ADD;
493: END IF;
494: x_return_status := fnd_api.g_ret_sts_error;
495: END IF;
496: END IF;
497:
498: -- 10. salesrep validation
508: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
509: fnd_message.set_name('CN' , 'CN_CALC_NO_SALESREP');
510: fnd_msg_pub.ADD;
511: END IF;
512: x_return_status := fnd_api.g_ret_sts_error;
513: END IF;
514:
515: IF (p_sub_batch_rec.calc_sub_batch_id IS NOT NULL AND p_rep_entry_tbl.COUNT > 0) THEN
516: l_dummy := 0;
532: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
533: fnd_message.set_name('CN' , 'CN_CALC_NO_SALESREP');
534: fnd_msg_pub.ADD;
535: END IF;
536: x_return_status := fnd_api.g_ret_sts_error;
537: END IF;
538: END IF;
539:
540: IF (p_rep_entry_tbl.COUNT > 0) THEN
541: FOR i IN p_rep_entry_tbl.first..p_rep_entry_tbl.last LOOP
542: FOR j IN p_rep_entry_tbl.first..p_rep_entry_tbl.last LOOP
543: IF (j <> i) THEN
544: IF (p_rep_entry_tbl(j).salesrep_id = p_rep_entry_tbl(i).salesrep_id) THEN
545: x_return_status := fnd_api.g_ret_sts_error;
546:
547: fnd_message.set_name('CN', 'CN_CALC_SALESREP_EXIST');
548: fnd_message.set_token('NAME', p_rep_entry_tbl(i).name);
549: if (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
584: fnd_message.set_name('CN', 'CN_CALC_PE_NO_MATCH');
585: fnd_message.set_token('QUOTA_NAME', l_quota_name);
586: fnd_msg_pub.ADD;
587: END IF;
588: x_return_status := fnd_api.g_ret_sts_error;
589: END IF;
590: CLOSE quota_check;
591: END IF;
592: END LOOP;
595: -- Standard call to get message count and if count is 1, get message info.
596: FND_MSG_PUB.Count_And_Get
597: (p_count => x_msg_count ,
598: p_data => x_msg_data ,
599: p_encoded => FND_API.G_FALSE );
600: EXCEPTION
601: WHEN FND_API.G_EXC_ERROR THEN
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: FND_MSG_PUB.count_and_get
597: (p_count => x_msg_count ,
598: p_data => x_msg_data ,
599: p_encoded => FND_API.G_FALSE );
600: EXCEPTION
601: WHEN FND_API.G_EXC_ERROR THEN
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: FND_MSG_PUB.count_and_get
604: (p_count => x_msg_count ,
605: p_data => x_msg_data ,
598: p_data => x_msg_data ,
599: p_encoded => FND_API.G_FALSE );
600: EXCEPTION
601: WHEN FND_API.G_EXC_ERROR THEN
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: FND_MSG_PUB.count_and_get
604: (p_count => x_msg_count ,
605: p_data => x_msg_data ,
606: p_encoded => FND_API.G_FALSE );
602: x_return_status := FND_API.G_RET_STS_ERROR ;
603: FND_MSG_PUB.count_and_get
604: (p_count => x_msg_count ,
605: p_data => x_msg_data ,
606: p_encoded => FND_API.G_FALSE );
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: FND_MSG_PUB.count_and_get
610: (p_count => x_msg_count ,
603: FND_MSG_PUB.count_and_get
604: (p_count => x_msg_count ,
605: p_data => x_msg_data ,
606: p_encoded => FND_API.G_FALSE );
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: FND_MSG_PUB.count_and_get
610: (p_count => x_msg_count ,
611: p_data => x_msg_data ,
604: (p_count => x_msg_count ,
605: p_data => x_msg_data ,
606: p_encoded => FND_API.G_FALSE );
607: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: FND_MSG_PUB.count_and_get
610: (p_count => x_msg_count ,
611: p_data => x_msg_data ,
612: p_encoded => FND_API.G_FALSE );
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
609: FND_MSG_PUB.count_and_get
610: (p_count => x_msg_count ,
611: p_data => x_msg_data ,
612: p_encoded => FND_API.G_FALSE );
613: WHEN OTHERS THEN
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: FND_MSG_PUB.add_exc_msg
610: (p_count => x_msg_count ,
611: p_data => x_msg_data ,
612: p_encoded => FND_API.G_FALSE );
613: WHEN OTHERS THEN
614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
615: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
616: FND_MSG_PUB.add_exc_msg
617: (G_PKG_NAME ,
618: 'validate_submission_records');
619: END IF;
620: FND_MSG_PUB.count_and_get
621: (p_count => x_msg_count ,
622: p_data => x_msg_data ,
623: p_encoded => FND_API.G_FALSE );
624:
625: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
626: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
627: 'cn.plsql.cn_calc_submission_pvt.validate_submission_records.exception',
846: BEGIN
847: -- Standard Start of API savepoint
848:
849: -- Standard call to check for call compatibility
850: IF NOT FND_API.Compatible_API_Call
851: (l_api_version,
852: p_api_version,
853: l_api_name,
854: G_PKG_NAME)
852: p_api_version,
853: l_api_name,
854: G_PKG_NAME)
855: THEN
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858:
859: -- Initialize message list if p_init_msg_list is set to TRUE.
860: IF FND_API.to_Boolean( p_init_msg_list) THEN
856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
857: END IF;
858:
859: -- Initialize message list if p_init_msg_list is set to TRUE.
860: IF FND_API.to_Boolean( p_init_msg_list) THEN
861: FND_MSG_PUB.initialize;
862: END IF;
863:
864: -- Initialize API return status to success
861: FND_MSG_PUB.initialize;
862: END IF;
863:
864: -- Initialize API return status to success
865: x_return_status := FND_API.G_RET_STS_SUCCESS;
866:
867: -- API body
868: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
869: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
883: p_quota_entry_tbl => l_quota_entry_tbl,
884: x_return_status => x_return_status,
885: x_msg_count => x_msg_count,
886: x_msg_data => x_msg_data);
887: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
888: RAISE fnd_api.g_exc_error;
889: END IF;
890:
891: IF (cn_proc_batches_pkg.find_srp_incomplete_plan(p_calc_sub_batch_id)) THEN
884: x_return_status => x_return_status,
885: x_msg_count => x_msg_count,
886: x_msg_data => x_msg_data);
887: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
888: RAISE fnd_api.g_exc_error;
889: END IF;
890:
891: IF (cn_proc_batches_pkg.find_srp_incomplete_plan(p_calc_sub_batch_id)) THEN
892: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
889: END IF;
890:
891: IF (cn_proc_batches_pkg.find_srp_incomplete_plan(p_calc_sub_batch_id)) THEN
892: IF (fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error)) THEN
893: IF FND_API.To_Boolean(p_commit) THEN
894: COMMIT WORK;
895: END IF;
896:
897: fnd_message.set_name('CN', 'CNSBCS_INCOMPLETE_PLAN');
902: FALSE);
903: end if;
904:
905: END IF;
906: RAISE fnd_api.g_exc_error;
907: END IF;
908:
909: IF FND_API.To_Boolean(p_commit) THEN
910: COMMIT WORK;
905: END IF;
906: RAISE fnd_api.g_exc_error;
907: END IF;
908:
909: IF FND_API.To_Boolean(p_commit) THEN
910: COMMIT WORK;
911: END IF;
912:
913: -- Standard call to get message count and if count is 1, get message info.
913: -- Standard call to get message count and if count is 1, get message info.
914: FND_MSG_PUB.Count_And_Get
915: (p_count => x_msg_count ,
916: p_data => x_msg_data ,
917: p_encoded => FND_API.G_FALSE );
918:
919: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
920: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
921: 'cn.plsql.cn_calc_submission_pvt.validate.end',
922: 'End of validate.' );
923: end if;
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR ;
928: FND_MSG_PUB.count_and_get
929: (p_count => x_msg_count ,
930: p_data => x_msg_data ,
923: end if;
924:
925: EXCEPTION
926: WHEN FND_API.G_EXC_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_ERROR ;
928: FND_MSG_PUB.count_and_get
929: (p_count => x_msg_count ,
930: p_data => x_msg_data ,
931: p_encoded => FND_API.G_FALSE );
927: x_return_status := FND_API.G_RET_STS_ERROR ;
928: FND_MSG_PUB.count_and_get
929: (p_count => x_msg_count ,
930: p_data => x_msg_data ,
931: p_encoded => FND_API.G_FALSE );
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: FND_MSG_PUB.count_and_get
935: (p_count => x_msg_count ,
928: FND_MSG_PUB.count_and_get
929: (p_count => x_msg_count ,
930: p_data => x_msg_data ,
931: p_encoded => FND_API.G_FALSE );
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: FND_MSG_PUB.count_and_get
935: (p_count => x_msg_count ,
936: p_data => x_msg_data ,
929: (p_count => x_msg_count ,
930: p_data => x_msg_data ,
931: p_encoded => FND_API.G_FALSE );
932: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: FND_MSG_PUB.count_and_get
935: (p_count => x_msg_count ,
936: p_data => x_msg_data ,
937: p_encoded => FND_API.G_FALSE );
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
934: FND_MSG_PUB.count_and_get
935: (p_count => x_msg_count ,
936: p_data => x_msg_data ,
937: p_encoded => FND_API.G_FALSE );
938: WHEN OTHERS THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
941: FND_MSG_PUB.add_exc_msg
935: (p_count => x_msg_count ,
936: p_data => x_msg_data ,
937: p_encoded => FND_API.G_FALSE );
938: WHEN OTHERS THEN
939: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
940: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
941: FND_MSG_PUB.add_exc_msg
942: (G_PKG_NAME ,
943: 'Validate');
944: END IF;
945: FND_MSG_PUB.count_and_get
946: (p_count => x_msg_count ,
947: p_data => x_msg_data ,
948: p_encoded => FND_API.G_FALSE );
949:
950: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
951: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
952: 'cn.plsql.cn_calc_submission_pvt.validate.exception',
972: l_concurrent_flag VARCHAR2(1);
973:
974: BEGIN
975: -- Standard call to check for call compatibility
976: IF NOT FND_API.Compatible_API_Call
977: (l_api_version,
978: p_api_version,
979: l_api_name,
980: G_PKG_NAME)
978: p_api_version,
979: l_api_name,
980: G_PKG_NAME)
981: THEN
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
983: END IF;
984:
985: -- Initialize message list if p_init_msg_list is set to TRUE.
986: IF FND_API.to_Boolean( p_init_msg_list) THEN
982: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
983: END IF;
984:
985: -- Initialize message list if p_init_msg_list is set to TRUE.
986: IF FND_API.to_Boolean( p_init_msg_list) THEN
987: FND_MSG_PUB.initialize;
988: END IF;
989:
990: -- Initialize API return status to success
987: FND_MSG_PUB.initialize;
988: END IF;
989:
990: -- Initialize API return status to success
991: x_return_status := FND_API.G_RET_STS_SUCCESS;
992:
993: -- API body
994: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
995: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
999:
1000: validate
1001: (p_api_version => 1.0,
1002: p_init_msg_list => p_init_msg_list,
1003: p_commit => fnd_api.g_true,
1004: p_validation_level => p_validation_level,
1005: x_return_status => x_return_status,
1006: x_msg_count => x_msg_count,
1007: x_msg_data => x_msg_data,
1006: x_msg_count => x_msg_count,
1007: x_msg_data => x_msg_data,
1008: p_calc_sub_batch_id => p_calc_sub_batch_id);
1009:
1010: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1011: raise fnd_api.g_exc_error;
1012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1013: raise fnd_api.g_exc_unexpected_error;
1014: END IF;
1007: x_msg_data => x_msg_data,
1008: p_calc_sub_batch_id => p_calc_sub_batch_id);
1009:
1010: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1011: raise fnd_api.g_exc_error;
1012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1013: raise fnd_api.g_exc_unexpected_error;
1014: END IF;
1015:
1008: p_calc_sub_batch_id => p_calc_sub_batch_id);
1009:
1010: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1011: raise fnd_api.g_exc_error;
1012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1013: raise fnd_api.g_exc_unexpected_error;
1014: END IF;
1015:
1016: cn_proc_batches_pkg.calculation_submission
1009:
1010: IF (x_return_status = fnd_api.g_ret_sts_error) THEN
1011: raise fnd_api.g_exc_error;
1012: ELSIF (x_return_status = fnd_api.g_ret_sts_unexp_error) THEN
1013: raise fnd_api.g_exc_unexpected_error;
1014: END IF;
1015:
1016: cn_proc_batches_pkg.calculation_submission
1017: (p_calc_sub_batch_id => p_calc_sub_batch_id,
1048: -- Standard call to get message count and if count is 1, get message info.
1049: FND_MSG_PUB.Count_And_Get
1050: (p_count => x_msg_count ,
1051: p_data => x_msg_data ,
1052: p_encoded => FND_API.G_FALSE );
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_ERROR ;
1056: FND_MSG_PUB.count_and_get
1050: (p_count => x_msg_count ,
1051: p_data => x_msg_data ,
1052: p_encoded => FND_API.G_FALSE );
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_ERROR ;
1056: FND_MSG_PUB.count_and_get
1057: (p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1051: p_data => x_msg_data ,
1052: p_encoded => FND_API.G_FALSE );
1053: EXCEPTION
1054: WHEN FND_API.G_EXC_ERROR THEN
1055: x_return_status := FND_API.G_RET_STS_ERROR ;
1056: FND_MSG_PUB.count_and_get
1057: (p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1059: p_encoded => FND_API.G_FALSE );
1055: x_return_status := FND_API.G_RET_STS_ERROR ;
1056: FND_MSG_PUB.count_and_get
1057: (p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1059: p_encoded => FND_API.G_FALSE );
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1062: FND_MSG_PUB.count_and_get
1063: (p_count => x_msg_count ,
1056: FND_MSG_PUB.count_and_get
1057: (p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1059: p_encoded => FND_API.G_FALSE );
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1062: FND_MSG_PUB.count_and_get
1063: (p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1057: (p_count => x_msg_count ,
1058: p_data => x_msg_data ,
1059: p_encoded => FND_API.G_FALSE );
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1062: FND_MSG_PUB.count_and_get
1063: (p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1065: p_encoded => FND_API.G_FALSE );
1061: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1062: FND_MSG_PUB.count_and_get
1063: (p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1065: p_encoded => FND_API.G_FALSE );
1066: WHEN OTHERS THEN
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1068: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1069: FND_MSG_PUB.add_exc_msg
1063: (p_count => x_msg_count ,
1064: p_data => x_msg_data ,
1065: p_encoded => FND_API.G_FALSE );
1066: WHEN OTHERS THEN
1067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1068: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1069: FND_MSG_PUB.add_exc_msg
1070: (G_PKG_NAME ,
1071: 'Calculate');
1072: END IF;
1073: FND_MSG_PUB.count_and_get
1074: (p_count => x_msg_count ,
1075: p_data => x_msg_data ,
1076: p_encoded => FND_API.G_FALSE );
1077: END Calculate;
1078:
1079: PROCEDURE CopyBatch
1080: (p_api_version IN NUMBER,
1117: -- Standard Start of API savepoint
1118: SAVEPOINT copybatch_PVT;
1119:
1120: -- Standard call to check for call compatibility
1121: IF NOT FND_API.Compatible_API_Call
1122: (l_api_version,
1123: p_api_version,
1124: l_api_name,
1125: G_PKG_NAME)
1123: p_api_version,
1124: l_api_name,
1125: G_PKG_NAME)
1126: THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: END IF;
1129:
1130: -- Initialize message list if p_init_msg_list is set to TRUE.
1131: IF FND_API.to_Boolean( p_init_msg_list) THEN
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: END IF;
1129:
1130: -- Initialize message list if p_init_msg_list is set to TRUE.
1131: IF FND_API.to_Boolean( p_init_msg_list) THEN
1132: FND_MSG_PUB.initialize;
1133: END IF;
1134:
1135: -- Initialize API return status to success
1132: FND_MSG_PUB.initialize;
1133: END IF;
1134:
1135: -- Initialize API return status to success
1136: x_return_status := FND_API.G_RET_STS_SUCCESS;
1137:
1138:
1139: -- Body Begins.
1140: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1264: if(batch_cursor%ISOPEN) then
1265: close batch_cursor;
1266: end if;
1267:
1268: IF FND_API.To_Boolean(p_commit) THEN
1269: COMMIT WORK;
1270: END IF;
1271:
1272: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1274: 'cn.plsql.cn_calc_submission_pvt.copybatch.end',
1275: 'End of copybatch' );
1276: end if;
1277: EXCEPTION
1278: WHEN FND_API.G_EXC_ERROR THEN
1279: ROLLBACK TO copybatch_PVT;
1280: x_return_status := FND_API.G_RET_STS_ERROR ;
1281: FND_MSG_PUB.count_and_get
1282: (p_count => x_msg_count ,
1276: end if;
1277: EXCEPTION
1278: WHEN FND_API.G_EXC_ERROR THEN
1279: ROLLBACK TO copybatch_PVT;
1280: x_return_status := FND_API.G_RET_STS_ERROR ;
1281: FND_MSG_PUB.count_and_get
1282: (p_count => x_msg_count ,
1283: p_data => x_msg_data ,
1284: p_encoded => FND_API.G_FALSE );
1280: x_return_status := FND_API.G_RET_STS_ERROR ;
1281: FND_MSG_PUB.count_and_get
1282: (p_count => x_msg_count ,
1283: p_data => x_msg_data ,
1284: p_encoded => FND_API.G_FALSE );
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO copybatch_PVT;
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: FND_MSG_PUB.count_and_get
1281: FND_MSG_PUB.count_and_get
1282: (p_count => x_msg_count ,
1283: p_data => x_msg_data ,
1284: p_encoded => FND_API.G_FALSE );
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO copybatch_PVT;
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: FND_MSG_PUB.count_and_get
1289: (p_count => x_msg_count ,
1283: p_data => x_msg_data ,
1284: p_encoded => FND_API.G_FALSE );
1285: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1286: ROLLBACK TO copybatch_PVT;
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: FND_MSG_PUB.count_and_get
1289: (p_count => x_msg_count ,
1290: p_data => x_msg_data ,
1291: p_encoded => FND_API.G_FALSE );
1287: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1288: FND_MSG_PUB.count_and_get
1289: (p_count => x_msg_count ,
1290: p_data => x_msg_data ,
1291: p_encoded => FND_API.G_FALSE );
1292: WHEN OTHERS THEN
1293: ROLLBACK TO copybatch_PVT;
1294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1290: p_data => x_msg_data ,
1291: p_encoded => FND_API.G_FALSE );
1292: WHEN OTHERS THEN
1293: ROLLBACK TO copybatch_PVT;
1294: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1296: FND_MSG_PUB.add_exc_msg
1297: (G_PKG_NAME ,
1298: 'copybatch');
1299: END IF;
1300: FND_MSG_PUB.count_and_get
1301: (p_count => x_msg_count ,
1302: p_data => x_msg_data ,
1303: p_encoded => FND_API.G_FALSE );
1304:
1305: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1306: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1307: 'cn.plsql.cn_calc_submission_pvt.CopyBatch.exception',