755: END admp_get_sys_aas;
756:
757: PROCEDURE get_acad_cal (
758: p_adm_cal_type IN OUT NOCOPY igs_ca_type.cal_type%TYPE,
759: p_adm_seq IN OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
760: p_acad_cal_type OUT NOCOPY igs_ca_type.cal_type%TYPE,
761: p_acad_seq OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
762: p_adm_alternate_code OUT NOCOPY igs_ca_inst.alternate_code%TYPE,
763: p_message OUT NOCOPY VARCHAR2
757: PROCEDURE get_acad_cal (
758: p_adm_cal_type IN OUT NOCOPY igs_ca_type.cal_type%TYPE,
759: p_adm_seq IN OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
760: p_acad_cal_type OUT NOCOPY igs_ca_type.cal_type%TYPE,
761: p_acad_seq OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
762: p_adm_alternate_code OUT NOCOPY igs_ca_inst.alternate_code%TYPE,
763: p_message OUT NOCOPY VARCHAR2
764: )
765: AS
758: p_adm_cal_type IN OUT NOCOPY igs_ca_type.cal_type%TYPE,
759: p_adm_seq IN OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
760: p_acad_cal_type OUT NOCOPY igs_ca_type.cal_type%TYPE,
761: p_acad_seq OUT NOCOPY igs_ca_inst.sequence_number%TYPE,
762: p_adm_alternate_code OUT NOCOPY igs_ca_inst.alternate_code%TYPE,
763: p_message OUT NOCOPY VARCHAR2
764: )
765: AS
766:
794: ci_acad.cal_type acad_cal_type,
795: ci_acad.sequence_number acad_sequence_number,
796: ci_adm.alternate_code adm_alternate_code
797: FROM igs_ca_type ct_adm,
798: igs_ca_inst ci_adm,
799: igs_ca_stat cs,
800: igs_ca_inst_rel cir,
801: igs_ca_inst ci_acad,
802: igs_ca_type ct_acad
796: ci_adm.alternate_code adm_alternate_code
797: FROM igs_ca_type ct_adm,
798: igs_ca_inst ci_adm,
799: igs_ca_stat cs,
800: igs_ca_inst_rel cir,
801: igs_ca_inst ci_acad,
802: igs_ca_type ct_acad
803: WHERE ct_adm.cal_type = cp_cal_type
804: AND ct_adm.cal_type = ci_adm.cal_type
797: FROM igs_ca_type ct_adm,
798: igs_ca_inst ci_adm,
799: igs_ca_stat cs,
800: igs_ca_inst_rel cir,
801: igs_ca_inst ci_acad,
802: igs_ca_type ct_acad
803: WHERE ct_adm.cal_type = cp_cal_type
804: AND ct_adm.cal_type = ci_adm.cal_type
805: AND SYSDATE <= ci_adm.end_dt