pears.CompanyHeadline

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
}