create or replace function lmu_r_f_get_aok
  (sbgi varchar2, levl varchar2, subj varchar2, crse varchar2, term varchar2)
  return varchar2
as
	strAOK	varchar2(1);
	begin
		begin
			select 'Y'
			into strAOK
			from shrtcmt a
			where a.shrtcmt_term_code_eff=
				(select max(b.shrtcmt_term_code_eff) from shrtcmt b
				 where b.shrtcmt_term_code_eff <= term
				 and a.shrtcmt_sbgi_code = b.shrtcmt_sbgi_code
				 and a.shrtcmt_program = b.shrtcmt_program
				 and a.shrtcmt_tlvl_code = b.shrtcmt_tlvl_code
				 and a.shrtcmt_subj_code_trns = b.shrtcmt_subj_code_trns
				 and a.shrtcmt_crse_numb_trns = b.shrtcmt_crse_numb_trns)
			and a.shrtcmt_sbgi_code = sbgi
			and a.shrtcmt_tlvl_code = levl
			and a.shrtcmt_subj_code_trns = subj
			and a.shrtcmt_crse_numb_trns = crse
			and upper(a.shrtcmt_text) like '%OK%AG%';
		exception when others then
			strAOK := 'N';
		end;
		return strAOK;
	end;
/