====== 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>
create function "pears"."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" as "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" as "v" key join "tagchoice" as "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>