[Home] [Help]
39: --
40: DECLARE
41: -- table to hold acusg records which have matching acus and susa unit sets
42: TYPE r_acusg_match_typ IS RECORD(
43: grd_cal_type IGS_GR_AWD_CRM_US_GP.grd_cal_type%TYPE,
44: grd_ci_sequence_number
45: IGS_GR_AWD_CRM_US_GP.grd_ci_sequence_number%TYPE,
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
41: -- table to hold acusg records which have matching acus and susa unit sets
42: TYPE r_acusg_match_typ IS RECORD(
43: grd_cal_type IGS_GR_AWD_CRM_US_GP.grd_cal_type%TYPE,
44: grd_ci_sequence_number
45: IGS_GR_AWD_CRM_US_GP.grd_ci_sequence_number%TYPE,
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
42: TYPE r_acusg_match_typ IS RECORD(
43: grd_cal_type IGS_GR_AWD_CRM_US_GP.grd_cal_type%TYPE,
44: grd_ci_sequence_number
45: IGS_GR_AWD_CRM_US_GP.grd_ci_sequence_number%TYPE,
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
50: award_cd IGS_GR_AWD_CRM_US_GP.award_cd%TYPE,
43: grd_cal_type IGS_GR_AWD_CRM_US_GP.grd_cal_type%TYPE,
44: grd_ci_sequence_number
45: IGS_GR_AWD_CRM_US_GP.grd_ci_sequence_number%TYPE,
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
50: award_cd IGS_GR_AWD_CRM_US_GP.award_cd%TYPE,
51: us_group_number IGS_GR_AWD_CRM_US_GP.us_group_number%TYPE,
45: IGS_GR_AWD_CRM_US_GP.grd_ci_sequence_number%TYPE,
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
50: award_cd IGS_GR_AWD_CRM_US_GP.award_cd%TYPE,
51: us_group_number IGS_GR_AWD_CRM_US_GP.us_group_number%TYPE,
52: dflt_ind IGS_AD_LOCATION_REL.dflt_ind%TYPE);
53: r_acusg_match r_acusg_match_typ;
46: ceremony_number IGS_GR_AWD_CRM_US_GP.ceremony_number%TYPE,
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
50: award_cd IGS_GR_AWD_CRM_US_GP.award_cd%TYPE,
51: us_group_number IGS_GR_AWD_CRM_US_GP.us_group_number%TYPE,
52: dflt_ind IGS_AD_LOCATION_REL.dflt_ind%TYPE);
53: r_acusg_match r_acusg_match_typ;
54: TYPE t_acusg_match_typ IS TABLE OF r_acusg_match%TYPE
47: award_course_cd IGS_GR_AWD_CRM_US_GP.award_course_cd%TYPE,
48: award_crs_version_number
49: IGS_GR_AWD_CRM_US_GP.award_crs_version_number%TYPE,
50: award_cd IGS_GR_AWD_CRM_US_GP.award_cd%TYPE,
51: us_group_number IGS_GR_AWD_CRM_US_GP.us_group_number%TYPE,
52: dflt_ind IGS_AD_LOCATION_REL.dflt_ind%TYPE);
53: r_acusg_match r_acusg_match_typ;
54: TYPE t_acusg_match_typ IS TABLE OF r_acusg_match%TYPE
55: INDEX BY BINARY_INTEGER;
145: acusg.award_course_cd,
146: acusg.award_crs_version_number,
147: acusg.award_cd,
148: acusg.us_group_number
149: FROM IGS_GR_AWD_CRM_US_GP acusg
150: WHERE acusg.grd_cal_type = cp_grd_cal_type AND
151: acusg.grd_ci_sequence_number = cp_grd_ci_sequence_number AND
152: acusg.ceremony_number = cp_ceremony_number AND
153: acusg.award_course_cd = cp_award_course_cd AND
762: e_resource_busy_exception EXCEPTION;
763: PRAGMA EXCEPTION_INIT(e_resource_busy_exception, -54);
764: CURSOR c_acusg IS
765: SELECT acusg.us_group_number
766: FROM IGS_GR_AWD_CRM_US_GP acusg
767: WHERE acusg.grd_cal_type = p_grd_cal_type AND
768: acusg.grd_ci_sequence_number = p_grd_ci_sequence_number AND
769: acusg.ceremony_number = p_ceremony_number AND
770: NVL(acusg.award_course_cd, 'NULL') = NVL(p_award_course_cd, 'NULL') AND