[Home] [Help]
479:
480: BEGIN
481: -- Check if total percentage for a given unit_cd and version_number is 100. If not, change the status of records accordingly.
482: IF NOT igs_ps_val_tr.crsp_val_tr_perc ( p_tab_teach_resp(p_tab_teach_resp.FIRST).unit_cd, p_tab_teach_resp(p_tab_teach_resp.FIRST).version_number, l_c_message ,TRUE) THEN
483: fnd_message.set_name ( 'IGS', l_c_message );
484: fnd_msg_pub.add;
485:
486: l_n_count_msg := fnd_msg_pub.count_msg;
487: FOR I in 1..p_tab_teach_resp.LAST LOOP
520:
521: BEGIN
522: -- Check if total percentage for a given unit_cd and version_number is 100. If not, change the status of records accordingly.
523: IF NOT igs_ps_val_ud.crsp_val_ud_perc ( p_tab_unit_dscp(p_tab_unit_dscp.FIRST).unit_cd, p_tab_unit_dscp(p_tab_unit_dscp.FIRST).version_number, l_c_message ,TRUE) THEN
524: fnd_message.set_name ( 'IGS', l_c_message );
525: fnd_msg_pub.add;
526:
527: l_n_count_msg := fnd_msg_pub.count_msg;
528: FOR I in 1..p_tab_unit_dscp.LAST LOOP
556: ********************************************************************************************** */
557: BEGIN
558: -- Check if grading schema type is 'UNIT' for a given grading schema.
559: IF NOT validate_gs_type ( p_unit_gs_rec.grading_schema_code, p_unit_gs_rec.grd_schm_version_number ) THEN
560: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_INCORRECT_GS_TYPE' );
561: fnd_msg_pub.add;
562: p_unit_gs_rec.status := 'E';
563: RETURN;
564: END IF;
600: IF rec_unit_gs_count.cnt = 1 THEN
601: CLOSE c_unit_gs_count;
602: RETURN TRUE;
603: ELSE
604: fnd_message.set_name ( 'IGS', 'IGS_PS_ONE_UGSC_DFLT_MARK' );
605: fnd_msg_pub.add;
606:
607: l_n_count_msg := fnd_msg_pub.count_msg;
608: FOR I in 1..p_tab_grd_sch.LAST LOOP
860: -- Check if the passed location type is of type 'CAMPUS'
861: OPEN c_location_type ( p_usec_rec.location_cd );
862: FETCH c_location_type INTO rec_location_type;
863: IF ( c_location_type%NOTFOUND ) THEN
864: fnd_message.set_name ( 'IGS', 'IGS_PS_UVN_NOTE_FK_C' );
865: fnd_msg_pub.add;
866: p_usec_rec.status := 'E';
867: END IF;
868: CLOSE c_location_type;
868: CLOSE c_location_type;
869:
870: -- at least one unit enrollment method type between Voice Response and Self Service should be selected
871: IF ( p_usec_rec.IVRS_AVAILABLE_IND = 'N' AND p_usec_rec.ss_enrol_ind ='N' ) THEN
872: fnd_message.set_name ( 'IGS', 'IGS_PS_ONE_UNIT_ENR_MTHD' );
873: fnd_msg_pub.add;
874: p_usec_rec.status := 'E';
875: END IF;
876:
877: -- Check whether the teach calender is associated with a load calender.
878: OPEN c_teach_to_load ( p_c_cal_type, p_n_seq_num );
879: FETCH c_teach_to_load INTO rec_teach_to_load;
880: IF c_teach_to_load%NOTFOUND THEN
881: fnd_message.set_name ( 'IGS', 'IGS_PS_TECH_NO_LOAD_CAL_EXST' );
882: fnd_msg_pub.add;
883: p_usec_rec.status := 'E';
884: END IF;
885: CLOSE c_teach_to_load;
897: IF NOT igs_ps_unit_ofr_opt_pkg.check_call_number ( p_teach_cal_type => p_c_cal_type,
898: p_teach_sequence_num => p_n_seq_num,
899: p_call_number => p_usec_rec.call_number,
900: p_rowid => null ) THEN
901: fnd_message.set_name ( 'IGS', 'IGS_PS_DUPLICATE_CALL_NUMBER' );
902: fnd_msg_pub.add;
903: p_usec_rec.status := 'E';
904: END IF;
905: END IF;
922: IF ( p_usec_rec.anon_unit_grading_ind = 'Y' ) THEN
923: OPEN c_anon_unit_grading ( p_usec_rec.unit_cd, p_usec_rec.version_number );
924: FETCH c_anon_unit_grading INTO rec_anon_unit_grading;
925: IF ( c_anon_unit_grading%NOTFOUND ) THEN
926: fnd_message.set_name ( 'IGS', 'IGS_AS_ANON_UNT_GRD_DISABLE' );
927: fnd_msg_pub.add;
928: p_usec_rec.status := 'E';
929: END IF;
930: CLOSE c_anon_unit_grading;
932: -- check whether configuration of anonymous grading method is done or not.
933: OPEN c_anon_grd_method ( p_c_cal_type, p_n_seq_num,l_load_start_dt );
934: FETCH c_anon_grd_method INTO rec_anon_grd_method;
935: IF c_anon_grd_method%NOTFOUND THEN
936: fnd_message.set_name ( 'IGS', 'IGS_AS_CON_UN_GRD_DISABLE' );
937: fnd_msg_pub.add;
938: p_usec_rec.status := 'E';
939: END IF;
940: CLOSE c_anon_grd_method;
944: IF ( p_usec_rec.anon_assess_grading_ind = 'Y' ) THEN
945: OPEN c_anon_assess_grading ( p_usec_rec.unit_cd, p_usec_rec.version_number );
946: FETCH c_anon_assess_grading INTO rec_anon_assess_grading;
947: IF ( c_anon_assess_grading%NOTFOUND ) THEN
948: fnd_message.set_name ( 'IGS', 'IGS_AS_ANON_ASES_GRD_DISABLE' );
949: fnd_msg_pub.add;
950: p_usec_rec.status := 'E';
951: END IF;
952: CLOSE c_anon_assess_grading;
954: -- check whether configuration of anonymous grading method is done or not.
955: OPEN c_anon_grd_method ( p_c_cal_type, p_n_seq_num,l_load_start_dt );
956: FETCH c_anon_grd_method INTO rec_anon_grd_method;
957: IF c_anon_grd_method%NOTFOUND THEN
958: fnd_message.set_name ( 'IGS', 'IGS_AS_CON_ASS_GRD_DISABLE' );
959: fnd_msg_pub.add;
960: p_usec_rec.status := 'E';
961: END IF;
962: CLOSE c_anon_grd_method;
972:
973: --Unit section status should be 'Not Offered' if the corresponding teaching calendar is inactive
974: IF rec_cal_status.s_cal_status = 'INACTIVE' THEN
975: IF p_usec_rec.unit_section_status <> 'NOT_OFFERED' THEN
976: fnd_message.set_name ( 'IGS', 'IGS_PS_NOT_OFR_INACT_CAL' );
977: fnd_msg_pub.add;
978: p_usec_rec.status := 'E';
979: END IF;
980: --Unit section status cannot be 'Not Offered' if the corresponding teaching calendar is not inactive
979: END IF;
980: --Unit section status cannot be 'Not Offered' if the corresponding teaching calendar is not inactive
981: ELSE
982: IF p_usec_rec.unit_section_status = 'NOT_OFFERED' THEN
983: fnd_message.set_name ( 'IGS', 'IGS_PS_INACT_CAL_NOT_OFR' );
984: fnd_msg_pub.add;
985: p_usec_rec.status := 'E';
986: END IF;
987: END IF;
991: OPEN c_muiltiple_section_flag( p_usec_rec.unit_cd, p_usec_rec.version_number );
992: FETCH c_muiltiple_section_flag INTO l_same_teaching_period;
993: CLOSE c_muiltiple_section_flag;
994: IF l_same_teaching_period = 'N' THEN
995: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_US_MULTIPLE_FLAG' );
996: fnd_msg_pub.add;
997: p_usec_rec.status := 'E';
998: END IF;
999: END IF;
1000:
1001: --The validation related to the unit section start and end date is added for the bug#4210597
1002: --Non standard unit section must have unit section start date
1003: IF p_usec_rec.non_std_usec_ind = 'Y' AND p_usec_rec.unit_section_start_date IS NULL THEN
1004: fnd_message.set_name ( 'IGS', 'IGS_EN_OFFSET_DT_NULL' );
1005: fnd_msg_pub.add;
1006: p_usec_rec.status := 'E';
1007: END IF;
1008:
1034: END IF;
1035:
1036: IF l_c_valid_fail THEN
1037: p_n_sup_uoo_id:= NULL;
1038: fnd_message.set_name ( 'IGS', 'IGS_PS_US_NOT_OFF_CRS_LISTED' );
1039: fnd_msg_pub.add;
1040: p_usec_rec.status := 'E';
1041: END IF;
1042:
1045: OPEN c_relation(l_n_sup_uoo_id,'SUBORDINATE');
1046: FETCH c_relation INTO l_c_var;
1047: IF c_relation%FOUND THEN
1048: p_n_sup_uoo_id:= NULL;
1049: fnd_message.set_name ( 'IGS', 'IGS_PS_US_UPLOADED_NORMAL_REL' );
1050: fnd_msg_pub.add;
1051: p_usec_rec.status := 'E';
1052: END IF;
1053: CLOSE c_relation;
1068: END IF;
1069: END LOOP;
1070: IF l_c_proceed THEN
1071: p_n_sup_uoo_id:= NULL;
1072: fnd_message.set_name ( 'IGS', 'IGS_PS_SUP_TERM_STUD_ENROLL' );
1073: fnd_msg_pub.add;
1074: p_usec_rec.status := 'E';
1075: END IF;
1076: teachCalendar_tbl.DELETE;
1075: END IF;
1076: teachCalendar_tbl.DELETE;
1077: ELSE
1078: p_n_sup_uoo_id:= NULL;
1079: fnd_message.set_name ( 'IGS', 'IGS_PS_SUP_TERM_STUD_ENROLL' );
1080: fnd_msg_pub.add;
1081: p_usec_rec.status := 'E';
1082: END IF;
1083:
1083:
1084: --Check if superior unit section exists in any enrollment activity
1085: IF igs_ps_gen_003.enrollment_for_uoo_check(l_n_sup_uoo_id) THEN
1086: p_n_sup_uoo_id:= NULL;
1087: fnd_message.set_name ( 'IGS', 'IGS_PS_SUP_TERM_STUD_ENROLL' );
1088: fnd_msg_pub.add;
1089: p_usec_rec.status := 'E';
1090: END IF;
1091:
1103: IF NOT igs_ps_unit_ofr_opt_pkg.check_call_number ( p_teach_cal_type => p_c_cal_type,
1104: p_teach_sequence_num => p_n_seq_num,
1105: p_call_number => p_usec_rec.call_number,
1106: p_rowid => c_usec_rec.rowid ) THEN
1107: fnd_message.set_name ( 'IGS', 'IGS_PS_DUPLICATE_CALL_NUMBER' );
1108: fnd_msg_pub.add;
1109: p_usec_rec.status := 'E';
1110: END IF;
1111: END IF;
1113:
1114:
1115: --Unit Section status cant be passed as Not Offered.
1116: IF p_usec_rec.unit_section_status = 'NOT_OFFERED' THEN
1117: fnd_message.set_name('IGS','IGS_PS_CNT_UPD_NOT_OFFERED');
1118: fnd_msg_pub.add;
1119: p_usec_rec.status := 'E';
1120: END IF;
1121:
1128: --in Unit Repeat/Reenroll Condition form is checked.
1129: IF NVL(l_v_flag,'N') = 'N' THEN
1130: --update of the field NOT_MULTIPLE_SECTION_FLAG is not allowed
1131: IF p_usec_rec.not_multiple_section_flag <> c_usec_rec.not_multiple_section_flag THEN
1132: fnd_message.set_name('IGS','IGS_PS_LGCY_US_MULTIPLE_FLAG');
1133: fnd_msg_pub.add;
1134: p_usec_rec.status := 'E';
1135: END IF;
1136: END IF;
1136: END IF;
1137:
1138: --Not Offered unit section should not be allowed to be updated
1139: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(c_usec_rec.uoo_id) THEN
1140: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
1141: fnd_msg_pub.add;
1142: p_usec_rec.status := 'E';
1143: END IF;
1144:
1146: IF p_usec_rec.auditable_ind='N' THEN
1147: OPEN cur_unit_audit(c_usec_rec.uoo_id);
1148: FETCH cur_unit_audit INTO rec_unit_audit;
1149: IF(cur_unit_audit%FOUND) THEN
1150: fnd_message.set_name('IGS', 'IGS_PS_AUD_NO_CHK_USEC');
1151: fnd_msg_pub.add;
1152: p_usec_rec.status := 'E';
1153: END IF;
1154: CLOSE cur_unit_audit;
1153: END IF;
1154: CLOSE cur_unit_audit;
1155:
1156: IF p_usec_rec.audit_permission_ind ='Y' THEN
1157: fnd_message.set_name('IGS', 'IGS_PS_AUDIT_PERMISSION_EXIST');
1158: fnd_msg_pub.add;
1159: p_usec_rec.status := 'E';
1160: ELSE
1161: --update of the field AUDIT_PERMISSION_IND is not allowed
1159: p_usec_rec.status := 'E';
1160: ELSE
1161: --update of the field AUDIT_PERMISSION_IND is not allowed
1162: IF p_usec_rec.audit_permission_ind <>c_usec_rec.audit_permission_ind THEN
1163: fnd_message.set_name('IGS', 'IGS_PS_AUDIT_PERMISSION_EXIST');
1164: fnd_msg_pub.add;
1165: p_usec_rec.status := 'E';
1166: END IF;
1167: END IF;
1171: IF igs_ps_usec_schedule.prgp_get_schd_status( c_usec_rec.uoo_id,NULL,v_message_name ) = TRUE THEN
1172: IF v_message_name IS NULL THEN
1173: v_message_name := 'IGS_PS_SCST_PROC';
1174: END IF;
1175: fnd_message.set_name( 'IGS', v_message_name);
1176: fnd_msg_pub.add;
1177: p_usec_rec.status := 'E';
1178: ELSIF c_usec_rec.location_cd <> p_usec_rec.location_cd THEN
1179: IF igs_ps_usec_schedule.prgp_upd_usec_dtls( c_usec_rec.uoo_id,p_usec_rec.location_cd,Null,Null,Null,Null,
1180: v_request_id,
1181: v_message_name
1182: ) = FALSE THEN
1183:
1184: fnd_message.set_name( 'IGS', v_message_name);
1185: fnd_msg_pub.add;
1186: p_usec_rec.status := 'E';
1187: END IF;
1188: END IF;
1343:
1344: IF l_c_override_ind = 'Y' AND ( p_usec_rec.variable_increment IS NULL OR
1345: p_usec_rec.maximum_credit_points IS NULL OR
1346: p_usec_rec.minimum_credit_points IS NULL ) THEN
1347: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_CPS_NULL' );
1348: fnd_msg_pub.add;
1349: p_usec_rec.status := 'E';
1350: END IF;
1351:
1477: FETCH c_subtitle_id INTO rec_subtitle_id;
1478: IF c_subtitle_id%FOUND THEN
1479: p_n_subtitle_id := rec_subtitle_id.subtitle_id;
1480: ELSE
1481: fnd_message.set_name ( 'IGS', 'IGS_PS_INVALID_SUBTITLE' );
1482: fnd_msg_pub.add;
1483: p_usec_rec.status := 'E';
1484: p_n_subtitle_id := NULL;
1485: END IF;
1525: SYSDATE,
1526: g_n_login_id
1527: )RETURNING subtitle_id INTO p_n_subtitle_id;
1528: ELSE
1529: fnd_message.set_name ( 'IGS', 'IGS_PS_INVALID_SUBTITLE' );
1530: fnd_msg_pub.add;
1531: p_usec_rec.status := 'E';
1532: p_n_subtitle_id := NULL;
1533: END IF;
1560: p_usec_rec.reference_attribute18,
1561: p_usec_rec.reference_attribute18,
1562: p_usec_rec.reference_attribute20,
1563: 'IGS_PS_USEC_REF_FLEX' ) THEN
1564: fnd_message.set_name ( 'IGS', 'IGS_AD_INVALID_DESC_FLEX' );
1565: fnd_msg_pub.add;
1566: p_usec_rec.status := 'E';
1567: END IF;
1568:
1579: -- IF override Title is checked at Unit Level then only update is allowed.
1580: IF r_unit_ver.title_override_ind = 'N' THEN
1581: --cannot update TITLE log error message
1582: IF p_usec_rec.reference_title <> c_usec_ref_rec.title THEN
1583: fnd_message.set_name( 'IGS', 'IGS_PS_CNT_UPD_TITLE');
1584: p_usec_rec.status := 'E';
1585: fnd_msg_pub.add;
1586: END IF;
1587:
1590: -- IF subtitle modifiable is checked at Unit Level then only update is allowed .
1591: IF r_unit_ver.subtitle_modifiable_flag = 'N' THEN
1592: --cannot update SUBTITLE log error message
1593: IF p_usec_rec.reference_subtitle <> c_usec_ref_rec.subtitle THEN
1594: fnd_message.set_name( 'IGS', 'IGS_PS_CNT_UPD_SUBTITLE');
1595: p_usec_rec.status := 'E';
1596: fnd_msg_pub.add;
1597: END IF;
1598: END IF;
1616:
1617: BEGIN
1618: -- Check if grading schema type is 'UNIT' for a given grading schema.
1619: IF NOT validate_gs_type ( p_usec_gs_rec.grading_schema_code, p_usec_gs_rec.grd_schm_version_number ) THEN
1620: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_INCORRECT_GS_TYPE' );
1621: fnd_msg_pub.add;
1622: p_usec_gs_rec.status := 'E';
1623: END IF;
1624:
1623: END IF;
1624:
1625: -- Check if unit status is inactive.
1626: IF NOT igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_gs_rec.unit_cd,p_usec_gs_rec.version_number,l_c_message) THEN
1627: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
1628: fnd_msg_pub.add;
1629: p_usec_gs_rec.status := 'E';
1630: END IF;
1631:
1630: END IF;
1631:
1632: --Check if the unit section is NOT_OFFERED
1633: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
1634: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
1635: fnd_msg_pub.add;
1636: p_usec_gs_rec.status := 'E';
1637: END IF;
1638:
1681: OPEN c_usec_gs_count (p_tab_uoo(i));
1682: FETCH c_usec_gs_count INTO rec_usec_gs_count;
1683: IF rec_usec_gs_count.cnt <> 1 THEN
1684: l_b_status:= FALSE;
1685: fnd_message.set_name ( 'IGS', 'IGS_PS_GRD_SCHM_CHCK' );
1686: fnd_msg_pub.add;
1687: l_n_count_msg := fnd_msg_pub.count_msg;
1688: FOR j in 1..p_tab_usec_gs.LAST LOOP
1689: OPEN c_uoo_id (p_tab_usec_gs(j));
1876: IF ( p_uso_rec.start_date IS NOT NULL ) THEN
1877: -- Check if it is less than start_date
1878: IF ( rec_usec_dates.start_date IS NOT NULL ) THEN
1879: IF ( p_uso_rec.start_date < rec_usec_dates.start_date ) THEN
1880: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_STDT_GE_US_STDT' );
1881: fnd_msg_pub.add;
1882: p_uso_rec.status := 'E';
1883: END IF;
1884: ELSE
1882: p_uso_rec.status := 'E';
1883: END IF;
1884: ELSE
1885: IF ( p_uso_rec.start_date < p_d_start_date ) THEN
1886: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_STDT_GE_TP_STDT' );
1887: fnd_msg_pub.add;
1888: p_uso_rec.status := 'E';
1889: END IF;
1890: END IF;
1891:
1892: -- Check if it is greater than end date
1893: IF ( rec_usec_dates.end_date IS NOT NULL ) THEN
1894: IF ( p_uso_rec.start_date > rec_usec_dates.end_date ) THEN
1895: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_ST_DT_UOO_END_DT' );
1896: fnd_msg_pub.add;
1897: p_uso_rec.status := 'E';
1898: END IF;
1899: ELSE
1897: p_uso_rec.status := 'E';
1898: END IF;
1899: ELSE
1900: IF ( p_uso_rec.start_date > p_d_end_date ) THEN
1901: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_ST_DT_TP_END_DT' );
1902: fnd_msg_pub.add;
1903: p_uso_rec.status := 'E';
1904: END IF;
1905: END IF;
1907: END IF;
1908:
1909: -- USO start date should be less than or equal to USO end date
1910: IF ( p_uso_rec.start_date > p_uso_rec.end_date ) THEN
1911: fnd_message.set_name ( 'IGS', 'IGS_PE_EDT_LT_SDT' );
1912: fnd_msg_pub.add;
1913: p_uso_rec.status := 'E';
1914: END IF;
1915:
1916: IF ( p_uso_rec.end_date IS NOT NULL ) THEN
1917: -- Check it against start_date
1918: IF ( rec_usec_dates.start_date IS NOT NULL ) THEN
1919: IF ( p_uso_rec.end_date < rec_usec_dates.start_date ) THEN
1920: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_END_DT_UOO_ST_DT' );
1921: fnd_msg_pub.add;
1922: p_uso_rec.status := 'E';
1923: END IF;
1924: ELSE
1922: p_uso_rec.status := 'E';
1923: END IF;
1924: ELSE
1925: IF ( p_uso_rec.end_date < p_d_start_date ) THEN
1926: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_END_DT_TP_ST_DT' );
1927: fnd_msg_pub.add;
1928: p_uso_rec.status := 'E';
1929: END IF;
1930: END IF;
1931:
1932: -- Check it against end_date
1933: IF ( rec_usec_dates.start_date IS NOT NULL ) THEN
1934: IF ( p_uso_rec.end_date > rec_usec_dates.end_date ) THEN
1935: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_ENDT_LE_US_ENDT' );
1936: fnd_msg_pub.add;
1937: p_uso_rec.status := 'E';
1938: END IF;
1939: ELSE
1937: p_uso_rec.status := 'E';
1938: END IF;
1939: ELSE
1940: IF ( p_uso_rec.end_date > p_d_end_date ) THEN
1941: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_ENDT_LE_TP_ENDT' );
1942: fnd_msg_pub.add;
1943: p_uso_rec.status := 'E';
1944: END IF;
1945: END IF;
1950:
1951: -- Validated start time and end time. USO start time should be less than USO end time.
1952: -- Compare only time part of date
1953: IF ( to_char(p_uso_rec.start_time,'HH24MI') > to_char(p_uso_rec.end_time,'HH24MI') ) THEN
1954: fnd_message.set_name ( 'IGS', 'IGS_GE_ST_TIME_LT_END_TIME' );
1955: fnd_msg_pub.add;
1956: p_uso_rec.status := 'E';
1957: END IF;
1958:
1964: p_uso_rec.thursday ='N' AND
1965: p_uso_rec.friday ='N' AND
1966: p_uso_rec.saturday ='N' AND
1967: p_uso_rec.sunday ='N' ) THEN
1968: fnd_message.set_name ( 'IGS', 'IGS_PS_ATLEAST_ONE_DAY_CHECK' );
1969: fnd_msg_pub.add;
1970: p_uso_rec.status := 'E';
1971: END IF;
1972:
1981: p_uso_rec.sunday ='Y' OR
1982: p_uso_rec.start_time IS NOT NULL OR
1983: p_uso_rec.end_time IS NOT NULL)
1984: ) THEN
1985: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_TBA_WITH_DAYS' );
1986: fnd_msg_pub.add;
1987: p_uso_rec.status := 'E';
1988: END IF;
1989:
1997: p_uso_rec.sunday ='Y' ) AND
1998: (p_uso_rec.start_date IS NULL OR p_uso_rec.end_date IS NULL) AND
1999: p_uso_rec.no_set_day_ind='N'
2000: THEN
2001: fnd_message.set_name ( 'IGS', 'IGS_AS_BOTH_STDT_ENDDT_ENERED' );
2002: fnd_msg_pub.add;
2003: p_uso_rec.status := 'E';
2004: END IF;
2005:
2007: IF ( p_n_dedicated_building_code IS NOT NULL AND
2008: ( p_n_preferred_room_code IS NOT NULL OR
2009: p_n_preferred_building_code IS NOT NULL )
2010: ) THEN
2011: fnd_message.set_name ( 'IGS', 'IGS_PS_ENTER_PREF_DEDICATED' );
2012: fnd_msg_pub.add;
2013: p_uso_rec.status := 'E';
2014: END IF;
2015:
2020: p_n_dedicated_room_code IS NOT NULL OR
2021: p_n_preferred_room_code IS NOT NULL
2022: )
2023: ) THEN
2024: fnd_message.set_name ( 'IGS', 'IGS_PS_SCHD_OR_OTHER' );
2025: fnd_msg_pub.add;
2026: p_uso_rec.status := 'E';
2027: END IF;
2028:
2048: p_uso_rec.attribute18,
2049: p_uso_rec.attribute18,
2050: p_uso_rec.attribute20,
2051: 'IGS_PS_UNITSEC_OCCUR' ) THEN
2052: fnd_message.set_name ( 'IGS', 'IGS_AD_INVALID_DESC_FLEX' );
2053: fnd_msg_pub.add;
2054: p_uso_rec.status := 'E';
2055: END IF;
2056:
2061:
2062: IF p_uso_rec.no_set_day_ind = 'Y' AND
2063: p_uso_rec.to_be_announced = 'Y' THEN
2064:
2065: fnd_message.set_name ( 'IGS', 'IGS_PS_NSD_OR_TBA' );
2066: fnd_msg_pub.add;
2067: p_uso_rec.status := 'E';
2068:
2069: END IF;
2079: p_n_dedicated_room_code IS NOT NULL OR
2080: p_n_preferred_building_code IS NOT NULL OR
2081: p_n_preferred_room_code IS NOT NULL THEN
2082:
2083: fnd_message.set_name ( 'IGS', 'IGS_PS_PRF_REG_BLD_ROM_EXIST' );
2084: fnd_msg_pub.add;
2085: p_uso_rec.status := 'E';
2086:
2087: END IF;
2090: ----
2091:
2092: --Check if the unit is INACTIVE, then do not allow to insert/update
2093: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_uso_rec.unit_cd, p_uso_rec.version_number,l_message_name)=FALSE THEN
2094: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
2095: fnd_msg_pub.add;
2096: p_uso_rec.status := 'E';
2097: END IF;
2098:
2097: END IF;
2098:
2099: --Check if the unit section is NOT_OFFERED
2100: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
2101: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
2102: fnd_msg_pub.add;
2103: p_uso_rec.status := 'E';
2104: END IF;
2105:
2107: IF p_n_building_code IS NOT NULL AND p_n_room_code IS NOT NULL THEN
2108: OPEN c_room_id ( p_n_building_code, p_n_room_code );
2109: FETCH c_room_id INTO l_c_var;
2110: IF ( c_room_id%NOTFOUND ) THEN
2111: fnd_message.set_name ( 'IGS', 'IGS_PS_ROOM_INV_FOR_BLD' );
2112: fnd_msg_pub.add;
2113: p_uso_rec.status := 'E';
2114: END IF;
2115: CLOSE c_room_id;
2119: IF p_n_dedicated_building_code IS NOT NULL AND p_n_dedicated_room_code IS NOT NULL THEN
2120: OPEN c_room_id ( p_n_dedicated_building_code, p_n_dedicated_room_code );
2121: FETCH c_room_id INTO l_c_var;
2122: IF ( c_room_id%NOTFOUND ) THEN
2123: fnd_message.set_name ( 'IGS', 'IGS_PS_D_ROOM_INV_FOR_BLD' );
2124: fnd_msg_pub.add;
2125: p_uso_rec.status := 'E';
2126: END IF;
2127: CLOSE c_room_id;
2131: IF p_n_preferred_building_code IS NOT NULL AND p_n_preferred_room_code IS NOT NULL THEN
2132: OPEN c_room_id ( p_n_preferred_building_code, p_n_preferred_room_code );
2133: FETCH c_room_id INTO l_c_var;
2134: IF ( c_room_id%NOTFOUND ) THEN
2135: fnd_message.set_name ( 'IGS', 'IGS_PS_P_ROOM_INV_FOR_BLD' );
2136: fnd_msg_pub.add;
2137: p_uso_rec.status := 'E';
2138: END IF;
2139: CLOSE c_room_id;
2144: IF p_uso_rec.monday = 'N' AND p_uso_rec.tuesday = 'N' AND p_uso_rec.wednesday = 'N' AND
2145: p_uso_rec.thursday = 'N' AND p_uso_rec.friday = 'N' AND p_uso_rec.saturday = 'N' AND
2146: p_uso_rec.sunday = 'N' THEN
2147:
2148: fnd_message.set_name ( 'IGS', 'IGS_PS_DAYS_REQD_TIME_THERE' );
2149: fnd_msg_pub.add;
2150: p_uso_rec.status := 'E';
2151: END IF;
2152: END IF;
2158: CLOSE cur_occur;
2159:
2160: --If schedule status is SCHEDULED and TBA is Y then it is error condition
2161: IF p_uso_rec.to_be_announced = 'Y' AND l_cur_occur.schedule_status='SCHEDULED' THEN
2162: fnd_message.set_name ( 'IGS', 'IGS_PS_SCHD_CANT_CHANGE_TBA' );
2163: fnd_msg_pub.add;
2164: p_uso_rec.status := 'E';
2165: END IF;
2166:
2165: END IF;
2166:
2167: --If schedule status is SCHEDULED and No_set_day is Y then it is error condition
2168: IF p_uso_rec.no_set_day_ind = 'Y' AND l_cur_occur.schedule_status='SCHEDULED' THEN
2169: fnd_message.set_name ( 'IGS', 'IGS_PS_CANT_NSD_USO' );
2170: fnd_msg_pub.add;
2171: p_uso_rec.status := 'E';
2172: END IF;
2173:
2174:
2175: --Cannot import scheduling information for already scheduled occurrence
2176: IF (p_n_building_code IS NOT NULL AND p_n_building_code <> l_cur_occur.building_code OR
2177: p_n_room_code IS NOT NULL AND p_n_room_code <> l_cur_occur.room_code ) AND l_cur_occur.schedule_status='SCHEDULED' THEN
2178: fnd_message.set_name ( 'IGS', 'IGS_PS_SCH_INFO_NOT_IMPORT' );
2179: fnd_msg_pub.add;
2180: p_uso_rec.status := 'E';
2181: END IF;
2182:
2181: END IF;
2182:
2183: --Cannot update occurrence for in progress occurrence when the calling context is not 'S'-scheduling
2184: IF l_cur_occur.schedule_status='PROCESSING' AND p_calling_context <> 'S' THEN
2185: fnd_message.set_name ( 'IGS', 'IGS_PS_UPD_IN_PRG_OCR' );
2186: fnd_msg_pub.add;
2187: p_uso_rec.status := 'E';
2188: END IF;
2189:
2206: p_end_date=>p_uso_rec.end_date,
2207: p_calling_module=>'FORM',
2208: p_message_name => l_message_name)= FALSE THEN
2209:
2210: fnd_message.set_name ( 'IGS', l_message_name );
2211: fnd_msg_pub.add;
2212: p_uso_rec.status := 'W';
2213: EXIT;
2214: END IF;
2230: p_uso_rec.sunday='N') OR p_uso_rec.start_date IS NULL OR p_uso_rec.end_date IS NULL OR
2231: p_n_building_code IS NULL THEN
2232:
2233: IF l_cur_sch_int.tba_status='Y' THEN
2234: fnd_message.set_name ( 'IGS', 'IGS_PS_USO_TBA_STATUS' );
2235: fnd_msg_pub.add;
2236: p_uso_rec.status := 'E';
2237: ELSIF l_cur_sch_int.transaction_type IN ('REQUEST','UPDATE') THEN
2238: --For normal occurrences shoud have
2235: fnd_msg_pub.add;
2236: p_uso_rec.status := 'E';
2237: ELSIF l_cur_sch_int.transaction_type IN ('REQUEST','UPDATE') THEN
2238: --For normal occurrences shoud have
2239: fnd_message.set_name ( 'IGS', 'IGS_PS_VALUES_NULL' );
2240: fnd_msg_pub.add;
2241: p_uso_rec.status := 'E';
2242: END IF;
2243: END IF;
2247: END IF;
2248:
2249: --if the record exists in the interface table and TRANSACTION_TYPE as either 'REQUEST' / 'UPDATE' then BUILDING_CODE is must
2250: IF l_cur_sch_int.transaction_type IN ('REQUEST','UPDATE') AND p_n_building_code IS NULL THEN
2251: fnd_message.set_name ( 'IGS', 'IGS_PS_SCH_BLDIS_MUST' );
2252: fnd_msg_pub.add;
2253: p_uso_rec.status := 'E';
2254: END IF;
2255: --if the record exists in the interface table and TRANSACTION_TYPE = 'CANCEL' then BUILDING_CODE must be NULL
2253: p_uso_rec.status := 'E';
2254: END IF;
2255: --if the record exists in the interface table and TRANSACTION_TYPE = 'CANCEL' then BUILDING_CODE must be NULL
2256: IF l_cur_sch_int.transaction_type IN ('CANCEL') AND p_n_building_code IS NOT NULL THEN
2257: fnd_message.set_name ( 'IGS', 'IGS_PS_SCH_BLDIS_NOT' );
2258: fnd_msg_pub.add;
2259: p_uso_rec.status := 'E';
2260: END IF;
2261:
2653: FND_MSG_PUB.DELETE_MSG(l_n_count);
2654: END IF;
2655: END IF;
2656:
2657: FND_MESSAGE.SET_NAME('IGS',p_c_msg_name);
2658: IF p_c_token IS NOT NULL THEN
2659: IF l_c_meaning IS NOT NULL THEN
2660: FND_MESSAGE.SET_TOKEN('PARAM',l_c_meaning);
2661: ELSE
2656:
2657: FND_MESSAGE.SET_NAME('IGS',p_c_msg_name);
2658: IF p_c_token IS NOT NULL THEN
2659: IF l_c_meaning IS NOT NULL THEN
2660: FND_MESSAGE.SET_TOKEN('PARAM',l_c_meaning);
2661: ELSE
2662: FND_MESSAGE.SET_TOKEN('PARAM',p_c_token);
2663: END IF;
2664: END IF;
2658: IF p_c_token IS NOT NULL THEN
2659: IF l_c_meaning IS NOT NULL THEN
2660: FND_MESSAGE.SET_TOKEN('PARAM',l_c_meaning);
2661: ELSE
2662: FND_MESSAGE.SET_TOKEN('PARAM',p_c_token);
2663: END IF;
2664: END IF;
2665: FND_MSG_PUB.ADD;
2666:
2940: BEGIN
2941:
2942: IF p_n_ern_min > p_n_enr_max THEN
2943: p_c_rec_status := 'E';
2944: fnd_message.set_name('IGS','IGS_PS_ENROLL_MIN_GREATER');
2945: fnd_msg_pub.add;
2946: END IF;
2947:
2948: IF p_n_enr_max > p_n_ovr_max THEN
2946: END IF;
2947:
2948: IF p_n_enr_max > p_n_ovr_max THEN
2949: p_c_rec_status := 'E';
2950: fnd_message.set_name('IGS','IGS_PS_OVERIDE_MIN_MAX_CP');
2951: fnd_msg_pub.add;
2952: END IF;
2953:
2954: IF p_n_adv_max > p_n_enr_max THEN
2952: END IF;
2953:
2954: IF p_n_adv_max > p_n_enr_max THEN
2955: p_c_rec_status := 'E';
2956: fnd_message.set_name('IGS','IGS_PS_ADV_MAX_LESS_ENR_MAX');
2957: fnd_msg_pub.add;
2958: END IF;
2959:
2960: END validate_enr_lmts;
3056: FETCH c_waitlist_allowed INTO l_c_waitlist_allowed;
3057: CLOSE c_waitlist_allowed;
3058: IF l_c_waitlist_allowed = 'N' THEN
3059: p_usec_rec.status := 'E';
3060: fnd_message.set_name ('IGS', 'IGS_PS_WLST_ALWD_NO_ORG');
3061: fnd_msg_pub.add;
3062: END IF;
3063: ELSE
3064: p_usec_rec.usec_max_students_per_waitlist := 0;
3065: END IF;
3066:
3067: IF NVL(p_usec_rec.override_enrollment_maximum,999999) < rec_act.enrollment_actual THEN
3068: p_usec_rec.status := 'E';
3069: fnd_message.set_name ('IGS', 'IGS_PS_OVRENR_MAX_LESS_ACTMAX');
3070: fnd_msg_pub.add;
3071: END IF;
3072:
3073: IF rec_act.auditable_ind = 'N' and p_usec_rec.max_auditors_allowed IS NOT NULL THEN
3071: END IF;
3072:
3073: IF rec_act.auditable_ind = 'N' and p_usec_rec.max_auditors_allowed IS NOT NULL THEN
3074: p_usec_rec.status := 'E';
3075: fnd_message.set_name ('IGS', 'IGS_PS_MAX_AUD_MUST_BE_NULL');
3076: fnd_msg_pub.add;
3077: END IF;
3078:
3079: IF p_usec_rec.enrollment_maximum IS NULL AND
3078:
3079: IF p_usec_rec.enrollment_maximum IS NULL AND
3080: p_usec_rec.override_enrollment_maximum IS NOT NULL THEN
3081: p_usec_rec.status := 'E';
3082: fnd_message.set_name ('IGS', 'IGS_PS_ENR_NULL_OVR_NOT');
3083: fnd_msg_pub.add;
3084: END IF;
3085:
3086: validate_enr_lmts (p_usec_rec.enrollment_minimum, p_usec_rec.enrollment_maximum, p_usec_rec.override_enrollment_maximum, p_usec_rec.advance_maximum, p_usec_rec.status);
3097: l_message_name ) = TRUE THEN
3098: IF l_message_name IS NULL THEN
3099: l_message_name := 'IGS_PS_SCST_PROC';
3100: END IF;
3101: fnd_message.set_name( 'IGS', l_message_name);
3102: p_usec_rec.status := 'E';
3103: fnd_msg_pub.add;
3104: END IF;
3105:
3118: --if the count is more than context value...
3119: IF (l_ctx_value IS NULL OR (l_ctx_value < NVL(l_count,0))) THEN
3120: --display error message to the user saying that this field cannot be lowered/cleared since the
3121: --unit has been used for auditing.
3122: fnd_message.set_name('IGS','IGS_PS_LOW_NO_MAX_AUD_USEC');
3123: p_usec_rec.status := 'E';
3124: fnd_msg_pub.add;
3125: END IF;
3126: END IF;
3128: END IF;
3129:
3130: -- Cannot unckeck waitlist allowed as there are students in the actual waitlist
3131: IF NVL(p_usec_rec.usec_waitlist_allowed,'N') = 'N' AND NVL(rec_act.WAITLIST_ACTUAL,0) > 0 THEN
3132: fnd_message.set_name('IGS','IGS_PS_ACT_WLST_GRT_ZERO');
3133: p_usec_rec.status := 'E';
3134: fnd_msg_pub.add;
3135: END IF;
3136:
3173:
3174: OPEN c_usec_wlst_pri(p_n_uoo_id);
3175: FETCH c_usec_wlst_pri INTO c_usec_wlst_pri_rec;
3176: IF c_usec_wlst_pri%FOUND THEN
3177: fnd_message.set_name('IGS','IGS_PS_PRIORITY_EXISTS');
3178: p_usec_rec.status := 'E';
3179: fnd_msg_pub.add;
3180: END IF;
3181: END IF;
3183: IF p_usec_rec.usec_waitlist_allowed = 'N' THEN
3184: IF p_usec_rec.usec_max_students_per_waitlist IS NULL THEN
3185: p_usec_rec.usec_max_students_per_waitlist:= 0;
3186: ELSIF p_usec_rec.usec_max_students_per_waitlist > 0 THEN
3187: fnd_message.set_name('IGS','IGS_PS_MAX_STD_CNT_GT_0');
3188: p_usec_rec.status := 'E';
3189: fnd_msg_pub.add;
3190: END IF;
3191: END IF;
3205: ) = FALSE THEN
3206:
3207:
3208: p_usec_rec.status := 'E';
3209: fnd_message.set_name ('IGS', 'l_message_name');
3210: fnd_msg_pub.add;
3211: END IF;
3212: END IF;
3213:
3257: ) = FALSE THEN
3258:
3259:
3260: p_usec_rec.status := 'E';
3261: fnd_message.set_name ('IGS', 'l_message_name');
3262: fnd_msg_pub.add;
3263: END IF;
3264: END IF;
3265:
3335: BEGIN
3336:
3337: --Check if the unit section is NOT_OFFERED
3338: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
3339: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
3340: fnd_msg_pub.add;
3341: p_uso_ins_rec.status := 'E';
3342: END IF;
3343:
3362: BEGIN
3363: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_uso_ins_rec.lead_instructor_flag);
3364: EXCEPTION
3365: WHEN OTHERS THEN
3366: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
3367: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3368: p_uso_ins_rec.status :='E';
3369: END;
3370: BEGIN
3363: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_uso_ins_rec.lead_instructor_flag);
3364: EXCEPTION
3365: WHEN OTHERS THEN
3366: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
3367: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3368: p_uso_ins_rec.status :='E';
3369: END;
3370: BEGIN
3371: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_uso_ins_rec.confirmed_flag);
3370: BEGIN
3371: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_uso_ins_rec.confirmed_flag);
3372: EXCEPTION
3373: WHEN OTHERS THEN
3374: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
3375: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3376: p_uso_ins_rec.status :='E';
3377: END;
3378:
3371: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_uso_ins_rec.confirmed_flag);
3372: EXCEPTION
3373: WHEN OTHERS THEN
3374: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
3375: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
3376: p_uso_ins_rec.status :='E';
3377: END;
3378:
3379: -- Validation : Either percentage allocation or workload value should be provided. Both cannot be null
3382: p_uso_ins_rec.wl_percentage_allocation IS NULL AND
3383: p_uso_ins_rec.instructional_load_lecture IS NULL AND
3384: p_uso_ins_rec.instructional_load_laboratory IS NULL AND
3385: p_uso_ins_rec.instructional_load_other IS NULL THEN
3386: fnd_message.set_name('IGS','IGS_PS_PERCENT_WKLD_MANDATORY');
3387: fnd_msg_pub.add;
3388: p_uso_ins_rec.status := 'E';
3389: END IF;
3390:
3410: BEGIN
3411: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_uso_ins_rec.instructional_load_lecture);
3412: EXCEPTION
3413: WHEN OTHERS THEN
3414: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3415: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
3416: p_uso_ins_rec.status :='E';
3417: END;
3418:
3411: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_uso_ins_rec.instructional_load_lecture);
3412: EXCEPTION
3413: WHEN OTHERS THEN
3414: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3415: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
3416: p_uso_ins_rec.status :='E';
3417: END;
3418:
3419: --Format mask validation
3418:
3419: --Format mask validation
3420: IF p_uso_ins_rec.status <> 'E' THEN
3421: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_lecture,4,2) THEN
3422: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,FALSE);
3424: p_uso_ins_rec.status :='E';
3425: END IF;
3426: END IF;
3419: --Format mask validation
3420: IF p_uso_ins_rec.status <> 'E' THEN
3421: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_lecture,4,2) THEN
3422: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
3423: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,FALSE);
3424: p_uso_ins_rec.status :='E';
3425: END IF;
3426: END IF;
3427:
3431: BEGIN
3432: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_uso_ins_rec.instructional_load_laboratory);
3433: EXCEPTION
3434: WHEN OTHERS THEN
3435: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3436: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3437: p_uso_ins_rec.status :='E';
3438: END;
3439:
3432: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_uso_ins_rec.instructional_load_laboratory);
3433: EXCEPTION
3434: WHEN OTHERS THEN
3435: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3436: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3437: p_uso_ins_rec.status :='E';
3438: END;
3439:
3440: --Format mask validation
3439:
3440: --Format mask validation
3441: IF p_uso_ins_rec.status <> 'E' THEN
3442: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_laboratory,4,2) THEN
3443: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3444: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3445: p_uso_ins_rec.status :='E';
3446: END IF;
3447: END IF;
3440: --Format mask validation
3441: IF p_uso_ins_rec.status <> 'E' THEN
3442: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_laboratory,4,2) THEN
3443: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
3444: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3445: p_uso_ins_rec.status :='E';
3446: END IF;
3447: END IF;
3448:
3452: BEGIN
3453: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_uso_ins_rec.instructional_load_other);
3454: EXCEPTION
3455: WHEN OTHERS THEN
3456: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3457: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3458: p_uso_ins_rec.status :='E';
3459: END;
3460:
3453: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_uso_ins_rec.instructional_load_other);
3454: EXCEPTION
3455: WHEN OTHERS THEN
3456: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3457: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
3458: p_uso_ins_rec.status :='E';
3459: END;
3460:
3461: --Format mask validation
3460:
3461: --Format mask validation
3462: IF p_uso_ins_rec.status <> 'E' THEN
3463: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_other,4,2) THEN
3464: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3465: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3466: p_uso_ins_rec.status :='E';
3467: END IF;
3468: END IF;
3461: --Format mask validation
3462: IF p_uso_ins_rec.status <> 'E' THEN
3463: IF NOT igs_ps_validate_lgcy_pkg.boundary_check_number(p_uso_ins_rec.instructional_load_other,4,2) THEN
3464: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
3465: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,FALSE);
3466: p_uso_ins_rec.status :='E';
3467: END IF;
3468: END IF;
3469:
3473: OPEN c_lead_cnd(p_n_uoo_id);
3474: FETCH c_lead_cnd INTO l_n_count;
3475: CLOSE c_lead_cnd;
3476: IF l_n_count <> 0 THEN
3477: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_ONE');
3478: fnd_msg_pub.add;
3479: p_uso_ins_rec.status := 'E';
3480: END IF;
3481: END IF;
3494:
3495: --Instructor should be staff or faculty
3496: IF validate_staff_faculty (p_person_id => p_n_ins_id) = FALSE THEN
3497: p_uso_ins_rec.status :='E';
3498: fnd_message.set_name('IGS','IGS_PS_INST_NOT_FACULTY_STAFF');
3499: fnd_msg_pub.add;
3500: END IF;
3501:
3502: IF p_uso_ins_rec.confirmed_flag = 'Y' THEN
3504: FETCH c_cal_setup INTO l_c_cal;
3505: CLOSE c_cal_setup;
3506: IF l_c_cal IS NULL THEN
3507: p_uso_ins_rec.status :='E';
3508: fnd_message.set_name('IGS','IGS_PS_NO_CAL_CAT_SETUP');
3509: fnd_msg_pub.add;
3510: ELSIF l_c_cal = 'x' THEN
3511: l_n_total_wl := NVL(p_uso_ins_rec.instructional_load_lecture,0) +
3512: NVL(p_uso_ins_rec.instructional_load_laboratory,0) +
3523: l_n_tot_fac_wl,
3524: l_n_exp_wl
3525: ) THEN
3526: p_uso_ins_rec.status :='E';
3527: fnd_message.set_name('IGS','IGS_PS_FAC_EXCEED_EXP_WL');
3528: fnd_msg_pub.add;
3529: END IF;
3530: IF l_n_exp_wl IS NULL OR l_n_exp_wl = 0 THEN
3531: p_uso_ins_rec.status :='E';
3528: fnd_msg_pub.add;
3529: END IF;
3530: IF l_n_exp_wl IS NULL OR l_n_exp_wl = 0 THEN
3531: p_uso_ins_rec.status :='E';
3532: fnd_message.set_name('IGS','IGS_PS_NO_SETUP_FAC_EXCEED');
3533: fnd_msg_pub.add;
3534: END IF;
3535: END IF;
3536: END IF;
3664: OPEN c_count_lead(l_tab_uoo(I));
3665: FETCH c_count_lead INTO l_n_count;
3666: CLOSE c_count_lead;
3667: IF l_n_count < 1 THEN
3668: fnd_message.set_name('IGS','IGS_PS_ATLST_ONE_LD_INSTRCTR');
3669: fnd_msg_pub.add;
3670: l_b_validation :=FALSE;
3671: ELSIF l_n_count > 1 THEN
3672: fnd_message.set_name ('IGS','IGS_PS_LEAD_INSTRUCTOR_ONE');
3668: fnd_message.set_name('IGS','IGS_PS_ATLST_ONE_LD_INSTRCTR');
3669: fnd_msg_pub.add;
3670: l_b_validation :=FALSE;
3671: ELSIF l_n_count > 1 THEN
3672: fnd_message.set_name ('IGS','IGS_PS_LEAD_INSTRUCTOR_ONE');
3673: fnd_msg_pub.add;
3674: l_b_validation :=FALSE;
3675: END IF;
3676:
3679: FETCH c_count_percent INTO l_n_count;
3680: CLOSE c_count_percent;
3681:
3682: IF l_n_count <> 100 THEN
3683: fnd_message.set_name('IGS', 'IGS_PS_US_TCHRESP_NOTTOTAL_100');
3684: fnd_msg_pub.add;
3685: l_b_wl_validation :=FALSE; -- modified as a part of Bug # 3568858.
3686: END IF;
3687:
3685: l_b_wl_validation :=FALSE; -- modified as a part of Bug # 3568858.
3686: END IF;
3687:
3688: IF NOT igs_ps_fac_credt_wrkload.validate_workload(l_tab_uoo(I),l_n_tot_lec,l_n_tot_lab,l_n_tot_oth) THEN
3689: fnd_message.set_name('IGS','IGS_PS_WKLOAD_VALIDATION');
3690: OPEN c_null;
3691: FETCH c_null INTO l_c_null;
3692: CLOSE c_null;
3693:
3691: FETCH c_null INTO l_c_null;
3692: CLOSE c_null;
3693:
3694: IF l_n_tot_lec = -999 THEN
3695: fnd_message.set_token('WKLOAD_LECTURE',l_c_null);
3696: ELSE
3697: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
3698: END IF;
3699:
3693:
3694: IF l_n_tot_lec = -999 THEN
3695: fnd_message.set_token('WKLOAD_LECTURE',l_c_null);
3696: ELSE
3697: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
3698: END IF;
3699:
3700: IF l_n_tot_lab = -999 THEN
3701: fnd_message.set_token('WKLOAD_LAB',l_c_null);
3697: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
3698: END IF;
3699:
3700: IF l_n_tot_lab = -999 THEN
3701: fnd_message.set_token('WKLOAD_LAB',l_c_null);
3702: ELSE
3703: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
3704: END IF;
3705:
3699:
3700: IF l_n_tot_lab = -999 THEN
3701: fnd_message.set_token('WKLOAD_LAB',l_c_null);
3702: ELSE
3703: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
3704: END IF;
3705:
3706: IF l_n_tot_oth = -999 THEN
3707: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
3703: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
3704: END IF;
3705:
3706: IF l_n_tot_oth = -999 THEN
3707: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
3708: ELSE
3709: fnd_message.set_token('WKLOAD_OTHER',l_n_tot_oth);
3710: END IF;
3711:
3705:
3706: IF l_n_tot_oth = -999 THEN
3707: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
3708: ELSE
3709: fnd_message.set_token('WKLOAD_OTHER',l_n_tot_oth);
3710: END IF;
3711:
3712: fnd_msg_pub.add;
3713: l_b_wl_validation :=FALSE; -- modified as a part of Bug # 3568858.
3788:
3789: IF p_unit_ref_rec.data_type = 'UNIT' THEN -- check whether the reference code type is allowable at unit level
3790:
3791: IF rec_ref_flag.unit_flag IS NULL OR rec_ref_flag.unit_flag = 'N' THEN
3792: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_REF_LVL');
3793: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3794: p_unit_ref_rec.status := 'E';
3795: END IF;
3796:
3789: IF p_unit_ref_rec.data_type = 'UNIT' THEN -- check whether the reference code type is allowable at unit level
3790:
3791: IF rec_ref_flag.unit_flag IS NULL OR rec_ref_flag.unit_flag = 'N' THEN
3792: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_REF_LVL');
3793: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3794: p_unit_ref_rec.status := 'E';
3795: END IF;
3796:
3797: ELSIF p_unit_ref_rec.data_type = 'SECTION' THEN -- check whether the reference code type is allowable at unit section level
3796:
3797: ELSIF p_unit_ref_rec.data_type = 'SECTION' THEN -- check whether the reference code type is allowable at unit section level
3798:
3799: IF rec_ref_flag.unit_section_flag IS NULL OR rec_ref_flag.unit_section_flag = 'N' THEN
3800: fnd_message.set_name('IGS','IGS_PS_LGCY_USEC_REF_LVL');
3801: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3802: p_unit_ref_rec.status := 'E';
3803: END IF;
3804:
3797: ELSIF p_unit_ref_rec.data_type = 'SECTION' THEN -- check whether the reference code type is allowable at unit section level
3798:
3799: IF rec_ref_flag.unit_section_flag IS NULL OR rec_ref_flag.unit_section_flag = 'N' THEN
3800: fnd_message.set_name('IGS','IGS_PS_LGCY_USEC_REF_LVL');
3801: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3802: p_unit_ref_rec.status := 'E';
3803: END IF;
3804:
3805: ELSIF p_unit_ref_rec.data_type = 'OCCURRENCE' THEN -- check whether the reference code type is allowable at unit sectin occurrence level
3804:
3805: ELSIF p_unit_ref_rec.data_type = 'OCCURRENCE' THEN -- check whether the reference code type is allowable at unit sectin occurrence level
3806:
3807: IF rec_ref_flag.unit_section_occurrence_flag IS NULL OR rec_ref_flag.unit_section_occurrence_flag = 'N' THEN
3808: fnd_message.set_name('IGS','IGS_PS_LGCY_OCCUR_REF_LVL');
3809: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3810: p_unit_ref_rec.status := 'E';
3811: END IF;
3812:
3805: ELSIF p_unit_ref_rec.data_type = 'OCCURRENCE' THEN -- check whether the reference code type is allowable at unit sectin occurrence level
3806:
3807: IF rec_ref_flag.unit_section_occurrence_flag IS NULL OR rec_ref_flag.unit_section_occurrence_flag = 'N' THEN
3808: fnd_message.set_name('IGS','IGS_PS_LGCY_OCCUR_REF_LVL');
3809: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REF_NA', fnd_message.get, NULL, FALSE);
3810: p_unit_ref_rec.status := 'E';
3811: END IF;
3812:
3813: IF p_calling_context <> 'S' THEN
3813: IF p_calling_context <> 'S' THEN
3814: OPEN c_ref_code (p_n_uso_id);
3815: FETCH c_ref_code INTO l_c_var;
3816: IF c_ref_code%FOUND THEN
3817: fnd_message.set_name ( 'IGS', 'IGS_PS_SCHEDULING_IN_PROGRESS' );
3818: fnd_msg_pub.add;
3819: p_unit_ref_rec.status := 'E';
3820: END IF;
3821: CLOSE c_ref_code;
3833:
3834: IF p_unit_ref_rec.data_type IN ('SECTION','OCCURRENCE') THEN
3835: --Check if the unit section is NOT_OFFERED
3836: IF NOT igs_ps_validate_lgcy_pkg.check_not_offered_usec_status(p_n_uoo_id) THEN
3837: fnd_message.set_name ( 'IGS', 'IGS_PS_IMP_NOT_ALD_NOT_OFFERED' );
3838: fnd_msg_pub.add;
3839: p_unit_ref_rec.status := 'E';
3840: END IF;
3841: