Some procedure can not run,Please help

Question

--Please Help me where is wrong
--The Procedure can be compiler,but can not run
--Maybe there has some wrong with Ref Cursor or dynamic SQL
--Please,Thanks ver much
--Follow is my full code
Create or Replace package ref_types
AS
TYPE ref_cursor is REF CURSOR;
End;
Create or Replace package userinfo as
procedure Get_usermenu (baduser out boolean,
menu out ref_types.ref_cursor
End;
Create or Replace package body userinfo as
procedure Get_usermenu (baduser out boolean,
menu out ref_types.ref_cursor
) is
v_sqltext varchar2(100);
v_sql varchar2(300);
begin
baduser:=FALSE;
v_sqltext:='''A001'',''A002'',''A003''';
v_sql:='select MENUID,P_NAME from MENU_LIST
where MENUID in (';
v_sql:=v_sql||v_sqltext||) order by MENUID asc';
--explain:Get v_sqktext values overpass some process
open menu FOR v_sql;
end;
end;
/

Answer 1

thanks,
error number is : Ora-01001
I use it In Form:
declare
v_baduser boolean;
v_menu ref_types.ref_cursor;
v_menuid number;
v_menuname varchar2(50);
v_menucount number;
begin
v_menucount:=1;
userinfo.Get_usermenu(v_baduser,v_menu);
loop
fetch v_menu into v_menuid,v_menuname;
exit when v_menu%NOTFOUND;
show_alert_info(v_menuid||';'||v_menucount||'、'||v_menuname);
--show_alert_info,like Developer's Function "message",
--It can show some text
v_menucount:=v_menucount+1;
end loop;
Close v_menu;
end;