[Home] [Help]
188: l_src_commence_dt IGS_EN_STDNT_PS_ATT.COMMENCEMENT_DT%TYPE;
189: l_course_attempt_status IGS_EN_STDNT_PS_ATT.course_attempt_status%TYPE;
190: l_discont_reason_code IGS_EN_DCNT_REASONCD.discontinuation_reason_cd%TYPE;
191: l_stdnt_ps_attempt_dtls_rec c_get_stdnt_ps_att_dtls%ROWTYPE;
192: l_key_program_flag igs_en_spa_terms.key_program_flag%TYPE := FND_API.G_MISS_CHAR;
193: l_message_name VARCHAR2(2000);
194: BEGIN
195: OPEN c_get_stdnt_ps_att_dtls;
196: FETCH c_get_stdnt_ps_att_dtls INTO l_stdnt_ps_attempt_dtls_rec;
331: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
332: igs_en_spa_terms_api.set_spa_term_cal_type(NULL);
333: igs_en_spa_terms_api.set_spa_term_sequence_number (NULL);
334: RAISE;
335: WHEN FND_API.G_EXC_ERROR THEN
336: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
337: igs_en_spa_terms_api.set_spa_term_cal_type(NULL);
338: igs_en_spa_terms_api.set_spa_term_sequence_number (NULL);
339:
447:
448: EXCEPTION
449: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
450: RAISE;
451: WHEN FND_API.G_EXC_ERROR THEN
452: RAISE;
453: WHEN OTHERS THEN
454: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
455: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.set_dest_prgm_att_params');
527:
528: EXCEPTION
529: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
530: RAISE;
531: WHEN FND_API.G_EXC_ERROR THEN
532: RAISE;
533: WHEN OTHERS THEN
534: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
535: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_src_prgm_unt_set_att');
593: END IF;
594: IF l_message_name IN ('IGS_EN_PRG_ATT_CONF_ENR','IGS_EN_CONF_IND_ONLY_BE_CHANG') THEN
595: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
596: FND_MSG_PUB.ADD;
597: RAISE FND_API.G_EXC_ERROR;
598: END IF;
599: END IF;-- end of l_val_sca_confrm_status = FALSE IF THEN
600:
601: l_val_sca_elgbl_status := IGS_EN_GEN_006.ENRP_GET_SCA_ELGBL(p_person_id,
611: 'IGS_EN_STUD_INELIGIBLE_RE_ENR','IGS_EN_STUD_NOT_HAVE_CURR_AFF',
612: 'IGS_EN_INTERM_DOES_NOT_END', 'IGS_RE_SUPERV_%_MUST_TOT_100') THEN
613: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617: END IF;-- end of l_val_sca_elgbl_status = FALSE IF THEN
618:
619: p_dest_confirmed_ind := 'Y';
621: EXCEPTION
622:
623: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
624: RAISE;
625: WHEN FND_API.G_EXC_ERROR THEN
626: RAISE;
627: WHEN OTHERS THEN
628: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
629: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.check_is_dest_prgm_actv_confrm');
689:
690: EXCEPTION
691: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
692: RAISE;
693: WHEN FND_API.G_EXC_ERROR THEN
694: RAISE;
695: WHEN OTHERS THEN
696: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
697: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.check_for_debt');
798: IF l_deny_warn = 'E' THEN
799: IF l_message_name IS NOT NULL THEN
800: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
801: FND_MSG_PUB.ADD;
802: p_return_status := FND_API.G_RET_STS_ERROR;
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: END IF;-- end of l_deny_warn = 'E' IF THEN
806:
799: IF l_message_name IS NOT NULL THEN
800: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
801: FND_MSG_PUB.ADD;
802: p_return_status := FND_API.G_RET_STS_ERROR;
803: RAISE FND_API.G_EXC_ERROR;
804: END IF;
805: END IF;-- end of l_deny_warn = 'E' IF THEN
806:
807:
808:
809: EXCEPTION
810: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
811: RAISE;
812: WHEN FND_API.G_EXC_ERROR THEN
813: RAISE;
814: WHEN OTHERS THEN
815: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
816: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.check_for_holds');
890: END;
891: EXCEPTION
892: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
893: RAISE;
894: WHEN FND_API.G_EXC_ERROR THEN
895: RAISE;
896: WHEN OTHERS THEN
897: Fnd_Message.Set_Name('IGS', 'IGS_GE_UNHANDLED_EXP');
898: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.enrp_val_excld_unit_pt');
930:
931: IF p_dest_fut_dt_trans_flag = 'Y' THEN
932: -- delete the global table before populating it
933:
934: l_key_program_flag := FND_API.G_MISS_CHAR;
935: IF p_key_program_flag = 'Y' THEN
936: l_key_program_flag := p_key_program_flag;
937: END IF;
938: igs_en_spa_terms_api.create_update_term_rec(p_person_id => p_person_id,
950:
951: EXCEPTION
952: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
953: RAISE;
954: WHEN FND_API.G_EXC_ERROR THEN
955: RAISE;
956: WHEN OTHERS THEN
957: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
958: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.upd_or_create_dest_term_rec');
1063:
1064: EXCEPTION
1065: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
1066: RAISE;
1067: WHEN FND_API.G_EXC_ERROR THEN
1068: RAISE;
1069: WHEN OTHERS THEN
1070: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1071: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.getunits_in_src_notin_dest_prg');
1130:
1131: EXCEPTION
1132: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
1133: RAISE;
1134: WHEN FND_API.G_EXC_ERROR THEN
1135: RAISE;
1136: WHEN OTHERS THEN
1137: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1138: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.val_unchk_sub_units');
1229: IF NOT l_personsteps_vald_status AND l_deny_warn = 'DENY' THEN
1230:
1231: IF l_message_name IS NOT NULL AND p_show_warning = 'Y' THEN
1232: parse_messages( l_message_name );
1233: p_return_status := FND_API.G_RET_STS_ERROR;
1234: END IF;
1235:
1236: IF l_message_name IS NOT NULL AND p_show_warning = 'N' THEN
1237: parse_messages( l_message_name );
1234: END IF;
1235:
1236: IF l_message_name IS NOT NULL AND p_show_warning = 'N' THEN
1237: parse_messages( l_message_name );
1238: p_return_status := FND_API.G_RET_STS_ERROR;
1239: RAISE FND_API.G_EXC_ERROR;
1240: END IF;
1241:
1242: END IF; -- end of l_personsteps_vald_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
1235:
1236: IF l_message_name IS NOT NULL AND p_show_warning = 'N' THEN
1237: parse_messages( l_message_name );
1238: p_return_status := FND_API.G_RET_STS_ERROR;
1239: RAISE FND_API.G_EXC_ERROR;
1240: END IF;
1241:
1242: END IF; -- end of l_personsteps_vald_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
1243:
1244:
1245: EXCEPTION
1246: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
1247: RAISE;
1248: WHEN FND_API.G_EXC_ERROR THEN
1249: RAISE;
1250: WHEN OTHERS THEN
1251: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
1252: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_person_steps');
1297:
1298: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'Y') THEN
1299: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1300: FND_MSG_PUB.ADD;
1301: p_return_status := FND_API.G_RET_STS_ERROR;
1302: END IF;
1303:
1304: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'N') THEN
1305: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1303:
1304: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'N') THEN
1305: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1306: FND_MSG_PUB.ADD;
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1310: l_candidacy_tran_status := IGS_EN_INS_CA_TRNSFR.enrp_ins_ca_trnsfr(p_person_id,
1311: p_dest_program_cd,
1318:
1319: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'Y') THEN
1320: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1321: FND_MSG_PUB.ADD;
1322: p_return_status := FND_API.G_RET_STS_ERROR;
1323: END IF;
1324:
1325: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'N') THEN
1326: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1324:
1325: IF (l_candidacy_tran_status = FALSE AND p_show_warning = 'N') THEN
1326: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1327: FND_MSG_PUB.ADD;
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1330:
1331: l_res_elgbl_status := IGS_EN_VAL_SCA.enrp_val_res_elgbl(p_person_id,
1332: p_dest_program_cd,
1336: IF (l_elgbl_message_name IS NOT NULL AND p_show_warning = 'Y') THEN
1337: IF l_elgbl_message_name NOT IN ('IGS_RE_SUPERV_%_MUST_TOT_100') THEN
1338: FND_MESSAGE.SET_NAME( 'IGS' , l_elgbl_message_name);
1339: FND_MSG_PUB.ADD;
1340: p_return_status := FND_API.G_RET_STS_ERROR;
1341: END IF;
1342: END IF;
1343:
1344:
1345: IF (l_elgbl_message_name IS NOT NULL AND p_show_warning = 'N') THEN
1346: IF l_elgbl_message_name NOT IN ('IGS_RE_SUPERV_%_MUST_TOT_100') THEN
1347: FND_MESSAGE.SET_NAME( 'IGS' , l_elgbl_message_name);
1348: FND_MSG_PUB.ADD;
1349: RAISE FND_API.G_EXC_ERROR;
1350: END IF;
1351: END IF;
1352:
1353: EXCEPTION
1352:
1353: EXCEPTION
1354: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
1355: RAISE;
1356: WHEN FND_API.G_EXC_ERROR THEN
1357: RAISE;
1358: WHEN OTHERS THEN
1359: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
1360: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_candidacy_tran_dtls');
1422:
1423: EXCEPTION
1424: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
1425: RAISE;
1426: WHEN FND_API.G_EXC_ERROR THEN
1427: RAISE;
1428: WHEN OTHERS THEN
1429: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXP');
1430: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_advance_st_tran_dtls');
1686: FND_MSG_PUB.ADD;
1687: END IF;-- end of NOT l_error_occured IF THEN
1688: FND_MESSAGE.SET_NAME( 'IGS' , l_return_message);
1689: FND_MSG_PUB.ADD;
1690: p_return_status := FND_API.G_RET_STS_ERROR;
1691: END IF;
1692: IF p_show_warning = 'N' THEN
1693: IF NOT l_error_occured THEN
1694: l_error_occured := TRUE;
1705: FND_MSG_PUB.ADD;
1706: END IF;-- end of NOT l_error_occured IF THEN
1707: FND_MESSAGE.SET_NAME( 'IGS' , l_return_message);
1708: FND_MSG_PUB.ADD;
1709: RAISE FND_API.G_EXC_ERROR;
1710: END IF;
1711:
1712: ELSE
1713:
1882: FND_MSG_PUB.ADD;
1883: END IF;-- end of NOT l_error_occured IF THEN
1884: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1885: FND_MSG_PUB.ADD;
1886: p_return_status := FND_API.G_RET_STS_ERROR;
1887: END IF;
1888: IF p_show_warning = 'N' THEN
1889: IF NOT l_error_occured THEN
1890: l_error_occured := TRUE;
1901: FND_MSG_PUB.ADD;
1902: END IF;-- end of NOT l_error_occured IF THEN
1903: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1904: FND_MSG_PUB.ADD;
1905: RAISE FND_API.G_EXC_ERROR;
1906: END IF;
1907:
1908: ELSE -- if l_sua_trans_status THEN
1909:
1938: FND_MSG_PUB.ADD;
1939: END IF;-- end of NOT l_error_occured IF THEN
1940: FND_MESSAGE.SET_NAME( 'IGS' ,nvl(l_message_name1,l_message_name2));
1941: FND_MSG_PUB.ADD;
1942: p_return_status := FND_API.G_RET_STS_ERROR;
1943: ELSIF p_show_warning = 'N' THEN
1944: IF NOT l_error_occured THEN
1945: l_error_occured := TRUE;
1946: IF p_uoo_ids_having_errors IS NULL THEN
1956: FND_MSG_PUB.ADD;
1957: END IF;-- end of NOT l_error_occured IF THEN
1958: FND_MESSAGE.SET_NAME( 'IGS' ,nvl(l_message_name1,l_message_name2));
1959: FND_MSG_PUB.ADD;
1960: RAISE FND_API.G_EXC_ERROR;
1961: END IF; -- end of p_show_warning = 'Y'
1962:
1963: END IF; -- end of NOT l_sua_confrm_status IF THEN
1964:
2004: IF l_del_all_sua_status = FALSE THEN
2005: IF p_show_warning = 'Y' THEN
2006: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2007: FND_MSG_PUB.ADD;
2008: p_return_status := FND_API.G_RET_STS_ERROR;
2009: END IF;
2010: IF p_show_warning = 'N' THEN
2011: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2012: FND_MSG_PUB.ADD;
2009: END IF;
2010: IF p_show_warning = 'N' THEN
2011: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2012: FND_MSG_PUB.ADD;
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF;
2015:
2016: END IF; -- end of l_del_all_sua_status = FALSE
2017:
2019:
2020: EXCEPTION
2021: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
2022: RAISE;
2023: WHEN FND_API.G_EXC_ERROR THEN
2024: RAISE;
2025: WHEN OTHERS THEN
2026: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
2027: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_src_prgm_unt_attempts');
2156:
2157: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2158: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2159: FND_MSG_PUB.ADD;
2160: p_return_status := FND_API.G_RET_STS_ERROR;
2161: END IF;
2162:
2163: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2164: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2162:
2163: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2164: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2165: FND_MSG_PUB.ADD;
2166: p_return_status := FND_API.G_RET_STS_ERROR;
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169:
2170: END IF; -- show warning/error message when rule failed in deny
2163: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2164: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2165: FND_MSG_PUB.ADD;
2166: p_return_status := FND_API.G_RET_STS_ERROR;
2167: RAISE FND_API.G_EXC_ERROR;
2168: END IF;
2169:
2170: END IF; -- show warning/error message when rule failed in deny
2171:
2229:
2230: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2231: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2232: FND_MSG_PUB.ADD;
2233: p_return_status := FND_API.G_RET_STS_ERROR;
2234: END IF;
2235:
2236: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2237: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2235:
2236: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2237: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2238: FND_MSG_PUB.ADD;
2239: p_return_status := FND_API.G_RET_STS_ERROR;
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242:
2243: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
2236: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2237: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2238: FND_MSG_PUB.ADD;
2239: p_return_status := FND_API.G_RET_STS_ERROR;
2240: RAISE FND_API.G_EXC_ERROR;
2241: END IF;
2242:
2243: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
2244:
2307:
2308: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2309: -- l_message_name2 contains appended message names, hence parse and add to fnd_message pub
2310: parse_messages( l_message_name2);
2311: p_return_status := FND_API.G_RET_STS_ERROR;
2312: END IF;
2313:
2314: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2315: -- l_message_name2 contains appended message names, hence parse and add to fnd_message pub
2313:
2314: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2315: -- l_message_name2 contains appended message names, hence parse and add to fnd_message pub
2316: parse_messages( l_message_name2);
2317: p_return_status := FND_API.G_RET_STS_ERROR;
2318: RAISE FND_API.G_EXC_ERROR;
2319: END IF;
2320:
2321: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
2314: IF l_message_name2 IS NOT NULL AND p_show_warning = 'N' THEN
2315: -- l_message_name2 contains appended message names, hence parse and add to fnd_message pub
2316: parse_messages( l_message_name2);
2317: p_return_status := FND_API.G_RET_STS_ERROR;
2318: RAISE FND_API.G_EXC_ERROR;
2319: END IF;
2320:
2321: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'DENY' IF THEN
2322:
2329:
2330: EXCEPTION
2331: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
2332: RAISE;
2333: WHEN FND_API.G_EXC_ERROR THEN
2334: RAISE;
2335: WHEN OTHERS THEN
2336: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
2337: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_prgm_attend_type_step');
2496: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2497: FND_MSG_PUB.ADD;
2498: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2499: FND_MSG_PUB.ADD;
2500: RAISE FND_API.G_EXC_ERROR;
2501: ELSIF (p_show_warning = 'Y' ) THEN
2502: -- if error occured for the first time for this unit set then log the heading and
2503: -- increment the count and append to out param. Ignore this logic when further errors occur
2504: IF NOT l_error_occured THEN
2515: FND_MSG_PUB.ADD;
2516: END IF;
2517: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2518: FND_MSG_PUB.ADD;
2519: p_return_status := FND_API.G_RET_STS_ERROR;
2520: l_val_susa_tran := FALSE;
2521:
2522: END IF;-- end of l_message_name IN IF THEN
2523:
2563: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2564: FND_MSG_PUB.ADD;
2565: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2566: FND_MSG_PUB.ADD;
2567: RAISE FND_API.G_EXC_ERROR;
2568: ELSIF (p_show_warning = 'Y' ) THEN
2569: -- if error occured for the first time for this unit set then log the heading and
2570: -- increment the count and append to out param. Ignore this logic when further errors occur
2571: IF NOT l_error_occured THEN
2582: FND_MSG_PUB.ADD;
2583: END IF;
2584: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2585: FND_MSG_PUB.ADD;
2586: p_return_status := FND_API.G_RET_STS_ERROR;
2587: END IF;-- end of p_show_warning = 'N' IF THEN
2588:
2589: END IF;-- END OF l_message_name
2590:
2626: IF l_message_name2 IS NOT NULL THEN
2627: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2628: FND_MSG_PUB.ADD;
2629: END IF;
2630: RAISE FND_API.G_EXC_ERROR;
2631: ELSIF (p_show_warning = 'Y' ) THEN
2632: -- if error occured for the first time for this unit set then log the heading and
2633: -- increment the count and append to out param. Ignore this logic when further errors occur
2634: IF NOT l_error_occured THEN
2649: IF l_message_name2 IS NOT NULL THEN
2650: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2651: FND_MSG_PUB.ADD;
2652: END IF;
2653: p_return_status := FND_API.G_RET_STS_ERROR;
2654: END IF;-- end of p_show_warning = 'N' IF THEN
2655:
2656: ELSIF (l_susa_cousr_status = TRUE ) THEN
2657: l_status := IGS_EN_VAL_SUSA.enrp_val_susa_parent(p_person_id,
2686: IF l_message_name2 IS NOT NULL THEN
2687: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name4);
2688: FND_MSG_PUB.ADD;
2689: END IF;
2690: RAISE FND_API.G_EXC_ERROR;
2691: ELSIF (p_show_warning = 'Y' ) THEN
2692: -- if error occured for the first time for this unit set then log the heading and
2693: -- increment the count and append to out param. Ignore this logic when further errors occur
2694: IF NOT l_error_occured THEN
2710: IF l_message_name2 IS NOT NULL THEN
2711: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name4);
2712: FND_MSG_PUB.ADD;
2713: END IF;
2714: p_return_status := FND_API.G_RET_STS_ERROR;
2715: END IF;-- end of p_show_warning = 'Y' IF THEN
2716:
2717: END IF;-- end of l_status = FALSE
2718:
2731:
2732: EXCEPTION
2733: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
2734: RAISE;
2735: WHEN FND_API.G_EXC_ERROR THEN
2736: RAISE;
2737: WHEN OTHERS THEN
2738: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
2739: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.validate_src_prgm_unt_set_att');
2840: FND_MESSAGE.SET_NAME('IGS',l_message_name);
2841: FND_MSG_PUB.ADD;
2842: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_UNABLE_DISCONT_FROM');
2843: FND_MSG_PUB.ADD;
2844: RAISE FND_API.G_EXC_ERROR;
2845: END IF;
2846: ELSIF p_discontinue_source = 'N' AND p_dest_fut_dt_trans_flag = 'S' THEN
2847: -- if source is key then make it non key because destination is already being made key in this case
2848: IF l_stdnt_ps_attempt_dtls_rec.key_program = 'Y' THEN
2968: EXCEPTION
2969: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
2970: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
2971: RAISE;
2972: WHEN FND_API.G_EXC_ERROR THEN
2973: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
2974: RAISE;
2975: WHEN OTHERS THEN
2976: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
3147: l_career_model_enabled := TRUE;
3148: ELSE
3149: l_career_model_enabled := FALSE;
3150: END IF;
3151: p_return_status := FND_API.G_RET_STS_SUCCESS;
3152: -- getting student confirmed indicator for source program
3153: OPEN c_get_std_course_ind_of_src(p_person_id,p_source_program_cd);
3154: FETCH c_get_std_course_ind_of_src INTO l_src_std_confrm_ind, l_src_primary_prg_type;
3155: CLOSE c_get_std_course_ind_of_src;
3156:
3157: IF l_career_model_enabled AND l_src_primary_prg_type = 'SECONDARY' THEN
3158: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_SEC_CANT_BE_SRC');
3159: FND_MSG_PUB.ADD;
3160: RAISE FND_API.G_EXC_ERROR;
3161: END IF;
3162:
3163: -- getting destination program key flag ,student confirmed
3164: -- indicator and destination commencement date values
3175: l_src_career_type);
3176: IF l_src_std_confrm_ind = 'N' AND l_tran_across_careers THEN
3177: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_UN_SRC_ONLY_INTRA');
3178: FND_MSG_PUB.ADD;
3179: RAISE FND_API.G_EXC_ERROR;
3180: END IF;
3181: END IF;
3182:
3183: l_new_dest_key_prgm_flag := l_old_dest_key_prgm_flag;
3241: IF l_src_prg_reasearch_ind = 'N' OR l_dest_prg_reasearch_ind = 'N' THEN
3242:
3243: FND_MESSAGE.SET_NAME('IGS', 'IGS_EN_NOT_TRN_RESCAND');
3244: FND_MSG_PUB.ADD;
3245: RAISE FND_API.G_EXC_ERROR;
3246:
3247: END IF;-- end of l_src_prg_reasearch_ind = 'Y' IF THEN
3248:
3249: -- validating and transfering candidacy details
3307: 'IGS_EN_STUD_INELIGIBLE_RE_ENR','IGS_EN_STUD_NOT_HAVE_CURR_AFF',
3308: 'IGS_EN_INTERM_DOES_NOT_END') THEN
3309: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
3310: FND_MSG_PUB.ADD;
3311: RAISE FND_API.G_EXC_ERROR;
3312: END IF;
3313: l_discon_dt := NULL;
3314: l_discon_reason_code := NULL;
3315: END IF;
3425: p_term_seq_num ) THEN
3426:
3427: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_ENR_SUA_CUR_FUT_TERM');
3428: FND_MSG_PUB.ADD;
3429: RAISE FND_API.G_EXC_ERROR;
3430:
3431: END IF;
3432:
3433: END IF;
3460: p_acad_cal_type,
3461: p_acad_seq_num );
3462:
3463: -- creating term record for destination program
3464: l_key_program := FND_API.G_MISS_CHAR;
3465: IF (l_old_dest_key_prgm_flag <> l_new_dest_key_prgm_flag AND l_new_dest_key_prgm_flag = 'Y') THEN
3466: -- term api expects key_program_flag values only when key is changing to Y.
3467: l_key_program := 'Y';
3468: END IF;
3585:
3586: EXCEPTION
3587: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
3588: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3589: p_return_status := FND_API.G_RET_STS_ERROR;
3590: FND_MESSAGE.SET_ENCODED(FND_MESSAGE.GET_ENCODED());
3591: FND_MSG_PUB.ADD;
3592: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3593: p_data => p_msg_data);
3591: FND_MSG_PUB.ADD;
3592: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3593: p_data => p_msg_data);
3594: ROLLBACK TO TRANSFER_PRGM;
3595: WHEN FND_API.G_EXC_ERROR THEN
3596: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3597: p_return_status := FND_API.G_RET_STS_ERROR;
3598: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3599: p_data => p_msg_data);
3593: p_data => p_msg_data);
3594: ROLLBACK TO TRANSFER_PRGM;
3595: WHEN FND_API.G_EXC_ERROR THEN
3596: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3597: p_return_status := FND_API.G_RET_STS_ERROR;
3598: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3599: p_data => p_msg_data);
3600: ROLLBACK TO TRANSFER_PRGM;
3601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3597: p_return_status := FND_API.G_RET_STS_ERROR;
3598: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3599: p_data => p_msg_data);
3600: ROLLBACK TO TRANSFER_PRGM;
3601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3602: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3603: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3605: p_data => p_msg_data);
3599: p_data => p_msg_data);
3600: ROLLBACK TO TRANSFER_PRGM;
3601: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3602: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3603: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: FND_MSG_PUB.COUNT_AND_GET( p_count => p_msg_count,
3605: p_data => p_msg_data);
3606: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
3607: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.program_transfer_api :',SQLERRM);
3608: END IF;
3609: ROLLBACK TO TRANSFER_PRGM;
3610: WHEN OTHERS THEN
3611: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE;
3612: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3613: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3614: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,
3615: l_api_name);
3616: END IF;
3658: ELSIF l_msg_count > 1 THEN
3659: FOR l_index IN 1..NVL(l_msg_count,0)
3660: LOOP
3661: FND_MSG_PUB.GET(FND_MSG_PUB.G_FIRST,
3662: FND_API.G_TRUE,
3663: l_enc_msg,
3664: l_msg_index);
3665: FND_MESSAGE.SET_ENCODED(l_enc_msg);
3666: l_msg_text := FND_MESSAGE.GET;