[Home] [Help]
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
488: IF p_tab_teach_resp.EXISTS(I) THEN
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
488: IF p_tab_teach_resp.EXISTS(I) THEN
489: IF p_tab_teach_resp(I).status = 'S' THEN
490: p_tab_teach_resp(I).status := 'E';
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
529: IF p_tab_unit_dscp.EXISTS(I) THEN
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
529: IF p_tab_unit_dscp.EXISTS(I) THEN
530: IF p_tab_unit_dscp(I).status = 'S' THEN
531: p_tab_unit_dscp(I).status := 'E';
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;
565: END validate_unit_grd_sch;
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
609: IF p_tab_grd_sch.EXISTS(I) THEN
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
609: IF p_tab_grd_sch.EXISTS(I) THEN
610: IF p_tab_grd_sch(I).status = 'S' THEN
611: p_tab_grd_sch(I).status := 'E';
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;
869:
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;
886:
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;
906: END IF;
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;
931:
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;
941: END IF;
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;
953:
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;
963:
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
981: ELSE
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;
988:
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:
1009:
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:
1043:
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;
1054:
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;
1077: ELSE
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:
1084: --Check if superior unit section exists in any enrollment activity
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:
1092: END IF;
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;
1112: END IF;
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:
1122:
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;
1137:
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:
1145: --If that unit has been used in auditing then do not allow unchecking of auditable_ind
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;
1155:
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
1162: IF p_usec_rec.audit_permission_ind <>c_usec_rec.audit_permission_ind THEN
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;
1168:
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;
1189:
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:
1352: --Billing credit Points can be provided only when auditable_ind is set to Y
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;
1486: CLOSE c_subtitle_id;
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;
1534: CLOSE c_subtitle_closed;
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:
1569: IF p_insert_update ='U' 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:
1588: END IF;
1589:
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;
1599: END IF;
1600: END validate_ref;
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:
1625: -- Check if unit status is inactive.
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:
1632: --Check if the unit section is NOT_OFFERED
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:
1639: END validate_usec_grd_sch;
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));
1690: FETCH c_uoo_id INTO c_uoo_id_rec;
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));
1690: FETCH c_uoo_id INTO c_uoo_id_rec;
1691: CLOSE c_uoo_id;
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
1885: IF ( p_uso_rec.start_date < p_d_start_date ) THEN
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
1900: IF ( p_uso_rec.start_date > p_d_end_date ) THEN
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;
1906:
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
1925: IF ( p_uso_rec.end_date < p_d_start_date ) THEN
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
1940: IF ( p_uso_rec.end_date > p_d_end_date ) THEN
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;
1946:
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:
1959: -- If to_be_announced is 'N' then atleast one of the day must be checked.
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:
1973: -- IF to_be_announced is 'Y' then no day should have 'Y'
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:
1990: --Start date and end date should be provided for normal unit section occurrences
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:
2006: -- Cannot enter Preferred Building/Room if Dedicated Building/Room is entered.
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:
2016: -- Can enter either Other Building Options (Preferred or Dedicated Building/Room) or Scheduled Building
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:
2029: -- Validate DFF columns
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:
2057:
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;
2070:
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;
2088: END IF;
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:
2099: --Check if the unit section is NOT_OFFERED
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:
2106: -- Room should belong to a valid building
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;
2116: END IF;
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;
2128: END IF;
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;
2140: END IF;
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;
2153:
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:
2167: --If schedule status is SCHEDULED and No_set_day is Y then it is error condition
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:
2183: --Cannot update occurrence for in progress occurrence when the calling context is not 'S'-scheduling
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:
2190: --If TBA is N then need to check if there is any instructors for the occurrences having time conflict, if yes then warning
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;
2215: END LOOP;
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
2239: fnd_message.set_name ( 'IGS', 'IGS_PS_VALUES_NULL' );
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;
2244:
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
2256: IF l_cur_sch_int.transaction_type IN ('CANCEL') AND p_n_building_code IS NOT NULL THEN
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:
2262: --Update the interface record transaction type and schedule status
2646: END IF;
2647: END IF;
2648:
2649: IF p_b_delete_flag THEN
2650: l_n_count:= FND_MSG_PUB.COUNT_MSG;
2651: -- Delete the message 'IGS_GE_INVALID_VALUE'
2652: IF l_n_count > 0 THEN
2653: FND_MSG_PUB.DELETE_MSG(l_n_count);
2654: END IF;
2649: IF p_b_delete_flag THEN
2650: l_n_count:= FND_MSG_PUB.COUNT_MSG;
2651: -- Delete the message 'IGS_GE_INVALID_VALUE'
2652: IF l_n_count > 0 THEN
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);
2661: ELSE
2662: FND_MESSAGE.SET_TOKEN('PARAM',p_c_token);
2663: END IF;
2664: END IF;
2665: FND_MSG_PUB.ADD;
2666:
2667: END set_msg;
2668:
2669: FUNCTION get_lkup_meaning(p_c_lkup_cd IN VARCHAR2,
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
2949: p_c_rec_status := 'E';
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
2955: p_c_rec_status := 'E';
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;
2961:
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
3074: p_usec_rec.status := 'E';
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
3080: p_usec_rec.override_enrollment_maximum IS NOT NULL THEN
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);
3087:
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:
3106: OPEN cur_db_value(p_n_uoo_id);
3107: FETCH cur_db_value INTO l_max_auditors_allowed;
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;
3127: CLOSE cur_is_audited;
3128: END IF;
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:
3137: OPEN c_usec_st(p_usec_rec.unit_cd,p_usec_rec.version_number);
3138: FETCH c_usec_st INTO c_usec_st_rec;
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;
3182:
3183: IF p_usec_rec.usec_waitlist_allowed = 'N' 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;
3192:
3193: IF (
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:
3214: END IF;
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:
3266: END IF;
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:
3344:
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:
3391: IF p_uso_ins_rec.wl_percentage_allocation IS NOT NULL THEN
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;
3482:
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
3503: OPEN c_cal_setup;
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) +
3513: NVL(p_uso_ins_rec.instructional_load_other,0);
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';
3532: fnd_message.set_name('IGS','IGS_PS_NO_SETUP_FAC_EXCEED');
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;
3537: CLOSE c_cal_inst;
3657: -- Get the workload validation type
3658: l_c_validation_type := igs_ps_fac_credt_wrkload.get_validation_type (rec_unit_dtls.unit_cd, rec_unit_dtls.version_number);
3659:
3660: FOR I in 1.. l_tab_uoo.count LOOP
3661: l_n_from := fnd_msg_pub.count_msg;
3662: l_b_validation := TRUE;
3663: l_b_wl_validation := TRUE;
3664: OPEN c_count_lead(l_tab_uoo(I));
3665: FETCH c_count_lead INTO l_n_count;
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');
3673: fnd_msg_pub.add;
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:
3677: IF l_c_validation_type <> 'NONE' THEN
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:
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
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.
3714: END IF;
3715: END IF;
3716:
3714: END IF;
3715: END IF;
3716:
3717: IF NOT (l_b_validation AND l_b_wl_validation) THEN
3718: l_n_to := fnd_msg_pub.count_msg;
3719: FOR j in 1.. v_tab_usec_tr.COUNT LOOP
3720: IF l_tab_uoo(I) = v_tab_usec_tr(j).uoo_id AND p_tab_uso_ins(v_tab_usec_tr(j).instr_index).status = 'S' THEN
3721: -- Setting the status of the record properly
3722: -- Set the status of records as error and return status (l_b_status) as error when
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;
3822:
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:
3842: END IF;