pears.contactlink [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.contactlink ======
<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"."contactlink"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  in "sempid" char(20),in "spersid" char(20),in "sfromwho" char(1),in "stowho" char(1) ) 
returns char(50)
begin
  declare "rv" char(50);
  if("sempid" is null or "spersid" is null) and not("sfromwho" = 'A' and "spersid" is null) then
    return('')
  end if;
  set "rv" = '';
  if "sfromwho" = 'A' then
    set "rv" = (select "company"."name" from "company" key join "employment" where "employment"."employmentid" = "sempid");
    set "rv" = "char"(58)+' '+"rv";
    if "stowho" = 'C' or "spersid" is null then
      set "rv" = 'To' || "rv"
    elseif "stowho" = 'A' then
      set "rv" = 'Re' || "rv"
    else
      set "rv" = 'With' || "rv"
    end if
  else set "rv" = (select "person"."name" from "person" where "person"."personid" = "spersid");
    set "rv" = "char"(58)+' '+"rv";
    if "stowho" = 'A' then
      set "rv" = 'To' || "rv"
    elseif "stowho" = 'C' then
      set "rv" = 'Re' || "rv"
    else
      set "rv" = 'With' || "rv"
    end if end if;
  return("rv")
end
</code>