pears.CompanyHeadline [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.CompanyHeadline ======
<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"."CompanyHeadline"( in "RecordID" char(20) ) 
returns long varchar
begin
  declare "RV" long varchar;
  declare "Part" long varchar;
  declare "NewLine" char(2);
  set "rv" = '';
  set "Part" = '';
  set "NewLine" = "char"(13)+"Char"(10);
  select "list"(' '+"number") into "Part" from "phone" where "PhoneTypeID" = 'CP' and "Who" = 'C' and "WhoID" = "RecordID";
  if "isnull"("Part",'') <> '' then set "RV" = 'Telephone:'+"Part"+"NewLine"
  end if;
  set "Part" = '';
  select "ReplaceStr"("Proper"("GetQuestText"('C','LO',"RecordID")),"Char"(9),'(s): ',1) into "Part" from "Dummy";
  if "length"("Part") > 15 then set "RV" = "RV"+"Part"
  end if;
  set "Part" = '';
  select "ReplaceStr"("Proper"("GetQuestText"('C','IN',"RecordID")),"Char"(9),': ',1) into "Part" from "Dummy";
  if "length"("Part") > 17 then set "RV" = "RV"+"Part"
  end if;
  return("RV")
end
</code>