Help me conver following SQL server script in to Oracle Script

Question

could any one help me to conver following script in to oracle script
Create Procedure Insert_profilebasicdetail
@isubprofileid as int,
@Copyisubprofileid as int,
@itranno as int,
As
Begin
     Declare @IncKeyId as int
     Declare @tempkeyId as int
     set @IncKeyId=(select isNull(Max(ikeyId),0)as MaxKeyId from profilebasicdetail)
     Declare TempInsert cursor for select ikeyId--,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,iyear
               from profilebasicdetail where isubprofileid=@Copyisubprofileid and itranno=@itranno
     open TempInsert
     fetch from TempInsert into @tempkeyId
     while @@fetch_Status=0
     Begin
          set @IncKeyId = @IncKeyId + 1
          Insert into profilebasicdetail
          (ikeyid,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,itranno,iyear,isubprofileid)
          values(select @IncKeyId,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,'1',
                         iyear,@isubprofileid from profilebasicdetail where ikeyId=@tempkeyId)
     fetch next from TempInsert into @tempkeyId
     End
End
Regards,
Ajay

Answer 1

Thanks Pavan Kumar
i m new in oracle i don't know anything.
i run following script on TOAD 9.5 n it gives me error
could u suggest me how can i run this script means directly on oracle 10g or on TOAD
if u r at india then could u give me ur mobile number so i can explain my query u clearly.
Create or Replace Procedure Insert_profilebasicdetail
p_isubprofileid IN NUMBER,
p_Copyisubprofileid IN NUMBER,
p_itranno IN NUMBER,
As
v_IncKeyID NUMBER;
v_tempkeyId NUMBER;
CURSOR TempInsert IS
SELECT ikeyid, iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,iyear
FROM profilebasicdetail
WHERE isubprofileid=p_Copyisubprofileid and itranno=p_itranno
Begin
SELECT MAX(NVL(iKeyID,0))
INTO v_IncKeyID
FROM profilebasicdetail;
FOR r in TempInsert LOOP
v_IncKeyID = v_InceyID + 1;
Insert into profilebasicdetail
(ikeyid,iprofileid,iquestionid,vquestionans,cstatusindi,dmodifyon,imodifyby,itranno,iyear,isubprofileid)
values(select v_IncKeyId,r.iprofileid,r.iquestionid,r,vquestionans,
r.cstatusindi,r.dmodifyon,r.imodifyby,'1',
r.iyear,p_Copyisubprofileid
from profilebasicdetail
where ikeyId=r.ikeyId);
END LOOP;
EXCEPTION
WHEN others THEN
raise;
End;
Regards,
Ajay