pears.contactlink

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."contactlink" IS 
{CREATE FUNCTION 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
}