pears.CompanyHeadline

Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.

Original 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