====== pears.IQXNetTemplateChoiceList ======
<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"."IQXNetTemplateChoiceList" IS 
{create function IQXNetTemplateChoiceList 
(in templateid char(20),in deptid char(20))
returns long varchar
begin
  declare rv long varchar;
  declare xtagid char(20);
  declare xchoiceid char(20);
  declare xlocation char(20);
  select first trim(isnull(tagid,'')),trim(isnull(tagchoiceid,'')),taglocation into xtagid,xchoiceid,xlocation from tempshifttemplate where tempshifttemplateid = templateid;
  if xlocation = 'A' then
    set xlocation=string('A',deptid)
  end if;
  set rv=null;
  if xtagid <> '' and xchoiceid = '' then
    select list(string(tagchoiceid,']~[',description),']~[' order by sortorder asc,description asc) into rv from tagchoice where
      taglocation = xlocation and tagid = xtagid and isnull(subchoice,0) = 0
  end if;
  return rv
end
}
</code>