====== pears.GetQuestSubMenuSelection ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GetQuestSubMenuSelection" IS 
{create function GetQuestSubMenuSelection 

/* Application Maintained Function / Procedure - DO NOT EDIT*/

(in stagloc char(3),in stagid char(3),in sparentid char(20))
returns long varchar
begin
  declare rv long varchar;
  set rv='';
  for fetchfor as fetchcursor dynamic scroll cursor for 
    select string( 
              (select cc.description from tagchoice cc   
                    where cc.tagid=c.tagid and cc.taglocation=c.taglocation and cc.tagchoiceid=c.tagchoiceparentid),
              "char"(9),c.description,"char"(13),"char"(10)) as chc 
     from tagvalue  v key join tagchoice c 
     where  v.taglocation = stagloc and V.id = sparentid and v.tagid = stagid order by 
      c.sortorder asc do  
    set rv=rv+chc end for;
  return(rv)
end
}
</code>