861: -- Determine the current progression period
862: --
863: CURSOR c_scpc (cp_version_number igs_ps_ver.version_number%TYPE) IS
864: SELECT 'X'
865: FROM igs_pr_s_crv_prg_cal scpc
866: WHERE scpc.course_cd = p_course_cd
867: AND scpc.version_number = cp_version_number;
868:
869: CURSOR c_scpc_ci (
871: cp_version_number igs_ps_ver.version_number%TYPE
872: ) IS
873: SELECT ci.cal_type,
874: ci.sequence_number
875: FROM igs_pr_s_crv_prg_cal scpc,
876: igs_ca_inst ci,
877: igs_ca_stat cs
878: WHERE scpc.course_cd = p_course_cd
879: AND scpc.version_number = cp_version_number