pears.IQXNetUserHeadline

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."IQXNetUserHeadline" IS 
{CREATE FUNCTION IQXNetUserHeadline( 
  IN "pWebUserID" CHAR(20) ) 
RETURNS long VARCHAR
BEGIN
  DECLARE "userClass" CHAR(20);
  DECLARE "personName" CHAR(200);
  SET "userClass" = (SELECT FIRST "iqxnetuserclassid" FROM "iqxnetuser" WHERE "iqxnetuserid" = "pWebUserID");
  SET "personName" = (SELECT "person"."forenames" FROM "iqxnetuser" KEY JOIN "iqxnetuserlink" KEY JOIN "person" WHERE "iqxnetuser"."iqxnetuserid" = "pWebUserID");
  RETURN "string"('<h2> Hello ',"personName",', welcome to your portal.</h2>')
END
}