pears.contactlink

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

Original SQL

CREATE FUNCTION "pears"."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