[Home] [Help]
181: l_status NUMBER;
182:
183: BEGIN
184: --copying the hesa details, call to the hesa enr procedure, hesa requirment, pmarada.
185: IF fnd_profile.value('OSS_COUNTRY_CODE') = 'GB' THEN
186: l_message_name := NULL;
187: l_Status := NULL;
188: IGS_EN_HESA_PKG.HESA_STATS_ENR(
189: p_person_id => p_person_id,
217: IGS_GE_MSG_STACK.ADD;
218: App_Exception.Raise_Exception;
219: END IF;
220:
221: END IF; -- IF fnd_profile.value('OSS_COUNTRY_CODE') = 'GB'
222:
223: EXCEPTION
224: WHEN APP_EXCEPTION.APPLICATION_EXCEPTION THEN
225: RAISE;
1309: v_rowid := l_rowid;
1310:
1311: -- smaddali added this code for bug#235069
1312: --creating the UK statistics hesa record
1313: IF fnd_profile.value('OSS_COUNTRY_CODE') = 'GB' THEN
1314: l_message_name := NULL;
1315: l_status := NULL;
1316: IGS_EN_HESA_PKG.HESA_STATS_ENR(
1317: p_person_id => p_person_id,
1852: END IF;
1853: END IF;
1854:
1855: --bmerugu added for build 319
1856: IF NVL(FND_PROFILE.VALUE('CAREER_MODEL_ENABLED'),'N') = 'Y' THEN
1857: BEGIN
1858: OPEN c_sca_ptype(v_rowid);
1859: FETCH c_sca_ptype INTO v_program_type;
1860: CLOSE c_sca_ptype;
2176:
2177: -- It checks the Pre-Enrollment Year Profile option has been set and the Unit set does
2178: -- not require authorization and when the Unit Set being pre enrolled is a Pre-Enrollment Year ,
2179: -- Whose seeded value for Unit Set Category is 'PRENRL_YR'
2180: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') ='Y' AND
2181: v_us_rec.authorisation_rqrd_ind = 'N' AND
2182: v_us_rec.s_unit_set_cat = 'PRENRL_YR' THEN
2183:
2184:
2281: X_ATTRIBUTE19 => v_susa_rec.attribute19 ,
2282: X_ATTRIBUTE20 => v_susa_rec.attribute20 ,
2283: X_MODE => 'R');
2284:
2285: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') = 'Y' AND
2286: v_us_rec.s_unit_set_cat = 'PRENRL_YR' THEN
2287:
2288: IF NOT update_stream_unit_sets(
2289: p_person_id,
2338: RETURN FALSE;
2339: END IF;
2340:
2341: -- smaddali 12-jun-2002 added this call for bug#2391799 to create susa hesa details record for the newly pre-enrolled year
2342: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') = 'Y' AND
2343: v_us_rec.s_unit_set_cat = 'PRENRL_YR' THEN
2344:
2345: IF NOT create_stream_unit_sets(
2346: p_person_id,
3485: v_unit_set_cd := v_acaiv_rec.unit_set_cd;
3486:
3487: -- In year of program mode do the following code
3488: -- added by smaddali for YOP-EN dld bug#2156956
3489: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') = 'Y' THEN
3490:
3491: -- If there is a currently active year of program then make it completed
3492: --and pre-enrol in the next year of program , if it exists
3493: OPEN c_active_us ;
5073: END IF;
5074:
5075: v_unit_set_cd := NULL ;
5076:
5077: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') = 'N' THEN
5078: -- attempt to get IGS_PS_UNIT set code from current enrolment.
5079: -- If there are multiple then don't attempt.
5080: FOR v_susa_rec IN c_susa LOOP
5081: v_row_count := 1;
5102: END IF ; -- v_row_count <> 1
5103: END IF;
5104:
5105: -- In year of program mode do the following code
5106: IF NVL(FND_PROFILE.VALUE('IGS_PS_PRENRL_YEAR_IND'),'N') = 'Y' THEN
5107:
5108: -- If there is a currently active year of program then make it completed
5109: --and pre-enrol in the next year of program , if it exists
5110: OPEN c_active_us ;
6472: l_rowid VARCHAR2(25);
6473: l_org_id NUMBER := igs_ge_gen_003.get_org_id;
6474: BEGIN
6475:
6476: IF NVL(FND_PROFILE.VALUE('IGS_EN_CORE_VAL'),'N') = 'Y' THEN
6477: v_sua_rec.core_indicator_code := NVL(p_core_ind, v_sua_rec.core_indicator_code);
6478: END IF;
6479:
6480: IF v_sua_rec.unit_attempt_status = cst_duplicate THEN
6983:
6984: --
6985: -- Get the OSS_COUNTRY_CODE
6986: --
6987: IF fnd_profile.value('OSS_COUNTRY_CODE') = 'GB' THEN
6988: p_message_name := NULL;
6989: l_status := NULL;
6990: IGS_HE_PROG_TRANSFER_PKG.HESA_STUD_SUSA_TRANS(
6991: p_person_id => p_person_id,
7900:
7901: --
7902: --Get the OSS_COUNTRY_CODE
7903: --
7904: IF fnd_profile.value('OSS_COUNTRY_CODE') = 'GB' THEN
7905: l_status := NULL;
7906: IGS_HE_PROG_TRANSFER_PKG.HESA_STUD_STAT_TRANS(
7907: p_person_id => p_person_id,
7908: p_old_course_cd => p_source_course_cd,
8669:
8670: l_primary_program_cd := NULL;
8671:
8672: --check whether system is in Career mode
8673: l_profile :=NVL(FND_PROFILE.VALUE('CAREER_MODEL_ENABLED'),'N');
8674:
8675: -- if system is in career mode
8676: IF (l_profile='Y') THEN
8677: OPEN cur_course_type(p_person_id, p_course_cd);
9429: App_Exception.Raise_Exception;
9430: END IF;
9431:
9432: -- if it is an intra career transfer then drop unit from source reducing counts as this unit was not transfered
9433: IF NVL(FND_PROFILE.VALUE('CAREER_MODEL_ENABLED'),'N') = 'Y' AND
9434: l_source_course_type = l_destn_course_type THEN
9435: -- superior unit cannot be drop even when one of its subordinates is enrolled
9436: OPEN c_sub_sua_exists(p_person_id, p_source_course_cd, v_get_all_units_in_src_rec.uoo_id);
9437: FETCH c_sub_sua_exists INTO v_dummy;