procedure GetDocumentList( PrimaryKey1 in Varchar2, PrimaryKey2 in Varchar2, PrimaryKey3 in Varchar2, PrimaryKey4 in Varchar2, PrimaryKey5 in Varchar2, EntityName in varchar2, DocumentID in number, UserID in varchar2, DisplayType in Varchar2, DocumentList out MVT_Web_Display.Document_List_T, RunProductCode out Boolean) is -- begin -- /* DEFAULT: Always Run the Product Code */ GetDocumentList.RunProductCode := true; end GetDocumentList; -- -- *********************************************************************** -- -- Procedure: GenerateLOVList -- -- This procedure creates a select box with a list of values based on the -- input information. -- *********************************************************************** -- -- procedure GenerateLOVList( DisplayType in varchar2, CurrentID in varchar2, CurrentName in varchar2, CurrentValue in varchar2, CurrentTable in varchar2, CurrentColumn in varchar2, LinkedID in varchar2, LinkedValue in varchar2, LinkedTable in varchar2, LinkedColumn in varchar2, --PageColor in varchar2 default '41173F', --OrgInstance in number default null, UserID in varchar2 default null, NameValueItem out MVT_Web_Display.Lov_List_T, RunProductCode out boolean) is -- l_return_field varchar2(2000); l_loop_counter number; -- cursor c_org_name is select mo.org_name, mo.org_id from mvt_org mo where mo.org_name like CurrentValue || '%' order by mo.org_name asc; begin -- /* DEFAULT: Always Run the Product Code */ GenerateLOVList.RunProductCode := true; --custom if CurrentName = 'Org Name' then GenerateLOVList.RunProductCode := false; l_loop_counter := 0; for l_org_name in c_org_name loop l_loop_counter := l_loop_counter + 1; NameValueItem(l_loop_counter).LovValue := l_org_name.org_id; NameValueItem(l_loop_counter).LovDisplay := l_org_name.org_name; end loop; end if; exception when others then htp.p('MVT_Web_Display_Custom.GenerateLOVList : ' || sqlerrm); end GenerateLOVList;