FRM-47013 error: Cannot add parameter P LEVEL to Parameter List REPDATA: pa

Question

Hello! I am using Forms 6i and get the above error-FRM-47013 error: Cannot add parameter P LEVEL to Parameter List REPDATA: parameter with this name exists. when clicking on the Run Report button on a parameter form. I have googled and I'm doing everything I know to do, but cannot get rid of the error. Any help is greatly appreciated! I only have 3 months Oracle experience coming from a VB/C# background.
Here's my code that is on the Run Report Program Unit on the parameter form:
PROCEDURE run_report IS
pl_id ParamList;
pl_name VARCHAR2(10) := 'repdata';
v_rep_num number;
hold_where_clause varchar2(2000);
charFY                                                  varchar2(4);
the_connect varchar2(10);
CharAlertText          varchar2(300); --Alert message text
     NumAlertVal      number; --Alert prompt 
begin
     if :CONTROL.BEGINNING_FISCAL_YEAR is null or :CONTROL.ENDING_FISCAL_YEAR is null then
                    CharAlertText := 'You must enter Beginning and Ending Fiscal Years before running this report!';
                    set_alert_button_property('ALERT_1',ALERT_BUTTON1,LABEL,'Ok'); --alert value equals 88
                    set_alert_property('ALERT_1',title,'No Year');
                    set_alert_property('ALERT_1',alert_message_text,CharAlertText);
                    NumAlertVal :=show_alert('ALERT_1');
                    raise form_trigger_failure;
     end if;
     if :CONTROL.BEGINNING_FISCAL_YEAR > :CONTROL.ENDING_FISCAL_YEAR then
                    CharAlertText := 'You must enter an Ending Year Fiscal Year greater than or equal to Beginning Year!';
                    set_alert_button_property('ALERT_1',ALERT_BUTTON1,LABEL,'Ok'); --alert value equals 88
                    set_alert_property('ALERT_1',title,'Invalid Year');
                    set_alert_property('ALERT_1',alert_message_text,CharAlertText);
                    NumAlertVal :=show_alert('ALERT_1');
                    raise form_trigger_failure;
     end if;
--This section creates system identified parameter list.      
BEGIN
pl_id := Get_Parameter_List(pl_name);
IF Not Id_Null(pl_id) THEN
Destroy_Parameter_List(pl_name);
--pl_id := Create_Parameter_List(pl_name);
--IF Id_Null(pl_id) THEN
--Message('Error creating parameter list '||pl_name);
--RAISE Form_Trigger_Failure;
--END IF;
END IF;
pl_id := Create_Parameter_List(pl_name);
Add_parameter(pl_id,'P_LEVEL',text_parameter,:control.hierarchy);
IF Id_Null(pl_id) THEN
Message('Error creating parameter list '||pl_name);
RAISE Form_Trigger_Failure;
END IF;
END;
--End section that creates parameter list.
BEGIN
-- This will get the next sequence number from the database to make the
-- report file name unique
select ombil.report_seq.nextval
into v_rep_num
from dual;
exception when no_data_found then
display_error_text(203,'S','N');
raise form_trigger_failure;
END;
If :control.hierarchy = 1 then
hold_where_clause := ' ';
elsif :control.hierarchy = 2 then
     hold_where_clause := ' AND DIV.ID = ' || :control.division_poplist ||' ';
elsif :control.hierarchy = 3 then
hold_where_clause := ' AND DIST.ID = ' || :control.district_poplist ||' ';
elsif :control.hierarchy = 4 then
          hold_where_clause := ' AND PS.ID = ' || :control.psite_poplist ||' ';
elsif :control.hierarchy = 5 then
hold_where_clause := ' AND PS.ID IN ' || :CONTROL.MULTI_PROJECT_SITES ||' ';
end if;
--charFY := 'where to_char(MP.fiscal_year, ''RRRR'') = to_char(:CONTROL.FISCAL_YEAR, ''RRRR'')';
Add_Parameter(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
Add_Parameter(pl_id,'DESTYPE',TEXT_PARAMETER,'FILE');
Add_Parameter(pl_id,'DESNAME',TEXT_PARAMETER,:global.cur_reports_path||to_char(v_rep_num)||'.'||:control.format);
Add_parameter(pl_id,'P_WHERE',text_parameter,hold_where_clause);
Add_parameter(pl_id,'P_FY_BEGIN',text_parameter, to_char(:CONTROL.BEGINNING_FISCAL_YEAR, 'DD-MON-YYYY'));
Add_parameter(pl_id,'P_FY_END',text_parameter, to_char(:CONTROL.ENDING_FISCAL_YEAR, 'DD-MON-YYYY'));
--Add_parameter(pl_id,'P_LEVEL',text_parameter,:control.hierarchy); 
/*if :control.format = 'CSV' then
Add_Parameter(pl_id,'DESFORMAT',TEXT_PARAMETER,'DELIMITED');
          Add_Parameter(pl_id,'DELIMITER',TEXT_PARAMETER,',');
                    run_product(REPORTS,'es_adm_mit_percent_csv.rep',SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
else */
          --Add_parameter(pl_id,'P_LEVEL',text_parameter,:control.hierarchy);
Add_Parameter(pl_id,'DESFORMAT',TEXT_PARAMETER,:control.format);
     --end if;
run_product(REPORTS,'es_fish_mit_reqs.rep',SYNCHRONOUS,RUNTIME,FILESYSTEM,pl_id,NULL);
--Destroy_Parameter_List(pl_id);
web.show_document(:global.cur_reports_url||to_char(v_rep_num)||'.'||:control.format,'_SELF');
exception when others then
display_error_text(202,'S','N');
end;
Edited by: [email protected] on Feb 27, 2009 6:35 AM

Answer 1

A coworker figured out that the switchboard data input form was pointed at the wrong executable file. I knew there wasn't anything wrong with my code! I'll remember this one next time!
Edited by: [email protected] on Feb 27, 2009 12:24 PM