[Home] [Help]
1212: fnd_log.string( fnd_log.level_procedure, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_version.start_logging_for','Unit Versions');
1213: END IF;
1214:
1215: p_rec_status :='S';
1216: p_unit_ver_rec.msg_from := FND_MSG_PUB.COUNT_MSG;
1217: trim_values(p_unit_ver_rec);
1218: validate_parameters(p_unit_ver_rec);
1219:
1220: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1599: p_unit_ver_rec.msg_from := NULL;
1600: p_unit_ver_rec.msg_to := NULL;
1601: ELSE
1602: p_unit_ver_rec.msg_from := p_unit_ver_rec.msg_from + 1;
1603: p_unit_ver_rec.msg_to := FND_MSG_PUB.COUNT_MSG;
1604: END IF;
1605: p_rec_status:= p_unit_ver_rec.status;
1606:
1607: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1734:
1735: FOR I in 1..p_tab_teach_resp.LAST LOOP
1736: IF ( p_tab_teach_resp.EXISTS(I) ) THEN
1737: p_tab_teach_resp(I).status := 'S';
1738: p_tab_teach_resp(I).msg_from := fnd_msg_pub.count_msg;
1739: trim_values(p_tab_teach_resp(I) );
1740: validate_parameters ( p_tab_teach_resp(I) );
1741:
1742: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1772: OPEN c_org (p_tab_teach_resp(I).org_unit_cd);
1773: FETCH c_org INTO c_org_rec;
1774: IF c_org%NOTFOUND THEN
1775: fnd_message.set_name('IGS','IGS_PS_ORGUNIT_STATUS_INACTIV');
1776: fnd_msg_pub.add;
1777: p_tab_teach_resp(I).status := 'E';
1778: END IF;
1779: CLOSE c_org;
1780: END IF;
1788: p_version_number => p_tab_teach_resp(I).version_number,
1789: p_message_name => l_c_message_name ,
1790: p_b_lgcy_validator => TRUE) THEN
1791: fnd_message.set_name('IGS','IGS_PS_LGCY_TR_100_EXISTS');
1792: fnd_msg_pub.add;
1793: p_tab_teach_resp(I).status := 'W' ;
1794: END IF;
1795:
1796: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1839: p_tab_teach_resp(I).msg_to := NULL;
1840: ELSE
1841: p_c_rec_status := p_tab_teach_resp(I).status;
1842: p_tab_teach_resp(I).msg_from := p_tab_teach_resp(I).msg_from+1;
1843: p_tab_teach_resp(I).msg_to := fnd_msg_pub.count_msg;
1844: IF p_tab_teach_resp(I).status = 'E' THEN
1845: RETURN;
1846: END IF;
1847: END IF;
1976: p_c_rec_status := 'S';
1977: FOR I in 1..p_tab_unit_dscp.LAST LOOP
1978: IF ( p_tab_unit_dscp.EXISTS(I) ) THEN
1979: p_tab_unit_dscp(I).status := 'S';
1980: p_tab_unit_dscp(I).msg_from := fnd_msg_pub.count_msg;
1981: trim_values(p_tab_unit_dscp(I) );
1982: validate_parameters ( p_tab_unit_dscp(I) );
1983:
1984: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2003: IF p_tab_unit_dscp(I).status = 'S' THEN
2004: /* Validation# 1: Check if the Unit Discipline Percentage adds upto 100 */
2005: IF igs_ps_val_ud.crsp_val_ud_perc ( p_tab_unit_dscp(I).unit_cd, p_tab_unit_dscp(I).version_number, l_c_message_name ,TRUE) THEN
2006: fnd_message.set_name('IGS','IGS_PS_LGCY_UD_100_EXISTS');
2007: fnd_msg_pub.add;
2008: p_tab_unit_dscp(I).status := 'W';
2009: END IF;
2010:
2011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2050: p_tab_unit_dscp(I).msg_to := NULL;
2051: ELSE
2052: p_c_rec_status := p_tab_unit_dscp(I).status;
2053: p_tab_unit_dscp(I).msg_from := p_tab_unit_dscp(I).msg_from+1;
2054: p_tab_unit_dscp(I).msg_to := fnd_msg_pub.count_msg;
2055: IF p_tab_unit_dscp(I).status = 'E' THEN
2056: RETURN;
2057: END IF;
2058: END IF;
2172: p_c_rec_status := 'S';
2173: FOR I in 1..p_tab_grd_sch.LAST LOOP
2174: IF p_tab_grd_sch.EXISTS(I) THEN
2175: p_tab_grd_sch(I).status := 'S';
2176: p_tab_grd_sch(I).msg_from := fnd_msg_pub.count_msg;
2177: trim_values(p_tab_grd_sch(I));
2178: validate_parameters ( p_tab_grd_sch(I) );
2179:
2180: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2250: p_tab_grd_sch(I).msg_to := NULL;
2251: ELSE
2252: p_c_rec_status := p_tab_grd_sch(I).status;
2253: p_tab_grd_sch(I).msg_from := p_tab_grd_sch(I).msg_from+1;
2254: p_tab_grd_sch(I).msg_to := fnd_msg_pub.count_msg;
2255: IF p_tab_grd_sch(I).status = 'E' THEN
2256: RETURN;
2257: END IF;
2258: END IF;
2306: FETCH c_unit_status INTO rec_unit_status;
2307: CLOSE c_unit_status;
2308:
2309: IF rec_unit_status.s_unit_status = 'ACTIVE' THEN
2310: p_unit_ver_rec.msg_from := fnd_msg_pub.count_msg;
2311: p_rec_status := p_unit_ver_rec.status;
2312:
2313: IF NOT igs_ps_val_tr.crsp_val_tr_perc ( p_unit_ver_rec.unit_cd, p_unit_ver_rec.version_number, l_c_message ,TRUE) THEN
2314: -- Adding more meaningful message rather then the message returned in the variable l_c_message
2312:
2313: IF NOT igs_ps_val_tr.crsp_val_tr_perc ( p_unit_ver_rec.unit_cd, p_unit_ver_rec.version_number, l_c_message ,TRUE) THEN
2314: -- Adding more meaningful message rather then the message returned in the variable l_c_message
2315: fnd_message.set_name('IGS','IGS_PS_LGCY_ACT_UNT_WITHOUT_TR');
2316: fnd_msg_pub.add;
2317: p_unit_ver_rec.status := 'E';
2318: END IF;
2319:
2320: IF NOT igs_ps_val_ud.crsp_val_ud_perc ( p_unit_ver_rec.unit_cd, p_unit_ver_rec.version_number, l_c_message ,TRUE) THEN
2319:
2320: IF NOT igs_ps_val_ud.crsp_val_ud_perc ( p_unit_ver_rec.unit_cd, p_unit_ver_rec.version_number, l_c_message ,TRUE) THEN
2321: -- Adding more meaningful message rather then the message returned in the variable l_c_message
2322: fnd_message.set_name('IGS','IGS_PS_LGCY_ACT_UNT_WITHOUT_UD');
2323: fnd_msg_pub.add;
2324: p_unit_ver_rec.status := 'E';
2325: END IF;
2326:
2327: IF p_unit_ver_rec.status = 'S' THEN
2328: p_unit_ver_rec.msg_from := NULL;
2329: p_unit_ver_rec.msg_to := NULL;
2330: ELSE
2331: p_unit_ver_rec.msg_from := p_unit_ver_rec.msg_from + 1;
2332: p_unit_ver_rec.msg_to := fnd_msg_pub.count_msg;
2333: p_rec_status := p_unit_ver_rec.status;
2334: END IF;
2335: END IF;
2336:
2631: -- Check if the calendar category is 'TEACHING'
2632: IF ( p_usec_rec.status = 'S' ) THEN
2633: IF NOT igs_ps_validate_lgcy_pkg.validate_cal_cat ( l_c_cal_type, 'TEACHING' ) THEN
2634: fnd_message.set_name ( 'IGS', 'IGS_PS_CALTYPE_TEACHING_CAL' );
2635: fnd_msg_pub.add;
2636: p_usec_rec.status := 'E';
2637: END IF;
2638: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2639: fnd_log.string( fnd_log.level_statement, 'igs.plsql.igs_ps_unit_lgcy_pkg.create_unit_section.create_uo.status_after_Business_validation',
2812: -- Check if waitlist_allowed is 'Y' then check if waitlisting is allowed at organization level.
2813: IF p_usec_rec.waitlist_allowed = 'Y' THEN
2814: IF NOT igs_ps_validate_lgcy_pkg.validate_waitlist_allowed ( l_c_cal_type, l_n_seq_num ) THEN
2815: fnd_message.set_name ( 'IGS', 'IGS_EN_WAIT_NOT_ALW' );
2816: fnd_msg_pub.add;
2817: p_usec_rec.status := 'E';
2818: END IF;
2819: ELSE
2820: -- default max_students_per_waitlist to 0
2823:
2824: -- If Waitlist allowed is Yes and Max Students per waitlist is Zero then log a warning.
2825: IF ( p_usec_rec.waitlist_allowed = 'Y' AND p_usec_rec.max_students_per_waitlist = 0 ) THEN
2826: fnd_message.set_name ( 'IGS', 'IGS_PS_LGCY_MAX_STD_GT_0' );
2827: fnd_msg_pub.add;
2828: p_usec_rec.status := 'W';
2829: END IF;
2830:
2831: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2955: p_usec_rec.sup_teach_cal_alternate_code IS NULL OR p_usec_rec.sup_location_cd IS NULL OR
2956: p_usec_rec.sup_unit_class IS NULL) THEN
2957:
2958: fnd_message.set_name ( 'IGS', 'IGS_PS_NO_SUFF_VAL_SUP');
2959: fnd_msg_pub.add;
2960: p_usec_rec.status := 'E';
2961: ELSIF p_usec_rec.sup_unit_cd IS NOT NULL THEN
2962:
2963:
3713: p_location_cd => p_usec_rec.location_cd,
3714: p_unit_class => p_usec_rec.unit_class,
3715: p_uso_id =>NULL) = FALSE THEN
3716: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
3717: fnd_msg_pub.add;
3718: p_usec_rec.status := 'A';
3719: END IF;
3720:
3721: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
4061: p_uoo_id => l_n_uoo_id,
4062: p_message => l_c_message );
4063: IF l_c_message IS NOT NULL THEN
4064: fnd_message.set_name ( 'IGS', l_c_message );
4065: fnd_msg_pub.add;
4066: p_usec_rec.status := 'E';
4067: END IF;
4068:
4069:
5497: p_c_rec_status := 'S';
5498: FOR I in 1..p_usec_tbl.LAST LOOP
5499: IF p_usec_tbl.EXISTS(I) THEN
5500: p_usec_tbl(I).status := 'S';
5501: p_usec_tbl(I).msg_from := fnd_msg_pub.count_msg;
5502: l_conc_flag := FALSE;
5503:
5504: trim_values(p_usec_tbl(I));
5505: -- Create Unit Offering
5623: p_request_id=>l_request_id,
5624: p_message_name=>l_message_name) THEN
5625:
5626: fnd_message.set_name ('IGS', l_message_name);
5627: fnd_msg_pub.add;
5628: p_usec_tbl(I).status := 'E';
5629: END IF;
5630: END IF;
5631:
5633: p_usec_tbl(I).msg_from := NULL;
5634: p_usec_tbl(I).msg_to := NULL;
5635: ELSIF p_usec_tbl(I).status = 'A' THEN
5636: p_usec_tbl(I).msg_from := p_usec_tbl(I).msg_from + 1;
5637: p_usec_tbl(I).msg_to := fnd_msg_pub.count_msg;
5638: ELSE
5639: p_c_rec_status := p_usec_tbl(I).status;
5640: p_usec_tbl(I).msg_from := p_usec_tbl(I).msg_from + 1;
5641: p_usec_tbl(I).msg_to := fnd_msg_pub.count_msg;
5637: p_usec_tbl(I).msg_to := fnd_msg_pub.count_msg;
5638: ELSE
5639: p_c_rec_status := p_usec_tbl(I).status;
5640: p_usec_tbl(I).msg_from := p_usec_tbl(I).msg_from + 1;
5641: p_usec_tbl(I).msg_to := fnd_msg_pub.count_msg;
5642: IF p_c_rec_status = 'E' THEN
5643: RETURN;
5644: END IF;
5645: END IF;
5835:
5836: IF p_tab_usec_gs.EXISTS(I) THEN
5837: l_n_uoo_id := NULL;
5838: p_tab_usec_gs(I).status := 'S';
5839: p_tab_usec_gs(I).msg_from := fnd_msg_pub.count_msg;
5840: trim_values(p_tab_usec_gs(I) );
5841: validate_parameters ( p_tab_usec_gs(I) );
5842:
5843: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
5880: -- Find out whether record can go for import in context of cancelled/aborted
5881: IF p_tab_usec_gs(I).status = 'S' AND p_calling_context = 'S' THEN
5882: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,NULL) = FALSE THEN
5883: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
5884: fnd_msg_pub.add;
5885: p_tab_usec_gs(I).status := 'A';
5886: END IF;
5887:
5888: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6004: p_tab_usec_gs(I).msg_from := NULL;
6005: p_tab_usec_gs(I).msg_to := NULL;
6006: ELSIF p_tab_usec_gs(I).status = 'A' THEN
6007: p_tab_usec_gs(I).msg_from := p_tab_usec_gs(I).msg_from + 1;
6008: p_tab_usec_gs(I).msg_to := fnd_msg_pub.count_msg;
6009: ELSE
6010: p_c_rec_status := p_tab_usec_gs(I).status;
6011: p_tab_usec_gs(I).msg_from := p_tab_usec_gs(I).msg_from+1;
6012: p_tab_usec_gs(I).msg_to := fnd_msg_pub.count_msg;
6008: p_tab_usec_gs(I).msg_to := fnd_msg_pub.count_msg;
6009: ELSE
6010: p_c_rec_status := p_tab_usec_gs(I).status;
6011: p_tab_usec_gs(I).msg_from := p_tab_usec_gs(I).msg_from+1;
6012: p_tab_usec_gs(I).msg_to := fnd_msg_pub.count_msg;
6013: IF p_tab_usec_gs(I).status = 'E' THEN
6014: RETURN;
6015: END IF;
6016: END IF;
6886: l_notify_status :=NULL;
6887:
6888:
6889: p_tab_usec_occur(I).status := 'S';
6890: p_tab_usec_occur(I).msg_from := fnd_msg_pub.count_msg;
6891: trim_values(p_tab_usec_occur(I) );
6892: validate_parameters ( p_tab_usec_occur(I) );
6893:
6894: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
6931: -- Find out whether record can go for import in context of cancelled/aborted
6932: IF p_tab_usec_occur(I).status = 'S' AND p_calling_context ='S' THEN
6933: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
6934: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
6935: fnd_msg_pub.add;
6936: p_tab_usec_occur(I).status := 'A';
6937: END IF;
6938:
6939: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
7290: p_tab_usec_occur(I).msg_from := NULL;
7291: p_tab_usec_occur(I).msg_to := NULL;
7292: ELSIF p_tab_usec_occur(I).status = 'A' THEN
7293: p_tab_usec_occur(I).msg_from := p_tab_usec_occur(I).msg_from+1;
7294: p_tab_usec_occur(I).msg_to := fnd_msg_pub.count_msg;
7295: ELSE
7296: p_c_rec_status := p_tab_usec_occur(I).status;
7297: p_tab_usec_occur(I).msg_from := p_tab_usec_occur(I).msg_from+1;
7298: p_tab_usec_occur(I).msg_to := fnd_msg_pub.count_msg;
7294: p_tab_usec_occur(I).msg_to := fnd_msg_pub.count_msg;
7295: ELSE
7296: p_c_rec_status := p_tab_usec_occur(I).status;
7297: p_tab_usec_occur(I).msg_from := p_tab_usec_occur(I).msg_from+1;
7298: p_tab_usec_occur(I).msg_to := fnd_msg_pub.count_msg;
7299: IF p_tab_usec_occur(I).status = 'E' THEN
7300: RETURN;
7301: END IF;
7302: END IF;
7418: END IF;
7419:
7420: IF p_calling_context IN ('G','S') AND p_ref_cd_rec.data_type = 'UNIT' THEN
7421: fnd_message.set_name ( 'IGS', 'IGS_PS_UNIT_REF_N_ALLW_GEN_SCH' );
7422: fnd_msg_pub.add;
7423: p_ref_cd_rec.status := 'E';
7424: END IF;
7425:
7426:
7536: );
7537:
7538: IF l_c_msg IS NOT NULL THEN
7539: fnd_message.set_name('IGS',l_c_msg);
7540: fnd_msg_pub.add;
7541: p_ref_cd_rec.status := 'E';
7542: END IF;
7543: ELSE
7544: l_n_uso_id := p_ref_cd_rec.production_uso_id;
7903: l_n_usec_ref_id :=NULL;
7904: l_n_uso_id :=NULL;
7905:
7906: p_tab_ref_cd(i).status := 'S';
7907: p_tab_ref_cd(i).msg_from := fnd_msg_pub.count_msg;
7908: trim_values(p_tab_ref_cd(i));
7909: -- Validate the parameters values
7910:
7911: validate_parameters(p_tab_ref_cd(i));
7956: -- Find out whether record can go for import in context of cancelled/aborted
7957: IF p_tab_ref_cd(i).status = 'S' AND p_calling_context ='S' THEN
7958: IF igs_ps_validate_lgcy_pkg.check_import_allowed( l_n_uoo_id,l_n_uso_id) = FALSE THEN
7959: fnd_message.set_name ( 'IGS', 'IGS_PS_REC_ABORTED_CANCELLED' );
7960: fnd_msg_pub.add;
7961: p_tab_ref_cd(i).status := 'A';
7962: END IF;
7963:
7964: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
8246: p_tab_ref_cd(i).msg_from := NULL;
8247: p_tab_ref_cd(i).msg_to := NULL;
8248: ELSIF p_tab_ref_cd(i).status = 'A' THEN
8249: p_tab_ref_cd(i).msg_from := p_tab_ref_cd(i).msg_from + 1;
8250: p_tab_ref_cd(i).msg_to := fnd_msg_pub.count_msg;
8251: ELSE
8252: p_c_rec_status := p_tab_ref_cd(i).status;
8253: p_tab_ref_cd(i).msg_from := p_tab_ref_cd(i).msg_from + 1;
8254: p_tab_ref_cd(i).msg_to := fnd_msg_pub.count_msg;
8250: p_tab_ref_cd(i).msg_to := fnd_msg_pub.count_msg;
8251: ELSE
8252: p_c_rec_status := p_tab_ref_cd(i).status;
8253: p_tab_ref_cd(i).msg_from := p_tab_ref_cd(i).msg_from + 1;
8254: p_tab_ref_cd(i).msg_to := fnd_msg_pub.count_msg;
8255: IF p_c_rec_status = 'E' THEN
8256: RETURN;
8257: END IF;
8258: END IF; -- status is E
8493: p_message => l_c_msg
8494: );
8495: IF l_c_msg IS NOT NULL THEN
8496: fnd_message.set_name('IGS',l_c_msg);
8497: fnd_msg_pub.add;
8498: p_uso_ins_rec.status := 'E';
8499: END IF;
8500:
8501: END IF;
8562: IF c_unit_ver%FOUND THEN
8563: IF p_uso_ins_rec.unit_cd <> rec_unit_ver.unit_cd OR
8564: p_uso_ins_rec.version_number <> rec_unit_ver.version_number THEN
8565: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
8566: fnd_msg_pub.add;
8567: p_uso_ins_rec.status :='E';
8568: END IF;
8569: ELSE
8570: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
8567: p_uso_ins_rec.status :='E';
8568: END IF;
8569: ELSE
8570: fnd_message.set_name('IGS','IGS_PS_LGCY_UNIT_VER_NOT_USO');
8571: fnd_msg_pub.add;
8572: p_uso_ins_rec.status :='E';
8573: END IF;
8574: CLOSE c_unit_ver;
8575:
8581: OPEN c_occur_status (l_n_uso_id);
8582: FETCH c_occur_status INTO l_c_var;
8583: IF c_occur_status%FOUND THEN
8584: fnd_message.set_name ( 'IGS', 'IGS_PS_SCHEDULING_IN_PROGRESS' );
8585: fnd_msg_pub.add;
8586: p_uso_ins_rec.status := 'E';
8587: END IF;
8588: CLOSE c_occur_status;
8589:
8598: p_c_rec_status := 'S';
8599: FOR I in 1..p_tab_uso_ins.LAST LOOP
8600: IF p_tab_uso_ins.EXISTS(I) THEN
8601: p_tab_uso_ins(I).status := 'S';
8602: p_tab_uso_ins(I).msg_from := fnd_msg_pub.count_msg;
8603: trim_values(p_tab_uso_ins(I));
8604: validate_parameters(p_tab_uso_ins(I));
8605:
8606: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
8694: p_tab_uso_ins(I).msg_to := NULL;
8695: ELSE
8696: p_c_rec_status := p_tab_uso_ins(I).status;
8697: p_tab_uso_ins(I).msg_from := p_tab_uso_ins(I).msg_from+1;
8698: p_tab_uso_ins(I).msg_to := fnd_msg_pub.count_msg;
8699: IF p_tab_uso_ins(I).status = 'E' THEN
8700: RETURN;
8701: END IF;
8702: END IF;