Oracle Error: SQL Error Messge: [SERVERERROR] ORA-06550: line 1, column 7:

Question

The following is the error msg, I am trying to run the stored procedure to insert data into few tables.
Pls suggest any solution to this error msg: Thanks.
08/05/2005 11:27:41-> Level:1, UpLoader: SQL Error Messge: [SERVERERROR] ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'ENTPRFMAN'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
PROCEDURE ENTPRFMAN
p_source_acct_id char, /*1*/
p_source_system char, /*2*/
p_entity_name char, /*3*/
p_entity_legal_name char, /*4*/
p_entity_long_name char, /*5*/
p_associated_entity_id char, /*6*/
p_entity_type char, /*7*/
p_list_order char, /*8*/
p_tax_id_number char, /*9*/
p_inception_date char, /*10*/
p_fiscal_end_date char, /*11*/
p_marketing_open_date char, /*12*/
p_base_currency char, /*13*/
p_account_status char, /*14*/
p_entity_code char, /*15*/
p_orig_source_system char, /*16*/
p_account_legal_form char, /*17*/
p_business_sector char, /*18*/
p_direct_account_ind char, /*19*/
p_portfolio_type_code char, /*20*/
p_target_dict_name char, /*21*/
p_dict_level char, /*22*/
p_cust_indx_type char, /*23*/
p_blnd_source char, /*24*/
p_ml_interpolate_yn char, /*25*/
p_source_level1 char, /*26*/
p_source_entity_xref1 char, /*27*/
p_source_entity_xref1_type char, /*28*/
p_source_dict_name1 char, /*29*/
p_weight1 char, /*30*/
p_source_level2 char, /*31*/
p_source_entity_xref2 char, /*32*/
p_source_entity_xref2_type char, /*33*/
p_source_dict_name2 char, /*34*/
p_weight2 char, /*35*/
p_source_level3 char, /*36*/
p_source_entity_xref3 char, /*37*/
p_source_entity_xref3_type char, /*38*/
p_source_dict_name3 char, /*39*/
p_weight3 char, /*40*/
p_source_level4 char, /*41*/
p_source_entity_xref4 char, /*42*/
p_source_entity_xref4_type char, /*43*/
p_source_dict_name4 char, /*44*/
p_weight4 char, /*45*/
p_source_level5 char, /*46*/
p_source_entity_xref5 char, /*47*/
p_source_entity_xref5_type char, /*48*/
p_source_dict_name5 char, /*49*/
p_weight5 char, /*50*/
p_source_level6 char, /*51*/
p_source_entity_xref6 char, /*52*/
p_source_entity_xref6_type char, /*53*/
p_source_dict_name6 char, /*54*/
p_weight6 char, /*55*/
p_source_level7 char, /*56*/
p_source_entity_xref7 char, /*57*/
p_source_entity_xref7_type char, /*58*/
p_source_dict_name7 char, /*59*/
p_weight7 char, /*60*/
p_source_level8 char, /*61*/
p_source_entity_xref8 char, /*62*/
p_source_entity_xref8_type char, /*63*/
p_source_dict_name8 char, /*64*/
p_weight8 char, /*65*/
p_source_level9 char, /*66*/
p_source_entity_xref9 char, /*67*/
p_source_entity_xref9_type char, /*68*/
p_source_dict_name9 char, /*69*/
p_weight9 char, /*70*/
p_source_level10 char, /*71*/
p_source_entity_xref10 char, /*72*/
p_source_entity_xref10_type char, /*73*/
p_source_dict_name10 char, /*74*/
p_weight10 char, /*75*/
p_OUT OUT char
AS
v_date rulesdbo.entity.upd_date%TYPE:= SYSDATE;
v_update_source rulesdbo.entity.upd_user%TYPE:= 'PRFENT';
v_entity_id rulesdbo.entity.entity_id%type;
b_valid BOOLEAN;
/* Supported Entity Types - Index Index */
v_sb_entity_type rulesdbo.entity.entity_type%type:= 'INDX';
v_bb_entity_type rulesdbo.entity.entity_type%type:= 'CIDX';
v_bb_dict_l1_cv rulesdbo.dictionary_detail.dict_l1_code_value%type := 'TOTAL';
na_outparam EagleGen.t_outparam;
/* Constants */
g_prf_intfc rulesdbo.entity.src_intfc_inst%type:= -1;
v_src_intfc_inst rulesdbo.entity.src_intfc_inst%type:= -1;
/* Business Groups */
v_group_name1 pace_masterdbo.pace_user_groups.group_name%type := 'ASP Reporting Grp';
v_group_name2 pace_masterdbo.pace_user_groups.group_name%type := 'Client Rptg Grp';
v_group_name3 pace_masterdbo.pace_user_groups.group_name%type := 'Client Rptg Mgr Grp';
v_group_name4 pace_masterdbo.pace_user_groups.group_name%type := 'Client Srvc Grp';
v_group_name5 pace_masterdbo.pace_user_groups.group_name%type := 'Client Srvc Mgr Grp';
v_group_name6 pace_masterdbo.pace_user_groups.group_name%type := 'Data Mgmt Grp';
v_group_name7 pace_masterdbo.pace_user_groups.group_name%type := 'Data Services Grp';
v_group_name8 pace_masterdbo.pace_user_groups.group_name%type := 'Dom Operations (FDS)';
v_group_name9 pace_masterdbo.pace_user_groups.group_name%type := 'QA Portfolio Mgr Grp';
v_group_name10 pace_masterdbo.pace_user_groups.group_name%type := 'SRS (LPS) Group';
v_group_name11 pace_masterdbo.pace_user_groups.group_name%type := 'LG Cap Val PM Group';
v_group_name12 pace_masterdbo.pace_user_groups.group_name%type := 'APL Large Cap Value';
v_group_name13 pace_masterdbo.pace_user_groups.group_name%type := 'Small Cap PM Grp';
v_group_name14 pace_masterdbo.pace_user_groups.group_name%type := 'Client Rptg Dev Grp';
v_entity_name rulesdbo.entity.entity_name%type; -- HX 17MAR05
** Checks to see if entity exists
PROCEDURE validate_entityid(p_acctid IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_acctid_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
l_entity_id OUT rulesdbo.entity_xreference.entity_id%TYPE,
b_valid OUT BOOLEAN)
IS
BEGIN
select ex.entity_id into l_entity_id
from rulesdbo.entity_xreference ex, rulesdbo.entity e
where ex.xref_account_id = trim(p_acctid)
and ex.xref_account_id_type = trim(p_acctid_type)
and ex.entity_id = e.entity_id;
b_valid:=TRUE;
EXCEPTION
WHEN NO_DATA_FOUND THEN
b_valid:=TRUE;
l_entity_id:=null;
dbms_output.put_line('IN ENTITY VALIDATE no data');
WHEN OTHERS THEN
dbms_output.put_line('IN ENTITY VALIDATE ERROR');
b_valid:=FALSE;
END; -- validate entity id func ends here
** Checks to see if entity xref exists, if not then add xref
FUNCTION entity_xref(p_acctid rulesdbo.entity_xreference.xref_account_id%TYPE,
p_acctid_type rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_entity_id rulesdbo.entity_xreference.entity_id%TYPE)
RETURN BOOLEAN
AS
l_count NUMBER:=0;
v_entity_xref_id rulesdbo.entity_xreference.instance%type;
BEGIN
select count(*) into l_count
from rulesdbo.entity_xreference
where xref_account_id = trim(p_acctid)
and xref_account_id_type = trim(p_acctid_type);
if l_count > 0 then
UPDATE rulesdbo.entity_xreference
SET update_date = v_date,
update_source = v_update_source,
entity_id = p_entity_id
WHERE xref_account_id = trim(p_acctid)
AND xref_account_id_type = trim(p_acctid_type);
RETURN TRUE;
else
pace_masterdbo.getnextinstance('RULESDBO.ENTITY_XREFERENCE',1,v_entity_xref_id);
INSERT INTO rulesdbo.entity_xreference
instance, update_date, update_source, entity_id, xref_account_id, xref_account_id_type
VALUES
v_entity_xref_id, v_date, v_update_source, p_entity_id, trim(p_acctid), trim(p_acctid_type)
RETURN TRUE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- entity_xref func ends here
** Finds dictionary_id given dictionary_name
FUNCTION getDictionaryId(p_dict_name IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_dict_id OUT rulesdbo.dictionaries.dictionary_id%TYPE)
RETURN BOOLEAN
AS
v_dict_id rulesdbo.dictionaries.dictionary_id%type;
v_dict_name rulesdbo.dictionaries.dictionary_name%type;
BEGIN
dbms_output.put_line('dictionary_name = '||p_dict_name);
--trim input
v_dict_name := trim(p_dict_name);
select dictionary_id into v_dict_id
from rulesdbo.dictionaries
where dictionary_name = v_dict_name;
dbms_output.put_line('dictionary_id = '||v_dict_id);
if v_dict_id is not null then
p_dict_id := v_dict_id;
RETURN TRUE;
else
p_dict_id := NULL;
RETURN FALSE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- getDictionaryId func ends here
** Finds dictionary_detail_id given dictionary_name
FUNCTION getDictionaryItemId(p_dict_id IN rulesdbo.dictionary_detail.dictionary_id%TYPE,
p_dict_l1_code_value IN rulesdbo.dictionary_detail.dict_l1_code_value%TYPE,
p_dict_l2_code_value IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_dict_item_id OUT rulesdbo.dictionary_detail.dictionary_item_id%TYPE)
RETURN BOOLEAN
AS
v_dict_item_id rulesdbo.dictionary_detail.dictionary_item_id%type;
v_dict_l1 rulesdbo.dictionary_detail.dict_l1_code_value%TYPE;
v_dict_l2 rulesdbo.dictionary_detail.dict_l2_code_value%TYPE;
BEGIN
--trim input
v_dict_l1 := trim(p_dict_l1_code_value);
v_dict_l2 := trim(p_dict_l2_code_value);
/* Total Level Only dictionary custom logic */
if v_dict_l2 <> 'TOTAL' then
select dictionary_item_id into v_dict_item_id
from rulesdbo.dictionary_detail
where dictionary_id = p_dict_id
and dict_l1_code_value = v_dict_l1
and dict_l2_code_value = v_dict_l2;
else
select dictionary_item_id into v_dict_item_id
from rulesdbo.dictionary_detail
where dictionary_id = p_dict_id
and dict_l1_code_value = v_dict_l1
and dict_l2_code_value is null;
end if;
if v_dict_item_id is not null then
p_dict_item_id := v_dict_item_id;
RETURN TRUE;
else
p_dict_item_id := NULL;
RETURN FALSE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- getDictionaryDetailId func ends here
** Finds instance for given source short_desc
FUNCTION getSourceId(p_source_name IN pace_masterdbo.interfaces.short_desc%TYPE,
p_source_id OUT pace_masterdbo.interfaces.instance%TYPE)
RETURN BOOLEAN
AS
v_source_id pace_masterdbo.interfaces.instance%TYPE;
v_source_name pace_masterdbo.interfaces.short_desc%TYPE;
BEGIN
--trim input
v_source_name := trim(p_source_name);
select instance into v_source_id
from pace_masterdbo.interfaces
where short_desc = v_source_name;
if v_source_id is not null then
p_source_id := v_source_id;
RETURN TRUE;
else
p_source_id := NULL;
RETURN FALSE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- getSourceId func ends here
** Finds entity_id given xref_account_id
FUNCTION getEntityId( p_account_id IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_account_id_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_entity_id OUT rulesdbo.entity_xreference.entity_id%TYPE)
RETURN BOOLEAN
AS
v_entity_id rulesdbo.entity_xreference.entity_id%TYPE;
v_account_id rulesdbo.entity_xreference.xref_account_id%TYPE;
v_account_id_type rulesdbo.entity_xreference.xref_account_id_type%TYPE;
BEGIN
--trim input
v_account_id := trim(p_account_id);
v_account_id_type := trim(p_account_id_type);
select entity_id into v_entity_id
from rulesdbo.entity_xreference
where xref_account_id = v_account_id
and xref_account_id_type = v_account_id_type;
if v_entity_id is not null then
p_entity_id := v_entity_id;
RETURN TRUE;
else
p_entity_id := NULL;
RETURN FALSE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- getEntityId func ends here
** FOR BLENDED BENCHMARKS ONLY
FUNCTION processLevel( p_level_id IN NUMBER,
p_blend_entity_id IN rulesdbo.entity.entity_id%TYPE,
p_target_dict_id IN rulesdbo.dictionaries.dictionary_id%TYPE,
p_dict_level IN rulesdbo.custom_index_attributes.dict_level%TYPE,
p_dict_l2_code_value1 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref1 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref1_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname1 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight1 IN rulesdbo.custom_index_attributes.weight%TYPE
RETURN BOOLEAN
AS
l_count NUMBER:=0;
v_instance rulesdbo.custom_index_attributes.instance%TYPE;
v_source_dict_id rulesdbo.custom_index_attributes.source_dict_id%TYPE;
v_entity_id rulesdbo.entity.entity_id%TYPE;
v_src_intfc_inst rulesdbo.custom_index_attributes.src_intfc_inst%TYPE;
v_target_dict_item_id rulesdbo.custom_index_attributes.target_dict_item_id%TYPE;
b_valid BOOLEAN;
BEGIN
b_valid := getSourceId('EAGLE PACE', v_src_intfc_inst);
dbms_output.put_line('Source Id = '||v_src_intfc_inst);
b_valid := getEntityId(p_entity_xref1, p_entity_xref1_type, v_entity_id);
dbms_output.put_line('Level Entity Xref = '||p_entity_xref1);
dbms_output.put_line('Level Entity Id = '||v_entity_id);
IF NOT b_Valid THEN
na_outparam(na_outparam.COUNT+1) := EagleGen.GetErrEdit(p_Src => v_src_intfc_inst,
p_ShortDesc => 'ENTITY NF');
p_OUT := EagleGen.simf_table_to_varchar(na_outparam);
RETURN FALSE;
END IF;
b_valid := getDictionaryId(p_source_dictname1, v_source_dict_id);
dbms_output.put_line('Level Dictionary Id = '||v_source_dict_id);
IF NOT b_Valid THEN
na_outparam(na_outparam.COUNT+1) := EagleGen.GetErrEdit(p_Src => v_src_intfc_inst,
p_ShortDesc => 'DICT ID NF');
p_OUT := EagleGen.simf_table_to_varchar(na_outparam);
RETURN FALSE;
END IF;
b_valid := getDictionaryItemId(p_target_dict_id, v_bb_dict_l1_cv, p_dict_l2_code_value1, v_target_dict_item_id);
dbms_output.put_line('Dictionary Item Id = '||v_target_dict_item_id);
IF NOT b_Valid THEN
na_outparam(na_outparam.COUNT+1) := EagleGen.GetErrEdit(p_Src => v_src_intfc_inst,
p_ShortDesc => 'DIR NF');
p_OUT := EagleGen.simf_table_to_varchar(na_outparam);
RETURN FALSE;
END IF;
/* initial delete */
if p_level_id = 1 then
dbms_output.put_line('Deleting ALL prior blend info');
DELETE FROM rulesdbo.custom_index_attributes
WHERE entity_id = p_blend_entity_id
and target_dict_id = p_target_dict_id
and source_dict_id = v_source_dict_id
and dict_level = p_dict_level;
end if;
/* verify level */
if p_dict_l2_code_value1 is not null then
if (v_entity_id is not null) then
if (v_source_dict_id is not null) then
if (p_weight1 is not null) then
dbms_output.put_line('*** LEVEL '||p_level_id||' - INSERTING NEW RECORD INTO RULESDBO.CUSTOM_INDEX_ATTRIBUTES');
pace_masterdbo.getnextinstance('RULESDBO.CUSTOM_INDEX_ATTRIBUTES',1,v_instance);
dbms_output.put_line('Retrieved instance number = '||v_instance);
/* insert row */
INSERT INTO rulesdbo.custom_index_attributes (
instance, effective_date, entity_id, entity_detail_id, target_dict_id, source_dict_id,
dict_level, dict_level_value, weight, cust_indx_type, src_intfc_inst, update_date,
update_source, target_dict_item_id
VALUES (
v_instance, trunc(v_date), p_blend_entity_id, v_entity_id, p_target_dict_id, v_source_dict_id,
p_dict_level, substr(p_dict_l2_code_value1, 1, 30), p_weight1, substr(p_cust_indx_type, 1, 4),
v_src_intfc_inst, v_date, v_update_source, v_target_dict_item_id
b_valid := TRUE;
RETURN TRUE;
end if;
end if;
end if;
end if;
RETURN FALSE;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('ERRROR - '||sqlerrm);
RETURN NULL;
END; -- processLevel func ends here
FUNCTION customIndexAttributes(
p_blend_entity_id IN rulesdbo.entity.entity_id%TYPE,
p_target_dictname IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_dict_l2_code_value1 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref1 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref1_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname1 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight1 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value2 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref2 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref2_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname2 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight2 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value3 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref3 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref3_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname3 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight3 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value4 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref4 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref4_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname4 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight4 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value5 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref5 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref5_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname5 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight5 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value6 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref6 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref6_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname6 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight6 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value7 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref7 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref7_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname7 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight7 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value8 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref8 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref8_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname8 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight8 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value9 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref9 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref9_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname9 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight9 IN rulesdbo.custom_index_attributes.weight%TYPE,
p_dict_l2_code_value10 IN rulesdbo.dictionary_detail.dict_l2_code_value%TYPE,
p_entity_xref10 IN rulesdbo.entity_xreference.xref_account_id%TYPE,
p_entity_xref10_type IN rulesdbo.entity_xreference.xref_account_id_type%TYPE,
p_source_dictname10 IN rulesdbo.dictionaries.dictionary_name%TYPE,
p_weight10 IN rulesdbo.custom_index_attributes.weight%TYPE
RETURN BOOLEAN
AS
l_count NUMBER:=0;
v_instance rulesdbo.custom_index_attributes.instance%TYPE;
v_target_dict_id rulesdbo.custom_index_attributes.target_dict_id%TYPE;
v_source_dict_id rulesdbo.custom_index_attributes.source_dict_id%TYPE;
v_entity_id rulesdbo.entity.entity_id%TYPE;
v_entity_detail_id rulesdbo.entity_detail.entity_detail_id%TYPE;
b_valid BOOLEAN;
BEGIN
dbms_output.put_line('TRYING TO INSERT NEW RECORD INTO RULESDBO.CUSTOM_INDEX_ATTRIBUTES');
b_valid := getDictionaryId(p_target_dictname, v_target_dict_id);
dbms_output.put_line('Target Dictionary Id = '||v_target_dict_id);
-- process level 1
if p_dict_l2_code_value1 is not null then
dbms_output.put_line('Trying to process level 1');
b_valid := processLevel(1,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value1,p_entity_xref1,p_entity_xref1_type,
p_source_dictname1,p_weight1);
end if;
-- process level 2
if p_dict_l2_code_value2 is not null then
dbms_output.put_line('Trying to process level 2');
b_valid := processLevel(2,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value2,p_entity_xref2,p_entity_xref2_type,
p_source_dictname2,p_weight2);
end if;
-- process level 3
if p_dict_l2_code_value3 is not null then
dbms_output.put_line('Trying to process level 3');
b_valid := processLevel(3,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value3,p_entity_xref3,p_entity_xref3_type,
p_source_dictname3,p_weight3);
end if;
-- process level 4
if p_dict_l2_code_value4 is not null then
dbms_output.put_line('Trying to process level 4');
b_valid := processLevel(4,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value4,p_entity_xref4,p_entity_xref4_type,
p_source_dictname4,p_weight4);
end if;
-- process level 5
if p_dict_l2_code_value5 is not null then
dbms_output.put_line('Trying to process level 5');
b_valid := processLevel(5,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value5,p_entity_xref5,p_entity_xref5_type,
p_source_dictname5,p_weight5);
end if;
-- process level 6
if p_dict_l2_code_value6 is not null then
dbms_output.put_line('Trying to process level 6');
b_valid := processLevel(6,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value6,p_entity_xref6,p_entity_xref6_type,
p_source_dictname6,p_weight6);
end if;
-- process level 7
if p_dict_l2_code_value7 is not null then
dbms_output.put_line('Trying to process level 7');
b_valid := processLevel(7,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value7,p_entity_xref7,p_entity_xref7_type,
p_source_dictname7,p_weight7);
end if;
-- process level 8
if p_dict_l2_code_value8 is not null then
dbms_output.put_line('Trying to process level 8');
b_valid := processLevel(8,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value8,p_entity_xref8,p_entity_xref8_type,
p_source_dictname8,p_weight8);
end if;
-- process level 9
if p_dict_l2_code_value9 is not null then
dbms_output.put_line('Trying to process level 9');
b_valid := processLevel(9,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value9,p_entity_xref9,p_entity_xref9_type,
p_source_dictname9,p_weight9);
end if;
-- process level 10
if p_dict_l2_code_value10 is not null then
dbms_output.put_line('Trying to process level 10');
b_valid := processLevel(10,p_blend_entity_id,v_target_dict_id,p_dict_level,
p_dict_l2_code_value10,p_entity_xref10,p_entity_xref10_type,
p_source_dictname10,p_weight10);
end if;
RETURN b_valid;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('ERRROR - '||sqlerrm);
RETURN NULL;
END; -- customIndexAttributes func ends here
** if record in entity Detail exists add else update master entity id
** benchmark entity_id = p_mast_entity_id
** portfolio entity_id = p_feed_entity_id
FUNCTION entityDetail( p_mast_entity_id rulesdbo.entity_detail.entity_detail_id%TYPE,
p_feed_entity_id rulesdbo.entity_detail.entity_id%TYPE,
p_entity_type rulesdbo.entity_detail.entity_type%TYPE,
p_list_order rulesdbo.entity_detail.list_order%TYPE)
RETURN BOOLEAN
AS
l_count NUMBER:=0;
a_count NUMBER:=0;
BEGIN
/* if blended benchmark don't need record in ENTITY_DETAIL */
if (p_entity_type = v_bb_entity_type) then
return TRUE;
end if;
select count(*) into l_count
from rulesdbo.entity_detail
where entity_id = p_feed_entity_id
and entity_type = p_entity_type
and entity_detail_id = p_mast_entity_id;
if l_count > 0 then
dbms_output.put_line('UPDATING EXISTING RECORD IN RULESDBO.ENTITY_DETAIL');
UPDATE rulesdbo.entity_detail
SET
update_date = v_date,
update_user = v_update_source,
src_intfc_inst = v_src_intfc_inst,
list_order = p_list_order
WHERE
entity_detail_id = p_mast_entity_id
AND entity_id = p_feed_entity_id
AND entity_type = p_entity_type;
RETURN TRUE;
else
/* validate associated entity_id */
dbms_output.put_line('VALIDATING ASSOCIATED ENTITY_ID');
dbms_output.put_line('p_feed_entity_id ' || p_feed_entity_id);
select count(*) into a_count
from rulesdbo.entity
where entity_id = p_feed_entity_id;
if a_count > 0 then
dbms_output.put_line('INSERTING NEW RECORD INTO RULESDBO.ENTITY_DETAIL');
INSERT INTO rulesdbo.entity_detail
entity_detail_id, entity_id, entity_type, update_date, update_user, src_intfc_inst, list_order
VALUES
p_mast_entity_id, p_feed_entity_id, p_entity_type, v_date, v_update_source, v_src_intfc_inst, p_list_order
RETURN TRUE;
else
IF p_feed_entity_id is not null then
--For invalid, non-null associated_entity_id
RETURN FALSE;
END IF;
--For invalid, null associate_entity_id
return TRUE;
end if;
return TRUE;
end if;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- entityDetail func ends here
** FOR BUSINESS GROUPS
FUNCTION setBusinessGroup
( p_group_name pace_masterdbo.pace_user_groups.group_name%TYPE,
p_entity_id rulesdbo.entity.entity_id%TYPE,
p_upd_user pace_masterdbo.pace_user_groups.upd_user%TYPE,
p_upd_datetime pace_masterdbo.pace_user_groups.upd_datetime%TYPE
RETURN BOOLEAN
AS
g_count NUMBER:=0;
v_group_id pace_masterdbo.pace_user_groups.group_id%TYPE;
BEGIN
/* validate that business group is found */
select count(*) into g_count
from pace_masterdbo.pace_user_groups
where group_name = p_group_name;
if g_count <= 0 then
dbms_output.put_line('BUSINESS GROUP NOT FOUND - ' || p_group_name);
return FALSE;
end if;
/* get group_id for given group name */
select group_id into v_group_id
from pace_masterdbo.pace_user_groups
where group_name = p_group_name;
/* check if record already exists in group_entities */
select count(*) into g_count
from pace_masterdbo.group_entities
where group_id = v_group_id
and entity_id = p_entity_id;
if g_count > 0 then
/* update record */
UPDATE pace_masterdbo.group_entities
SET upd_user = p_upd_user,
upd_datetime = p_upd_datetime
WHERE group_id = v_group_id
AND entity_id = p_entity_id;
dbms_output.put_line('UPDATED RECORD FOR BUSINESS GROUP - ' || p_group_name);
else
/* insert record */
INSERT INTO pace_masterdbo.group_entities
( group_id, entity_id, upd_user, upd_datetime )
VALUES
( v_group_id, p_entity_id, p_upd_user, p_upd_datetime );
dbms_output.put_line('INSERTED NEW RECORD FOR BUSINESS GROUP - ' || p_group_name);
end if;
RETURN TRUE;
EXCEPTION
WHEN OTHERS THEN
RETURN FALSE;
END; -- setBusinessGroup func ends here
** MAIN
BEGIN
-- HX 17MAR05
v_entity_name := substr(p_entity_name,1,30);
v_entity_name := translate(v_entity_name,'/\:*?"<>~`!^|;,.''',' ');
b_valid := getSourceId('EAGLE PACE', g_prf_intfc);
dbms_output.put_line('Global Source Id = '||g_prf_intfc);
validate_entityid(p_source_acct_id,p_source_system,v_entity_id, b_valid);
IF NOT b_Valid THEN
na_outparam(na_outparam.COUNT+1) := EagleGen.GetErrEdit(p_Src => g_prf_intfc,
p_ShortDesc => 'INV ENTITY');
p_OUT := EagleGen.simf_table_to_varchar(na_outparam);
RETURN;
END IF;
if v_entity_id is not null then
dbms_output.put_line('ENTITY ID EXISTS - ' || v_entity_id);
/*Update Record in Entity Table */
UPDATE rulesdbo.entity
SET entity_type = p_entity_type,
entity_name = v_entity_name,
entity_long_name = substr(p_entity_long_name,1,60),
legal_name = p_entity_legal_name,
inception_date = to_date(p_inception_date, 'YYYYMMDD'),
marketing_open_date = to_date(p_marketing_open_date, 'YYYYMMDD'),
fiscal_end_date = to_date(p_fiscal_end_date, 'YYYYMMDD'),
tax_id_number = p_tax_id_number,
upd_date = v_date,
upd_user = v_update_source,
base_currency = p_base_currency,
account_status = p_account_status,
entity_code = p_entity_code,
orig_source_system = p_orig_source_system,
account_legal_form = p_account_legal_form,
business_sector = p_business_sector,
direct_account_ind = p_direct_account_ind,
portfolio_type_code = p_portfolio_type_code,
ml_interpolate_yn = p_ml_interpolate_yn
WHERE entity_id = v_entity_id;
dbms_output.put_line('UPDATED EXISTING RULESDBO.ENTITY RECORD');
b_valid := entityDetail(v_entity_id, p_associated_entity_id, p_entity_type, p_list_order);
else
pace_masterdbo.getnextinstance('RULESDBO.ENTITY',1,v_entity_id);
/*Insert Record into Entity Table */
INSERT INTO rulesdbo.entity
entity_id, entity_type, entity_name,entity_long_name,legal_name,inception_date,marketing_open_date,
upd_date, upd_user, tax_id_number, fiscal_end_date, base_currency, account_status,
entity_code, orig_source_system, account_legal_form, business_sector, direct_account_ind,
portfolio_type_code, ml_interpolate_yn
VALUES
( v_entity_id, p_entity_type,v_entity_name,substr(p_entity_long_name,1,60),p_entity_legal_name,
to_date(p_inception_date, 'YYYYMMDD'),to_date(p_marketing_open_date, 'YYYYMMDD'),v_date, v_update_source, p_tax_id_number, to_date(p_fiscal_end_date, 'YYYYMMDD'),
p_base_currency, p_account_status, p_entity_code, p_orig_source_system, p_account_legal_form, p_business_sector,
p_direct_account_ind, p_portfolio_type_code, p_ml_interpolate_yn
dbms_output.put_line('ENTITY ID CREATED - ' || v_entity_id);
/*Insert Record into Entity_Detail Table */
b_valid := entityDetail(v_entity_id, p_associated_entity_id, p_entity_type, p_list_order);
end if;
/* Insert/Update CUSTOM_INDEX_ATTRIBUTES if blended benchmark */
if (p_entity_type = v_bb_entity_type) then
b_valid := customIndexAttributes(
v_entity_id,
p_target_dict_name,
p_source_level1,
p_source_entity_xref1,
p_source_entity_xref1_type,
p_source_dict_name1,
p_weight1,
p_source_level2,
p_source_entity_xref2,
p_source_entity_xref2_type,
p_source_dict_name2,
p_weight2,
p_source_level3,
p_source_entity_xref3,
p_source_entity_xref3_type,
p_source_dict_name3,
p_weight3,
p_source_level4,
p_source_entity_xref4,
p_source_entity_xref4_type,
p_source_dict_name4,
p_weight4,
p_source_level5,
p_source_entity_xref5,
p_source_entity_xref5_type,
p_source_dict_name5,
p_weight5,
p_source_level6,
p_source_entity_xref6,
p_source_entity_xref6_type,
p_source_dict_name6,
p_weight6,
p_source_level7,
p_source_entity_xref7,
p_source_entity_xref7_type,
p_source_dict_name7,
p_weight7,
p_source_level8,
p_source_entity_xref8,
p_source_entity_xref8_type,
p_source_dict_name8,
p_weight8,
p_source_level8,
p_source_entity_xref9,
p_source_entity_xref9_type,
p_source_dict_name9,
p_weight9,
p_source_level10,
p_source_entity_xref10,
p_source_entity_xref10_type,
p_source_dict_name10,
p_weight10
end if;
/* Insert/Update Business Groups */
b_valid := setBusinessGroup(v_group_name1, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name2, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name3, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name4, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name5, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name6, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name7, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name8, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name9, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name10, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name11, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name12, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name13, v_entity_id, v_update_source, v_date);
b_valid := setBusinessGroup(v_group_name14, v_entity_id, v_update_source, v_date);
/* Insert/Update entity xref */
b_valid := entity_xref(p_source_acct_id, p_source_system, v_entity_id);
IF NOT b_Valid THEN
dbms_output.put_line('INV ENT XREF 1');
na_outparam(na_outparam.COUNT+1) := EagleGen.GetErrEdit(p_Src => g_prf_intfc,
p_ShortDesc => 'INV ENT XREF');
p_OUT := EagleGen.simf_table_to_varchar(na_outparam);
RETURN;
END IF;
COMMIT;
/* Pass back any warning messages */
p_out := EagleGen.simf_table_to_varchar(na_outparam);
END; -- End of Procedure

Answer 1

The PLS-00306 error is normally a runtime error. It is telling you that the call to procedure ENTPRFMAN had either too few or too many parameters passed to it or that one or more of the parameters were of the wrong datatype.
HTH -- Mark D Powell --