345: l_status
346: )
347: || l_dyn_std_to_add;
348: --
349: IF l_status <> fnd_api.g_ret_sts_success THEN
350: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
351: fnd_msg_pub.ADD;
352: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
353: RAISE fnd_api.g_exc_error;
349: IF l_status <> fnd_api.g_ret_sts_success THEN
350: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
351: fnd_msg_pub.ADD;
352: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
353: RAISE fnd_api.g_exc_error;
354: END IF;
355: --
356: OPEN cur_std_to_add FOR l_dyn_std_to_add USING grp_rec.group_name;
357: ELSE
390: );
391: --
392: -- To do error handling...
393: --
394: IF (lvReturnStatus <> fnd_api.g_ret_sts_success) THEN
395: retcode := 2;
396: IF (lnMsgCount = 1) THEN
397: errbuf := lvMsgData;
398: ELSE
395: retcode := 2;
396: IF (lnMsgCount = 1) THEN
397: errbuf := lvMsgData;
398: ELSE
399: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
400: END IF;
401: RAISE fnd_api.g_exc_error;
402: END IF;
403: END LOOP; -- for cur_std_to_add
397: errbuf := lvMsgData;
398: ELSE
399: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
400: END IF;
401: RAISE fnd_api.g_exc_error;
402: END IF;
403: END LOOP; -- for cur_std_to_add
404: CLOSE cur_std_to_add;
405:
416: l_status
417: )
418: || l_dyn_std_to_upd;
419: --
420: IF l_status <> fnd_api.g_ret_sts_success THEN
421: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
422: fnd_msg_pub.ADD;
423: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
424: RAISE fnd_api.g_exc_error;
420: IF l_status <> fnd_api.g_ret_sts_success THEN
421: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
422: fnd_msg_pub.ADD;
423: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
424: RAISE fnd_api.g_exc_error;
425: END IF;
426: OPEN cur_std_to_add FOR l_dyn_std_to_upd USING grp_rec.group_name;
427: ELSE
428: OPEN cur_std_to_add FOR l_stc_std_to_upd
460: CLOSE cur_stdt_to_be_updated;
461: --
462: -- To do error handling...
463: --
464: IF (lvReturnStatus <> fnd_api.g_ret_sts_success) THEN
465: retcode := 2;
466: IF (lnMsgCount = 1) THEN
467: errbuf := lvMsgData;
468: ELSE
465: retcode := 2;
466: IF (lnMsgCount = 1) THEN
467: errbuf := lvMsgData;
468: ELSE
469: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
470: END IF;
471: RAISE fnd_api.g_exc_error;
472: END IF;
473:
467: errbuf := lvMsgData;
468: ELSE
469: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
470: END IF;
471: RAISE fnd_api.g_exc_error;
472: END IF;
473:
474: END LOOP;
475: CLOSE cur_std_to_add;
493: grp_rec.advisor_group_id,
494: l_status
495: )
496: || l_dyn_adv_to_add;
497: IF l_status <> fnd_api.g_ret_sts_success THEN
498: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
499: fnd_msg_pub.ADD;
500: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
501: RAISE fnd_api.g_exc_error;
497: IF l_status <> fnd_api.g_ret_sts_success THEN
498: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
499: fnd_msg_pub.ADD;
500: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
501: RAISE fnd_api.g_exc_error;
502: END IF;
503: OPEN cur_adv_to_add FOR l_dyn_adv_to_add USING grp_rec.group_name;
504: ELSE
505: OPEN cur_adv_to_add FOR l_stc_adv_to_add
535: );
536: --
537: -- To do Error handling
538: --
539: IF lvReturnStatus <> fnd_api.g_ret_sts_success THEN
540: retcode := 2;
541: IF lnMsgCount = 1 THEN
542: errbuf := lvMsgData;
543: ELSE
540: retcode := 2;
541: IF lnMsgCount = 1 THEN
542: errbuf := lvMsgData;
543: ELSE
544: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
545: END IF;
546: RAISE fnd_api.g_exc_error;
547: END IF;
548: END LOOP; --cur_adv_to_add
542: errbuf := lvMsgData;
543: ELSE
544: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
545: END IF;
546: RAISE fnd_api.g_exc_error;
547: END IF;
548: END LOOP; --cur_adv_to_add
549:
550: CLOSE cur_adv_to_add;
559: grp_rec.advisor_group_id,
560: l_status
561: )
562: || l_dyn_adv_to_upd;
563: IF l_status <> fnd_api.g_ret_sts_success THEN
564: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
565: fnd_msg_pub.ADD;
566: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
567: RAISE fnd_api.g_exc_error;
563: IF l_status <> fnd_api.g_ret_sts_success THEN
564: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
565: fnd_msg_pub.ADD;
566: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
567: RAISE fnd_api.g_exc_error;
568: END IF;
569: OPEN cur_adv_to_add FOR l_dyn_adv_to_upd USING grp_rec.group_name;
570: ELSE
571: OPEN cur_adv_to_add FOR l_stc_adv_to_upd
604: CLOSE cur_advr_to_be_updated;
605: --
606: -- To do error handling...
607: --
608: IF (lvReturnStatus <> fnd_api.g_ret_sts_success) THEN
609: retcode := 2;
610: IF (lnMsgCount = 1) THEN
611: errbuf := lvMsgData;
612: ELSE
609: retcode := 2;
610: IF (lnMsgCount = 1) THEN
611: errbuf := lvMsgData;
612: ELSE
613: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
614: END IF;
615: RAISE fnd_api.g_exc_error;
616: END IF;
617:
611: errbuf := lvMsgData;
612: ELSE
613: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
614: END IF;
615: RAISE fnd_api.g_exc_error;
616: END IF;
617:
618: END LOOP;
619: CLOSE cur_adv_to_add;
637: || igs_pe_dynamic_persid_group.igs_get_dynamic_sql (
638: grp_rec.student_group_id,
639: l_status
640: );
641: IF l_status <> fnd_api.g_ret_sts_success THEN
642: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
643: fnd_msg_pub.ADD;
644: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
645: RAISE fnd_api.g_exc_error;
641: IF l_status <> fnd_api.g_ret_sts_success THEN
642: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
643: fnd_msg_pub.ADD;
644: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
645: RAISE fnd_api.g_exc_error;
646: END IF;
647: OPEN cur_std_to_del FOR l_dyn_std_to_del USING grp_rec.group_name;
648: ELSE
649: OPEN cur_std_to_del FOR l_stc_std_to_del
680: || igs_pe_dynamic_persid_group.igs_get_dynamic_sql (
681: grp_rec.advisor_group_id,
682: l_status
683: );
684: IF l_status <> fnd_api.g_ret_sts_success THEN
685: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
686: fnd_msg_pub.ADD;
687: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
688: RAISE fnd_api.g_exc_error;
684: IF l_status <> fnd_api.g_ret_sts_success THEN
685: fnd_message.set_name ('IGS', 'IGS_AZ_DYN_PERS_ID_GRP_ERR');
686: fnd_msg_pub.ADD;
687: fnd_file.put_line (fnd_file.LOG, fnd_message.get);
688: RAISE fnd_api.g_exc_error;
689: END IF;
690: OPEN cur_adv_to_del FOR l_dyn_adv_to_del USING grp_rec.group_name;
691: ELSE
692: OPEN cur_adv_to_del FOR l_stc_adv_to_del
841: fnd_file.put_line (fnd_file.log, fnd_message.get);
842: fnd_file.put_line (fnd_file.log, '');
843: --
844: EXCEPTION
845: WHEN fnd_api.g_exc_error THEN
846: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
847: retcode := 2;
848: ROLLBACK TO s_maintain_groups;
849: --
842: fnd_file.put_line (fnd_file.log, '');
843: --
844: EXCEPTION
845: WHEN fnd_api.g_exc_error THEN
846: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
847: retcode := 2;
848: ROLLBACK TO s_maintain_groups;
849: --
850: WHEN OTHERS THEN
848: ROLLBACK TO s_maintain_groups;
849: --
850: WHEN OTHERS THEN
851: retcode := 2;
852: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
853: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
854: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.Maintain_group : ' || SUBSTR (SQLERRM, 80));
855: fnd_msg_pub.add;
856: fnd_msg_pub.count_and_get(
853: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
854: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.Maintain_group : ' || SUBSTR (SQLERRM, 80));
855: fnd_msg_pub.add;
856: fnd_msg_pub.count_and_get(
857: p_encoded => fnd_api.g_false,
858: p_count => lnMsgCount,
859: p_data => lvMsgData
860: );
861: ROLLBACK TO s_maintain_groups ;
1341: END IF;
1342: EXCEPTION
1343: WHEN OTHERS THEN
1344: retcode := 2;
1345: errbuf := fnd_msg_pub.get (fnd_msg_pub.g_last, fnd_api.g_false);
1346: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
1347: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.Apply_hold : ' || SUBSTR (SQLERRM, 80));
1348: fnd_msg_pub.add;
1349: fnd_msg_pub.count_and_get (
1346: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
1347: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.Apply_hold : ' || SUBSTR (SQLERRM, 80));
1348: fnd_msg_pub.add;
1349: fnd_msg_pub.count_and_get (
1350: p_encoded => fnd_api.g_false,
1351: p_count => lnMsgCount,
1352: p_data => lvMsgData
1353: );
1354: RETURN;
1795: END IF; -- Some student selected for group add notification.
1796: EXCEPTION
1797: WHEN OTHERS THEN
1798: retcode := 2;
1799: errbuf := fnd_msg_pub.get(fnd_msg_pub.g_last, fnd_api.g_false);
1800: fnd_message.set_name('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
1801: fnd_message.set_token(
1802: 'NAME',
1803: 'IGS_AZ_GEN_001.send_notification : ' || SUBSTR(SQLERRM, 80));
1802: 'NAME',
1803: 'IGS_AZ_GEN_001.send_notification : ' || SUBSTR(SQLERRM, 80));
1804: fnd_msg_pub.ADD;
1805: fnd_msg_pub.count_and_get(
1806: p_encoded => fnd_api.g_false,
1807: p_count => lnMsgCount,
1808: p_data => lvMsgData);
1809: RAISE;
1810: END send_notification;
1917: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
1918: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.notify_person : ' || SUBSTR(SQLERRM, 80));
1919: fnd_msg_pub.ADD;
1920: fnd_msg_pub.count_and_get (
1921: p_encoded => fnd_api.g_false,
1922: p_count => lnMsgCount,
1923: p_data => lvMsgData
1924: );
1925: RAISE;
2095: fnd_message.set_name ('IGS', 'IGS_GE_UNHANDLED_EXCEPTION');
2096: fnd_message.set_token ('NAME', 'IGS_AZ_GEN_001.Mainatin_group : ' || SUBSTR (SQLERRM, 80));
2097: fnd_msg_pub.ADD;
2098: fnd_msg_pub.count_and_get (
2099: p_encoded => fnd_api.g_false,
2100: p_count => lnMsgCount,
2101: p_data => lvMsgData
2102: );
2103: RETURN;