CREATE OR REPLACE PACKAGE BODY Mrf_Maint
IS

PROCEDURE check_user(mrfid      VARCHAR,
	                mrfrole     OUT Mrf_Maint.mrf_role)  
IS

     crsr Mrf_Maint.mrf_role;   

BEGIN

     OPEN crsr FOR SELECT access_role FROM TABLE WHERE field = mrfid;
END;



END;

/