[Home] [Help]
83:
84: IF l_messg_and_unitcd_sep <> 0 THEN
85: l_unit_cd := substr(l_message_name,l_messg_and_unitcd_sep + 1,(l_cindex_msg-l_messg_and_unitcd_sep-1));
86: l_message_name := substr(l_message_name,1,l_messg_and_unitcd_sep - 1);
87: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
88: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_cd);
89: FND_MSG_PUB.ADD;
90: ELSE
91: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
84: IF l_messg_and_unitcd_sep <> 0 THEN
85: l_unit_cd := substr(l_message_name,l_messg_and_unitcd_sep + 1,(l_cindex_msg-l_messg_and_unitcd_sep-1));
86: l_message_name := substr(l_message_name,1,l_messg_and_unitcd_sep - 1);
87: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
88: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_cd);
89: FND_MSG_PUB.ADD;
90: ELSE
91: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
92: FND_MSG_PUB.ADD;
87: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
88: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_cd);
89: FND_MSG_PUB.ADD;
90: ELSE
91: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
92: FND_MSG_PUB.ADD;
93: END IF;
94:
95: l_nth_occurence_msg := l_nth_occurence_msg + 1;
342: --allow calls before dml and after dml to this package from igs_en_stdnt_ps_att_pkg to fire
343: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
344: igs_en_spa_terms_api.set_spa_term_cal_type(NULL);
345: igs_en_spa_terms_api.set_spa_term_sequence_number (NULL);
346: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
347: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.update_destination_prgm');
348: IGS_GE_MSG_STACK.ADD;
349: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
350: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.update_destination_prgm :',SQLERRM);
343: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
344: igs_en_spa_terms_api.set_spa_term_cal_type(NULL);
345: igs_en_spa_terms_api.set_spa_term_sequence_number (NULL);
346: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
347: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.update_destination_prgm');
348: IGS_GE_MSG_STACK.ADD;
349: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
350: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.update_destination_prgm :',SQLERRM);
351: END IF;
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');
456: IGS_GE_MSG_STACK.ADD;
457: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
458: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.set_dest_prgm_att_params :',SQLERRM);
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');
456: IGS_GE_MSG_STACK.ADD;
457: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
458: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.set_dest_prgm_att_params :',SQLERRM);
459: END IF;
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');
536: IGS_GE_MSG_STACK.ADD;
537: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
538: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.create_prgm_admin_record :',SQLERRM);
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');
536: IGS_GE_MSG_STACK.ADD;
537: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
538: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.create_prgm_admin_record :',SQLERRM);
539: END IF;
587: l_dest_sca_rec.course_attempt_status,
588: l_message_name);
589: IF l_val_sca_confrm_status = FALSE THEN
590: IF l_message_name IN ('IGS_EN_ASSOCIATE_ADMPRG_APPL') AND p_show_warning = 'Y' THEN
591: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
592: FND_MSG_PUB.ADD;
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);
591: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
592: FND_MSG_PUB.ADD;
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
609: IF l_val_sca_elgbl_status = FALSE THEN
610: IF l_message_name1 NOT IN ('IGS_EN_STUD_INELIG_TO_RE_ENR','IGS_EN_INELIGBLE_DUE_TO_LAPSE',
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
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');
630: IGS_GE_MSG_STACK.ADD;
631: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
632: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_is_dest_prgm_actv_confrm :',SQLERRM);
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');
630: IGS_GE_MSG_STACK.ADD;
631: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
632: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_is_dest_prgm_actv_confrm :',SQLERRM);
633: END IF;
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');
698: IGS_GE_MSG_STACK.ADD;
699: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
700: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_for_debt :',SQLERRM);
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');
698: IGS_GE_MSG_STACK.ADD;
699: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
700: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_for_debt :',SQLERRM);
701: END IF;
747: IF l_hold_status = FALSE THEN
748:
749: IF p_show_warning = 'Y' THEN
750:
751: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_NOTTRNS_NOMINATED_PRG');
752: FND_MSG_PUB.ADD;
753: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PERS_ENCUMB_SYS');
754: FND_MSG_PUB.ADD;
755: END IF;
749: IF p_show_warning = 'Y' THEN
750:
751: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_NOTTRNS_NOMINATED_PRG');
752: FND_MSG_PUB.ADD;
753: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PERS_ENCUMB_SYS');
754: FND_MSG_PUB.ADD;
755: END IF;
756:
757: END IF;
771: IF p_show_warning = 'Y' AND (l_message_name <> NVL(v_message_name,v_message_name2)) THEN
772:
773: -- log the warning message here
774:
775: FND_MESSAGE.SET_NAME( 'IGS' ,NVL(v_message_name,v_message_name2));
776: FND_MSG_PUB.ADD;
777:
778: FND_MESSAGE.SET_NAME( 'IGS' ,'IGS_EN_PERS_ENCUMB_SYS');
779: FND_MSG_PUB.ADD;
774:
775: FND_MESSAGE.SET_NAME( 'IGS' ,NVL(v_message_name,v_message_name2));
776: FND_MSG_PUB.ADD;
777:
778: FND_MESSAGE.SET_NAME( 'IGS' ,'IGS_EN_PERS_ENCUMB_SYS');
779: FND_MSG_PUB.ADD;
780:
781: END IF;
782:
796: p_message => l_message_name);
797:
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;
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');
817: IGS_GE_MSG_STACK.ADD;
818: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
819: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_for_holds :',SQLERRM);
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');
817: IGS_GE_MSG_STACK.ADD;
818: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
819: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.check_for_holds :',SQLERRM);
820: END IF;
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');
899: IGS_GE_MSG_STACK.ADD;
900: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
901: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.enrp_val_excld_unit_pt :',SQLERRM);
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');
899: IGS_GE_MSG_STACK.ADD;
900: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
901: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.enrp_val_excld_unit_pt :',SQLERRM);
902: END IF;
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');
959: IGS_GE_MSG_STACK.ADD;
960: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
961: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.upd_or_create_dest_term_rec :',SQLERRM);
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');
959: IGS_GE_MSG_STACK.ADD;
960: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
961: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.upd_or_create_dest_term_rec :',SQLERRM);
962: END IF;
1055: END LOOP;--end of units in src Prgm Loop
1056:
1057: -- when these units are being dropped in the immediate transfer then show the message
1058: IF p_show_warning = 'Y' AND l_unchk_units_in_src IS NOT NULL AND p_drop THEN
1059: FND_MESSAGE.SET_NAME('IGS','IGS_EN_TRN_EN_WL_U_NO_SEL');
1060: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unchk_units_in_src);
1061: FND_MSG_PUB.ADD;
1062: END IF;
1063:
1056:
1057: -- when these units are being dropped in the immediate transfer then show the message
1058: IF p_show_warning = 'Y' AND l_unchk_units_in_src IS NOT NULL AND p_drop THEN
1059: FND_MESSAGE.SET_NAME('IGS','IGS_EN_TRN_EN_WL_U_NO_SEL');
1060: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unchk_units_in_src);
1061: FND_MSG_PUB.ADD;
1062: END IF;
1063:
1064: EXCEPTION
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');
1072: IGS_GE_MSG_STACK.ADD;
1073: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1074: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.getunits_in_src_notin_dest_prg :',SQLERRM);
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');
1072: IGS_GE_MSG_STACK.ADD;
1073: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1074: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.getunits_in_src_notin_dest_prg :',SQLERRM);
1075: END IF;
1123: END LOOP;
1124:
1125: -- when these units are being dropped in the immediate transfer then show the message
1126: IF p_show_warning = 'Y' AND l_sub_not_selected AND NOT p_drop THEN
1127: FND_MESSAGE.SET_NAME('IGS','IGS_EN_TRN_SUB_NO_SEL_DROP'); -- subordinates units of all superiors unit selected for transfer will be dropped.
1128: FND_MSG_PUB.ADD;
1129: END IF;
1130:
1131: EXCEPTION
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');
1139: IGS_GE_MSG_STACK.ADD;
1140: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1141: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.val_unchk_sub_units :',SQLERRM);
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');
1139: IGS_GE_MSG_STACK.ADD;
1140: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1141: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.val_unchk_sub_units :',SQLERRM);
1142: END IF;
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');
1253: IGS_GE_MSG_STACK.ADD;
1254: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1255: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_person_steps :',SQLERRM);
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');
1253: IGS_GE_MSG_STACK.ADD;
1254: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1255: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_person_steps :',SQLERRM);
1256: END IF;
1295: NULL, -- admission details does not apply
1296: l_message_name);
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:
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);
1306: FND_MSG_PUB.ADD;
1307: RAISE FND_API.G_EXC_ERROR;
1308: END IF;
1309:
1316: 'SCA',
1317: l_message_name);
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:
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);
1327: FND_MSG_PUB.ADD;
1328: RAISE FND_API.G_EXC_ERROR;
1329: END IF;
1330:
1334: l_elgbl_message_name);
1335:
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;
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');
1361: IGS_GE_MSG_STACK.ADD;
1362: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1363: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_candidacy_tran_dtls :',SQLERRM);
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');
1361: IGS_GE_MSG_STACK.ADD;
1362: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1363: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_candidacy_tran_dtls :',SQLERRM);
1364: END IF;
1415: CLOSE c_is_adv_st_exists;
1416: END IF; -- end of IF THEN ELSE
1417:
1418: IF p_show_warning = 'Y' AND l_message_name IS NOT NULL THEN
1419: FND_MESSAGE.SET_NAME( 'IGS' ,l_message_name);
1420: FND_MSG_PUB.ADD;
1421: END IF;-- end of l_message_name IF THEN
1422:
1423: EXCEPTION
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');
1431: IGS_GE_MSG_STACK.ADD;
1432: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1433: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_advance_st_tran_dtls :',SQLERRM);
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');
1431: IGS_GE_MSG_STACK.ADD;
1432: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
1433: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_advance_st_tran_dtls :',SQLERRM);
1434: END IF;
1677: p_uoo_ids_having_errors := l_uooid;
1678: ELSE
1679: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1680: END IF;
1681: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1682: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1683: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1678: ELSE
1679: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1680: END IF;
1681: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1682: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1683: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1686: FND_MSG_PUB.ADD;
1679: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1680: END IF;
1681: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1682: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1683: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1686: FND_MSG_PUB.ADD;
1687: END IF;-- end of NOT l_error_occured IF THEN
1680: END IF;
1681: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1682: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1683: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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);
1681: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1682: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1683: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1684: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1685: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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
1696: p_uoo_ids_having_errors := l_uooid;
1697: ELSE
1698: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1699: END IF;
1700: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1701: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1702: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1697: ELSE
1698: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1699: END IF;
1700: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1701: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1702: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1705: FND_MSG_PUB.ADD;
1698: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1699: END IF;
1700: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1701: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1702: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1705: FND_MSG_PUB.ADD;
1706: END IF;-- end of NOT l_error_occured IF THEN
1699: END IF;
1700: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1701: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1702: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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);
1700: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1701: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1702: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1703: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1704: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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:
1728: p_uoo_ids_having_errors := l_uooid;
1729: ELSE
1730: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1731: END IF;
1732: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1733: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1734: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1729: ELSE
1730: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1731: END IF;
1732: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1733: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1734: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1737: FND_MSG_PUB.ADD;
1730: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1731: END IF;
1732: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1733: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1734: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1737: FND_MSG_PUB.ADD;
1738: END IF;-- end of NOT l_error_occured IF THEN
1731: END IF;
1732: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1733: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1734: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1737: FND_MSG_PUB.ADD;
1738: END IF;-- end of NOT l_error_occured IF THEN
1739: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1732: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1733: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1734: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1737: FND_MSG_PUB.ADD;
1738: END IF;-- end of NOT l_error_occured IF THEN
1739: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1740: FND_MSG_PUB.ADD;
1735: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1736: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1737: FND_MSG_PUB.ADD;
1738: END IF;-- end of NOT l_error_occured IF THEN
1739: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1740: FND_MSG_PUB.ADD;
1741:
1742: -- if IGS_EN_VAL_SCT.enrp_val_sua_trnsfr validation passed then proceed
1743: ELSE
1751: p_uoo_ids_having_errors := l_uooid;
1752: ELSE
1753: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1754: END IF;
1755: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1756: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1757: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1752: ELSE
1753: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1754: END IF;
1755: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1756: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1757: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1760: FND_MSG_PUB.ADD;
1753: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1754: END IF;
1755: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1756: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1757: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1760: FND_MSG_PUB.ADD;
1761: END IF;-- end of NOT l_error_occured IF THEN
1754: END IF;
1755: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1756: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1757: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1760: FND_MSG_PUB.ADD;
1761: END IF;-- end of NOT l_error_occured IF THEN
1762: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNATT_PROCEED_TRN_UN');
1755: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1756: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1757: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1760: FND_MSG_PUB.ADD;
1761: END IF;-- end of NOT l_error_occured IF THEN
1762: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNATT_PROCEED_TRN_UN');
1763: FND_MSG_PUB.ADD;
1758: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1759: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1760: FND_MSG_PUB.ADD;
1761: END IF;-- end of NOT l_error_occured IF THEN
1762: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNATT_PROCEED_TRN_UN');
1763: FND_MSG_PUB.ADD;
1764: END IF;
1765:
1766: END IF; -- end of ('COMPLETED','DISCONTIN')
1777: NOT igs_en_gen_010.unit_effect_or_future_term(p_person_id,p_dest_program_cd,l_unit_dtls_rec.uoo_id,p_term_cal_type,p_term_seq_num) THEN
1778: -- skip current unit attempt from transfer
1779: -- show warning when unit attempt is not transfered but will be dropped. i.e in intra career transfer
1780: IF p_show_warning = 'Y' THEN
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1782: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1783: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1784: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1785: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1778: -- skip current unit attempt from transfer
1779: -- show warning when unit attempt is not transfered but will be dropped. i.e in intra career transfer
1780: IF p_show_warning = 'Y' THEN
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1782: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1783: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1784: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1785: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1786: FND_MSG_PUB.ADD;
1779: -- show warning when unit attempt is not transfered but will be dropped. i.e in intra career transfer
1780: IF p_show_warning = 'Y' THEN
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1782: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1783: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1784: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1785: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1786: FND_MSG_PUB.ADD;
1787: -- if intra career transfer, warn that unit will not be transfered and will be dropped from source
1780: IF p_show_warning = 'Y' THEN
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1782: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1783: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1784: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1785: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1786: FND_MSG_PUB.ADD;
1787: -- if intra career transfer, warn that unit will not be transfered and will be dropped from source
1788: IF is_career_model_enabled AND
1781: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1782: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1783: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1784: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1785: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1786: FND_MSG_PUB.ADD;
1787: -- if intra career transfer, warn that unit will not be transfered and will be dropped from source
1788: IF is_career_model_enabled AND
1789: NOT is_tranfer_across_careers(p_source_program_cd,p_source_prog_ver,p_dest_program_cd,p_dest_prog_ver,l_src_crs_type) THEN
1786: FND_MSG_PUB.ADD;
1787: -- if intra career transfer, warn that unit will not be transfered and will be dropped from source
1788: IF is_career_model_enabled AND
1789: NOT is_tranfer_across_careers(p_source_program_cd,p_source_prog_ver,p_dest_program_cd,p_dest_prog_ver,l_src_crs_type) THEN
1790: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PAST_UNT_NOTTRN_DRP');
1791: FND_MSG_PUB.ADD;
1792: -- if program mode or inter career transfer then warn that unit will not be transfered
1793: ELSE
1794: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PAST_UNT_NOTTRN');
1790: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PAST_UNT_NOTTRN_DRP');
1791: FND_MSG_PUB.ADD;
1792: -- if program mode or inter career transfer then warn that unit will not be transfered
1793: ELSE
1794: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PAST_UNT_NOTTRN');
1795: FND_MSG_PUB.ADD;
1796: END IF;
1797: END IF;
1798: ELSE
1830: p_uoo_ids_having_errors := l_uooid;
1831: ELSE
1832: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1833: END IF;
1834: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1835: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1836: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1831: ELSE
1832: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1833: END IF;
1834: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1835: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1836: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1839: FND_MSG_PUB.ADD;
1832: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1833: END IF;
1834: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1835: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1836: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1839: FND_MSG_PUB.ADD;
1840: END IF;-- end of NOT l_error_occured IF THEN
1833: END IF;
1834: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1835: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1836: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1839: FND_MSG_PUB.ADD;
1840: END IF;-- end of NOT l_error_occured IF THEN
1841: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1834: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_UNIT_TRN');
1835: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1836: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1839: FND_MSG_PUB.ADD;
1840: END IF;-- end of NOT l_error_occured IF THEN
1841: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1842: FND_MSG_PUB.ADD;
1837: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1838: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1839: FND_MSG_PUB.ADD;
1840: END IF;-- end of NOT l_error_occured IF THEN
1841: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1842: FND_MSG_PUB.ADD;
1843: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PERS_ENCUMB_SYS');
1844: FND_MSG_PUB.ADD;
1845:
1839: FND_MSG_PUB.ADD;
1840: END IF;-- end of NOT l_error_occured IF THEN
1841: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
1842: FND_MSG_PUB.ADD;
1843: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PERS_ENCUMB_SYS');
1844: FND_MSG_PUB.ADD;
1845:
1846: END IF;
1847:
1873: p_uoo_ids_having_errors := l_uooid;
1874: ELSE
1875: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1876: END IF;
1877: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1878: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1879: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1874: ELSE
1875: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1876: END IF;
1877: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1878: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1879: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1882: FND_MSG_PUB.ADD;
1875: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1876: END IF;
1877: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1878: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1879: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1882: FND_MSG_PUB.ADD;
1883: END IF;-- end of NOT l_error_occured IF THEN
1876: END IF;
1877: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1878: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1879: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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);
1877: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1878: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1879: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1880: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1881: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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
1892: p_uoo_ids_having_errors := l_uooid;
1893: ELSE
1894: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1895: END IF;
1896: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1897: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1898: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1893: ELSE
1894: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1895: END IF;
1896: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1897: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1898: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1901: FND_MSG_PUB.ADD;
1894: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1895: END IF;
1896: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1897: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1898: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1901: FND_MSG_PUB.ADD;
1902: END IF;-- end of NOT l_error_occured IF THEN
1895: END IF;
1896: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1897: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1898: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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);
1896: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1897: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1898: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1899: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1900: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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:
1929: p_uoo_ids_having_errors := l_uooid;
1930: ELSE
1931: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1932: END IF;
1933: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1934: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1935: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1930: ELSE
1931: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1932: END IF;
1933: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1934: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1935: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1938: FND_MSG_PUB.ADD;
1931: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1932: END IF;
1933: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1934: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1935: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1938: FND_MSG_PUB.ADD;
1939: END IF;-- end of NOT l_error_occured IF THEN
1932: END IF;
1933: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1934: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1935: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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));
1933: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1934: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1935: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1936: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1937: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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
1947: p_uoo_ids_having_errors := l_uooid;
1948: ELSE
1949: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1950: END IF;
1951: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1952: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1953: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1948: ELSE
1949: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1950: END IF;
1951: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1952: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1953: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1956: FND_MSG_PUB.ADD;
1949: p_uoo_ids_having_errors := p_uoo_ids_having_errors ||','||l_uooid;
1950: END IF;
1951: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1952: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1953: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
1956: FND_MSG_PUB.ADD;
1957: END IF;-- end of NOT l_error_occured IF THEN
1950: END IF;
1951: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1952: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1953: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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));
1951: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_UNIT_TRN');
1952: FND_MESSAGE.SET_TOKEN('UNIT_CD',l_unit_dtls_rec.unit_cd);
1953: FND_MESSAGE.SET_TOKEN('LOCATION_CD',l_unit_dtls_rec.location_cd);
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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;
1954: FND_MESSAGE.SET_TOKEN('SECTION',l_unit_dtls_rec.unit_class);
1955: FND_MESSAGE.SET_TOKEN('TEACH_CAL_DESC',l_teach_cal_desc);
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:
2002: l_message_name3);
2003:
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
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;
2013: RAISE FND_API.G_EXC_ERROR;
2014: END IF;
2015:
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');
2028: IGS_GE_MSG_STACK.ADD;
2029: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2030: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_src_prgm_unt_attempts :',SQLERRM);
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');
2028: IGS_GE_MSG_STACK.ADD;
2029: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2030: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_src_prgm_unt_attempts :',SQLERRM);
2031: END IF;
2144:
2145: IF l_return_status = 'FALSE' AND l_deny_warn = 'WARN' THEN
2146:
2147: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2148: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2149: FND_MSG_PUB.ADD;
2150: END IF;
2151:
2152: END IF; -- show warning message when rule failed in warn
2154:
2155: IF l_return_status = 'FALSE' AND l_deny_warn = 'DENY' THEN
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:
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);
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;
2218:
2219: IF l_return_status = 'FALSE' AND l_deny_warn = 'WARN' THEN
2220:
2221: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2222: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2223: FND_MSG_PUB.ADD;
2224: END IF;
2225:
2226: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'WARN' IF THEN
2227:
2228: IF l_return_status = 'FALSE' AND l_deny_warn = 'DENY' THEN
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:
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);
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;
2294:
2295: IF l_return_status = 'FALSE' AND l_deny_warn = 'WARN' THEN
2296:
2297: IF l_message_name2 IS NOT NULL AND p_show_warning = 'Y' THEN
2298: -- l_message_name2 contains appended message names, hence parse and add to fnd_message pub
2299: parse_messages( l_message_name2);
2300: END IF;
2301:
2302: END IF; -- end of l_return_status = 'FALSE' AND l_deny_warn = 'WARN' IF THEN
2305:
2306: IF l_return_status = 'FALSE' AND l_deny_warn = 'DENY' THEN
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:
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
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;
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');
2338: IGS_GE_MSG_STACK.ADD;
2339: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2340: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_prgm_attend_type_step :',SQLERRM);
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');
2338: IGS_GE_MSG_STACK.ADD;
2339: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2340: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_prgm_attend_type_step :',SQLERRM);
2341: END IF;
2490: ELSE
2491: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2492: END IF;
2493: l_unitset_append_count := l_unitset_append_count + 1;
2494: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2495: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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);
2491: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2492: END IF;
2493: l_unitset_append_count := l_unitset_append_count + 1;
2494: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2495: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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;
2492: END IF;
2493: l_unitset_append_count := l_unitset_append_count + 1;
2494: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2495: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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;
2494: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2495: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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
2508: ELSE
2509: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2510: END IF;
2511: l_unitset_append_count := l_unitset_append_count + 1;
2512: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2513: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2514: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2515: FND_MSG_PUB.ADD;
2516: END IF;
2509: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2510: END IF;
2511: l_unitset_append_count := l_unitset_append_count + 1;
2512: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2513: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2514: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2515: FND_MSG_PUB.ADD;
2516: END IF;
2517: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2510: END IF;
2511: l_unitset_append_count := l_unitset_append_count + 1;
2512: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2513: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2514: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2515: FND_MSG_PUB.ADD;
2516: END IF;
2517: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2518: FND_MSG_PUB.ADD;
2513: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2514: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
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:
2557: ELSE
2558: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2559: END IF;
2560: l_unitset_append_count := l_unitset_append_count + 1;
2561: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2562: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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);
2558: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2559: END IF;
2560: l_unitset_append_count := l_unitset_append_count + 1;
2561: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2562: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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;
2559: END IF;
2560: l_unitset_append_count := l_unitset_append_count + 1;
2561: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2562: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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;
2561: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2562: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
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
2575: ELSE
2576: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2577: END IF;
2578: l_unitset_append_count := l_unitset_append_count + 1;
2579: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2580: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2581: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2582: FND_MSG_PUB.ADD;
2583: END IF;
2576: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2577: END IF;
2578: l_unitset_append_count := l_unitset_append_count + 1;
2579: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2580: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2581: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2582: FND_MSG_PUB.ADD;
2583: END IF;
2584: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2577: END IF;
2578: l_unitset_append_count := l_unitset_append_count + 1;
2579: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2580: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2581: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2582: FND_MSG_PUB.ADD;
2583: END IF;
2584: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name);
2585: FND_MSG_PUB.ADD;
2580: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2581: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
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:
2616: ELSE
2617: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2618: END IF;
2619: l_unitset_append_count := l_unitset_append_count + 1;
2620: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2621: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2622: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2623: FND_MSG_PUB.ADD;
2624: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2617: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2618: END IF;
2619: l_unitset_append_count := l_unitset_append_count + 1;
2620: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2621: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2622: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2623: FND_MSG_PUB.ADD;
2624: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2625: FND_MSG_PUB.ADD;
2618: END IF;
2619: l_unitset_append_count := l_unitset_append_count + 1;
2620: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2621: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2622: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2623: FND_MSG_PUB.ADD;
2624: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2625: FND_MSG_PUB.ADD;
2626: IF l_message_name2 IS NOT NULL THEN
2620: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2621: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2622: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2623: FND_MSG_PUB.ADD;
2624: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2625: FND_MSG_PUB.ADD;
2626: IF l_message_name2 IS NOT NULL THEN
2627: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2628: FND_MSG_PUB.ADD;
2623: FND_MSG_PUB.ADD;
2624: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2625: FND_MSG_PUB.ADD;
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
2638: ELSE
2639: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2640: END IF;
2641: l_unitset_append_count := l_unitset_append_count + 1;
2642: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2643: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2644: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2645: FND_MSG_PUB.ADD;
2646: END IF;
2639: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2640: END IF;
2641: l_unitset_append_count := l_unitset_append_count + 1;
2642: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2643: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2644: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2645: FND_MSG_PUB.ADD;
2646: END IF;
2647: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2640: END IF;
2641: l_unitset_append_count := l_unitset_append_count + 1;
2642: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2643: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2644: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2645: FND_MSG_PUB.ADD;
2646: END IF;
2647: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2648: FND_MSG_PUB.ADD;
2643: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2644: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2645: FND_MSG_PUB.ADD;
2646: END IF;
2647: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2648: FND_MSG_PUB.ADD;
2649: IF l_message_name2 IS NOT NULL THEN
2650: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name2);
2651: FND_MSG_PUB.ADD;
2646: END IF;
2647: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name1);
2648: FND_MSG_PUB.ADD;
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
2676: ELSE
2677: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2678: END IF;
2679: l_unitset_append_count := l_unitset_append_count + 1;
2680: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2681: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2682: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2677: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2678: END IF;
2679: l_unitset_append_count := l_unitset_append_count + 1;
2680: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2681: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2682: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2685: FND_MSG_PUB.ADD;
2678: END IF;
2679: l_unitset_append_count := l_unitset_append_count + 1;
2680: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2681: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2682: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2685: FND_MSG_PUB.ADD;
2686: IF l_message_name2 IS NOT NULL THEN
2680: FND_MESSAGE.SET_NAME('IGS','IGS_EN_ERR_US_TRN');
2681: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2682: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2685: FND_MSG_PUB.ADD;
2686: IF l_message_name2 IS NOT NULL THEN
2687: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name4);
2688: FND_MSG_PUB.ADD;
2683: FND_MSG_PUB.ADD;
2684: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2685: FND_MSG_PUB.ADD;
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
2699: ELSE
2700: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2701: END IF;
2702: l_unitset_append_count := l_unitset_append_count + 1;
2703: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2704: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2705: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2706: FND_MSG_PUB.ADD;
2707: END IF;
2700: p_unit_sets_having_errors := p_unit_sets_having_errors || l_unitset_seqno_and_prmind || ';' ;
2701: END IF;
2702: l_unitset_append_count := l_unitset_append_count + 1;
2703: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2704: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2705: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2706: FND_MSG_PUB.ADD;
2707: END IF;
2708: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2701: END IF;
2702: l_unitset_append_count := l_unitset_append_count + 1;
2703: FND_MESSAGE.SET_NAME('IGS','IGS_EN_WARN_US_TRN');
2704: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2705: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2706: FND_MSG_PUB.ADD;
2707: END IF;
2708: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2709: FND_MSG_PUB.ADD;
2704: FND_MESSAGE.SET_TOKEN('UNIT_SET_CD',l_unitset);
2705: FND_MESSAGE.SET_TOKEN('US_VERSION_NUMBER',l_unitset_att_rec.us_version_number);
2706: FND_MSG_PUB.ADD;
2707: END IF;
2708: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2709: FND_MSG_PUB.ADD;
2710: IF l_message_name2 IS NOT NULL THEN
2711: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name4);
2712: FND_MSG_PUB.ADD;
2707: END IF;
2708: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name3);
2709: FND_MSG_PUB.ADD;
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
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');
2740: IGS_GE_MSG_STACK.ADD;
2741: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2742: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_src_prgm_unt_set_att :',SQLERRM);
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');
2740: IGS_GE_MSG_STACK.ADD;
2741: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2742: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.validate_src_prgm_unt_set_att :',SQLERRM);
2743: END IF;
2836: p_dest_program_cd
2837: );
2838:
2839: IF l_status = FALSE THEN
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;
2838:
2839: IF l_status = FALSE THEN
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
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 ;
2977: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
2978: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.update_source_prgm');
2979: IGS_GE_MSG_STACK.ADD;
2980: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2981: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.update_source_prgm :',SQLERRM);
2974: RAISE;
2975: WHEN OTHERS THEN
2976: IGS_EN_STDNT_PS_ATT_PKG.skip_before_after_dml := FALSE ;
2977: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
2978: FND_MESSAGE.SET_TOKEN('NAME', 'IGS_EN_TRANSFER_APIS.update_source_prgm');
2979: IGS_GE_MSG_STACK.ADD;
2980: IF (FND_LOG.LEVEL_UNEXPECTED >= g_debug_level ) THEN
2981: FND_LOG.STRING(fnd_log.level_unexpected, 'igs.patch.115.sql.igs_en_program_transfer_apis.update_source_prgm :',SQLERRM);
2982: END IF;
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:
3173: p_dest_program_cd,
3174: p_dest_prog_ver,
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;
3239: -- cheking whether destination is an reasearch program or not when source program
3240: -- is an research program.
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
3305: l_message_name);
3306: IF l_return_value = FALSE AND l_message_name NOT IN ('IGS_EN_STUD_INELIG_TO_RE_ENR','IGS_EN_INELIGBLE_DUE_TO_LAPSE',
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;
3423: p_dest_program_cd,
3424: p_term_cal_type,
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;
3481: check_for_debt(p_person_id ,
3482: p_source_program_cd,
3483: l_debt_message_name);
3484: IF l_debt_message_name IS NOT NULL THEN
3485: FND_MESSAGE.SET_NAME( 'IGS' , l_debt_message_name);
3486: FND_MSG_PUB.ADD;
3487: END IF;
3488: END IF;
3489:
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);
3594: ROLLBACK TO TRANSFER_PRGM;
3651: l_msg_data := p_msg_data;
3652: l_warn_and_err_msg := null;
3653:
3654: IF l_msg_count =1 THEN
3655: FND_MESSAGE.SET_ENCODED(l_msg_data);
3656: l_msg_text := FND_MESSAGE.GET;
3657: l_warn_and_err_msg := l_msg_text || '
';
3658: ELSIF l_msg_count > 1 THEN
3659: FOR l_index IN 1..NVL(l_msg_count,0)
3652: l_warn_and_err_msg := null;
3653:
3654: IF l_msg_count =1 THEN
3655: FND_MESSAGE.SET_ENCODED(l_msg_data);
3656: l_msg_text := FND_MESSAGE.GET;
3657: l_warn_and_err_msg := l_msg_text || '
';
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;
3667: l_warn_and_err_msg := l_warn_and_err_msg||l_msg_text || '
';
3668:
3669: FND_MSG_PUB.DELETE_MSG(l_msg_index);
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;
3667: l_warn_and_err_msg := l_warn_and_err_msg||l_msg_text || '
';
3668:
3669: FND_MSG_PUB.DELETE_MSG(l_msg_index);
3670: