[Home] [Help]
277:
278:
279: IF p_usec_rsv_rec.status = 'S' AND p_calling_context = 'S' THEN
280: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
281: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
282: fnd_msg_pub.add;
283: p_usec_rsv_rec.status := 'A';
284: END IF;
285:
1013:
1014: -- Find out whether record can go for import in context of cancelled/aborted
1015: IF p_usec_occurs_facility_tbl(I).status = 'S' AND p_calling_context ='S' THEN
1016: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
1017: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1018: fnd_msg_pub.add;
1019: p_usec_occurs_facility_tbl(I).status := 'A';
1020: END IF;
1021:
1282: END IF;
1283:
1284: IF p_usec_cat_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
1285: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
1286: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1287: fnd_msg_pub.add;
1288: p_usec_cat_tbl(I).status := 'A';
1289: END IF;
1290:
1683: END IF;
1684:
1685: IF p_usec_teach_resp_ovrd_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
1686: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
1687: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
1688: fnd_msg_pub.add;
1689: p_usec_teach_resp_ovrd_tbl(I).status := 'A';
1690: END IF;
1691:
2027: END IF;
2028:
2029: --check if calendar instance is inactive
2030: IF NOT igs_ps_val_uai.crsp_val_crs_ci(l_c_cal_type, l_n_seq_num, l_c_message) THEN
2031: fnd_message.set_name ( 'IGS', l_c_message );
2032: fnd_msg_pub.add;
2033: p_as_us_ai_group_rec.status := 'E';
2034: END IF;
2035:
2034: END IF;
2035:
2036: --check if calendar type is closed
2037: IF NOT igs_as_val_uai.crsp_val_uo_cal_type(l_c_cal_type, l_c_message) THEN
2038: fnd_message.set_name ( 'IGS', l_c_message );
2039: fnd_msg_pub.add;
2040: p_as_us_ai_group_rec.status := 'E';
2041: END IF;
2042:
2241:
2242: -- Find out whether record can go for import in context of cancelled/aborted
2243: IF p_as_us_ai_group_rec.status = 'S' AND p_calling_context = 'S' THEN
2244: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
2245: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
2246: fnd_msg_pub.add;
2247: p_as_us_ai_group_rec.status := 'A';
2248: END IF;
2249:
2815: END IF;
2816:
2817: IF p_unitass_item_rec.status = 'S' AND p_calling_context = 'S' THEN
2818: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
2819: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
2820: fnd_msg_pub.add;
2821: p_unitass_item_rec.status := 'A';
2822: END IF;
2823:
3320:
3321: -- Find out whether record can go for import in context of cancelled/aborted
3322: IF p_uso_cm_grp_rec.status = 'S' AND p_calling_context = 'S' THEN
3323: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
3324: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
3325: fnd_msg_pub.add;
3326: p_uso_cm_grp_rec.status := 'A';
3327: END IF;
3328:
3618: END IF;
3619:
3620: IF p_uso_clas_meet_rec.status = 'S' AND p_calling_context = 'S' THEN
3621: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
3622: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
3623: fnd_msg_pub.add;
3624: p_uso_clas_meet_rec.status := 'A';
3625: END IF;
3626:
4071:
4072: -- Find out whether record can go for import in context of cancelled/aborted
4073: IF p_usec_x_grp_rec.status = 'S' AND p_calling_context = 'S' THEN
4074: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4075: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4076: fnd_msg_pub.add;
4077: p_usec_x_grp_rec.status := 'A';
4078: END IF;
4079:
4375: END IF;
4376:
4377: IF p_usec_x_grpmem.status = 'S' AND p_calling_context = 'S' THEN
4378: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4379: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4380: fnd_msg_pub.add;
4381: p_usec_x_grpmem.status := 'A';
4382: END IF;
4383:
4798: END IF;
4799:
4800: IF p_usec_wlst_rec.status = 'S' AND p_calling_context ='S' THEN
4801: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
4802: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
4803: fnd_msg_pub.add;
4804: p_usec_wlst_rec.status := 'A';
4805: END IF;
4806:
5513:
5514: -- Find out whether record can go for import in context of cancelled/aborted
5515: IF p_usec_notes_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
5516: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
5517: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
5518: fnd_msg_pub.add;
5519: p_usec_notes_tbl(I).status := 'A';
5520: END IF;
5521:
5864: p_usec_assmnt_rec.exam_start_time := TO_CHAR(l_d_exam_start_time,'HH24:MI');
5865: END IF;
5866: EXCEPTION
5867: WHEN OTHERS THEN
5868: FND_MESSAGE.set_name ('IGS','IGS_GE_INVALID_DATE_FORMAT');
5869: fnd_msg_pub.add;
5870: p_usec_assmnt_rec.status := 'E';
5871: END;
5872:
5878:
5879: END IF;
5880: EXCEPTION
5881: WHEN OTHERS THEN
5882: FND_MESSAGE.set_name ('IGS','IGS_GE_INVALID_DATE_FORMAT');
5883: fnd_msg_pub.add;
5884: p_usec_assmnt_rec.status := 'E';
5885: END;
5886:
6050:
6051: -- Find out whether record can go for import in context of cancelled/aborted
6052: IF p_usec_assmnt_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
6053: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
6054: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6055: fnd_msg_pub.add;
6056: p_usec_assmnt_tbl(I).status := 'A';
6057: END IF;
6058:
6255: p_uso_ins_rec.status:='S';
6256:
6257: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6258: IF p_uso_ins_rec.instructor_person_number IS NULL OR p_uso_ins_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6259: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6260: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6261: p_uso_ins_rec.status := 'E';
6262: END IF;
6263:
6256:
6257: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6258: IF p_uso_ins_rec.instructor_person_number IS NULL OR p_uso_ins_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6259: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6260: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6261: p_uso_ins_rec.status := 'E';
6262: END IF;
6263:
6264: IF p_uso_ins_rec.unit_cd IS NULL OR p_uso_ins_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6291: IF (p_uso_ins_rec.teach_cal_alternate_code IS NULL OR p_uso_ins_rec.teach_cal_alternate_code = FND_API.G_MISS_CHAR ) AND
6292: (p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR ) AND
6293: (p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR) THEN
6294: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
6295: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6296: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6297: p_uso_ins_rec.status := 'E';
6298: END IF;
6299: END IF;
6292: (p_uso_ins_rec.location_cd IS NULL OR p_uso_ins_rec.location_cd = FND_API.G_MISS_CHAR ) AND
6293: (p_uso_ins_rec.unit_class IS NULL OR p_uso_ins_rec.unit_class = FND_API.G_MISS_CHAR) THEN
6294: IF p_uso_ins_rec.production_uso_id IS NULL OR p_uso_ins_rec.production_uso_id = FND_API.G_MISS_NUM THEN
6295: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6296: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6297: p_uso_ins_rec.status := 'E';
6298: END IF;
6299: END IF;
6300:
6345:
6346: -- Derive the Instructor identifier
6347: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
6348: IF l_n_ins_id IS NULL THEN
6349: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6350: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6351: p_uso_ins_rec.status := 'E';
6352: END IF;
6353:
6346: -- Derive the Instructor identifier
6347: igs_ps_validate_lgcy_pkg.get_party_id(p_uso_ins_rec.instructor_person_number, l_n_ins_id);
6348: IF l_n_ins_id IS NULL THEN
6349: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6350: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6351: p_uso_ins_rec.status := 'E';
6352: END IF;
6353:
6354: -- if the production unit section occurrence identifier is provided then validate it
6360: OPEN c_uoo_id(l_n_uso_id);
6361: FETCH c_uoo_id INTO l_n_uoo_id;
6362: CLOSE c_uoo_id;
6363: ELSE
6364: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6365: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6366: p_uso_ins_rec.status := 'E';
6367: END IF;
6368: ELSE
6361: FETCH c_uoo_id INTO l_n_uoo_id;
6362: CLOSE c_uoo_id;
6363: ELSE
6364: fnd_message.set_name('IGS','IGS_PS_PRODUCTION_USO_ID');
6365: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6366: p_uso_ins_rec.status := 'E';
6367: END IF;
6368: ELSE
6369: -- Deriving the value of Unit section Occurrence identifier
6390: p_uso_id => l_n_uso_id,
6391: p_message => l_c_msg
6392: );
6393: IF l_c_msg IS NOT NULL THEN
6394: fnd_message.set_name('IGS',l_c_msg);
6395: fnd_msg_pub.add;
6396: p_uso_ins_rec.status := 'E';
6397: END IF;
6398:
6430: END;
6431:
6432: -- Foreign Key Checking
6433: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6434: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6435: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6436: p_uso_ins_rec.status := 'E';
6437: END IF;
6438: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6431:
6432: -- Foreign Key Checking
6433: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6434: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6435: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6436: p_uso_ins_rec.status := 'E';
6437: END IF;
6438: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
6439: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', 'UNIT_SECTION', 'LEGACY_TOKENS', FALSE);
6447: FETCH c_unit_ver INTO rec_unit_ver;
6448: IF c_unit_ver%FOUND THEN
6449: IF p_uso_ins_rec.unit_cd <> rec_unit_ver.unit_cd OR
6450: p_uso_ins_rec.version_number <> rec_unit_ver.version_number THEN
6451: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
6452: fnd_msg_pub.add;
6453: p_uso_ins_rec.status :='E';
6454: END IF;
6455: ELSE
6452: fnd_msg_pub.add;
6453: p_uso_ins_rec.status :='E';
6454: END IF;
6455: ELSE
6456: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
6457: fnd_msg_pub.add;
6458: p_uso_ins_rec.status :='E';
6459: END IF;
6460: CLOSE c_unit_ver;
6506:
6507: OPEN cur_enr(p_tab_uso_ins(I).system_uoo_id);
6508: FETCH cur_enr INTO l_c_var;
6509: IF cur_enr%FOUND THEN
6510: fnd_message.set_name('IGS','IGS_PS_ENR_EXISTS_NO_IMPORT');
6511: fnd_msg_pub.add;
6512: p_tab_uso_ins(I).status := 'E';
6513: p_c_rec_status := p_tab_uso_ins(I).status;
6514: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6549:
6550: -- Check uniqueness validation
6551: IF igs_ps_uso_instrctrs_pkg.get_uk_for_validation(p_tab_uso_ins(I).system_uso_id, p_tab_uso_ins(I).system_instructor_id) THEN
6552: p_tab_uso_ins(I).status :='E';
6553: fnd_message.set_name('IGS','IGS_PS_USO_INS');
6554: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get, NULL, FALSE);
6555: p_c_rec_status := p_tab_uso_ins(I).status;
6556: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6557: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6550: -- Check uniqueness validation
6551: IF igs_ps_uso_instrctrs_pkg.get_uk_for_validation(p_tab_uso_ins(I).system_uso_id, p_tab_uso_ins(I).system_instructor_id) THEN
6552: p_tab_uso_ins(I).status :='E';
6553: fnd_message.set_name('IGS','IGS_PS_USO_INS');
6554: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_EXISTS', fnd_message.get, NULL, FALSE);
6555: p_c_rec_status := p_tab_uso_ins(I).status;
6556: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6557: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6558: p_insert_status:= FALSE;
6662: END IF;
6663:
6664: IF p_tab_uso_ins(I).status = 'S' THEN
6665: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
6666: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6667: fnd_msg_pub.add;
6668: p_tab_uso_ins(I).status := 'A';
6669: END IF;
6670:
6682: --Business validations
6683: IF p_tab_uso_ins(I).status = 'S' THEN
6684: --Check if the unit is INACTIVE, then do not allow to import
6685: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_tab_uso_ins(I).unit_cd, p_tab_uso_ins(I).version_number,l_message_name)=FALSE THEN
6686: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
6687: fnd_msg_pub.add;
6688: p_tab_uso_ins(I).status := 'E';
6689: END IF;
6690:
6802: p_usec_teach_resp_rec.status:='S';
6803:
6804: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6805: IF p_usec_teach_resp_rec.instructor_person_number IS NULL OR p_usec_teach_resp_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6806: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6807: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6808: p_usec_teach_resp_rec.status := 'E';
6809: END IF;
6810:
6803:
6804: -- Checking for the mandatory existence of Unit Code, verison number, instructor person number parameter in the record.
6805: IF p_usec_teach_resp_rec.instructor_person_number IS NULL OR p_usec_teach_resp_rec.instructor_person_number = FND_API.G_MISS_CHAR THEN
6806: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6807: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_MANDATORY',fnd_message.get,NULL,FALSE);
6808: p_usec_teach_resp_rec.status := 'E';
6809: END IF;
6810:
6811: IF p_usec_teach_resp_rec.unit_cd IS NULL OR p_usec_teach_resp_rec.unit_cd = FND_API.G_MISS_CHAR THEN
6850:
6851: -- Derive the Instructor identifier
6852: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_teach_resp_rec.instructor_person_number, l_n_ins_id);
6853: IF l_n_ins_id IS NULL THEN
6854: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6855: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6856: p_usec_teach_resp_rec.status := 'E';
6857: END IF;
6858:
6851: -- Derive the Instructor identifier
6852: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_teach_resp_rec.instructor_person_number, l_n_ins_id);
6853: IF l_n_ins_id IS NULL THEN
6854: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6855: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
6856: p_usec_teach_resp_rec.status := 'E';
6857: END IF;
6858:
6859:
6898: BEGIN
6899: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_usec_teach_resp_rec.lead_instructor_flag);
6900: EXCEPTION
6901: WHEN OTHERS THEN
6902: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
6903: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6904: p_usec_teach_resp_rec.status :='E';
6905: END;
6906:
6899: igs_ps_usec_tch_resp_pkg.check_constraints('LEAD_INSTRUCTOR_FLAG', p_usec_teach_resp_rec.lead_instructor_flag);
6900: EXCEPTION
6901: WHEN OTHERS THEN
6902: fnd_message.set_name('IGS','IGS_PS_LEAD_INSTRUCTOR_FLAG');
6903: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6904: p_usec_teach_resp_rec.status :='E';
6905: END;
6906:
6907: BEGIN
6907: BEGIN
6908: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_usec_teach_resp_rec.confirmed_flag);
6909: EXCEPTION
6910: WHEN OTHERS THEN
6911: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
6912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6913: p_usec_teach_resp_rec.status :='E';
6914: END;
6915:
6908: igs_ps_usec_tch_resp_pkg.check_constraints('CONFIRMED_FLAG', p_usec_teach_resp_rec.confirmed_flag);
6909: EXCEPTION
6910: WHEN OTHERS THEN
6911: fnd_message.set_name('IGS','IGS_PS_CONFIRMED_FLAG');
6912: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_Y_OR_N',fnd_message.get, NULL,TRUE);
6913: p_usec_teach_resp_rec.status :='E';
6914: END;
6915:
6916: IF p_usec_teach_resp_rec.wl_percentage_allocation IS NOT NULL THEN
6927: BEGIN
6928: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_usec_teach_resp_rec.instructional_load_lecture);
6929: EXCEPTION
6930: WHEN OTHERS THEN
6931: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
6932: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
6933: p_usec_teach_resp_rec.status :='E';
6934: END;
6935: END IF;
6928: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LECTURE', p_usec_teach_resp_rec.instructional_load_lecture);
6929: EXCEPTION
6930: WHEN OTHERS THEN
6931: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LECTURE');
6932: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get, NULL,TRUE);
6933: p_usec_teach_resp_rec.status :='E';
6934: END;
6935: END IF;
6936:
6938: BEGIN
6939: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_usec_teach_resp_rec.instructional_load_laboratory);
6940: EXCEPTION
6941: WHEN OTHERS THEN
6942: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
6943: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6944: p_usec_teach_resp_rec.status :='E';
6945: END;
6946: END IF;
6939: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD_LAB', p_usec_teach_resp_rec.instructional_load_laboratory);
6940: EXCEPTION
6941: WHEN OTHERS THEN
6942: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_LAB');
6943: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6944: p_usec_teach_resp_rec.status :='E';
6945: END;
6946: END IF;
6947:
6949: BEGIN
6950: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_usec_teach_resp_rec.instructional_load_other);
6951: EXCEPTION
6952: WHEN OTHERS THEN
6953: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
6954: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6955: p_usec_teach_resp_rec.status :='E';
6956: END;
6957: END IF;
6950: igs_ps_usec_tch_resp_pkg.check_constraints('INSTRUCTIONAL_LOAD', p_usec_teach_resp_rec.instructional_load_other);
6951: EXCEPTION
6952: WHEN OTHERS THEN
6953: fnd_message.set_name('IGS','IGS_PS_INS_LOAD_OTHER');
6954: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_VAL_0_9999D99',fnd_message.get,NULL,TRUE);
6955: p_usec_teach_resp_rec.status :='E';
6956: END;
6957: END IF;
6958:
6957: END IF;
6958:
6959: -- Foreign Key Checking
6960: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6961: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6962: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6963: p_usec_teach_resp_rec.status := 'E';
6964: END IF;
6965:
6958:
6959: -- Foreign Key Checking
6960: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
6961: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
6962: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
6963: p_usec_teach_resp_rec.status := 'E';
6964: END IF;
6965:
6966: IF NOT igs_ps_unit_ofr_opt_pkg.get_uk_for_validation (l_n_uoo_id ) THEN
7061: l_n_count NUMBER;
7062: BEGIN
7063: --Check if the unit is INACTIVE, then do not allow to import
7064: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_teach_resp_rec.unit_cd, p_usec_teach_resp_rec.version_number,l_message_name)=FALSE THEN
7065: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
7066: fnd_msg_pub.add;
7067: p_usec_teach_resp_rec.status := 'E';
7068: END IF;
7069:
7073: p_usec_teach_resp_rec.wl_percentage_allocation IS NULL AND
7074: p_usec_teach_resp_rec.instructional_load_lecture IS NULL AND
7075: p_usec_teach_resp_rec.instructional_load_laboratory IS NULL AND
7076: p_usec_teach_resp_rec.instructional_load_other IS NULL THEN
7077: fnd_message.set_name('IGS','IGS_PS_PERCENT_WKLD_MANDATORY');
7078: fnd_msg_pub.add;
7079: p_usec_teach_resp_rec.status := 'E';
7080: END IF;
7081:
7082:
7083: --Instructor should be staff or faculty
7084: IF igs_ps_validate_lgcy_pkg.validate_staff_faculty (p_person_id => l_n_ins_id) = FALSE THEN
7085: p_usec_teach_resp_rec.status :='E';
7086: fnd_message.set_name('IGS','IGS_PS_INST_NOT_FACULTY_STAFF');
7087: fnd_msg_pub.add;
7088: END IF;
7089:
7090: -- if workload percentage is provided need to dervie the lecture /lab / other workloads.
7105: FETCH c_cal_setup INTO l_c_cal;
7106: CLOSE c_cal_setup;
7107: IF l_c_cal IS NULL THEN
7108: p_usec_teach_resp_rec.status :='E';
7109: fnd_message.set_name('IGS','IGS_PS_NO_CAL_CAT_SETUP');
7110: fnd_msg_pub.add;
7111: ELSIF l_c_cal = 'x' THEN
7112: l_n_total_wl := NVL(p_usec_teach_resp_rec.instructional_load_lecture,0) +
7113: NVL(p_usec_teach_resp_rec.instructional_load_laboratory,0) +
7124: l_n_tot_fac_wl,
7125: l_n_exp_wl
7126: ) THEN
7127: p_usec_teach_resp_rec.status :='E';
7128: fnd_message.set_name('IGS','IGS_PS_FAC_EXCEED_EXP_WL');
7129: fnd_msg_pub.add;
7130: END IF;
7131: IF l_n_exp_wl IS NULL OR l_n_exp_wl = 0 THEN
7132: p_usec_teach_resp_rec.status :='E';
7129: fnd_msg_pub.add;
7130: END IF;
7131: IF l_n_exp_wl IS NULL OR l_n_exp_wl = 0 THEN
7132: p_usec_teach_resp_rec.status :='E';
7133: fnd_message.set_name('IGS','IGS_PS_NO_SETUP_FAC_EXCEED');
7134: fnd_msg_pub.add;
7135: END IF;
7136: END IF;
7137: END IF;
7218: OPEN c_count_lead(l_tab_uoo(I));
7219: FETCH c_count_lead INTO l_n_count;
7220: CLOSE c_count_lead;
7221: IF l_n_count < 1 THEN
7222: fnd_message.set_name('IGS','IGS_PS_ATLST_ONE_LD_INSTRCTR');
7223: fnd_msg_pub.add;
7224: l_b_validation :=FALSE;
7225: ELSIF l_n_count > 1 THEN
7226: fnd_message.set_name ('IGS','IGS_PS_LEAD_INSTRUCTOR_ONE');
7222: fnd_message.set_name('IGS','IGS_PS_ATLST_ONE_LD_INSTRCTR');
7223: fnd_msg_pub.add;
7224: l_b_validation :=FALSE;
7225: ELSIF l_n_count > 1 THEN
7226: fnd_message.set_name ('IGS','IGS_PS_LEAD_INSTRUCTOR_ONE');
7227: fnd_msg_pub.add;
7228: l_b_validation :=FALSE;
7229: END IF;
7230:
7233: FETCH c_count_percent INTO l_n_count;
7234: CLOSE c_count_percent;
7235:
7236: IF l_n_count <> 100 THEN
7237: fnd_message.set_name('IGS', 'IGS_PS_US_TCHRESP_NOTTOTAL_100');
7238: fnd_msg_pub.add;
7239: l_b_wl_validation :=FALSE;
7240: END IF;
7241:
7239: l_b_wl_validation :=FALSE;
7240: END IF;
7241:
7242: 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
7243: fnd_message.set_name('IGS','IGS_PS_WKLOAD_VALIDATION');
7244: OPEN c_null;
7245: FETCH c_null INTO l_c_null;
7246: CLOSE c_null;
7247:
7245: FETCH c_null INTO l_c_null;
7246: CLOSE c_null;
7247:
7248: IF l_n_tot_lec = -999 THEN
7249: fnd_message.set_token('WKLOAD_LECTURE',l_c_null);
7250: ELSE
7251: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
7252: END IF;
7253:
7247:
7248: IF l_n_tot_lec = -999 THEN
7249: fnd_message.set_token('WKLOAD_LECTURE',l_c_null);
7250: ELSE
7251: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
7252: END IF;
7253:
7254: IF l_n_tot_lab = -999 THEN
7255: fnd_message.set_token('WKLOAD_LAB',l_c_null);
7251: fnd_message.set_token('WKLOAD_LECTURE',l_n_tot_lec);
7252: END IF;
7253:
7254: IF l_n_tot_lab = -999 THEN
7255: fnd_message.set_token('WKLOAD_LAB',l_c_null);
7256: ELSE
7257: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
7258: END IF;
7259:
7253:
7254: IF l_n_tot_lab = -999 THEN
7255: fnd_message.set_token('WKLOAD_LAB',l_c_null);
7256: ELSE
7257: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
7258: END IF;
7259:
7260: IF l_n_tot_oth = -999 THEN
7261: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
7257: fnd_message.set_token('WKLOAD_LAB',l_n_tot_lab);
7258: END IF;
7259:
7260: IF l_n_tot_oth = -999 THEN
7261: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
7262: ELSE
7263: fnd_message.set_token('WKLOAD_OTHER',l_n_tot_oth);
7264: END IF;
7265:
7259:
7260: IF l_n_tot_oth = -999 THEN
7261: fnd_message.set_token('WKLOAD_OTHER',l_c_null);
7262: ELSE
7263: fnd_message.set_token('WKLOAD_OTHER',l_n_tot_oth);
7264: END IF;
7265:
7266: fnd_msg_pub.add;
7267: l_b_wl_validation :=FALSE; -- modified as a part of Bug # 3568858.
7348:
7349:
7350: IF p_usec_teach_resp_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
7351: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
7352: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7353: fnd_msg_pub.add;
7354: p_usec_teach_resp_tbl(I).status := 'A';
7355: END IF;
7356:
7767: --Store the superior calendars in a pl-sql tables for the input teaching calendars
7768: createCalendar;
7769: --Check if the unit is INACTIVE, then do not allow to import
7770: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_sp_fee_rec.unit_cd, p_usec_sp_fee_rec.version_number,l_message_name)=FALSE THEN
7771: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
7772: fnd_msg_pub.add;
7773: p_usec_sp_fee_rec.status := 'E';
7774: END IF;
7775:
7774: END IF;
7775:
7776: --If enrollment exists for this unit section then insert/update
7777: IF igs_ps_gen_003.enrollment_for_uoo_check(l_n_uoo_id) = TRUE THEN
7778: fnd_message.set_name ( 'IGS', 'IGS_PS_US_FEE_TYP_USED_ENROLL' );
7779: fnd_msg_pub.add;
7780: p_usec_sp_fee_rec.status := 'E';
7781: END IF;
7782:
7858: END IF;
7859:
7860: IF p_usec_sp_fee_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
7861: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
7862: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7863: fnd_msg_pub.add;
7864: p_usec_sp_fee_tbl(I).status := 'A';
7865: END IF;
7866:
8171: -- Derive the Instructor identifier
8172: IF p_usec_plus_hr_rec.instructor_number IS NOT NULL AND p_usec_plus_hr_rec.instructor_number <> FND_API.G_MISS_CHAR THEN
8173: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_plus_hr_rec.instructor_number, l_n_ins_id);
8174: IF l_n_ins_id IS NULL THEN
8175: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8176: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8177: p_usec_plus_hr_rec.status := 'E';
8178: END IF;
8179: END IF;
8172: IF p_usec_plus_hr_rec.instructor_number IS NOT NULL AND p_usec_plus_hr_rec.instructor_number <> FND_API.G_MISS_CHAR THEN
8173: igs_ps_validate_lgcy_pkg.get_party_id(p_usec_plus_hr_rec.instructor_number, l_n_ins_id);
8174: IF l_n_ins_id IS NULL THEN
8175: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8176: igs_ps_validate_lgcy_pkg.set_msg('IGS_EN_INV', fnd_message.get,NULL, FALSE);
8177: p_usec_plus_hr_rec.status := 'E';
8178: END IF;
8179: END IF;
8180:
8257:
8258: -- Check for existence of instructor number
8259: IF l_n_ins_id IS NOT NULL THEN
8260: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
8261: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8262: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
8263: p_usec_plus_hr_rec.status := 'E';
8264: END IF;
8265: END IF;
8258: -- Check for existence of instructor number
8259: IF l_n_ins_id IS NOT NULL THEN
8260: IF NOT igs_pe_person_pkg.get_pk_for_validation(l_n_ins_id ) THEN
8261: fnd_message.set_name('IGS','IGS_PS_INS_PERSON_NUMBER');
8262: igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_LGCY_REC_NOT_EXISTS', fnd_message.get, NULL, FALSE);
8263: p_usec_plus_hr_rec.status := 'E';
8264: END IF;
8265: END IF;
8266:
8336: l_preferred_name igs_pe_person.preferred_name%TYPE;
8337: BEGIN
8338: --Check if the unit is INACTIVE, then do not allow to import
8339: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_plus_hr_rec.unit_cd, p_usec_plus_hr_rec.version_number,l_message_name)=FALSE THEN
8340: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
8341: fnd_msg_pub.add;
8342: p_usec_plus_hr_rec.status := 'E';
8343: END IF;
8344:
8345: --Instructor should be staff
8346: IF l_n_ins_id IS NOT NULL THEN
8347: IF igs_ge_mnt_sdtt.pid_val_staff (p_person_id => l_n_ins_id,p_preferred_name=>l_preferred_name) = FALSE THEN
8348: p_usec_plus_hr_rec.status :='E';
8349: fnd_message.set_name('IGS','IGS_PS_INST_NOT_STAFF');
8350: fnd_msg_pub.add;
8351: END IF;
8352: END IF;
8353:
8416: END IF;
8417:
8418: IF p_usec_plus_hr_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
8419: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
8420: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
8421: fnd_msg_pub.add;
8422: p_usec_plus_hr_tbl(I).status := 'A';
8423: END IF;
8424:
8747:
8748: BEGIN
8749: --Check if the unit is INACTIVE, then do not allow to import
8750: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_rule_rec.unit_cd, p_usec_rule_rec.version_number,l_message_name)=FALSE THEN
8751: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
8752: fnd_msg_pub.add;
8753: p_usec_rule_rec.status := 'E';
8754: END IF;
8755:
8827: END IF;
8828:
8829: IF p_usec_rule_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
8830: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
8831: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
8832: fnd_msg_pub.add;
8833: p_usec_rule_tbl(I).status := 'A';
8834: END IF;
8835:
8921: END IF;
8922:
8923: ELSE
8924: --Error in Rule Text cannot import
8925: fnd_message.set_name ( 'IGS', 'IGS_PS_INCORRECT_RULE' );
8926: fnd_msg_pub.add;
8927: p_usec_rule_tbl(I).status := 'E';
8928: END IF; --If l_success
8929:
9274:
9275: BEGIN
9276: --Check if the unit is INACTIVE, then do not allow to import
9277: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_enr_dead_rec.unit_cd, p_usec_enr_dead_rec.version_number,l_message_name)=FALSE THEN
9278: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
9279: fnd_msg_pub.add;
9280: p_usec_enr_dead_rec.status := 'E';
9281: END IF;
9282:
9283: --Check if the Unit Scetion is not Not standard then insert/update is not allowed
9284: OPEN cur_check_ns_usec(l_n_uoo_id);
9285: FETCH cur_check_ns_usec INTO l_c_var;
9286: IF cur_check_ns_usec%NOTFOUND THEN
9287: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9288: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DEADLINE','LEGACY_TOKENS'));
9289: fnd_msg_pub.add;
9290: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DEADLINE','LEGACY_TOKENS',FALSE);*/
9291: p_usec_enr_dead_rec.status := 'E';
9284: OPEN cur_check_ns_usec(l_n_uoo_id);
9285: FETCH cur_check_ns_usec INTO l_c_var;
9286: IF cur_check_ns_usec%NOTFOUND THEN
9287: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9288: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DEADLINE','LEGACY_TOKENS'));
9289: fnd_msg_pub.add;
9290: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DEADLINE','LEGACY_TOKENS',FALSE);*/
9291: p_usec_enr_dead_rec.status := 'E';
9292: END IF;
9362: END IF;
9363:
9364: IF p_usec_enr_dead_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
9365: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
9366: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
9367: fnd_msg_pub.add;
9368: p_usec_enr_dead_tbl(I).status := 'A';
9369: END IF;
9370:
9855:
9856: BEGIN
9857: --Check if the unit is INACTIVE, then do not allow to import
9858: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_enr_dis_rec.unit_cd, p_usec_enr_dis_rec.version_number,l_message_name)=FALSE THEN
9859: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
9860: fnd_msg_pub.add;
9861: p_usec_enr_dis_rec.status := 'E';
9862: END IF;
9863:
9864: --Check if the Unit Scetion is not Not standard then insert/update is not allowed
9865: OPEN cur_check_ns_usec(l_n_uoo_id);
9866: FETCH cur_check_ns_usec INTO l_c_var;
9867: IF cur_check_ns_usec%NOTFOUND THEN
9868: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9869: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DISCONTINUATION','LEGACY_TOKENS'));
9870: fnd_msg_pub.add;
9871: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DISCONTINUATION','LEGACY_TOKENS',FALSE);*/
9872: p_usec_enr_dis_rec.status := 'E';
9865: OPEN cur_check_ns_usec(l_n_uoo_id);
9866: FETCH cur_check_ns_usec INTO l_c_var;
9867: IF cur_check_ns_usec%NOTFOUND THEN
9868: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
9869: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('ENR_DISCONTINUATION','LEGACY_TOKENS'));
9870: fnd_msg_pub.add;
9871: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','ENR_DISCONTINUATION','LEGACY_TOKENS',FALSE);*/
9872: p_usec_enr_dis_rec.status := 'E';
9873: END IF;
9940: END IF;
9941:
9942: IF p_usec_enr_dis_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
9943: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
9944: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
9945: fnd_msg_pub.add;
9946: p_usec_enr_dis_tbl(I).status := 'A';
9947: END IF;
9948:
10435: --Store the superior calendars in a pl-sql tables for the input teaching calendars
10436: createCalendar;
10437: --Check if the unit is INACTIVE, then do not allow to import
10438: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_ret_rec.unit_cd, p_usec_ret_rec.version_number,l_message_name)=FALSE THEN
10439: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
10440: fnd_msg_pub.add;
10441: p_usec_ret_rec.status := 'E';
10442: END IF;
10443:
10444: --Check if the Unit Section is not Not standard then insert/update is not allowed
10445: OPEN cur_check_ns_usec(l_n_uoo_id);
10446: FETCH cur_check_ns_usec INTO l_c_var;
10447: IF cur_check_ns_usec%NOTFOUND THEN
10448: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
10449: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
10450: fnd_msg_pub.add;
10451: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
10452: p_usec_ret_rec.status := 'E';
10445: OPEN cur_check_ns_usec(l_n_uoo_id);
10446: FETCH cur_check_ns_usec INTO l_c_var;
10447: IF cur_check_ns_usec%NOTFOUND THEN
10448: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
10449: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
10450: fnd_msg_pub.add;
10451: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
10452: p_usec_ret_rec.status := 'E';
10453: END IF;
10481: --If formula method is 'P'/'M' and any details exists such that offset is greater than 100 then it is an error condition
10482: OPEN cur_check_formula(l_n_non_std_usec_rtn_id);
10483: FETCH cur_check_formula INTO l_c_var;
10484: IF cur_check_formula%FOUND THEN
10485: fnd_message.set_name ( 'IGS', 'IGS_PS_RTN_FORMULA_INVALID' );
10486: fnd_msg_pub.add;
10487: p_usec_ret_rec.status := 'E';
10488: END IF;
10489: CLOSE cur_check_formula;
10574: END IF;
10575:
10576: IF p_usec_ret_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
10577: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
10578: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
10579: fnd_msg_pub.add;
10580: p_usec_ret_tbl(I).status := 'A';
10581: END IF;
10582:
10791:
10792: --Offset date is mandatory when override date flag is set to 'Y'
10793: IF (p_usec_ret_dtl_rec.offset_date IS NULL OR p_usec_ret_dtl_rec.offset_date = FND_API.G_MISS_DATE) AND
10794: p_usec_ret_dtl_rec.override_date_flag ='Y' THEN
10795: fnd_message.set_name ( 'IGS', 'IGS_PS_OFFSET_DATE_MANDATORY' );
10796: fnd_msg_pub.add;
10797: p_usec_ret_dtl_rec.status := 'E';
10798: END IF;
10799:
11041:
11042: BEGIN
11043: --Check if the unit is INACTIVE, then do not allow to import
11044: IF igs_ps_val_unit.crsp_val_iud_uv_dtl(p_usec_ret_dtl_rec.unit_cd, p_usec_ret_dtl_rec.version_number,l_message_name)=FALSE THEN
11045: fnd_message.set_name ( 'IGS', 'IGS_PS_NOCHG_UNITVER_DETAILS' );
11046: fnd_msg_pub.add;
11047: p_usec_ret_dtl_rec.status := 'E';
11048: END IF;
11049:
11050: --Check if the Unit Section is not Not standard then insert/update is not allowed
11051: OPEN cur_check_ns_usec(l_n_uoo_id);
11052: FETCH cur_check_ns_usec INTO l_c_var;
11053: IF cur_check_ns_usec%NOTFOUND THEN
11054: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
11055: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
11056: fnd_msg_pub.add;
11057: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
11058: p_usec_ret_dtl_rec.status := 'E';
11051: OPEN cur_check_ns_usec(l_n_uoo_id);
11052: FETCH cur_check_ns_usec INTO l_c_var;
11053: IF cur_check_ns_usec%NOTFOUND THEN
11054: fnd_message.set_name ( 'IGS', 'IGS_PS_NON_STD_USEC_NOT_IMP' );
11055: fnd_message.set_token('RECORD',igs_ps_validate_lgcy_pkg.get_lkup_meaning('RETENTION','LEGACY_TOKENS'));
11056: fnd_msg_pub.add;
11057: /*igs_ps_validate_lgcy_pkg.set_msg('IGS_PS_NON_STD_USEC_NOT_IMP','RETENTION','LEGACY_TOKENS',FALSE);*/
11058: p_usec_ret_dtl_rec.status := 'E';
11059: END IF;
11063: --If formula method is 'P'/'M' and offset is greater than 100 then it is an error condition
11064: OPEN cur_check_formula(l_n_non_std_usec_rtn_id);
11065: FETCH cur_check_formula INTO l_c_var;
11066: IF cur_check_formula%FOUND THEN
11067: fnd_message.set_name ( 'IGS', 'IGS_PS_RTN_OFFSET_INVALID' );
11068: fnd_msg_pub.add;
11069: p_usec_ret_dtl_rec.status := 'E';
11070: END IF;
11071: CLOSE cur_check_formula;
11071: CLOSE cur_check_formula;
11072:
11073: --Either retention percent or retention amount can be provided not both
11074: IF p_usec_ret_dtl_rec.retention_percent IS NOT NULL AND p_usec_ret_dtl_rec.retention_amount IS NOT NULL THEN
11075: fnd_message.set_name ( 'IGS', 'IGS_PS_PER_AMT_BOTH_NOT_ALLOW' );
11076: fnd_msg_pub.add;
11077: p_usec_ret_dtl_rec.status := 'E';
11078: END IF;
11079:
11078: END IF;
11079:
11080: --Either retention amount or percent are mandatory
11081: IF p_usec_ret_dtl_rec.retention_percent IS NULL AND p_usec_ret_dtl_rec.retention_amount IS NULL THEN
11082: fnd_message.set_name ( 'IGS', 'IGS_PS_PER_OR_AMT_MANDATORY' );
11083: fnd_msg_pub.add;
11084: p_usec_ret_dtl_rec.status := 'E';
11085: END IF;
11086:
11146: END IF;
11147:
11148: IF p_usec_ret_dtl_tbl(I).status = 'S' AND p_calling_context = 'S' THEN
11149: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
11150: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
11151: fnd_msg_pub.add;
11152: p_usec_ret_dtl_tbl(I).status := 'A';
11153: END IF;
11154: