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>
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CompanyHeadline" IS 
{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>