[Home] [Help]
87: gv_ca_rec IGS_PS_AWARD%ROWTYPE;
88: gv_cao_rec IGS_PS_AWD_OWN%ROWTYPE;
89: gv_cow_rec IGS_PS_OWN%ROWTYPE;
90: gv_cvn_rec IGS_PS_VER_NOTE%ROWTYPE;
91: gv_ae_rec IGS_PE_ALTERNATV_EXT%ROWTYPE;
92: gv_cgm_rec IGS_PS_GRP_MBR%ROWTYPE;
93: gv_fsr_rec IGS_FI_FND_SRC_RSTN%ROWTYPE;
94: gv_cfos_rec IGS_PS_FIELD_STUDY%ROWTYPE;
95: gv_ccat_rec IGS_PS_CATEGORISE%ROWTYPE;
155: WHERE nte.reference_number = cvn.reference_number AND
156: nte.note_text IS NOT NULL);
157: CURSOR gc_ae_rec IS
158: SELECT *
159: FROM IGS_PE_ALTERNATV_EXT
160: WHERE course_cd = p_old_course_cd AND
161: version_number = p_old_version_number;
162: CURSOR gc_cgm_rec IS
163: SELECT *
1394: ELSE
1395: App_Exception.Raise_Exception;
1396: END IF;
1397: END crsp_ins_cow_rec;
1398: -- procedure for inserting new IGS_PE_ALTERNATV_EXT records
1399: PROCEDURE crsp_ins_ae_rec (
1400: p_new_course_cd IGS_PS_VER.course_cd%TYPE,
1401: p_new_version_number IGS_PS_VER.version_number%TYPE) AS
1402: BEGIN
1400: p_new_course_cd IGS_PS_VER.course_cd%TYPE,
1401: p_new_version_number IGS_PS_VER.version_number%TYPE) AS
1402: BEGIN
1403: X_ROWID := NULL;
1404: IGS_PE_ALTERNATV_EXT_PKG.INSERT_ROW(
1405: X_ROWID => X_ROWID,
1406: X_COURSE_CD => p_new_course_cd,
1407: X_VERSION_NUMBER => p_new_version_number,
1408: X_EXIT_COURSE_CD => gv_ae_rec.exit_course_cd,
1927: EXIT;
1928: END IF;
1929: END LOOP;
1930: CLOSE gc_cow_rec;
1931: -- calling procedure to insert IGS_PE_ALTERNATV_EXT records
1932: OPEN gc_ae_rec;
1933: LOOP
1934: FETCH gc_ae_rec INTO gv_ae_rec;
1935: IF gc_ae_rec%FOUND THEN