[Home] [Help]
177: END IF;
178: END cr_he_st_pr_rec;
179:
180:
181: -- Procedure inserts a new record into IGS_HE_PROG_OU_CC table
182: PROCEDURE create_prg_cc_rec (
183: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
184: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
185: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
179:
180:
181: -- Procedure inserts a new record into IGS_HE_PROG_OU_CC table
182: PROCEDURE create_prg_cc_rec (
183: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
184: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
185: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
186: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
187: /******************************************************************
180:
181: -- Procedure inserts a new record into IGS_HE_PROG_OU_CC table
182: PROCEDURE create_prg_cc_rec (
183: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
184: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
185: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
186: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
187: /******************************************************************
188: Created By : AYEDUBAT
181: -- Procedure inserts a new record into IGS_HE_PROG_OU_CC table
182: PROCEDURE create_prg_cc_rec (
183: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
184: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
185: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
186: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
187: /******************************************************************
188: Created By : AYEDUBAT
189: Date Created By : 13-JUN-2003
182: PROCEDURE create_prg_cc_rec (
183: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
184: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
185: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
186: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
187: /******************************************************************
188: Created By : AYEDUBAT
189: Date Created By : 13-JUN-2003
190: Purpose : To copy the Hesa Statistic Cost Center Details defined at Program Version Level
191:
192: Change History
193: WHO WHEN WHAT
194: ayedubat 28-Aug-03 Created the new procedure for HE207FD bug, 2717753
195: jbaber 25-Jan-05 Modified to use IGS_HE_PROG_OU_CC for HE355 - Org Unit Cost Centre Link
196: ***************************************************************** */
197:
198: l_rowid VARCHAR2(25) := NULL;
199: l_hesa_prog_cc_id igs_he_prog_ou_cc.hesa_prog_cc_id%TYPE := NULL ;
195: jbaber 25-Jan-05 Modified to use IGS_HE_PROG_OU_CC for HE355 - Org Unit Cost Centre Link
196: ***************************************************************** */
197:
198: l_rowid VARCHAR2(25) := NULL;
199: l_hesa_prog_cc_id igs_he_prog_ou_cc.hesa_prog_cc_id%TYPE := NULL ;
200: l_dummy VARCHAR2(1);
201:
202: -- Fetch the Cost Centers of the Old version of the Program
203: CURSOR old_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
199: l_hesa_prog_cc_id igs_he_prog_ou_cc.hesa_prog_cc_id%TYPE := NULL ;
200: l_dummy VARCHAR2(1);
201:
202: -- Fetch the Cost Centers of the Old version of the Program
203: CURSOR old_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
204: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE) IS
205: SELECT spc.*
206: FROM IGS_HE_PROG_OU_CC spc
207: WHERE spc.course_cd = cp_course_cd
200: l_dummy VARCHAR2(1);
201:
202: -- Fetch the Cost Centers of the Old version of the Program
203: CURSOR old_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
204: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE) IS
205: SELECT spc.*
206: FROM IGS_HE_PROG_OU_CC spc
207: WHERE spc.course_cd = cp_course_cd
208: AND spc.version_number = cp_version_number;
202: -- Fetch the Cost Centers of the Old version of the Program
203: CURSOR old_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
204: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE) IS
205: SELECT spc.*
206: FROM IGS_HE_PROG_OU_CC spc
207: WHERE spc.course_cd = cp_course_cd
208: AND spc.version_number = cp_version_number;
209:
210: -- Check whether the Cost Center record already exist in the new program version
207: WHERE spc.course_cd = cp_course_cd
208: AND spc.version_number = cp_version_number;
209:
210: -- Check whether the Cost Center record already exist in the new program version
211: CURSOR new_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
212: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE,
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
208: AND spc.version_number = cp_version_number;
209:
210: -- Check whether the Cost Center record already exist in the new program version
211: CURSOR new_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
212: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE,
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
216: SELECT 'X'
209:
210: -- Check whether the Cost Center record already exist in the new program version
211: CURSOR new_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
212: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE,
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
216: SELECT 'X'
217: FROM IGS_HE_PROG_OU_CC spc
210: -- Check whether the Cost Center record already exist in the new program version
211: CURSOR new_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
212: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE,
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
216: SELECT 'X'
217: FROM IGS_HE_PROG_OU_CC spc
218: WHERE spc.course_cd = cp_course_cd
211: CURSOR new_prg_cc_dtls_cur( cp_course_cd IGS_HE_PROG_OU_CC.course_cd%TYPE,
212: cp_version_number IGS_HE_PROG_OU_CC.version_number%TYPE,
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
216: SELECT 'X'
217: FROM IGS_HE_PROG_OU_CC spc
218: WHERE spc.course_cd = cp_course_cd
219: AND spc.version_number = cp_version_number
213: cp_org_unit_cd IGS_HE_PROG_OU_CC.org_unit_cd%TYPE,
214: cp_cost_centre IGS_HE_PROG_OU_CC.cost_centre%TYPE,
215: cp_subject IGS_HE_PROG_OU_CC.subject%TYPE) IS
216: SELECT 'X'
217: FROM IGS_HE_PROG_OU_CC spc
218: WHERE spc.course_cd = cp_course_cd
219: AND spc.version_number = cp_version_number
220: AND spc.org_unit_cd = cp_org_unit_cd
221: AND spc.cost_centre = cp_cost_centre
222: AND spc.subject = cp_subject;
223:
224: BEGIN
225:
226: -- Loop through all the records in IGS_HE_PROG_OU_CC table for old version of the program
227: -- and insert if the record does not exist for new course code and version
228: FOR old_prg_cc_dtls_rec IN old_prg_cc_dtls_cur( p_old_course_cd, p_old_version_number) LOOP
229:
230: OPEN new_prg_cc_dtls_cur(p_new_course_cd, p_new_version_number, old_prg_cc_dtls_rec.org_unit_cd,
232: FETCH new_prg_cc_dtls_cur INTO l_dummy;
233: IF new_prg_cc_dtls_cur%NOTFOUND THEN
234:
235: -- create the new program version cost centre record
236: igs_he_prog_ou_cc_pkg.insert_row (
237: x_rowid => l_rowid,
238: x_hesa_prog_cc_id => l_hesa_prog_cc_id,
239: x_course_cd => p_new_course_cd,
240: x_version_number => p_new_version_number,
342: END cr_he_poo_us_rec;
343:
344:
345: PROCEDURE create_poous_cc_rec (
346: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
347: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
348: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
349: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
350: /******************************************************************
343:
344:
345: PROCEDURE create_poous_cc_rec (
346: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
347: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
348: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
349: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
350: /******************************************************************
351: Created By : jbaber
344:
345: PROCEDURE create_poous_cc_rec (
346: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
347: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
348: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
349: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
350: /******************************************************************
351: Created By : jbaber
352: Date Created By : 25-Jan-2005
345: PROCEDURE create_poous_cc_rec (
346: p_old_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
347: p_old_version_number igs_he_prog_ou_cc.version_number%TYPE,
348: p_new_course_cd igs_he_prog_ou_cc.course_cd%TYPE,
349: p_new_version_number igs_he_prog_ou_cc.version_number%TYPE) IS
350: /******************************************************************
351: Created By : jbaber
352: Date Created By : 25-Jan-2005
353: Purpose : To copy the Hesa Statistic Cost Center Details defined at POOUS Level