pears.GetEmployeePhoneInBlock [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== pears.GetEmployeePhoneInBlock ======
<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"."GetEmployeePhoneInBlock"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "reqemploymentid" char(20) ) 
returns long varchar
begin
  declare "phones" long varchar;
  declare "newline" char(2);
  declare "loopcounter" tinyint;
  declare "tab" char(1);
  declare "TabString" char(2);
  set "newline" = "char"(13)+"char"(10);
  set "phones" = '';
  set "loopcounter" = 0;
  set "tab" = "char"(9);
  for "fetchfor" as "fetchcursor" no scroll cursor for
    select "phonetype"."name" as "nextname","phone"."number" as "nextnumber" from "phone"
        key join "phonetype" where "phone"."who" = 'CP' and "whoid" = "reqemploymentid"
      order by "phone"."whoid" asc,"phonetype"."sortorder" asc,"phonetype"."name" asc for read only do
    if "loopcounter" > 0 then
      set "phones" = "phones" || "newline"
    end if;
    if "length"("nextname") < 8 then set "TabString" = "Tab"+"Tab"
    else set "TabString" = "Tab"
    end if;
    set "phones" = "phones" || "nextname" || "tabstring" || "nextnumber";
    set "loopcounter" = "loopcounter"+1 end for;
  return "phones"
end
</code>