[Home] [Help]
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:
286: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
738: l_n_rsv_usec_pri_id:=NULL;
739: l_n_group_id := NULL;
740: IF p_usec_res_seat_tbl.EXISTS(I) THEN
741: p_usec_res_seat_tbl(I).status := 'S';
742: p_usec_res_seat_tbl(I).msg_from := fnd_msg_pub.count_msg;
743: trim_values(p_usec_res_seat_tbl(I));
744:
745:
746: --create reserved seating priority
794: p_usec_res_seat_tbl(I).msg_from := NULL;
795: p_usec_res_seat_tbl(I).msg_to := NULL;
796: ELSIF p_usec_res_seat_tbl(I).status = 'A' THEN
797: p_usec_res_seat_tbl(I).msg_from := p_usec_res_seat_tbl(I).msg_from + 1;
798: p_usec_res_seat_tbl(I).msg_to := fnd_msg_pub.count_msg;
799: ELSE
800: p_c_rec_status := p_usec_res_seat_tbl(I).status;
801: p_usec_res_seat_tbl(I).msg_from := p_usec_res_seat_tbl(I).msg_from + 1;
802: p_usec_res_seat_tbl(I).msg_to := fnd_msg_pub.count_msg;
798: p_usec_res_seat_tbl(I).msg_to := fnd_msg_pub.count_msg;
799: ELSE
800: p_c_rec_status := p_usec_res_seat_tbl(I).status;
801: p_usec_res_seat_tbl(I).msg_from := p_usec_res_seat_tbl(I).msg_from + 1;
802: p_usec_res_seat_tbl(I).msg_to := fnd_msg_pub.count_msg;
803: IF p_c_rec_status = 'E' THEN
804: RETURN;
805: END IF;
806: END IF;
985: IF ( p_usec_occurs_facility_tbl.EXISTS(I) ) THEN
986: l_n_uoo_id := NULL;
987: l_n_uso_id := NULL;
988: p_usec_occurs_facility_tbl(I).status := 'S';
989: p_usec_occurs_facility_tbl(I).msg_from := fnd_msg_pub.count_msg;
990: trim_values(p_usec_occurs_facility_tbl(I) );
991: validate_parameters ( p_usec_occurs_facility_tbl(I) );
992:
993: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
1022: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1094: p_usec_occurs_facility_tbl(I).msg_from := NULL;
1095: p_usec_occurs_facility_tbl(I).msg_to := NULL;
1096: ELSIF p_usec_occurs_facility_tbl(I).status = 'A' THEN
1097: p_usec_occurs_facility_tbl(I).msg_from := p_usec_occurs_facility_tbl(I).msg_from + 1;
1098: p_usec_occurs_facility_tbl(I).msg_to := fnd_msg_pub.count_msg;
1099: ELSE
1100: p_c_rec_status := p_usec_occurs_facility_tbl(I).status;
1101: p_usec_occurs_facility_tbl(I).msg_from :=p_usec_occurs_facility_tbl(I).msg_from+1;
1102: p_usec_occurs_facility_tbl(I).msg_to := fnd_msg_pub.count_msg;
1098: p_usec_occurs_facility_tbl(I).msg_to := fnd_msg_pub.count_msg;
1099: ELSE
1100: p_c_rec_status := p_usec_occurs_facility_tbl(I).status;
1101: p_usec_occurs_facility_tbl(I).msg_from :=p_usec_occurs_facility_tbl(I).msg_from+1;
1102: p_usec_occurs_facility_tbl(I).msg_to := fnd_msg_pub.count_msg;
1103: IF p_usec_occurs_facility_tbl(I).status = 'E' THEN
1104: RETURN;
1105: END IF;
1106: END IF;
1257: FOR I in 1..p_usec_cat_tbl.LAST LOOP
1258: IF ( p_usec_cat_tbl.EXISTS(I) ) THEN
1259: l_n_uoo_id := NULL;
1260: p_usec_cat_tbl(I).status := 'S';
1261: p_usec_cat_tbl(I).msg_from := fnd_msg_pub.count_msg;
1262: trim_values(p_usec_cat_tbl(I) );
1263: validate_parameters ( p_usec_cat_tbl(I) );
1264:
1265: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
1291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1360: p_usec_cat_tbl(I).msg_from := NULL;
1361: p_usec_cat_tbl(I).msg_to := NULL;
1362: ELSIF p_usec_cat_tbl(I).status = 'A' THEN
1363: p_usec_cat_tbl(I).msg_from := p_usec_cat_tbl(I).msg_from + 1;
1364: p_usec_cat_tbl(I).msg_to := fnd_msg_pub.count_msg;
1365: ELSE
1366: p_c_rec_status := p_usec_cat_tbl(I).status;
1367: p_usec_cat_tbl(I).msg_from :=p_usec_cat_tbl(I).msg_from+1;
1368: p_usec_cat_tbl(I).msg_to := fnd_msg_pub.count_msg;
1364: p_usec_cat_tbl(I).msg_to := fnd_msg_pub.count_msg;
1365: ELSE
1366: p_c_rec_status := p_usec_cat_tbl(I).status;
1367: p_usec_cat_tbl(I).msg_from :=p_usec_cat_tbl(I).msg_from+1;
1368: p_usec_cat_tbl(I).msg_to := fnd_msg_pub.count_msg;
1369: IF p_usec_cat_tbl(I).status = 'E' THEN
1370: RETURN;
1371: END IF;
1372: END IF;
1640: l_n_uoo_id := NULL;
1641: l_c_cal_type := NULL;
1642: l_n_seq_num := NULL;
1643: p_usec_teach_resp_ovrd_tbl(I).status := 'S';
1644: p_usec_teach_resp_ovrd_tbl(I).msg_from := fnd_msg_pub.count_msg;
1645: trim_values(p_usec_teach_resp_ovrd_tbl(I) );
1646:
1647: validate_parameters ( p_usec_teach_resp_ovrd_tbl(I) );
1648:
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:
1692: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1860: p_usec_teach_resp_ovrd_tbl(I).msg_from := NULL;
1861: p_usec_teach_resp_ovrd_tbl(I).msg_to := NULL;
1862: ELSIF p_usec_teach_resp_ovrd_tbl(I).status = 'A' THEN
1863: p_usec_teach_resp_ovrd_tbl(I).msg_from := p_usec_teach_resp_ovrd_tbl(I).msg_from + 1;
1864: p_usec_teach_resp_ovrd_tbl(I).msg_to := fnd_msg_pub.count_msg;
1865: ELSE
1866: p_c_rec_status := p_usec_teach_resp_ovrd_tbl(I).status;
1867: p_usec_teach_resp_ovrd_tbl(I).msg_from := p_usec_teach_resp_ovrd_tbl(I).msg_from+1;
1868: p_usec_teach_resp_ovrd_tbl(I).msg_to := fnd_msg_pub.count_msg;
1864: p_usec_teach_resp_ovrd_tbl(I).msg_to := fnd_msg_pub.count_msg;
1865: ELSE
1866: p_c_rec_status := p_usec_teach_resp_ovrd_tbl(I).status;
1867: p_usec_teach_resp_ovrd_tbl(I).msg_from := p_usec_teach_resp_ovrd_tbl(I).msg_from+1;
1868: p_usec_teach_resp_ovrd_tbl(I).msg_to := fnd_msg_pub.count_msg;
1869: IF p_usec_teach_resp_ovrd_tbl(I).status = 'E' THEN
1870: RETURN;
1871: END IF;
1872: 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:
2036: --check if calendar type is closed
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:
2043:
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:
2250: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
2824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2984: FOR I in 1..p_usec_ass_item_grp_tbl.LAST LOOP
2985: l_n_uoo_id:= NULL;
2986: IF p_usec_ass_item_grp_tbl.EXISTS(I) THEN
2987: p_usec_ass_item_grp_tbl(I).status := 'S';
2988: p_usec_ass_item_grp_tbl(I).msg_from := fnd_msg_pub.count_msg;
2989: trim_values(p_usec_ass_item_grp_tbl(I) );
2990:
2991: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2992: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_create_generic_pkg.create_usec_ass_item_grp.create_group.call',
3033: p_usec_ass_item_grp_tbl(I).msg_from := NULL;
3034: p_usec_ass_item_grp_tbl(I).msg_to := NULL;
3035: ELSIF p_usec_ass_item_grp_tbl(I).status = 'A' THEN
3036: p_usec_ass_item_grp_tbl(I).msg_from := p_usec_ass_item_grp_tbl(I).msg_from + 1;
3037: p_usec_ass_item_grp_tbl(I).msg_to := fnd_msg_pub.count_msg;
3038: ELSE
3039: p_c_rec_status := p_usec_ass_item_grp_tbl(I).status;
3040: p_usec_ass_item_grp_tbl(I).msg_from := p_usec_ass_item_grp_tbl(I).msg_from + 1;
3041: p_usec_ass_item_grp_tbl(I).msg_to := fnd_msg_pub.count_msg;
3037: p_usec_ass_item_grp_tbl(I).msg_to := fnd_msg_pub.count_msg;
3038: ELSE
3039: p_c_rec_status := p_usec_ass_item_grp_tbl(I).status;
3040: p_usec_ass_item_grp_tbl(I).msg_from := p_usec_ass_item_grp_tbl(I).msg_from + 1;
3041: p_usec_ass_item_grp_tbl(I).msg_to := fnd_msg_pub.count_msg;
3042: IF p_c_rec_status = 'E' THEN
3043: RETURN;
3044: END IF;
3045: END IF;
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:
3329: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
3627: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
3728: l_n_class_meet_group_id:= NULL;
3729:
3730: IF p_usec_meet_with_tbl.EXISTS(I) THEN
3731: p_usec_meet_with_tbl(I).status := 'S';
3732: p_usec_meet_with_tbl(I).msg_from := fnd_msg_pub.count_msg;
3733: trim_values(p_usec_meet_with_tbl(I) );
3734:
3735:
3736: -- create meet with class group
3783: p_usec_meet_with_tbl(I).msg_from := NULL;
3784: p_usec_meet_with_tbl(I).msg_to := NULL;
3785: ELSIF p_usec_meet_with_tbl(I).status = 'A' THEN
3786: p_usec_meet_with_tbl(I).msg_from := p_usec_meet_with_tbl(I).msg_from + 1;
3787: p_usec_meet_with_tbl(I).msg_to := fnd_msg_pub.count_msg;
3788: ELSE
3789: p_c_rec_status := p_usec_meet_with_tbl(I).status;
3790: p_usec_meet_with_tbl(I).msg_from := p_usec_meet_with_tbl(I).msg_from + 1;
3791: p_usec_meet_with_tbl(I).msg_to := fnd_msg_pub.count_msg;
3787: p_usec_meet_with_tbl(I).msg_to := fnd_msg_pub.count_msg;
3788: ELSE
3789: p_c_rec_status := p_usec_meet_with_tbl(I).status;
3790: p_usec_meet_with_tbl(I).msg_from := p_usec_meet_with_tbl(I).msg_from + 1;
3791: p_usec_meet_with_tbl(I).msg_to := fnd_msg_pub.count_msg;
3792: IF p_c_rec_status = 'E' THEN
3793: RETURN;
3794: END IF;
3795: END IF;
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:
4080: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
4384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4487: l_n_usec_x_listed_group_id :=NULL;
4488:
4489: IF p_usec_cross_group_tbl.EXISTS(I) THEN
4490: p_usec_cross_group_tbl(I).status := 'S';
4491: p_usec_cross_group_tbl(I).msg_from := fnd_msg_pub.count_msg;
4492: trim_values(p_usec_cross_group_tbl(I) );
4493:
4494:
4495: -- create crosslisted group
4542: p_usec_cross_group_tbl(I).msg_from := NULL;
4543: p_usec_cross_group_tbl(I).msg_to := NULL;
4544: ELSIF p_usec_cross_group_tbl(I).status = 'A' THEN
4545: p_usec_cross_group_tbl(I).msg_from := p_usec_cross_group_tbl(I).msg_from + 1;
4546: p_usec_cross_group_tbl(I).msg_to := fnd_msg_pub.count_msg;
4547: ELSE
4548: p_c_rec_status := p_usec_cross_group_tbl(I).status;
4549: p_usec_cross_group_tbl(I).msg_from := p_usec_cross_group_tbl(I).msg_from + 1;
4550: p_usec_cross_group_tbl(I).msg_to := fnd_msg_pub.count_msg;
4546: p_usec_cross_group_tbl(I).msg_to := fnd_msg_pub.count_msg;
4547: ELSE
4548: p_c_rec_status := p_usec_cross_group_tbl(I).status;
4549: p_usec_cross_group_tbl(I).msg_from := p_usec_cross_group_tbl(I).msg_from + 1;
4550: p_usec_cross_group_tbl(I).msg_to := fnd_msg_pub.count_msg;
4551: IF p_c_rec_status = 'E' THEN
4552: RETURN;
4553: END IF;
4554: 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:
4807: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5207: l_n_uoo_id:= NULL;
5208: l_n_wlst_usec_pri_id:=NULL;
5209: IF p_usec_waitlist_tbl.EXISTS(I) THEN
5210: p_usec_waitlist_tbl(I).status := 'S';
5211: p_usec_waitlist_tbl(I).msg_from := fnd_msg_pub.count_msg;
5212: trim_values(p_usec_waitlist_tbl(I));
5213:
5214: --create reserved seating priority
5215: IF p_usec_waitlist_tbl(I).status = 'S' THEN
5263: p_usec_waitlist_tbl(I).msg_from := NULL;
5264: p_usec_waitlist_tbl(I).msg_to := NULL;
5265: ELSIF p_usec_waitlist_tbl(I).status = 'A' THEN
5266: p_usec_waitlist_tbl(I).msg_from := p_usec_waitlist_tbl(I).msg_from + 1;
5267: p_usec_waitlist_tbl(I).msg_to := fnd_msg_pub.count_msg;
5268: ELSE
5269: p_c_rec_status := p_usec_waitlist_tbl(I).status;
5270: p_usec_waitlist_tbl(I).msg_from := p_usec_waitlist_tbl(I).msg_from + 1;
5271: p_usec_waitlist_tbl(I).msg_to := fnd_msg_pub.count_msg;
5267: p_usec_waitlist_tbl(I).msg_to := fnd_msg_pub.count_msg;
5268: ELSE
5269: p_c_rec_status := p_usec_waitlist_tbl(I).status;
5270: p_usec_waitlist_tbl(I).msg_from := p_usec_waitlist_tbl(I).msg_from + 1;
5271: p_usec_waitlist_tbl(I).msg_to := fnd_msg_pub.count_msg;
5272: IF p_c_rec_status = 'E' THEN
5273: RETURN;
5274: END IF;
5275: END IF;
5469: l_n_uoo_id := NULL;
5470: l_c_cal_type := NULL;
5471: l_n_seq_num := NULL;
5472: p_usec_notes_tbl(I).status := 'S';
5473: p_usec_notes_tbl(I).msg_from := fnd_msg_pub.count_msg;
5474: trim_values(p_usec_notes_tbl(I) );
5475:
5476: validate_parameters ( p_usec_notes_tbl(I) );
5477:
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:
5522: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5651: p_usec_notes_tbl(I).msg_from := NULL;
5652: p_usec_notes_tbl(I).msg_to := NULL;
5653: ELSIF p_usec_notes_tbl(I).status = 'A' THEN
5654: p_usec_notes_tbl(I).msg_from := p_usec_notes_tbl(I).msg_from + 1;
5655: p_usec_notes_tbl(I).msg_to := fnd_msg_pub.count_msg;
5656: ELSE
5657: p_c_rec_status := p_usec_notes_tbl(I).status;
5658: p_usec_notes_tbl(I).msg_from := p_usec_notes_tbl(I).msg_from+1;
5659: p_usec_notes_tbl(I).msg_to := fnd_msg_pub.count_msg;
5655: p_usec_notes_tbl(I).msg_to := fnd_msg_pub.count_msg;
5656: ELSE
5657: p_c_rec_status := p_usec_notes_tbl(I).status;
5658: p_usec_notes_tbl(I).msg_from := p_usec_notes_tbl(I).msg_from+1;
5659: p_usec_notes_tbl(I).msg_to := fnd_msg_pub.count_msg;
5660: IF p_usec_notes_tbl(I).status = 'E' THEN
5661: RETURN;
5662: END IF;
5663: END IF;
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:
5873: --exam end time in proper format
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:
5887: END validate_derivations;
6009: l_d_exam_end_time :=NULL;
6010: l_n_building_id :=NULL;
6011: l_n_room_id :=NULL;
6012: p_usec_assmnt_tbl(I).status := 'S';
6013: p_usec_assmnt_tbl(I).msg_from := fnd_msg_pub.count_msg;
6014: trim_values(p_usec_assmnt_tbl(I) );
6015:
6016: validate_parameters ( p_usec_assmnt_tbl(I) );
6017:
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:
6059: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6175: p_usec_assmnt_tbl(I).msg_from := NULL;
6176: p_usec_assmnt_tbl(I).msg_to := NULL;
6177: ELSIF p_usec_assmnt_tbl(I).status = 'A' THEN
6178: p_usec_assmnt_tbl(I).msg_from := p_usec_assmnt_tbl(I).msg_from + 1;
6179: p_usec_assmnt_tbl(I).msg_to := fnd_msg_pub.count_msg;
6180: ELSE
6181: p_c_rec_status := p_usec_assmnt_tbl(I).status;
6182: p_usec_assmnt_tbl(I).msg_from := p_usec_assmnt_tbl(I).msg_from+1;
6183: p_usec_assmnt_tbl(I).msg_to := fnd_msg_pub.count_msg;
6179: p_usec_assmnt_tbl(I).msg_to := fnd_msg_pub.count_msg;
6180: ELSE
6181: p_c_rec_status := p_usec_assmnt_tbl(I).status;
6182: p_usec_assmnt_tbl(I).msg_from := p_usec_assmnt_tbl(I).msg_from+1;
6183: p_usec_assmnt_tbl(I).msg_to := fnd_msg_pub.count_msg;
6184: IF p_usec_assmnt_tbl(I).status = 'E' THEN
6185: RETURN;
6186: END IF;
6187: END IF;
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:
6399: END IF;
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
6456: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
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;
6461:
6490: p_delete_status:= TRUE;
6491:
6492: FOR I in 1..p_tab_uso_ins.LAST LOOP
6493: IF p_tab_uso_ins.EXISTS(I) AND p_tab_uso_ins(I).status = 'S' THEN
6494: p_tab_uso_ins(I).msg_from := fnd_msg_pub.count_msg;
6495:
6496: OPEN cur_ins_exists(p_tab_uso_ins(I).system_uso_id);
6497: FETCH cur_ins_exists INTO l_c_var;
6498: IF cur_ins_exists%FOUND THEN
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;
6515: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
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;
6515: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6516: p_delete_status:= FALSE;
6517: RETURN;
6518: ELSE
6519: DELETE igs_ps_usec_tch_resp WHERE instructor_id=p_tab_uso_ins(I).system_instructor_id AND
6544: BEGIN
6545: p_insert_status:= TRUE;
6546: FOR I in 1..p_tab_uso_ins.LAST LOOP
6547: IF p_tab_uso_ins.EXISTS(I) AND p_tab_uso_ins(I).status = 'S' THEN
6548: p_tab_uso_ins(I).msg_from := fnd_msg_pub.count_msg;
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;
6558: p_insert_status:= FALSE;
6559: RETURN;
6560: ELSE
6561:
6593:
6594: IF p_tab_uso_ins(I).status <> 'S' THEN
6595: p_c_rec_status := p_tab_uso_ins(I).status;
6596: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6597: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6598: p_insert_status:= FALSE;
6599: RETURN;
6600: END IF;
6601: END IF;
6620: p_c_rec_status := 'S';
6621: FOR I in 1..p_tab_uso_ins.LAST LOOP
6622: IF p_tab_uso_ins.EXISTS(I) THEN
6623: p_tab_uso_ins(I).status := 'S';
6624: p_tab_uso_ins(I).msg_from := fnd_msg_pub.count_msg;
6625: trim_values(p_tab_uso_ins(I));
6626: validate_parameters(p_tab_uso_ins(I));
6627:
6628: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
6671: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
6691: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6713: p_tab_uso_ins(I).msg_from := NULL;
6714: p_tab_uso_ins(I).msg_to := NULL;
6715: ELSIF p_tab_uso_ins(I).status = 'A' THEN
6716: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from + 1;
6717: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6718: ELSE
6719: p_c_rec_status := p_tab_uso_ins(I).status;
6720: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6721: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6717: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6718: ELSE
6719: p_c_rec_status := p_tab_uso_ins(I).status;
6720: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
6721: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
6722: IF p_tab_uso_ins(I).status = 'E' THEN
6723: RETURN;
6724: END IF;
6725: END IF;
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:
7070: -- Validation : Either percentage allocation or workload value should be provided. Both cannot be null
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.
7091: IF p_usec_teach_resp_rec.wl_percentage_allocation IS NOT NULL AND
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) +
7114: NVL(p_usec_teach_resp_rec.instructional_load_other,0);
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';
7133: fnd_message.set_name('IGS','IGS_PS_NO_SETUP_FAC_EXCEED');
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;
7138: CLOSE c_cal_inst;
7211: l_c_validation_type := igs_ps_fac_credt_wrkload.get_validation_type (rec_unit_dtls.unit_cd, rec_unit_dtls.version_number);
7212:
7213: FOR I in 1.. l_tab_uoo.count LOOP
7214:
7215: l_n_from := fnd_msg_pub.count_msg;
7216: l_b_validation := TRUE;
7217: l_b_wl_validation := TRUE;
7218: OPEN c_count_lead(l_tab_uoo(I));
7219: FETCH c_count_lead INTO l_n_count;
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');
7227: fnd_msg_pub.add;
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:
7231: IF l_c_validation_type <> 'NONE' THEN
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:
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
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.
7268: END IF;
7269: END IF;
7270:
7268: END IF;
7269: END IF;
7270:
7271: IF NOT (l_b_validation AND l_b_wl_validation) THEN
7272: l_n_to := fnd_msg_pub.count_msg;
7273: FOR j in 1.. v_tab_usec_sr.COUNT LOOP
7274: IF l_tab_uoo(I) = v_tab_usec_sr(j).uoo_id AND p_usec_teach_resp_tbl(v_tab_usec_sr(j).instr_index).status = 'S' THEN
7275: -- Setting the status of the record properly
7276: -- Set the status of records as error and return status (l_b_status) as error when
7320: p_c_rec_status := 'S';
7321: FOR I in 1..p_usec_teach_resp_tbl.LAST LOOP
7322: IF p_usec_teach_resp_tbl.EXISTS(I) THEN
7323: p_usec_teach_resp_tbl(I).status := 'S';
7324: p_usec_teach_resp_tbl(I).msg_from := fnd_msg_pub.count_msg;
7325: trim_values(p_usec_teach_resp_tbl(I));
7326: validate_parameters(p_usec_teach_resp_tbl(I));
7327:
7328: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
7357: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7436: p_usec_teach_resp_tbl(I).msg_from := NULL;
7437: p_usec_teach_resp_tbl(I).msg_to := NULL;
7438: ELSIF p_usec_teach_resp_tbl(I).status = 'A' THEN
7439: p_usec_teach_resp_tbl(I).msg_from := p_usec_teach_resp_tbl(I).msg_from + 1;
7440: p_usec_teach_resp_tbl(I).msg_to := fnd_msg_pub.count_msg;
7441: ELSE
7442: p_c_rec_status := p_usec_teach_resp_tbl(I).status;
7443: p_usec_teach_resp_tbl(I).msg_from := p_usec_teach_resp_tbl(I).msg_from+1;
7444: p_usec_teach_resp_tbl(I).msg_to := fnd_msg_pub.count_msg;
7440: p_usec_teach_resp_tbl(I).msg_to := fnd_msg_pub.count_msg;
7441: ELSE
7442: p_c_rec_status := p_usec_teach_resp_tbl(I).status;
7443: p_usec_teach_resp_tbl(I).msg_from := p_usec_teach_resp_tbl(I).msg_from+1;
7444: p_usec_teach_resp_tbl(I).msg_to := fnd_msg_pub.count_msg;
7445: IF p_usec_teach_resp_tbl(I).status = 'E' THEN
7446: RETURN;
7447: END IF;
7448: END IF;
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:
7776: --If enrollment exists for this unit section then insert/update
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:
7783: IF p_insert_update = 'I' THEN
7816: l_n_uoo_id := NULL;
7817: l_c_cal_type:= NULL;
7818: l_n_seq_num := NULL;
7819: p_usec_sp_fee_tbl(I).status := 'S';
7820: p_usec_sp_fee_tbl(I).msg_from := fnd_msg_pub.count_msg;
7821: trim_values(p_usec_sp_fee_tbl(I));
7822: validate_parameters(p_usec_sp_fee_tbl(I));
7823:
7824: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
7867: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7974: p_usec_sp_fee_tbl(I).msg_from := NULL;
7975: p_usec_sp_fee_tbl(I).msg_to := NULL;
7976: ELSIF p_usec_sp_fee_tbl(I).status = 'A' THEN
7977: p_usec_sp_fee_tbl(I).msg_from := p_usec_sp_fee_tbl(I).msg_from + 1;
7978: p_usec_sp_fee_tbl(I).msg_to := fnd_msg_pub.count_msg;
7979: ELSE
7980: p_c_rec_status := p_usec_sp_fee_tbl(I).status;
7981: p_usec_sp_fee_tbl(I).msg_from := p_usec_sp_fee_tbl(I).msg_from+1;
7982: p_usec_sp_fee_tbl(I).msg_to := fnd_msg_pub.count_msg;
7978: p_usec_sp_fee_tbl(I).msg_to := fnd_msg_pub.count_msg;
7979: ELSE
7980: p_c_rec_status := p_usec_sp_fee_tbl(I).status;
7981: p_usec_sp_fee_tbl(I).msg_from := p_usec_sp_fee_tbl(I).msg_from+1;
7982: p_usec_sp_fee_tbl(I).msg_to := fnd_msg_pub.count_msg;
7983: IF p_usec_sp_fee_tbl(I).status = 'E' THEN
7984: RETURN;
7985: END IF;
7986: END IF;
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:
8354: END Business_validation;
8371: l_n_room_id := NULL;
8372: l_n_ins_id := NULL;
8373:
8374: p_usec_plus_hr_tbl(I).status := 'S';
8375: p_usec_plus_hr_tbl(I).msg_from := fnd_msg_pub.count_msg;
8376: trim_values(p_usec_plus_hr_tbl(I));
8377: validate_parameters(p_usec_plus_hr_tbl(I));
8378:
8379: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
8425: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
8553: p_usec_plus_hr_tbl(I).msg_from := NULL;
8554: p_usec_plus_hr_tbl(I).msg_to := NULL;
8555: ELSIF p_usec_plus_hr_tbl(I).status = 'A' THEN
8556: p_usec_plus_hr_tbl(I).msg_from := p_usec_plus_hr_tbl(I).msg_from + 1;
8557: p_usec_plus_hr_tbl(I).msg_to := fnd_msg_pub.count_msg;
8558: ELSE
8559: p_c_rec_status := p_usec_plus_hr_tbl(I).status;
8560: p_usec_plus_hr_tbl(I).msg_from := p_usec_plus_hr_tbl(I).msg_from+1;
8561: p_usec_plus_hr_tbl(I).msg_to := fnd_msg_pub.count_msg;
8557: p_usec_plus_hr_tbl(I).msg_to := fnd_msg_pub.count_msg;
8558: ELSE
8559: p_c_rec_status := p_usec_plus_hr_tbl(I).status;
8560: p_usec_plus_hr_tbl(I).msg_from := p_usec_plus_hr_tbl(I).msg_from+1;
8561: p_usec_plus_hr_tbl(I).msg_to := fnd_msg_pub.count_msg;
8562: IF p_usec_plus_hr_tbl(I).status = 'E' THEN
8563: RETURN;
8564: END IF;
8565: END IF;
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:
8756: -- s_rule_call_cd must exists in igs_ru_call with S_RULE_TYPE_CD='USEC'
8785: l_n_lov_number := NULL;
8786:
8787:
8788: p_usec_rule_tbl(I).status := 'S';
8789: p_usec_rule_tbl(I).msg_from := fnd_msg_pub.count_msg;
8790: trim_values(p_usec_rule_tbl(I));
8791: validate_parameters(p_usec_rule_tbl(I));
8792:
8793: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
8836: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
8930: END IF;
8934: p_usec_rule_tbl(I).msg_from := NULL;
8935: p_usec_rule_tbl(I).msg_to := NULL;
8936: ELSIF p_usec_rule_tbl(I).status = 'A' THEN
8937: p_usec_rule_tbl(I).msg_from := p_usec_rule_tbl(I).msg_from + 1;
8938: p_usec_rule_tbl(I).msg_to := fnd_msg_pub.count_msg;
8939: ELSE
8940: p_c_rec_status := p_usec_rule_tbl(I).status;
8941: p_usec_rule_tbl(I).msg_from := p_usec_rule_tbl(I).msg_from+1;
8942: p_usec_rule_tbl(I).msg_to := fnd_msg_pub.count_msg;
8938: p_usec_rule_tbl(I).msg_to := fnd_msg_pub.count_msg;
8939: ELSE
8940: p_c_rec_status := p_usec_rule_tbl(I).status;
8941: p_usec_rule_tbl(I).msg_from := p_usec_rule_tbl(I).msg_from+1;
8942: p_usec_rule_tbl(I).msg_to := fnd_msg_pub.count_msg;
8943: IF p_usec_rule_tbl(I).status = 'E' THEN
8944: RETURN;
8945: END IF;
8946: END IF;
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
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;
9293: CLOSE cur_check_ns_usec;
9317: l_n_offset_days :=NULL;
9318: l_d_enr_dl_date :=NULL;
9319:
9320: p_usec_enr_dead_tbl(I).status := 'S';
9321: p_usec_enr_dead_tbl(I).msg_from := fnd_msg_pub.count_msg;
9322: trim_values(p_usec_enr_dead_tbl(I));
9323:
9324: validate_parameters(p_usec_enr_dead_tbl(I));
9325:
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:
9371: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
9502: p_usec_enr_dead_tbl(I).msg_from := NULL;
9503: p_usec_enr_dead_tbl(I).msg_to := NULL;
9504: ELSIF p_usec_enr_dead_tbl(I).status = 'A' THEN
9505: p_usec_enr_dead_tbl(I).msg_from := p_usec_enr_dead_tbl(I).msg_from + 1;
9506: p_usec_enr_dead_tbl(I).msg_to := fnd_msg_pub.count_msg;
9507: ELSE
9508: p_c_rec_status := p_usec_enr_dead_tbl(I).status;
9509: p_usec_enr_dead_tbl(I).msg_from := p_usec_enr_dead_tbl(I).msg_from+1;
9510: p_usec_enr_dead_tbl(I).msg_to := fnd_msg_pub.count_msg;
9506: p_usec_enr_dead_tbl(I).msg_to := fnd_msg_pub.count_msg;
9507: ELSE
9508: p_c_rec_status := p_usec_enr_dead_tbl(I).status;
9509: p_usec_enr_dead_tbl(I).msg_from := p_usec_enr_dead_tbl(I).msg_from+1;
9510: p_usec_enr_dead_tbl(I).msg_to := fnd_msg_pub.count_msg;
9511: IF p_usec_enr_dead_tbl(I).status = 'E' THEN
9512: RETURN;
9513: END IF;
9514: END IF;
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
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;
9874: CLOSE cur_check_ns_usec;
9898: l_n_offset_days :=NULL;
9899: l_d_enr_dl_date :=NULL;
9900:
9901: p_usec_enr_dis_tbl(I).status := 'S';
9902: p_usec_enr_dis_tbl(I).msg_from := fnd_msg_pub.count_msg;
9903: trim_values(p_usec_enr_dis_tbl(I));
9904: validate_parameters(p_usec_enr_dis_tbl(I));
9905:
9906: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
9949: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
10080: p_usec_enr_dis_tbl(I).msg_from := NULL;
10081: p_usec_enr_dis_tbl(I).msg_to := NULL;
10082: ELSIF p_usec_enr_dis_tbl(I).status = 'A' THEN
10083: p_usec_enr_dis_tbl(I).msg_from := p_usec_enr_dis_tbl(I).msg_from + 1;
10084: p_usec_enr_dis_tbl(I).msg_to := fnd_msg_pub.count_msg;
10085: ELSE
10086: p_c_rec_status := p_usec_enr_dis_tbl(I).status;
10087: p_usec_enr_dis_tbl(I).msg_from := p_usec_enr_dis_tbl(I).msg_from+1;
10088: p_usec_enr_dis_tbl(I).msg_to := fnd_msg_pub.count_msg;
10084: p_usec_enr_dis_tbl(I).msg_to := fnd_msg_pub.count_msg;
10085: ELSE
10086: p_c_rec_status := p_usec_enr_dis_tbl(I).status;
10087: p_usec_enr_dis_tbl(I).msg_from := p_usec_enr_dis_tbl(I).msg_from+1;
10088: p_usec_enr_dis_tbl(I).msg_to := fnd_msg_pub.count_msg;
10089: IF p_usec_enr_dis_tbl(I).status = 'E' THEN
10090: RETURN;
10091: END IF;
10092: END IF;
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
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;
10454: CLOSE cur_check_ns_usec;
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;
10490:
10531: l_n_uoo_id := NULL;
10532: l_n_non_std_usec_rtn_id :=NULL;
10533:
10534: p_usec_ret_tbl(I).status := 'S';
10535: p_usec_ret_tbl(I).msg_from := fnd_msg_pub.count_msg;
10536: trim_values(p_usec_ret_tbl(I));
10537: validate_parameters(p_usec_ret_tbl(I));
10538:
10539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
10583: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
10686: p_usec_ret_tbl(I).msg_from := NULL;
10687: p_usec_ret_tbl(I).msg_to := NULL;
10688: ELSIF p_usec_ret_tbl(I).status = 'A' THEN
10689: p_usec_ret_tbl(I).msg_from := p_usec_ret_tbl(I).msg_from + 1;
10690: p_usec_ret_tbl(I).msg_to := fnd_msg_pub.count_msg;
10691: ELSE
10692: p_c_rec_status := p_usec_ret_tbl(I).status;
10693: p_usec_ret_tbl(I).msg_from := p_usec_ret_tbl(I).msg_from+1;
10694: p_usec_ret_tbl(I).msg_to := fnd_msg_pub.count_msg;
10690: p_usec_ret_tbl(I).msg_to := fnd_msg_pub.count_msg;
10691: ELSE
10692: p_c_rec_status := p_usec_ret_tbl(I).status;
10693: p_usec_ret_tbl(I).msg_from := p_usec_ret_tbl(I).msg_from+1;
10694: p_usec_ret_tbl(I).msg_to := fnd_msg_pub.count_msg;
10695: IF p_usec_ret_tbl(I).status = 'E' THEN
10696: RETURN;
10697: END IF;
10698: END IF;
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:
10800:
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
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;
11060: CLOSE cur_check_ns_usec;
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;
11072:
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:
11080: --Either retention amount or percent are mandatory
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:
11087: END Business_validation;
11101: l_n_non_std_usec_rtn_id :=NULL;
11102: l_d_offset_date :=NULL;
11103:
11104: p_usec_ret_dtl_tbl(I).status := 'S';
11105: p_usec_ret_dtl_tbl(I).msg_from := fnd_msg_pub.count_msg;
11106: trim_values(p_usec_ret_dtl_tbl(I));
11107: validate_parameters(p_usec_ret_dtl_tbl(I));
11108:
11109: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
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:
11155: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
11275: p_usec_ret_dtl_tbl(I).msg_from := NULL;
11276: p_usec_ret_dtl_tbl(I).msg_to := NULL;
11277: ELSIF p_usec_ret_dtl_tbl(I).status = 'A' THEN
11278: p_usec_ret_dtl_tbl(I).msg_from := p_usec_ret_dtl_tbl(I).msg_from + 1;
11279: p_usec_ret_dtl_tbl(I).msg_to := fnd_msg_pub.count_msg;
11280: ELSE
11281: p_c_rec_status := p_usec_ret_dtl_tbl(I).status;
11282: p_usec_ret_dtl_tbl(I).msg_from := p_usec_ret_dtl_tbl(I).msg_from+1;
11283: p_usec_ret_dtl_tbl(I).msg_to := fnd_msg_pub.count_msg;
11279: p_usec_ret_dtl_tbl(I).msg_to := fnd_msg_pub.count_msg;
11280: ELSE
11281: p_c_rec_status := p_usec_ret_dtl_tbl(I).status;
11282: p_usec_ret_dtl_tbl(I).msg_from := p_usec_ret_dtl_tbl(I).msg_from+1;
11283: p_usec_ret_dtl_tbl(I).msg_to := fnd_msg_pub.count_msg;
11284: IF p_usec_ret_dtl_tbl(I).status = 'E' THEN
11285: RETURN;
11286: END IF;
11287: END IF;