pears.SetNetEmail

CREATE PROCEDURE "pears"."SetNetEmail"( 
  /* Application Maintained Function / Procedure - DO NOT EDIT*/
  IN "cpe" CHAR(2),IN "ptype" CHAR(25),IN "recid" CHAR(20),IN "snumber" CHAR(250) ) 
BEGIN
  DECLARE "xEmail" CHAR(250);
  IF NOT "ptype" = 'E-mail' THEN
    RETURN
  END IF;
  SELECT FIRST "phone"."number" INTO "xEmail" FROM "phone" KEY JOIN "phonetype" WHERE "phone"."whoid" = "recid" AND "phone"."who" = "cpe"
    AND "phonetype"."name" = 'E-mail' ORDER BY 1 ASC;
  IF "xEmail" IS NULL THEN
    RETURN
  END IF;
  SET "xEmail" = "replace"("xEmail",'*','');
  IF "cpe" = 'P' THEN
    UPDATE "iqxnetuserlink" KEY JOIN "iqxnetuser" SET "iqxnetuser"."EmailAddress" = "xEmail" WHERE "iqxnetuserlink"."personid" = "recid"
  ELSE
    UPDATE "iqxnetuserlink" KEY JOIN "iqxnetuser" SET "iqxnetuser"."EmailAddress" = "xEmail" WHERE "iqxnetuserlink"."employmentid" = "recid"
  END IF
exception -- Ignore duplicate email address error
  WHEN others THEN
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."SetNetEmail" IS 
{CREATE PROCEDURE SetNetEmail 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
( IN cpe CHAR(2),IN ptype CHAR(25),IN recid CHAR(20),IN snumber CHAR(250) ) 
BEGIN
  DECLARE xEmail CHAR(250);
  IF NOT ptype = 'E-mail' THEN
    RETURN
  END IF;
  SELECT FIRST phone.number INTO xEmail FROM phone KEY JOIN phonetype WHERE phone.whoid = recid AND phone.who = cpe
    AND phonetype.name = 'E-mail' ORDER BY 1 ASC;
  IF xEmail IS NULL THEN
    RETURN
  END IF;
  SET xEmail = REPLACE(xEmail,'*','');
  IF cpe = 'P' THEN
    UPDATE iqxnetuserlink KEY JOIN iqxnetuser SET iqxnetuser.EmailAddress = xEmail WHERE iqxnetuserlink.personid = recid
  ELSE
    UPDATE iqxnetuserlink KEY JOIN iqxnetuser SET iqxnetuser.EmailAddress = xEmail WHERE iqxnetuserlink.employmentid = recid
  END IF
exception
  WHEN others THEN -- Ignore duplicate email address error
END
}