64: v_rowid VARCHAR2(25);
65: v_new_he_entrant_cd igs_he_en_susa.new_he_entrant_cd%TYPE;
66:
67: --Variables to hold old record unique key values
68: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
69: v_u_old_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
65: v_new_he_entrant_cd igs_he_en_susa.new_he_entrant_cd%TYPE;
66:
67: --Variables to hold old record unique key values
68: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
69: v_u_old_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
66:
67: --Variables to hold old record unique key values
68: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
69: v_u_old_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
67: --Variables to hold old record unique key values
68: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
69: v_u_old_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
68: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
69: v_u_old_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
70: v_u_old_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
77: v_u_new_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
78: v_u_new_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
71: v_u_old_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
77: v_u_new_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
78: v_u_new_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
79: v_u_new_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
72: v_u_old_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
77: v_u_new_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
78: v_u_new_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
79: v_u_new_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
80:
73: v_u_old_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
77: v_u_new_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
78: v_u_new_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
79: v_u_new_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
80:
81: -- Cursor to retrieve unique-key values for passed program_cd which will be used
74: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
75: v_u_new_cal_type igs_en_stdnt_ps_att.cal_type%TYPE;
76: v_u_new_location_cd igs_en_stdnt_ps_att.location_cd%TYPE;
77: v_u_new_attendance_mode igs_en_stdnt_ps_att.attendance_mode%TYPE;
78: v_u_new_attendance_type igs_en_stdnt_ps_att.attendance_type%TYPE;
79: v_u_new_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
80:
81: -- Cursor to retrieve unique-key values for passed program_cd which will be used
82: -- to extract single records from other tables.
79: v_u_new_sequence_number igs_as_su_setatmpt.sequence_number%TYPE;
80:
81: -- Cursor to retrieve unique-key values for passed program_cd which will be used
82: -- to extract single records from other tables.
83: CURSOR c_prg_ukeyrec (cp_course_cd igs_en_stdnt_ps_att.course_cd%TYPE ) IS
84: SELECT version_number,
85: cal_type,
86: location_cd,
87: attendance_mode,
85: cal_type,
86: location_cd,
87: attendance_mode,
88: attendance_type
89: FROM igs_en_stdnt_ps_att
90: WHERE person_id = p_person_id AND
91: course_cd = cp_course_cd;
92:
93:
92:
93:
94: -- Cursor to retrieve unique-key values for passed unit set attempt which will be used
95: -- to extract single records from other tables.
96: CURSOR c_us_ukeyrec(cp_course_cd igs_en_stdnt_ps_att.course_cd%TYPE,
97: cp_unit_set_cd igs_as_su_setatmpt.unit_set_cd%TYPE,
98: cp_us_version_number igs_as_su_setatmpt.us_version_number%TYPE) IS
99: SELECT max(sequence_number)
100: FROM igs_as_su_setatmpt
750: v_old_tmp_prgfldstudy igs_ps_field_study.field_of_study%TYPE;
751: v_new_tmp_prgfldstudy igs_ps_field_study.field_of_study%TYPE;
752:
753: -- Variables to hold old record unique key values
754: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
755: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
756: -- variables to hold old record program field of study values
757: v_u_old_program_fld_study igs_ps_field_study.field_of_study%TYPE;
758: v_u_new_program_fld_study igs_ps_field_study.field_of_study%TYPE;
751: v_new_tmp_prgfldstudy igs_ps_field_study.field_of_study%TYPE;
752:
753: -- Variables to hold old record unique key values
754: v_u_old_version_number igs_en_stdnt_ps_att.version_number%TYPE;
755: v_u_new_version_number igs_en_stdnt_ps_att.version_number%TYPE;
756: -- variables to hold old record program field of study values
757: v_u_old_program_fld_study igs_ps_field_study.field_of_study%TYPE;
758: v_u_new_program_fld_study igs_ps_field_study.field_of_study%TYPE;
759:
759:
760: -- Cursor required to retrieve version_number which is required as unique key for another cursor.
761: CURSOR old_ukeyrec2 IS
762: SELECT version_number
763: FROM igs_en_stdnt_ps_att
764: WHERE person_id = p_person_id AND
765: course_cd = p_old_course_cd;
766:
767: -- Cursor required to retrieve version_number which is required as unique key for another cursor.
766:
767: -- Cursor required to retrieve version_number which is required as unique key for another cursor.
768: CURSOR new_ukeyrec2 IS
769: SELECT version_number
770: FROM igs_en_stdnt_ps_att
771: WHERE person_id = p_person_id AND
772: course_cd = p_new_course_cd;
773:
774: -- Cursor to retrieve record values for award code from IGS_PS_AWARD
911: p_message_name := 'IGS_HE_INV_PARAMS';
912: RETURN;
913: END IF;
914:
915: -- fetch unique keys for old program_cd from igs_en_stdnt_ps_att
916: OPEN old_ukeyrec2;
917: FETCH old_ukeyrec2 INTO v_u_old_version_number;
918: CLOSE old_ukeyrec2;
919:
916: OPEN old_ukeyrec2;
917: FETCH old_ukeyrec2 INTO v_u_old_version_number;
918: CLOSE old_ukeyrec2;
919:
920: -- fetch unique keys for new program_cd from igs_en_stdnt_ps_att
921: OPEN new_ukeyrec2;
922: FETCH new_ukeyrec2 INTO v_u_new_version_number;
923: CLOSE new_ukeyrec2;
924: