576: is
577:
578: CURSOR c_CheckDup is
579: select proc_type
580: from xdp_proc_body
581: where proc_name = p_proc_name
582: and proc_type <> p_proc_type;
583: begin
584:
599: lv_exists boolean := FALSE;
600:
601: CURSOR c_CheckExists is
602: select 1
603: from xdp_proc_body
604: where proc_name = p_proc_name;
605: begin
606:
607: for v_CheckExists in c_CheckExists loop